Sub 変更日記入() 'B3セルに日付を記入 Range("A4") = Date 'A3セルに時間を記入 Range("B4") = Format(Time, "hh時mm分") End Sub ※日付と時刻から営業日を算出 =IF(OR(A4="",B4=""),"",IF(B4>VALUE("16:00"),WORKDAY.INTL(A4,7,1,E4:E8),WORKDAY.INTL(A4,6…

自動で足し算の問題ができるVBAを作成してみた 実行すると、B列とD列にランダムな数字が入力されます テスト結果を実行するとF列に回答が記載されます

Sub 色塗()Dim 行番号 As Long For 行番号 = 2 To 30 If Cells(2, 行番号) = "土" Then Range(Cells(2, 行番号), Cells(30, 行番号)).Interior.Color = RGB(211, 211, 211) End If Next 行番号 End Sub

Option ExplicitSub 最終行の下に転記() '同じフォルダ内のファイルを開いてコピーする 'パスとファイル名の変数宣言 Dim 保存場所 As String, ファイル名 As String '転記先と転記元の変数宣言 Dim 転記先, 転記元 As Workbook Dim 転記先の最終行, 転記元…

Sub 日時の取得() '変数宣言Dim 本日 As DateDim 期限日 As DateDim 行番号 As Long '本日の日付を取得 本日 = Date '期限日は本日から14日後 期限日 = 本日 + 14 '対象は1列目の最終行まで For 行番号 = 2 To Cells(Rows.Count, 1).End(xlUp).Row '期限日 C…