Thay đổi khai báo const

Liên hệ QC

salam

Thành viên gắn bó
Tham gia
4/11/06
Bài viết
1,945
Được thích
1,896
Giới tính
Nam
Nghề nghiệp
Accountant
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.
 

File đính kèm

  • Doi chuoi.xls
    24.5 KB · Đọc: 11
Bạn thay câu lệnh
Mã:
Sheet1.Range("A1") = Chuoi
bằng câu lệnh:
Mã:
Sheet1.Range("A1") = Me.TextBox1.Text
Chẳng cần phải khai báo biến Chuoi lam gì
 
Upvote 0
Ý 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.
 
Lần chỉnh sửa cuối:
Upvote 0
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:
Mã:
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
 
Upvote 0
Web KT
Back
Top Bottom