|
подстановка значений из формы в таблицу
|
|||
---|---|---|---|
#18+
Люди, помогите! есть форма из которой значения по нажатии кнопки переносятся в таблицу на листе. в форме есть чекбокс. как написать в коде, чтобы, если чекбокс имеет значение истина, то в ячейку таблицы подставлялось слово "да", если ложь - "нет". написала вот так, но почему то ругается, что "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 Благодарю за помощь! ... |
|||
:
Нравится:
Не нравится:
|
|||
15.08.2012, 11:15 |
|
подстановка значений из формы в таблицу
|
|||
---|---|---|---|
#18+
Код: vbnet 1. 2. 3. 4. 5.
Код: vbnet 1.
Код: vbnet 1.
... |
|||
:
Нравится:
Не нравится:
|
|||
15.08.2012, 11:26 |
|
|
start [/forum/topic.php?fid=61&msg=37917223&tid=2175466]: |
0ms |
get settings: |
8ms |
get forum list: |
11ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
28ms |
get topic data: |
8ms |
get forum data: |
2ms |
get page messages: |
32ms |
get tp. blocked users: |
1ms |
others: | 12ms |
total: | 108ms |
0 / 0 |