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

Вход

Регистрация

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

 

= Мир MS Excel/Изменение значения объединенной ячейки по щелчку - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Изменение значения объединенной ячейки по щелчку (Макросы/Sub)
Изменение значения объединенной ячейки по щелчку
Prosto Дата: Среда, 19.03.2014, 22:26 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 26
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Здравствуйте!
Помогите, пожалуйста, разобраться. Мне нужно, чтобы значение любой выделенной ячейки увеличивалось на единичку каждый раз, когда я кликаю на кнопку. Для этого у меня есть сама кнопка и макрос, к ней привязанный:
[vba]
Код
Sub x()
     AD = Selection.Address
     Range(AD) = Range(AD) + 1
End Sub
[/vba]
Проблема в том, что этот макрос прекрасно работает в обычных ячейках, но не работает в объединенных. Каждая объединенная ячейка представляет собой 7 ячеек, объединенных в одну по горизонтали (если это имеет значение).
Подскажите, пожалуйста, как можно изменить макрос (или создать новый), чтобы он работал и с обычными, и с объединенными ячейками, так как без них, в моем случае, не обойтись...


Сообщение отредактировал Prosto - Среда, 19.03.2014, 22:27
 
Ответить
СообщениеЗдравствуйте!
Помогите, пожалуйста, разобраться. Мне нужно, чтобы значение любой выделенной ячейки увеличивалось на единичку каждый раз, когда я кликаю на кнопку. Для этого у меня есть сама кнопка и макрос, к ней привязанный:
[vba]
Код
Sub x()
     AD = Selection.Address
     Range(AD) = Range(AD) + 1
End Sub
[/vba]
Проблема в том, что этот макрос прекрасно работает в обычных ячейках, но не работает в объединенных. Каждая объединенная ячейка представляет собой 7 ячеек, объединенных в одну по горизонтали (если это имеет значение).
Подскажите, пожалуйста, как можно изменить макрос (или создать новый), чтобы он работал и с обычными, и с объединенными ячейками, так как без них, в моем случае, не обойтись...

Автор - Prosto
Дата добавления - 19.03.2014 в 22:26
KuklP Дата: Среда, 19.03.2014, 22:34 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Чет намудрили вы:)
[vba]
Код
Public Sub www(): ActiveCell = ActiveCell + 1:End Sub
[/vba]


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеЧет намудрили вы:)
[vba]
Код
Public Sub www(): ActiveCell = ActiveCell + 1:End Sub
[/vba]

Автор - KuklP
Дата добавления - 19.03.2014 в 22:34
RAN Дата: Среда, 19.03.2014, 22:35 | Сообщение № 3
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Адрес объединенной ячейки (А1:А7) - А1
Всех остальных - аналогично.


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеАдрес объединенной ячейки (А1:А7) - А1
Всех остальных - аналогично.

Автор - RAN
Дата добавления - 19.03.2014 в 22:35
Prosto Дата: Среда, 19.03.2014, 22:39 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 26
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
KuklP, спасибо огромное, ваш код работает и в объединенных ячейках!
RAN, спасибо :)
 
Ответить
СообщениеKuklP, спасибо огромное, ваш код работает и в объединенных ячейках!
RAN, спасибо :)

Автор - Prosto
Дата добавления - 19.03.2014 в 22:39
RAN Дата: Среда, 19.03.2014, 23:04 | Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
А для вашего случая поправка совсем махонькая
[vba]
Код
Sub x()
     AD = Selection(1).Address
     Range(AD) = Range(AD) + 1
End Sub
[/vba]


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеА для вашего случая поправка совсем махонькая
[vba]
Код
Sub x()
     AD = Selection(1).Address
     Range(AD) = Range(AD) + 1
End Sub
[/vba]

Автор - RAN
Дата добавления - 19.03.2014 в 23:04
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Изменение значения объединенной ячейки по щелчку (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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