http://www.vbex.ru/index.php?action=history&feed=atom&title=VBA%2FExcel%2FAccess%2FWord%2FApplication%2FVBE
VBA/Excel/Access/Word/Application/VBE - История изменений
2026-04-05T08:06:56Z
История изменений этой страницы в вики
MediaWiki 1.30.0
http://www.vbex.ru/index.php?title=VBA/Excel/Access/Word/Application/VBE&diff=1070&oldid=prev
в 16:33, 26 мая 2010
2010-05-26T16:33:00Z
<p></p>
<table class="diff diff-contentalign-left" data-mw="interface">
<tr style="vertical-align: top;" lang="ru">
<td colspan="1" style="background-color: white; color:black; text-align: center;">← Предыдущая</td>
<td colspan="1" style="background-color: white; color:black; text-align: center;">Версия 16:33, 26 мая 2010</td>
</tr><tr><td colspan="2" style="text-align: center;" lang="ru"><div class="mw-diff-empty">(нет различий)</div>
</td></tr></table>
http://www.vbex.ru/index.php?title=VBA/Excel/Access/Word/Application/VBE&diff=1071&oldid=prev
Admin: 1 версия
2010-05-26T12:46:14Z
<p>1 версия</p>
<p><b>Новая страница</b></p><div>==Clear Immediate window through VBE==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub ImmediateWindowClear()<br />
Application.VBE.Windows.Item("Immediate").SetFocus<br />
Application.SendKeys "^a"<br />
Application.SendKeys "{Del}"<br />
End Sub<br />
<br />
</source><br />
<br />
<br />
<br />
<br />
==Displaying each active VBA component in a worksheet==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub ShowComponents()<br />
Dim VBP As VBProject<br />
Set VBP = ActiveWorkbook.VBProject<br />
NumComponents = VBP.VBComponents.Count<br />
For i = 1 To NumComponents<br />
Debug.Print VBP.VBComponents(i).name<br />
Select Case VBP.VBComponents(i).Type<br />
Case 1<br />
Debug.Print "Module"<br />
Case 2<br />
Debug.Print "Class Module"<br />
Case 3<br />
Debug.Print "UserForm"<br />
Case 100<br />
Debug.Print "Document Module"<br />
End Select<br />
Debug.Print VBP.VBComponents(i).CodeModule.CountOfLines<br />
Next i<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Find code object==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Public Sub FindCodeObject()<br />
Dim component As VBIDE.VBComponent<br />
Set component = Workbooks("Book1.xls").VBProject.VBComponents(Workbooks("Book1.xls").CodeName)<br />
Debug.Print component.Name<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Find the code pane==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Public Sub FindCodePane()<br />
Dim codePane As VBIDE.codePane<br />
Set codePane = Application.VBE.ActiveCodePane<br />
MsgBox codePane.TopLine<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Find the selected component in VBIDE==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Public Sub FindSelectedComponent()<br />
Dim component As VBIDE.VBComponent<br />
Set component = Application.VBE.SelectedVBComponent<br />
MsgBox component.Name<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Find user form==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Public Sub FindUserForm()<br />
<br />
Dim component As VBIDE.VBComponent<br />
Set component = Workbooks("Book1.xls").VBProject.VBComponents("UserForm1")<br />
MsgBox component.Name<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Find worksheet code module==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Public Sub FindWorksheetCodeModule()<br />
Dim component As VBIDE.VBComponent<br />
Dim aWorkbook As Workbook<br />
Set aWorkbook = Workbooks("Book1.xls")<br />
Set component = aWorkbook.VBProject.VBComponents(aWorkbook.Worksheets("Sheet1").CodeName)<br />
MsgBox component.Name<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Get active project name==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Public Sub ActiveProject()<br />
Dim project As VBIDE.VBProject<br />
Set project = Application.VBE.ActiveVBProject<br />
MsgBox project.Filename<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Get VB project name==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Option Explicit<br />
Private VBE As VBIDE.VBE<br />
Public Sub FindProject()<br />
<br />
Dim project As VBIDE.VBProject<br />
Set project = Workbooks("Book1.xls").VBProject<br />
MsgBox project.Name<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Show selected VB component"s name==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Public Sub ShowNames()<br />
With Application.VBE.SelectedVBComponent<br />
Debug.Print .Name & ": " & .Properties("Name")<br />
End With<br />
End Sub<br />
</source></div>
Admin