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

• #24644 slashing senior tag daniatx #24638

  Új Válasz 2014-12-15 20:58:12 #24644

  Ú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

  

  slashing

  senior tag

  válasz daniatx #24638 üzenetére

  Csatlakozom, fogalmam nincs így mi nem jó de én valahogy így csinálnám

  Sub hazi()
  
  uoszlop = Cells(3, 2).End(xlToRight).Column
  
  For oszlop = 2 To uoszlop Step 1
  If IsNumeric(Cells(4, oszlop)) Then 'már ha tényleg ha az első cella szám akkor az összes is az
  usor = Cells(4, oszlop).End(xlDown).Row
  Min = WorksheetFunction.Min(Range(Cells(4, oszlop), Cells(usor, oszlop)))
  Max = WorksheetFunction.Max(Range(Cells(4, oszlop), Cells(usor, oszlop)))
  Set tartomany = Range(Cells(4, oszlop), Cells(usor, oszlop))
  For Each cell In tartomany
  
  If cell.Value <= Max - (Max - Min) * 2 / 3 Then
  cell.Interior.ColorIndex = 3
  End If
  
  ' és ugyan így a többi szinezés
  
  
  Next
  End If
  Next oszlop
  
  ' ide jöhet az első számos ciklus
  ' ide jöhet a diagrammos rész
  
  End Sub

  jah a piros száma a 3 a kék az 5 a sárga a 6

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