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

• #16524 Delila_1 veterán peterszky #16523

  Új Válasz 2013-01-29 15:37:11 #16524

  Ú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

  

  Delila_1

  veterán

  válasz peterszky #16523 üzenetére

  Sub oszlop()
  Dim o$, oszlop%
  o$ = InputBox("Melyik oszlopban akarod futtatni?", "Oszlop bekérése")
  oszlop% = Asc(UCase(o$)) - 64
  MsgBox oszlop%
  Cells(1, oszlop%)="alma"
  End Sub

  A nagy A betű ASC értéke 65, ezért kell a beadott betű ASC értékéből levonni 64-et. 65-64=1, első oszlop.

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