pc23th 電腦學習

1、變數要很慎重命名 2、fucntion 的名稱也要慎重命名 變數跟函數，要命非常直覺的，要一看就懂，有羅輯

sub test1()      x=1      y=2     arr= AAA(x,y) end sub function AAA(x,y)     dim arr(1 to 2,1 to 2)As Variant     arr(1,1)=11     arr(1,2)=12     arr(2,1)=21     arr(2,2)=22     AAA=arr  end function

Function Fn5開獎號大至小( )     'Model = "今彩539落球"     ActiveWorkbook.Worksheets(Model).Sort.SortFields.Clear     ActiveWorkbook.Worksheets(Model).Sort.SortFields.Add Key:=Worksheets(Model).Range("B1"), _         SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _         xlSortTextAsNumbers         'Order:=xlDescending,         'Order:=xlAscending,     With ActiveWorkbook.Worksheets(Model).Sort         '以下這行，要用絕對路徑，就不容易出錯         .SetRange Worksheets(Model).Range("a1").CurrentRegion         .Header = xlNo         .MatchCase = False         .Orientation = xlTopToBottom         .SortMethod = xlPinYin         .Apply     End With End Function

http://www.biga.com.tw/Record.asp

EXCEL 按Alt+F11 打開巨集 在左邊的ThisWorkbook 點兩下打開 貼上 Private Sub Workbook_Open()     MsgBox Date End Sub 我們並不會看到 Workbook_Open這個巨集 因為它的屬性是Private 如果把 Private Sub Workbook_Open()     MsgBox Date End Sub 改成 Sub Workbook_Open()     MsgBox Date End Sub 我們就會在工具巨集巨集 看到Workbook_Open這個巨集 不要用Auto_open寫法

這一段可以將定義範圍，存放在sheets("測試")，的這個頁籤裏 ThisWorkbook.Worksheets("測試").Names.Add myName, myRng 這一段卻是放在thisworkbook裏 ThisWorkbook.Names.Add myName, myRng 這段只要是在thisworkbook裏的都可以找得到 For Each tmpName In ThisWorkbook.Names 這段卻只能到sheets("測試")裏的 For Each tmpName In ThisWorkbok.Worksheets("測試").Names

第一層UBound(arr,1) 第二層UBound(arr,2) 如果Dim arr(1 To 39, 1 To 60) As Variant 要代入function如下： function xxx( arr) 這樣就可以了    第一層UBound(arr,1)    第二層UBound(arr,2) end function