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

• vilag tag

  #1954

  #1952 martonx

  2013-01-30 08:33:06

  Új Válasz

  Ú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

  

  vilag

  tag

  #1952 martonx

  #1952 martonx

  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

  Üdv!

  Azon, hogy nem tudsz követni nem csodálkozom, mert néha már én magamat sem tudom.
  Ez azonban nem véletlen, mert több különböző projekten is dolgozom, így a feltett kérdéseim nem feltétlenül egy problémakörben vannak. Gyakran pedig nincs is időm foglalkozni a projektekkel az egyéb más sürgős munkák mellett.

  A fenti probléma egyébkét azért merült fel, mert megpróbálom az adatbázis minél dinamikusabbá tenni, hogy ha az adatstruktúrán változtatni kell, akkor ez ne okozzon komolyabb fennakadásokat, mert korábbi munkákban ez igen nagy gondot jelent.

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