Код VBA для копирования содержимого ячейки во входящее сообщение (проверка)

Question

Я вообще не технический специалист, но мне нужна помощь по копированию содержимого ячейки во входное сообщение при проверке данных в Excel.Я знаю, что есть ограничение на текстовую строку во входном сообщении, с удовольствием обрезать содержимое ячейки, прежде чем пытаться запустить макрос.

Спасибо!

Белль

Answer 1

Благодаря удачному объяснению, с помощью приведенного ниже кода вы можете скопировать значение ячейки в другую ячейку.При модификации кода у вас могут возникнуть желаемые доходы.

Попробуйте:

Option Explicit
Sub test()

    Dim str As String

    With ThisWorkbook.Worksheets("Sheet1")

        str = Application.Clean(Application.Trim(.Range("A1").Value))

        'Copy A1 value to A2
        .Range("A2").Value = str

        'Use A1 value as message on message box
        MsgBox str

        'Use A1 value as data validation on A2
        With Range("A2").Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
            xlBetween, Formula1:=str
            .IgnoreBlank = True
            .InCellDropdown = True
            .ShowInput = True
            .ShowError = True
        End With

    End With

End Sub