現在日時と営業日の計算
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,1,E4:E8)))
色塗り
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
VBA 最終行の下に転記
Option Explicit
Sub 最終行の下に転記()
'同じフォルダ内のファイルを開いてコピーする
'パスとファイル名の変数宣言
Dim 保存場所 As String, ファイル名 As String
'転記先と転記元の変数宣言
Dim 転記先, 転記元 As Workbook
Dim 転記先の最終行, 転記元の最終行 As Long
Dim この範囲 As Range
Set 転記先 = ActiveWorkbook
'最終行の取得
転記先の最終行 = Worksheets("集約").Cells(Rows.Count, 1).End(xlUp).Row + 1
転記元の最終行 = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
'保存場所パス
保存場所 = "C:\Users\Desktop\クレジットカード\"
'ファイル名
ファイル名 = Dir(保存場所 & "detail*.CSV")
'転記元を読み取り専用で開く
Workbooks.Open 保存場所 & ファイル名, ReadOnly:=True
Set 転記元 = Workbooks.Open(保存場所 & ファイル名)
Set この範囲 = 転記元.Sheets(1).Range("A1").CurrentRegion.Offset(1, 0)
この範囲.Resize(この範囲.Rows.Count - 1).Copy 転記先.Worksheets("集約").Range("A" & 転記先の最終行)
'マスターデータ取り込み先のファイルを閉じる
転記元.Close False
End Sub