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

• #4846 Delila_1 veterán gyga #4844

  Új Válasz 2009-04-22 20:52:43 #4846

  Ú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 gyga #4844 üzenetére

  Így is írhatod:

  Sub keplet()
  If CheckBoxes("Jelölő").Value = xlOn Then
  Range("N1").Formula = "=L1+M1"
  Else
  Range("N1").Formula = "=L1*M1"
  End If
  End Sub

• #4845 Delila_1 veterán gyga #4844

  Új Válasz 2009-04-22 20:45:22 #4845

  Ú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 gyga #4844 üzenetére

  A CheckBox-ot elneveztem Jelölő-nek.
  
  A makró a Jelölő jelölt állapotában összeadja az L1 és M1 értékét, jelöletlen állapotában pedig összeszorozza azokat. Az eredményt az N1 cellába – Cells(1,14) – írja.

  Sub keplet()
  If CheckBoxes("Jelölő").Value = xlOn Then
  Cells(1, 14).Formula = "=L1+M1"
  Else
  Cells(1, 14).Formula = "=L1*M1"
  End If
  End Sub

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