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

• #8405 m.zmrzlina senior tag Fire/SOUL/CD #8404

  Új Válasz 2010-10-11 17:27:40 #8405

  Ú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

  

  m.zmrzlina

  senior tag

  válasz Fire/SOUL/CD #8404 üzenetére

  Ez a sor a Case szerkezet egyik ága ezért nem evidens hogy a columnid_1-nek 0-tól különbözik az értéke. Simán lehet 0 ezért kell ezt az esetet kezelni.

  Sajnos ez a módszer sem működik.
  Range(1, columnid_1).Select

  Integer adattípus jó a columnid_1 változónak?

  Ebben a Case szerkezetben szeretném használni:

  Select Case Params
  Case Is = 1
  If columnid_1 <> 0 Then Range(1, columnid_1).Select Else Range("I1").Select
  Case Is = 2
  If columnid_2 <> 0 Then Range(1, columnid_2).Select Else Range("I1").Select
  Case Is = 3
  If columnid_3 <> 0 Then Range(1, columnid_3).Select Else Range("I1").Select
  Case Is = 4
  If columnid_4 <> 0 Then Range(1, columnid_4).Select Else Range("I1").Select
  Case Is = 5
  If columnid_5 <> 0 Then Range(1, columnid_5).Select Else Range("I1").Select
  Case Else
  Range("I1").Select
  End Select

  Így adok értéket a változóknak:

  Select Case Params
  Case Is = 1
  columnid_1 = ActiveCell.Column
  Case Is = 2
  columnid_2 = ActiveCell.Column
  Case Is = 3
  columnid_3 = ActiveCell.Column
  Case Is = 4
  columnid_4 = ActiveCell.Column
  Case Is = 5
  columnid_5 = ActiveCell.Column
  Case Else
  Range("I1").Select
  End Select

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