Tuesday, March 29, 2005

一些 VBA 技巧

== get text content from system clipboard in VBA
Dim DObj As MSForms.DataObject
Dim S As String
Set DObj = New MSForms.DataObject
DObj.GetFromClipboard
S = DObj.GetText
Debug.Print S
==
=VLOOKUP(A1,{0,3;.99,8;7.99,28},2)
=SUM((A2:A100<>"")/COUNTIF(A2:A100,A2:A100&""))
=text(today(),"dd/mm/yyyy")
==VBA: strconv
==ADODB.Connection, ADODB.Recordset
==ActiveSheet.QueryTables