创建从特定单元格获取值的TxtBox

Question

我正在尝试为所工作的公司创建视觉跟进。

我想对某些数据进行特定的可视化处理。但是由于列与该数据不一致，因此我无法完全看到它。 “请参阅图片Note1”

现在我正在考虑创建一个txt框，该框将是正确的大小，并将其放在我想要的位置，以便可以显示所有值。

因此，我需要将U44：X48中的值复制到txt.box中。 “参见图片注2” 我想尽可能保留格式，以便索引数字为绿色或红色。

Private Sub TextBox1_Change()
    TextBox1.MultiLine = True

    'vbNewLine (same as vbCrLf?)  
    'TextBox1.Value = CStr(Range("U45").Value) & vbCrLf & CStr(Range("U46").Value) & vbCrLf & CStr(Range("U47").Value)
     (same as code below?)



    TextBox1.Value = Range("U45").Value & vbCrLf & Range("U46").Value & vbCrLf & Range("U47").Value


End Sub

Answer 1

文本框不适用于格式化的文本。

为什么不将F列拆分为2个或更多列以使其更小，例如让单元格值与用黑色划痕的列重叠呢？如果需要，您还可以将F列上的ItemName合并到H（在下面的示例中）。