如何获取公式、在用户窗体中操作工作表、列出用户窗体名称等问题的答疑

近期有很多朋友通过在微信留言和发送消息、以及发送邮件问一些关于Excel和VBA的应用问题，在此选几个问题作出自已的解答，希望对朋友们有所帮助。以后我会在每周末，通过问与答的形式推送一周以来我所解答的一些问题，与大家分享。

Q：我想去除工作表中公式的等号，从而直观地获取公式？

A：可以使用下面的VBA代码来完成：

Sub GetFormula()

Dim wksData As Worksheet ‘代表公式所在的工作表

Dim wksFormula As Worksheet ‘放置公式文本的工作表

Dim rngFormula As Range ‘公式所在的区域

Dim rng As Range

Dim i As Long

Set wksData = Worksheets(“Sheet1”)

Set wksFormula = Worksheets(“Sheet2”)

Set rngFormula = wksData.UsedRange.SpecialCells(xlCellTypeFormulas)

wksFormula.Cells.Clear

‘在wksFormula工作表中放置公式

For Each rng In rngFormula

i = i + 1

wksFormula.Range(“A” & i).Value= Mid(rng.Formula, 2, (Len(rng.Formula)))

Next rng

End Sub

代码中，wksData代表公式所在的工作表，即你想要获取这个工作表中的公式；wksFormula代表放置所获取的公式的工作表。由于Excel会将等号开头的表达式当作公式，因此我们先除去公式开头的等号，这样就能顺利地放置公式文本了。

Q：如何通过用户窗体来显示相应的工作表？

A：在VBE中，插入一个用户窗体，在其中放置一个列表框和两个按钮，然后在该用户窗体模块中输入下面的代码：

Private Sub CommandButton1_Click()

Dim i As Integer, str As String

For i = 0 To ListBox1.ListCount – 1

If ListBox1.Selected(i) = True Then

str = ListBox1.List(i)

End If

Next i

Worksheets(str).Activate

End Sub

Private Sub CommandButton2_Click()

Unload UserForm2

End Sub

Private Sub UserForm_Initialize()

Dim wks As Worksheet

For Each wks In ThisWorkbook.Worksheets

ListBox1.AddItem (wks.Name)

Next wks

End Sub

运行后的效果如下图1所示：

图1

其中，当用户窗体初始化时左侧的列表框显示工作簿中所有工作表的名称，选取其中一个工作表名称后，单击右侧的“激活选取的工作表”按钮，会使该工作表成为当前工作表。单击“关闭”按钮使用户窗体消失。

Q：能不能遍历所有用户窗体，获取每个用户窗体的名称？

A：在VBE中，插入一个标准模块，输入下面的代码：

Sub testListUserFormName()

Dim str As String

Dim VBC As VBIDE.VBComponent

str = “已经创建的用户窗体如下:”

For Each VBC In ThisWorkbook.VBProject.VBComponents

If VBC.Type = vbext_ct_MSForm Then

str = str & vbCr & VBC.Name

End If

Next VBC

If str = “” Then

MsgBox “没有找到用户窗体!”

Exit Sub

End If

MsgBox str

End Sub

如果VBE中有UserForm1和UserForm2两个用户窗体，运行上述代码后的效果如下图2所示：

图2