Excel Macro Bài 5 Các đối tượng trong Excel – Macro For Excel – Object for Excel VBA

Option Explicit

Const sResourcePrefix As String = "RES_"

'Get Culture

Private Function GetATPUICultureTag() As String

Dim shTemp As Worksheet

Dim sCulture As String

Dim sSheetName As String

sCulture = Application.International(xlUICultureTag)

sSheetName = sResourcePrefix + sCulture

On Error Resume Next

Set shTemp = ThisWorkbook.Worksheets(sSheetName)

On Error GoTo 0

If shTemp Is Nothing Then sCulture = GetFallbackTag(sCulture)

GetATPUICultureTag = sCulture

End Function

'Entry point for RibbonX button click

Sub ShowATPDialog(control As IRibbonControl)

Application.Run ("fDialog")

End Sub

'Callback for RibbonX button label

Sub GetATPLabel(control As IRibbonControl, ByRef label)

label = ThisWorkbook.Sheets(sResourcePrefix + GetATPUICultureTag()).Range("RibbonCommand").Value

End Sub

'Callback for screentip

Public Sub GetATPScreenTip(control As IRibbonControl, ByRef label)

label = ThisWorkbook.Sheets(sResourcePrefix + GetATPUICultureTag()).Range("ScreenTip").Value

End Sub

'Callback for Super Tip

Public Sub GetATPSuperTip(control As IRibbonControl, ByRef label)

label = ThisWorkbook.Sheets(sResourcePrefix + GetATPUICultureTag()).Range("SuperTip").Value

End Sub

Public Sub GetGroupName(control As IRibbonControl, ByRef label)

label = ThisWorkbook.Sheets(sResourcePrefix + GetATPUICultureTag()).Range("GroupName").Value

End Sub

'Check for Fallback Languages

Private Function GetFallbackTag(szCulture As String) As String

'Sorted alphabetically by returned culture tag, then input culture tag

Select Case (szCulture)

Case "rm-CH"

GetFallbackTag = "de-DE"

Case "ca-ES", "ca-ES-valencia", "eu-ES", "gl-ES"

GetFallbackTag = "es-ES"

Case "lb-LU"

GetFallbackTag = "fr-FR"

Case "nn-NO"

GetFallbackTag = "nb-NO"

Case "be-BY", "ky-KG", "tg-Cyrl-TJ", "tt-RU", "uz-Latn-UZ"

GetFallbackTag = "ru-RU"

Case Else

GetFallbackTag = "en-US"

End Select

End Function
Cái bảng này không biết từ đâu nà có. Nó có hại gì cho máy không Thầy.

rat huu ich. thanks ad

Hay lắm thầy

Video chi tiết giải thích cặn kẽ mà lượt xem ít ghê. Btw video hữu ích tks bạn.