VBA文字列をダブルに変換

Question

私はVBAの非常に基本的なコーディングを使って、ウィンドウ内の他の画面からデータを引き出すテンプレートを作成しています。数字を引くと、文字列として書式設定されます。私は今、それらを追加/減算するために、ダブルスに変換される文字列を取得する必要があります。私はすべてを試してきましたが、それを理解できないようです。

Me.salesprice = Trim(scrn.GetString(11, 65, 10)) 
'This would be formatted as 25,000.00 
Me.salestax = Trim(scrn.GetString(12, 66, 10)) 
Me.pastdue = Trim(scrn.GetString(14, 65, 10)) 
Me.assessedppt = Trim(scrn.GetString(18, 66, 10)) 
Me.secdep = Trim(scrn.GetString(17, 65, 10)) 

assessedppt = Convert.ToDouble(Me.assessedppt) 
uappt = Convert.ToDouble(Me.uappt) 
salesprice = Convert.ToDouble(Me.salesprice) 
salestax = Convert.ToDouble(Me.salestax) 
pastdue = Convert.ToDouble(Me.pastdue) 
lc = Convert.ToDouble(frmDetails.lc) 

totalfinance = salesprice + salestax + pastdue - secdep + assessedppt + uappt + lc 
totalsalesprice = salesprice + pastdue 
ppt = assessedppt + uappt 

私はこれを行うと、私は次のエラーを取得する：

Compile error: Variable not defined, and it highlights the first Convert function.

Answer 1

あなたが変換するには、間違った機能を使用しています。あなたはConvert.toDoubleを変更した場合

numberDouble = CDbl("10") 'For convert to double 
numberInteger = CInt("12") 'For convert to Integer 
varString = CStr("11") 'For convert to String 
bool = CBool("true") 'For convert to Boolean 

だから、あなたのコードの意志がそのようになっています：

Me.salesprice = Trim(scrn.GetString(11, 65, 10)) 
'This would be formatted as 25,000.00 
Me.salestax = Trim(scrn.GetString(12, 66, 10)) 
Me.pastdue = Trim(scrn.GetString(14, 65, 10)) 
Me.assessedppt = Trim(scrn.GetString(18, 66, 10)) 
Me.secdep = Trim(scrn.GetString(17, 65, 10)) 

assessedppt = CDbl(Me.assessedppt.value) 
uappt = CDbl(Me.uappt.value) 
salesprice = CDbl(Me.salesprice.value) 
salestax = CDbl(Me.salestax.value) 
pastdue = CDbl(Me.pastdue.value) 
lc = CDbl(frmDetails.lc.value) 

totalfinance = salesprice + salestax + pastdue - secdep + assessedppt + uappt + lc 
totalsalesprice = salesprice + pastdue 
ppt = assessedppt + uappt