Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / цикл / 6 сообщений из 6, страница 1 из 1
10.06.2009, 09:41
    #36034722
q1q2q3
q1q2q3
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
цикл
Как для этого процеса цикл можно создовать?

Код: 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, 10:43
    #36034884
Апострофф
Апострофф
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
цикл
Код: plaintext
intY = Abs(Sheets("LIST1").Range("C" & byteI)) '?почему-то не использована intY
Код: plaintext
1.
'Worksheets("LIST1").Range("C" & byteI:"H" & byteI).Copy 'не хватает слияния, не там двоеточие!
Worksheets("LIST1").Range("C" & byteI & ":H" & byteI).Copy 'пиши примерно так
А вобще-то неплохо-бы пояснить суть задачи, а то видно какое-то транспонирования с наворотом, понять бы еще, с каким?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.06.2009, 11:13
    #36034982
q1q2q3
q1q2q3
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
цикл
Надо из лист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, 12:12
    #36035188
Апострофф
Апострофф
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
цикл
q1q2q3 , а если попробовать без цикла?
Код: plaintext
1.
Worksheets("LIST1").Range("c14:h25").Copy
Worksheets("LIST2").Range("C4").PasteSpecial , , , True
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.06.2009, 15:44
    #36035819
q1q2q3
q1q2q3
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
цикл
Вот использую этот макрос:
Код: 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
| Ответить | Цитировать | Написать  
11.06.2009, 14:34
    #36037771
q1q2q3
q1q2q3
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
цикл
ПОМОГИТЕ ПОЖАЛУЙСТА.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / цикл / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 320ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2160848]:
 0ms
get settings:
 8ms
get forum list:
 17ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 43ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 33ms
get tp. blocked users:
 1ms
others: 201ms
total:  320ms
x
x
Закрыть


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