| |
初カキコさせていただきます。VBA初心者です。
以下の構成でテキストボックスに数値を入力し、『sgg』『ngg』『ggg』に計算結果(加算)を表示させようとすると、計算結果が｢1000+1000=2000」というような計算結果も計算されずに「1000+1000=10001000」となり、『&』で連結されるように個々の数字がくっついた形で表示されます。なぜでしょうか？
※ss(n),sg(n),sr(n),ns(n),ng(n),gs(n),sgg,ngg,ggg･･･全てテキストボックス
Private Sub sr1_afterupdate()
ss1.Value = sg1.Value * sr1.Value
ns1.Value = ng1.Value * sr1.Value
gs1.Value = Int(ss1.Value - ns1.Value)
ss1.Value = FormatNumber(ss1.Value, 2, vbTrue, vbFalse, vbTrue)
ns1.Value = FormatNumber(ns1.Value, 2, vbTrue, vbFalse, vbTrue)
gs1.Value = FormatNumber(gs1.Value, 0, vbTrue, vbFalse, vbTrue)
sgg.Value = ss1.Value + ss2.Value + ss3.Value + ss4.Value + ss5.Value + ss6.Value + ss7.Value + ss8.Value + ss9.Value + sg10.Value + ss11.Value + ss12.Value + ss13.Value + ss14.Value + ss15.Value + ss16.Value + ss17.Value + ss18.Value + ss19.Value + ss20.Value + ss21.Value + ss22.Value + ss23.Value + ss24.Value + ss25.Value
ngg.Value = ns1.Value + ns2.Value + ns3.Value + ns4.Value + ns5.Value + ns6.Value + ns7.Value + ns8.Value + ns9.Value + ns10.Value + ns11.Value + ns12.Value + ns13.Value + ns14.Value + ns15.Value + ns16.Value + ns17.Value + ns18.Value + ns19.Value + ns20.Value + ns21.Value + ns22.Value + ns23.Value + ns24.Value + ns25.Value
ggg.Value = gs1.Value + gs2.Value + gs3.Value + gs4.Value + gs5.Value + gs6.Value + gs7.Value + gs8.Value + gs9.Value + gs10.Value + gs11.Value + gs12.Value + gs13.Value + gs14.Value + gs15.Value + gs16.Value + gs17.Value + gs18.Value + gs19.Value + gs20.Value + gs21.Value + gs22.Value + gs23.Value + gs24.Value + gs25.Value
End Sub
どのように質問の仕方も分からないので稚拙な質問になりましたが、なにとぞよろしくお願い申し上げます。
|
|
VBA初心者
- 05/11/1(火) 0:04 -
