Увеличение значения ячейки на 1

Автор Slava VVV, 12.11.2012, 04:57

« назад - далее »

Slava VVV

Есть кнопка на 2 листе нужно чтобы при ее нажатии в 1 листе ячейка А1 прибавила 1, например было 1 стало 2 и т.д. Три дня лазию по интернету не могу найти пример :(
Помогите пожалуйста.

_Boroda_

Цитата: Slava VVV от 12.11.2012, 04:57Три дня лазию по интернету не могу найти пример
Да ладно! Ни в жисть не поверю, что одну строчку кода можно искать 3 дня. Вы, наверное, не то ищете. Как спрашиваете?

Да, Вы не указали, какая кнопка - АктивХ или форма?

Для АктивХ
Private Sub CommandButton1_Click()
Лист1.Range("A1") = Лист1.Range("A1") + 1
End Sub


Для формы
Sub tt()
Лист1.Range("A1") = Лист1.Range("A1") + 1
End Sub

Скажи мне, кудесник, любимец ба'гов...



Яндекс-деньги: 41001632713405
Webmoney: R289877159277; Z102172301748; E177867141995

kuklp

По правилам форума пример нужен от Вас. Назначьте кнопке макрос:
Public Sub www()
    Sheets(1).[a1] = Sheets(1).[a1] + 1
End Sub

Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771

Slava VVV

Всем спасибо, с горем пополам нашел макрос но он на 10 строк, Ваши примеры всего на три, возьму их на вооружение. По поводу поиска 3х дней я же так образно(скорея неправильно задавал вопрос), по прикладыванию примера ну я думал вы же гуру и для 3 строк кода пример будет излишним, хотя на счет кнопок да.. не подумал, что их несколько вариантов. Еще раз всем спасибо, что откликнулись.