Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12867 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【8247】困ってます。 kazu 03/10/6(月) 9:41 質問
【8250】Re:困ってます。 INA 03/10/6(月) 10:03 回答
【8252】Re:困ってます。 masa 03/10/6(月) 10:07 回答
【8254】Re:困ってます。 Jaka 03/10/6(月) 10:33 回答
【8255】Re:困ってます。 INA 03/10/6(月) 11:01 回答
【8257】Re:困ってます。 kazu 03/10/6(月) 11:20 発言
【8258】Re:困ってます。 INA 03/10/6(月) 11:56 回答
【8260】Re:困ってます。 Jaka 03/10/6(月) 12:14 回答
【8263】Re:困ってます。 INA 03/10/6(月) 13:12 お礼
【8256】Re:困ってます。 kazu 03/10/6(月) 11:19 お礼
【8247】困ってます。
質問  kazu  - 03/10/6(月) 9:41 -
引用なし
パスワード
   複数のコマンドボタンを作成し、
自動計算する形でコマンドボタンをクリックさせたいのですが
コマンドボタンのループ化は出来ないのでしょうか？
【8250】Re:困ってます。
回答  INA  - 03/10/6(月) 10:03 -
引用なし
パスワード
   まずはExcelのバージョンと、
コマンドボタンの種類を教えて下さい。
コマンドボタンは、ユーザーフォーム上でしょうか？
それともシート上のコントロールツールボックスのコマンドボタンでしょうか？
【8252】Re:困ってます。
回答  masa  - 03/10/6(月) 10:07 -
引用なし
パスワード
   ▼INA さん：
> まずはExcelのバージョンと、
> コマンドボタンの種類を教えて下さい。
> コマンドボタンは、ユーザーフォーム上でしょうか？
> それともシート上のコントロールツールボックスのコマンドボタンでしょうか？
ごめんなさい。これはエクセル2000です。コマンドボタンはユーザーフォーム上です。
【8254】Re:困ってます。
回答  Jaka  - 03/10/6(月) 10:33 -
引用なし
パスワード
   masaさん、kazuさん　同じ人？？？

こんにちは。
こう言うので良いんじゃないですか？
どうしてもコマンドボタンクリックとか、その物をループさせたいのでしょうか？

Private Sub CommandButton1_Click()
　　Dim 値1 As Long
　　値1 = 2
　　計算 値1
　　MsgBox 値1
End Sub

Private Sub CommandButton2_Click()
　　Dim 値2 As Long
　　値2 = 2
　　For i = 1 To 3
　　　　計算 値2
　　Next
　　MsgBox 値2
End Sub

Sub 計算(値 As Long)
　　値 = 値 * 2
End Sub
【8255】Re:困ってます。
回答  INA  - 03/10/6(月) 11:01 -
引用なし
パスワード
   >masaさん、kazuさん　同じ人？？？

先ほどのこんな状況なのかな？
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


難しい・・・(-_-;)
【8256】Re:困ってます。
お礼  kazu  - 03/10/6(月) 11:19 -
引用なし
パスワード
   ▼Jaka さん：
返答ありがとうございます。
いえ違いますよ。内容がにてたんですね。
そうですね。できればコントロールボタンを一括で制御したいですね。
【8257】Re:困ってます。
発言  kazu  - 03/10/6(月) 11:20 -
引用なし
パスワード
   ▼INA さん：
>>masaさん、kazuさん　同じ人？？？
>
>先ほどのこんな状況なのかな？
>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
>
>
>難しい・・・(-_-;)
そんな感じです。
【8258】Re:困ってます。
回答  INA  - 03/10/6(月) 11:56 -
引用なし
パスワード
   CommandButton_Click の内容を標準モジュールに記述して

＜ユーザーフォームモジュール＞

Private Sub CommandButton1_Click()
　Call test1
End Sub

Private Sub CommandButton2_Click()
　Call test2
End Sub

＜標準モジュール＞
Sub test1()
　MsgBox "1"
End Sub

Sub test2()
　MsgBox "2"
End Sub

＜ユーザーフォームモジュール＞
Private Sub CommandButton50_Click()
Dim i As Long
　　
　　For i = 1 To 49
　　　　Application.Run "test" & i
　　Next i

End Sub

とすれば、出来ると思います。
【8260】Re:困ってます。
回答  Jaka  - 03/10/6(月) 12:14 -
引用なし
パスワード
   最初は、Application.Run の方を書こうかと思いましたが．．。
（どっちでも良いんですけど。）

For i = 1 To 50
　　Me.Controls("CommandButton" & i) = True
Next
【8263】Re:困ってます。
お礼  INA  - 03/10/6(月) 13:12 -
引用なし
パスワード
   Jaka様

最初は、Controls を使って試していたのですが、
上手く行かなくて、しかたなくApplication.Run で書いてみました。

>Me.Controls("CommandButton" & i) = True
このような書き方で実行できるのですね。
勉強になりました。m(_ _)m
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12867 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free