Создать TxtBox, который получает значения из определенных ячеек - PullRequest
0 голосов
/ 26 марта 2019

Я пытаюсь создать визуальное продолжение для компании, на которую я работаю.

Я хочу иметь конкретную визуализацию некоторых данных. Но поскольку столбцы не соответствуют этим данным, я не могу получить их полностью визуально. «Смотри картинку Note1»

Snippet of the report

Теперь я думал о том, чтобы создать текстовый блок, который будет иметь правильный размер, и поместить его туда, где я хочу, и чтобы все значения могли быть показаны.

Поэтому мне нужно скопировать значения из U44: X48 в txt.box. «Смотри картинку Note2» Я хотел бы сохранить форматирование, если это возможно, чтобы цифры индекса были зеленого или красного цвета.

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

1 Ответ

0 голосов
/ 26 марта 2019

Текстовые поля не подходят для форматированного текста.

Почему бы вам просто не разбить столбец F на 2 или более столбцов, сделать их меньше и, например, позволить значению ячейки перекрывать столбцы, где вы вычеркнуты черным? При необходимости вы также можете объединить ItemName поверх столбца F в H (в примере ниже).

enter image description here

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...