koddaki sabitin değerini textboxtaki değer ile değiştirm

[hamitcan]

Kodun içindeki bir sabitin değerini Textboxa yazdığım bir değer ile değiştirebilir miyim?

 

[Levent Menteşoğlu]

Değiştirebilirsiniz bunun için aşağıdaki şekilde deneyebilirsiniz. Burada sabitinizi "a" ile tanımladığınızı kabul edersek;

Static a
a=textbox1.value

 

[hamitcan]

Private Sub UserForm_Initialize()
TextBox1.Value = 5
End Sub

yukarıdaki kodda 5 default olarak geliyor, ben bu değeri 6 ile değiştirmek istiyorum
ve bir daha kodu çalıştırdığımda TextBox1.Value = 6 olarak gelsin

Umarım doğru anlatabilmişimdir.Teşekkürler

 

[Levent Menteşoğlu]

Textboxtaki ilk değeri bir hücreye aktarın. Ã?rneğin A1 hücresine ve kodu aşağıdaki gibi değiştirerek deneyin.

[vb:1:c602f53524]Private Sub UserForm_Initialize()
TextBox1.Value = 5
[a1]=5
if [a1]=5 then textbox1=6
End Sub
[/vb:1:c602f53524]

 

[hamitcan]

Teşekkürler Sayın Leventm, bu kod işimi görür.

 

[Levent Menteşoğlu]

ve bir daha kodu çalıştırdığımda TextBox1.Value = 6 olarak gelsin

Bu durumda kodu aşağıdaki gibi değiştirin.

[vb:1:ec096e8fe1]Private Sub UserForm_Initialize()
TextBox1.Value = 5
If [a1]=5 Then textbox1=6
[a1]=5
End Sub
[/vb:1:ec096e8fe1]