ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Получаю неверное значение в макросе
13 сообщений из 13, страница 1 из 1
Получаю неверное значение в макросе
    #38473388
endurance
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
endurance
Гость
Приветствую!

Есть проблема, не могу понять в чем дело, куда копать.
Цель: получить адрес ячейки по значению. Тривиальная задача, но не идет.
К примеру, у меня есть столбец с названием "Материал", далее идет список материалов, мне необходимо найти адрес этой ячейки, где лежит название "Материал", чтобы потом можно было работать со списком.

Я написал такой код, но почему-то неверно выбирается адрес ячейки, не могу понять почему. В чем может быть дело? Заранее спасибо

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
[SRC VB]
Sub Main()
      Dim mater As String
      Dim currCell As Range
      mater = "Material"
      With Sheets("Table")
      Set currCell = Cells.Find(What:=mater, SearchFormat:=False)
                    Stop
                    mater = currCell.Address(False, False)
                    
End With
End Sub

[/SRC]
...
Рейтинг: 0 / 0
21.11.2013, 18:35
| Ответить | Цитировать | Написать  
Получаю неверное значение в макросе
    #38473404
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ставя
Код: vbnet
1.
With Sheets("Table")

вы какую цель преследовали?
...
Рейтинг: 0 / 0
21.11.2013, 18:55
| Ответить | Цитировать | Написать  
Получаю неверное значение в макросе
    #38473406
endurance
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
endurance
Гость
Shocker.Pro, чтобы все действия в этом блоке выполнять в листе "Table".
...
Рейтинг: 0 / 0
21.11.2013, 19:00
| Ответить | Цитировать | Написать  
Получаю неверное значение в макросе
    #38473411
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
тогда надо поставить точку перед Cells, а то поиск выполняется на текущем листе
...
Рейтинг: 0 / 0
21.11.2013, 19:06
| Ответить | Цитировать | Написать  
Получаю неверное значение в макросе
    #38473413
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
enduranceполучить адрес ячейкиА вернуть куда? Ибо вернуть может либо функция, либо процедура в параметр ByRef , либо запись в коде в паблик-переменную - а ничего из этого не наблюдается...

Ну а для поиска конкретного значения на листе - даже не обязательно применять VBA. Вашу хотелку даже формулы листа решают...
...
Рейтинг: 0 / 0
21.11.2013, 19:10
| Ответить | Цитировать | Написать  
Получаю неверное значение в макросе
    #38473429
endurance
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
endurance
Гость
Shocker.Proтогда надо поставить точку перед Cells, а то поиск выполняется на текущем листе
Поставил, результат такой же - неверный. Возвращает адрес другой ячейки, даже не могу понять почему берет именно ее.
...
Рейтинг: 0 / 0
21.11.2013, 19:43
| Ответить | Цитировать | Написать  
Получаю неверное значение в макросе
    #38473438
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
enduranceShocker.Proтогда надо поставить точку перед Cells, а то поиск выполняется на текущем листе
Поставил, результат такой же - неверный. Возвращает адрес другой ячейки, даже не могу понять почему берет именно ее.Ну мы усилием мысли не можем увидеть ваш файл и попробовать на своем компьютере, только по вашей доброй воле...
...
Рейтинг: 0 / 0
21.11.2013, 19:47
| Ответить | Цитировать | Написать  
Получаю неверное значение в макросе
    #38473442
endurance
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
endurance
Гость
AndreTMenduranceполучить адрес ячейкиА вернуть куда? Ибо вернуть может либо функция, либо процедура в параметр ByRef , либо запись в коде в паблик-переменную - а ничего из этого не наблюдается...

Потом я хочу записать в переменную номер найденной строки и стоблца и дальше с этими переменными работать.
var1=currCell.row
var2=currCell.column

AndreTMНу а для поиска конкретного значения на листе - даже не обязательно применять VBA. Вашу хотелку даже формулы листа решают...
Согласен, но дальше мне потребуются эти значения в циклах. Без VBA не получится.
...
Рейтинг: 0 / 0
21.11.2013, 19:49
| Ответить | Цитировать | Написать  
Получаю неверное значение в макросе
    #38473452
endurance
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
endurance
Гость
Shocker.Proenduranceпропущено...

Поставил, результат такой же - неверный. Возвращает адрес другой ячейки, даже не могу понять почему берет именно ее.Ну мы усилием мысли не можем увидеть ваш файл и попробовать на своем компьютере, только по вашей доброй воле...
Понял, Excel файл во вложении.
...
Рейтинг: 0 / 0
21.11.2013, 20:02
| Ответить | Цитировать | Написать  
Получаю неверное значение в макросе
    #38473563
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
не знаю, у меня все находит (ячейку D5). Если пользоваться кодом, который в вашем первом посте, а не тем, что в файле


ЗЫ: этот материал будет вам полезен
...
Рейтинг: 0 / 0
21.11.2013, 22:57
| Ответить | Цитировать | Написать  
Получаю неверное значение в макросе
    #38475134
zchvv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zchvv
Участник
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
Public Function НайтиСтолбец(ByVal rng As Range, ByVal zglvk As String) As Integer
Dim c As Range
    Set c = rng.Find(What:=zglvk, LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
        НайтиСтолбец = c.Column
    Else
        НайтиСтолбец = -1
    End If
End Function



Вызов:
Set Table=ws.UsedRange (или как нибудь еще)
k=НайтиСтолбец(Table.Rows(1),"Материал")
...
Рейтинг: 0 / 0
23.11.2013, 10:26
| Ответить | Цитировать | Написать  
Получаю неверное значение в макросе
    #38475246
Фотография lbppb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lbppb
Участник
endurance,
...
Рейтинг: 0 / 0
23.11.2013, 14:57
| Ответить | Цитировать | Написать  
Получаю неверное значение в макросе
    #38476763
endurance
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
endurance
Гость
авторне знаю, у меня все находит (ячейку D5). Если пользоваться кодом, который в вашем первом посте, а не тем, что в файле
ЗЫ: этот материал будет вам полезен
спасибо! Поигрался с точкой и вариантами написания, все заработало. Возможно потому что Excel 2007. За информацию спасибо!

zchvv, lbppb, спасибо большое, разобрался!
...
Рейтинг: 0 / 0
25.11.2013, 15:07
| Ответить | Цитировать | Написать  
13 сообщений из 13, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Получаю неверное значение в макросе
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=50&tid=2156677]:
 0ms
get settings:
 10ms
get forum list:
 12ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 38ms
get topic data:
 14ms
get forum data:
 3ms
get page messages:
 52ms
get tp. blocked users:
 2ms
others: 263ms
total:  402ms
созд. / загр.: 402ms
x
x
Закрыть


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