今回も何の意味も無い処理ですが・・・
Excelで選択したセルをランダムカラーで塗ってみます。
Sub FillCellsWithSpecifiedText()
Dim rng As Range
Dim cell As Range
Dim inputText As String
' ユーザーに入力を求める
inputText = _
InputBox("セルに入力する文字を指定してください:", "指定文字の入力")
' キャンセルボタンが押された場合は終了
If inputText = "" And StrPtr(inputText) = 0 Then Exit Sub
' 選択範囲を取得
On Error Resume Next
Set rng = Selection
On Error GoTo 0
' 選択範囲がない場合は終了
If rng Is Nothing Then
MsgBox "セル範囲を選択してください。", vbExclamation
Exit Sub
End If
' 範囲内の各セルに指定文字を入力
Application.ScreenUpdating = False
For Each cell In rng
cell.Value = inputText
Next cell
Application.ScreenUpdating = True
MsgBox "選択したセルを指定した文字で埋めました。", vbInformation
End Sub
処理したいエリアを選択して実行すれば・・・
入力したい文字列の入力パレットが出るので入力すれば・・・
こんな感じになります。具体的な用途は出席管理で、取りあえず全出席してから欠席処理をするといった使い方はありますね。
