Új hozzászólás Aktív témák

• #1952 martonx veterán vilag #1951

  Új Válasz 2013-01-29 11:40:28 #1952

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  martonx

  veterán

  válasz vilag #1951 üzenetére

  Bevallom egy ideje nem tudlak követni. Mindenesetre egy ilyet találtam neten, hátha segít:

  Function ConvertToLetter(iCol As Integer) As String
  '-----------------------------------------------------------------------------
  ' Procedure : ConvertToLetter
  ' Author    : Niall - Zypher.co.uk
  ' Purpose   : Convert a number to a column letter
  '             Tested to 256 columns, assumed to work until 702 (ZZ)
  '-----------------------------------------------------------------------------
  '
      If iCol <= 26 Then
          ' Columns A-Z
          ConvertToLetter = Chr(iCol + 64)
      Else
          ConvertToLetter = Chr(Int((iCol - 1) / 26) + 64) & _
                            Chr(((iCol - 1) Mod 26) + 65)
      End If
  End Function

Új hozzászólás Aktív témák