Сделать цикл для перебора элемента массива

@skelmen · 03.04.2015, 12:34

Студворк — интернет-сервис помощи студентам

Добрый день. Помогите, пожалуйста, с проблемой. Ни разу не сталкивался с VB, не судите строго если есть косяки.
Проблема такова: есть таблица клиентов. У каждого в таблице есть в одном столбце e-mail, а в другом бонусный остаток (у каждого человека свой). Нужно что-бы этот бонусный остаток пришел каждому на почту при нажатии на кнопку. Весь код не буду прикреплять. Вот часть, которую я не могу допилить. Здесь создается массив из этих двух колонок (эл. почта и кол-во бонусов). sTo - кому отправляем (эл.почта), sSubject - тема письма, sBody - содержание письма(к-во бонусов). Нужно правильно организовать цикл. К примеру, у нас 3 клиента в тбл.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim LastRow As Long
    Dim myArray As Variant
    LastRow = Cells.SpecialCells(xlCellTypeLastCell).Row
    myArray = Range("B1:C1" & LastRow)
    
    Dim i As Integer
 
    For i = 1 To 3
        
        sTo = myArray(i, 1)
        sFrom = "****@mail.ru"
        sSubject = "Количество бонусов"
        sBody = myArray(i, 2)
 
    Next i

Например, если я явно указываю кому и что отправить (отправляется на e-mail к-во бонусов) первому клиенту из списка, все нормально работает, на почту все приходит.

Visual Basic
1
2
3
4
5
6
7
8
9
    Dim LastRow As Long
    Dim myArray As Variant
    LastRow = Cells.SpecialCells(xlCellTypeLastCell).Row
    myArray = Range("B1:C1" & LastRow)
    
        sTo = myArray(1, 1)
        sFrom = "****@mail.ru"
        sSubject = "Количество бонусов"
        sBody = myArray(1, 2)

А цикл нужен, чтоб отправлялось всем из списка по очереди. sTo = myArray(2, 1) sBody = myArray(2, 2); sTo = myArray(3, 1) sBody = myArray(3, 2) и т.д.

@Vovchikvsb · 04.04.2015, 12:29

Visual Basic
1
Range("B1:C1" & LastRow)

Поменяйте на

Visual Basic
1
Range("B1:C" & LastRow)

А то у вас намного больше строк обрабатывается чем нужно.

Добавлено через 5 минут

Сообщение от skelmen

Помогите, пожалуйста, с проблемой

Что происходит при использовании цикла? Ошибка выскакивает? Если да, то чему рано i в момент ошибки?
Или просто не доходит письмо?

Добавлено через 1 минуту
Попробуйте изменить то, что я выше написал и цикл такой.

Visual Basic
1
2
For i = Lbound(myArray , 1) To Ubound(myArray , 1)
Next i

@Hugo121 · 04.04.2015, 13:10

Сообщение от skelmen

Dim i As Integer

Если клиентов много (очень много) - то тут может быть причина ошибки.

@skelmen · 04.04.2015, 13:17

Да, я понимаю это. Но я взял три клиента, чтоб хотя бы с этими тремя получилось, в этом то вся и загвоздка.

@Hugo121 · 04.04.2015, 13:24

Явно нам что-то недоговариваете/недопоказываете.

@skelmen · 04.04.2015, 13:27

Vovchikvsb попробовал Ваш вариант - не получилось.
Правда есть еще нюанс: в этом коде на e-mail получает сообщение только третий клиент.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
    Dim LastRow As Long
    Dim myArray As Variant
    LastRow = Cells.SpecialCells(xlCellTypeLastCell).Row
    myArray = Range("B1:C" & LastRow)
    
    Dim i As Integer
 
    For i = 1 To 3
         
        sTo = myArray(i, 1)
        sFrom = "****@mail.ru"
        sSubject = "Количество бонусов"
        sBody = myArray(i, 2)
 
    Next i

Т.е. "i" принимает только значение 3, почему нет перебора по 1 и 2? Сразу ставит 3 и отправляется письмо третьему человеку.

@Hugo121 · 04.04.2015, 13:29

Ну правильно - Next i нужно передвинуть после кода отправки, будет всем отправлять.

@skelmen · 04.04.2015, 13:38

Сообщение от Hugo121

Ну правильно - Next i нужно передвинуть после кода отправки, будет всем отправлять.

))) Фантастика, все заработало. Спасибо Вам, Hugo121, большое!!! И отдельное спасибо всем откликнувшимся!!!

Новые блоги и статьи Все статьи Все блоги /
FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .
Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .

Сделать цикл для перебора элемента массива

Решение