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

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