1

У меня есть две таблицы. Первый имеет таблицу чисел. Второй имеет отформатированные текстовые ячейки. Когда пользователь нажимает на ячейку в первой электронной таблице, я хочу показать диапазон отформатированных ячеек со второго листа.

Кажется, что MsgBox слишком ограничен для этого. Как я могу создать собственное всплывающее окно? Я знаю, что для получения содержимого диапазона ячеек в оригинальном формате я могу использовать инструмент быстрого доступа к камере. При этом я мог бы создать набор статических изображений, содержащих диапазоны ячеек со второго листа. Но я хочу, чтобы пользователь мог показывать только одно изображение за раз при нажатии на данную ячейку. Могу ли я выбрать изображение из ячейки для отображения в комментарии?

2 ответа2

0

Этот код VBA (Макрос) поможет вам вывести на экран соответствующие данные из Целевого листа.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Intersect(Target, Range("A1:A9")) Is Nothing Then Exit Sub

Dim DataSheet As Range

Set DataSheet = Worksheets("Sheet2").Range("A17:F24")

Str1 = WorksheetFunction.VLookup(Target, DataSheet, 2, False)
Str2 = WorksheetFunction.VLookup(Target, DataSheet, 3, False)
Str3 = WorksheetFunction.VLookup(Target, DataSheet, 4, False)
Str4 = WorksheetFunction.VLookup(Target, DataSheet, 5, False)
Str5 = WorksheetFunction.VLookup(Target, DataSheet, 6, False)

MsgBox Str1 & vbCr & Str2 & vbCr & Str3 & vbCr & Str4 & vbCr & Str5, vbOKOnly, "Data to Display"

End Sub

Как это устроено:

  • Механизм этого кода - функция VLOOKUP :
  • Как только вы щелкнете по любой ячейке в исходном листе в Range (A1:A9) , этот код будет искать и отображать соответствующие данные из целевого листа ( диапазон 2 листа Range (A17:F24)) .

NB

  • В этом коде Имя листа, ссылки на позиции столбцов (с Vlookup) доступны для редактирования.
  • При необходимости измените ссылки на ячейки в этом коде.
0

Вы должны будете написать свой собственный диалог в VB.
Msgbox - как следует из названия - для текстовых сообщений пользователю.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .