Excel VBA質問箱 IV

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

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


45538 / 76732 ←次へ | 前へ→

【36187】Re:セルの値をテキストボックスに表示する方法を教えてください
回答  Kein  - 06/3/23(木) 23:28 -

引用なし
パスワード
   ユーザーフォームを表示したとき、初期状態で A1 と B1 の値が入っていれば良い、
ということなら

Private Sub UserForm1_Initialized()
  With Worksheets("データベース")
   Me.TextBox1.Text = .Range("A1").Value
   Me.TextBox2.Text = .Range("B1").Value
  End With
End Sub

>CommandButton1を押すとしたの行にいくように

Private Sub CommandButton1_Click()
  Dim CkR As Variant

  With Worksheets("データベース")
   CkR = Application.Match(TextBox2.Text, .Range("B:B"), 0)
   If IsError(CkR) Then
     MsgBox "テキストボックスの値がシート上に見つかりません", 48
     Exit Sub
   End If
   TextBox1.Text = .Cells(CkR + 1, 1).Value
   TextBox2.Text = .Cells(CkR + 1, 2).Value
  End With
End Sub

ぐらいで出来ると思います。
8 hits

【36186】セルの値をテキストボックスに表示する方法を教えてください VBA勉強中 06/3/23(木) 23:16 質問
【36187】Re:セルの値をテキストボックスに表示する... Kein 06/3/23(木) 23:28 回答
【36188】Re:セルの値をテキストボックスに表示する... VBA勉強中 06/3/23(木) 23:47 質問
【36189】Re:セルの値をテキストボックスに表示する... Kein 06/3/24(金) 0:17 発言
【36190】Re:セルの値をテキストボックスに表示する... とおりすがり 06/3/24(金) 3:25 発言

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