戻る  □一般操作のサロン  □ 使用方法  □ 新着記事  □ 新規に質問する!  □ トピック一覧  □ 検索  □ 過去ログ
[ 親トピックをトピックトップへ ]
このトピックに書きこむ
Name/
E-Mail/

└>このツリーのレス記事をメールで受信しますか? YES/ NO/
Title/
URL/
Comment/ 通常モード->  図表モード-> (←の場合適当に改行を入れて下さい)
タグが使用できます。例 ⇒ <font color="blue">文字</font>
解決!!ありがとうございました! 解決       保留中です・・・ 保留        迷宮入りorほかあたって見ます・・ 迷宮入       すいませ〜ん。誰か〜! Help! ←※回答者専用
解決したらチェック       保留(コードテスト中など・・)         解決不可orレスが全く付かなくてほかのサイトに行くときなど・・
削除キー/
(半角8文字以内) 

このトピック参照回数 :
Re[2]: セルを指定して実行したい

    [196107] Re[2]: セルを指定して実行したい-

    解決!!ありがとうございました! / 記事引用/メール受信=OFF■

    □投稿者/ 竹庵 -(2024/02/05(22:48))
    □U R L/

      ありがとうございました。
      これで、仕事に役立てることができます。 感謝です




    [196106] Re[1]: セルを指定して実行したい-

    記事引用/メール受信=OFF■

    □投稿者/ 半平太 -(2024/02/05(21:25))
    □U R L/
      こんなのでいけるかも。。
      
      Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
          
          Select Case Target.Address
              Case "$C$3"
                  Target.Value = Mid("○△×", InStr(" ○△×", Target.Value), 1)
                  Cancel = True
              Case "$D$5"
                  Target.Value = Mid("☆□◎", InStr(" ☆□◎", Target.Value), 1)
                  Cancel = True
          End Select
      End Sub


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他




    [196105] セルを指定して実行したい-

    ■親トピック/記事引用/メール受信=OFF■

    □投稿者/ 竹庵 -(2024/02/05(19:48))
    □U R L/
      VBA初心者の竹庵と言います。
      下記のようなVBAで仕事に使用しています。
      任意のセルでダブルクリックをすると〇が表示され、もう一度ダブルクリックすると△、もう一度ダブルクリックすると×、もう一度ダブルクリックすると空白が表示されるというものです。
      Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
          If Target = "" Then
              Target = "〇"
          
          ElseIf Target = "〇" Then
              Target = "△"
          
          ElseIf Target = "△" Then
              Target = "×"
          
          ElseIf Target = "×" Then
              Target = ""
          
          End If
          Cancel = True
      End Sub
      
      この内容だと任意のセルどこでも実行できてしまいます。
      
      C3セルのみで実行したいのですが、どのようにしていいものかわかりません。
      それと同時にD5セルでは、ダブルクリックをすると☆、もう一度ダブルクリックすると□、もさらにダブルクリックすると、◎が表示されるようにしたいのです。
      どなたか教えていただけませんか。よろしくお願いします。
      
      
      


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他



      ++++++++++++++++++++
      OS      ⇒OTHER
      Version⇒OTHER
      ++++++++++++++++++++



このトピック内容の全ページ数 / [0]

- Child Forum -
Edit:ゆう-G