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).Address             S2 = Split(Str, ":")                         Str = S1(0) & ":" & S2(0)         End With         Debug.Print Columns(Str).Address End Function Function Fn1_新增工作表(Str_ShtName) '當工作表不存在→新增     Dim ShtName As Object     On Error GoTo create         Set ShtName = Sheets(Str_ShtName)         'ShtName.Cells.Clear         Fn1_新增工作表 = True         Exit Function create:         Sheets.Add(after:=Sheets(Sheets.Count)).Name = Str_ShtName End Function

        '使用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             a(num) = True '把num加入陣列             n(i) = num         Next i     '         Range("A1:f1") = n End Function

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

進UserForm1屬性 -> ShowModal   ->  選False 表單就可以浮動

'按下 CommandButton2_Click '執行DelNumber = UserForm1.TextBox1.Text Private Sub CommandButton2_Click()     DelNumber = UserForm1.TextBox1.Text End Sub

難度：heaven 地圖：高等精靈 守備：上路 賣掉藥水 買企鵝$200 買智識神木之杖$975 升企鵝$300 買回復之戒$500 買速度之靴$350 買時光之石$500 買強弓$1650 買強弓$1650 買水晶魔杖$1650 買水晶魔杖$1650 買武士刀$1650 買武士刀$1650 買奎爾薩拉斯之靴$450 買速度之靴$350 買快速手套$250 買閃裝$600 目標二個無名 剩下的錢再思考要買什麼裝 不一定要號角 先點E、技能W為主、E為補、T為次要、R最後點 清兵要領 1、先用閃戒、進入怪的中心，再按W 2、往怪的後方按E，先清體弱的兵 3、馬上使用智識神木之杖回血、如果血不夠，再按天生技回血 4、有T就按，往怪集中的地方清 5、利用閃裝可減少走路的時間

地圖難度：heaven 地圖選項：中等精靈 守備位子：上路 賣掉藥水 買企鵝$200 買智識神木之杖$975 升企鵝$300 買強弓$1650 買強弓$1650 買水晶魔杖$1650 買水晶魔杖$1650 買武士刀$1650 買武士刀$1650 買回復之戒$500 買速度之靴$350 買時光之石$500 買奎爾薩拉斯之靴$450 買速度之靴$350 買快速手套$250 目標二個無名 剩下的錢再思考要買什麼裝 不一定要號角 技能R為主、W為輔、E先點一技(最後再補滿)、T為次要 E是直線的魔法攻擊 R是以自己為中心的魔法攻擊 W放的時機，最好以體弱的兵、像法師之類 清一大堆兵的時機 當所有CD都滿的時候，智識神木之杖CD也滿時 1、使用智識神木之杖回血(此順序可以換成第4) 2、先放R，接著使用穿梭之戒，閃進怪的中心位子， 3、馬上接著按EWT， 4、使用智識神木之杖回血 5、找血薄怪密集的地方、最後清炎魔 6、

教學連結

滑鼠鎖定程式 點我下載 視窗化教學

<h1>網咖內暴斃 客人伴屍續戰</h1> -字 +字 <cite> 自由時報  – <abbr title="2012-02-03T04:26:58+00:00">2012年2月3日 下午12:26</abbr></cite> <h3>相關內容</h3> 放大照片 網咖內暴斃 客人伴屍續戰 新聞報導: 男打整天電玩暴斃 眼盯螢幕手黏鍵盤 2012年2月3日 下午12:22 新聞報導: 久坐送命 死前死後一個樣 2012年2月3日 上午4:24 屍體被移動 全身仍僵直 〔自由時報記者鄭淑婷、吳柏軒／新北報導〕年僅23歲的陳榮宥沉迷「魔獸世界」線上遊戲，大前天跑到新北市網咖包台23小時，準備好好廝殺，但尚未 贏得虛擬戰爭，卻在打了10多個鐘頭後猝死於電腦前，且呈坐姿、肢體僵硬，雙手向前平伸呈打鍵盤狀，連屍體被移動時，全身姿勢都僵直不變，宛如木乃伊；當 時店內有10多名玩家，見有人暴斃，竟不以為意，瞄一下屍體，隨即緊盯螢幕「續戰」，對人命生死之無感，令警員非常詫異。 警方表示，陳榮宥到新北市三重區三陽街一家網咖，包台23小時，自1月31日晚上10點開戰，準備打到2月1日晚上9點。 網咖員工昨天說，陳某幾乎天天來，是常客，大前天晚上他一進店內，就坐在第一排最角落位置，陳某戰到前天下午3點，店員見他頭略低垂，而雙手平伸向前、按著鍵盤，一時以為他打瞌睡，所以沒有特別注意。 直到前晚9點，包台時間已滿，陳某卻未起身，店員於是趨前叫他，這才見他臉色發黑、僵硬坐著，陷在沙發椅，雙手還撐在鍵盤上，店員移開沙發椅後，陳某離開桌面，雙手卻仍僵直，伸向空中，一副還在打電玩的神態，店員被嚇著，倒抽一口氣，趕緊打電話報警。 有人死了 玩家不動如山 警方昨凌晨到場處理，制服警察在現場拉起封鎖線，進行鑑識採證時，店內10多名玩家才知悉有人打到喪命，卻我行我素，毫無顧忌，堅守原位繼續「打仗」，坐在死者正對面的玩家，站起來匆匆看了一眼，馬上坐下，回到虛擬遊戲懷抱續戰，令警方很詫異。 警方在陳某的機車置物箱發現台大醫院的預約看診單，懷疑可能因徹夜打線上遊戲，造成身體不堪負荷而猝死，已報請檢察官、法醫相驗，以釐清死因。 陳某是北桃園有線電視的工程人員，下班後疑似就以網咖為家，住在台東