Ne znam kako si uredio konrolu...ali evo npr 2 textbox-a da popunjava dve kolone u jednom redu :
Code:
Private Sub Text1_Change()
With MSChart1
.Column = 1
.Row = 1
.Data = Text1.Text
End With
End Sub
Private Sub Text2_Change()
With MSChart1
.Column = 2
.Row = 1
.Data = Text2.Text
End With
End Sub
pri tom treba da vodiš računa da unosiš samo numeričke vrednosti. to možeš rešiti npr ovako ili neki sličan način
Code:
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case vbKey0 To vbKey9
Case vbKeyBack, vbKeyClear
Case vbKeyLeft, vbKeyRight, vbKeyUp, vbKeyDown, vbKeyTab
Case 44 ' u slucaju da je zarez. u slučaju da se koristi decimalna tačka a ne zarez ascii je 46
If Len(Me.ActiveControl.Text) > 0 And InStr(1, Me.ActiveControl.Text, ",") = 0 Then
KeyAscii = 44
Else
KeyAscii = 0
End If
Case Else
KeyAscii = 0
Beep
End Select
End Sub
i tako za svaku text konrolu. naravno možeš koristiti textbox array da ne moraš imati isti kod više puta
pozdrav