Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

22819 / 76738

←次へ　｜　前へ→


	【59295】Re:構造体？配列？

にぃ - 08/12/5(金) 10:25 -


	引用なし

	パスワード

▼ふうかさん：
こんにちは！

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

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

例
　Ａ　　Ｂ　　Ｃ　　Ｄ　･････････　Ｚ（←参照列）
１
２　　　あ　　い　　う　･････････　ma
３　　　え　　お　　か　･････････　mb
４　　　さ　　し　　す　･････････　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)　'対象列で検索(この場合はＺ列)
　　
　　If Not Rn Is Nothing Then 'Ｚ列で文字が見つかったら
　　　　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