-
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
-
eszgé100
őstag
válasz Pakliman #47879 üzenetére
Do While ActiveWindow.View = xlPrint
'Application.Wait (Now + TimeValue("00:00:01"))
LoopElőször Application.Wait-tel próbáltam, de még az is felesleges a boldogsághoz
Egyelőre csak itthon tudtam kipróbálni, majd hétfőn meglesem melóban is, hogy a valóságban is működik-e?[ Szerkesztve ]
"-Meddig tart a játék? -Amíg mindenkinek ki nem verik a fogát..."
-
BEndre34
tag
válasz Pakliman #48190 üzenetére
Nem értem, de működik (holnap utánanézek, mert így tanul az ember)
Annyi, hogy ahol közvetlenül egymás után(mellett) szerepel 1, azokat is csak simán 1-nek vegye, ahogy nálad a 3 egymás melletti 1-es esetében, ami az én szempontomból nem hiba, hanem a cél.Tehát ahol önmagában 1-van azt is, és ahol közvetlenül egymás mellett bármennyi 1-es szerepel, azt is csak 1-nek vegye. Azaz a Te példádban nem 2 kell, hogy megjelenjen, hanem 5 (van 2 különálló 1-es és 3 közvetlen egymás melletti 1-es).
Mindenesetre ez számomra fény az alagút végén.
-
-
Fferi50
őstag
válasz Pakliman #48203 üzenetére
Szia!
A "kötekedésben" igazad van, a képletes megoldás is hibát okoz, ha a sor végéig ki van jelölve.
Ez lehet(ne) a javított függvényes változat:Public Function szamolo(rrange As Range) As Long
Dim s As String, cl As Range, xx As Long
For xx = 1 To rrange.Cells.Count - 1
Set cl = rrange.Cells(xx)
s = s & IIf(cl.Value = 1 And cl.Offset(0, 1).Value = "", "1", "")
Next
If rrange.Cells(xx).Value = 1 Then s = s & "1"
szamolo = Len(s)
End Function
Itt nem lépünk ki a tartományból a számolás során.
Üdv. -
Fferi50
őstag
-
oke
senior tag
válasz Pakliman #48307 üzenetére
Szia,
Köszi a segítséget, hát igen, hadilábon állok a makróval, néhányban volt részem, a fórum hathatós segítségével
Az AC oszlopban szótöredékekre keresek, cellán belül kell keresni, mert több érték, szó is lehet benne, de szerencsére nincs több jelentésük.
Példa az AC oszlop tartalmára:
2.sor: cica, alma, körte, körteleves
3.sor: cica
4.sor: alma, körteleves, hógolyó
5.sor: autó, autómárka, foci labda, cica, almaTehát:
- ha előszór rászűrök a "*körte*" részletre az AC oszlopban akkor 2. és a 4. sor kerül kiválasztásra, mert azokba szerepel a "*körte*" szó vagy szórészlet és beírom melléjük a G oszlopba mondjuk, hogy gyümölcs, és a H oszlopba, hogy finom.
- összesen két sor maradt így, azután rászűrök a következőre szórészletre az "-alma*"-ra, akkor a 4. sor jelölődik ki és itt is kitöltöm a a G és H oszlopot valamivel és marad a 3. sor. És így tovább.Remélem így érthető a folyamat
Egyszerűbb megoldás lehet az, ha egy külön táblázatba összeszedném a feltételeket és a hozzájuk tartozó G és H oszlop értékeit és arra hivatkozna a makró?[ Szerkesztve ]
-
veterán
válasz Pakliman #48313 üzenetére
Ha jól értem, akkor így megfelelő?
Tehát azon a dátumon át fog váltani pirosra ahol most zöld?
+#48315Azoknál a kijelölt oszlopoknál amelyikre rá tettem tehát most pl =$F$3:$F$11?
[ Szerkesztve ]
The greatest trick the devil ever pulled off was convincing the world he didn't exist.
-
Delila_1
Topikgazda
válasz Pakliman #49226 üzenetére
Feltettem 2 fájl 1 zip-be tömörítve. [link]
A nevedet viselőt kell megnyitnod, és indítani a makrót.Szerk: ezt rosszul címeztem, Bozsozsonak szól. A tiédet még nem néztem meg.
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Pá
addikt
válasz Pakliman #50228 üzenetére
Annyira nem értek a makrókhoz, szóval gyakorlati megoldásom nincs, inkább csak egy felvetés, hogy az megoldható-e, hogy ha a karakterszám > X, akkor a következő space helyén Alt+Enter. És ez persze végig futna az összes soron.
''Annyira vagyunk egészségesek, amennyire a gondolataink humánusak.''
Új hozzászólás Aktív témák
- Ingyenes az Epic Store-ban a Dragon Age: Inquisition – Game of the Year Edition
- Ghost of Tsushima - A PC-s kiadás több mint 170 országban elérhetetlen lesz
- EA Sports WRC '23
- EAFC 24
- Politika
- Hogy is néznek ki a gépeink?
- Kerékpárosok, bringások ide!
- Gyúrósok ide!
- Konzolokról KULTURÁLT módon
- Sorozatok
- További aktív témák...
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Alpha Laptopszerviz Kft.
Város: Pécs