戻る  □一般操作のサロン  □ 使用方法  □ 新着記事  □ 新規に質問する!  □ トピック一覧  □ 検索  □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
このトピック参照回数 :
値に応じてVBAの実行の有無をしたい。

    [195574] 値に応じてVBAの実行の有無をしたい。-

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

    □投稿者/ ちわわ -(2023/02/01(09:25))
    □U R L/

      A列に「父、母、長男、長女」と不規則(1行空きや2行空きなど)に入力されています。

      父、母、長男、長女とそれぞれのVBA(4個)を作成して各ボタンで動作するようにしてあります。

      A列に父があれば、父VBAを実行の場合は正常に動作するのですが、
      A列に母が入力されていない状態で、母VBAを実行すると、ぐちゃぐちゃになってしまいます。

      そこでご相談ですが、A列に母が無い場合に、母VBAの実行させても、母VBAを実行しないようにしたいです。
      (同様に母、長男、長女の入力が無い場合も同様にVBAを実行できないようにしたいです)

      宜しくご指導願います。

      win11 office2016




    [195575] Re[1]: 値に応じてVBAの実行の有無をしたい。-

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

    □投稿者/ MK -(2023/02/01(09:35))
    □U R L/

      IF文で条件分岐してはいかがでしょう?




    [195576] Re[2]: 値に応じてVBAの実行の有無をしたい。-

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

    □投稿者/ ちわわ -(2023/02/01(11:25))
    □U R L/
      MK様
      
      ありがとうございます。
      
      父がある場合はマクロ1を実行まではできるのですが、
      でない場合は実行しないとする書き方がわかりません。
      そこを教えてもらえないでしょうか。
      宜しくお願い致します。
      
      Sub souto()
              
          For i = 4 To 100
              If Cells(i, "A") = "父" Then
              Call Macro1
              End If
          Next
          
      End Sub


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

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




    [195577] Re[3]: 値に応じてVBAの実行の有無をしたい。-

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

    □投稿者/ 半平太 -(2023/02/01(13:52))
    □U R L/
      >でない場合は実行しないとする書き方がわかりません。
      普通、そう言うことは書きませんよ?
      
      昔、同じ様な議論がありましたけど、無理に書くなら
      こう なんて話が出た記憶があります。
       ↓
       For i = 4 To 100
           If Cells(i, "A") = "父" Then
               Call Macro1
           Else
               'do nothing
           End If
       Next
      
      なんか無意味な気がしないでもないですが、考慮漏れがないと主張してはいますね。


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

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




    [195578] Re[4]: 値に応じてVBAの実行の有無をしたい。-

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

    □投稿者/ ちわわ -(2023/02/01(14:59))
    □U R L/

      半平太様

      父がなくても、父VBAが実行してしまいます。

      どのようにしたらよいのでしょうか?

      宜しくお願い致します。




    [195579] Re[5]: 値に応じてVBAの実行の有無をしたい。-

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

    □投稿者/ 半平太 -(2023/02/01(15:23))
    □U R L/
      >父がなくても、父VBAが実行してしまいます。
      ちょっと事情が呑み込めないのですが、
      
      「父VBA」と「Macro1」との関係はどうなっているんでしょうか?
       (当方は同じものと勝手に解釈しているのですが・・)




    [195580] Re[6]: 値に応じてVBAの実行の有無をしたい。-

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

    □投稿者/ ちわわ -(2023/02/01(16:20))
    □U R L/
      半平太様
      
      「父VBA」と「Macro1」との関係はどうなっているんでしょうか?
      RE: 同じです。すみません。
      宜しくお願い致します。
      
      Sub souto父()
      For i = 4 To 100
           If Cells(i, "A") = "父" Then
               Call 父
           Else
               'do nothing
           End If
       Next
      End Sub
      
      Sub 父()
      ・・・・
      ・・・・
      ・・・・
      End Sub


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

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




    [195581] Re[7]: 値に応じてVBAの実行の有無をしたい。-

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

    □投稿者/ 半平太 -(2023/02/01(16:45))
    □U R L/
      ・・そうであれば
      
          ここで父だったら「父」をCallせよ、となっているので、
           ↓
      If Cells(i, "A") = "父" Then
      >         Call 父
      
      父じゃなかったら、実行されるハズはないです。
      
      ロジカルな状況説明をお願いします。


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

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




    [195582] Re[8]: 値に応じてVBAの実行の有無をしたい。-

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

    □投稿者/ ちわわ -(2023/02/02(10:47))
    □U R L/

      半平太様

      原因がわかりました。
      実際には「父」とかではなく「環境依存文字」を使用していたので、
      VBAが実行してしまったようです。

      ありがとうございました。
      一つ勉強になりました。



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

このトピックに書きこむ
Name/
E-Mail/

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


- Child Forum -
Edit:ゆう-G