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

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

1. Hậu Ôn Phúc December 21, 2020 at 8:40 am

   Reply

   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.

2. nang da December 21, 2020 at 8:40 am

   Reply

   rat huu ich. thanks ad

3. Samy_ ngáo December 21, 2020 at 8:40 am

   Reply

   Hay lắm thầy

4. Vinh Tran December 21, 2020 at 8:40 am

   Reply

   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.