-
Fototrend
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
-
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 IntegerRange("A3:A100") = ""Range("N2:V2").FormulaR1C1 = "=COUNTIF(R1C14:R1C22,R[-1]C)"For sor = 3 To 15 '******** a 15-öt írd átRandomFor oszlop = 14 To 22If Cells(2, oszlop) > 1 Thenoszlop = 0: RandomEnd IfNextRange("N1:V1").CopyRange("N1").PasteSpecial xlPasteValuesFor oszlop = 14 To 22Range("A" & sor) = Range("A" & sor) & Cells(1, Cells(1, oszlop))NextNextRange("N1:V2") = ""Cells(1).SelectApplication.CutCopyMode = FalseEnd SubSub Random()Range("N1:V1") = "=RANDBETWEEN(1,9)"End Sub
Új hozzászólás Aktív témák
- Arc Raiders
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- Ubiquiti hálózati eszközök
- PlayStation 5
- Kormányok / autós szimulátorok topikja
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Fotók, videók mobillal
- Óra topik
- Samsung kuponkunyeráló
- Kávé kezdőknek - amatőr koffeinisták anonim klubja
- További aktív témák...
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - 15% AKCIÓ
- Játékkulcsok ! : PC Steam, EA App, Ubisoft, Windows és egyéb játékok
- HIBÁTLAN iPhone 13 128GB Green-1 ÉV GARANCIA - Kártyafüggetlen, MS4314, 100% Akksi
- ÁRGARANCIA!Épített KomPhone Ryzen 5 7600X 32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- BESZÁMÍTÁS! ASUS H510M i5 11400F 16GB DDR4 512GB SSD RX 6700 10GB Zalman T4 Plus Chieftec 650W
- darkFlash Shadow Pro
- Keresünk iPhone 14/14 Plus/14 Pro/14 Pro Max
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Central PC számítógép és laptop szerviz - Pécs
Város: Pécs
Fferi50
