Excel VBA質問箱 IV

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

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


51866 / 76732 ←次へ | 前へ→

【29721】Re:ユーザーフォームにおいて
回答  ちくたく  - 05/10/12(水) 16:45 -

引用なし
パスワード
   masa さん
こんにちは。

単純な方法です。

Private Sub TextBox1_Change()
  Dim oriVal As String
  Dim tmpVal As String
  Dim i As Integer
  
  oriVal = TextBox1.Text
  
  For i = 1 To Range("A65536").End(xlUp).Row
    tmpVal = Range("A" & i).Value
    If oriVal = tmpVal Then
      TextBox2.Value = Range("A" & i).Offset(0, 1).Value
    End If
  Next i
End Sub

0 hits

【29720】ユーザーフォームにおいて masa 05/10/12(水) 16:02 質問
【29721】Re:ユーザーフォームにおいて ちくたく 05/10/12(水) 16:45 回答
【29723】Re:ユーザーフォームにおいて masa 05/10/12(水) 16:57 お礼
【29725】Re:ユーザーフォームにおいて 05/10/12(水) 17:30 発言
【29726】Re:ユーザーフォームにおいて ちくたく 05/10/12(水) 17:43 回答
【29729】Re:ユーザーフォームにおいて masa 05/10/12(水) 18:32 お礼
【29730】Re:ユーザーフォームにおいて ichinose 05/10/12(水) 19:15 発言
【29765】Re:ユーザーフォームにおいて ちくたく 05/10/13(木) 11:05 お礼

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