Макрос копирования и вставки ячейки
Timsan
Дата: Воскресенье, 08.06.2014, 03:01 |
Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 20
Репутация:
0
±
Замечаний:
0% ±
Excel 2003
Ребята, очень нужна ваша помощь, никак не получается самому справиться. Данный макрос копирует и вставляет ячейки ниже как сделать что бы при выставлении в колонках с и к при копировании число на 1 увеличивалось [vba]Код
Private Sub Cmd_AddRow_Click() Dim iRow As Integer Dim sRow As String iRow = ActiveCell.Row sRow = Trim(Str(iRow)) Rows(sRow & ":" & sRow).Select Selection.Copy Rows(iRow + 1).Select Selection.Insert Shift:=xlDown Application.CutCopyMode = False Range("C" & sRow).Select End Sub
[/vba]
Ребята, очень нужна ваша помощь, никак не получается самому справиться. Данный макрос копирует и вставляет ячейки ниже как сделать что бы при выставлении в колонках с и к при копировании число на 1 увеличивалось [vba]Код
Private Sub Cmd_AddRow_Click() Dim iRow As Integer Dim sRow As String iRow = ActiveCell.Row sRow = Trim(Str(iRow)) Rows(sRow & ":" & sRow).Select Selection.Copy Rows(iRow + 1).Select Selection.Insert Shift:=xlDown Application.CutCopyMode = False Range("C" & sRow).Select End Sub
[/vba] Timsan
Сообщение отредактировал Timsan - Воскресенье, 08.06.2014, 13:55
Ответить
Сообщение Ребята, очень нужна ваша помощь, никак не получается самому справиться. Данный макрос копирует и вставляет ячейки ниже как сделать что бы при выставлении в колонках с и к при копировании число на 1 увеличивалось [vba]Код
Private Sub Cmd_AddRow_Click() Dim iRow As Integer Dim sRow As String iRow = ActiveCell.Row sRow = Trim(Str(iRow)) Rows(sRow & ":" & sRow).Select Selection.Copy Rows(iRow + 1).Select Selection.Insert Shift:=xlDown Application.CutCopyMode = False Range("C" & sRow).Select End Sub
[/vba] Автор - Timsan Дата добавления - 08.06.2014 в 03:01
wild_pig
Дата: Воскресенье, 08.06.2014, 11:11 |
Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 517
Репутация:
97
±
Замечаний:
0% ±
2003, 2013
Пример лучше в .xls
Ответить
Сообщение Пример лучше в .xls Автор - wild_pig Дата добавления - 08.06.2014 в 11:11
Timsan
Дата: Воскресенье, 08.06.2014, 13:58 |
Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 20
Репутация:
0
±
Замечаний:
0% ±
Excel 2003
Добавил пример в .xls это реально вобще так сделать?
Добавил пример в .xls это реально вобще так сделать? Timsan
Ответить
Сообщение Добавил пример в .xls это реально вобще так сделать? Автор - Timsan Дата добавления - 08.06.2014 в 13:58
AlexM
Дата: Воскресенье, 08.06.2014, 14:01 |
Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4513
Репутация:
1128
±
Замечаний:
0% ±
Excel 2003
В столбцах D и E ошибка #ССЫЛКА! так должно быть?
В столбцах D и E ошибка #ССЫЛКА! так должно быть? AlexM
Номер мобильного модема (без голосовой связи) 9269171249 МегаФон, Московский регион.
Ответить
Сообщение В столбцах D и E ошибка #ССЫЛКА! так должно быть? Автор - AlexM Дата добавления - 08.06.2014 в 14:01
Timsan
Дата: Воскресенье, 08.06.2014, 14:03 |
Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 20
Репутация:
0
±
Замечаний:
0% ±
Excel 2003
да так и должно быть
Ответить
Сообщение да так и должно быть Автор - Timsan Дата добавления - 08.06.2014 в 14:03
AlexM
Дата: Воскресенье, 08.06.2014, 14:20 |
Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4513
Репутация:
1128
±
Замечаний:
0% ±
Excel 2003
так подойдет? В ячейках столбца С формула код макроса[vba]Код
Private Sub Cmd_AddRow_Click() Rows(ActiveCell.Row).Copy Rows(ActiveCell.Row + 1).Insert Shift:=xlDown Application.CutCopyMode = False End Sub
[/vba]
так подойдет? В ячейках столбца С формула код макроса[vba]Код
Private Sub Cmd_AddRow_Click() Rows(ActiveCell.Row).Copy Rows(ActiveCell.Row + 1).Insert Shift:=xlDown Application.CutCopyMode = False End Sub
[/vba] AlexM
Номер мобильного модема (без голосовой связи) 9269171249 МегаФон, Московский регион.
Сообщение отредактировал AlexM - Воскресенье, 08.06.2014, 14:46
Ответить
Сообщение так подойдет? В ячейках столбца С формула код макроса[vba]Код
Private Sub Cmd_AddRow_Click() Rows(ActiveCell.Row).Copy Rows(ActiveCell.Row + 1).Insert Shift:=xlDown Application.CutCopyMode = False End Sub
[/vba] Автор - AlexM Дата добавления - 08.06.2014 в 14:20
Timsan
Дата: Воскресенье, 08.06.2014, 16:27 |
Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 20
Репутация:
0
±
Замечаний:
0% ±
Excel 2003
Спасибо помогло работает спасибо большое.
Спасибо помогло работает спасибо большое. Timsan
Ответить
Сообщение Спасибо помогло работает спасибо большое. Автор - Timsan Дата добавления - 08.06.2014 в 16:27