Excel VBA質問箱 IV

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

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


39183 / 76732 ←次へ | 前へ→

【42664】Re:Noを手がかりにユーザフォームに表示させたい
回答  Jigsaw  - 06/9/18(月) 19:47 -

引用なし
パスワード
   ▼Tomi さん:

お試しください。

CommandButton1 …△
CommandButton2 …▽
CommandButton3 …指定NO
TextBox1.Value …NO
TextBox2.Value …項目1
TextBox3.Value …項目2

UserForm1に、以上6つのパーツを貼り付ける


■標準モジュールには、

Sub 表示の表示()
  UserForm1.Show
End Sub


■「UserForm1」には、

'-------------------------------
Option Explicit 'グローバル変数の宣言
Dim 指定行 As Integer
Dim 指定NO As Integer

'-------------------------------

Private Sub UserForm_initialize() ''''''初期設定…先頭データの表示
  指定行 = 2
  Call 表示
End Sub

'-------------------------------

Private Sub CommandButton1_Click() ''''''△
  指定行 = 指定行 - 1
  Call 表示
End Sub

'-------------------------------

Private Sub CommandButton2_Click() ''''''▽
  指定行 = 指定行 + 1
  Call 表示
End Sub

'-------------------------------

Private Sub CommandButton3_Click() ''''''指定NO
  指定NO = TextBox1.Value
  On Error GoTo ES
  指定行 = Application.WorksheetFunction.Match(指定NO, Range("A1:A6"), 0)
  Call 表示
  Exit Sub
  
ES:
  MsgBox "該当NOなし"
  Exit Sub
  
End Sub

'-------------------------------

Private Sub 表示()

  With Worksheets("Sheet1")
    TextBox1.Value = .Cells(指定行, 1).Value 'NO
    TextBox2.Value = .Cells(指定行, 2).Value '項目1
    TextBox3.Value = .Cells(指定行, 3).Value '項目2
  End With
    
End Sub


        ┘┘┘┘┘┘┘┘┘┘┘┘┘

「TextBox1.Value」に指定NOを入力して、「CommandButton3」をクリックすると、ご希望の表示がされます。
(^^)

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 お礼

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