PTT數位生活區 / Office

[算表] msgbox 顯示多行迴圈問題?

看板Office作者 (佩蒂吉他)時間8年前 (2018/04/23 10:46), 8年前編輯推噓0(0推 0噓 9→)
留言9則, 2人參與, 8年前最新討論串1/1
軟體:excel 版本:2007 若是我有弄一個表單 姓名欄位在A2-A10 生日欄位在B2-B10 性別欄位在C2-c10 葷素食在 D2-D10 想要有個按鈕就是可以顯示出msgbox 為 姓名-生日-性別-葷素食 姓名1-生日1-性別1-葷素食1 . . . . 但是就是資料有多少顯示多少欄位 例如可能只有到A6有資料 不知道msgbox 跳出的時候要怎麼寫 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 60.250.67.78 ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1524451604.A.021.html
→
04/23 11:08, 8年前 , 1F
巢狀迴圈於列、欄；取得列最後一筆有值的列號range.end().
04/23 11:08, 1F
→
04/23 11:09, 8年前 , 2F
row。字串累加連接，變數 & range.offset()，列欄的偏移值
04/23 11:09, 2F
→
04/23 11:09, 8年前 , 3F
以巢狀迴圈的變動值帶入
04/23 11:09, 3F
→
04/23 11:09, 8年前 , 4F
斷行可以chr(10)或vbcrlf；中間分隔符號一樣以&來連接
04/23 11:09, 4F
→
04/23 11:10, 8年前 , 5F
最後以msgbox帶出該字串變數
04/23 11:10, 5F
不知道這樣寫有什麼地方要改 都會傳最後一筆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
→
04/23 14:32, 8年前 , 6F
二個msg寫一個就好，msg = msg & vbcrlf & range("a"&j)..
04/23 14:32, 6F
→
04/23 14:33, 8年前 , 7F
寫二個的話，頭一個msg = range("a"&j)...改為msg = msg &
04/23 14:33, 7F
→
04/23 14:33, 8年前 , 8F
range("a" &j)...
04/23 14:33, 8F
→
04/23 14:41, 8年前 , 9F
感謝S大 果然可以
04/23 14:41, 9F
‣ 更多 ptguitar 的文章
文章代碼(AID): #1QtKaK0X (Office)
Office 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 ptguitar 的文章
文章代碼(AID): #1QtKaK0X (Office)