[[20180618142705]]　『セルをコントロールキーで選択した場合のカーソル』（しーちゃん）　ページの最後に飛ぶ

『セルをコントロールキーで選択した場合のカーソルの移動VBA 2』（しーちゃん）

カレンダーを一つ一つ処理するのではなく複数選択（コントロールキー）して
一度に処理します。戻すときは初期処理で戻します。
Public Sub Cmd0021()

    Dim i    As Long
    Dim ClAd As String
    Dim MsgRun As VbMsgBoxResult
    Dim Cnt    As Range

    'Cnt = 0
    'i = Selection.Count
    'Do Until i = Cnt
    For Each Cnt In Selection
       ClAd = ActiveCell.Value
       MsgRun = MsgBox(ClAd & "出勤処理しますか", vbYesNoCancel + vbQuestion)
         Select Case MsgRun
           Case vbYes
                ActiveCell.Interior.Color = 16777215 '白色
                ActiveCell.Font.Color = 1 'ﾌｫﾝﾄ色:黒
                'Cnt = Cnt + 1
                'Application.SendKeys ("{Enter}")
           Case vbNo
                'Cnt = Cnt + 1
                'Application.SendKeys ("{Enter}")
           Case Else
                'Call Application.OnKey("~")
                Exit Sub
        End Select
    'Loop
    Next
End Sub

＜使用 Excel：Excel2010、使用 OS：Windows10 ＞

コードだけ貼って質問が無いというのは何でしょう？んー、貴方の心の中を読んで回答してみますか。

       ClAd = Cnt.Value
（???） 2018/06/18(月) 18:00

コメント返信：

[ 一覧(最新更新順) ]

[[20180618142705]] 『セルをコントロールキーで選択した場合のカーソル』（しーちゃん） ページの最後に飛ぶ

[[20180618142705]]　『セルをコントロールキーで選択した場合のカーソル』（しーちゃん）　ページの最後に飛ぶ