0

私はこれを数日間調査してきましたが、計算された値を入力する方法がわかりません。このコードにたどり着きましたが、完了すると、型の不一致 13 デバッグ エラーが発生します。浸透率を見つけるために、1 つの製品の数量を出席者で割りたいだけです。数量と出席は、SouvenirProgramForm と呼ばれる別のフォームに入力され、テキスト ボックスは数量と出席と呼ばれます。計算したいフォームは、「CurrentPen」テキスト ボックスの「目標」フォームです。考えて見つけられる可能性のあることはすべて試しましたが、何も機能していません。このコードは私が得た最も近いものです。浸透率を表示したい場所のすぐ隣にある「計算」というボタンに配置しました。エラーは z = x / y のどこかにあります。

Dim x As Variant
Dim y As Variant
Dim z As Variant
x = SouvenirProgramForm.Quantity.Value
y = SouvenirProgramForm.Attendance.Value
z = x / y
CurrentPen.Value = z

助けていただければ幸いです。

4

2 に答える 2

0

ここですべてを整理し、それを理解しようとした後、ようやく機能するようになりました。B Hart さん、ご協力ありがとうございます。これが私にとってうまくいった最終的な式です。

Dim a As String
Dim b As String
Dim c As Double
Dim d As Double
Dim e As Double
a = (Replace(SouvenirProgramFormG.Quantity, ",", ""))
b = (Replace(SouvenirProgramFormG.Attendance, ",", ""))
c = CDbl(a)
d = CDbl(b)
e = c / d * 100
TextBox1 = e

SouvenirProgramFormG ページの [続行] ボタンにこのコードを隠し、別のページのテキスト ボックスを新しい TextBox1 と等しくなるように設定しました。それはきれいではありませんが、仕事を成し遂げます。お手伝いありがとう！

于 2014-01-10T14:29:07.687 に答える