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

• #11131 Fire/SOUL/CD félisten akos_1 #11129

  Új Válasz 2011-08-22 14:21:39 #11131

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz akos_1 #11129 üzenetére

  Private Sub CommandButton1_Click()
  
  Dim MyRange As Range
  Dim MyFxs As WorksheetFunction
  Set MyFxs = Application.WorksheetFunction
  
  Set MyRange = Application.InputBox(prompt:="Jelöljön ki egy tartományt", Type:=8)
  MsgBox MyFxs.Min(MyRange)
  
  Set MyFxs = Nothing
  
  End Sub

• #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