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 女子制服：=鐵木頭盔+鐵木鎧甲+狙擊之弓            ...

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 Restor...

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