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

• #11130 m.zmrzlina senior tag akos_1 #11129

  Új Válasz 2011-08-22 13:51:33 #11130

  Ú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 akos_1 #11129 üzenetére

  Én így keresnék legkisebb értéket:

  Sub kikeres()
  Dim legkisebb As Double
  Dim hely_sora As Double, hely_oszlopa As Double
  Dim cella As Range
  legkisebb = ActiveCell.Value
  For Each cella In Selection.Cells
  If cella.Value < legkisebb Then
  legkisebb = cella.Value
  hely_sora = cella.Row
  hely_oszlopa = cella.Column
  End If
  Next
  Cells(hely_sora, hely_oszlopa).Interior.ColorIndex = 3
  End Sub

  Mivel változik a tartomány én a felhasználóra bíznám a kijelölést (ha meg lehet oldani). A makrót a kijelölés elvégzése után kell indítani.

  Ha nem megoldható, hogy a felhasználó jelöljön ki akkor megoldható makróból is de jobban írd körül, hogy mi alapján kell a kijelölést elvégezni!

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