Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Заполнение ячеек при помощи CheckBox
 
#1
23.09.2015 23:07:51
Народ, всем привет!
Столкнулся с непреодалимой для себя задачей в части VBA. Постараюсь описать ее максимально подробно:
В моей рабочей книге имеется UserForm, в котором содержатся CheckBox. Так же в данной книге у меня идет список значений в колонке (А:A). Мне необходимо связать CheckBox с данной колонкой, а именно когда в CheckBox прописываю число(допустим N), то в рабочем листе в ячейке [B(N)] появляется знак "+".
Знатоки, прошу Вашей помощи в написании данного кода
 
 
 
#2
23.09.2015 23:26:40
Цитата
obratka написал: В моей рабочей книге имеется UserForm
У нас этой книги нет )
Цитата
obratka написал: когда в CheckBox прописываю число(допустим N)
N не может быть числом - это текст )
В ЧекБокс вообще нельзя ни число ни текст "прописать": в общем случае этот контрол принимает два значения - Истина и Ложь.
 
 
 
#3
23.09.2015 23:40:53
Цитата
Юрий М написал: В ЧекБокс вообще нельзя ни число ни текст "прописать"
Извините, имел ввиду TextBox.

Цитата
Юрий М написал: У нас этой книги нет )
К сожалению у меня сейчас нет доступа к книге, но обсолютно все ее содержимое я описал выше)
 
 
 
#4
23.09.2015 23:46:34
Цитата
obratka написал: К сожалению у меня сейчас нет доступа к книге
А создать небольшой файл-аналог нет никакой возможности?
 
 
 
#5
24.09.2015 00:20:12
Накидал образец:
 
 
 
#6
24.09.2015 00:37:25
Ввели в первый ТекстБокс N - в какой сроке должен появится плюсик?
А если ввели во второй ТекстБокс - тогда что?
 
 
 
#7
24.09.2015 01:06:47
Цитата
Юрий М написал: Ввели в первый ТекстБокс N - в какой сроке должен появится плюсик?
Юрий, "+" должен появиться в Ячейке BN, где B-номер колонки, N - номер строки. То есть если в текстбоксе вводим цифру 3, то в ячейке B3 должен появиться "+".
То же самое нужное необходимо проделать с остальными текстбоксами
 
 
 
#8
24.09.2015 01:21:30
Код
Private Sub TextBox1_Change()
    If Me.TextBox1 >= 0 Then
        Cells(CLng(Me.TextBox1), 2) = "+"
    End If
End Sub
 
 
 
#9
24.09.2015 09:17:26
Юрий, Спасибо огромное!
 
 
 
#10
24.09.2015 10:56:16
Юрий, можно еще вопрос. ТекстБоксы не поддаются редактированию, то есть когда я начинаю изменять значение Текстбокса, ексель мне выдает следующую ошибку:
  • Run-time error '13': Type mismatch

Подскажите, как от этой ошибки можно избавиться, точнее как настроить ТекстБокс, чтобы его можно было редактировать?
 
 
 
#11
24.09.2015 11:06:07
Да редактировать его можно... Только мне кажется, что Вы выбрали не самый лучший путь для реализации своей задумки. Опишите, что Вы хотите получить, используя ТАКОЕ количество TextBox?
Для начала я бы добавил на форму кнопку, по которой бы начиналась обработка. Событие Change не самый лучший вариант - я привёл его только для примера, чтобы показать, КАК найти нужную строку.
 
 
 
#12
24.09.2015 11:10:02
После Private Sub TextBox1_Change() добавьте строку On Error Resume Next
Код
Private Sub TextBox1_Change()
On Error Resume Next
.....
хотя согласен с Юрий М,  порочный путь выбрали  ;)
Согласие есть продукт при полном непротивлении сторон
 
 
 
#13
24.09.2015 13:23:52
Юрий М, на основе вашего совета я просто использовал событие AfterUpdate и все заработало как нужно. По крайней мере пока что)
 
 
 
Страницы: 1
Наверх