Application.InputBoxでセルが選択できない件
散布図にラベルを追加するマクロ - Thousand Yearsでセルを"A4"とか直接入力しないといけないのめんどくさい。Application.InputBox(Type:=8)とした場合はエクセルのセルをクリックしてセル名を自動挿入してくれる仕様なのだけれども、自分が書いたコードはそうなっていなかった。原因を調べたらApplication.ScreenUpdatingの順番だったので訂正。
セル選択ができない版
' スクリーンの更新をOFF Application.ScreenUpdating = False ' ラベル開始セルの指定 If (labels Is Nothing) Then On Error Resume Next Set labels = Application.InputBox(Prompt:="ラベル開始セル名を入力してください。例)A1", Type:=8) If (Err.Number <> 0) Then Exit Function End If On Error GoTo 0 End If
セル選択ができる版
' ラベル開始セルの指定 If (labels Is Nothing) Then On Error Resume Next Set labels = Application.InputBox(Prompt:="ラベル開始セル名を入力してください。例)A1", Type:=8) If (Err.Number <> 0) Then Exit Function End If On Error GoTo 0 End If ' スクリーンの更新をOFF Application.ScreenUpdating = False