2023-12-01から1ヶ月間の記事一覧
xn--t8j3bz04sl3w.xyz
xn--t8j3bz04sl3w.xyz
Sub 対象月の記載() '画面停止Application.ScreenUpdating = False Dim i As Long Dim 先月 As String '先月の1日を取得 先月 = DateSerial(Year(Date), Month(Date) - 1, 1) 'すべてのシートに実行 For i = 1 To Sheets.Count With Worksheets("マスタシー…
Sub シートへの振分け() '画面停止Application.ScreenUpdating = False Dim i As Long 'すべてのシートに実行 For i = 1 To Sheets.Count With Worksheets("マスタシート").Range("A2").CurrentRegion '1列目をシート名でフィルターをかける .AutoFilter Fie…