2021-10-12から1日間の記事一覧
Sub selectCellOfAllSheets(Optional wb As Workbook, Optional cellRange As String = "A1") If wb Is Nothing Then Set wb = ActiveWorkbook For Each ws In wb.Sheets ws.Activate ws.Range(cellRange).Select Next wb.Sheets(1).Activate End Sub wb 編…
Sub setZoomOfAllSheets(Optional wb As Workbook, Optional zoomMagnification As Variant = 100) If wb Is Nothing Then Set wb = ActiveWorkbook For Each ws In wb.Sheets ws.Activate ActiveWindow.Zoom = zoomMagnification Next wb.Sheets(1).Activat…