1. Главная
2. Excel Vba Automation

source code
-----------------------------------userform------------------------------------

Private Sub CommandButton2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton2.BackColor = vbRed
CommandButton4.BackColor = vbWhite
CommandButton5.BackColor = vbWhite
CommandButton7.BackColor = vbWhite
End Sub
Private Sub CommandButton4_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton4.BackColor = vbRed
CommandButton2.BackColor = vbWhite
CommandButton5.BackColor = vbWhite
CommandButton7.BackColor = vbWhite
End Sub

Private Sub CommandButton5_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton5.BackColor = vbRed
CommandButton4.BackColor = vbWhite
CommandButton2.BackColor = vbWhite
CommandButton7.BackColor = vbWhite
End Sub

Private Sub CommandButton7_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton7.BackColor = vbRed
CommandButton4.BackColor = vbWhite
CommandButton5.BackColor = vbWhite
CommandButton2.BackColor = vbWhite
End Sub

Private Sub Frame1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton7.BackColor = vbWhite
CommandButton4.BackColor = vbWhite
CommandButton5.BackColor = vbWhite
CommandButton2.BackColor = vbWhite
End Sub

Private Sub Image2_Click()

If Me.Frame1.Visible = False Then
Me.Frame1.Width = 0
Call Loopme
Else
Call Loopme2
End If
End Sub


Private Sub UserForm_Activate()
Me.Frame1.Visible = False
End Sub

Private Sub UserForm_Click()

End Sub


-------------- ------ --------module--------------------------------------------------------------------------

Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal Milliseconds As LongPtr)

Sub Loopme()
UserForm2.Controls.Item("Frame1").Visible = True
For i = 1 To 15
Sleep 5
DoEvents
UserForm2.Controls.Item("Frame1").Width = UserForm2.Controls.Item("Frame1").Width + 8
Next
UserForm2.Controls.Item("Frame1").Width = 198

End Sub

Sub Loopme2()

For i = 1 To 15
Sleep 5
DoEvents
UserForm2.Controls.Item("Frame1").Width = UserForm2.Controls.Item("Frame1").Width - 8
Next
UserForm2.Controls.Item("Frame1").Width = 198
UserForm2.Controls.Item("Frame1").Visible = False

End Sub

play_arrow

254,718

5.5 тыс

Programmer: Expectation vs Reality | The Mediocre Coder

play_arrow

318

7

Diversity and Inclusion in Australian Media with Lisa Cox

play_arrow

7,289

629

Такое блюдо хоть на обед, хоть на ужин! У нас оно всегда на УРА! Какие овощи? Любые!

play_arrow

5,409,641

40 тыс

Case No.9 Episode 11 - [Eng Sub] - Presented by Happilac Paints & Nestle Bunyad - 29th October 2025

play_arrow

451

3

Let's Play Super Mario World /// Part 23: "Wendy is Dead"

play_arrow

99

4

Как снимать видео в tiktok?

play_arrow

162

3

Daržas balkone vol. 10: Kenkėjai

play_arrow

117

4

Приглашаем 7 октября Москва Якиманка Яровит Холл состоится