Ecel VBA编程 使用用户窗体显示帮助信息

1、Excel VBA编程 使用用户窗体显示帮助信息通过在工作表中使用帮助，使用用户可以方便的浏览工作表，并获取有用的信息外。帮助信 息还主要应用在用户窗体中，向用户窗体提供帮助信息也分为多种，下面就来介绍制作用户 窗体帮助信息的方法。1使用标签控件显示帮助文本 标签除了用于提供控件的标题之外，还用于写实际的文本。例如，在用户窗体中的两个标签 控件，用于显示在某个工作表中的A列（帮助标题）和B列（帮助文本）。单击数值调节钮ITI回控件，允许用户在不同的主题之间切换。如图21-3 所示。图 21-3 ITI回控件，允许用户在不同的主题之间切换。如图21-3 所示。图 21-3 标签帮助 其实现代码如

2、下：数值调节钮Private Sub SpinButton1_Change()flag = SpinButton1.ValueLabel1.Caption = Sheets(HELPSheet).Cells(flag, 1).ValueLabel2.Caption = Sheets(HELPSheet).Cells(flag, 2).Value窗体标题显示Me.Caption =每日提示(& flag & to & SpinButton1.Max & ) End Sub这里变量flag是一个全局的数值类型的变量，它包含了当前第几条的提示信息。2使用滚动标签显示帮助文本 这种方法在单个标签控件中

3、显示帮助文本。因为标签控件不能包含垂直的滚动条，所以要把 这个标签放在一个框架控件中，因为框架控件中可以包含滚动条，设置框架控件 ScrollBars 属性即可。例如，在初始化用户窗体时，从工作表HelpLBSheet中读取标签中要显示的文本，将内容以 滚动的方式显示到用户窗体中。如图21-4 所示。Au石介Au石介常用龙鉛S里图 21-4 滚动标签帮助在窗体的Initialize事件中，输入如下代码：Private Sub UserForm _In itialize()获取要显示的内容的最大行数flag = Sheets(HelpLbSheet).Range(A100).End(xlUp).

4、Row取值For r = 1 To flagtxt = txt & Sheets(HelpLbSheet).Cells(r, 1).Text & vbCrLf & vbCrLfNext设置显示样式With Label1.Top = 0.Caption = txt.Width = 160.AutoSize = TrueEnd WithFrame1.ScrollHeight = Label1.HeightEnd Sub3.使用列表控件选择帮助主题使用列表框控件选择帮助主题，是滚动标签显示帮助的基础上完成的，当列表框中选择了帮 助的标题后，在下面的滚动标签中显示帮助的内容。例如，在用户窗体中，添加并

5、设置好控件的属性后，再输入读取工作表HelpSheet中A 列和B列的信息的代码。运行后窗体界面如图21-5所示。 r刮L *创11 - 1图 21-5 列表选择帮助用户窗体初始化后，窗体中显示工作表中的第一条信息。代码如下Private Sub UserForm _In itialize()flag = Sheets(HelpSheet).Range(A100).End(xlUp).Row初始化复合框For r = 1 To flagComboBoxl.Addltem Sheets(HelpSheet).Cells(r, 1) NextComboBoxl.Listlndex = 0显示复合框

6、中的第一行With Label1.Top = 0.Caption = Sheets(HelpSheet).Cells(1, 2) .Width = 210.AutoSize = TrueEnd WithFrame1.ScrollHeight = Label1.HeightlistId = 0End Sub代码中变量ListId是一个全局变量，用于记录当前复合框的第几项。当用户从复合框中选择其它的标题时，下面的滚动标签中将信息该标题对应的信息，可在复 合框的Change事件中输入代码。Private Sub ComboBox1_Change()listId = ComboBox1.ListIndexLabel1.Width = 210Label1.Caption = Sheets(HelpSheet).Cells(listId + 1, 2)End Sub同样，用户窗体的导航按钮，可用于显示上一条或下一条的帮助信息。单击后，帮助标题和 信息同时改变。上一条Private Sub CommandButton1_Click()If listId 0 Then ComboBox1.ListIndex = listId -1