Как взять текст из ячейки и ввести его в VBA? - PullRequest
Новая
       19

Как взять текст из ячейки и ввести его в VBA?

0 голосов
/ 10 декабря 2018

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

Однако одинадрес электронной почты должен быть изменяем конечным пользователем.

Поэтому я хочу выпадающий список, где вы выбираете указанную электронную почту, и затем он вводит его в код VBA.

Я знаю, в основномничего о VBA, и я не мог найти способ сделать это путем поиска по сети.

Я подумал, что мне нужен какой-то способ задания переменной для чтения ячейки (выпадающая ячейка), а затем введитев MailEnvelope Item.CC, но я изо всех сил.

Буду признателен за любую помощь.

Это то, что я имею до сих пор; 

Sub Send_Range_Email()

' Select the range of cells on the active worksheet.
ActiveSheet.Range("B6:D302").Select

' Show the envelope on the ActiveWorkbook.
ActiveWorkbook.EnvelopeVisible = True

' Set the optional introduction field thats adds
' some header text to the email body. It also sets
' the To, CC and Subject lines.

With ActiveSheet.MailEnvelope
  .Introduction = ""
  .Item.To = "Email 0"
  .Item.Subject = "Email Tracker Results"
  .Item.CC = "Email 1" & text input here & "Email 2"
End With
End Sub

1 Ответ

0 голосов
/ 10 декабря 2018

При использовании формул, если вы хотите поместить туда переменную, просто разбейте ее на части и добавьте в переменную.Как было сказано, 

.Item.CC = "email 1" & "," & Range("A1").Value & ", " & "Email 2"

Итак, чтобы прояснить ситуацию супер, скажем, мы хотим добавить значение A1 в эту строку: str = The man lives in STATE all the time, выполнив str = "The man lives in " & Range("A1").Value & " all the time"

...