レ点、〇点 | |
---|---|
[194510] レ点、〇点- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ まさ -(2021/12/18(15:47)) □U R L/ お願いします セルをクリックすればレ点が点いたり消えたりするやり方は以前お聞きしたのですが Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column > 3 Then Exit Sub If Target.Column < 1 Then Exit Sub Cancel = True If Target.Value = "レ" Then Target.ClearContents Else Target.EntireRow.Range("B1:C1").ClearContents Target.Value = "レ" End If End Sub 追加したいのが D列をクリックすれば"〇"印が点いたり消えたりさせたいのと A列のレ点を消せばBCD列のレ点、〇印を消したいのですが どうすればよろしいでしょうか この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 |
[194513] Re[1]: レ点、〇点- ■記事引用/メール受信=OFF■ □投稿者/ マナ -(2021/12/18(16:29)) □U R L/ A〜Dすべて空欄の状態で、BとかCをクリックした場合は? |
[194514] Re[2]: レ点、〇点- ■記事引用/メール受信=OFF■ □投稿者/ まさ -(2021/12/18(16:34)) □U R L/ A欄にレ点がない場合はbcd欄にレ点〇点は点けたくはないのですが |
[194516] Re[3]: レ点、〇点- ■記事引用/メール受信=OFF■ □投稿者/ マナ -(2021/12/18(16:59)) □U R L/ Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column > 4 Then Exit Sub If Target.EntireRow.Range("A1").Value = "" Then If Target.Column > 1 Then Exit Sub Target.Value = "レ" Else If Target.Column = 1 Then Target.EntireRow.Range("A1:D1").ClearContents ElseIf Target.Column = 4 Then Target.Value = IIf(Target.Value = "", "○", "") Else Target.EntireRow.Range("B1:C1").ClearContents Target.Value = "レ" End If End If Cancel = True End Sub この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 |
[194517] Re[4]: レ点、〇点- ■記事引用/メール受信=OFF■ □投稿者/ マナ -(2021/12/18(17:07)) □U R L/ 修正 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column > 4 Then Exit Sub If Target.EntireRow.Range("A1").Value = "" Then If Target.Column > 1 Then Exit Sub Target.Value = "レ" Else If Target.Column = 1 Then Target.EntireRow.Range("A1:D1").ClearContents ElseIf Target.Column = 4 Then Target.Value = IIf(Target.Value = "", "○", "") Else If Target.Value = "レ" Then Target.ClearContents Else Target.EntireRow.Range("B1:C1").ClearContents Target.Value = "レ" End If End If End If Cancel = True End Sub この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 |
[194549] Re[5]: レ点、〇点- ■ / 記事引用/メール受信=OFF■ □投稿者/ まさ -(2021/12/22(15:50)) □U R L/ ありがとうございました。 |
このトピックに書きこむ |
---|