ReSQL.ru
     
powered by simpleCommunicator - 2.0.36     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / копирование ячейки выше активной строки
7 сообщений из 7, страница 1 из 1
копирование ячейки выше активной строки
    #39983899
yjn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
yjn
Гость
вроде нашел макрос. но не работает как мне надо.
1) Надо копировать активную строку и вставить строку, сданными и формулами активной строки выше или ниже, где будет обозначена активная ячейка или строка, то есть там будет находится курсор. Вставить выше или ниже. (именно вставить а не заменить содержимое ячеек, значит должен пороизойти сдвиг массива).

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

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

используйте конструкции .Offset(-1,0) чтобы сместиться на 1 строку вверх, и .EntireRow чтобы копировать-вставлять всю строку листа.
...
Рейтинг: 0 / 0
27.07.2020, 08:38
| Ответить | Цитировать | Написать  
копирование ячейки выше активной строки
    #39984229
Roman Mejtes
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Roman Mejtes
Участник
самое время открыть для себе RC указатели в Excel
...
Рейтинг: 0 / 0
27.07.2020, 08:39
| Ответить | Цитировать | Написать  
копирование ячейки выше активной строки
    #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, 15:53
| Ответить | Цитировать | Написать  
копирование ячейки выше активной строки
    #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:49
| Ответить | Цитировать | Написать  
копирование ячейки выше активной строки
    #39985047
ldfanate
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ldfanate
Участник
Сделайте макрорекордером запись одной ручной операции копировать строку-вставить строку. А потом добавьте туда необходимые смещения.
...
Рейтинг: 0 / 0
29.07.2020, 16:53
| Ответить | Цитировать | Написать  
копирование ячейки выше активной строки
    #39985878
yjn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
yjn
Гость
я уже думал, что нет на просторах всемирной помойки умных людей. Нашлпись трое. ActiveCell. Смещение (0, 3). Range ( "A1"). ActiveCell. Смещение (0, 3). Range ( "A1"). 1
ActiveCell.Offset(4, 2).Range("A1").Select. Цитирую "Допустимость второй формы (вставляю свое пояснение- с ранг) мало кому известна" Исправил и УСЁ у МЕНЕ заработало с ранг, а тебе хам не скажу
...
Рейтинг: 0 / 0
02.08.2020, 11:36
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / копирование ячейки выше активной строки
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=3&tid=2154791]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 27ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 48ms
get tp. blocked users:
 2ms
others: 9ms
total:  128ms
созд. / загр.: 128ms
x
x
Закрыть


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