如何解决如何在 excel vba 中连接文本和数字并在消息框中打印出来?
假设我有下表
身份证 |名字 |姓氏 |总收入
3 |布拉布拉 |布拉巴 | 150000
任务是找到 ID 号为 3 的行,并在消息框中打印出“Blabla Blabla 总共产生了 150000 收入”
我是 VBA 新手。你能帮我吗?
解决方法
可以使用 &
运算符连接单元格值以及 VBA 中的其他字符串。
例如: 要以消息框中提供的格式打印第 3 行单元格值,请使用以下子例程:
Sub mbox()
MsgBox Cells(4,2) & " " & Cells(4,3) & " has generated " & Cells(4,4) & " revenue overall."
End Sub
,
使用 Replace
Option Explicit
Sub test()
Call message(3)
End Sub
Sub message(id As String)
Const msg = "? has generated $ revenue overall."
Dim rng As Range,s As String
Set rng = Range("Table1[ID]").Find(id)
If rng Is Nothing Then
MsgBox "Could not locate " & id,vbExclamation
Else
s = Replace(msg,"?",rng.Offset(0,1) & " " & rng.Offset(0,2))
s = Replace(s,"$",Format(rng.Offset(0,3),"#,##0"))
MsgBox s
End If
End Sub
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。