ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / цикл
10 сообщений из 10, страница 1 из 1
цикл
    #36034728
qasd1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
qasd1
Гость
Как для этого процеса цикл можно создовать?

Код: plaintext
1.
2.
Worksheets("LIST1").Range("c14:h14").Copy
Worksheets("LIST2").Range("C4").PasteSpecial , , , True

Я делаю так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
 Private Sub CommandButton1_Click()
    Dim byteI As Byte, intY As Integer, douK As Double
    Sheets("LIST2").Select
    douK =  0 
    For byteI =  14  To  25 
    intY = Abs(Sheets("LIST1").Range("C" & byteI))

   Worksheets("LIST1").Range("C" & byteI:"H" & byteI).Copy
   Worksheets("LIST2").Range("C4").PasteSpecial , , , True

    Next byteI
 End Sub

Понимаю что, что-то не так, но, незнаю что.
Помогите пожалуйста как можн создовать такой цикл.
...
Рейтинг: 0 / 0
10.06.2009, 09:43:46
| Ответить | Цитировать | Написать  
цикл
    #36034828
Korcar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Korcar
Участник
а что не работает? ошибку где-то пишет? - это первое

и второе: что и куда надо скопировать?
строки с 14 по 25 в строку 4?
или ячейки строки 14 в строку 4?

вообщем, тьма вопросов
...
Рейтинг: 0 / 0
10.06.2009, 10:24:09
| Ответить | Цитировать | Написать  
цикл
    #36034942
qasd1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
qasd1
Гость
Надо из лист1 каждую строку начиная 14-го по 25 (C14:H14,C15:H15,...C25-H25)
копировать в лист2 столбец С (С4,c5,...C9)

intY = Abs(Sheets("LIST1").Range("C" & byteI))-данный момент ни какой рол не играеть.
...
Рейтинг: 0 / 0
10.06.2009, 10:59:50
| Ответить | Цитировать | Написать  
цикл
    #36035165
Korcar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Korcar
Участник
Код: plaintext
1.
Worksheets("LIST1").Range("C"+CStr(byteI)":H"+Cstr(byteI)).Copy
так попробуй
...
Рейтинг: 0 / 0
10.06.2009, 12:06:53
| Ответить | Цитировать | Написать  
цикл
    #36035825
qasd1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
qasd1
Гость
Вот использую этот макрос:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Sub Makros()
Dim byteI As Byte, intY As Integer, douK As Double
Sheets("LIST2").Select
douK =  0 
For byteI =  14  To  25 
    Worksheets("LIST1").Range("C" & byteI & ":H" & byteI).Copy
    Worksheets("LIST2").Range("C4").PasteSpecial , , , True
Next byteI
End Sub

Сейчас мне надо в цикле для каждого строка вычислить F и J.

Для F:
=D4-(ВПР(D4;List3!$A$2:$C$32;3;1))*(E4-20)

Для J:
=ЕСЛИ(C4=0;0;ИНДЕКС(List4!$A$1:$K$1300;ПОИСКПОЗ(LIST2!$C4;List4!$A$1:$A$1300;0);ПОИСКПОЗ(LIST2!$B4;List4!$A$1:$K$1;0)))

Если эти выражение использувать в Excel в ячейках как функция все нормально работает, но эти выражение используват в макрос не получается.
...
Рейтинг: 0 / 0
10.06.2009, 15:45:35
| Ответить | Цитировать | Написать  
цикл
    #36037019
Korcar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Korcar
Участник
потому что в VBA нет команд на русском. перепиши названия функций на англоязычные аналоги и все заработает)
...
Рейтинг: 0 / 0
11.06.2009, 10:39:44
| Ответить | Цитировать | Написать  
цикл
    #36037253
qasd1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
qasd1
Гость
Korcarпотому что в VBA нет команд на русском. перепиши названия функций на англоязычные аналоги и все заработает)

Нет, что-то не так делаю, не получается у меня.
...
Рейтинг: 0 / 0
11.06.2009, 11:54:28
| Ответить | Цитировать | Написать  
цикл
    #36037775
qasd1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
qasd1
Гость
ПОМОГИТЕ ПОЖАЛУЙСТА.
...
Рейтинг: 0 / 0
11.06.2009, 14:35:24
| Ответить | Цитировать | Написать  
цикл
    #36037819
Сергей06
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сергей06
Участник
qasd1,

"=R[3]C[3]-(VLOOKUP(R[3]C[3],List3!R2C1:R32C3,3,1))*(R[3]C[4]-20)"
"=IF(R[2]C[2]=0,0,INDEX(List4!R1C1:R1300C11,MATCH(LIST2!R[2]C3,List4!R1C1:R1300C1,0),MATCH(LIST2!R[2]C2,List4!R1C1:R1C11,0)))"

Это формулы в английском варианте.
Делается все это просто: включаешь марорекордер, и заносишь в ячейку формулу. В макросе записывается формула в английском варианте
...
Рейтинг: 0 / 0
11.06.2009, 14:50:20
| Ответить | Цитировать | Написать  
цикл
    #36037896
qasd1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
qasd1
Гость
Сергей06qasd1,

"=R[3]C[3]-(VLOOKUP(R[3]C[3],List3!R2C1:R32C3,3,1))*(R[3]C[4]-20)"
"=IF(R[2]C[2]=0,0,INDEX(List4!R1C1:R1300C11,MATCH(LIST2!R[2]C3,List4!R1C1:R1300C1,0),MATCH(LIST2!R[2]C2,List4!R1C1:R1C11,0)))"

Это формулы в английском варианте.
Делается все это просто: включаешь марорекордер, и заносишь в ячейку формулу. В макросе записывается формула в английском варианте

Сергей06, у меня не получается. Покажите пожалуйста на моем примере (X2.rar), если не трудно.
Уже не понимаю что не так делаю.
...
Рейтинг: 0 / 0
11.06.2009, 15:17:51
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / цикл
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&fpage=193&tid=2179387]:
 0ms
get settings:
 7ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 64ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 35ms
get tp. blocked users:
 1ms
others: 234ms
total:  369ms
созд. / загр.: 369ms
x
x
Закрыть


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