Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1787 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【71926】スピンボタン saru 12/4/28(土) 0:36 質問[未読]
【71927】Re:スピンボタン saru 12/4/28(土) 0:40 質問[未読]
【71928】Re:スピンボタン UO3 12/4/28(土) 9:23 発言[未読]
【71929】Re:スピンボタン saru 12/4/28(土) 10:04 発言[未読]
【71930】Re:スピンボタン UO3 12/4/28(土) 10:31 発言[未読]
【71934】Re:スピンボタン ［名前なし］ 12/4/28(土) 14:48 発言[未読]
【71935】Re:スピンボタン UO3 12/4/28(土) 17:14 回答[未読]
【71926】スピンボタン
質問  saru E-MAIL  - 12/4/28(土) 0:36 -
引用なし
パスワード
   スピンボタンにセットした範囲の中で番号一致した名前と会費はテキストボックスに表示

ユーザーフォーム

no.　’スピンボタン
Name　’名前
Kaihi　’会費


シート（会費）
A　　B　　C　　D　　　　E　　　　H　　I　　J　　　K　　　L
1.　坂本　男　住所　　17400　　　1.　日野　男　　住所　　12000
2.　鈴木　女　住所　　15000　　　2.　日野　女　　　　　　12000

set　単独（会費）A:E
set　夫婦（会費）H:L


スピンボタンにナンバーを増減し、テキストボックスの表示が名前も変わるようなコードを教えていただけませんか？

どうかよろしくお願いします。
【71927】Re:スピンボタン
質問  saru E-MAIL  - 12/4/28(土) 0:40 -
引用なし
パスワード
   ▼saru さん：
>スピンボタンにセットした範囲の中で番号一致した名前と会費はテキストボックスに表示
>
>ユーザーフォーム
>
>no.　’スピンボタン
>Name　’名前
>Kaihi　’会費
>
>
>シート（会費）
>A　　B　　C　　D　　　　E　　　　H　　I　　J　　　K　　　L
>1.　坂本　男　住所　　17400　　　1.　日野　男　　住所　　12000
>2.　鈴木　女　住所　　15000　　　2.　日野　女　　　　　　12000
>
>set　単独（会費）A:E
>set　夫婦（会費）H:L
>

>
>スピンボタンにナンバーを増減し、テキストボックスの表示が名前も変わるようなコードを教えていただけませんか？
>
>どうかよろしくお願いします。

追記
オプションボタンで単独か夫婦を決めてスピンボタンを表示します。
【71928】Re:スピンボタン
発言  UO3  - 12/4/28(土) 9:23 -
引用なし
パスワード
   ▼saru さん：


おはようございます
テーマとHNから推察すると
h tp://www.moug.net/faq/viewtopic.php?t=62963
この関連でしょうかね。

それはさておき、

会費シートですけど、１行目からデータでしょうか？
それとも１行目はタイトル行？
またスピンボタンの値とマッチさせるものはA列あるいはH列の値だと思いますが
このA列、H列の値は、上から１，２，３・・と｢連続してもれなく｣設定されているのでしょうか？
それとも、ランダムなのでしょうか？
【71929】Re:スピンボタン
発言  saru E-MAIL  - 12/4/28(土) 10:04 -
引用なし
パスワード
   UO3 さん　　
おはようございます。ありがとうございます。
>
>
>おはようございます
>テーマとHNから推察すると
>h tp://www.moug.net/faq/viewtopic.php?t=62963
>この関連でしょうかね。
>
>それはさておき、
>
>会費シートですけど、１行目からデータでしょうか？
>それとも１行目はタイトル行？

はいタイトル行あります。


>またスピンボタンの値とマッチさせるものはA列あるいはH列の値だと思いますが
>このA列、H列の値は、上から１，２，３・・と｢連続してもれなく｣設定されているのでしょうか？
>それとも、ランダムなのでしょうか？

はい　連続です。連番通りです。
【71930】Re:スピンボタン
発言  UO3  - 12/4/28(土) 10:31 -
引用なし
パスワード
   ▼saru さん：

こんにちは

本当にもれなく連番　ということならスピンボタンの値が仮に１〜という設定なら
値が１なら2行目、値が２０なら21行目と決めうちできますね。
列はオプションボタンの選ばれ方により、Ａ列〜ないしはＨ列〜

これをスピンボタンのChangeイベントで処理すればいいと思うのですが
どのあたりがおわかりにならないのでしょうか？　　　　
【71934】Re:スピンボタン
発言  ［名前なし］  - 12/4/28(土) 14:48 -
引用なし
パスワード
   ▼UO3 さん

こんにちは

参考には載せていませんのでどうイベントを取り組んでいるかわからない

参考として教えていただけませんか？

宜しくお願いします。


>▼saru さん：
>
>こんにちは
>
>本当にもれなく連番　ということならスピンボタンの値が仮に１〜という設定なら
>値が１なら2行目、値が２０なら21行目と決めうちできますね。
>列はオプションボタンの選ばれ方により、Ａ列〜ないしはＨ列〜
>
>これをスピンボタンのChangeイベントで処理すればいいと思うのですが
>どのあたりがおわかりにならないのでしょうか？
【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
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1787 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free