- Android alkalmazások - szoftver kibeszélő topik
- Bemutatkozott a Moto G32 4G
- Poco F5 - pokolian jó ajánlat
- Telekom mobilszolgáltatások
- Yettel topik
- Poco X6 Pro - ötös alá
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- Garmin Forerunner 55 - bemelegítő kör
- Google szolgáltatás (GMS) Huawei telefonokra
- Honor Magic5 Pro - kamerák bűvöletében
Hirdetés
-
Új Beats fej- és fülhallgatók jelentek meg
ma Frissítette a Solo termékcsaládot az Apple házi audiomárkája.
-
Agyi chipes gyártóba fektetett a kriptocég
it A Tether 200 millió dollárt fektet a Blackrock Neurotech agyi chipes vállalatba.
-
Premier előzetesen a Gray Zone Warfare
gp A mai naptól hivatalosan is elrajtol a játék korai kiadása PC-n.
-
Mobilarena
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
-
Fferi50
őstag
Szia!
Pl.Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:B8")) Is Nothing Then
Target.Value = "akarmi"
End If
End Sub
Ha a kiválasztott cella nem esik az A1 : B8 tartományba, beleírja a cellába a szöveget.
[Itt a helpje]
A target paraméter az a tartomány (egy vagy több cella), amely újonnan lett kiválasztva. A tartomány minden paraméterét vizsgálhatod az eseménykezelő makróban, sőt más cellák, tartományok, paraméterek függvényében alakíthatod a makró futását.
FONTOS: Ha cellák értékét változtatod vagy másik tartományt szeretnél Select v. Activate paranccsal elérni a makró közben, akkor az elején ki kell kapcsolnod az eseménykezelést az Application.EnableEvents=False sorral - a kilépés előtt pedig visszakapcsolni True paraméterrel.
Üdv. -
BigBadPlaYeR
senior tag
válasz Fire/SOUL/CD #48799 üzenetére
Ez valóban egyszerűbb és megbízhatóbb! Köszönöm
"Furcsa, hogy az ember milyen keveset ér el, ha nem is próbálkozik."
-
BigBadPlaYeR
senior tag
Mi a célja ennek a macro-nak? Mert ha csak annyi, hogy ne aludjon el a gép, akkor javaslom a Zhorn - Caffeine nevű programot.
"Furcsa, hogy az ember milyen keveset ér el, ha nem is próbálkozik."
-
lappy
őstag
válasz BigBadPlaYeR #48805 üzenetére
Igen hasonló az elképzelés, de olyan kellene ami be is ír vmit és mivel céges így korlátozott a telepítési lehetőség
Ráadásul még van egy program ami figyeli a tevékenységedet (nem minden számít aktív munkának) de ha az excelt használod az jó, ezért kellene ebben megoldaniBámulatos hol tart már a tudomány!
-
nyikszi
őstag
Miért nem lottózom? Annyira biztos voltam benne, hogy erre kell
A Pulover's Macro Creator program kell neked, van portable verziója is. Én egy játékban kattintás helyettesítőnek használom. Ugyan nem lett gyorsabb a kattintás, sőt, de viszont nincs is ínhüvelygyulladásom, mint egy játékostársamnak
Lényeg, hogy lehet benne mindenfélét csinálni, tutorialt is találsz hozzá, kifejezetten Excelhez valót is találsz. Most 2 perc alatt csináltam egy olyat, ami arrébb lépteti az Excelben a kurzort és az előre meghatározott szövegből ír be egy szöveget. Lehet véletlenszerűen is időt választani két parancs közti időtartamra.Honlap: [link]
Letöltés (portable is): [link]
[ Szerkesztve ]
''Ha az agyunk olyan egyszerű lenne, hogy megérthetnénk, olyan egyszerűek lennénk, hogy nem értenénk.''
-
_stick_
őstag
Sziasztok!
Excel 2010-ben dolgozok és a következő logikai feladatban szeretnék segítséget kérni:
első oszlopban nevek vannak
második oszlopban tavalyi tanév
harmadik oszlopban idei tanév
második és harmadik oszlopban az szerepel, hogy befizette e az adott tanuló az osztálypénzt, legyen a szöveg, hogy "befizette" és "nem fizette be"
Hogy lehet a legegyszerűbben kiemelni azokat a diákokat, akik egyik évben sem fizették be?
Köszönöm! -
félisten
-
Magnat
veterán
válasz _stick_ #48810 üzenetére
Szia,
Vagy ha nem akarsz a feltételes formázással trükközni, akkor a D2-ben azt mondod, hogy =HA(ÉS(A2="nem fizette be";B2="Nem fizette be");"!";""), aztán ezt lehúzod az aljáig és aki egyik évben sem fizetett, annál ott lesz a felkiáltójel a D oszlopban (amire természetesen szűrni is lehet).
[ Szerkesztve ]
̿' ̿'\̵͇̿̿\з=(◕_◕)=ε/̵͇̿̿/'̿'̿ ̿
-
zoombiee
csendes tag
Sziasztok,
Az alábbi feladatot kellene megoldanom:
Van 2 munkalap, mindkét munkalapon az "A" oszlopot ("A2" és attól lefelé) kellene beraknom egy legördülő listába. Úgy tudom megoldani, hogy csinálok 3. munkalapot, ahová behivatkozom egymás után a két munkalap "A" oszlopát. Ezzel az a gond, hogy mindkét oszlop bővül, ha az első után kihagyok x sort, akkor egy idő után mindig el kell csúsztatnom a 2. munkalap hivatkozásait. Van erre ötletetek, hogy ne kelljen manuálisan arrébb raknom az adatokat, ha betelik az üresen hagyott sor?Segítséget előre is köszönöm!
Üdv: Dani
-
félisten
válasz zoombiee #48814 üzenetére
Olyan legördülő lista kellene, amiben több oszlop van, szóval pl. ilyen?
Ha az adatoknak mindenképpen külön munkalapon kell lenniük, akkor kell hozzá makró, ha megoldható, hogy egy munkalapra kerüljenek az adatoszlopok/tartományok(mint a képen), akkor makró sem kell feltétlenül."Ezzel az a gond, hogy mindkét oszlop bővül, ha az első után kihagyok x sort, akkor egy idő után mindig el kell csúsztatnom a 2. munkalap hivatkozásait"
Ezt sajnos nem értem... Ha a 2 oszlopban/tartományban nem azonos számú kitöltött cella van, akkor a legördülő listának nincs értelme...Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
Pakliman
tag
válasz zoombiee #48814 üzenetére
Szia!
Egy "lista összevonási" lehetőség:
Munka1 munkalap A oszlopban értékek
Munka2 munkalap A oszlopban értékek
Munka3 munkalap az "összesítő":
A1 -> =DARABTELI(Munka1!A:A;"<>")-1 Munka1-en az értékek száma
B1 -> =DARABTELI(Munka2!A:A;"<>")-1 Munka2-n az értékek száma
C2-től -> =HA(SOR()-1<=$A$1;Munka1!A2;HA((SOR()-1)-$A$1<=$B$1;INDIREKT("Munka2!" & CÍM((SOR()-$A$1);1;;1));""))Az A1-ben és B1-ben lévő képletek beépíthetők a C2-be.
-
wr6vhwxeq
kezdő
Sziasztok.
Vettem egy win10 termékkulcsot, csak az a baj, hogy ez home verzió és nem tartalmazza az excelt és a word-öt. Tud valaki egy módot arra, hogy beszerezzem őket fizetés nélkül? A termékkulcs már önmagában a fél havi fizetésem volt, az office pedig még drágább, szóval nem fogok költeni rá még egyszer. Ismerősöm nem árulta el, hogy nem lesz a home verzión egyik sem, aki csinálta a gépemet... :(
-
félisten
válasz wr6vhwxeq #48820 üzenetére
Windows sosem tartalmazott Office-t alapból, max. ha valami Windows-al előtelepített gépet vettél és adtak "ajándékba" pl. egy fél-egy éves Office 365 előfizut mellé...
Windows Home verziókon is megy az Office, szóval ismerősöd nem tudom miről beszél.További kérdés esetén fordulj ezekhez a topikokhoz:
Windows 10 | Microsoft Office és Office 365[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
Magnat
veterán
válasz wr6vhwxeq #48820 üzenetére
Szia,
A Windows és az Office 2 külön termék, előbbiből van Home és Professional... De nem attól nincs rajta Excel és Word mert Home, hanem mert az egyik Windows, a másik meg Office. Gondolom a fizetés nélküli beszerzést legális keretek között értetted, mert egyébként záros határidőn belül moderálnák a posztodat Egyébként itt a HA!-n is találsz aprópénzért legális Office kulcsot.
Egyébként nem akarok a zsebedben turkálni, de elég drágán adhatta az ismerősöd azta kulcsot, ha bármilyen havi fizetés felét kérte érte.[ Szerkesztve ]
̿' ̿'\̵͇̿̿\з=(◕_◕)=ε/̵͇̿̿/'̿'̿ ̿
-
-
dave0825
őstag
Üdv.
Van olyanra (egyszerű) lehetőség, hogy adott cellák (szöveg) tartalmát random összevonja egy cellába?
A konkrét példa: adott 9 betű, mindegyik 1-1 cellában (A1="Á", B1="H", C1="T", D1="É", E1="K", F1="M", G1="Ó", H1="Z", I1="O"), ebből szeretnék az A oszlopba mondjuk lefelé haladva random "szavakat" alkotni. Milyen képlettel tudnám ezt megoldani? Természetesen 1 betű csak egyszer szerepelhet.Huawei P30 // Suzuki DL650XT '15 <-- Kawasaki Z750 '07 <-- Aprilia RS 125 '99
-
Delila_1
Topikgazda
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
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
félisten
-
Delila_1
Topikgazda
válasz Fire/SOUL/CD #48834 üzenetére
Mihez?
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
félisten
válasz Delila_1 #48835 üzenetére
Mert válaszoltam Neked, aztán kimentem kimosni a szememből a csipát, a hideg víz hatására meg megvilágosodtam, hogy hülyeséget írtam, így megváltoztattam a hozzászólást "Korán van még..." jeligére.
Akkor még1x:
A feladat kivitelezéséhez a kombinatorika, azon belül az ún. ismétlés nélküli variáció lekódolása szükséges. Ezt még meg lehet írni makróban, de mivel közben az is befigyelt, hogy "értelmes magyar szó" is kitétel, ezért már értelmetlen az egész. Ahhoz pluszban kellene -ahogy lappy is írta- egy adatbázis, ami max. 9 betűs magyar szavakat tartalmaz.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
Delila_1
Topikgazda
válasz Fire/SOUL/CD #48836 üzenetére
Az a nagy kérdés, hogy hány magyar 9 betűs szó van, és az honnan tölthető le.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
dave0825
őstag
Köszi mindenkinek, hogy foglalkoztok vele, de a 2. pohár whiskey-kólám 1. kortya után megvilágosodtam, és beugrott egy szó, rákerestem, létezik, szóval az lesz a megfejtés (kis játék volt egy oldalon).
Amúgy közben kiszámoltam, hogy hány variáció lett volna (362.880), és azt mind végigolvasni, hogy melyik értelmes szó (ezt én terveztem megtalálni, csak a variációkat akartam volna kiíratni az excel-lel), nem kis idő lett volna, plusz bele sem férne egy oszlopba. Úgyhogy tárgytalan, de köszönöm a fáradozásotok.Szerk.: bocs, közben látom, Fire/SOUL/CD is leírta a variációk számát.
[ Szerkesztve ]
Huawei P30 // Suzuki DL650XT '15 <-- Kawasaki Z750 '07 <-- Aprilia RS 125 '99
-
félisten
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
dave0825
őstag
válasz Fire/SOUL/CD #48840 üzenetére
Neeem, 9 betűs a megoldás, mindegyik betűt fel kell használni. Ezt az oldalt én is megtaláltam, de nem ismerte azt a szót, ami a megoldás lett. Akit érdekel, üzenetben elküldöm, de ide nem akarom kiírni a játék vége előtt.
Huawei P30 // Suzuki DL650XT '15 <-- Kawasaki Z750 '07 <-- Aprilia RS 125 '99
-
bali114
csendes tag
Sziasztok!
Esetleg van valakinek tapasztalata egyszerűen lapokon ugyan azon helyen lévő (Pl. B2-es cellában van minden lapon), szövegek listázására egy lapon?
Illetve adott lapokra mutató hiperlinkekekre? A Névkezelőben kell megoldani legegyszerűbben?
(Office 2016..)Előre is köszönöm,ha valaki tud segíteni.
Üdv.
-
lappy
őstag
válasz bali114 #48842 üzenetére
Sub ListSheets()
Dim ws As Worksheet
Dim x As Integerx = 1
For Each ws In Worksheets
If ws.Name <> "List" Then
Sheets("List").Cells(x - 1, 1) = ws.Name
Sheets("List").Cells(x - 1, 2) = ws.Range("a1").Value
End If
x = x + 1
Next wsEnd Sub
Bámulatos hol tart már a tudomány!
-
kormo1
csendes újonc
Sziasztok,
Az alábbi PIVOT-os problémám lenne.
Van egy táblázat az alábbi oszlopsorrendben: Dátum (nap) ; Hónap ; Ár ; Termék1 ; Termék2; Termék3
Ezeket Pivot táblázatba rakom és kalkulációs mezőben összeszorzom az árat az egyes termékekkel. Az eredmény jó naponként, de ha hónaponként akarom megjeleníteni rosszul összegzi (az árat összeadja és összeszorozza a termékek összegével, vagyis nem naponként összegzi a szorzást). Ezt meg lehet oldani Pivotban? Az alsó képen látható, hogy amit megkapni szeretnék, de a sárga hátterű celláknak kellene, hogy kijöjjön.
köszi a segítséget előre is.
[ Szerkesztve ]
-
Dilikutya
félisten
Egy sima ÁTLAG függvény hogy hozhat nullát, ha csak simán egérrel kattintgatva a paraméterben hivatkozott cellákat, van értelmes értéke? Mellette másik oszlopban az ugyanolyan függvény meg nem nulla.
Nem vagyok perverz, csak haladok a korral. (Még mindig: Rock&roll feeling baby, rock&roll feeling.....)
-
Salex1
senior tag
Adott egy excel, aminek az egyik oszlopában ilyen cellák vannak:
['0,0','20,0','40,0','60,0','80,0','100,0']
Ezt szeretném szétszedni, hogy minden érték külön sorba kerüljön:
0,0
20,0
40,0
...
Viszont a sor többi értéknek minden új sorban meg kellene jelennie. Tudtok segíteni?
Új hozzászólás Aktív témák
- Autós topik
- A Samsung hazánkban is piacra dob idén egy friss Micro LED tévét
- NVIDIA GeForce RTX 4060 / 4070 S/Ti/TiS (AD104/103)
- E-book olvasók
- Háború Izraelben
- Facebook és Messenger
- Milyen SSD-t vegyek?
- Microsoft Excel topic
- Háztartási gépek
- Kínai, és egyéb olcsó órák topikja
- További aktív témák...