作者查詢 / waiter337

總覽項目：發文 | 留言 | 暱稱

作者 waiter337 在 PTT [ Visual_Basic ] 看板的留言(推文), 共330則

限定看板：Visual_Basic

看板排序：

全部PC_Shopping6568Gossiping6106joke2594Option2443Office2317sex2192Broad_Band691WOW585Moto_GP537MJ500C_Chat429LoL371ToS357FCU_Talk353Visual_Basic330StupidClown267WomenTalk198hardware159Trading159MenTalk158Stock122iOS111FITNESS106CATCH88movie83Taitung74prozac72Boy-Girl70Beauty48Storage_Zone47feminine_sex40MobileComm40Hunter37e-shopping34toberich34OverClocking32biker26NARUTO25TWvoice25home-sale24Tobacco23Mancare22InitialD19marriage19HardwareSale18MuscleBeach18Militarylife17KS98-30216MRT15car14Salary14AntiVirus13Database13Tech_Job13Marketing12talk12GO11VideoCard11Lineage10Lifeismoney9Badminton8MartialArts8NBA8THU_Talk8unemployed8AC_In7Kaohsiung7Network7PublicIssue7Sub_DigiLife7wisdom7Hate6HK-movie6Instant_Mess6japanavgirls6Math6NBA_Film6NCTU_TALK6yoga6YOLO6FCUProblems5FuMouDiscuss5HatePolitics5ID_Multi5Marginalman5NTTU_CSIE995Vtuber5ask4Childhood4cute4goodclass1034GreenLand4IA4kawaii4kodomo4TY_Research4WorldCup4Aerobics3Broker3C_ChatBM3CHSH_98_3203ComeHere3DirectSales3Emulator3Lawyer3logic3single3TigerBlue3WuGu-BaLi3AfterPhD2Cga2Chiayi2cookclub2cosplay2CSMU-AIS982Employee2firsttime2ForeignEX2graduate2HCHS603122ID_Problem2Jay2Management2money2Old-Games2ONE_PIECE2Psychiatry2TaichungBun2TaichungCont2tajen2TNFSH102nd2youtuber2Anchors1ATASHInCHI1Baseball1basketballTW1BBSview1Broken-heart1CCRomance1CCU_EE961CFantasy1CGSH88th3081China-Drama1CJCU1ck57th3091ckshga80th1CodeJob1Conan1Crusaders1CVS1CYCU_Talk1DC1facelift1Finance1FJU-Laws991Golden-Award1GossipPicket1HCSHch13_3111HRM1HsinChuang1HSNU_10081Hualien1I-Lan1JinYong1KS95-3181KS97-3101MAC1MacShop1marvel1media-chaos1medstudent1MKSH-95-61Mudran1MysticWiz1nb-shopping1NCCU08_Ethno1NCU97ME-B1NCUFingrad031NCYU_Fst_981NDHU_OECLab1NHLUE_LED971NTTU1NTU1NTUAC981NTUE-CS1031Olympics_ISG1pharmacist1PlayStation1regimen1ScienceNote1Soft_Job1specialman1studyteacher1SuperHeroes1swim1SwimWear1Tainan1TaiwanDrama1TAKESHI1THUMath951TW-language1WeiBird1Windows1WindowsPhone1Winnie1WRC1YUGIOH1<< 收起看板(207)

首頁

尾頁

[VBA ]請教 VBA 連接 IE 抓取資料

[ Visual_Basic ]9 留言, 推噓總分: +1

作者: qaz0955qaz - 發表於 2021/06/30 00:55(4年前)

1^F推waiter337: wait now 那段改成07/04 14:27

2^F→waiter337: Do While .Busy Or .ReadyState <> 4: DoEvents: Loop07/04 14:27

3^F→waiter337: 然後07/04 14:27

4^F→waiter337: Text = oIE.Document.getElementById("vParagraph").in07/04 14:28

5^F→waiter337: nertext07/04 14:28

6^F→waiter337: 然後就到end with了07/04 14:29

7^F→waiter337: 然後 oIE.Quit07/04 14:29

8^F→waiter337: set oIE = Nothing07/04 14:30

9^F→waiter337: END SUB07/04 14:30

[VBA ] 溢位問題

[ Visual_Basic ]28 留言, 推噓總分: +1

作者: areric - 發表於 2021/05/12 12:24(4年前)

5^F→waiter337: Private Sub a_Change()05/14 11:10

6^F→waiter337: call cal05/14 11:11

7^F→waiter337: end sub05/14 11:11

8^F→waiter337: sub cal()05/14 11:11

9^F→waiter337: if a.Text="" or a.Text = 0 then exit sub05/14 11:12

10^F→waiter337: if b.Text="" or b.Text = 0 then exit sub05/14 11:12

11^F→waiter337: if c.Text="" or c.Text = 0 then exit sub05/14 11:13

12^F→waiter337: d.Text = Val(a.Text) * Val(b.Text) / Val(c.Text)05/14 11:13

13^F→waiter337: end sub05/14 11:13

14^F→waiter337: 另外textbox的IMEmode 要改成805/14 11:14

15^F→waiter337: 如果想全靠鍵盤操作05/14 11:15

16^F→waiter337: 可以把前三行取消05/14 11:15

17^F→waiter337: 改用05/14 11:16

18^F→waiter337: Private Sub a_KeyDown(ByVal KeyCode As MSFors.Retur05/14 11:17

19^F→waiter337: nInteger, ByVal Shift As Integer)05/14 11:17

20^F→waiter337: If KeyCode = 13 Or KeyCode = 9 Then05/14 11:17

21^F→waiter337: Application.EnableEvents = False05/14 11:17

22^F→waiter337: Call cal05/14 11:17

23^F→waiter337: KeyCode = 005/14 11:18

24^F→waiter337: b.SetFocus05/14 11:18

25^F→waiter337: Application.EnableEvents = True05/14 11:18

26^F→waiter337: End If05/14 11:18

27^F→waiter337: End Sub\05/14 11:18

28^F→waiter337: \ 刪掉不小心按到05/14 11:19

[VBA ] 奇怪的程式碼解析

[ Visual_Basic ]18 留言, 推噓總分: +2

作者: springleaf1 - 發表於 2021/04/20 17:38(4年前)

1^F推waiter337: 1.轉成文字型態以免被加總或者計算04/21 02:09

2^F→waiter337: 2.轉成文字型態以免被儲存格自動轉成數字04/21 02:10

3^F→waiter337: 3.故意在第一個文字前面加空格為了編排整齊04/21 02:12

4^F→waiter337: 但負數不會增加04/21 02:12

5^F→waiter337: 也就是有負數跟正數同時產生時為了編排美觀04/21 02:13

6^F→waiter337: 讓報表趨於整齊美觀04/21 02:13

7^F→waiter337: 4.此工程師有強迫症04/21 02:13

8^F→waiter337: 5.如果該資料後期有需要額外運用會非常妨礙運行04/21 02:14

15^F推waiter337: 如果是西瓜是 " 1 西瓜"04/21 15:20

16^F→waiter337: 如果是空顯示 "1"04/21 15:21

17^F→waiter337: 如果是-1 西瓜會顯示 "-1 西瓜"04/21 15:21

18^F→waiter337: M大可以試試看喔04/21 15:22

[VBA ] Range.Find無法搜尋日期

[ Visual_Basic ]5 留言, 推噓總分: +2

作者: unfinish - 發表於 2021/03/19 10:20(4年前)

3^F推waiter337: set oRng = range("b:b").find(datevalue(range("a1"))04/05 03:24

4^F→waiter337: ,lookin:=xlvalues)04/05 03:25

5^F推waiter337: 可以不加set04/18 10:32

[VBA ] 固定或靜態資料不能大於64K

[ Visual_Basic ]14 留言, 推噓總分: +4

作者: lunsun - 發表於 2021/01/18 15:31(5年前)

1^F推waiter337: 用另一個陣列輔助馬總統說過一個不夠可以吃兩個!02/16 03:01

2^F推waiter337: redim 只適用於一開始就直接變更02/16 03:03

3^F→waiter337: 之後變更只會更慢02/16 03:04

4^F→waiter337: 就算redim 上限也是64k02/16 03:04

5^F→waiter337: 要怎麼切就要看個人判斷了02/16 03:07

6^F→waiter337: 關於陣列上限剛測過了一下02/16 03:15

7^F→waiter337: 我的記憶體64m ReDim Tester(178599999)02/16 03:15

8^F→waiter337: 還能跑得動02/16 03:15

9^F→waiter337: 如果上道178999999就記憶體不足02/16 03:16

10^F推waiter337: 目前你的需求要56864602/16 03:27

11^F→waiter337: 另外一台16G的電腦13384349902/16 03:33

12^F→waiter337: 順便更正一下我64G的電腦空閒記憶體只有50G02/16 03:34

13^F→waiter337: 16G的電腦空閒記憶體只有12.6G02/16 03:35

14^F推waiter337: 通常建議直接dim完下一行就接著redim 你的預估大小04/05 03:29

[VBA ] 刪除儲存格資料

[ Visual_Basic ]14 留言, 推噓總分: +4

作者: ChenStar - 發表於 2020/10/08 14:34(5年前)

12^F推waiter337: x=[al]04/22 12:45

13^F→waiter337: cells.ClearContent04/22 12:46

14^F→waiter337: [a1]=x04/22 12:46

[VBA ] 請問Set range的問題

[ Visual_Basic ]13 留言, 推噓總分: +3

作者: burberrylai - 發表於 2020/07/27 04:51(5年前)

4^F推waiter337: 這樣才是正確阿08/05 03:00

5^F→waiter337: 首先一定要變成數字這樣才是正確的08/05 03:02

6^F→waiter337: 而你後面想要做什麼再變08/05 03:02

7^F→waiter337: worksheet 上雖然你看到的是有格式的顯示08/05 03:03

8^F→waiter337: 但他背後底層還是數字08/05 03:03

9^F→waiter337: 然後再把你這串數字做任何處理看你要怎麼用08/05 03:04

10^F→waiter337: 依照你目前的狀況08/05 03:05

11^F→waiter337: 假如你貼上的位置是A欄好了08/05 03:07

12^F→waiter337: 那麼就直接錄個把A欄全部自動變成年/月/日的程序08/05 03:07

13^F→waiter337: 也就是年月日>複製變數字>貼A欄>A欄轉格式年月日08/05 03:08

[VBA ] 模糊搜尋

[ Visual_Basic ]15 留言, 推噓總分: +5

作者: bchoice - 發表於 2020/05/26 17:03(5年前)

11^F推waiter337: instr find like 這三個都能用用法都不同07/15 00:50

12^F→waiter337: 需要找範例來看07/15 00:50

13^F→waiter337: 依照你迴圈要用的話建議用instr配合>0判斷07/15 00:52

14^F→waiter337: 但反而是刪除的方式要考慮,如果超過20個,不建議這樣做07/15 00:54

15^F→waiter337: 會刪很久可以關鍵字 union delete vba07/15 00:54

[VBA ] 如何跨電腦自動運算儲存

[ Visual_Basic ]8 留言, 推噓總分: +2

作者: nobody0303 - 發表於 2020/07/03 18:04(5年前)

4^F推waiter337: google還比較可能但會用上 google的app script07/12 13:25

5^F→waiter337: a->google sheet ->b07/12 13:26

6^F→waiter337: 應該是a->google sheet07/12 13:28

7^F→waiter337: b會定時去掃->google sheet07/12 13:28

8^F→waiter337: 但會有時間差不過現在youtu大神教到哪我也不清楚07/12 13:28

[VBA ] 遇到疑似日期的內容複製就會出錯

[ Visual_Basic ]8 留言, 推噓總分: +2

作者: D600dust - 發表於 2019/12/23 15:56(6年前)

5^F推waiter337: 直接用datevalue() 包起來02/15 18:27

首頁

尾頁