關於清空Office的剪切板
wangminbai 一位令我對 Excel 再產生興趣的小伙子
A remarkable topic to clear Office Clipboard written in Chinese Simplified.
(閱讀全文)
Emily | 3rd Feb 2008, 12:17 PM |
API / Add-in | (654 Reads)
判斷 Excel 單格是否處於編輯狀態
以下代碼就是當處於編輯狀態時在Excel的狀態欄上顯示 正處於編輯狀態…
The code will display "Excel in edit mode ......" in Status bar if Excel is in edit mode
(閱讀全文)
顯示自定檢視模式名稱 CurrentViews
Function CurrentView(Optional DummyArg As Variant) As StringDim cbo As CommandBarComboBox
On Error Resume Next
Set cbo = Application.CommandBars.FindControl(ID:=950)
On Error GoTo 0
If cbo Is Nothing Then
With Application.CommandBars.Add(Temporary:=True)
Set cbo = .Controls.Add(ID:=950)
.Enabled = False
End With
End If
CurrentView = cbo.Text
End Function
Sub Test()
'Application.DisplayStatusBar = True
'Application.StatusBar = CurrentView
MsgBox CurrentView
End Sub
Emily | 14th Dec 2007, 21:27 PM |
Excellent Sites | (722 Reads)
Download Videos from YouTube
Please read Download Videos from YouTube by Ivan F Moala
Emily | 5th Aug 2007, 12:11 PM |
Network / Media | (1469 Reads)
Using VBA to access the Net
Over the past few years there has been an increase in people who want to programmatically access information available over the Internet. There are a few different ways of doing so with results available in a few different formats. In this chapter I discuss some of the methods and formats. The methods include the use of InternetExplorer and XMLHttp and the formats include the “human friendly” HTML as well as XML and JSON. As part of the discussion of XML, I present a XSL stylesheet to convert a webservice XML output into a SpreadsheetML form that can then be opened directly by Excel. By the end of the chapter, the reader will know how to develop fully functional code to support concurrent asynchronous VBA access to multiple web sites.
For details please refer to
http://www.tushar-mehta.com/publish_train/xl_vba_cases/vba_web_pages_services/index.htm
移動 Mouse 定位在 A8
'---------------------------------------------------------------------------------------' Module : Module1
' DateTime :
' Author : Colo
' Purpose : Set Cursor Position
'---------------------------------------------------------------------------------------
Public Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Sub CursorPosition()
Dim X As Long, Y As Long
Dim Rg As Range
Set Rg = Range("A8")
X = ActiveWindow.PointsToScreenPixelsX((Rg.Left) * 96 / 72 * ActiveWindow.Zoom / 100)
Y = ActiveWindow.PointsToScreenPixelsY((Rg.Top) * 96 / 72 * ActiveWindow.Zoom / 100)
' 72 (points per inch) is divided by a 96 (pixels per inch),
' then multiplied the percentage of the ActiveWindow.Zoom.
' Please note, a 96 /inch is a standard pixel resolution,
' so depending on the case, this coefficient must be changed to suit.
SetCursorPos X, Y
End Sub
