powered by simpleCommunicator - 2.0.58     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / подстановка значений из формы в таблицу
3 сообщений из 3, страница 1 из 1
подстановка значений из формы в таблицу
    #37917169
LediJuliya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Люди, помогите!
есть форма из которой значения по нажатии кнопки переносятся в таблицу на листе. в форме есть чекбокс. как написать в коде, чтобы, если чекбокс имеет значение истина, то в ячейку таблицы подставлялось слово "да", если ложь - "нет". написала вот так, но почему то ругается, что "Else without If". ничего не понимаю

Private Sub CommandButton1_Click()

[A3].Select

Do Until Selection = ""
Selection.Offset(1, 0).Select

Loop

Selection.Offset(0, 22) = полотно1.Text
Selection.Offset(0, 26) = полотно2.Text
Selection.Offset(0, 30) = ТипСпайки.Text
Selection.Offset(0, 31) = КолСпаек.Value
If CheckBox.Value = True Then Selection.Offset(0, 14) = "да"
Else: Selection.Offset(0, 14) = "нет"
End If

стоимость.Text = Selection.Offset(0, 4)

End Sub

Благодарю за помощь!
...
Рейтинг: 0 / 0
подстановка значений из формы в таблицу
    #37917194
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: vbnet
1.
2.
3.
4.
5.
If CheckBox.Value = True Then
  Selection.Offset(0, 14) = "да"
Else
  Selection.Offset(0, 14) = "нет"
End If



Код: vbnet
1.
If CheckBox.Value = True Then Selection.Offset(0, 14) = "да" Else Selection.Offset(0, 14) = "нет"



Код: vbnet
1.
Selection.Offset(0, 14) = IIf(CheckBox.Value, "да", "нет")
...
Рейтинг: 0 / 0
подстановка значений из формы в таблицу
    #37917223
LediJuliya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Shocker.Pro,

Спасибо огромное!!!
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / подстановка значений из формы в таблицу
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]