DX ★ https://www.soumu.go.jp/main_content/000759086.pdf★ https://www.itc.or.jp/image/S20003%29seikabutsu_S20003.pdf https://www.meti.go.jp/policy/it_policy/investment/keiei_meigara/dx-report2021.pdfhttps://www.ipa.go.jp/jinzai/chousa/qv6pg…

Sub 最終行まで削除() Dim LastRow As Long 'A列の最終行を取得 LastRow = Cells(Rows.Count, 1).End(xlUp).Row '5行目から最終行までを一括削除 Range("A5:A" & LastRow).EntireRow.ClearContents End Sub

Sub リンク設定() Dim i As Long With ActiveSheet.Hyperlinks '5行目から最終行まで For i = 5 To Cells(Rows.Count, 1).End(xlUp).Row 'B列にリンク設定、リンク先はD列 .Add Anchor:=Cells(i, 2), Address:=Cells(i, 4).value Next i End With End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("B2:C19")) Is Nothing Then Cancel = True Target.Formula = Date End If 'E列のセルをダブルクリックした場合 If Target.Column = 5 …

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) ' 特定のセル範囲でダブルクリックされた場合の処理 'A列をダブルクリックで時刻表示 If Not Intersect(Target, Me.Range("A:A")) Is Nothing Then Target.value = Now …

Sub Sample3() Dim f As Object, cnt As Long cnt = 1 'A列に作成日時 Cells(1, 1) = "作成日時" 'B列にファイル名称 Cells(1, 2) = "ファイル名" 'C列にファイルサイズ Cells(1, 3) = "ファイルサイズ" Cells(1, 4) = "保存場所" With CreateObject("Script…