ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Переменные. Что не так?
15 сообщений из 15, страница 1 из 1
Переменные. Что не так?
    #37985911
alexey_grigorov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alexey_grigorov
Гость
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
Dim CompareRange As Variant, x As Variant, y As Variant
   
    Set CompareRange = Worksheets("Запрос из BestOra").Range("j2:j8000")
   Set x = 1
        For Each y In CompareRange
            If y > 300000 Then x = x + 1 And Worksheets("Лист1").Range("ax") = y.Offset(0, -1)
            
        Next y



Где ошибся? Должен брать значение и один за другим проставлять, если y>300000
Модератор: Учимся использовать тэги оформления кода - FAQ
...
Рейтинг: 0 / 0
05.10.2012, 18:42
| Ответить | Цитировать | Написать  
Переменные. Что не так?
    #37985924
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
And - логический оператор - читаем учебник, а не выдумываем применение операторов из головы.
Код: vbnet
1.
2.
3.
4.
If y > 300000 Then
  x = x + 1
  Worksheets("Лист1").Range("ax") = y.Offset(0, -1)
End If
...
Рейтинг: 0 / 0
05.10.2012, 18:51
| Ответить | Цитировать | Написать  
Переменные. Что не так?
    #37985928
alexey_grigorov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alexey_grigorov
Гость
Shocker.Pro,
Так тоже не работает! (( Пишет: Object recuired и показывает на Set x = 1
...
Рейтинг: 0 / 0
05.10.2012, 18:59
| Ответить | Цитировать | Написать  
Переменные. Что не так?
    #37985934
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Читаем учебник дальше.
Не Set, а Let
Ведь не ставишь же почему-то Set перед x = x + 1
В общем, не надо выдумывать синтаксис ))

ЗЫ: оператор Let можно опустить
...
Рейтинг: 0 / 0
05.10.2012, 19:03
| Ответить | Цитировать | Написать  
Переменные. Что не так?
    #37985939
alexey_grigorov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alexey_grigorov
Гость
Shocker.Pro,

И так тож не работает, уже пробовал. Х меняется, если поставить ("А1") то все значения ставятся в одном поле, только ставалю ("АХ") выдает ошибку! ((
...
Рейтинг: 0 / 0
05.10.2012, 19:13
| Ответить | Цитировать | Написать  
Переменные. Что не так?
    #37985948
qwerty112
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
qwerty112
Гость
alexey_grigorovShocker.Pro,

И так тож не работает, уже пробовал. Х меняется, если поставить ("А1") то все значения ставятся в одном поле, только ставалю ("АХ") выдает ошибку! ((
так исправляй ошибку, чё ты тупиш-то ?
...
Рейтинг: 0 / 0
05.10.2012, 19:20
| Ответить | Цитировать | Написать  
Переменные. Что не так?
    #37985952
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
alexey_grigorovShocker.Pro,

И так тож не работает, уже пробовал. Х меняется, если поставить ("А1") то все значения ставятся в одном поле, только ставалю ("АХ") выдает ошибку! ((

мы в каждой строке будем ошибку теперь исправлять?
Код: vbnet
1.
Range("A"+CStr(x))


может начать с чего-то более простого?
...
Рейтинг: 0 / 0
05.10.2012, 19:24
| Ответить | Цитировать | Написать  
Переменные. Что не так?
    #37985964
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Казанский
Гость
С минимальной правкой
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Dim CompareRange As Variant, x As Variant, y As Variant

Set CompareRange = Worksheets("Лист2").Range("j2:j8000")
x = 1
For Each y In CompareRange
    If y > 300000 Then x = x + 1: Worksheets("Лист1").Range("a" & x) = y.Offset(0, -1)
Next y
...
Рейтинг: 0 / 0
05.10.2012, 19:35
| Ответить | Цитировать | Написать  
Переменные. Что не так?
    #37985978
alexey_grigorov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alexey_grigorov
Гость
Спасибо большое! Все получилось. Куда же мне еще обращатся, как не на форум то?! )) Если в книги, то форумы то тогда зачем! )
...
Рейтинг: 0 / 0
05.10.2012, 19:47
| Ответить | Цитировать | Написать  
Переменные. Что не так?
    #37985996
qwerty112
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
qwerty112
Гость
alexey_grigorovКуда же мне еще обращатся, как не на форум то?! )) Если в книги, то форумы то тогда зачем! )
затем, что это не "центр реабилитации идиотов",
и уж как присваиваются значения переменным, - стоит знать ДО того как лезть с вопросами
...
Рейтинг: 0 / 0
05.10.2012, 19:56
| Ответить | Цитировать | Написать  
Переменные. Что не так?
    #37986033
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
alexey_grigorovКуда же мне еще обращатся, как не на форум то?! )) Если в книги, то форумы то тогда зачем! )Да, в школе тоже можно не учиться. Есть же форум, где можно все спросить и телефон мамы на худой конец.
...
Рейтинг: 0 / 0
05.10.2012, 20:42
| Ответить | Цитировать | Написать  
Переменные. Что не так?
    #37986046
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
Shocker.Pro, ну а вот еще есть категория людей, те тупо вообще стесняются спросить - хоть где наяву, в сети, по моему тоже не фонтан...
...
Рейтинг: 0 / 0
05.10.2012, 20:57
| Ответить | Цитировать | Написать  
Переменные. Что не так?
    #37991641
alexey_grigorov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alexey_grigorov
Гость
qwerty112alexey_grigorovКуда же мне еще обращатся, как не на форум то?! )) Если в книги, то форумы то тогда зачем! )
затем, что это не "центр реабилитации идиотов",
и уж как присваиваются значения переменным, - стоит знать ДО того как лезть с вопросами

Тогда сделайте закрытый форум, для гуру таких как вы, чтобы всякие чайники типа меня не задавали по вашему мнению глупых вопросов. Не хотите не отвечайте, а на счет "центр реабилитации идиотов" переборщили. Уважайте человека независимо от того, знает он ДО или нет!
...
Рейтинг: 0 / 0
10.10.2012, 13:43
| Ответить | Цитировать | Написать  
Переменные. Что не так?
    #37991812
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
alexey_grigorovУважайте человека независимо от того, знает он ДО или нет!Еще чего. Уважение это такая штука, которую зарабатывают, а не требуют.
...
Рейтинг: 0 / 0
10.10.2012, 14:59
| Ответить | Цитировать | Написать  
Переменные. Что не так?
    #37991890
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Модератор: Вопрос перешел не в ту плоскость.
Согласен с ТС, что qwerty112 переборщил, приношу за него свои извинения
тема закрыта
...
Рейтинг: 0 / 0
10.10.2012, 15:25
| Ответить | Цитировать | Написать  
15 сообщений из 15, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Переменные. Что не так?
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&tid=2157404]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 37ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 46ms
get tp. blocked users:
 1ms
others: 286ms
total:  413ms
созд. / загр.: 413ms
x
x
Закрыть


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