ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / If then else
14 сообщений из 14, страница 1 из 1
If then else
    #36708845
Фотография -O_o-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-O_o-
Участник
Привет ВСЕМ!!!
Есть проблема... Вот код.. Я не селен в ВБА Чего ему надобно ???
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Sub ssss()
Dim x As Integer
x = InputBox("sss", "sdfsfd")

    Range("a1:a10").Select
    
        Selection.find(What:=x, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
           MsgBox (x)
         If x = True Then
         MsgBox ("dsfsds")
       End If
End Sub


Как сделать так, что бы если такого числа нет в диапазоне поиска то вывести msgbox ("нет такого") ...
И как можно оптимизировать код (сократить) ??
...
Рейтинг: 0 / 0
25.06.2010, 17:28
| Ответить | Цитировать | Написать  
If then else
    #36708910
Фотография Shamanus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shamanus
Участник
разберем Ваш код

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Sub ssss()
Dim x As Integer                 ' объявление переменной - тут все ок
x = InputBox("sss", "sdfsfd")  ' внесение искомой компонеты

    Range("a1:a10").Select    'выделяем диапазон (зачем?, можно искать и в не выделенном диапазоне)
    
        Selection.find(What:=x, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate     ' задали параметры поиска (зачем так много или это рекордер 
                                                         'столько показывает, достаточно задать искомый элемент
           MsgBox (x)                               ' вывести на экран искомый элемент. Это зачем? 
                                                         
         If x = True Then                          ' если искомый элемент = правда? это что за код?
         MsgBox ("dsfsds")                        ' напечатать окно с набором символов, это к чему?
       End If
End Sub

думаю верный код такой
Код: plaintext
1.
2.
Внесение искомой компоненты
Поиск в диапазоне. Если результат найден, то перевести курсор на него
Если не найдено, то вывести сообщение
...
Рейтинг: 0 / 0
25.06.2010, 17:59
| Ответить | Цитировать | Написать  
If then else
    #36708921
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
На SearchFormat:=False у меня ругается (2000), поэтому убрал.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Option Explicit

Sub ssss()
Dim x As Integer 'а если введём текст? или большое число?
Dim y As Object
x = InputBox("sss", "sdfsfd")
   
 Set y = Range("a1:a10").Find(What:=x, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
           MsgBox (x) ' наверное надо
           
 If y Is Nothing Then 'если не нашли
    MsgBox ("dsfsds")
 End If
End Sub
...
Рейтинг: 0 / 0
25.06.2010, 18:08
| Ответить | Цитировать | Написать  
If then else
    #36708929
Фотография -O_o-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-O_o-
Участник
Shamanus,
Поиск был написан редактором... Если бы знал как то написал бы короче... Я не знаю какая функция для поиска...
будет такого плана наверное...

Sub ssss()
Dim x As Integer
x = InputBox("sss", "sdfsfd")
задаем диапазон поиска - поиск (Х)....
выделяем Х если нашли
если нет
вывести значение "бла-бла-бла"...
Больше нет предположений )))
...
Рейтинг: 0 / 0
25.06.2010, 18:12
| Ответить | Цитировать | Написать  
If then else
    #36708930
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Хотя конечно Shamanus прав, я просто Ваш код минимально наладил, себе делал бы иначе, но свою задачу я обычно знаю, а Вашу нет :)
...
Рейтинг: 0 / 0
25.06.2010, 18:12
| Ответить | Цитировать | Написать  
If then else
    #36708937
Фотография Shamanus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shamanus
Участник
-O_o-Shamanus,
Поиск был написан редактором... Если бы знал как то написал бы короче... Я не знаю какая функция для поиска...
будет такого плана наверное...

Sub ssss()
Dim x As Integer
x = InputBox("sss", "sdfsfd")
задаем диапазон поиска - поиск (Х)....
выделяем Х если нашли
если нет
вывести значение "бла-бла-бла"...
Больше нет предположений )))

ну первое что пришло на ум вот

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Sub ssss()
Dim x As Integer   ' тут HUGO121 прав, подумайте над типом переменной
x = InputBox("sss", "sdfsfd") ' вводим переменную
  

If Range("a1:a10").Find(x, LookIn:=xlValues) Is Nothing Then ' если поиск по значениям (выбирать именно значения xlvalues диапазона
                                                                                   ' не увенчался успехом пишем не нашел 
    MsgBox "Не нашел!"
Else
    Range(Range("a1:a10").Find(x, LookIn:=xlValues).Address).Select  ' иначе выделяем ячейку с адресом результата
 End If
    
    
End Sub
...
Рейтинг: 0 / 0
25.06.2010, 18:16
| Ответить | Цитировать | Написать  
If then else
    #36708945
Фотография Shamanus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shamanus
Участник
надо добавить

просто если в поиске указать
Код: plaintext
LookIn:=xlFormulas
то если в значении ячейки будет 25, а записано =10+15, то это результат найден не будет. Поэтому все таки думайте под свою задачу
...
Рейтинг: 0 / 0
25.06.2010, 18:19
| Ответить | Цитировать | Написать  
If then else
    #36708949
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Другой вариант:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Sub ssss()
Dim x 'As Integer 'а если введём текст? или большое число?
Dim y As Object
x = InputBox("sss", "sdfsfd")
Set y = Range("a1:a10").Find(x, , xlValues)
     
 If Not y Is Nothing Then 'если нашли
 Cells(y.Row, y.Column).Select
 Else
    MsgBox ("dsfsds")
 End If
End Sub
...
Рейтинг: 0 / 0
25.06.2010, 18:21
| Ответить | Цитировать | Написать  
If then else
    #36708954
Фотография -O_o-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-O_o-
Участник
Hugo121 и Shamanus
Спасибо Вам большое. Просто не знал как кратко записать поиск.
Я только начал работать с ЕКСЕЛЬ Хочу себе хороший ПОЛЬЗОВАТЕЛЬСКИЙ уровень... Надеюсь запомню...
...
Рейтинг: 0 / 0
25.06.2010, 18:24
| Ответить | Цитировать | Написать  
If then else
    #36708982
Фотография Shamanus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shamanus
Участник
-O_o-,

незачто. Я учился в свое время совокупностью макрорекордер + object browser.

Selection обладает почти тем же набором методов и свойств, что и Range это в принципе одно и то же. Диапазон и выделенный диапазон. Если макрорекордер сделал find в selection значит сделайте find прямо у Range

А чтобы легко понять структуру работы этого метода, просто в редакторе VBA нажмите F2 - вызов браузера. Наберите Find, и в найденных результатах по строке Range нажмите F1. Там будет пример, который будет значительнее правильнее с точки программирования ООП для данного метода.

Скопируйте попробуйте, разберетесь. В этом плане майкрософт молодцы. А их msdn-у вообще цены нет.
...
Рейтинг: 0 / 0
25.06.2010, 18:38
| Ответить | Цитировать | Написать  
If then else
    #36708994
Фотография -O_o-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-O_o-
Участник
Shamanus-O_o-,

незачто. Я учился в свое время совокупностью макрорекордер + object browser.

Selection обладает почти тем же набором методов и свойств, что и Range это в принципе одно и то же. Диапазон и выделенный диапазон. Если макрорекордер сделал find в selection значит сделайте find прямо у Range

А чтобы легко понять структуру работы этого метода, просто в редакторе VBA нажмите F2 - вызов браузера. Наберите Find, и в найденных результатах по строке Range нажмите F1. Там будет пример, который будет значительнее правильнее с точки программирования ООП для данного метода.

Скопируйте попробуйте, разберетесь. В этом плане майкрософт молодцы. А их msdn-у вообще цены нет.
Что такое object browser ?
...
Рейтинг: 0 / 0
25.06.2010, 18:43
| Ответить | Цитировать | Написать  
If then else
    #36708999
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
-O_o-Shamanus просто в редакторе VBA нажмите F2 - вызов браузера.
Что такое object browser ?
...
Рейтинг: 0 / 0
25.06.2010, 18:46
| Ответить | Цитировать | Написать  
If then else
    #36746915
m
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
m
Гость
Hi! :)
-O_o-Что такое object browser ?
F2 нажимаешь в VB редакторе... слева показаны все классы (объекты), справа их методы, свойства и события... Например выбираешь класс (объект) range (см. рисунок) и смотришь его методы, например Activate, или свойства, например Address... событий нет :)... зато есть события для worksheet, например change...
...
Рейтинг: 0 / 0
18.07.2010, 10:59
| Ответить | Цитировать | Написать  
If then else
    #36749453
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
Hugo121Другой вариант:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Sub ssss()
Dim x 'As Integer 'а если введём текст? или большое число?
Dim y As Object
x = InputBox("sss", "sdfsfd")
Set y = Range("a1:a10").Find(x, , xlValues)
     
 If Not y Is Nothing Then 'если нашли
 Cells(y.Row, y.Column).Select
 Else
    MsgBox ("dsfsds")
 End If
End Sub


Код: plaintext
1.
2.
3.
4.
5.
Set y = Range("a1:a10").Find(x, , xlValues)
If y Is Nothing Then
    MsgBox ("dsfsds")
 Else
   y.Select
End If
Попроще будет
...
Рейтинг: 0 / 0
20.07.2010, 04:37
| Ответить | Цитировать | Написать  
14 сообщений из 14, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / If then else
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=36708930&tid=2177873]:
 0ms
get settings:
 8ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 189ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 60ms
get tp. blocked users:
 1ms
others: 223ms
total:  512ms
созд. / загр.: 512ms
x
x
Закрыть


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