ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Передача в Range строковой переменной не получается
20 сообщений из 20, страница 1 из 1
Передача в Range строковой переменной не получается
    #36254805
Kreol
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kreol
Участник
Ребята хелп срочный не могу никак понять.
Суть есть 50 листов. С каждым ведутся 1 и теже действия.
Иы на "листе 1" выделяем любую строку и копируем ее с помощью макроса на "лист 2" В листе 2 выполняем нужные действия и теперь самое важное.
Нужно скопировать некоторый диапазон из "листа 2" в "лист 1" но в ту же строчку которая была выделена ранее. + нужно например скопировать в столбик AL(номер выделеной строки).
Что-то через передачу строковой перемменной в адресс не получается.
bbb=$F$14
Range (bbb)
не катит.

И второй гвоздь как автоматизировать это все с листами
...
Рейтинг: 0 / 0
16.10.2009, 10:00
| Ответить | Цитировать | Написать  
Передача в Range строковой переменной не получается
    #36254822
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Так получается:
Код: plaintext
1.
2.
3.
4.
Sub tt()
bbb = "$F$14"
Range(bbb).Activate
End Sub
...
Рейтинг: 0 / 0
16.10.2009, 10:08
| Ответить | Цитировать | Написать  
Передача в Range строковой переменной не получается
    #36254877
Kreol
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kreol
Участник
А если я передаю
Dim sRowNumber As String Dim oRangeAddress As String Dim oRangeAddressMay As String..... oRangeAddress = ActiveCell.Address sRowNumber = Mid(oRangeAddress (InStr(2 oRangeAddress "$") + 1)) oRangeAddressMay = "AL" & sRowNumber.....Range(oRangeAddressMay).Select

Пишет неверно завершен метод Range
...
Рейтинг: 0 / 0
16.10.2009, 10:29
| Ответить | Цитировать | Написать  
Передача в Range строковой переменной не получается
    #36254889
Kreol
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kreol
Участник
все решил проблему через Cells но все таки почему код выше не работает?
...
Рейтинг: 0 / 0
16.10.2009, 10:34
| Ответить | Цитировать | Написать  
Передача в Range строковой переменной не получается
    #36254922
MaximuS_G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MaximuS_G
Участник
Ничего не понятно...
KreolНужно скопировать некоторый диапазон из "листа 2" в "лист 1" но в ту же строчку которая была выделена ранее. + нужно например скопировать в столбик AL(номер выделеной строки).
Ну так запомните номер строки в переменную из которой копировался диапазон.

KreolИ второй гвоздь как автоматизировать это все с листами
Что автоматизировать ? Копирование из листаN на лист N+1 и обратно ? Сделайте цикл по всем листам:
Код: plaintext
1.
2.
For i =  1  to sheets.count
...
next i

все решил проблему через Cells но все таки почему код выше не работает?
А Вы его нормально напишите через SRC и укажите, что он должен делать...
...
Рейтинг: 0 / 0
16.10.2009, 10:44
| Ответить | Цитировать | Написать  
Передача в Range строковой переменной не получается
    #36255051
Kreol
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kreol
Участник
Нет это не по все сразу нужно листам, но это я уже понял как решить.
А вот как сделать чтоб вставлялись данные не по порядку а через пару столбцов и не переписывали друг друга. То есть например ячейка В7 C7 и Р7 записались данными из строковых переменных листа 1
копируется с листа 1 на лист 2
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
 Dim DateDogovor As String
 Dim NumberDogovor As String
 DateDogovor = Range("D7").Value
 NumberDogovor = Range("C7").Value
 ' эта часть копирует 
Range("A6:D6").Select
 Selection.Copy
 Sheets("лист2").Select
 Selection.Cells( 38 ).Select
 ActiveSheet.Paste

как теперь перейти на ячейку 17
и записать туда NumberDogovor
и потом перейти на ячейку 18
и записать туда DateDogovor
...
Рейтинг: 0 / 0
16.10.2009, 11:21
| Ответить | Цитировать | Написать  
Передача в Range строковой переменной не получается
    #36255112
MaximuS_G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MaximuS_G
Участник
Я бы с радостью Вам помог, но мне тяжело понять Вашу задачу (ну и немного неохота)... Выложите пример и объясните более подробно... Хотя может кто другой разберется
...
Рейтинг: 0 / 0
16.10.2009, 11:33
| Ответить | Цитировать | Написать  
Передача в Range строковой переменной не получается
    #36255174
astatsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
astatsa
Гость
странно, решил проблему через Cells, а теперь не может перейти на загадочную ячейку 17.

Sheets(номер листа).Cells(номер строки, номер столбца) = переменная

например:

a = "tra-la-la"
Sheets(1).Cells(1,17) = a

и чтобы копировать не надо выделять, да и вообще, зачем юзать буфер, можешь сделать просто присваиванием, например
sheets(1).cells(1,17) = sheets(2).cells(2,18)
а если всеже через Copy, то
Sheets(2).cells(1,18).copy(Sheets(1).cells(1,17))
...
Рейтинг: 0 / 0
16.10.2009, 11:50
| Ответить | Цитировать | Написать  
Передача в Range строковой переменной не получается
    #36255186
astatsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
astatsa
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
 
Range("A6:D6").Select
Selection.Copy
Sheets("лист2").Select
Selection.Cells( 38 ).Select
ActiveSheet.Paste

=

Код: plaintext
1.
2.
3.
 
и здесь всетаки желательно лист указать.Range("A6:D6").Copy
Sheets("лист2").Cells( 38 ).Paste
...
Рейтинг: 0 / 0
16.10.2009, 11:53
| Ответить | Цитировать | Написать  
Передача в Range строковой переменной не получается
    #36255205
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Если надо перейти с 7 на 17 ячейку (т.е. на 10 ячеек вниз), пиши Selection.Offset(10, 0).Select
Хотя я Selection избегаю, это тормозит код.
Можно оперировать переменными:
Код: plaintext
1.
2.
3.
4.
5.
6.
Sub TT()
n =  38 
'Cells(n, 1).Select
Cells(n,  1 ).Value = "Test"
Cells(n +  10 ,  1 ).Value = "Test+10"
End Sub
...
Рейтинг: 0 / 0
16.10.2009, 11:58
| Ответить | Цитировать | Написать  
Передача в Range строковой переменной не получается
    #36255210
Kreol
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kreol
Участник
хорошо выкладываю файл. Задача, после выделения строки на листе 0522210100 она попадает на лист "копия данных". В этой копии данных пока куча, всего так что особо не обращать внимания так как брался просто за основу. Суть дальше переписываем ячейки А6 В6 своими данными и оправляем на печать, за это отвечает кнопка 1 а теперь то с чем я никак не могу разобраться, нужно чтобы данные А6 В6 С7 D7 попали на лист с которого было сделано перемещение и разместились там на ячейках Q___ = C7 R___=D7 AL___ = A6 AM___ = B6
...
Рейтинг: 0 / 0
16.10.2009, 12:00
| Ответить | Цитировать | Написать  
Передача в Range строковой переменной не получается
    #36255217
Kreol
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kreol
Участник
Лишние макросы можете поубивать
...
Рейтинг: 0 / 0
16.10.2009, 12:03
| Ответить | Цитировать | Написать  
Передача в Range строковой переменной не получается
    #36255253
astatsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
astatsa
Гость
Kreol,
ну в чем проблема то, ну берешь и пишешь
Код: plaintext
1.
2.
3.
4.
Sheets("0522210100").Cells(n, 17 ) = Sheets("Копія даних").Cells( 7 , 3 )
Sheets("0522210100").Cells(n, 18 ) = Sheets("Копія даних").Cells( 7 , 4 )
Sheets("0522210100").Cells(n, 38 ) = Sheets("Копія даних").Cells( 6 , 1 )
Sheets("0522210100").Cells(n, 39 ) = Sheets("Копія даних").Cells( 6 , 2 )

а n запоминаешь при копировании, в своем макросе
...
Рейтинг: 0 / 0
16.10.2009, 12:12
| Ответить | Цитировать | Написать  
Передача в Range строковой переменной не получается
    #36255329
Kreol
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kreol
Участник
и оно ничего не копирует :(
...
Рейтинг: 0 / 0
16.10.2009, 12:31
| Ответить | Цитировать | Написать  
Передача в Range строковой переменной не получается
    #36255334
Kreol
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kreol
Участник
даже если явно прописать
Код: plaintext
1.
2.
3.
4.
5.
6.
Private Sub CommandButton2_Click()
  Sheets("0522210100").Cells( 10 ,  17 ) = Sheets("Копія даних").Cells( 3 ,  7 )
 Sheets("0522210100").Cells( 10 ,  18 ) = Sheets("Копія даних").Cells( 4 ,  7 )
 Sheets("0522210100").Cells( 10 ,  38 ) = Sheets("Копія даних").Cells( 1 ,  6 )
 Sheets("0522210100").Cells( 10 ,  39 ) = Sheets("Копія даних").Cells( 2 ,  6 )
 End Sub
...
Рейтинг: 0 / 0
16.10.2009, 12:32
| Ответить | Цитировать | Написать  
Передача в Range строковой переменной не получается
    #36255378
Kreol
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kreol
Участник
ребята помогите
...
Рейтинг: 0 / 0
16.10.2009, 12:44
| Ответить | Цитировать | Написать  
Передача в Range строковой переменной не получается
    #36255426
astatsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
astatsa
Гость
Kreol,

Private Sub CommandButton2_Click()
Sheets("0522210100").Cells(10, 17) = Sheets("Копія даних").Cells(3, 7)
Sheets("0522210100").Cells(10, 18) = Sheets("Копія даних").Cells(4, 7)
Sheets("0522210100").Cells(10, 38) = Sheets("Копія даних").Cells(1, 6)
Sheets("0522210100").Cells(10, 39) = Sheets("Копія даних").Cells(2, 6)
End Sub

разницу видишь?

Private Sub CommandButton2_Click()
Sheets("0522210100").Cells(10, 17) = Sheets("Копія даних").Cells (7, 3)
Sheets("0522210100").Cells(10, 18) = Sheets("Копія даних").Cells (7, 4)
Sheets("0522210100").Cells(10, 38) = Sheets("Копія даних").Cells (6, 1)
Sheets("0522210100").Cells(10, 39) = Sheets("Копія даних").Cells (6, 2)
End Sub

cells(НОМЕР СТРОКИ, НОМЕР СТОЛБЦА)
...
Рейтинг: 0 / 0
16.10.2009, 12:52
| Ответить | Цитировать | Написать  
Передача в Range строковой переменной не получается
    #36255482
Kreol
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kreol
Участник
ой вот это лапоть. Точно, провтык...
А еще момент как передать дату чтоб она числом не ставала? Или проще говоря с форматированием
...
Рейтинг: 0 / 0
16.10.2009, 13:02
| Ответить | Цитировать | Написать  
Передача в Range строковой переменной не получается
    #36255505
astatsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
astatsa
Гость
Kreol,
ну попробуй
Cells(i,j) = CDate (Cells(k,l))
...
Рейтинг: 0 / 0
16.10.2009, 13:07
| Ответить | Цитировать | Написать  
Передача в Range строковой переменной не получается
    #36274970
Kreol2009
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kreol2009
Участник
сенкс помогло :)
...
Рейтинг: 0 / 0
27.10.2009, 14:59
| Ответить | Цитировать | Написать  
20 сообщений из 20, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Передача в Range строковой переменной не получается
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&fpage=181&tid=2178921]:
 0ms
get settings:
 7ms
get forum list:
 10ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 62ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 32ms
get tp. blocked users:
 1ms
others: 217ms
total:  345ms
созд. / загр.: 345ms
x
x
Закрыть


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