Excel VBA質問箱 IV

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

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


12866 / 13644 ツリー ←次へ | 前へ→

【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文で条件分岐してはいかがでしょうか?
例えば、A5が空白でない場合に、実行するなら、

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、ボタン等)をたくさんは位置すると、
>メモリをかなり消費しますので、おおきなデータや
>規模の大きいマクロを作るときは気を付けておいて下さいね。
>
>ところで、ご質問の件は上手く行きましたか?
質問の件はうまく作動しました。
ありがとうございました。

12866 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free