Thay đổi khai báo const (1 người xem)

[salam]

Các bác cho em hỏi cách thay đổi khai báo const
Em có làm một form có một textbox (Textbox1)
Hai nút command button (1 và 2)
Code trong form là:

Const Chuoi = "abcdef"
Private Sub CommandButton1_Click()
End
End Sub

Private Sub CommandButton2_Click()
'em muốn code đổi Chuoi ở đây và = Textbox1 khi nhấn button2.
Sheet1.Range("A1") = Chuoi
End Sub

Nhờ các bác giúp đỡ.
Em xin cảm ơn.

 

[nvson]

Bạn thay câu lệnh

Sheet1.Range("A1") = Chuoi

bằng câu lệnh:

Sheet1.Range("A1") = Me.TextBox1.Text

Chẳng cần phải khai báo biến Chuoi lam gì

 

[salam]

Ý mình là thay đổi khai báo Chuoi = textbox1 khi nhấn Button1.
Dòng lệnh khai báo
Const Chuoi = "abcdef" khi ấy sẽ đổi thành
Const Chuoi = Giá trị của textbox1
Như kiểu ta thay đổi password của một chương trình nào đó nó sẽ lưu password mới vào và khi đổi tiếp nó sẽ coi pass mới là pass cũ, và kiểm tra đúng pass cũ mới cho đổi.

còn kết quả ở ô A1 là để mình xem kết quả thôi.
Các bác có cách nào giúp em với.

 

[nvson]

Bạn đã khai báo biến chuỗi là Constant thì làm sao thay đổi được giá trị.
Muốn vậy bạn khai báo lại như sau:

Public Chuoi As String
Private Sub CommandButton1_Click()
End
End Sub
Private Sub CommandButton2_Click()
'em muon code doi Chuoi o day va = Textbox1
Chuoi = TextBox1.Text
'Sheet1.Range("A1") = Chuoi
End Sub