作者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/cn.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