Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12868 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【8245】計算について masa 03/10/6(月) 8:53 質問
【8246】Re:計算について INA 03/10/6(月) 9:11 回答
【8248】Re:計算について masa 03/10/6(月) 9:46 お礼
【8249】Re:計算について INA 03/10/6(月) 9:57 回答
【8253】Re:計算について masa 03/10/6(月) 10:09 お礼
【8245】計算について
質問  masa  - 03/10/6(月) 8:53 -
引用なし
パスワード
   1列目と2列目にデータがあり、そのデータを利用して
マクロで計算式を作りました。コマンドボタンにそのマクロを
入れ自動計算できるようにしました。
そのコマンドボタンは1行ずつ作成してまとめて計算するように
しました。こんな感じに
Private Sub CommandButton50_Click()
　　CommandButton1_Click
　　CommandButton2_Click
　　CommandButton3_Click
　　CommandButton4_Click
　　CommandButton5_Click
　　CommandButton6_Click
　　CommandButton7_Click
　　CommandButton8_Click
　　CommandButton9_Click
　　CommandButton10_Click
　　CommandButton11_Click
そこで問題なのが5行目のところ(CommandButton5_Clickの行)
のデータが空白(データがない)のときに
計算をさせたくないときはどうすればいいのか分かりません。
ご教授お願いします。
【8246】Re:計算について
回答  INA  - 03/10/6(月) 9:11 -
引用なし
パスワード
   If文で条件分岐してはいかがでしょうか？
例えば、Ａ５が空白でない場合に、実行するなら、

If Range("A5").Value <> "" Then
　 CommandButton5_Click
End If

のようにしては、いかがでしょうか？


しかし、すごいコマンドボタンの数ですね・・・
【8248】Re:計算について
お礼  masa  - 03/10/6(月) 9:46 -
引用なし
パスワード
   返答ありがとうございます。
そうなんですよ。
まだまだマクロについては初心者なので
コマンドボタンをたくさん作ってしまったんです。
玄人でしたらもっと簡略的に作れると思うんですが。
【8249】Re:計算について
回答  INA  - 03/10/6(月) 9:57 -
引用なし
パスワード
   >まだまだマクロについては初心者なので
>コマンドボタンをたくさん作ってしまったんです。
>玄人でしたらもっと簡略的に作れると思うんですが。

最初は正常に動くことが前提ですし、後々まとめていけば良いですから
問題ないと思います。
ただ、シート上にコントロール（Textbox、ボタン等）をたくさんは位置すると、
メモリをかなり消費しますので、おおきなデータや
規模の大きいマクロを作るときは気を付けておいて下さいね。

ところで、ご質問の件は上手く行きましたか？
【8253】Re:計算について
お礼  masa  - 03/10/6(月) 10:09 -
引用なし
パスワード
   ▼INA さん：
>>まだまだマクロについては初心者なので
>>コマンドボタンをたくさん作ってしまったんです。
>>玄人でしたらもっと簡略的に作れると思うんですが。
>
>最初は正常に動くことが前提ですし、後々まとめていけば良いですから
>問題ないと思います。
>ただ、シート上にコントロール（Textbox、ボタン等）をたくさんは位置すると、
>メモリをかなり消費しますので、おおきなデータや
>規模の大きいマクロを作るときは気を付けておいて下さいね。
>
>ところで、ご質問の件は上手く行きましたか？
質問の件はうまく作動しました。
ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12868 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free