Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Скопировать строку в переменную / 8 сообщений из 8, страница 1 из 1
15.11.2006, 14:19:35
    #34130306
jjj676
jjj676
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Скопировать строку в переменную
Здравствуйте
Подскажите плиз как проделать следующее:
Нужно скопировать целиком активную строку в excel и присвоить её какой то переменной.
после этого перейти на другой лист и вставить строку из этой переменной начиная с ячейки "A1"

Если это делать обычным копированием и вставкой то всё замечательно получается:

ActiveCell.Offset(0, 0).Rows("1:1").EntireRow.Copy ' копируем строку
Sheets("33").Select
Range("A1").Select
ActiveSheet.Paste ' вставляем.

, но нужно что бы вставлялось именно из переменной, а не из памяти.
Какой переменной можно присвоить строку?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.11.2006, 18:17:31
    #34131310
White Owl
White Owl
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Скопировать строку в переменную
Читай про параметр Destination у метода Copy.
Не используй метод Select вообще.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.11.2006, 18:17:42
    #34131312
Дмит
Дмит
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Скопировать строку в переменную
Dim str As String
str = ActiveCell.Value
Sheets("33").Range("A1") = str
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.11.2006, 08:08:02
    #34132041
jjj676
jjj676
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Скопировать строку в переменную
ДмитDim str As String
str = ActiveCell.Value
Sheets("33").Range("A1") = str

Всё не так просто... если если использовать вышепредложенный метод, то на лист "33" вставляется ТОЛЬКО ячейка "А1" а не вся строка целиком... как того бы хотелось:(
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.11.2006, 06:37:12
    #34135148
dbf97
dbf97
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Скопировать строку в переменную
jjj676 ДмитDim str As String
str = ActiveCell.Value
Sheets("33").Range("A1") = str

Всё не так просто... если если использовать вышепредложенный метод, то на лист "33" вставляется ТОЛЬКО ячейка "А1" а не вся строка целиком... как того бы хотелось:(

а что такое "вся строка целиком"??
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.11.2006, 07:59:22
    #34135214
jjj676
jjj676
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Скопировать строку в переменную
Вся строка целиком это 256 ячеек начиная с "A" по "IV"
Rows("1:1").Select
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.11.2006, 10:36:45
    #34135570
KL (XL)
KL (XL)
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Скопировать строку в переменную
Код: plaintext
1.
2.
Dim x as variant
x=activesheet.rows( 1 )
Sheets("33").rows( 1 )=x

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.11.2006, 11:16:55
    #34135754
jjj676
jjj676
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Скопировать строку в переменную
Блин.. как оказывается всё просто.... и в то же время сам бы ещё наверно месяц до этого доходил. Спасибо, KL (XL) , всё заработало! Всем спасибо за участие.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Скопировать строку в переменную / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 303ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2183911]:
 0ms
get settings:
 4ms
get forum list:
 9ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 34ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 30ms
get tp. blocked users:
 1ms
others: 210ms
total:  303ms
x
x
Закрыть


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