[vba]Код
Private msNum As String
Private mbDigSep As Boolean
Private Sub CommandButton14_Click()
ActiveCell.Value = CDbl_(",") ' ActiveCell.Value & ","
End Sub
Private Sub CommandButton6_Click()
ActiveCell.Value = CDbl_(6) 'ActiveCell.Value & 6
'Me.Hide
End Sub
Private Sub CommandButton7_Click()
ActiveCell.Value = CDbl_(7) 'ActiveCell.Value & 7
'Me.Hide
End Sub
'...
Function CDbl_(sSgn As String) As Double
If sSgn = "," Then
If mbDigSep Then
sSgn = ""
Else
mbDigSep = True
End If
End If
msNum = msNum & sSgn
CDbl_ = CDbl(msNum)
End Function
[/vba]