vba:如何在程序中调用自定义窗体

sub mysub()
自定义窗体show vbmodal '显示模式窗体
Sheets(1)Range("A1")=自定义窗体TextBox1value
end sub
最好在自定义窗体中定义个公有变量，在退出窗体时把TextBox1value值存入该变量，可能是窗体被卸载后文本框中的数据不保留，但变量中的数据保留的。

UserForm1Show 0\x0d\你这样 *** 作就可以了。\x0d\ \x0d\Form的Show方法有两种方式，解释如下：\x0d\（1）模式窗体的显示代码：\x0d\窗体名称Show vbModal 或窗体名称Show 1\x0d\（2）无模式窗体的显示代码：\x0d\窗体名称Show vbModeless或窗体名称Show 0\x0d\\x0d\（1）模式窗体：窗体显示后将停止显示之后的代码直到退出或隐藏此窗体，并且必须退出或隐藏此窗体后，才可以 *** 作非此窗体的其他界面元素。\x0d\（2）无模式窗体：窗体显示后会继续执行程序里余下的语句，而其他的窗体或界面也可以进行 *** 作。

Sub 设置超链接()
Dim strSrcPath$, lngRow&, objFso As Object, objFile As Object
Set objFso = CreateObject("ScriptingFileSystemObject")
Dim objFldlg As FileDialog
Set objFldlg = ApplicationFileDialog(msoFileDialogFolderPicker)
With objFldlg
AllowMultiSelect = False
Title = "请选择需要建立超链接的文件夹"
InitialFileName = ThisWorkbookPath
If Show = -1 Then
Range("b2")Resize(10000)ClearContents
lngRow = 1
strSrcPath = SelectedItems(1) & IIf(Right(SelectedItems(1), 1) = "\", "", "\")
For Each objFile In objFsoGetFolder(strSrcPath)Files
lngRow = lngRow + 1
ActiveSheetHyperlinksAdd Anchor:=Cells(lngRow, 2), _
Address:=strSrcPath & objFileName, SubAddress:="", _
ScreenTip:=objFileName, TextToDisplay:=objFileName
Next objFile
End If
End With
Set objFldlg = Nothing
Set objFile = Nothing
Set objFso = Nothing
CreateObject("WscriptShell")Popup "Done", 2, "^o^", vbOKOnly
End Sub

---