⚡
BulkDataEntry
自動化指定した値を選択範囲の全セルに一括入力します
🎬 デモGIF準備中
📖 使い方
- VBAエディタを開く（Alt + F11）
- モジュールを挿入（挿入 > モジュール）
- 下記VBAコードをコピー&ペースト
- ブック上で実行（Alt + F8 でマクロ選択）
💡 実行例： 入力したいセル範囲を選択してから BulkDataEntry を実行します
💻 VBAコード
' BulkDataEntry
' -----------------
' Macro Name: BulkDataEntry
' Description: 指定した値を選択範囲の全セルに一括入力します
' Parameters: なし
' Returns: なし
' Usage: 入力したいセル範囲を選択してから BulkDataEntry を実行します
' -----------------
Sub BulkDataEntry()
On Error GoTo ErrorHandler
Dim rng As Range
Dim inputValue As String
If TypeName(Selection) <> "Range" Then
MsgBox "セル範囲を選択してから実行してください", vbCritical, "エラー"
Exit Sub
End If
Set rng = Selection
inputValue = InputBox("入力する値を入力してください", "一括入力")
If inputValue = "" Then
If MsgBox("空白を入力しますか？", vbYesNo, "確認") = vbNo Then Exit Sub
End If
rng.Value = inputValue
MsgBox rng.Cells.Count & " セルに値を入力しました", vbInformation, "完了"
Exit Sub
ErrorHandler:
MsgBox "エラーが発生しました:" & vbCrLf & Err.Description, vbCritical, "エラー"
End Sub