Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

10419 / 76807

←次へ　｜　前へ→


	【71935】Re:スピンボタン

UO3 - 12/4/28(土) 17:14 -


	引用なし

	パスワード

▼［名前なし］さん：
>▼UO3 さん

あぁ、
www.moug.net/faq/viewtopic.php?t=62963
この関連かなと申し上げましたが、
www.moug.net/faq/viewtopic.php?t=62981
こういうのもありましたね。
まぁ、テーマは少しずつ異なりますので、問題はないのですが、
一連のテーマであれば、同じ場所で質問されたほうが回答者さんにフォローしてもらいやすいとは思いますが。

とりあえず、上で確認したことを踏まえたコードを以下にアップしますが
夫婦会員の場合、これでいいのかどうか、別板のやりとりを見ていますと
不安にもなりますね。

Option Explicit

Dim StopFlag As Boolean

Private Sub UserForm_Initialize()
　　Dim maxID As Long
　　
　　StopFlag = True
　　With Sheets("会員")
　　　　maxID = WorksheetFunction.Max(WorksheetFunction.Max(.Columns("A")), WorksheetFunction.Max(.Columns("H")))
　　End With
　　
　　With SpinButton1
　　　　.Min = 1
　　　　.Max = maxID
　　　　.Value = 1
　　End With
　　　　
　　OptionButton1.Value = True　'初期値　単独会員
　　
　　Call SetName
　　StopFlag = False
　　
End Sub

Private Sub SpinButton1_Change()
　　If StopFlag Then Exit Sub
　　Call SetName
End Sub

Private Sub OptionButton1_change()
　　If StopFlag Then Exit Sub
　　Call SetName
End Sub

Private Sub SetName()
　　Dim c As Range
　　Dim i As Long
　　
　　i = SpinButton1.Value
　　
　　If OptionButton1 Then
　　　　Set c = Range("A1")
　　Else
　　　　Set c = Range("H1")
　　End If

　　TextBox1.Value = c.Offset(i, 1).Value　 '氏名
　　TextBox2.Value = c.Offset(i, 4).Value　 '会費
　　
End Sub

3 hits

▼

【71926】スピンボタン saru 12/4/28(土) 0:36