Ú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

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