Excel VBA質問箱 IV

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

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


17824 / 76732 ←次へ | 前へ→

【64356】Re:どなたか助けてください。
発言  ponpon  - 10/1/31(日) 13:37 -

引用なし
パスワード
   こんにちは。

課題をいくつかに分けて一つずつ解決していった方がよいと思います。


>1. 4個のオプションボタンがあり、オプションボタン毎にコンボボックスのリストが変化する。(オプションボタンを選択すると瞬時にコンボボックスが連動される。)

ここだけsheet1にコンボのリストがあるとして
こんな感じでできると思います。
Option Explicit

Private Sub OptionButton1_Change()
 If Me.OptionButton1.Value = True Then
   Me.ComboBox1.Clear
  With Sheets("Sheet1")
   Me.ComboBox1.List = Application.Transpose(.Range(.Cells(1, "A"), .Cells(Rows.Count, "A").End(xlUp)).Value)
  End With
 End If

End Sub

Private Sub OptionButton2_Change()
 If Me.OptionButton2.Value = True Then
   Me.ComboBox1.Clear
  With Sheets("Sheet1")
   Me.ComboBox1.List = Application.Transpose(.Range(.Cells(1, "B"), .Cells(Rows.Count, "B").End(xlUp)).Value)
  End With
 End If

End Sub

Private Sub OptionButton3_Change()
 If Me.OptionButton3.Value = True Then
   Me.ComboBox1.Clear
  With Sheets("Sheet1")
   Me.ComboBox1.List = Application.Transpose(.Range(.Cells(1, "C"), .Cells(Rows.Count, "C").End(xlUp)).Value)
  End With
 End If

End Sub

Private Sub OptionButton4_Change()
 If Me.OptionButton4.Value = True Then
   Me.ComboBox1.Clear
  With Sheets("Sheet1")
   Me.ComboBox1.List = Application.Transpose(.Range(.Cells(1, "D"), .Cells(Rows.Count, "D").End(xlUp)).Value)
  End With
 End If

End Sub
1 hits

【64343】どなたか助けてください。 どんちゃん 10/1/31(日) 9:18 発言
【64345】Re:どなたか助けてください。 Hirofumi 10/1/31(日) 9:47 発言
【64346】Re:どなたか助けてください。 どんちゃん 10/1/31(日) 10:01 発言
【64347】Re:どなたか助けてください。 Hirofumi 10/1/31(日) 10:57 発言
【64348】Re:どなたか助けてください。 どんちゃん 10/1/31(日) 11:09 発言
【64349】Re:どなたか助けてください。 こぎつね 10/1/31(日) 11:20 発言
【64350】Re:どなたか助けてください。 どんちゃん 10/1/31(日) 11:34 回答
【64351】Re:どなたか助けてください。 こぎつね 10/1/31(日) 12:32 発言
【64357】Re:どなたか助けてください。 Hirofumi 10/1/31(日) 13:56 回答
【64353】Re:どなたか助けてください。 かみちゃん 10/1/31(日) 13:17 発言
【64354】Re:どなたか助けてください。 どんちゃん 10/1/31(日) 13:23 発言
【64355】Re:どなたか助けてください。 かみちゃん 10/1/31(日) 13:30 発言
【64360】Re:どなたか助けてください。 どんちゃん 10/1/31(日) 14:55 発言
【64362】Re:どなたか助けてください。 かみちゃん 10/1/31(日) 15:42 発言
【64365】Re:どなたか助けてください。 どんちゃん 10/1/31(日) 16:54 発言
【64356】Re:どなたか助けてください。 ponpon 10/1/31(日) 13:37 発言
【64363】Re:どなたか助けてください。 どんちゃん 10/1/31(日) 16:12 発言
【64366】Re:どなたか助けてください。 かみちゃん 10/1/31(日) 16:55 発言

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