質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.35%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

コンボボックス

GUIの要素のひとつです。Listboxと同様にいくつかのうちひとつを選択する機能だが、Comboboxの場合は選択されたもののみがデフォルトとして表示される。

検索

検索は、あるデータの集まりの中から 目的のデータを見つけ出すことです。

Q&A

1回答

944閲覧

ユーザーフォームをシートに書きこみ

nantaroo

総合スコア0

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

コンボボックス

GUIの要素のひとつです。Listboxと同様にいくつかのうちひとつを選択する機能だが、Comboboxの場合は選択されたもののみがデフォルトとして表示される。

検索

検索は、あるデータの集まりの中から 目的のデータを見つけ出すことです。

0グッド

0クリップ

投稿2021/06/30 05:22

画像添付が何度試しても失敗してしまうので、わかりづらいですがお願いします。

Excelでマスタデータのシートがあります。
1行目→客先名
2行目→品名1
3行目→品名2
4行目→グレード
これが横並びにずらっとあります。

A列には原材料名
B列には単位が入っており、
上記の客先&品名1.2&グレード毎に、使用量が入力されています。
使用するもの、しないものがあります。

客先や原料もたくさんある為、新規入力も訂正もやりづらいため
ユーザーフォームで解決したいと思っています。

わかりづらいですが、下記がユーザーフォームの配置です。

客先名 テキストボックス1
品名1 テキストボックス2
品名2 テキストボックス3
グレード テキストボックス4    【確認ボタン】

コンボボックス(品名) コンボボックス(単位) テキストボックス(数量入力)←同じものが20行ほど

 【登録ボタン】 【終了ボタン】

◎やりたいこと
(1)テキストボックスに入力後、確認ボタンをクリック
該当データあり→コンボボックスに表示
※使用しないものは非表示(飛ばして表示、フィルターのような感じ)
複数該当→複数該当ありのメッセージ表示
該当データなし→新規登録してくださいのメッセ―ジ表示

 (2)コンボボックス(品名)に応じて単位のコンボボックスが連動

 (3)登録ボタンで新規登録と修正ができる

要望が多くて申し訳ございませんが、力をお貸しください。

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答1

0

最初の状態がよくわかりませんでした。こういうことですか。

ABCD
A様B様・・・
ピザ・・・
マルゲリータ・・・
Lサイズ・・・
ABCD
砂糖g100・・・
g20・・・
小麦粉g150・・・
mL500・・・

<追記> あ、こんな感じ?

ABCD
客先名-A様B様
品名1-ピザ・・・
品名2-マルゲリータ・・・
グレード-Lサイズ・・・
<原材料><単位>
砂糖g100・・・
g20・・・
小麦粉g150・・・
mL500・・・

<追記>
無茶ぶりには同情しますが、さすがにゼロから全部作ってさしあげるのはサイトの趣旨から外れるので
ヒントにとどめます。

VBA

1Private Sub CommandButton1_Click() 2 3 With ThisWorkbook.Worksheets(1).UsedRange 4 Dim i 5 For i = 3 To .Columns.Count 6 If .Cells(1, i) = Me.TextBox1.Text And .Cells(2, i) = Me.TextBox2.Text And .Cells(3, i) = Me.TextBox3.Text And .Cells(4, i) = Me.TextBox4.Text Then 7 Me.ComboBox1.SelText = .Cells(6, 1) 8 Me.ComboBox2.SelText = .Cells(6, 2) 9 Me.ComboBox3.SelText = .Cells(6, i) 10 Me.ComboBox4.SelText = .Cells(7, 1) 11 Me.ComboBox5.SelText = .Cells(7, 2) 12 Me.ComboBox6.SelText = .Cells(7, i) 13 Exit Sub 14 End If 15 Next 16 17 MsgBox "新規登録" 18 19 End With 20End Sub 21

投稿2021/06/30 06:12

編集2021/06/30 23:59
jinoji

総合スコア4592

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

nantaroo

2021/06/30 09:00

そうです。レシピに例えると分かりやすいですね! 1つめの表がC列以降にずらっと並んでいます。 その下に2つめの表がくっついています。
nantaroo

2021/06/30 10:26

<追記>がまさにそうです! わかりづらい説明ですみません…。 まだVBAとかマクロを勉強し始めたばかりなのですが転記する程度しかできないんですが お上様からの要望で困っています(T_T)
nantaroo

2021/07/01 01:08

ありがとうございます。 色々調べながら、頂いたコードを活用して進めていこうと思います。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

まだベストアンサーが選ばれていません

会員登録して回答してみよう

アカウントをお持ちの方は

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.35%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問