[發問] 請教 陣列/數組 如何每5個一行顯示 出來??

帖子: 79
主題: 19
精華: 0
積分: 148
點名: 0
作業系統: WINDOW7
軟體版本: EXCEL 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-5-21
最後登錄: 2023-3-13

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2020-7-10 22:15 | 只看該作者

[發問] 請教陣列/數組如何每5個一行顯示出來??

請教

問題1 如何可以每5個一行 MSGBOX 顯示出來
問題2 如何知道數組的總個數??

現在只能一次過顯示

謝謝各位

test.PNG (68.66 KB)

樓主熱帖

帖子: 79
主題: 19
精華: 0
積分: 148
點名: 0
作業系統: WINDOW7
軟體版本: EXCEL 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-5-21
最後登錄: 2023-3-13

6^#

發表於 2020-7-11 16:37 | 只看該作者

謝謝教學!!!!!!!!!!!!!!!!!!!!!!

https://blog.xuite.net/hcm19522/twblog/589224129

hcm19522

大學生 Rank: 4

帖子: 1387
主題: 4
精華: 0
積分: 1397
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2024-11-25

熱烈參與勳章

5^#

發表於 2020-7-11 15:44 | 只看該作者

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

帖子: 79
主題: 19
精華: 0
積分: 148
點名: 0
作業系統: WINDOW7
軟體版本: EXCEL 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-5-21
最後登錄: 2023-3-13

4^#

發表於 2020-7-11 14:02 | 只看該作者

回復 3# quickfixer

謝謝你的幫助啊!!!

但能解說一下沒用過IIF 這方式

quickfixer

帖子: 154
主題: 1
精華: 0
積分: 200
點名: 30
作業系統: windwos 7
軟體版本: 64bit
閱讀權限: 20
註冊時間: 2017-5-29
最後登錄: 2024-11-25

3^#

發表於 2020-7-11 01:47 | 只看該作者

回復 2# adrian_9832

Sub test()
lastrow = Range("A1").CurrentRegion.Rows.Count
For i = 1 To lastrow
s = s & Cells(i, 1) & IIf(i Mod 5 = 0, vbNewLine, IIf(i = lastrow, "", ","))
Next i
MsgBox s
End Sub

帖子: 79
主題: 19
精華: 0
積分: 148
點名: 0
作業系統: WINDOW7
軟體版本: EXCEL 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-5-21
最後登錄: 2023-3-13

2^#

發表於 2020-7-10 23:37 | 只看該作者

不好意思更正每五個一列顯示