A01058 - 显示常用的 Excel 内置对话框 - P36

admin · 发表于 2019-9-12 14:22:51

您需要登录才可以下载或查看，没有账号？注册

x

Private Sub UserForm_Initialize()4 ~7 S* d9 i U( |9 z# _8 U8 n
ListBox1.ColumnCount = 3
z) n! {7 m6 g; N- V
ListBox1.ColumnWidths = "150;100;30"
( J% @8 g* w2 S d- g8 C4 E% }
ListBox1.RowSource = "A2:C" & Range("A65536").End(xlUp).Row
* t- [# J8 O/ W+ d5 h' K8 ]
End Sub9 \; d0 [3 X9 g0 N7 T, ]3 t! P
Private Sub ListBox1_Click()
5 M! k* }8 Q% G8 i
Dim myIndex As Integer
2 N4 I7 q( }8 ~6 M% ^- S
myIndex = ListBox1.ListIndex
* D" Q; Z, J, @; k0 ~
Application.Dialogs(Range("C" & myIndex + 2)).Show
( K- |# l: i% Y. z! ~8 d
End Sub, h3 D5 U2 `' R$ Y1 C
Private Sub CommandButton1_Click()& g' S; _; c+ z6 h1 O
End- p( [2 Z" A7 r+ @7 D/ T8 m
End Sub

复制代码

		自动登录	找回密码
密码			注册

[VBA精品课] A01058 - 显示常用的 Excel 内置对话框 - P36