Note: The other languages of the website are Google-translated. Back to English

Як vlookup і повернути відповідне значення з коментарем комірки?

Коли ви застосовуєте функцію Vlookup для повернення відповідного значення, вона лише витягує значення без форматування, наприклад, колір заливки, шрифт або коментар тощо. Але іноді вам може знадобитися vlookup і повернути відповідне значення, включаючи коментар. щоб отримати такий результат скріншоту. Як ви могли вирішити цю роботу в Excel?

Перегляд і повернення відповідного значення з коментарем комірки за допомогою коду VBA


Перегляд і повернення відповідного значення з коментарем комірки за допомогою коду VBA

Наведений нижче код VBA може допомогти вам здійснити пошук та повернути відповідне значення з його коментарем. Будь ласка, зробіть наступне:

1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2. Клацання Insert > Модулі, потім скопіюйте та вставте наступний код у Модулі Вікно

Код VBA: Vlookup і повернення відповідного значення з коментарем комірки:

Function VlookupComment(LookVal As Variant, FTable As Range, FColumn As Long, FType As Long) As Variant
'Updateby Extendoffice
    Application.Volatile
    Dim xRet As Variant 'could be an error
    Dim xCell As Range
    xRet = Application.Match(LookVal, FTable.Columns(1), FType)
    If IsError(xRet) Then
        VlookupComment = "Not Found"
    Else
        Set xCell = FTable.Columns(FColumn).Cells(1)(xRet)
        VlookupComment = xCell.Value
        With Application.Caller
            If Not .Comment Is Nothing Then
                .Comment.Delete
            End If
            If Not xCell.Comment Is Nothing Then
                .AddComment xCell.Comment.Text
            End If
        End With
    End If
End Function

3. А потім збережіть код і закрийте вікно коду, введіть цю формулу: = vlookupcomment (H2, A2: C10,3, FALSE) в пусту комірку, щоб знайти результат, і натисніть вводити ключ, відповідне значення, а також коментар повертається відразу, див. скріншот:

примітки: У наведеній вище формулі, H2 - значення підстановки, якому потрібно повернути відповідне значення, A2: C10 - це таблиця даних, яку ви хочете використовувати, номер 3 - номер стовпця, який містить відповідне значення, яке потрібно повернути.


Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (17)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Як би я зробив те саме, що Hlookup замість vlookup?

Я змінив код таким чином:
Функція hlookupComment(LookVal як варіант, FTable як діапазон, Frow As Long, FType як довго) як варіант
'Оновлення Extendoffice
Застосування. Нестабільний
Dim xRet As Variant "може бути помилкою
Dim xCell As Range
xRet = Application.Match(LookVal, FTable.Rows(1), FType)
Якщо IsError(xRet) Тоді
hlookupComment = "Не знайдено"
Ще
Встановіть xCell = FTable.Rows(Frow).Cells(1)(xRet)
hlookupComment = xCell.Value
З Application.Caller
Якщо ні .Коментар – це нічого
.Коментувати.Видалити
End If
Якщо не xCell.Comment - це нічого
.AddComment xCell.Comment.Text
End If
Кінець з
End If
End Function
Цей коментар був мінімізований модератором на сайті
Чи є спосіб, що коментар vlookup копіює форматування вихідного коментаря? Деякі з моїх коментарів дуже довгі, але коментар, який повертає vlookup, завжди має стандартний маленький розмір, тому я не можу прочитати весь текст
Цей коментар був мінімізований модератором на сайті
Привіт, Карл,
Можливо, немає прямого способу вирішення вашої проблеми, але ви можете вручну збільшити поле для коментарів. Або ви можете застосувати нашу функцію автоматичного підбору коментарів Kutools for Excel, це може допомогти вам налаштувати поле коментарів відповідно до вмісту. Дякую!
Цей коментар був мінімізований модератором на сайті
Чи можемо ми використовувати комірку в стовпці B (стовпець порядку) як коментар до комірки в стовпці C (ім’я). відмінно, коментар для Хелен - 80.
Дякую за твою допомогу.
Цей коментар був мінімізований модератором на сайті
Френк
Здравствуйте,

Якщо електронна таблиця захищена, коли я відкриваю свою книгу, клітинка повертає помилку #ЗНАЧЕННЯ!

Як ми можемо вирішити цю проблему?
Цей коментар був мінімізований модератором на сайті
Привіт, Френк,
Після вставки коду ви повинні зберегти книгу у форматі книги Excel з підтримкою макросів, щоб код не втратив.
Будь ласка, спробуй! Дякую!
Цей коментар був мінімізований модератором на сайті
Дякую, це корисно, і я маю про що запитати. Він повертає коментар комірки, але зображення (вставлене за допомогою ефектів заливки) не відображається
Будь ласка, допоможіть мені вирішити цю проблему
Цей коментар був мінімізований модератором на сайті
Шамім,
Вибачте, що немає прямого коду для вирішення вашої проблеми, якщо хтось має рішення, будь ласка, прокоментуйте тут.
Цей коментар був мінімізований модератором на сайті
Мій коментар завеликий для розміру поля за замовчуванням. Чи є спосіб збільшити розмір поля для коментарів або, можливо, зменшити розмір шрифту?
Цей коментар був мінімізований модератором на сайті
Якщо ще комусь це потрібно.


Функція VlookupComment(LookVal як варіант, FTable як діапазон, FColumn як довгий, FType як довгий) як варіант

'Оновлення Extendoffice

Застосування. Нестабільний

Dim xRet As Variant "може бути помилкою

Dim xCell As Range

xRet = Application.Match(LookVal, FTable.Columns(1), FType)

Якщо IsError(xRet) Тоді

VlookupComment = "-"

Ще

Встановіть xCell = FTable.Columns(FColumn).Cells(1)(xRet)

VlookupComment = xCell.Value

З Application.Caller

Якщо ні .Коментар – це нічого

.Коментувати.Видалити

End If

Якщо не xCell.Comment - це нічого

.AddComment xCell.Comment.Text

.Comment.Shape.ScaleWidth 2, msoFalse, msoScaleFromTopLeft

.Comment.Shape.ScaleHeight 2.5, msoFalse, msoScaleFromTopLeft

End If

Кінець з

End If

End Function
Цей коментар був мінімізований модератором на сайті
Я хочу лише коментувати як значення клітинки за допомогою Vlookup...
Цей коментар був мінімізований модератором на сайті
я можу це зробити з першого разу. але після того, як я спробую використати формулу зміни кількох клітинок. Зараз це не працює. навіть після того, як я введу vlookupcomment, клітинка стає порожньою.
Цей коментар був мінімізований модератором на сайті
Привіт! Я дуже радий, що знайшов це, справа в тому, що це насправді працює на нотатках, а не на коментарях. чи є спосіб працювати над коментарями, а не примітками? у нотатках я не можу позначити своїх колег, а також не можу відповісти. дуже дякую!
Цей коментар був мінімізований модератором на сайті
Це чудове. Але під час використання цього коду я виявив, що файл часто виходить з ладу в Excel 365. При видаленні автоматичного збереження я виявив, що він трохи краще. Але якщо у файлі є кілька користувачів, файл постійно аварійно завершується. Чи використовує цей код багато пам’яті чи це проблема сумісності? Думки? Спасибі
Цей коментар був мінімізований модератором на сайті
На мене не працює. Я отримую #NAME? помилка, коли я використовую цю формулу. Будь ласка, допоможіть.
Цей коментар був мінімізований модератором на сайті
Привіт, Саджад! Ви додали код VBA цієї статті у свою робочу книгу? Будь ласка, перевірте це. Або яку версію Excel ви використовуєте? Дякуємо!
Цей коментар був мінімізований модератором на сайті
Привіт, це дуже хороша функція, але вона працює для приміток, а не для коментарів (принаймні так вона перекладається моєю рідною мовою). Чи є спосіб змінити його з «Приміток» на «Коментарі»? Крім того, чи є спосіб зберегти формат осередку? (колір вихідної клітинки тощо).
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця