
No.4ベストアンサー
- 回答日時:2017/05/14 23:08
遅くなりまして申し訳ございません。
------------------------------------------------------------------------------------
Private Sub ComboBox1_Change()
Dim 行 As Long
Dim 列 As Long
If ComboBox1.ListIndex < 0 Then
MsgBox ("パターンを選択してください")
Else
ComboBox2.Clear
列 = ComboBox1.ListIndex + 1
With Sheets("データ")
For 行 = 2 To .Cells(Rows.Count, 列).End(xlUp).Row
ComboBox2.AddItem .Cells(行, 列).Text
Next
End With
End If
End Sub
------------------------------------------------------------------------------------
Private Sub CommandButton1_Click()
If ComboBox1.ListIndex < 0 Then
MsgBox ("パターンを選択してください")
Else
If ComboBox2.ListIndex < 0 Then
MsgBox ("値を選択してください")
Else
Sheets("結果").Range("AA5").Value = ComboBox2.Text
Unload Me
End If
End If
End Sub
------------------------------------------------------------------------------------
Private Sub UserForm_Initialize()
Dim 列 As Long
Dim 列終 As Long
With Sheets("データ")
For 列 = 1 To .Cells(1, Columns.Count).End(xlToLeft).Column
ComboBox1.AddItem .Cells(1, 列).Text
Next
End With
End Sub
------------------------------------------------------------------------------------
※ シート名や書き込みセルは適当に変更してください。
No.2
- 回答日時:2017/05/14 09:30
「シート5にA3にパターン、A5に英数字が入ってるとしたらどのようなコードとなりますか?」は、多分1つのセルの中で「.」でデータを区切っているのだと思いますが、いろいろな処理が面倒になって全くダメです。
パターンはA列、英数字はB列のように、1つのセルには1つのデータにした方が処理が格段に楽になるし、変更や追加も非常に楽になります。
いかがでしょうか?
どうしても今のままで処理したいのならばどこかに作業シートを作り、処理前にデータを分割する事をお勧めします。
No.1
- 回答日時:2017/05/14 03:34
ちなみにユーザーフォームの何を使うのですか?
「テキストボックス」「コンポボックス」「リストボックス」などありますが…
「パターン」の選択は「オプションボタン」を使うのですか?
「英数字を検索でき」はどこから検索するのですか?
「選んだ英数字をセルに書き込みする」はどこのセルに書き込みするのですか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するQ&A
- 1 【Excel VBA】ユーザーフォームで選択した複数条件に一致するデータ行を削除
- 2 Excel VBAのユーザーフォームについて質問致します 別のExcelを編集中にユーザーフォームの
- 3 excel、VBA、フォーム、コンボボックスの入力規則の設定
- 4 VBA ユーザーフォームからアクティブシート1a1に転記した後、シート2のセルに=IF(シート1!a
- 5 ユーザーフォームの入力規則について
- 6 vba ユーザーフォームから入力する
- 7 エクセルVBA「ユーザーフォーム→セルへの入力」ほか
- 8 セルの入力規則(複数セルの条件)
- 9 エクセルVBA ユーザーフォーム 複数のコンボボックス 同一リスト
- 10 EXCEL VBA----ユーザーフォーム 入力もれ防止
関連するカテゴリからQ&Aを探す
おすすめ情報
人気Q&Aランキング
-
4
エクセルで段階的な価格を作成...
-
5
エクセルで、列内が同じ名前を...
-
6
【Excel】複数の列を参照して、...
-
7
エクセルで特定の行を削除した...
-
8
Excel 別ファイルに自動的に反...
-
9
エクセルのセルに自動で結果を...
-
10
【Excel】列と行の最後尾にジャ...
-
11
Excel 同じ文字の数をカウント...
-
12
エクセル【A列とB列の不一致...
-
13
EXCELで2列を参照し、重複する...
-
14
MAXIFはどうすればいい?
-
15
エクセルのチェックボックス反...
-
16
Excelで文字列の中から部分一致...
-
17
エクセルでB列の数値がA列(A...
-
18
エクセル関数で、数字の入った...
-
19
エクセルで文字列の連結方法?
-
20
特定の文字列を含む場合指定の...
ユーザーフォームは、コンボボックス1でパターン選び、コンボボックス2で英数字を検索。その英数字をコマンドボタンでセルAA5に書き込みをしたいのです。
リストは、シート5にA3にパターン、A5に英数字が入ってるとしたらどのようなコードとなりますか?
ユーザーフォームで作れるんですがコードの組み合わせがわかりません。
ご教示お願いいただきたいと思います。よろしくお願いします。
ありがとうございます。
A列にパターンBに英数字の変更をしたいと思います。
よろしくお願いします。
そうです。こんなイメージをしていました。
よろしくお願いします。
GooUserラックさんが示されたもののコードはどのようにしたらいいのでしょうか?
初心者の為、どう示したらいいかわかりません。ご教示お願いしたいと思います。
よろしくお願いします。