Excel VBA質問箱 IV

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

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


39197 / 76732 ←次へ | 前へ→

【42650】Re:Noを手がかりにユーザフォームに表示...
発言  ponpon  - 06/9/17(日) 20:39 -

引用なし
パスワード
   コマンドボタンより、スピンボタンの方がよいのでは?

    label1    label2     label3
    ___  ▲   ___    ___
   |___|▼  |___|  |___|
   Textbox1 ↑   Textbox2   Textbox3
       スピンボタン 

ユーザーフォームにこのように配置して
データがSheet1にあるとして
こんな感じではないかと思うのですが・・・

Private Sub UserForm_Initialize()
  Dim i As Integer
  With Me
    With .SpinButton1
      .Min = 2
      .Max = Sheets("Sheet1").Range("A65536").End(xlUp).Row
      .Value = 2
    End With
    For i = 1 To 3
     .Controls("TextBox" & i).Value = ""
    Next
    .Label1.Caption = "NO"
    .Label2.Caption = "項目1"
    .Label3.Caption = "項目2"
   End With
End Sub

Private Sub SpinButton1_Change()
  Dim i As Integer
  
  With Me
    For i = 1 To 3
     .Controls("TextBox" & i).Value = Sheets("Sheet1").Cells(.SpinButton1.Value, i)
    Next
  End With
End Sub
0 hits

【42649】Noを手がかりにユーザフォームに表示させたい Tomi 06/9/17(日) 19:44 質問
【42650】Re:Noを手がかりにユーザフォームに表示... ponpon 06/9/17(日) 20:39 発言
【42651】Re:Noを手がかりにユーザフォームに表示さ... Hirofumi 06/9/17(日) 21:00 回答
【42653】Re:Noを手がかりにユーザフォームに表示さ... Hirofumi 06/9/18(月) 14:24 回答
【42655】Re:Noを手がかりにユーザフォームに表示さ... Tomi 06/9/18(月) 14:34 お礼
【42663】Re:Noを手がかりにユーザフォームに表示さ... Jigsaw 06/9/18(月) 19:43 回答
【42664】Re:Noを手がかりにユーザフォームに表示さ... Jigsaw 06/9/18(月) 19:47 回答
【42666】Re:Noを手がかりにユーザフォームに表示さ... Tomi 06/9/18(月) 20:55 お礼

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