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

• #14461 Delila_1 veterán lacid90 #14457

  Új Válasz 2012-07-26 08:15:41 #14461

  Ú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 lacid90 #14457 üzenetére

  Nem értem, mit is akarsz végrehajtani. A két gombhoz rendelt makróval a SumColor makrót hívod meg, de a szinek makrót akarod indítani.

  A gombhoz rendelt makrókban értéket adsz két változónak (szin, le). Ezeket a pillanatnyi értékeket át kell adnod a meghívott, szinek makrónak.

  Így csináld:

  Private Sub CommandButton1_Click() 'v.zöld 35
  szin = 35: le = 1
  szinek szin, le 'a változók megadásával hívod meg a szinek makrót
  End Sub
  
  
  Sub szinek(szin, le)
  Application.ScreenUpdating = False 'a képernyőfrissités kikapcsolása (makró gyorsítás)
  Dim CV As Range, usor As Long
  oszl = ActiveCell.Column
  ActiveCell.Interior.ColorIndex = szin
  ...
  ...
  Application.ScreenUpdating = True
  ActiveCell.Offset(le).Activate
  End Sub

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