Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Вызов Input box по нажатию кнопки в диапазоне
 
#1
27.08.2016 08:43:40
Уважаемые! Пожалуйста, Подскажите код для кнопки
Commandbutton_click() который бы вызывал input box для ввода числа только в пересечении установленного диапазона.

т.е. Имеем диапазоны A1:A15 C1:C15 и т.д.
По нажатию кнопки в этих диапазонах input box появляется, а ВНЕ, кнопка становится "серой" (enabled = false если не ошибаюсь)
 
 
 
#2
27.08.2016 10:48:16
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:A15, C1:C15")) Is Nothing Then
        CommandButton1.Enabled = True
    Else: CommandButton1.Enabled = False
    End If
End Sub

Private Sub CommandButton1_Click()
    ActiveCell = Application.InputBox("Введите число", Type:=1)
End Sub
Про число что-то я пропустил :)
Изменено: kalbasiatka - 27.08.2016 12:11:04
 
 
 
#3
27.08.2016 11:04:07
Цитата
input box для ввода числа
Код
Application.InputBox("Введите число", Type:=1)
 
 
 
#4
27.08.2016 11:36:54
Что то удалилась часть кода после изменения сообщения удалилась
 
 
 
#5
27.08.2016 11:44:09
А зачем она вам? Осталась часть, отвечающая за состояние кнопки, как и хотели. Остальное пишите для нажатия кнопки, код выше показали.
 
 
 
#6
27.08.2016 11:54:39
Напишите пожалуйста код целиком для кнопки и для inputbox, что то неполучается
 
 
 
#7
27.08.2016 11:55:19
А откуда мне знать что должно получиться?
 
 
 
#8
27.08.2016 12:07:45
Если выбрать ячейку в выбранном диапазоне, то кнопка становится enabled=true, (после ввода числа в inputbox вставляется число в ячейку)
если выбрать ячейку вне установленного диапазона, то кнопка enabled = false,
 
 
 
#9
27.08.2016 12:11:31
Поправил код выше.
 
 
 
#10
27.08.2016 13:11:24
Все работает супер. После нажатия кнопки отмена в inputbox в ячейку вставляется значение ЛОЖЬ
А так все здорово  
 
 
 
#11
27.08.2016 13:41:00
Подскажите как сделать что бы ничего не появлялось после отмены?
Изменено: alexsee - 27.08.2016 13:41:41
 
 
 
#12
27.08.2016 13:52:02
Цитата
как сделать что бы ничего не появлялось?
Код
Private Sub CommandButton1_Click()
    ActiveCell = Application.InputBox("Введите число", Type:=1)
    If ActiveCell = False Then ActiveCell = ""
End Sub
 
 
 
#13
27.08.2016 13:57:49
Все равно выскакивает, но после перемещения курсора убирается
 
 
 
#14
27.08.2016 14:02:52
Вы в код, который вам написал kalbasiatka,
вставьте строчку
Код
If ActiveCell = False Then ActiveCell = ""
Что не так?
 
 
 
#15
27.08.2016 14:28:03
Когда нажимаешь отмену или escape, промигивает ЛОЖЬ и стирается предыдущее значение
 
 
 
#16
27.08.2016 14:40:30
Цитата
и стирается предыдущее значение
Запоминайте предыдущее значение
Код
Private Sub CommandButton1_Click()
Dim iTemp As Double
   iTemp = ActiveCell
    ActiveCell = Application.InputBox("Введите число", Type:=1)
    If ActiveCell = False Then ActiveCell = iTemp
End Sub
 
 
 
#17
27.08.2016 15:04:38
Спасибо, но нет. По нажатию отмена в inputbox трёт значение а надо что бы оставляло как было
 
 
 
#18
27.08.2016 15:08:35
Цитата
По нажатию отмена в inputbox трёт значение
У меня оставляет предыдущее значение при коде в сообщении #16
 
 
 
#19
27.08.2016 15:39:25
Получается но только теперь не даёт ввести по нажатию на ок в ячейку в которой уже есть цифры
 
 
 
#20
27.08.2016 15:51:31
Цитата
не даёт ввести по нажатию на ок
Вы бы приложили свой файл с макросом, а то мы гадаем на кофейной гуще.
У меня все заносит.
 
 
 
#21
27.08.2016 16:48:02
kalbasiatka, а зачем две процедуры, зачем менять Enabled? ))
Код
Private Sub CommandButton1_Click()
    If Not Intersect(ActiveCell, Range("A1:A15, C1:C15")) Is Nothing Then ActiveCell = Application.InputBox("Введите число", Type:=1)
End Sub
 
 
 
#22
27.08.2016 16:55:06
Отлично, но продолжает выдавать ЛОЖЬ при отмене или escape.
Я тупо код в новую книгу сейчас вставил, все равно
 
 
 
#23
27.08.2016 17:06:29
Код
Private Sub CommandButton1_Click()
    If Not Intersect(ActiveCell, Range("A1:A15, C1:C15")) Is Nothing Then
        x = Application.InputBox("Введите число", Type:=1)
        If x Then ActiveCell = x
    End If
End Sub
 
 
 
#24
30.08.2016 16:29:29
Огромное Вам спасибо! Все работает супер
 
 
 
Страницы: 1
Наверх