作者ptguitar (佩蒂吉他)
看板Office
標題[算表] msgbox 顯示多行迴圈問題?
時間Mon Apr 23 10:46:41 2018
軟體:excel
版本:2007
若是我有弄一個表單
姓名欄位在A2-A10
生日欄位在B2-B10
性別欄位在C2-c10
葷素食在 D2-D10
想要有個按鈕就是可以顯示出msgbox
為 姓名-生日-性別-葷素食
姓名1-生日1-性別1-葷素食1
.
.
.
.
但是就是資料有多少顯示多少欄位
例如可能只有到A6有資料
不知道msgbox 跳出的時候要怎麼寫
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 60.250.67.78
※ 文章網址: https://webptt.com/m.aspx?n=bbs/Office/M.1524451604.A.021.html
1F：→ soyoso: 巢狀迴圈於列、欄；取得列最後一筆有值的列號range.end(). 04/23 11:08
2F：→ soyoso: row。字串累加連接，變數 & range.offset()，列欄的偏移值 04/23 11:09
3F：→ soyoso: 以巢狀迴圈的變動值帶入 04/23 11:09
4F：→ soyoso: 斷行可以chr(10)或vbcrlf；中間分隔符號一樣以&來連接 04/23 11:09
5F：→ soyoso: 最後以msgbox帶出該字串變數 04/23 11:10
不知道這樣寫有什麼地方要改 都會傳最後一筆XD
Sub test()
Dim msg As String, i As Integer
i = Range("A100").End(xlUp).Row
For j = 1 To i
msg = Range("A" & j) & "-" & Range("B" & j) & "-" _
& Range("C" & j) & "-" & Range("D" & j)
msg = msg & vbCrLf
Next j
MsgBox msg
End Sub
※ 編輯: ptguitar (60.250.67.78), 04/23/2018 13:54:57
6F：→ soyoso: 二個msg寫一個就好，msg = msg & vbcrlf & range("a"&j).. 04/23 14:32
7F：→ soyoso: 寫二個的話，頭一個msg = range("a"&j)...改為msg = msg & 04/23 14:33
8F：→ soyoso: range("a" &j)... 04/23 14:33
9F：→ ptguitar: 感謝S大 果然可以 04/23 14:41