Здравствуйте! Как создать кнопки [-] и [+] в Excel для изменения числового значения в ячейках?
Требуется наиболее гибкий вариант, чтобы кнопки можно было вставить в существующую ячейку. с которой предстоит работать, чтобы не вставлять дополнительные столбцы. Просто в ячейке слева кнопка "минус", в центре значение ячейки, справа кнопка "плюс". И таких ячеек пара сотен. Требуется компактное решение. Подскажите пожалуйста, какие могут быть варианты.
При таком подходе универсальности будет минимум. Куда практичнее при выделении нужных ячеек показывать форму, на которой будет SpinButton со значением из ячейки и при его изменении значение ячейки будет изменяться.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Привязка к кнопкам мыши отпадает, нужны экранные кнопки, чтобы все было максимально ясно и понятно. А то случайный клик и будет незапланированный инкремент или декремент. Городить лишнюю форму, всплывающую или статичную, которая будет посредником тоже не годится! Это повысит сложность следить ещё за выделением.. Мне нужно максимально упростить и ускорить ввод информации.
Представьте себе в таблице пару сотен позиций товара и правее каждой количество. Вот в ячейке с ним нужно разместить кнопки плюс и минус, чтобы менять значение в один клик, ибо на кассе очередь... Годятся любые способы, но чем проще тем лучше. Какие есть варианты? Действительно лучше, если бы кнопка работала с той ячейкой, где находится сама, тогда не пришлось бы дополнительно каждой кнопке указывать её ячейку - ведь это куча работы, ещё ошибусь, или потом вставлю строки, и весь массив переписывать...
Юрий М, прикольно, но правая кнопка зафиксирована по ширине ячейки, и если изменить ширину столбца, то становится ясна моя "претензия". А так очень понравилось.
Если автоматизировать бардак, то получится автоматизированный бардак.
Вы, наверное, скачали старую версию - сейчас там исправленный вариант. Но можно было и самому исправить в свойствах кнопки. А вот по поводу "претензии" не понял - Вы что - автор темы?
Да то, что это кнопки на листе, я уже нашел. Тока не пойму почему они Баттон1 и баттон2 называются... Как ни тыркал на эти кнопки, не вижу их связи с макросами сложения и вычитания... з.ы. как назначить новой кнопке написанный макрос я уже понял. А вот где и как посмотреть какой макрос назначен какой кнопке и как эта кнопка называется??? А переопределить имя я как-нибудь могу?
День добрый всем!!! кто нибудь может помочь и пересохранить файл в 10 сообщении от 11 Янв 2015 19:44:43 в формате XLS а то у меня ексель 2003)) или макрос выложить?
Вот скопировал для вас макросы из сообщения 10. В модуль листа 1:
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Shp1 As Shape, Shp2 As Shape
Set Shp1 = ActiveSheet.Shapes("Button 1")
Set Shp2 = ActiveSheet.Shapes("Button 2")
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("B2:B200")) Is Nothing Then
With Shp1
.Visible = True
.Top = ActiveCell.Top
.Left = ActiveCell.Left
End With
With Shp2
.Visible = True
.Top = ActiveCell.Top
.Left = ActiveCell.Left + ActiveCell.Width - .Width
End With
Else
Shp1.Visible = False
Shp2.Visible = False
End If
End Sub
В модуль отдельный:
Код
Sub MacroPlus()
With ActiveCell
.Value = .Value + 1
End With
End Sub
Sub MacroMinus()
With ActiveCell
.Value = .Value - 1
End With
End Sub
JayBhagavan,может я что то не так делаю, выдает ошибку "компонент с указанным именем не найден" и показывает на строку Set Shp1 = ActiveSheet.Shapes("Button 1") ЗЫ делаю с нового файла