Имени ячейки на основе сокращенного названия листа

Question

У меня есть листы с сокращенными названиями, такие как «LOL» или ROFL»

мне нужен макрос я должен пройти и впечатать полную фразу в левом заголовке в зависимости на котором указано имя листа.

Я знаю, как это сделать обычно с activesheet.name, но я не знаю, как записать полное имя. Я подозреваю, что это потребует случая и цикла какой-либо.

IE "LOL" -> Название заголовка будет "Laugh out Loud"

«Rofl» -> Название заголовка будет «Rolling on the floor laughing»

Спасибо!

Answer 1

Вот идея, как можно отобразить имена листов с помощью VBA кода с помощью Case Statments

Sub Example() 
    Dim WS As Worksheet 
    Dim OutputString As String 
    OutputString = "" 

    For Each WS In ThisWorkbook.Worksheets 
     Select Case WS.Name 
      Case "ROFL" 
       OutputString = "Rolling on floor laughing" 
      Case "LOL" 
       OutputString = "Laugh out loud" 
     End Select 

     'Do something 
     If OutputString <> "" Then 
      MsgBox "Output for desired name: " & OutputString 
      OutputString = "" 
     End If    
    Next WS 
End Sub 

Answer 2

Используйте словарь. На некоторых языках другое имя для него - это Map; это означало для этого.

Ссылка Microsoft Scripting выполнение библиотеки, и сделать функцию, единственной обязанность заключается в том, чтобы иметь дело с этим:

Private Function GetFullName(ByVal shortName As String) As String 
    Static values As Scripting.Dictionary 
    If values Is Nothing Then 
     Set values = New Scripting.Dictionary 
     values.Add "LOL", "Laugh out Loud" 
     values.Add "ROFL", "Rolling on the floor laughing" 
     '... 
    End If 

    If values.Exists(shortName) Then 
     GetFullName = values(shortName) 
    Else 
     'raise an error: 
     'Err.Raise 5, "GetFullName", "Key '" & shortName & "' was not found." 
     '...or otherwise handle the situation for a missing key. 
    End If 
End Function 

Недостатком является то, что, ну, вы смешиваете данные с кодом здесь. Данные отсутствуют принадлежат в коде. У вас может быть (скрытый?) Рабочий лист, чтобы вместо этого удерживать таблицу с данными сопоставления и заполнять словарь из этой таблицы. Таким образом, когда сопоставления должны измениться, ваш код этого не делает.