вывести значения по строчкам

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

вывести значения по строчкам (Макросы/Sub)

qasder

Дата: Вторник, 03.05.2016, 00:07 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 20% ±

Excel 2007

Здравствуйте. Помогите, пожалуйста, определить мою ошибку в формуле цикла. Моя проблема: функция цикла "прогоняет" все значения и в каждой строчке, но не сохраняет для каждой строчки свое значение.
Задача: выложить значения по строчкам, сохраняя для каждой строчки свой результат.

К сообщению приложен файл: 7965754.xlsm (29.0 Kb)

Сообщение отредактировал qasder - Вторник, 03.05.2016, 12:01

Ответить

qasder

Дата: Вторник, 03.05.2016, 02:56 | Сообщение № 2

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 20% ±

Excel 2007

А вот и тот самый макрос, который нужно "продезинфецировать":

[vba]

Код

Sub Get_Value_From_Close_Book_Excel4Macro()
Dim ss
Dim sAddress As String, vData

For qw = 9 To 23
For we = 14 To 28

ss = ThisWorkbook.Sheets(1).Cells(8, 50)
sd = ThisWorkbook.Sheets(1).Cells(qw, 53)

sAddress = ss & Range(sd).Address(ReferenceStyle:=xlR1C1)
vData = ExecuteExcel4Macro(sAddress)
Application.ThisWorkbook.Sheets(1).Cells(we, 2) = vData

Next we
Next qw

End Sub

[/vba]
[moder]Дайте теме более конкретное название в соответствии с Правилами форума. Для оформления кода используйте теги (кнопка #)
Исправлено[/moder]