Ú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

• #22096 Delila_1 veterán King Unique #22094

  Új Válasz 2014-06-23 08:46:56 #22096

  Ú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

  Az első kérdéshez:

  Private Sub General_Click()
  Dim tomb(26), sor As Integer, oszlop As Integer, i As Integer
  Dim usor As Integer, uoszlop As Integer
  Dim felso As Integer, also As Integer
  
  Range("A1:Z26").ClearContents
  Range("A1:Z26").Font.ColorIndex = 0
  
  Randomize
  also = 1: felso = 5
  usor = Round(Rnd * (felso - also) + also, 0)
  
  felso = Int(26 / usor)
  Randomize
  uoszlop = Round(Rnd * (felso - also) + also, 0)
  
  For sor = 1 To usor
  For oszlop = 1 To uoszlop
  
  Ujra:
  Randomize
  felso = 26
  i = Round(Rnd * (felso - also) + also, 0)
  If tomb(i) > 0 Then GoTo Ujra
  tomb(i) = i
  Cells(sor, oszlop) = Chr(i + 64)
  Next
  Next
  End Sub

  Private Sub Kiemel_Click()
  Dim terulet As String, CV As Object
  
  Range("A1").Select
  terulet = Selection.CurrentRegion.Address
  
  For Each CV In Range(terulet)
  If CV.Value Like ("[AEIOU]") Then CV.Font.ColorIndex = 3
  Next
  End Sub

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