@qweasdyxc

Есть ли аналог макроса AutoOpen, выполняющегося в ворде автоматически при открытии документа, в Excel?

0

@zawi

Sub Auto_Open()
MsgBox 'Привет qwerty2'
End Sub

0

tomik

В 'Этой книгн'
_________________________________________________
Private Sub workbook_open()
'Dim MyMenuBar As Object
Dim MyBar As CommandBar
Dim MyButton(1 To 4) As CommandBarButton
Dim nz As Integer
With Application
.CommandBars('Formatting').Visible = True
.CommandBars('Standard').Visible = True
End With

Set MyBar = Application.CommandBars.Add(Name:='МоеПанель', Position:=msoBarTop, MenuBar:=False, Temporary:=True)
With MyBar
.Visible = True
.Protection = msoBarNoMove + msoBarNoChangeVisible + msoBarNoCusttomize
With .Controls
'nz = Application.CommandBars('Tools').Controls('&Макрос').Id
nz = Application.CommandBars('File').Controls('&Сохранить').Id

Set MyButton(1) = .Add(Type:=msoControlButton, Id:=nz, Temporary:=True)
Set MyButton(2) = .Add(Type:=msoControlButton, Id:=1, Temporary:=True)
Set MyButton(3) = .Add(Type:=msoControlButton, Id:=1, Temporary:=True)
Set MyButton(4) = .Add(Type:=msoControlButton, Id:=1, Temporary:=True)
End With
End With

With MyButton(1)
.TooltipText = 'Кнопка Сохранить'
.Style = msoButtonIcon
End With
'Макрос

With MyButton(2)
.Caption = 'Толкни'
.TooltipText = 'Кнопка для экспорта в Word'
.Style = msoButtonCaption
.OnAction = 'ТолканиеКнопки'
End With

ActiveSheet.Shapes.AddTextEffect(msoTextEffect7, 'e', 'Wingdinge 4', 16, msoFalse, msoTrue, 213, 97).Select
Selection.Cut

With MyButton(3)
.Caption = 'Нажми Расчет'
.TooltipText = 'Вызов формы для Расчета данных и автоматического построения графиков'
.Style = msoButtonIconAndCaption
.PasteFace
.OnAction = 'НажатиеКнопки'

End With

With MyButton(4)
.Caption = 'Установки'
.TooltipText = 'Настройка действий для Расчета данных и автоматического построения графиков'
.Style = msoButtonIconAndCaption
.PasteFace
.OnAction = 'Настройка1'

End With
'ActiveWindow.Visible = True
End Sub
________________________________________________________________
В модуле
_______________________________________________

Public Sub ТолканиеКнопки()

Dim Cod1Key As Integer
Dim Strukt As String
Strukt = vbYesNoCancel + vbQuestion + vbDefaultButton1
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
'+++++++++++++++++
.....................
End With
End Sub
******************************
Public Sub НажатиеКнопки()
Form1.Show
End Sub
*********************************

Sub MyWords()

Dim Cod1Key As Integer
Dim Strukt As String
Strukt = vbYesNoCancel + vbQuestion + vbDefaultButton1
Dim Msg, Style, Title, Help, Ctxt, Response, MyString

Strukt = vbYesNoCancel + vbQuestion + vbDefaultButton2
' Выводит сообщение.
Response = MsgBox('Желаете Скопировать выделенный Фрагмент в текущий Документ ' & Chr(10) & 'или Новый Документ (ПРИ УСЛОВИИ, что НЕ Включен Word)' & Chr(10) & _
' Нажмите *ДА*,' & Chr(10) & ' Если в другой существующий на С: документ то нажмите *Нет* ', Strukt, 'Окно (AllRight reserved (C) Т..... x. x. 20xx Ver.1)')
Select Case Response
Case vbYes
copirTab
Case vbNo
MsgBox 'Оrr'
Case vbCansel
MsgBox 'Отмена'
End S