Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / копирование ячейки выше активной строки / 7 сообщений из 7, страница 1 из 1
25.07.2020, 12:54
    #39983899
yjn
yjn
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
копирование ячейки выше активной строки
вроде нашел макрос. но не работает как мне надо.
1) Надо копировать активную строку и вставить строку, сданными и формулами активной строки выше или ниже, где будет обозначена активная ячейка или строка, то есть там будет находится курсор. Вставить выше или ниже. (именно вставить а не заменить содержимое ячеек, значит должен пороизойти сдвиг массива).

2) Допустим произвел действия со строкой 3. Но происходит сбой массива в формулах. То есть во 2 и 3 строке они не соответствуют ряду колонки В, лучше посмотреть, лучше посмотреть колонки В и С.

3) Как сделать, чтобы от активной строки взять копию формулы с ячейки на 2 строки выше колонки В активной строки и копировать на 2 строки колонки В ниже от активной строки или что бы формулы менялись соответственно своим строкам
.Заранее благодарен
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.07.2020, 08:38
    #39984226
ldfanate
ldfanate
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
копирование ячейки выше активной строки
видимо речь о копировании на листе экселя :)

используйте конструкции .Offset(-1,0) чтобы сместиться на 1 строку вверх, и .EntireRow чтобы копировать-вставлять всю строку листа.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.07.2020, 08:39
    #39984229
Roman Mejtes
Roman Mejtes
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
копирование ячейки выше активной строки
самое время открыть для себе RC указатели в Excel
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.07.2020, 15:53
    #39985022
yjn
yjn
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
копирование ячейки выше активной строки
ldfanate, благодарю ,я уже догадался изменить на Offset(-1,0), но мне нужно, чтобы при вставке строки копировалась вся строка или определенная ячейка -допустим "В" на одну строку выше активной строки и вставка была на активную и на две ниже. С EntireRow пока не получается справиться. Думаю за 15 лет можно кое что забыть. Если активная строка допустим "С" пересчет идет в той же строке. На "В" не получается. Может константу столбца "В" сделать? Подскажите, что бы не рылся. Заранее благодарен

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Sub вставка_строки()
    If Application.Intersect(ActiveCell, ActiveSheet.UsedRange) Is Nothing _
        Or ActiveCell.Row < 3 Then
            MsgBox "Активная ячейка вне таблицы"
    Else
        Rows(ActiveCell.Row).Insert
        Rows(ActiveCell.Row + 1).Copy Rows(ActiveCell.Row)
    ActiveCell.Offset(-1, 0).Range("A1").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveCell.Offset(1, 0).Range("A1:A3").Select
    ActiveSheet.Paste
    End If
End Sub

Модератор: Учимся использовать тэги оформления кода - FAQ
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.07.2020, 16:49
    #39985043
ldfanate
ldfanate
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
копирование ячейки выше активной строки
Код: vbnet
1.
2.
3.
ActiveCell.Offset(-1, 0).Range("A1").Select
...
ActiveCell.Offset(1, 0).Range("A1:A3").Select



Что это за жуть? Зачем относительное смещение (osffset) совмещать с абсолютными координатами (А1:А3 и проч)?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.07.2020, 16:53
    #39985047
ldfanate
ldfanate
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
копирование ячейки выше активной строки
Сделайте макрорекордером запись одной ручной операции копировать строку-вставить строку. А потом добавьте туда необходимые смещения.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.08.2020, 11:36
    #39985878
yjn
yjn
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
копирование ячейки выше активной строки
я уже думал, что нет на просторах всемирной помойки умных людей. Нашлпись трое. ActiveCell. Смещение (0, 3). Range ( "A1"). ActiveCell. Смещение (0, 3). Range ( "A1"). 1
ActiveCell.Offset(4, 2).Range("A1").Select. Цитирую "Допустимость второй формы (вставляю свое пояснение- с ранг) мало кому известна" Исправил и УСЁ у МЕНЕ заработало с ранг, а тебе хам не скажу
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / копирование ячейки выше активной строки / 7 сообщений из 7, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 146ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2154791]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 34ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 47ms
get tp. blocked users:
 2ms
others: 15ms
total:  146ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]