[已解决]代码完成后想要关闭用户窗体UserForm1

edisonx32

请问，我代码运行完成后想要关闭用户窗体UserForm1，这句代码应该怎么写，谢谢

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-7-18 16:24

Unload UserForm1或Unload me

跳转到最佳答案楼层

大灰狼1976

Unload UserForm1或Unload me

0126

嗯还有 UserForm1.Hide 和 end

edisonx32

大灰狼1976 发表于 2017-7-18 16:24
Unload UserForm1或Unload me

Private Sub CommandButton1_Click()
With ActiveSheet
r = 8
t = .Cells(r, 41).Value
m = 7
h = 8
Do
If Cells(m, 41).Value <> "督导" Or Cells(h, 1).Value <> "1" Then
MsgBox "AO不是督导或者A8不是1"
Exit Sub
Else
n = Application.WorksheetFunction.CountIf(.Range("ao:ao"), .Cells(r, 41))
Set wb = Workbooks.Add
wb.SaveAs Filename:="d:\督导打印\" & Format(t, "string") & Format(Now, "yyyymmddhhmmss") & ".xlsx"
.Range("a1:an7").Copy Range("a1")
.Cells(r, 1).Resize(n, 41).Copy Range("a8")
wb.Close True
End If
r = r + n
t = .Cells(r, 41).Value
Loop Until t = ""
End With
MsgBox "已完成督导个人工作表生成"
End Sub

请问代码写在哪个位置？

大灰狼1976

MsgBox "已完成督导个人工作表生成"
这句的上面或下面都可以。

edisonx32

大灰狼1976 发表于 2017-7-18 16:42
MsgBox "已完成督导个人工作表生成"
这句的上面或下面都可以。

谢谢！

edisonx32

0126 发表于 2017-7-18 16:29
嗯还有 UserForm1.Hide 和 end

谢谢