pc23th 電腦學習

如果字串指定的太長，是無法使用此函數

'清除底色         ShtImgInfo.Cells.Interior.ColorIndex = xlNone

    x = ActiveCell.Row     y = ActiveCell.Column

每一個版本都可以用的bug 1、跑步：= 進礦中、出礦前，按r 、同時點滑鼠右鍵 2、控制三台機器人：=用第四部車子，控制其它三台機器人 3、複制機器人武器：=         ps:(6.3)版操作方式不一樣，但原理是相同的，因為沒油而自動關畢武器時，就會複製武器出來 技巧 1、地洞建一半，恐龍會先打地洞 2、恐龍會打正在建築的建築物

任務名稱  觸發條件  獎勵 1. 一人當千   400殺 全 部玩家獲得500元 2. 光彩奪目   250殺  全部玩家獲得300元 3. 光芒一閃    不明  所有友軍HP+130 防+1 4. 孤立無援    不明  出現援軍 5. 不朽不滅   不明  友軍弓箭手.女獵戶HP+200 防+2 攻+6 6. 南山不落    撐到30分鐘  世界樹HP+3000 7 . 堅牢堅固   守住前線5分鐘  全部玩家250元 8. 要害堅固   守住建築物11分鐘   友軍建築強化HP+25% 防+2 防衛塔+20攻 所有人300元 9. 不朽不滅 守住目標16分30秒 高等精靈劍士及弓箭手強化 HP+200 防+2 攻+6 10. 一敗塗地 5分鐘左右就被壓到主塔 主城出現友軍 角色：= 水銀燈、暗幽女王、樂園之女巫、神劍光輝 場地：= 高等精靈 1、水銀燈裝備順序     金1500：= 回魔、月之弓、企鵝     金1000：=  回魔、企鵝+升鳥     選上路             狙擊之弓 ：=月之弓、強弓、蛇爪、             女僕裝 ：=速度之鞋+快速手套+奎爾薩拉斯之靴             To Heart 女子制服：=鐵木頭盔+鐵木鎧甲+狙擊之弓              卓越之戎    ：= 回復之戎+索畢面具              高貴飾環    ：= 魔力護身符+卡加德的生命寶石              貓耳      　  ：= 卓越之戎+高貴飾環              血腥綱爪    ：= 武士刀+強弓+水晶魔仗+ 剌 之蛇爪子              聖武士之章：= 鐵劍+月之弓+符文仗              全能力        ：= 聖武士之章+血腥綱爪 2、暗幽女王     金1500：= 回魔、企鵝+升鳥     金1000：=回魔、企鵝+升鳥     選下路              血腥綱爪    ：= 武士刀+強弓+水晶魔仗+ 剌 之蛇爪子              聖武士之章：= 鐵劍+月之弓+符文仗              全能力        ：= 聖武士之章+血腥綱爪 3、樂之女巫     金1500：=回魔、企鵝     金1000：=回魔、企鵝+升鳥  

Function 大樂二星組數()     Set shtTmp = Sheets("temp1")     For i = 1 To 48         For j = i + 1 To 49             'shtTmp.Cells(i, j - 1) = i & "組" & j             'shtTmp.Cells(j - 1, i) = i & "組" & j             shtTmp.Cells(j - i, i) = i & "組" & j         Next j     Next i End Function

六合彩連碰支數計算公式===不用看公式薄 二星連碰公式計算法~ 二星連碰~40支連碰=40成39除2=支數 二星連碰~39支連碰=39成38除2=支數 二星連碰~38支連碰=38成37除2=支數 二星連碰~10支連碰=10成9除2=45支 p.s二星連碰~5支連碰=5成4除2=10支 以此累推 三星連碰公式訊算法~ 三星連碰~40支連碰=40成39成38除6=支數 三星連碰~39支連碰=39成38成37除6=支數 三星連碰~38支連碰=38成37成36除6=支數 三星連碰~10支連碰=10成9成8除6=支數 p.s三星連碰~5支連碰=5成4成3除6=10支

now 與 Randbetween 與 Rand

原理 儲存格範圍=儲存格範圍                sheet1.range(a1:ay1) = sheet2.range(a1:ay1) 少跑了好幾圈

雖然 cells 可以用數字，但是會造成切換頁的問題 只要不是在當前的頁面執行 就會出問題，所以要指定頁表 1、使用cells錯誤         Range(Cells(1, 1), Cells(5, 5))      寫法如下 2、cells前面要加頁表         With ShtBaseImg             .Range(.Cells(1, 1), .Cells(5, 5)).Interior.ThemeColor = xlThemeColorAccent1         End With

http://blog.xuite.net/crdotlin/excel/11049893 要選取，篩選後的值，問題一直出篩選後 最重要的要加上一段resize     Set Rng = Rng.Resize(Rng.Rows.Count - 1).Offset(1, 0).SpecialCells(xlCellTypeVisible) 但是 Count - 1、跟Offset(1, 0)，用意一樣嗎？ 一個減、一個加，這我還沒搞清楚

、顯示卡 (推不動二台螢幕)、找二個DVI輸出的，大概就不會出問題了，重點是二款解析度要一樣，才不會黑頻 、power(也許也快壞了) 、電視卡(找一張有Win7驅動程式的) 、硬碟(如果要內建，就找2TB，如果外接那麼就是3TB)

先選擇要設定的儲存格     資料 →資料驗證 → 設定 →清單 → 來源(選取範圍)

lLastRow = Range("A" & Cells.Rows.Count).End(xlUp).Row

新版的顏色輸入    .Interior.ThemeColor = xlThemeColorAccent1 舊版的顏色輸入    .Interior.colorIndex = 3 新版的顏色比較豐富

Active_RngY = ActiveCell.Row Active_RngX = ActiveCell.Column

留最上一行，設定按鍵，再凍結窗格後，就可以方便執行巨集了

strTmp = "2,3,4,5,6,7," Var = Len(strTmp)   '取得字串長度 Re_strTmp = Left(strTmp, Var - 1)   '取字串從左邊，共幾位

 strTmp ="2,3,4,5" arr_tmp=Split(strTmp, ",")

開     UserForm1.show  關     unload UserForm1 技巧182  頁P318

技巧105  頁p154 語法         sort(key1,order1,key2,Type,order2,key3,order3,Header,OrderCustom,MatchCae,Ori_entation,SortMethod,kDataOption1,DataOption2,DataOption3) 結果 range("a1") →range("b1") →range("c1") →range("d1")  方法 D →C →B →A sub sortBykeys()         range("a1").sort range("d1")         range("a1").sort range("c1")         range("a1").sort range("b1")         range("a1").sort range("a1") end sub sub sortBykeys()         range("a1").sort  key1 :=range('b1") ,key2 :=range('c1") ,key3 :=range('d1"),         range("a1").sort  key1 := range("a1") end sub

Function sort_test()     'xlAscending     Set SheetPer = Sheets("今彩機率")     'Set SheetImg = Sheets("今彩圖表")     Set SheetImg = Sheets("今彩機率")         Set ShtPer_Rng = Sheets("今彩機率").Range("d3:f41")     img_Y = SheetImg.Range("d65535").End(xlUp).Row + 2     img_X = SheetImg.Range("iv" & img_Y).End(xlToLeft).Column + 2     Set ShtImg_Rng = SheetImg.Cells(img_Y, img_X)         '依照落號，次數排序         ShtPer_Rng.Cells(1, 1).Sort _             key1:=ShtPer_Rng.Columns(3).Cells, Order1:=xlDescending 'xlAscending         ShtPer_Rng.Cells(1, 1).Sort _             key1:=ShtPer_Rng.Columns(1).Cells, Order1:=xlDescending     '篩選不重復資料         ShtPer_Rng.Columns(1).AdvancedFilter _         Action:=xlFilterCopy, criteriarange:=ShtPer_Rng.Columns(1), _         copytorange:=ShtImg_Rng, unique:=True     '落號合併 End Function

使用Win7分割，系統會自動保留100mb 使用WinXP分割，則不會 但是、安裝過程的暫存檔，會放在那邊勒？ 砍也砍不掉，麻煩的很，所以、還是用Win7分割好了 準備工作先要有 Win7、WinXP、EasyBCD、硬碟SATA 250G、Win7XP+40AP.ISO檔 使用Win7XP +40AP這片 1、進Win7分割硬碟         系統保留        100MB         SATA Winxp              40GB     (40050)         SATA Win7              100GB    (100250)         SATA Restore        約90GB     (全部給) 重開機 2、進WinXP安裝         選 40GB那槽、安裝完後 3、進Win7安裝         選 100GB那槽、含AP安裝完後，這樣就有雙系統了            4、安裝EasyBCD、建立開機選單、改開機選單名稱         將磁碟改名 SATA Winxp、SATA Win7、SATA Restore         SATA Restore下新增boot目錄          將ISO檔放進 SATA Restore \boot         安裝EasyBCD後         選Add New Entry 、選ISO Boot、選 Name 改名Restore 、選Path 、指定ISO檔、點Add Entry         選Edit Boot Menu 改開機選單名稱 SATA Winxp、SATA Win7、SATA Restore 重開機備份 5、進入Restore，光碟選單內、點選ghost         進入ms-dos模式後，打ghost         備分SATA winxp、SATA Win7，於Restore 6、週邊硬體+AP部份     ▲Win7：         1、主機版音效770-C45、顯示卡(要用原廠驅動程式，否則玩魔獸會出錯)             HP F2120、電視卡、讀卡機             安裝Orbit、FreeRapid、uTorren、玉山A+   

http://tw.knowledge.yahoo.com/question/question?qid=1011052408001 控制台 → 網路和網際網路 → 檢視網路狀態及工作 → 變更介面卡設定 → 將連線PPPOE 複製到桌面            → 開始選單 → 啟動 → 滑鼠右鍵 選 開啟所有使用者 → 將 PPPOE放進啟動 播號內容要取消  「提示名稱、密碼、憑證」 接著在桌面上按一下右鍵，選取[新增捷徑]選項，準備要建立一個捷徑。 然後在[輸入項目的位置]文字方塊中輸入「rasphone –d 寬頻連線名稱」，例如「rasphone –d Hinet」。按一下[下一步]按鈕。 接著為這個捷徑命名，例如：Hinet。(在此的名稱並不重要)

安裝下載EasyBCD  http://neosmart.net/ 1、View Settings                    查看所有設定 2、Edit Boot Menu                 編輯開機選單 3、Add New Entry                  新增開機選單 4、Advanced Settings             修改選單 5、BCD Backup/Repair           備份/還原 6、Bootloader Setup 7'、Useful Utilities 1、改開機選單名稱        選 Edit Boot Menu → 選  要改的選單 → 選 Rename 或 選 二下 → 輸入  新名稱 → 選  Save Settings 2、用開機光碟ISO、加入開機選單         選 Add New Entry → 選 windows → 選 type MS-Dos 6.x  → 選 ISO Boot → 選 Name  輸入  新名稱 → 選 Path  將ISO 掛入 → 選 Add Entry