作者查詢 / 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]關於陣列的直接賦值

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

作者: marki - 發表於 2017/01/26 21:58(9年前)

5^F→waiter337: 直接dim的時後就要給值了唷01/27 01:37

6^F→waiter337: dim arr(10,20,30)01/27 01:37

7^F→waiter337: 但陣列使用上直接賦值我感覺我沒用過(應該是不太會用)01/27 01:38

8^F→waiter337: 而且redim 常常幾乎跟著用到01/27 01:41

9^F→waiter337: 但我不建議使用redim preserve01/27 01:42

10^F→waiter337: 大部份我們不是很專業不是很大量,那就乾脆拿大一點的盤01/27 01:42

11^F→waiter337: 子裝花生比較快01/27 01:42

12^F→waiter337: 建議基本看看之後直接redim成很大的二維陣列01/27 01:43

13^F→waiter337: redim preserve(只限用一維陣列) 一排資料01/27 01:44

14^F→waiter337: 無法使用在二維陣列 ,譬如(100列 x 99行)假設要在加陣01/27 01:46

15^F→waiter337: 列,我印像是如果增加位置可以,但只能加最底下橫列01/27 01:47

16^F→waiter337: 所以一開始我就懶惰的關係,我一開始就會先開好大小01/27 01:48

17^F→waiter337: 只要redim 從最後一排+1的位置開始就可以01/27 01:50

18^F→waiter337: 或者我記反了,只能增加最右邊那直行01/27 01:50

25^F推waiter337: 原來如此01/27 11:21

26^F→waiter337: 沒錯做到這裡我都得在試錯個一兩次經驗還不太多哈01/27 11:22

27^F→waiter337: 哈01/27 11:22

28^F→waiter337: 應該是這樣啦 dim arr()={10,20,30}01/27 11:26

29^F→waiter337: 假如我要用成01/27 11:27

30^F→waiter337: 1,2,301/27 11:27

31^F→waiter337: 4,5,601/27 11:27

32^F→waiter337: 7,8,901/27 11:27

33^F→waiter337: 的3x3 二維陣列01/27 11:27

34^F→waiter337: 就要dim arr(,) ={ {1,2,3} , {4,5,6} , {7,8,9} }01/27 11:28

35^F→waiter337: 或者01/27 11:28

36^F→waiter337: arr(0,0) = 101/27 11:28

37^F→waiter337: arr(0,1) = 201/27 11:29

38^F→waiter337: arr(0,2)=301/27 11:29

39^F→waiter337: arr(1,0)=401/27 11:29

40^F→waiter337: arr(1,1)=501/27 11:29

41^F→waiter337: arr(1,2)=601/27 11:29

42^F→waiter337: arr(2,0)=701/27 11:29

43^F→waiter337: arr(2,1)=801/27 11:29

44^F→waiter337: arr(2,2)=901/27 11:30

45^F→waiter337: 這種一開始要先dim arr 下一行 redim arr(2,2)01/27 11:30

49^F→waiter337: im arr(,) ={ {1,2,3} , {4,5,6} , {7,8,9} } 這個vba01/27 14:55

50^F→waiter337: 好像不能用抱歉01/27 14:56

51^F→waiter337: 是vb跟.net才能用01/27 14:56

52^F→waiter337: 更正vba在dim的時候不能順便賦值01/27 14:59

53^F→waiter337: 包含dim arr(10,20,30) 這個也不行01/27 14:59

54^F→waiter337: 你的方法一,因為A跟Arr是兩個不同變數01/27 15:01

55^F→waiter337: 感謝,我也學到很多01/27 15:04

56^F推waiter337: http://i.imgur.com/SbABe4M.jpg01/27 15:05

57^F→waiter337: 可以參考一下唷01/27 15:05

58^F→waiter337: http://club.excelhome.net/thread-421452-1-1.html01/27 15:06

60^F→waiter337: 不過奇怪的是為什麼arrx是從（1，1）開始的01/28 18:42

[VBA ] OnTime的使用問題

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

作者: wugymcu - 發表於 2017/01/18 14:55(9年前)

2^F→waiter337: http://forum.twbts.com/thread-37-1-1.html01/22 06:01

[VB6/VBA]如何引用 class dll

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

作者: gecer - 發表於 2016/12/11 21:19(9年前)

1^F→waiter337: Private Declaere Function xxxxx Lib "shell32.dll"12/11 22:44

2^F→waiter337: 接上行 Alias "ShellexecuteA" (ByVal hWnd As Long,12/11 22:46

3^F→waiter337: 接上行 ByVal lpOperation As String, Const SW SHOW =12/11 22:48

4^F→waiter337: 接上行 512/11 22:48

5^F→waiter337: ---------------------------------------------------12/11 22:48

6^F→waiter337: Private sub commandbutton1_click() '<-用表單按鈕12/11 22:49

7^F→waiter337: Call xxxxxxx(0&, vbNullString, "http://www.12/11 22:50

8^F→waiter337: 承上 yahoo.com.tw", vbNullString,12/11 22:50

9^F→waiter337: 接上行 vbNormalFocus)12/11 22:51

10^F→waiter337: End sub12/11 22:51

11^F→waiter337: xxxxxx改成Shellexecute12/11 23:07

12^F→waiter337: 第一行 Declaere 改成 Declare12/11 23:11

13^F→waiter337: = =12/11 23:22

14^F→waiter337: https://goo.gl/pwI2ZH 比較快12/11 23:22

[VBA ] 資料在矩陣中可以排序嗎?

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

作者: sanguinemost - 發表於 2016/11/24 13:19(9年前)

4^F推waiter337: excel的排序是用函數一次幫你排好(但原理是什麼我不知12/07 01:22

5^F→waiter337: 如果是用矩陣,矩陣就像撲克牌這樣,你必須一張一張看過12/07 01:23

6^F→waiter337: 利用邏輯排出他的大小,看個人習慣,氣泡(泡沫,冒泡)排序12/07 01:25

7^F→waiter337: 是用兩兩比對,可大至小或者小至大,的一種排序法12/07 01:25

8^F→waiter337: 我印像有4種方式,但建議從大家所知的氣泡排序先學好12/07 01:26

9^F→waiter337: 其他在看心情學12/07 01:26

Re: [VBA ] 根據數字做為重複次數貼上文字值

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

作者: Yaiba - 發表於 2016/11/23 20:13(9年前)

5^F推waiter337: 先給推，慢慢看,這好像是我目前最需要的部份01/24 19:38

[VBA ] Array 多維矩陣要如何是放記憶體?

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

作者: jacky33 - 發表於 2016/11/19 01:26(9年前)

4^F推waiter337: 該不會是set A()= nothing 才對巴 set a 是變數不是矩12/07 03:13

5^F→waiter337: set A = new Collection12/07 03:29

6^F→waiter337: 都試試看看QmQ12/07 03:30

[VBA ] 新手學習VBA問題

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

作者: deron08w - 發表於 2016/11/15 00:02(9年前)

5^F→waiter337: Public Stock As StockData 放在end type 後面看看12/07 03:26

[.NET] 關於sendkeys的相關問題

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

作者: nazomegami - 發表於 2016/11/06 16:45(9年前)

1^F→waiter337: 老實說我也還在當新手= =11/06 22:38

2^F→waiter337: https://goo.gl/BCJ51211/06 22:38

3^F→waiter337: 目前我查到的資料也不知幫不幫的上11/06 22:38

[VBA ] For NEXT 問題

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

作者: oysteromele - 發表於 2016/11/06 14:29(9年前)

1^F→waiter337: 我可以執行說0,0 是否有原檔11/06 22:25

2^F→waiter337: 另外一件事,a欄一定得用文字型態喔,數字就算改了顏色11/06 22:25

3^F→waiter337: 也會被自動修正成黑色11/06 22:25

4^F→waiter337: 就算是格式改成文字也沒用喔,一定要在數字前面加上 '號11/06 22:32

5^F→waiter337: http://imgur.com/a/pBMtZ11/06 22:34

8^F→waiter337: 那可能要用分辨是否為文字的方式如果是文字則會跳過11/09 03:28

9^F→waiter337: 該行11/09 03:28

10^F→waiter337: 是數字就做下去不過我忘了那個函數-m-11/09 03:28

15^F→waiter337: 5天可以這樣感覺頗有天分=,= 看來我不是學這個的料XD11/10 07:24

[VBA ] 詢問指定跳到某持儲存格數直的列數

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

作者: akiaki2007 - 發表於 2016/11/04 15:39(9年前)

3^F→waiter337: Sub 第一種方式()11/10 15:02

4^F→waiter337: 儲存格 = InputBox("請輸入儲存格,例:K2")11/10 15:02

5^F→waiter337: Range(儲存格).Select11/10 15:02

6^F→waiter337: Row = Range(儲存格).Row11/10 15:02

7^F→waiter337: Col = Range(儲存格).Column11/10 15:02

8^F→waiter337: Sheets("工作表1").Cells(Row + 98, Col - 4).Select11/10 15:02

9^F→waiter337: End Sub11/10 15:03

10^F→waiter337: 第三樓複製到第八樓直接貼上就可以用了11/10 15:03

11^F→waiter337: Sub 第二種方式()11/10 15:21

12^F→waiter337: '在 L1 輸入abc行 ,M1輸入123列11/10 15:21

13^F→waiter337: Dim rngCopy As Range11/10 15:21

14^F→waiter337: krow = Range("L1") '<-本身是文字11/10 15:21

15^F→waiter337: kcol = Range("M1").Text '<將數字改文字格式11/10 15:21

16^F→waiter337: 目標row = Range(krow & kcol).Row '找出列11/10 15:21

17^F→waiter337: 目標col = Range(krow & kcol).Column '找出行11/10 15:21

18^F→waiter337: Cells(目標row + 98, 目標col - 4) = _11/10 15:22

19^F→waiter337: Range(krow & kcol).Value '與上一行為同一行11/10 15:23

20^F→waiter337: '^將資料直接丟給目標位置11/10 15:23

21^F→waiter337: End Sub11/10 15:23

22^F→waiter337: 10~20樓直接複製貼上也可以11/10 15:23

23^F→waiter337: 看你要哪種11/10 15:24

24^F→waiter337: Dim rngCopy As Range 這行可以拿掉我多打得11/10 15:25

25^F→waiter337: 差點忘了第一種方式我忘了放入copy11/10 15:30

26^F→waiter337: 第二種方式譬如 L1打K M1打2 就是指向K211/10 15:31

首頁

尾頁