pc23th 電腦學習

Function Columns使用數字()     '初始值         Dim Def_Rng As Integer, All_Ball As Integer         Def_Rng = 6         All_Ball = 49     '判斷工作表         dim Str_ShtName as String         Str_ShtName="temp"         call Fn1_新增工作表(Str_ShtName)     '程式開始         Dim Str As String         Dim S1, S2         With Sheets("temp")             Str = .Columns(Def_Rng).Address             S1 = Split(Str, ":")             Str = .Columns(All_Ball).Add...

        '使用Like         For Each chkSht In Worksheets             If chkSht.Name Like "*" & "分析" Then                 MsgBox chkSht.Name             End If         Next

這裡列出常用的bot指令, 其他較少用的指令將暫時不作說明 [ 管理員用指令 ] !addban <name> [reason] // 將玩家加至黑名單 !checkme // 檢查自己的資料 !close <number> // 關閉某數字的位置 !closeall  //關閉所有可用位置 !delban <name>  // 將玩家從黑名單上移除 !drop // 立即踢掉直在讀秒的玩家 !hold <name> // 保留位置給某玩家 !kick <name> // t掉某玩家 !mute <name> // 禁止某玩家發言 !muteall // 禁止全局發言 (同盟及私人對話除外) !open <number> //打開某數字的位置 !openall  //打開所有位置 !sp //打亂玩家目前的位置 !start [force] //立即開始遊戲, 同時輸入[force]跳過檢查步驟 !stats [name] //顯示某玩家在本bot上的統計資料, 只輸入!stats 將顯示自己的資料 (只有輸入者看到) !swap <n1> <n2> // 對調位置 !unhost // 關掉目前的房間 !unmute <name> // 允許被禁言玩家發言 !unmuteall // 允許全局對話 !votecancel // 取消投票踢人 !votekick <name> // 開始進行投票踢人 , 其他玩家輸入 !yes來投票 [ 一般玩家指令 ] !checkme // 檢查自己的資料 !stats [name] //顯示某玩家在本bot上的統計資料, 只輸入!stats 將顯示自己的資料 (只有輸入者看到) !votekick <name> // 開始進行投票踢人 , 其他玩家輸入 !yes來投票

加速VBA的方法: 1.關閉螢幕更新 : Application.ScreenUpdating = False 'True 2.禁止觸發事件 : Application.EnableEvents = False 'True 3.禁止交互模式 : Application.Interactive = False 'True 4.計算模式設定為手動 : Application.Calculation = xlCalculationManual 'xlCalculationAutomatic 5.儲存格寫法 : 請使用cells : cells(1,1).value > cells(1,1) > Range("A1") > [A1] 6.比較句 : IF A THEN IF B THEN 優於 IF A AND B THEN 與 IF A THEN ... ELSE IF B THEN 優於 IF A OR B then 7.IF 快於SELECT 8.IF/ELSE 快於 IIF 9.循環句 For 語句快於DO/WHILE For/each快於for/to 10.使用With語句 11.盡量不用Variant類型 12.使用Option Explicit 13.給返回值一個明確的類型. 14使用left$,而不用left,使用int%,而不用int 15.set=nothing 16.有些工作表函數（方法）速度是很快的,比如FIND,VLOOKUP等,要記得使用它們,不要花力氣去做不討好的事。 17.當使用工作表函數時,操作對象應避免使用內存變量,那樣反而慢。 18.使用不相鄰的range前,先使用UNION,一次進行. 使用內存數組 1．內存變量的運算速度大大快於RANGE對象。 將RANGE數據寫入內存數組。 下面兩句將生成一個65536行,6列的數組。 用這種方法產生的數組都是兩維數組,即使引用的RANGE只有一行或一列。 下標始於1,不受option base設定的影響。 arr必需聲明為Variant類型。 Dim arr() arr=range(“A1:F65536”) 將內存數組數據寫入RANGE。 在內存數組經過計算處理後,寫回時只需下句就可以了。 range(“A1:F65536”)...

http://tw.knowledge.yahoo.com/question/question?qid=1510050303010 看不懂耶，唉！ 我程度太弱了

Function Fn1_大樂透電腦選號()     '陣列必需指定常數         Const All_Ball = 49         Const ShowBall = 6     ' 以下程式碼引用 凸槌的木工         Dim i%, num%         Dim a(1 To All_Ball) As Boolean         Dim n(1 To ShowBall) As Integer         Erase a  '清除a陣列         For i = 1 To ShowBall             num = Int(All_Ball * Rnd + 1) '取得亂數(可能重覆)             Do While a(num) = True '若陣列a內已加入num則執行下句:                 num = Int(All_Ball * Rnd + 1) '重新取得亂數             Loop  ...

動漫少女守城  文章內文中的Sakuya's Spell Card 簡稱 閃裝