Nhờ chuyển giá trị của 1 cell thành Const.

[Hoàng Trọng Nghĩa]

Tôi muốn chuyển giá trị của một ô vào trong Form và giá trị đó là Const của một form.
Nhờ Anh Chị bổ sung cho file đính kèm nhé.

 

[Po_Pikachu]

Bạn dùng thử code như vầy được không?

Private Sub cmdNhap_Click()
Dim Usr As String, Pwd As String
Usr = Sheets("TaiKhoan").Range("B1").Value
Pwd = Sheets("TaiKhoan").Range("B2").Value
...

Thân.

 

[Hoàng Trọng Nghĩa]

Hay Quá!

View attachment 29558

Bạn dùng thử code như vầy được không?

Private Sub cmdNhap_Click()
Dim Usr As String, Pwd As String
Usr = Sheets("TaiKhoan").Range("B1").Value
Pwd = Sheets("TaiKhoan").Range("B2").Value
...

Thân.

Cám ơn Po_Pikachu rất nhiều. Mình nghĩ phải khai báo biến bên ngoài nên không thể đáp ứng được, máy báo lỗi hoài, nhờ dòng code của bạn để hẳn vào trong Private Sub cmdNhap_Click thì quá tốt.
Lần nữa cảm ơn nhé!