Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Добавление значения к содержимому ячейки - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Добавление значения к содержимому ячейки (Макросы/Sub)
Добавление значения к содержимому ячейки
karmen185 Дата: Суббота, 24.11.2018, 02:56 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 36
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Доброй ночи. Подскажите пожалуйста, как можно сделать, чтобы при нажатии кнопки, значение добавилось к предыдущему в ячейке В1. Думала формулой сцепить, но не подходит. Полный стопор, надо идти отдыхать. Спокойной ночи.
К сообщению приложен файл: 5846926.xls(57.5 Kb)
 
Ответить
СообщениеДоброй ночи. Подскажите пожалуйста, как можно сделать, чтобы при нажатии кнопки, значение добавилось к предыдущему в ячейке В1. Думала формулой сцепить, но не подходит. Полный стопор, надо идти отдыхать. Спокойной ночи.

Автор - karmen185
Дата добавления - 24.11.2018 в 02:56
krosav4ig Дата: Суббота, 24.11.2018, 04:25 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1729
Репутация: 728 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Здравствуйте
переименовал кнопки в Digit0 .. Digit9, удалил код, привязанный к кнопкам
в модуле класса ClDigitalButtons
[vba]
Код
Private WithEvents cb As CommandButton
Private cell As Range
Public Sub Init(ctrl As CommandButton, r As Range)
    Set cb = ctrl
    Set cell = r
End Sub
Private Sub Class_Terminate()
    Set cb = Nothing
    Set cell = Nothing
End Sub
Private Sub cb_Click()
    cell = cell.Value & cb.Caption
End Sub
[/vba]в стандартном модуле
[vba]
Код
Dim colButtons As Collection
Sub hookButtons(ws As Object)
    Dim dBtn As ClDigitalButtons
    Dim obj As OLEObject
    Set colButtons = New Collection
    For Each obj In ws.OLEObjects
        If TypeOf obj.Object Is CommandButton And Left(obj.Name, 5) = "Digit" Then
            Set dBtn = New ClDigitalButtons
            dBtn.Init obj.Object, ws.[B1]
            colButtons.Add dBtn
        End If
    Next
End Sub
[/vba]в модуле ЭтаКнига[vba]
Код
Private Sub Workbook_Open()
    hookButtons ActiveSheet
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    hookButtons Sh
End Sub
[/vba]
К сообщению приложен файл: 0429301.xls(65.5 Kb)


(_)Õvõ(_)
 
Ответить
СообщениеЗдравствуйте
переименовал кнопки в Digit0 .. Digit9, удалил код, привязанный к кнопкам
в модуле класса ClDigitalButtons
[vba]
Код
Private WithEvents cb As CommandButton
Private cell As Range
Public Sub Init(ctrl As CommandButton, r As Range)
    Set cb = ctrl
    Set cell = r
End Sub
Private Sub Class_Terminate()
    Set cb = Nothing
    Set cell = Nothing
End Sub
Private Sub cb_Click()
    cell = cell.Value & cb.Caption
End Sub
[/vba]в стандартном модуле
[vba]
Код
Dim colButtons As Collection
Sub hookButtons(ws As Object)
    Dim dBtn As ClDigitalButtons
    Dim obj As OLEObject
    Set colButtons = New Collection
    For Each obj In ws.OLEObjects
        If TypeOf obj.Object Is CommandButton And Left(obj.Name, 5) = "Digit" Then
            Set dBtn = New ClDigitalButtons
            dBtn.Init obj.Object, ws.[B1]
            colButtons.Add dBtn
        End If
    Next
End Sub
[/vba]в модуле ЭтаКнига[vba]
Код
Private Sub Workbook_Open()
    hookButtons ActiveSheet
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    hookButtons Sh
End Sub
[/vba]

Автор - krosav4ig
Дата добавления - 24.11.2018 в 04:25
karmen185 Дата: Суббота, 24.11.2018, 08:59 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 36
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
krosav4ig, здравствуйте. Но просто супер, я не думала, что для этого нужно столько кода. Тут уже целая работа. Укажите ваши реквизиты кошелька и сумму. Большое вам спасибо. hands
 
Ответить
Сообщениеkrosav4ig, здравствуйте. Но просто супер, я не думала, что для этого нужно столько кода. Тут уже целая работа. Укажите ваши реквизиты кошелька и сумму. Большое вам спасибо. hands

Автор - karmen185
Дата добавления - 24.11.2018 в 08:59
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Добавление значения к содержимому ячейки (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!