Excel VBA用户窗体文本框如何多行显示所有温度转换结果？

核心问题分析 #

你遇到的情况是因为每次赋值都直接覆盖了文本框原有内容，加上可能没开启文本框的多行模式，导致只显示最后一条结果。按下面两步调整就能解决：

1. 开启文本框的多行模式 #

必须确保文本框的MultiLine属性为True，这是多行显示的前提：

• 设计模式下选中文本框，打开属性窗口（按F4），找到MultiLine选项，设置为True；
• 也可以在用户窗体初始化代码里强制设置：

  Private Sub UserForm_Initialize()
      TextBox1.MultiLine = True
      TextBox1.ScrollBars = fmScrollBarsVertical ' 若需要垂直滚动条可加这行
  End Sub
  

2. 修改赋值逻辑，采用累加拼接 #

不要直接用TextBox1.Text = 新内容覆盖原有内容，而是把新结果拼接到已有内容后面，再加上换行符：

错误示例（仅显示最后一条）：

' 假设startTemp和endTemp是你指定的温度区间整数
Dim f As Integer, c As Double
For f = startTemp To endTemp
    c = (f - 32) * 5 / 9
    TextBox1.Text = f & "°F = " & Round(c, 2) & "°C" ' 每次覆盖，只留最后一条
Next f

正确示例（多行累加显示）：

Dim f As Integer, c As Double
' 先清空文本框，避免重复加载内容
TextBox1.Text = ""
For f = startTemp To endTemp
    c = (f - 32) * 5 / 9
    ' 拼接原有内容 + 新结果 + 换行符（vbCrLf或vbNewLine都可用）
    TextBox1.Text = TextBox1.Text & f & "°F = " & Round(c, 2) & "°C" & vbCrLf
Next f
' 自动滚动到最后一行，方便查看最新结果
TextBox1.SelStart = Len(TextBox1.Text)

内容的提问来源于stack exchange，提问作者CE113