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

• #22097 Delila_1 veterán King Unique #22094

  Új Válasz 2014-06-23 09:44:44 #22097

  Ú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 King Unique #22094 üzenetére

  Második kérdés: a legördülő csatolását az AB1 cellába tettem.

  Private Sub General1_Click()
  Dim szam As Integer, CV As Object
  Dim also As Integer, felso As Integer
  Dim hely As String
  
  Range("A1").Select
  Selection.CurrentRegion.Font.ColorIndex = 0
  Selection.CurrentRegion.ClearContents
  
  szam = Range("AB1")
  also = 1: felso = 100
  For Each CV In Range(Cells(1, 1), Cells(szam, szam))
  Randomize
  CV = Round(Rnd * (felso - also) + also, 0)
  Next
  End Sub

  Private Sub Max_Click()
  Dim maxx As Integer, hely As String, CV As Object, cim As String
  
  Range("A1").Select
  hely = Selection.CurrentRegion.Address
  maxx = Application.Max(Range(hely))
  
  cim = Range(hely).Find(maxx).Address
  Range(cim).Font.ColorIndex = 5
  MsgBox "A maximális érték helye: " & cim & ", " & _
  "értéke: " & maxx
  End Sub

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