QA@IT

コードブロックのマークダウンを追加しました

5599
本文
 下記の構文を使って、次年度のファイルの複製を行っていますが、
 各シートのC2セル内の 期間を年度ごとに更新することは出来ますでしょうか?
 
-Sub ボタン1_Click()
+```csharp
+Sub ボタン1_Click()
 
-Dim fName As String, flg As Boolean, i As Integer, myNum
-Dim FSO As Object
+    Dim fName As String, flg As Boolean, i As Integer, myNum
+    Dim FSO As Object
 
-On Error Resume Next
+    On Error Resume Next
 
-fName = ThisWorkbook.Name
-flg = False
-For i = 1 To Len(fName)
-If Mid(fName, i, 1) Like "[0-9]" Then
-flg = True
-myNum = myNum & Mid(fName, i, 1)
-Else
-If flg Then Exit For
-End If
-Next i
+    fName = ThisWorkbook.Name
+    flg = False
+    For i = 1 To Len(fName)
+        If Mid(fName, i, 1) Like "[0-9]" Then
+            flg = True
+            myNum = myNum & Mid(fName, i, 1)
+        Else
+            If flg Then Exit For
+        End If
+    Next i
 
-If myNum = "" Then Exit Sub
+    If myNum = "" Then Exit Sub
 
-fName = Replace(fName, myNum, myNum + 1, 1, 1)
+    fName = Replace(fName, myNum, myNum + 1, 1, 1)
 
-Set FSO = CreateObject("Scripting.FileSystemObject")
-FSO.CopyFile ThisWorkbook.FullName, ThisWorkbook.Path & "\" & fName
-Set FSO = Nothing
+    Set FSO = CreateObject("Scripting.FileSystemObject")
+    FSO.CopyFile ThisWorkbook.FullName, ThisWorkbook.Path & "\" & fName
+    Set FSO = Nothing
+    
+    MsgBox "終了しました"
 
-MsgBox "終了しました"
-
 End Sub
+```
 
 現在使用しているファイルは2013年度分です。2月シートのC2セルには、 期間 2013.2.1~2013.2.28 と入力しています。
 上記のファイルに、上記のマクロを用いて、次年度のファイルを複製する際に、2月シートのC2セルに 期間 2014.2.1~2014.2.28