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

• #48833 Delila_1 veterán dave0825 #48828

  Új Válasz 2022-04-18 08:25:37 #48833

  Ú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 dave0825 #48828 üzenetére

  Szia!

  Szerintem ezt csak makróval lehet megoldani, de akkor sem biztos, hogy értelmes szót tudsz kihozni az A1:I1 tartományban megadott betűkből.
  A3-tól kezdve lefelé íródnak be a "szavak".
  A két makrót másold be egy modulba. A csillagokkal jelölt sorban írd át a 15-öt nagyobbra, ha több, vagy kevesebb szót akarsz kihozni.
  A Veletlen makrót kell indítanod.

  Sub Veletlen()
    Dim oszlop As Integer, sor As Integer
    
    Range("A3:A100") = ""
    Range("N2:V2").FormulaR1C1 = "=COUNTIF(R1C14:R1C22,R[-1]C)"
    
    For sor = 3 To 15 '******** a 15-öt írd át
        Random
        For oszlop = 14 To 22
            If Cells(2, oszlop) > 1 Then
                oszlop = 0: Random
            End If
        Next
        
        Range("N1:V1").Copy
        Range("N1").PasteSpecial xlPasteValues
        
        For oszlop = 14 To 22
            Range("A" & sor) = Range("A" & sor) & Cells(1, Cells(1, oszlop))
        Next
    Next
    Range("N1:V2") = ""
    Cells(1).Select
    Application.CutCopyMode = False
End Sub


Sub Random()
    Range("N1:V1") = "=RANDBETWEEN(1,9)"
End Sub

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