VBA Изменить значение в текстовом поле в зависимости от того, являются ли другие текстовые поля пустыми - PullRequest
Новая
       11

VBA Изменить значение в текстовом поле в зависимости от того, являются ли другие текстовые поля пустыми

0 голосов
/ 06 октября 2018

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

Разбивка

  • Имя текстового поля 1 = arisk_box
  • Имя текстового поля 2 = Adjust_box3
  • Имя текстового поля 3 = rr_box

Этоэто то, что у меня так далеко: 

Private Sub arisk_box_Change()
If arisk_box.Text <> "" And adjust_box3.Text = "" Then
    rr_box.Value = arisk_box.Value
 ElseIf arisk_box.Text <> "" And adjust_box3.Text <> "" Then
    rr_box.Value = adjust_box3.Value
 End If
 End Sub

   *If arisk_box has a *VALUE* and adjust_box3 *DOES NOT* then rr_box = the value from arisk_box
  Elseif arisk_box AND adjust_box3 both have a *VALUE* then rr_box = the value from adjust_box3

1 Ответ

0 голосов
/ 07 октября 2018

Самый простой способ - использовать 2 отдельных макроса, по одному для каждого события изменения текстового поля.Но это может работать не так гладко, как вы этого хотите.Я уверен, что у кого-то будет более продвинутый метод. 

Private Sub adjust_box3_Change()
    If arisk_box <> "" And adjust_box3 = "" Then rr_box = arisk_box
End Sub

Private Sub arisk_box_Change()
    If arisk_box <> "" And adjust_box3 <> "" Then rr_box = adjust_box3
End Sub
...