Private Sub Worksheet_Change(ByVal Target As Range)
Static lngLastCell As Long ' послед. использ. ячейка
' мы следим только за ячейкой - A1
If Target.Row = 1 And Target.Column = 1 Then
ActiveSheet.Range("B" & lngLastCell + 1).Value = Target.Value
lngLastCell = lngLastCell + 1
End If
End Sub
Treb. pomo64 programmista ljubogo razrjada po Vb
Tovari64i programisti! Znaju, 4to dlja vas eto sovsem prostenjkaja zada4ko, a vot ja sovsem ne pru v VB,no pozarez v njem samom nuzhna programma. Kto nibudj pomogite napisatj pljevuju progu ot A do Z (ja poka 4to nau4ilsja toka kopirovatj progi v VB Editor i potom zapuskatj):
Zna4it v ja4ejke A1 menjajuca postojanno zna4enija. Ja ho4u 4tobi odinozhdi zapustiv macros, vse eti zna4enija avtomatom kopirovalisj v stolbec B. Spasibo zaranee ogromnoe vsem kto pomozhet.
Zna4it v ja4ejke A1 menjajuca postojanno zna4enija. Ja ho4u 4tobi odinozhdi zapustiv macros, vse eti zna4enija avtomatom kopirovalisj v stolbec B. Spasibo zaranee ogromnoe vsem kto pomozhet.
Добавь в код листа например такой обработчик:
Код:
Алгоритм следующий:
Берёшь ячейку А, записываешь туда что-то, затем запускаешь запись макроса, копируешь из А данные в В, останавливаешь запись макроса.
Затем открываешь редактор VBA и смотришь сгенерированный код.
Потом разбираешь этот код при помощи HELPа по VBA.
Затем ищешь в данной конференции и в HELPе альтернативы командам, более быстрые варианты и т.п. и на основе того. Что нашёл, и того, что тебе сгенерил VBA, пишешь свою процедуру.
Полученный код включаешь в цикл (см. справку по For…Next, While…Wend, Do…Loop).
И всё! Готово!
В первый раз будет сложновато. Но потом проще пойдёт.
И вто как раз тогда у тебя и возникнут конкретные вопросы, типа как пользоваться For..Next, что такое Worksheets и т.п. Вот с ними как раз и самое оно сюда обратиться и по ним тебе помогут с большой радостью. А вот если сейчас за тебя напишут процедуру и отдадут тебе её код, толка от этого не будет для тебя.
С уважением,
М.Шатуров
Берёшь ячейку А, записываешь туда что-то, затем запускаешь запись макроса, копируешь из А данные в В, останавливаешь запись макроса.
Затем открываешь редактор VBA и смотришь сгенерированный код.
Потом разбираешь этот код при помощи HELPа по VBA.
Затем ищешь в данной конференции и в HELPе альтернативы командам, более быстрые варианты и т.п. и на основе того. Что нашёл, и того, что тебе сгенерил VBA, пишешь свою процедуру.
Полученный код включаешь в цикл (см. справку по For…Next, While…Wend, Do…Loop).
И всё! Готово!
В первый раз будет сложновато. Но потом проще пойдёт.
И вто как раз тогда у тебя и возникнут конкретные вопросы, типа как пользоваться For..Next, что такое Worksheets и т.п. Вот с ними как раз и самое оно сюда обратиться и по ним тебе помогут с большой радостью. А вот если сейчас за тебя напишут процедуру и отдадут тебе её код, толка от этого не будет для тебя.
С уважением,
М.Шатуров