*/

雑穀麹の生酵素 ※麹押しLPについて話をしようか

雑穀麹の生酵素 ※麹押しLP』を探し中ですか?

>>『雑穀麹の生酵素 ※麹押しLP』の詳細はコチラ

雑穀麹の生酵素 ※麹押しLP

管理人も雑穀麹の生酵素 ※麹押しLPに関心があり雑穀麹の生酵素 ※麹押しLPをいろいろ調べている最中だ。。

下記リンクに関連したモノがあります。

インターネット上にも、雑穀麹の生酵素 ※麹押しLPに関してジワジワと話題になっています。

当サイトは、雑穀麹の生酵素 ※麹押しLPの最新情報をジャンルをまたいで、facebookやRakuten・比較サイトなどでで得た情報を収集しながら、為になる役に立つ情報を発信していきたいと思います。

雑穀麹の生酵素 ※麹押しLPの新着情報

新着情報が分かったらすぐに、当サイトに更新していく予定です。
雑穀麹の生酵素 ※麹押しLPの基本的な情報から、マル秘情報まで発信していきますので乞うご期待!

>>最新『雑穀麹の生酵素 ※麹押しLP』情報

雑穀麹の生酵素 ※麹押しLP

雑穀麹の生酵素 ※麹押しLPの最新情報

情報が入り次第公開予定



雑穀麹の生酵素 ※麹押しLP



マル秘情報が入手されるまで、管理人の雑穀麹の生酵素 ※麹押しLPとは関係あるかないかわかりませんが、『面白い商品に関する質問と回答』に関することとりあえず書いておきます。

面白い商品についてご質問がありましたのでお答えしたいと思います。

マクロに関する質問です。 Sheet1に商品の一覧を作成しています…

マクロに関する質問です。



Sheet1に商品の一覧を作成しています。

仮に商品名を 「A」「B」「C]があるとします。 更にその「A」「B」「C」にはそれぞれ「上」「中」「下」のランクがあります。



更に「上」「中」「下」にもそれぞれ「国産」「輸入」とあるとします。



つまり「A」という商品でも最終的には6種類ありそれぞれに価格が違います。

「A」「B」「C」をトータルすると18種類の価格があるわけです



※実際には300種類位にわかれています



そこで何がいくらなのかをマクロのボタンを使って順番に絞り込んでいきたいのです。

簡単に言えば、まずABCのボタンのどれかを押し、次に上中下のボタンのどれかを押し、

最終的に国産か輸入のボタンを押せばその価格が表示されるみたいな感じです。



一応、イメージを添付しておきます。



当方マクロは初心者です。VBA等もまったく理解しておりませんので

解りやすくお願いします

(質問のあった日:2018年5月10日)

どれか、Interior.Color、xlByColumns、C2&quot、E30&quot、Sheet1、MergeAreaについてのご質問のようですね。

この面白い商品に関する質問に対する回答

そうですね。マクロだとボタン押すタイミングで分岐がかなり多くなります。

このボタンを押したときユーザーがどれを選択してあれを選択していない、ということをすべて考えるのはコードが長くなる原因です。





それでも結構面白いので組んでみました。標準モジュールに下のコードをコピペしてボタンに登録します。



ボタンはフォームのボタンを

A,B,C,上、中、下、国産、輸入

の順序で設置します。



1〜8の順序としてコードを書いたのでその順番でマクロを登録します。



Sub Button1()が最初に挿入したボタンに登録するマクロで

Sub Button8()が最後に挿入したボタンに登録するマクロです。





Option Explicit

Dim rng1 As Range、 rng2 As Range



Sub Button1()

Dim rng

Range(D2:F2).ClearContents

Range(B13:E30).Interior.Color = xlNone

Set rng = Range(B13:E18)

Range(C2) = Range(B13)

rng.Interior.Color = 13827815

End Sub



Sub Button2()

Dim rng

Range(D2:F2).ClearContents

Range(B13:E30).Interior.Color = xlNone

Set rng = Range(B19:E24)

Range(C2) = Range(B19)

rng.Interior.Color = 13827815

End Sub



Sub Button3()

Dim rng

Range(D2:F2).ClearContents

Range(B13:E30).Interior.Color = xlNone

Set rng = Range(B25:E30)

Range(C2) = Range(B25)

rng.Interior.Color = 13827815

End Sub



Sub Button4()

Range(E2:F2).ClearContents

Range(B13:E30).Interior.Color = xlNone

Range(D2) = Range(C13)

If Range(C2) = Then

MsgBox カテゴリが選択されていません

Exit Sub

End If

Set rng1 = Range(B13:B30).Find(Range(C2).Value、 SearchOrder:=xlByColumns).MergeArea

Set rng2 = rng1.Offset(、 1).Resize(6).Find(Range(D2).Value、 SearchOrder:=xlByColumns).MergeArea

rng1.Interior.Color = 13827815

rng2.Resize(、 3).Interior.Color = 13827815

End Sub



Sub Button5()

Range(E2:F2).ClearContents

Range(B13:E30).Interior.Color = xlNone

Range(D2) = Range(C15)

If Range(C2) = Then

MsgBox カテゴリが選択されていません

Exit Sub

End If

Set rng1 = Range(B13:B30).Find(Range(C2).Value、 SearchOrder:=xlByColumns).MergeArea

Set rng2 = rng1.Offset(、 1).Resize(6).Find(Range(D2).Value、 SearchOrder:=xlByColumns).MergeArea

rng1.Interior.Color = 13827815

rng2.Resize(、 3).Interior.Color = 13827815

End Sub



Sub Button6()

Range(E2:F2).ClearContents

Range(B13:E30).Interior.Color = xlNone

Range(D2) = Range(C17)

If Range(C2) = Then

MsgBox カテゴリが選択されていません

Exit Sub

End If

Set rng1 = Range(B13:B30).Find(Range(C2).Value、 SearchOrder:=xlByColumns).MergeArea

Set rng2 = rng1.Offset(、 1).Resize(6).Find(Range(D2).Value、 SearchOrder:=xlByColumns).MergeArea

rng1.Interior.Color = 13827815

rng2.Resize(、 3).Interior.Color = 13827815

End Sub



Sub Button7()

Dim rng3 As Range

If Application.CountA(Range(C2:D2)) <> 2 Then

MsgBox カテゴリが選択されていません

Exit Sub

End If

Range(E2) = 国産

Set rng3 = rng2.Offset(、 2).Resize(2)

rng3.Interior.Color = 13827815

rng3(2).Interior.Color = xlNone

Range(F2) = rng3(1).Value

End Sub



Sub Button8()

Dim rng3 As Range

If Application.CountA(Range(C2:D2)) <> 2 Then

MsgBox カテゴリが選択されていません

Exit Sub

End If

Range(E2) = 輸入

Set rng3 = rng2.Offset(、 2).Resize(2)

rng3.Interior.Color = 13827815

rng3(1).Interior.Color = xlNone

Range(F2) = rng3(2).Value

End Sub

管理人からの補足コメント




◆うーん・・・難しいですね・・・。

正直マクロもイマイチなんでもう少し噛み砕いてマクロへの登録方法なども教えて頂けませんか?





◆これは マクロでは難しい

逆に 関数の方が 簡単です。

添付参照



H1:K4の 表を作成します。

この表を利用して 入力規制を使ってプルダウンで 項目の値を 入力します。



そうすれば F2に =INDEX(E:E、VLOOKUP(C2、H:K、4、0)*6+VLOOKUP(D2、I:K、3、0)*2+VLOOKUP(E2、J:K、2、0)+13) と 入れておけば 該当の価格が 自動で でます。

雑穀麹の生酵素 ※麹押しLP


サイズダウン フレグランスウォーター ローズ(24本セット)の概要
SLICK MAN(スリックマン)_ビフォーアフター_ロングver(動画あり)のみんなの口コミ

関連記事一覧

着るだけイージースリム ベストボディーインナー [ルミエール]を辛口レビュー

着るだけイージースリム ベストボディーインナー [ルミエール]について調べてみた ▼購入はこちら!▼ >>着るだけイージースリム ベストボデ...

IRIE 〜Leg shape leggings〜(アイリー レッグシェイプレギンス)[ShoppingMall]のみんなの口コミ

IRIE 〜Leg shape leggings〜(アイリー レッグシェイプレギンス)[ShoppingMall]を掘り下げて調査 ▼...

デウス・アウラ ★Deus Aura★[ワガママモード]を辛口レビュー

デウス・アウラ ★Deus Aura★[ワガママモード]の詳細 ▼開運ブレスレット▼ >>デウス・アウラ ★Deus Aura★[ワガママモ...

東京ピュアレディ(ダイエットサプリ)[Salon de Supli]の概要

東京ピュアレディ(ダイエットサプリ)[Salon de Supli]の概要 ▼合法史上最強の痩身加速錠▼ >>東京ピュアレディ(ダイエットサ...

BeautySpecial-スリムプロジェクト《Select mall》の概要

BeautySpecial-スリムプロジェクト《Select mall》について話をしようか ▼#NAME?▼ >>BeautySpecia...