読者です 読者をやめる 読者になる 読者になる

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

そうなんですね...。