作者查詢 / unfinish
作者 unfinish 在 PTT [ Visual_Basic ] 看板的留言(推文), 共43則
限定看板:Visual_Basic
看板排序:
全部Gossiping4827joke67ask-why47car43Visual_Basic43gallantry42sex33home-sale28CarShop26Little-Games24Salary21CHING20specialman16ChungLi14ChineseMed12haiku11radio10TuTsau9ADS8HatePolitics8Wargaming8Anti-ramp6Database6Office6CSMU-CM-OP5Employee5NIHONGO5swim5YOLO5kualab4MartialArts4medstudent4movie4PublicServan4Ancient3bicycle3book3CGI-Game3H-GAME3IA3Instant_Food3Language3PublicIssue3Shu-Lin3ShuangHe3SongShan3Android2AppleDaily2BCC_PCC2e-coupon2Ecophilia2gay2hypermall2JapanStudy2KS94-3202MOD2NTUFS-982NTUND982PingTung2PttLifeLaw2SouthPark2Teacher2TKU_EE_92C2TryingTimes2Violation2Warfare2About_Life1ask1Baki1Beauty1BigShiLin1BikerShop1BLEACH1Boy-Girl1Browsers1Bus1C_and_CPP1CGSH87th_3151CGSH88th3181Chemistry1Chi-Gong1ck52nd3211ck54th3331CTSH913051CVS1Digitalhome1Disabled1DragonBall1e-shopping1EAseries1eSports1Facebook1FJU-ACC90a1FJU-ACC93a1FJU_Chiayun1Free_box1FuMouDiscuss1FXM91-3291GAMEMUSIC1Geography1Google1GossipPicket1GUNDAM1Hate1Health1HSNU_10081HSNU_10091IC-Card1IME1Japan_Living1japanavgirls1JLPT1KanColle1kawaii1kodomo1KUAS1Kusan_89-3121L_TalkandCha1Lan-Yu1LAW1lifeguard081LTK1marvel1media-chaos1Miaoli1Militarylife1MonkeyPox1MP98-1T1mud1NBA1NCCU_Magic1NCCU_SEED1NCHU-SWC1NCU94Stat1NCU95Stat1NetRumor1Network1NIUECE911NIUEE93a1NLHS-Chat1nobunyaga1NTUCH-901NTUot941ONE_PIECE1onePiece1Oni_soul1P2PSoftWare1P_Management1paranormal1Question1Railway1SET1Stock1streetfight1studyteacher1SYSOP1TA_AN1Tech_Job1TFG02Unity1TFG03Winner1TMU_GIMI931Tobacco1ToS1TPC_Police1Trans-nctu1travian1TW-language1TypeMoon1VET_921Violin1WorkanTravel1YP90-3101YP93-3041<< 收起看板(173)
4F推: 個人會用KeyDown事件 然後用ENTER(KeyCode=13)觸發 填值10/28 14:36
5F→: 之後按ENTER才開始計算並將值送到另一個TB裡 用focus的10/28 14:37
6F→: 話 程式執行起來應該會卡卡的很怪吧10/28 14:38
2F推: 那段程式碼你應該是寫在表單(userform)裡面吧 如果只有11/18 14:33
3F→: 單一表單會用到 那在最前面加個private就行了 如果有很11/18 14:33
4F→: 多表單都會用到 那你要新增模組定義類別才能共用11/18 14:34
2F推: 用shape物件11/18 17:35
2F推: 用find 快又簡單 https://goo.gl/hka60S10/02 14:24
4F→: 上述範例其實是我在vba常用的土法 初學.net想說可能會有05/20 09:05
5F→: 更好的做法才po文一問 謝謝 MOONRAKER 及 Marty 的賜教05/20 09:07
1F推:最簡單的方法就是直接去判斷是不是到最末行了05/10 12:49
2F→: If PT.Row = 65536 Then05/10 12:53
3F→: Worksheets.Add05/10 12:53
4F→: Set PT = Range("A1")05/10 12:53
5F→: Else05/10 12:53
6F→: Set PT = PT.Offset(1, 0) '下移一行05/10 12:53
7F→: End If05/10 12:54
1F推:是不是把回傳儲存格的格式也設成百分比了....05/04 16:32
2F推:我認為應該是迴圈設太大超出資料範圍抓到空白欄位....04/23 10:27
3F→:另外 我覺得回填標準差欄位是不是設錯了 會覆蓋來源資料04/23 10:47
4F→:ActiveCell.FormulaR1C1這樣的用法也怪怪的...04/23 10:52
1F推:1.chr(10) 2.Windows("aexcel").Visible = False04/20 13:33
1F推:不是if函數不能用 是RC絕對位置不能用變數04/17 20:26
2F→:硬要用的話 就把它視為字串來處理04/17 20:30
3F→:EX "=IF(RC[-" & aaa & "]:R[" & bbb & "100]C[-1..."04/17 20:32
8F→:我跑沒問題也.....04/17 23:20
9F→:有錯誤可能是有bug 看一下你的例子 最後一個逗號後面04/17 23:24
10F→:,-RC[-5]:R[100]C[-1] 是不是有多一個「-」負號在....04/17 23:25