Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/вывести значения по строчкам - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » вывести значения по строчкам (Макросы/Sub)
вывести значения по строчкам
qasder Дата: Вторник, 03.05.2016, 00:07 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Здравствуйте. Помогите, пожалуйста, определить мою ошибку в формуле цикла. Моя проблема: функция цикла "прогоняет" все значения и в каждой строчке, но не сохраняет для каждой строчки свое значение.
Задача: выложить значения по строчкам, сохраняя для каждой строчки свой результат.
К сообщению приложен файл: 7965754.xlsm(29Kb)


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

Автор - qasder
Дата добавления - 03.05.2016 в 00:07
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]
 
Ответить
СообщениеА вот и тот самый макрос, который нужно "продезинфецировать":

[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]

Автор - qasder
Дата добавления - 03.05.2016 в 02:56
nilem Дата: Вторник, 03.05.2016, 10:03 | Сообщение № 3
Группа: Авторы
Ранг: Ветеран
Сообщений: 1057
Репутация: 400 ±
Замечаний: 0% ±

Excel 2013
Ответ удалён. Вопрос задан с нарушением Правил форума


Яндекс.Деньги 4100159601573

Сообщение отредактировал Pelena - Вторник, 03.05.2016, 10:05
 
Ответить
СообщениеОтвет удалён. Вопрос задан с нарушением Правил форума

Автор - nilem
Дата добавления - 03.05.2016 в 10:03
qasder Дата: Среда, 04.05.2016, 20:17 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Неужели никто не знает ответ?[u]
 
Ответить
СообщениеНеужели никто не знает ответ?[u]

Автор - qasder
Дата добавления - 04.05.2016 в 20:17
Мир MS Excel » Вопросы и решения » Вопросы по VBA » вывести значения по строчкам (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!