Подскажите что не так в коде VBA в Excel
Function USER1(cell As Range)
Dim CellValue As Range
CellValue = Worksheets("Лист1").Range("A1:M24").Value
'MsgBox CellValue
'Debug.Print CellValue
USER1 = CellValue
End Function
Очень нужно из функции с ячейками работать. А не хочет программа с такой функцией работать и все.
причем в окне быстрого запуска код Worksheets("Лист3").Range("A1:M24") = Worksheets("Лист1").Range("A1:M24").Value работает, но нужно чтобы то же самое делалось из функции.
У Вас случайно в ячейке не котировка из мт4?
А что, по Вашему мнению, должно присвоиться переменной CellValue? Какое из 312 значений?
Worksheets("Лист3").Range("A1:M24") = Worksheets("Лист1").Range("A1:M24").Value
312 значений Листа 1 копируются в 312 ячеек Листа 3. Все корректно.
Вам, видимо, необходимо написать 2 воложенных цикла по строкам+по столбцам. А относительно Range или Cells - как Вам будет удобнее (естественно Cells, хотя кто знает :) - в цикле по буквам русского алфавита может быть своя прелесть :) ) формировать номер ячейки.
А что, по Вашему мнению, должно присвоиться переменной CellValue? Какое из 312 значений?
312 значений Листа 1 копируются в 312 ячеек Листа 3. Все корректно.
Вам, видимо, необходимо написать 2 воложенных цикла по строкам+по столбцам. А относительно Range или Cells - как Вам будет удобнее (естественно Cells, хотя кто знает :) - в цикле по буквам русского алфавита может быть своя прелесть :) ) формировать номер ячейки.
А вы попробуйте использовать вместо Range() Cells()
Не подходит здесь Cells, вот код улучшил но не работает пока:
Function USER1(C As Range)Set CellValue = Worksheets("Лист3").Range("A1:M24")
CellValue = Worksheets("Лист1").Range("A1:M24").Value
USER1 = CellValue
End Function
А здесь тоже вроде бы все корректно и при вводе аргумента функции выбираю диапозон A1:M24, а не хочет работать почему то.
Здесь без Calls не обойтись. Нужно не диапазон весь швырять в одну переменную, а поячеячно (каждую ячейку) переносить. Для этого необходимы вложенные цыклы. Посмотрите наглядный пример, как я работаю с ячейками и их обработкой: 'Сохраняйте и анализируйте параметры оптимизации в Excel'
А что это за функция Calls???
Читай справку. Там всё написано. Здесь можно русскую справку скачать: http://evs.ucoz.ru/load/4-1-0-12
Читай справку. Там всё написано. Здесь можно русскую справку скачать: http://evs.ucoz.ru/load/4-1-0-12
Ты наверное имел ввиду все таки Cells, потому что и в этом справочнике команда Calls нет.
- Бесплатные приложения для трейдинга
- 8 000+ сигналов для копирования
- Экономические новости для анализа финансовых рынков
Вы принимаете политику сайта и условия использования
Dim CellValue As Range
CellValue = Worksheets("Лист1").Range("A1:M24").Value
'MsgBox CellValue
'Debug.Print CellValue
USER1 = CellValue
End Function
Очень нужно из функции с ячейками работать. А не хочет программа с такой функцией работать и все.
причем в окне быстрого запуска код Worksheets("Лист3").Range("A1:M24") = Worksheets("Лист1").Range("A1:M24").Value работает, но нужно чтобы то же самое делалось из функции.