TextBox в MsgBox

[segail]

Здравствуйте.
Подскажите как вывести в “Сообщение1” три TextBox, чтобы при клике по Yes данные ТextBox вводились в нужные ячейки.

If MsgBox(IIf(CDbl(TextBox1.Text) <> 0,"Сообщение1", "Сообщение2"), vbYesNo + vbExclamation, "Информационное сообщение") = vbNo Then Exit Sub

[аналитика]

не понятно, что ты хочешь...

[alex77755]

Dim S

S = "сообщение1" & vbCrLf & "сообщение2" & vbCrLf & "сообщение3"

S = MsgBox(IIf(CDbl(TextBox1.Text) <> 0, S, "Сообщение2"), vbYesNo)

Select Case S
Case 6
Cells(1, 1) = "Сообщение1"
Cells(2, 1) = "Сообщение2"
End Select

[segail]

Сообщение от alex77755

Dim S

S = "сообщение1" & vbCrLf & "сообщение2" & vbCrLf & "сообщение3"

S = MsgBox(IIf(CDbl(TextBox1.Text) <> 0, S, "Сообщение2"), vbYesNo)

Select Case S
Case 6
Cells(1, 1) = "Сообщение1"
Cells(2, 1) = "Сообщение2"
End Select

A TextBox на сообщение как? Чтобы самому вводить нужные значения.

[segail]

Скинул пример сообщения, который выполнен с применением формы.
Код данной формы рабочий, только он не будет работать в данном примере нет некоторых параметров.
Можно это как то перенести в сообщение?

[alex77755]

Ты можешь изъяснятьс понятно?
Что конкретно тебе надо?
Вместо "Сообщение" выводило значение из тексбоксов?
А самому заменить религия не позволяет?

S = TextBox1.Text & vbCrLf & TextBox2.Text & vbCrLf & TextBox3.Text

Cells(1, 1) = TextBox1.Tex
Cells(2, 1) = TextBox2.Tex

Что из этого тебе надо выести и когда

    Cells(i + 35, 21).Value = CDbl(UserForm4.TextBox1.Text) + Cells(i + 35, 21).Value
    UserForm4.Label2.Visible = True
    UserForm4.Label2.Caption = "За " & UserForm4.ComboBox1.Text _
    & " месяц списано " & UserForm4.TextBox1.Text _
    & " л. (см. данные в нижней части отчета)"
    
            If Cells(i + 35, 6).Value > "" Then
                Cells(i + 35, 6).Value = Cells(i + 35, 6) & " " _
                & TextBox2.Value & " № " & TextBox3.Value _
                & " от " & TextBox1.Value & " /"
            
            Else: Cells(i + 35, 6).Value = "/ " & TextBox2.Value & " № " _
            & TextBox3.Value & " от " & TextBox1.Value & " /"
                Unload Me

вё что назначаешь лабелу или ячейке - назнач S и выведи в месагу.
vbCrLf делает перенос строки

Чтобы самому вводить нужные значения.

Нужно юзать InputBox

[segail]

Посмотрите второй пример и Вы поймете.
Все должно быть так как в примере только форму2 необходимо заменить сообщением.

[alex77755]

Sub Кнопка1_Щелчок()
Dim S, P
S = "ВНИМАНИЕ!"
S = S & "Списание нефтепродуктов в пределах норм естественной убыли" _
& " до установления факта недостачи запрещается." & vbCrLf
S = S & "Списание производится только после выполнения инвентаризации" _
& " и определения количества выявленных недостач." & vbCrLf
S = S & "Данные инвентаризации и списание документально должны быть зафиксированы и" _
& " заверены ответственными лицами, в противном случае списание является не действительным." & vbCrLf
S = S & "Показателем проведения инвентаризации является ячейка окрашенная в желтый цвет."
S = S & "На данный момент производится списание объема недостачи в количестве" & vbCrLf
S = S & "Продолжить ввод данных?"
 P = "Дата списания/" & Date & "/" _
 & "Наименование документа/АКТ/ " _
 & "Номер докамента/55/"
S = InputBox(S, "Введитн данные в нужных местах оставив слеши как раSub Кнопка1_Щелчок()
Dim S, P
S = "ВНИМАНИЕ!"
S = S & "Списание нефтепродуктов в пределах норм естественной убыли" _
& " до установления факта недостачи запрещается." & vbCrLf
S = S & "Списание производится только после выполнения инвентаризации" _
& " и определения количества выявленных недостач." & vbCrLf
S = S & "Данные инвентаризации и списание документально должны быть зафиксированы и" _
& " заверены ответственными лицами, в противном случае списание является не действительным." & vbCrLf
S = S & "Показателем проведения инвентаризации является ячейка окрашенная в желтый цвет."
S = S & "На данный момент производится списание объема недостачи в количестве" & vbCrLf
S = S & "Продолжить ввод данных?"
 P = "Дата списания/" & Date & "/" _
 & "Наименование документа/АКТ/ " _
 & "Номер докамента/55/"
S = InputBox(S, "Введитн данные в нужных местах оставив слеши как разделители", P)
Select Case S
Case ""
Exit Sub
Case Else
Dim M() As String
M = Split(S, "/")
Cells(5, 3) = Trim(M(1))
Cells(6, 3) = Trim(M(3))
Cells(7, 3) = Trim(M(5))
End Select
End Subзделители", P)
Select Case S
Case ""
Exit Sub
Case Else
Dim M() As String
M = Split(S, "/")
Cells(5, 3) = Trim(M(1))
Cells(6, 3) = Trim(M(3))
Cells(7, 3) = Trim(M(5))
End Select
End Sub