Excel VBA質問箱 IV

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

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


22813 / 76732 ←次へ | 前へ→

【59295】Re:構造体?配列?
発言  にぃ  - 08/12/5(金) 10:25 -

引用なし
パスワード
   ▼ふうか さん:
こんにちは!

ちょっとした別案なのですが。

ComboBoxと同じ文字をシート内の使わない列(セル)に入れてみて
処理を行ってはどうでしょう?


 A  B  C  D ・・・・・・・・・ Z(←参照列)

2   あ  い  う ・・・・・・・・・ ma
3   え  お  か ・・・・・・・・・ mb
4   さ  し  す ・・・・・・・・・ mc





私の例ですとZ列に入れましたが、Z列が不都合とかでしたら
使わない他の列に変えて使用してみてください。

悪魔で別案ですが。

Private Sub CommandButton1_Click()

  Dim p_name As String
  Dim Rn As Range
  
  p_name = Me.ComboBox1.Text
  
  Set Rn = Columns("Z:Z").Find(p_name) '対象列で検索(この場合はZ列)
  
  If Not Rn Is Nothing Then 'Z列で文字が見つかったら
    Me.TextBox2.Text = Cells(Rn.Row, 2).Text
    Me.TextBox3.Text = Cells(Rn.Row, 3).Text
    Me.TextBox4.Text = Cells(Rn.Row, 4).Text
  End If

End Sub

0 hits

【59285】構造体?配列? ふうか 08/12/4(木) 21:13 質問
【59289】Re:構造体?配列? neptune 08/12/4(木) 22:14 回答
【59290】Re:構造体?配列? ふうか 08/12/4(木) 22:42 お礼
【59291】Re:構造体?配列? neptune 08/12/4(木) 23:14 回答
【59292】Re:構造体?配列? SS 08/12/5(金) 9:35 発言
【59296】Re:構造体?配列? SS 08/12/5(金) 11:05 発言
【59295】Re:構造体?配列? にぃ 08/12/5(金) 10:25 発言
【59316】Re:構造体?配列? ふうか 08/12/5(金) 23:29 お礼

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