цикл / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / цикл

6 сообщений из 6, страница 1 из 1

цикл

#36034722

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, 09:41

| Ответить | Цитировать | Написать

цикл

#36034884

Апострофф

Гость

Код: plaintext

intY = Abs(Sheets("LIST1").Range("C" & byteI)) '?почему-то не использована intY

Код: plaintext

'Worksheets("LIST1").Range("C" & byteI:"H" & byteI).Copy 'не хватает слияния, не там двоеточие!
Worksheets("LIST1").Range("C" & byteI & ":H" & byteI).Copy 'пиши примерно так

А вобще-то неплохо-бы пояснить суть задачи, а то видно какое-то транспонирования с наворотом, понять бы еще, с каким?

...

Рейтинг:

0 / 0

10.06.2009, 10:43

| Ответить | Цитировать | Написать

цикл

#36034982

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, 11:13

| Ответить | Цитировать | Написать

цикл

#36035188

Апострофф

Гость

q1q2q3 , а если попробовать без цикла?

Код: plaintext

Worksheets("LIST1").Range("c14:h25").Copy
Worksheets("LIST2").Range("C4").PasteSpecial , , , True

...

Рейтинг:

0 / 0

10.06.2009, 12:12

| Ответить | Цитировать | Написать

цикл

#36035819

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

10.06.2009, 15:44

| Ответить | Цитировать | Написать

цикл

#36037771

q1q2q3

Гость

ПОМОГИТЕ ПОЖАЛУЙСТА.

...

Рейтинг:

0 / 0

11.06.2009, 14:34

| Ответить | Цитировать | Написать

6 сообщений из 6, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / цикл

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&gotonew=1&tid=2160848]:	0ms
get settings:	8ms
get forum list:	16ms
check forum access:	4ms
check topic access:	4ms
track hit:	74ms
get topic data:	8ms
get first new msg:	5ms
get forum data:	2ms
get page messages:	29ms
get tp. blocked users:	1ms
others:	226ms

total:	377ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы