首页 > 解决方案 > 如何从参考单元格中获取 msgbox 文本,其中包括换行符

问题描述

编辑:所有回复都错过了我的意思,所以我删除了任何提及特殊字符的内容,只想专注于换行符vbCrLf

我有一个从一系列单元格填充的组合框,我希望根据用户在所述组合框中的选择弹出一个 msgbox,这样 msgbox 文本取自与用户所选单元格相对应的单元格(即链接的单元格到用户的 cbox 选择)。例如:

用户选择 消息框文本
围巾 这是40度。
你确定要围巾吗?
游泳短裤 别忘了你的防晒霜!

所以这就是尝试从单元格而不是从 VB 填充 cbox 的原因。

我的问题是如何在参考单元格中写入换行符 和特殊字符并正确设置 msgbox 格式。

MsgBox "It's 40 degrees." & vbCrLf & "Are you sure you want a scarf?"做我想要的,但是如果我将该文本放在一个单元格中,然后尝试使用 msgbox 引用该单元格,例如MsgBox Sheet1.Range("B2"),那么 msgbox 只打印文本而不进行格式化。

例如https://imgur.com/a/Hi3HVWG

拜托,这里的任何帮助将不胜感激

标签: excelvba

解决方案


要在单元格中添加换行符,如果您从工作表中输入:

A1: ="abc" & CHAR(10) & "def"

对于linefeed字符,您可以键入abcalt+enterdef

在此处输入图像描述

如果您从 VBA 输入它,那么代码行将是:

Range("A1")  = "abc" & vblf & "def"

推荐阅读