pc23th 電腦學習

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

原來range("a1:a5")，跟range(cells(1,1),cells(5,1))是有差別的 Sheets("1").Select Set tmpRng = Range(Cells(1, 2), Cells(5, 1)) myRng = tmpRng.Address Set myRng = Sheets("2").Range(myRng) 這樣也OK，是因為是range 跟 cells也會出問題 設定字型如下 With Sheets(st).Range(myRng)       .Orientation = 90 End With With Sheets(st).Range(myRng).Font      .Name = "新細明體"     .FontStyle = "標準"     .Size = 16 End With  With Sheets(st).Range(myRng).Interior     .ThemeColor = xlThemeColorLight2 End With