Tặng hàm điều khiển sheet bằng CodeName ở dạng chuỗi. (1 người xem)

[Hoàng Trọng Nghĩa]

Thay vì bạn thường dùng Sheet.Name hoặc Sheet.CodeName để điều khiển, chẳng hạn:

Bạn có một sheet tên là ABC và tên của sheet đó trong VBE là Sheet1, bạn thường dùng các tên này như sau:

(1) Sheets("ABC").Select => dùng Sheet.Name
hoặc:
(2) Sheet1.Select => dùng Sheet.CodeName

Với (2) bạn không biết cách nào để chuyển nó thành chuỗi để tiện sử dụng. Thông thường tên sheet hay bị thay đổi, nhưng Code Name ẩn bên trong thì không vì nó có hiện ra người ta sửa đâu, cho nên dùng Code Name với dạng chuỗi sẽ như thế nào đây?

Đã có giải pháp:

Function MySheet(ByVal SheetCodeName As String, _
        Optional ByVal WorkbookName As String) As Worksheet
    Dim Wbk As Workbook
    WorkbookName = Trim(WorkbookName)
    SheetCodeName = Trim(SheetCodeName)
    If WorkbookName = "" Then
        Set Wbk = ActiveWorkbook
    Else
        Set Wbk = Workbooks(WorkbookName)
    End If
    SheetCodeName = Wbk.VBProject _
        .VBComponents(SheetCodeName) _
        .Properties("Name").Value
    Set MySheet = Wbk.Worksheets(SheetCodeName)
End Function

Cách thực hiện hàm này:

Nếu điều khiển sheet ở file hiện hành:

Sub Test()
    With MySheet("sheet1")
        MsgBox "Tên sheet hien tai: [ " & .Name & " ]"
        .Name = "NGHIA_DEP_TRAI"
        MsgBox "Tên sheet duoc thay doi: [ " & .Name & " ]"
        .Range("A1").Value = "HOANG TRONG NGHIA"
        .Range("A2").Value = "giaiphapexcel.com"
    End With
End Sub

Và điều khiển sheet ở một file khác:

Sub Test2()
    With MySheet("sheet1", "CodeNameAction.xls")
        MsgBox "Tên sheet hien tai: [ " & .Name & " ]"
        .Name = "NGHIA_DEP_TRAI"
        MsgBox "Tên sheet duoc thay doi: [ " & .Name & " ]"
        .Range("A1").Value = "HOANG TRONG NGHIA"
        .Range("A2").Value = "giaiphapexcel.com"
    End With
End Sub

 

[ndu96081631]

Thay vì bạn thường dùng Sheet.Name hoặc Sheet.CodeName để điều khiển, chẳng hạn:

Bạn có một sheet tên là ABC và tên của sheet đó trong VBE là Sheet1, bạn thường dùng các tên này như sau:

(1) Sheets("ABC").Select => dùng Sheet.Name
hoặc:
(2) Sheet1.Select => dùng Sheet.CodeName

Với (2) bạn không biết cách nào để chuyển nó thành chuỗi để tiện sử dụng. Thông thường tên sheet hay bị thay đổi, nhưng Code Name ẩn bên trong thì không vì nó có hiện ra người ta sửa đâu, cho nên dùng Code Name với dạng chuỗi sẽ như thế nào đây?

Đã có giải pháp:

Function MySheet(ByVal SheetCodeName As String, _
        Optional ByVal WorkbookName As String) As Worksheet
    Dim Wbk As Workbook
    WorkbookName = Trim(WorkbookName)
    SheetCodeName = Trim(SheetCodeName)
    If WorkbookName = "" Then
        Set Wbk = ActiveWorkbook
    Else
        Set Wbk = Workbooks(WorkbookName)
    End If
    SheetCodeName = Wbk.VBProject _
        .VBComponents(SheetCodeName) _
        .Properties("Name").Value
    Set MySheet = Wbk.Worksheets(SheetCodeName)
End Function

Cách thực hiện hàm này:

Nếu điều khiển sheet ở file hiện hành:

Sub Test()
    With MySheet("sheet1")
        MsgBox "Tên sheet hien tai: [ " & .Name & " ]"
        .Name = "NGHIA_DEP_TRAI"
        MsgBox "Tên sheet duoc thay doi: [ " & .Name & " ]"
        .Range("A1").Value = "HOANG TRONG NGHIA"
        .Range("A2").Value = "giaiphapexcel.com"
    End With
End Sub

Và điều khiển sheet ở một file khác:

Sub Test2()
    With MySheet("sheet1", "CodeNameAction.xls")
        MsgBox "Tên sheet hien tai: [ " & .Name & " ]"
        .Name = "NGHIA_DEP_TRAI"
        MsgBox "Tên sheet duoc thay doi: [ " & .Name & " ]"
        .Range("A1").Value = "HOANG TRONG NGHIA"
        .Range("A2").Value = "giaiphapexcel.com"
    End With
End Sub

Nhớ không lầm thì "trò chơi" này có từ rất lâu rồi. Trong máy tính của tôi cũng có 1 hàm gần tương tự viết cách đây hơn 4 năm

 

[Hoàng Trọng Nghĩa]

Nhớ không lầm thì "trò chơi" này có từ rất lâu rồi. Trong máy tính của tôi cũng có 1 hàm gần tương tự viết cách đây hơn 4 năm

Thầy của mình luôn tuyệt vời, tuyệt chiêu nào mà không có! Love, love, love my Master!

 

[Kiều Mạnh]

Thay vì bạn thường dùng Sheet.Name hoặc Sheet.CodeName để điều khiển, chẳng hạn:

Bạn có một sheet tên là ABC và tên của sheet đó trong VBE là Sheet1, bạn thường dùng các tên này như sau:

(1) Sheets("ABC").Select => dùng Sheet.Name
hoặc:
(2) Sheet1.Select => dùng Sheet.CodeName

Với (2) bạn không biết cách nào để chuyển nó thành chuỗi để tiện sử dụng. Thông thường tên sheet hay bị thay đổi, nhưng Code Name ẩn bên trong thì không vì nó có hiện ra người ta sửa đâu, cho nên dùng Code Name với dạng chuỗi sẽ như thế nào đây?

Đã có giải pháp:

Function MySheet(ByVal SheetCodeName As String, _
        Optional ByVal WorkbookName As String) As Worksheet
    Dim Wbk As Workbook
    WorkbookName = Trim(WorkbookName)
    SheetCodeName = Trim(SheetCodeName)
    If WorkbookName = "" Then
        Set Wbk = ActiveWorkbook
    Else
        Set Wbk = Workbooks(WorkbookName)
    End If
    SheetCodeName = Wbk.VBProject _
        .VBComponents(SheetCodeName) _
        .Properties("Name").Value
    Set MySheet = Wbk.Worksheets(SheetCodeName)
End Function

Cách thực hiện hàm này:

Nếu điều khiển sheet ở file hiện hành:

Sub Test()
    With MySheet("sheet1")
        MsgBox "Tên sheet hien tai: [ " & .Name & " ]"
        .Name = "NGHIA_DEP_TRAI"
        MsgBox "Tên sheet duoc thay doi: [ " & .Name & " ]"
        .Range("A1").Value = "HOANG TRONG NGHIA"
        .Range("A2").Value = "giaiphapexcel.com"
    End With
End Sub

Và điều khiển sheet ở một file khác:

Sub Test2()
    With MySheet("sheet1", "CodeNameAction.xls")
        MsgBox "Tên sheet hien tai: [ " & .Name & " ]"
        .Name = "NGHIA_DEP_TRAI"
        MsgBox "Tên sheet duoc thay doi: [ " & .Name & " ]"
        .Range("A1").Value = "HOANG TRONG NGHIA"
        .Range("A2").Value = "giaiphapexcel.com"
    End With
End Sub

Máy Mạnh Office 2016 + Windows10 ...Nó ra màu Vàng nè ....

 

[AutoReply]

muốn chạy được mấy hàm của anh Nghĩa đẹp chai thì phải check vào đây

 

[Kiều Mạnh]

muốn chạy được mấy hàm của anh Nghĩa đẹp chai thì phải check vào đây

Vậy là mở banh cửa cho virus chuôi vào sao....

 

[AutoReply]

Vậy là mở banh cửa cho virus chuôi vào sao....

dân chơi mà sợ virus. Thôi đắp mền ngủ cho đỡ sợ

 

[Nguyễn Duy Tuân]

Can thiệp "sống" vào VBComponent là cân nhắc nhé các bạn. Hàm viết trong một file sẽ xuất hiện nhiều nơi trong code. File này mang sang máy khác không chọn "Trust access to the VBA..." - Đây là thiết lập ngầm định với mọi máy tính của người dùng bình thường. Sẽ rất phiền phức nếu bàn giao cho người khác dùng kèm theo hướng dẫn tỉ mỉ này trừ khi tạo bộ cài đặt, tự thiếp lập giá trị đó trong Registry.

 

[Kiều Mạnh]

dân chơi mà sợ virus. Thôi đắp mền ngủ cho đỡ sợ

Mạnh mà sợ Virus sao ...Mạnh thấy con nào Bắt nhốt nó lại liền à ... Trừ phi con đó không có khả năng bắt ...
Xem Mạnh nhốt Virus nha: Pass = 172100 .... Cẩn thận khi nhập pass giải nén he ....
https://drive.google.com/open?id=0B7zWYlns0sLBSU5sOG5LdG03RGM

 

[Hoàng Trọng Nghĩa]

Vậy là mở banh cửa cho virus chuôi vào sao....

Thật ra dân mình còn cho nó check bằng code được, huống chi là dân hacker! Vậy nên nó muốn phá thì thế quái nào mà phá không được! Cho nên trong Excel Options, mình cho dễ toàn tập, Enable tất, Trust tất! Thế mà nó có phá phách gì đâu nà! Hihihi.

 

[Mutants Men]

Thật ra dân mình còn cho nó check bằng code được, huống chi là dân hacker! Vậy nên nó muốn phá thì thế quái nào mà phá không được! Cho nên trong Excel Options, mình cho dễ toàn tập, Enable tất, Trust tất! Thế mà nó có phá phách gì đâu nà! Hihihi.

check bằng cách này đúng không anh

Private Sub ChangeVBOM()
  Dim regKey As String
  regKey = "HKEY_LOCAL_MACHINE\Software\Microsoft\Office\" & Application.Version & "\Excel\Security\AccessVBOM"
  CreateObject("WScript.Shell").RegWrite regKey, 1, "REG_DWORD"
End Sub