2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Keresés
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    LOGOUT

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #22097 Delila_1 veterán King Unique #22094
    Új Válasz #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 #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

Hirdetés