Lưu Caption của CommandButton và Lable trên UserForm sau khi đóng Workbook

[MinhKhai]

Em có file như đính kèm
Khi bấm nút lệnh, mình cho nó đổi Caption của nút lệnh và đổi Caption của Lable, nhưng dù có cho Save workbook thì sau khi mở lại file, các Caption được thay đổi không còn giữ giá trị mà mình đã cho thay đổi nữa.
Mong các bác hướng dẫn cách lưu các giá trị trên
Em cảm ơn

 

[Nhất Chi Lan]

Em có file như đính kèm
Khi bấm nút lệnh, mình cho nó đổi Caption của nút lệnh và đổi Caption của Lable, nhưng dù có cho Save workbook thì sau khi mở lại file, các Caption được thay đổi không còn giữ giá trị mà mình đã cho thay đổi nữa.
Mong các bác hướng dẫn cách lưu các giá trị trên
Em cảm ơn

View attachment 208722

Anh xem thử

 

[befaint]

Vài bữa lại có bài hỏi cái này.
Túm lại có những cách sau:
- Ghi vào ô nào đó trên bảng tính;
- Ghi vào Name;
- Ghi vào comment;
- Ghi vào Registry.

 

[MinhKhai]

Anh xem thử

Cảm ơn bạn đã giúp rất nhanh và đúng ý.
Bạn có thể làm thêm giúp mình 1 tình huống nữa là cho ghi giá trị vào 1 ô nào đó của ActiveSheet rồi đưa vào Caption không?
Sheet trong File của mình sẽ được copy thành nhiều sheet khác. Sử dụng cách dùng Name như của bạn khiến cho Caption của các Control trên form sẽ giống hệt nhau tại tất cả các sheet.
Cảm ơn sự nhiệt tình của bạn.

Bài đã được tự động gộp: 4/12/18

Vài bữa lại có bài hỏi cái này.
Túm lại có những cách sau:
- Ghi vào ô nào đó trên bảng tính;
- Ghi vào Name;
- Ghi vào comment;
- Ghi vào Registry.

Cảm ơn gợi ý của @befaint .
Dù có gợi ý của bạn nhưng mình cũng không biết cách làm. Rất mong được bạn tiếp tục hỗ trợ.

 

[Nhất Chi Lan]

Cảm ơn bạn đã giúp rất nhanh và đúng ý.
Bạn có thể làm thêm giúp mình 1 tình huống nữa là cho ghi giá trị vào 1 ô nào đó của ActiveSheet rồi đưa vào Caption không?
Sheet trong File của mình sẽ được copy thành nhiều sheet khác. Sử dụng cách dùng Name như của bạn khiến cho Caption của các Control trên form sẽ giống hệt nhau tại tất cả các sheet.
Cảm ơn sự nhiệt tình của bạn.

Bài đã được tự động gộp: 4/12/18

Cảm ơn gợi ý của @befaint .
Dù có gợi ý của bạn nhưng mình cũng không biết cách làm. Rất mong được bạn tiếp tục hỗ trợ.

Em mới học được từng đó thôi mà

 

[batman1]

Nếu tôi hiểu ý thì toàn bộ code UserForm ở dưới.

Thông tin không được lưu trên các sheet và cũng không trong Name. Thông tin cho mỗi Form được ghi trong thuộc tính AlternativeText của Button khởi động Form hiện hành.

Option Explicit

Private Sub cmdExit_Click()
    UserForm2.Hide
End Sub

Private Sub cmdSendEmail_Click()
Dim text As String, a
    TaoFilePDF
    Label4.Caption = "Created at: " & Format(Now, "dd/mm/yyyy")
    text = ActiveSheet.Shapes("CommandButton5").AlternativeText
    a = Split(text, "*")
    a(1) = Label4.Caption
    ActiveSheet.Shapes("CommandButton5").AlternativeText = Join(a, "*")
    ThisWorkbook.Save
End Sub

Private Sub cmdShowHide_Click()
Dim text As String, a
    If cmdShowHide.Caption = "Hide" Then
        HideBlank
        cmdShowHide.Caption = "Show"
    Else
        ShowBlank
        cmdShowHide.Caption = "Hide"
    End If
    text = ActiveSheet.Shapes("CommandButton5").AlternativeText
    a = Split(text, "*")
    a(0) = cmdShowHide.Caption
    ActiveSheet.Shapes("CommandButton5").AlternativeText = Join(a, "*")
    Me.Hide
    ThisWorkbook.Save
End Sub

Private Sub UserForm_Initialize()
Dim text As String, a
    text = ActiveSheet.Shapes("CommandButton5").AlternativeText
    If Len(text) = 0 Then
        ActiveSheet.Shapes("CommandButton5").AlternativeText = cmdShowHide.Caption & "*" & Label4.Caption
    Else
        a = Split(text, "*")
        cmdShowHide.Caption = a(0)
        Label4.Caption = a(1)
    End If
End Sub