<p>为了至少10个币币,就回复了吧[em01] </p><p></p><p>就在对话框工作表里,和确定按钮组合在一起了,用VBA可以把工作表全部显示出来。<br/><br/>Sub diplay()<br/> Dim sh As Object<br/> For Each sh In ThisWorkbook.Sheets<br/> sh.Visible = xlSheetVisible<br/> Next<br/>End Sub </p><p>[/hide]</p><p></p>