| |
▼さんたぱぱ さん：こんにちは〜
> Goukeigaku = Val(txtBox4.Text) + Val(txtBox5.Text) + Val(txtBox6.Text) + Val(txtBox7.Text) + Val(txtBox8.Text) + Val(txtBox9.Text) + Val(txtBox11.Text) + Val(txtBox12.Text) + Val(txtBox14.Text) - Val(txtBox16.Text) - Val(txtBox17.Text) - Val(txtBox18.Text) + Val(txtBox19.Text)
>
>
> txtBox20.Text = Format(Goukeigaku, "###,###")
ダミーシート(作業用シート)のセルと各TextBoxとをリンクしておく方法です。
ダミーシートがこのBookの左から3番目のシートだとしますと、
Private Sub UserForm_Initialize()
Dim idx
With Worksheets(3)
.Cells(20, 1).Formula = _
"=A4+A5+A6+A7+A8+A9+A11+A12+A14-A16-A17-A18+A19"
For Each idx In Array( _
4, 5, 6, 7, 8, 9, 11, 12, 14, 16, 17, 18, 19)
Me("TextBox" & idx).ControlSource = _
.Cells(idx, 1).Address(External:=True)
Next
End With
End Sub
Private Sub TextBox4_Change()
Call FormatText(4)
End Sub
：
：
Private Sub TextBox18_Change()
Call FormatText(18)
End Sub
Private Sub TextBox19_Change()
Call FormatText(19)
End Sub
Private Sub FormatText(i As Long)
With Me("TextBox" & i)
.Text = Format$(.Text, "###,###")
End With
TextBox20.Text = Format$(Worksheets(3).Cells(20, 1).Value, "###,###")
End Sub
|
|
kanabun
- 13/1/18(金) 23:52 -
