チェックボックスの問題を抱えたVBAの新機能

Question

私はプログラミングするのが初めてです（2週間）。私はデータボックスを作成して、プロジェクトの総価格を見つけます。私は、テキストボックス、チェックボックス、ボタンを使って合計を検索します。

レモンとオレンジの数を入力します。ボタンを押すと、シートから引き出された価格に基づいてどれくらいの費用がかかります。

ここでは、1つの数量が設定されているため、チェックボックスをオンにします。私はそれがチェックされるときに総価格に "砂糖"の価格を追加したいと思います。

一部の人がチェックボックスを合計価格に加算するのに役立つことがありますか？

例えばデータボックスは、次のようになります。 おかげenter image description here

enter image description here

---

新しいコードは、ほとんど私が望んでいたように動作します。アドバイスをありがとう、私はシートを参照しようとしたと私にエラーを与えた。しかし、これは今のように動作します。

- 入力ボックスに数字を入力して計算を押すと、正しい合計が得られます。 - チェックボックスをオンにすると、合計に加算されますが、「計算」を押すと、チェックボックスを含めずに合計が計算されます。 - 「Checksugar」を選択してから「checkbox2」を選択すると、「Checkbox2」の値だけが追加されます。 "Calc"をもう一度押すと、合計がチェックボックスを無視します。

私は何をしたいのですか：1つ以上のチェックボックスを選択すると、トータルを追加しておきます。また、入力ボックスの合計だけではなく、「Calc」を押したときに合計値を与えるコードも必要です。

私は何をする必要があると思いますか：「TxtTotal」にIf文を追加する方法はありますが、その方法はわかりません。または複数のIf文を持つこと。

誰かが助けることができますか？

ます。Private Sub Calculate_Click（）

TxtTotal = TxtLemon *レンジ（ "E21"）。バリュー+ TxtLime *レンジ（ "E20"）。バリュー_ + TxtOranges *レンジ（ "E19"）。バリュー_ + TxtApple *レンジ（ "E25"）。バリュー_ + TxtCactus *レンジ（ "E24"）。バリュー

End Subの

ます。Private Sub Checksugar_Click（） Me.Checksugar.Value = Trueの場合、

TxtTotal = TxtLemon * Range("E21").Value + TxtLime * Range("E20").Value _ 

+ TxtOranges *レンジ（ "E19"）。バリュー_ + TxtApple *レンジ（ "E25"）。バリュー_ + TxtCactus *レンジ（ "E24"）。値+範囲（ "E22"）。バリュー

エンド End Subの

もしプライベートサブCheckbox2_Click（） はMe.Checkbox2.Value = Trueの場合、

TxtTotal = TxtLemon *レンジ（ "E21"）。バリュー+ TxtLime *レンジ（」 E20 "）。値_ + TxtOranges *範囲（ "E19"）値_ + TxtApple *範囲（ "E25"）値_ + TxtCactus *範囲（ "E24"）値+範囲（ "E27"）値

エンド End Subの

Answer 1

IF CheckSugarValue.Value = True Then 
     'do stuff 
     TxtTotal.Value = TxtTotal.Value + ThisWorkbook.Sheets("your sheet name).Range("E22").Value 
End if 

場合あなたは正しく非参照のもののrealloy悪い癖を持っています。あなたが良い習慣を形作ることができる間、今あなたが理解していることを最善のものにしました。コントロールオブジェクトの内容を使用可能な値に変換するには、多くの場合 ".Value"を使用します。ほとんどの場合、これらの値を変数に格納します。明示的にシート名を参照していないと、後でb/cのあいまいな参照がコンパイラーに間違ったシートを見せてしまう大きなトラブルにつながります。私はちょうど私の例のように長い道のりをやっている習慣に入った。