ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / aCell гуляет по всей странице?
7 сообщений из 7, страница 1 из 1
aCell гуляет по всей странице?
    #38007515
yanyariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
yanyariy
Участник
Всем доброго времени суток. Поделюсь проблемкой. Захотелось написать макрос небольшой, который обрабатывает несколько диапазонов в цикле. Обработка происходит нормально, но перед тем, как обрабатывать нужный диапазон, aCell гуляет по всей странице и делает что хочет.
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
 For K = 0 To 4
    Diap = "R" & 7 + 4 * K & "," & "C" & 5 & ":" & "R" & 10 + 4 * K & "," & "C" & 20
    
    For Each aCell In Worksheets("Лист3").Range(Diap)
   
   
                If aCell.Text = "Р" Then
                  P = P + 8
                  Dney = Dney + 1
                ElseIf aCell.Text = "РН" Then
                   PH = PH + 7
                    Dney = Dney + 1
                ElseIf aCell.Text = "РВ" Then
                 PB = PB + 8
                  Dney = Dney + 1
               End If
    
   Next
   
    Next K


Может кто знает, в чем дело?
...
Рейтинг: 0 / 0
21.10.2012, 21:42
| Ответить | Цитировать | Написать  
aCell гуляет по всей странице?
    #38007525
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
переменная Diap принимает последовательно 5 значений:
Код: plaintext
1.
2.
3.
4.
"R7,C5:R10,C20"
"R11,C5:R14,C20"
"R15,C5:R18,C20"
"R19,C5:R22,C20"
"R23,C5:R26,C20"
ты уверен, что именно так ты задумывал?

просто непонятно, зачем писать
Код: plaintext
& "," & "C" & 20
когда можно написать
Код: plaintext
& ",C20"
вот я и подумал...
...
Рейтинг: 0 / 0
21.10.2012, 22:02
| Ответить | Цитировать | Написать  
aCell гуляет по всей странице?
    #38007542
yanyariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
yanyariy
Участник
Shocker.Pro,

Так и есть, переменная должна принимать последовательно именно эти значения. Ваш совет учту. Но, как я понимаю, в пределах этих значений и должно все происходить. Путем пошагового просмотра выясняю, что сначала обрабатывается ячейка R7C18, затем R5C3, R5C4,...
Но ведь эти ячейки не входят в заданный диапазон (кроме первой)!
...
Рейтинг: 0 / 0
21.10.2012, 22:48
| Ответить | Цитировать | Написать  
aCell гуляет по всей странице?
    #38007570
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
yanyariyобрабатывается ячейка R7C18это что за такая ячейка? Уж не подразумеваешь ли ты случаем под буквами R и С строку и столбец???
...
Рейтинг: 0 / 0
21.10.2012, 23:57
| Ответить | Цитировать | Написать  
aCell гуляет по всей странице?
    #38007574
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ну точно, подразумеваешь.
Выполни вот такую команду:
Код: vbnet
1.
range("R1,C5:R10,C20").Interior.ColorIndex=1


и ты наглядно увидишь, что
а) Покрасилась ячейка R1
б) Покрасился прямоугольник C5:R10
в) Покрасилась ячейка С20
Это ровно то, что ты просишь.
А вот что ты ХОЧЕШЬ - осталось пока загадкой.
...
Рейтинг: 0 / 0
22.10.2012, 00:01
| Ответить | Цитировать | Написать  
aCell гуляет по всей странице?
    #38007577
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
видимо, вместо
Код: vbnet
1.
Range("R7,C5:R10,C20")

на самом деле ты хочешь
Код: vbnet
1.
Range(Cells(7,5),Cells(10,20))
...
Рейтинг: 0 / 0
22.10.2012, 00:05
| Ответить | Цитировать | Написать  
aCell гуляет по всей странице?
    #38008224
yanyariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
yanyariy
Участник
Shocker.Pro,
Вы оказались правы. Видно, я неправильно учебник прочитал. И, что еще хуже, неправильно понял.
Большое спасибо.
...
Рейтинг: 0 / 0
22.10.2012, 14:45
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / aCell гуляет по всей странице?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=68&tid=2157382]:
 0ms
get settings:
 8ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 48ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 43ms
get tp. blocked users:
 1ms
others: 246ms
total:  378ms
созд. / загр.: 378ms
x
x
Закрыть


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