Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Не работает Offset с динамичным параметром
 
#1
21.05.2012 17:27:12
Добрый день уважаемые форумчане!  
Столкнулся с проблемой. У меня есть файлы огромные. Там база клиентов и платежи по ним за 3 года. Я сделал форму туда впихнул всё компактно и по нажатию на клиента вылетает форма и всё подтягивается туда. Всё работает как часы.  
 
Теперь мне нужен новый файл, но с другой структурой, я всё сделал точно так же. Но оффсет не фурычит... А щас что то вообще форму не кажет.  
Я думал от того что ячейки объединены - убрал - не помогло.  
Думал option explit не написан где то - написал не работает. Но его и в тех файликах нет, а всё пашет как надо.  
 
Помогите пожалуйста люди добрые.))
 
 
 
#2
21.05.2012 18:29:11
Что такое Offset(Rw - 2)при ThisWorkbook.Worksheets("Спектакли").Range("A2")?  
А2 минус еще две строчки?    
МОжет имелось ввиду:  
 
Название = ThisWorkbook.Worksheets("Ñïåêòàêëè").Range("A2").Offset(Rw + 1)
 
 
 
#3
21.05.2012 19:21:52
gyv, код следует копировать при русской раскладке.
 
 
 
#4
21.05.2012 19:28:45
Ну и форма! В мой монитор не уместилась :-)  
Паша, какая цель преследовалась этой строкой?  
Название = ThisWorkbook.Worksheets("Спектакли").Offset(Rw - 2)  
Показать первое название из объединённой ячейки?  
Вот так сработает:  
Название = ThisWorkbook.Worksheets("Спектакли").Range("A3")
 
 
 
#5
21.05.2012 19:31:06
Если нужно обязательно с Offset, то вот так:  
Название = ThisWorkbook.Worksheets("Спектакли").Range("A2").Offset(1, 0)
 
 
 
#6
22.05.2012 09:20:15
Спасибо за Ваше внимание!)  
 
Цель строки такова. Пользователь выбирает двойным кликом по А2-100 спектакль. Программа определяет номер строки выбранной, и оффсетом задаёт координату для выцепления значения например Номера ЛД. range("A1").offset(Rw-1,3) то есть от А1 отступить на колво строк - 1  вниз и на 3 вправо. То есть выбрали 25 строку, значит от А1 идёт на 24 строки вниз и на 3 вправо.
 
 
 
#7
22.05.2012 09:22:19
В коде листа "Спектакли" идёт определение что такое Rw
 
 
 
#8
22.05.2012 09:34:28
Ну тогда Rw нужно в модуле объявить публичной.  
Вероятно модуль в старом/первом файле остался :)
 
 
 
#9
22.05.2012 09:43:17
Просится сделать две вещи:  
1.  
Cancel = True  
Спектакль.Show  
 
2.  
With ThisWorkbook.Worksheets("Спектакли").Range("A1")  
Название2 = Format(.Offset(Rw - 2, 274))  
Действия = Format(.Offset(Rw - 2, 274))  
...  
End With
 
 
 
#10
22.05.2012 09:45:16
{quote}{login=Hugo}{date=22.05.2012 09:34}{thema=}{post}Ну тогда Rw нужно в модуле объявить публичной.  
Вероятно модуль в старом/первом файле остался :){/post}{/quote}  
 
Даааааа!!!!!!! Точно я забыл переместить из того файла! А я то искал опшн иксплит и тд. А надо было две другие строки    
 
Public Rw As Integer  
Public Col As Integer  
 
Теперь всё заработало. Но я был рядом!!!)))) Огромное спасибо за наводку!!!!!!
 
 
 
#11
22.05.2012 10:57:38
{quote}{login=Паша}{date=22.05.2012 09:22}{thema=}{post}В коде листа "Спектакли" идёт определение что такое Rw{/post}{/quote}Тогда вообще непонятно - зачем Вам Offset? Ведь номер строки уже известен...
 
 
 
Страницы: 1
Читают тему
Наверх