On Error Resume Next Set wsUserSel = ListBox1.Value Set ws = Sheets.Add(after:=Sheets(Sheets.Count)) On Error GoTo 0 to be: Set wsUserSel = Worksheets(ListBox1.Value) Set ws = Sheets.Add(after:=Sheets(Sheets.Count)) Share Improve this answer Follow answered Dec 6,...
Sub Print_Multiple_Range_in_One_Page() Dim yRng1 As Range Dim yRng2 As Range Dim yNewWs As Worksheet Dim yWs As Worksheet Dim yIndex As Long Application.ScreenUpdating = False Application.DisplayAlerts = False Set yWs = ActiveSheet Set yNewWs = Worksheets.Add yWs.Select yIndex = 1 Fo...
(sheetNames)ToUBound(sheetNames)' Check if the sheet exists in the workbookIfSheetExists(CStr(sheetNames(i)))Then' Set print area on the specified sheetSetws=ThisWorkbook.Worksheets(sheetNames(i))ws.PageSetup.printArea=printAreaEndIfNextiEndSub' Helper function to check if a sheet existsFunction...
Set ws=ActiveWorkbook.Worksheets.Item(1)与Set ws=ActiveWorkbook.Worksheets(1)等价(P.114)。 A. 正确 B. 错误 如何将EXCEL生成题库手机刷题 > 下载刷刷题APP,拍照搜索答疑 > 手机使用 分享 反馈 收藏 举报 参考答案: A 复制 纠错举一反三 下列各项中,满足控制条件的有()。(资本控股公司提供) A. ...
Set ws=ActiveWorkbook.Worksheets.Item(1)与Set ws=ActiveWorkbook.Worksheets(1)等价(P.114)。 A. 正确 B. 错误 如何将EXCEL生成题库手机刷题 如何制作自己的在线小题库 > 手机使用 分享 反馈 收藏 举报 参考答案: A 复制 纠错举一反三 在社会治理中,坚持(),努力建设人民更加满意的平安中国。 A. 人人...