[[20120517092430]]　『ダブルクリックで』（トン）　ページの最後に飛ぶ

『ダブルクリックで』（トン）

 F列のセルをダブルクリックするとOKと表示され
 OKと表示されているセルでダブルクリックすると
 OKが消えるようにしたいです。
 ただし、B列が空白の場合はダブルクリックしてもOKと表示されないようにしたいです。
 お願いします。（トン）

 作成依頼ですね。。。
　
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A:A,F:F")) Is Nothing Then
    Select Case Target.Column
        Case 1
            If Target.Value = "OK" Then
                Cancel = True
                Target.Value = ""
            End If
        Case 6
            If Cells(Target.Row, 2).Value <> "" And Cells(Target.Row, 1).Value <> "OK" Then
                Cancel = True
                Cells(Target.Row, 1).Value = "OK"
            End If
    End Select
End If
End Sub
　
(ROUGE)

 ROUGE様ありがとうございます。
 OKと表示したいのはF列のダブルクリックしたセルでお願いしたいのですが
 また、OKと表示されている時にダブルクリックしたら消えるようにしたいです。
 お願いします（トン）

 一部、仕様が不明瞭ですが、多分こんなものかと推測します。

 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
     If Target.Column = 6 Then
         If Target.Value = "OK" Then
             Target.Value = ""
             Cancel = True
         ElseIf Cells(Target.Row, 2).Value <> "" Then
             Target.Value = "OK"
             Cancel = True
         End If
     End If
 End Sub

 (半平太) 2012/05/18 11:08

コメント返信：

[ 一覧(最新更新順) ]

[[20120517092430]] 『ダブルクリックで』（トン） ページの最後に飛ぶ

[[20120517092430]]　『ダブルクリックで』（トン）　ページの最後に飛ぶ