RE: Помогите сделать 2 функции

Pavel55 — Mon, 30 Apr 2007 02:07:11 GMT

я думаю тебе помогут здесь:

или отпишись в этой теме

http://forum.sources.ru/index.php?showtopic=179076&hl=assistant

а лучше создай свою отдельную тему там

http://forum.sources.ru/index.php?s=61850c1ac9c9ac7a9e7a7f888f09073d&showforum=20

Помогите сделать 2 функции

FIGO — Sun, 29 Apr 2007 20:58:59 GMT

Вот я сделал помошника с вылезающей подменюшкой с четырмя действиями.

Два деяствия я сделал а еще два не могу

[quote]' процедура обработки нажатия кнопки "Выбор действия"
Sub Select_Click()
Dim MyAssistant As Assistant ' Создание помощника
Dim MyBalloon As Balloon ' Создание вспомогательного экрана выводимым помошником
Set MyAssistant = Assistant
Set MyBalloon = MyAssistant.NewBalloon
MyAssistant.Filename = "C:\Program Files\Microsoft Office\Office10\Clippit.acs" 'путь хранение помошника C:\Program Files\Microsoft Office\Office10
MyAssistant.Animation = msoAnimationThinking '
MyAssistant.MoveWhenInTheWay = True 'перемешение помошника на свободную часть экрана
With MyAssistant.NewBalloon
.BalloonType = msoBalloonTupeBullets
.Heading = "Выберите действие" ' заглавие выводимой таблички
.Text = "Что сделать?" ' под заголовок
.Labels(1).Text = "Сохранить исходные данные" 'текст номер 1
.Labels(2).Text = "Востановить данные из архива" 'текст номер 2
.Labels(3).Text = "Заполнить исходную таблицу единицами" 'текст номер 3
.Labels(4).Text = "Заполнить исходную таблицу нулями" 'текст номер 4
.Mode = msoModeModeless
.Callback = "Click_Label"
.Show
'MyBalloon.Labels(4).
End With 'завершение процедуры With
'MyBalloon.Show 'завершение процедуры MyBalloon
End Sub

Sub Click_Label(bal As Balloon, lbl As Long, _
lPriv As Long)
Select Case lbl
Case 1
' Сохранить исходные данные
Case 2
' Востановить данные из архива
Case 3
Call FillGrid(1) ' Заполнить исходную таблицу единицами
Case 4
Call FillGrid(0) ' Заполнить исходную таблицу нулями
End Select
bal.Close
End Sub

Sub FillGrid(n As Integer)
For i = 1 To 7
For j = 1 To 6
SourceData(j, i) = n
Worksheets("Лист1").Cells(i + 1, j + 2) = n
Next j
Next i
End Sub[/quote]

Помогите сделать [quote] .Labels(1).Text = "Сохранить исходные данные"
.Labels(2).Text = "Востановить данные из архива"[/quote]

Релиб / Программирование / VBA / Помогите сделать 2 функции / Latest Posts

RE: Помогите сделать 2 функции

Помогите сделать 2 функции