|
|
|
Тема
|
 Copy... Paste... ?
|
|
| Автор |
zvezdi4kata_ff (непознат
) |
| Публикувано | 11.04.12 21:08 |
|
|
Здравейте!
Този код го създадох със записвачката, но той важи само за този ред, тази селекция. Въпроса ми е, как може да стане така, че като маркирам определен ред и натисна бутон, то същия ред да се копира под него ?
Rows("16:16").Select
Range("B16").Activate
Selection.Copy
Selection.Insert Shift:=xlDown
Благодаря ви!
| |
|
|
|
Без претенции за точност ...
[code]
Sub CopyRow()
Dim Row As Variant
Row = ActiveCell.Row ' селектира реда на Активната Клетка
Rows(Row).Select
Selection.Copy
Rows(Row + 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
[/code]
| |
|
Тема
|
 Re:...
[re: Muнaвaщ]
|
|
| Автор |
Naki (Company PC Guy) |
| Публикувано | 12.04.12 19:04 |
|
|
Тагове code в тоз форум няма. Ползвай pre тагове.
Пример:
pre pre pre
tabbed(spaced) pre:
pre pre
tabbed(spaced) pre, less tabs(spaces):
pre pre
| |
|
Тема
|
 Re:... Проба
[re: Naki]
|
|
| Автор | Muнaвaщ (Нерегистриран) |
| Публикувано | 13.04.12 11:40 |
|
|
Проба
Проба
| |
|
Тема
|
Re:... Проба
[re: Muнaвaщ]
|
|
| Автор |
Naki (Company PC Guy) |
| Публикувано | 13.04.12 18:29 |
|
|
Бачка. Имай предвид, че под Chrome добавя едни гадни празни редове - това е защото Дирът е оптимизиран за IE, който някога беше топ browser и върха на сладоледа - под IE май са ОК новите редове, няма излишни такива...
| |
|
| 
|
|
