Gán vĩnh viễn Caption cho một Lable bằng một nút lệnh

[phamxuyenp171]

Tôi có một form trong đó có một "Lable1" và một "Command Button1"
- Ban đầu Lable1.caption = ""
Tôi muốn viết code sao cho: Sau khi nhấp chọn "Command Button1" thì:
- Lable1.Caption = "abc"
- Và sau khi thoát khỏi Excel, rồi mở lại file đó thì Lable1 vẫn là Lable1.Caption="abc"
* Tôi làm hoài mà không được. Sau khi thoát rồi mở lại thì Lable1.Cation = "" như cũ. Kính nhờ mọi người giúp đỡ. Xin cảm ơn!

 

[keentwo]

-Cũng khó hiểu nhỉ.Lúc đầu đặt tên là "", khi nhấn Cmb thì là "abc", tắt đi thì lưu là "abc".Vậy sao không đặt luôn là "abc" cho nó lành
( chắc nó còn liên quan tổng thể gì đó thì phải?????)

 

[phamxuyenp171]

-Cũng khó hiểu nhỉ.Lúc đầu đặt tên là "", khi nhấn Cmb thì là "abc", tắt đi thì lưu là "abc".Vậy sao không đặt luôn là "abc" cho nó lành
( chắc nó còn liên quan tổng thể gì đó thì phải?????)

Có thể là do tôi còn "gà rù" nên đặt câu hỏi không rõ ràng. Tôi xin nói lại như thế này:
- Ban đầu
+ Textbox1 (nó không chứa nội dung gì cả)
+ Label1.Caption = Textbox1.Text (Nên Label1 cũng không có nội dung gì cả.)
- Sau đó nhập "abc" vào Textbox1 và
- Nhấn Commamd Buttun1 thì:
+ Textbox1 vĩnh viễn có nội dung là "abc" để cho Label1.Caption = Textbox1.Text vĩnh viễn
+ Textbox1.Visible = Fast (nó bị ẩn đi mãi mãi vè sau này)
Xin được mọi người giúp đỡ. Xin cảm ơn!

 

[nghiaphuc]

Mình đồng ý với keentwo, tại sao lại không đặt "abc" từ ban đầu, lúc lập Form luôn? Có phải ý của bạn là muốn cho phép người dùng thay đổi nội dung Caption của Label1 mà không được can thiệp vào mã nguồn của bạn (vì bạn đã khóa Project lại)? Nếu đúng như vậy thì theo mình, chẳng cần đến Textbox1 và CommandButton1 kia làm gì. Mình sẽ đặt nội dung Caption vào một ô nào đó trong Sheet, chẳng hạn Shee1.[A1] và khóa ô này lại bằng mật khẩu (chọn Tools\Protection\Allow users to edit ranges để định nghĩa vùng nhập nội dung Caption, có thể đặt mật khẩu cho vùng này, sau đó sử dụng chức năng Protect Sheet của Excel để khóa Sheet này lại). Ban đầu, bạn để trống nội dung ô A1 và Label1. Sau đó, người dùng có thể đổi nội dung ô A1 (tất nhiên là phải biết mật khẩu) và Show Form.
Đối với Form, mình sẽ dùng một sub như sau với mục đích là mỗi lần mở Form, nội dung ô A1 sẽ được gán cho Label1:

Private Sub UserForm_Initialize()
    Label1.Caption = Sheet1.[A1]
End Sub

Bạn tham khảo trong file nhé.