Zamiana Litera kolumny na jej numer i Numeru kolumny na jej literę/Change letter column to number and number column to letter

Poniżej kod vba do zamiany Litery Kolumny na Numer


Sub LiteraNaNumer() 'Change Column Letter To Number
    Dim NumerKolumny As Long
    Dim LiteraKolumny As String

    LiteraKolumny = "P" 'Wprowadź Literę Kolumny / Input Column Letter
    NumerKolumny = Range(LiteraKolumny & 1).Column
    MsgBox "Kolumna " & LiteraKolumny & " = Kolumna " & NumerKolumny

End Sub

---------------------------------------------------------------------------------------------------
Poniżej kod vba do zamiany Numeru Kolumny na Literę


Sub NumerNaLitere() 'Change Column Number To Letter
    Dim NumerKolumny As Long
    Dim LiteraKolumny As String
   
    NumerKolumny = 16 'Wprowadź Numer Kolumny / Input Column Number
    LiteraKolumny = Split(Cells(1, NumerKolumny).Address, "$")(1)
    MsgBox "Kolumna " & NumerKolumny & " = Kolumna " & LiteraKolumny

End Sub