Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.79/29: Рейтинг темы: голосов - 29, средняя оценка - 4.79
0 / 0 / 0
Регистрация: 10.10.2007
Сообщений: 22
1

Передача параметров в процедуру

06.05.2011, 00:13. Просмотров 6085. Ответов 1
Метки нет (Все метки)

Здравствуйте!

У меня есть процедура которая строит график по заданном диапазону

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Sub plot_graph()
    Dim c As ChartObject
    
    Set c = Worksheets("Finance").ChartObjects.Add(100, 60, 250, 200)
    c.Chart.SetSourceData Source:=Worksheets("Data").Range("A4:B508")
    c.Chart.ChartType = xl3DArea
    c.Chart.HasTitle = True
    c.Chart.ChartTitle.Text = name_of_graph
    c.Activate
    c.Chart.HasLegend = False
    
End Sub
подскажите как мне передать в качестве параметров следующее:
1)диапазон (те объект типа Range)
2)название листа (те вместо Finance вообще должен стоять стринг)

В итоге, подскажите, как мне написать и вызвать такую примерно процедуру:

Visual Basic
1
sub plot_graph(dim r as range, dim insert_into as string)
?

PS я пытался так передавать парметры:
Visual Basic
1
sub plot_graph(dim r as range, dim insert_into as string)
но почему-то параметр r вообще не передается...

Подскажите, пожалуйста, следующее: у меня есть диапазон, допустим A1:B6, как мне добавить к этому диапазону 2 ячейки A7:B7?

Добавлено через 33 минуты
изменил макрос:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Set r = Range("A4:B200")
    name_of_graph = "VIX Index"
    insert_into = "Finance"
    
    Call myplot_graph(name_of_graph, insert_into, r)
 
 
Sub myplot_graph(ByVal name_of_graph As String, ByVal insert_into As String, ByRef r As Range)
    Dim c As ChartObject
    Set c = Worksheets(insert_into).ChartObjects.Add(100, 60, 250, 200)
    c.Chart.SetSourceData Source:=Worksheets("Data").Range(r)
    c.Chart.ChartType = xl3DArea
    c.Chart.HasTitle = True
    c.Chart.ChartTitle.Text = name_of_graph
    c.Activate
    c.Chart.HasLegend = False
End Sub
теперь выскакивает ошибка

'Run-time error 1004':Application defined or object-defined error
в чем проблема, подскажите пожалуйста?
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.05.2011, 00:13
Ответы с готовыми решениями:

Передача параметров в процедуру
Доброго времени суток. Нужна ваша помощь, знатоки! Возникла нужда в изучении процедур и передачи в...

Передача параметров в процедуру
Есть класс формы, я прописал процедуру для редактирования формы, но передать в нее "список" не...

Передача параметров в процедуру
В приложении динамически создается объект(не суть важно какой) для обработки события OnClick...

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

1
Заблокирован
06.05.2011, 07:28 2
Цитата Сообщение от terance Посмотреть сообщение
теперь выскакивает ошибка
как строка жёлтым подсвечивается?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.05.2011, 07:28

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

Передача параметров в хранимую процедуру
Подскажите вот в sql у меня есть параметры @Author И мне нужно Передавать эти параметра при...

Передача параметров в хранимую процедуру
ПРивет всем, ПОдскажите плз, хотел сделать универсальную процедуру на выборку, по нескольким...

Передача параметров из Си в процедуру в Ассемблере
Здравствуйте, пожалуйста подскажите... никак не могу разобраться с передачей параметров из Си в...

Не работает передача параметров в процедуру
Здравствуйте, уважаемые участники форума, В связи с изменениями на работе, пришлось перейти c...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.