Excel сопоставляет значения ячеек в комментарии - PullRequest
0 голосов
/ 15 мая 2019

Я хочу, чтобы мой Excel автоматически преобразовывал соответствующие значения ячеек в комментарии.На листе 1 у меня есть набор названий мобильных брендов в первой строке от «A1» до «L1», а на листе 2 первый столбец A имеет тот же набор названий мобильных брендов, но значение повторяется в том же столбце и в столбце.B имя клиента, который покупает мобильный телефон.

Если значения ячеек названия мобильного бренда совпадают на обоих листах.Затем он должен получить имя клиента в листе 2, столбец B и преобразовать его в комментарии в первой строке «A1» в «L1».Пожалуйста, кто-нибудь, дайте мне знать любой возможный код.

Этот код помогает мне добавлять комментарии в первой строке, если sheet1, но мне нужно точное значение в столбце B, которое соответствует значению ячейки.

Sub test()
    Dim rngDB As Range, rngComent As Range
    Dim rng As Range
    Dim cm As Comment, i as integer
    Set rngComent = Sheets(1).Range("a1:l1")
    Set rngDB = Sheets(2).Range("b1:b20")

    For Each rng In rngComent
        i = i + 1
        If Not rng.Comment Is Nothing Then
            rng.Comment.Delete
        End If
        Set cm = rng.AddComment
        With cm
            .Visible = False
            .Text Text:=rngDB(i).Value
        End With
    Next rng
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...