- Az EU-s bejegyzésekkel tréningezi az AI-t a Meta
- Musk betiltja az iPhone-okat a Teslánál és az X-nél, ha ezt meglépi az Apple
- A hírnévkezelési cég megígérte: eltünteti a rossz értékeléseket
- Az AI függővé teszi a bankokat a big tech-től
- Léptek New Yorkban a közösségi média függőséget okozó algoritmusai ellen
-
IT café
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
-
plaschil
aktív tag
Üdv!
Szeretnék egy adott cellatartományt levédeni (ne tudjanak bele írni). Hogyan kell?
Creative G500 vezérlő panelt keresek// Hol vagy helyileg? - A kisszobába. // Szilvásbuktát, mert azt szeretem!
-
plaschil
aktív tag
válasz poffsoft #12565 üzenetére
Tartomány kijelölés után a pipa alapból bent van. Ha ráteszem a lapvédelmet, akkor ha módosítani szeretnék, ezt az üzit kapom (bárhol a lapon): [link]
Tehát levédi az egész lapot, de nekem csak a tartományt kellene.
(Office 2007)[ Szerkesztve ]
Creative G500 vezérlő panelt keresek// Hol vagy helyileg? - A kisszobába. // Szilvásbuktát, mert azt szeretem!
-
plaschil
aktív tag
válasz Lackó86 #12567 üzenetére
A fejlecet lemásolod (amire a szűrőt teszed) és beilleszted az elé a bizonyos sor elé ahonnan szűrni akarsz. Ehhez persze beszúrsz egy üres sort az elé a bizonyos sor elé. És így nem kell rejteni, törölni. Csupán a fejléc lesz meg 2x a doksiban, amit akár szűrés után törölhetsz is. Függvényes megoldást nem ismerek, ha ilyenre gondolsz.
Creative G500 vezérlő panelt keresek// Hol vagy helyileg? - A kisszobába. // Szilvásbuktát, mert azt szeretem!
-
plaschil
aktív tag
válasz poffsoft #12565 üzenetére
Találtam egy megoldást:
1. Korrektúra fül -> tartomány módosításának engedélyezése->Megadás
Itt kell kijelölni azokat a cellákat, amiket "felmentek" a korlátozás alól, tehát minden cellát kijelölök, amire szeretném, hogy érvényes maradjon a módosítás joga. A felugró ablakban megadok egy nevet, a lényegi rész a tartomány megadása. Ha megadtam -> Ok -> Ok.
2.Korrektúra fül -> Lapvédelem -> Felugró ablakon Ok.
Ezután a ki nem jelölt cellákba írni nem tudunk, csak a lapvédelem feloldásával. Természetesen, jelszóval érdemes ezt levédeni, mert a lapvédelmet bárki feloldhatja, aki használja a fájlt. (Vagy csak a tulajdonos? Nem tudom.)
3. Örülünk.Creative G500 vezérlő panelt keresek// Hol vagy helyileg? - A kisszobába. // Szilvásbuktát, mert azt szeretem!
-
plaschil
aktív tag
Üdvözletem!
Olyan makróra lenne szükségem, hogy egy felugró ablakból ki lehessen tallózni egy fájlt, amit meg kéne nyitni különböző szűrések miatt. Na én már a megnyitásnál elakadtam. A megnyitó rész xls fájlokkal tökéletesen működik, viszont nekem csv fájljaim vannak, ráadásul egy halom. Több száz megabájt. Szóval ha csv fájlt tallózok be neki, akkor kb. 2 oszlopba beírja a kb 80 oszlopot, pontosvesszővel elválasztva. Hogyan tudnám megírni úgy a kódot, hogy rendesen nyissa meg a csv-t fájlt?
Creative G500 vezérlő panelt keresek// Hol vagy helyileg? - A kisszobába. // Szilvásbuktát, mert azt szeretem!
-
plaschil
aktív tag
válasz plaschil #12791 üzenetére
No azt hiszem ezt megoldottam. További problémák merültek fel: fel szeretném vetetni makróval, hogy az egy oszlopban lévő 4 db szűrési feltételnek megfelelő sorok legyenek szűrve. Hogy egyszerűbb? Ha felvetetem, vagy ha megnézem hány soros a fájl és IF-el megcsinálom? Csak azért mert pl. 2 feltételnél még működik (makró rögzítésnél) de 4-nél már nem.
ActiveSheet.Range("$A$1:$FM$5909").AutoFilter Field:=2, Criteria1:= _
"=szoveg_1*", Operator:=xlOr, Criteria2:="=szoveg_2*", Operator:=xlOr, Criteria3:="=szoveg_3*", Operator:=xlOr, Criteria4:="=szoveg_4*", Operator:=xlOr
Ezzel a 4 feltétellel nem szűri le az adatokat. De ha csak 2-őt adok meg akkor igen.
Ötlet?Creative G500 vezérlő panelt keresek// Hol vagy helyileg? - A kisszobába. // Szilvásbuktát, mert azt szeretem!
-
plaschil
aktív tag
válasz plaschil #12792 üzenetére
Azt hiszem teljesen rossz irányba indultam el. :S
Egy megnyitott fájlban hogyan tudok hivatkozni az egyik cellájára? Azt szeretném, hogy megszámolom hány soros a fájl, és ráállok 1 oszlopra és megnézem hogy bizonyos értéknek megfelel-e.Creative G500 vezérlő panelt keresek// Hol vagy helyileg? - A kisszobába. // Szilvásbuktát, mert azt szeretem!
-
plaschil
aktív tag
válasz zsotesz81 #12795 üzenetére
Köszönöm azóta rájöttem. Most azzal szenvedek, hogy végigmegyek az egyik oszlopon (E) és megnézem hogy az értéke 72. Ha annyi akkor nézze meg hogy ugyanabban a sorban a (D) oszlopban ez az érték van-e: 5415 vagy 5415B. De nem működik. Az első IF az megy.
For i = 1 To SorokSzama
If Cells(i, 5) = 72 Then
If Cells(i, 4) = "5415" Or "5415B" Then
Ide kell még 1 feltétel (B) oszlop tehát (i, 2) ez* Or az* Or emez* Or amaz* -zal kezdődik (!)
End If
End If
NextHát kb. ennyi.
[ Szerkesztve ]
Creative G500 vezérlő panelt keresek// Hol vagy helyileg? - A kisszobába. // Szilvásbuktát, mert azt szeretem!
-
plaschil
aktív tag
válasz plaschil #12796 üzenetére
Úgy tűnik mintha nem lehetne megadni több feltételt egy if-ben. Érdekes. Na de ha így nem megy, akkor megírom minden feltételre egyesével az if-et azon nem múlik. Viszont akkor azzal az akadállyal kell megküzdenem, hogy meg kell vizsgálnom, hogy pl. "XXX"-el kezdődik-e egy adott cella tartalma.
Creative G500 vezérlő panelt keresek// Hol vagy helyileg? - A kisszobába. // Szilvásbuktát, mert azt szeretem!
-
plaschil
aktív tag
válasz Delila_1 #12800 üzenetére
Köszönöm szépen, éjjel 1-ig szórakoztam vele mire megtudtam hogy a "left"-et kell használni ha kezdődést akarok vizsgálni.
Viszont ez az if hibás, vagy nekem nem működik, én is így írtam először:
If Cells(i, 4) = "5415" Or "5415B" Then
Nekem ez csak úgy működött hogy:
If Cells(i, 4) = "5415" Or Cells(i, 4) = "5415B" Then
Most már változott az egész ciklus, úgyhogy így néz ki:
For i = 1 To SorokSzama
If Cells(i, 5) = "72" Then
If (Cells(i, 4) = "5415" Or Cells(i, 4) = "5255" Or Cells(i, 4) = "211B" Or Cells(i, 4) = "5345" Or Cells(i, 4) = "5195") Then
If Left(Cells(i, 2), 5) = "0.603" Then
' itt kellene egy olyan rész hogy ami az i-edik sorban (elvileg megfelel a szűrésnek) ebből a sorból kéne néhány oszlopot átteni egy másik fájl végére.
End If
If Left(Cells(i, 2), 5) = "0.615" Then
' itt kellene egy olyan rész hogy ami az i-edik sorban (elvileg megfelel a szűrésnek) ebből a sorból kéne néhány oszlopot átteni egy másik fájl végére.
End If
If Left(Cells(i, 2), 7) = "1.600.a" Then
' itt kellene egy olyan rész hogy ami az i-edik sorban (elvileg megfelel a szűrésnek) ebből a sorből kéne néhány oszlopot átteni egy másik fájl végére.
End If
If Left(Cells(i, 2), 7) = "1.600.z" Then
' itt kellene egy olyan rész hogy ami az i-edik sorban (elvileg megfelel a szűrésnek) ebből a sorból kéne néhány oszlopot átteni egy másik fájl végére.
End If
End If
End If
Next[ Szerkesztve ]
Creative G500 vezérlő panelt keresek// Hol vagy helyileg? - A kisszobába. // Szilvásbuktát, mert azt szeretem!
-
plaschil
aktív tag
válasz plaschil #12801 üzenetére
Javítás:
Nem így:
' itt kellene egy olyan rész hogy ami az i-edik sorban (elvileg megfelel a szűrésnek) ebből a sorból kéne néhány ***oszlopot*** átteni egy másik fájl végére.
Hanem így:
' itt kellene egy olyan rész hogy ami az i-edik sorban (elvileg megfelel a szűrésnek) ebből a sorból kéne néhány ***cellát*** átteni egy másik fájl végére.[ Szerkesztve ]
Creative G500 vezérlő panelt keresek// Hol vagy helyileg? - A kisszobába. // Szilvásbuktát, mert azt szeretem!
-
plaschil
aktív tag
válasz Delila_1 #12803 üzenetére
1 bizonyos fájl végére. A bizonyos fájl 3 oszlopból áll. (A, B, C)
Így:
A oszlopba:
B oszlop (i, 2) celláját, tegye a bizonyos fájl A oszlop végére.
C oszlopba:
D oszlop (i, 4) celláját, tegye a bizonyos fájl C oszlop végére.
B oszlopba:
Ez egy kicsit bonyolult, mert a C oszlopba beírt adatoktól függően kell beírnia valamit. Tehát, ha C-be írt pl. 5255-öt, akkor B legyen "ország_1", ha 5345-öt akkor "ország_2" és még 3db ilyen feltétel.Creative G500 vezérlő panelt keresek// Hol vagy helyileg? - A kisszobába. // Szilvásbuktát, mert azt szeretem!
-
plaschil
aktív tag
Üdv!
Írtam egy do while-t ami az oszlop végéig megy, viszont ha szűrök valamire valamelyik oszlopban akkor is elmegy a do while a végéig. Tehát pl. 1000 soros a fájlom, leszűröm 200 sorra, mégis végigmegy mind az 1000 soron a makró. Tehát mintha le se szűrtem volna. És mondjuk például egy összeadásnál elég szar dolog. Hogyan tudnám megoldani azt, hogy csak a leszűrt adatokon menjen végig a ciklus? Jelenleg úgy csináltam meg, hogy a leszűrt adatokat átmásolom egy temp sheet-re ahol elvégzem vele a műveletet. De sztem ez lassú, úgyhogy szeretném optimalizálni azzal, hogy nem másolgatom át sehova.
[ Szerkesztve ]
Creative G500 vezérlő panelt keresek// Hol vagy helyileg? - A kisszobába. // Szilvásbuktát, mert azt szeretem!
-
plaschil
aktív tag
Üdv!
Találkozott már valaki olyan problémával (ha egyáltalán az, és nem pedig valami speciális beállítás), hogy megnyit egy excel fájlt, és ha belekattint a sheetre, akkor onnantől kezdve olyan, mintha folyamatosan nyomná a bal egérgombot, tehát egyfolytában jelöli ki a cellákat akármit csinálok vele. De az egéren már nem nyomok semmit. Ez egyszer egyik pillanatról a másikra sikerült. Bármit csinálok ezt csinálja, pl. fájl újranyitásánál, gép újraindításánál.
Más: bill-lel hogyan tudok sheet-et váltani?
[ Szerkesztve ]
Creative G500 vezérlő panelt keresek// Hol vagy helyileg? - A kisszobába. // Szilvásbuktát, mert azt szeretem!
-
plaschil
aktív tag
Hello!
Maximum-keresésre valaki írt már makrót? Valami olyasmire lenne szükségem, hogy mondjuk a top5-öt (5 legnagyobbat) szedje ki nekem.
pl van 2 oszlopom, egyikben stringek, másikban számok:
a 1
a 1
a 2
b 2
b 3
b 4És akkor az "a"-k közül a top5, "b"-k közül a top5 stb...
Creative G500 vezérlő panelt keresek// Hol vagy helyileg? - A kisszobába. // Szilvásbuktát, mert azt szeretem!
-
plaschil
aktív tag
Sziasztok!
Segítséget szeretnék kérni egy makró megírásához. Adott egy lista. Ez tartalmaz több karakterkódot (ez most mindegy mi, pl. "ABC", "CAB", "CBA" hasonlók...), és ezekhez tartozik egy másik kód (ez most mindegy mi, pl "1234", "9876", "1243" hasonlók... de nem integer, mert pont is van benne, csak az egyszerűség kedvéért adtam meg így).
Így lesz egy olyan listám ami pl. így néz ki:
ABC 1234 5
ABC 1234 6
ABC 4321 2
ABC 4321 2
CBA 1234 1
CBA 1234 5
stb...
Na most az azonos "ABC"-k azonos kódjai mellett van egy szám (aláhúztam) ezeket szeretném összeadni.
Vagyis ABC 1234 esetén azt adja vissza nekem hogy:
ABC 1234 11
ABC 4321 esetén azt hogy:
ABC 4321 4
És így tovább, mint egy pivot, csak aztán nekem még mahinálnom kell az adatokkal és 100x egyszerűbb lenne ha egy makró adná ezt vissza nekem.Hú, érthető ez így? :S
Creative G500 vezérlő panelt keresek// Hol vagy helyileg? - A kisszobába. // Szilvásbuktát, mert azt szeretem!
-
plaschil
aktív tag
válasz Delila_1 #13391 üzenetére
Ha jól látom miután készen van, csak a duplikációkat kell kiszednem és ugyanazt kapom mint egy pivotból.
Nagyon szépen köszönöm, eddig nem ismertem ezt a függvényt, nem régóta dolgozom excel-ben, de lehet ezt a függvényt tudom alkalmazni egy másik problémámnál.
Mégegyszer köszönöm!
Ja és ha már itt vagyok, a sok segítségért cserébe:Hogy el ne hervadj!
Creative G500 vezérlő panelt keresek// Hol vagy helyileg? - A kisszobába. // Szilvásbuktát, mert azt szeretem!
-
plaschil
aktív tag
válasz Mythunderboy #13402 üzenetére
Mikor megnyitja csinálj egy automentést makróval.
Creative G500 vezérlő panelt keresek// Hol vagy helyileg? - A kisszobába. // Szilvásbuktát, mert azt szeretem!
-
plaschil
aktív tag
Szervusztok!
Kérdésem az volna, hogy egy sima if-fel tudom-e vizsgálni hogy egy adott cellatartományban van-e valamilyen színezés?
Ötletem arra irányul, hogy ha egy sheet-en (pl. A) mondjuk a 4. sorban van valahol piros háttérszín, akkor egy másik sheet-en (pl. B) ugyanígy a 4. sor X. cellájába írja be, hogy hiba.
Creative G500 vezérlő panelt keresek// Hol vagy helyileg? - A kisszobába. // Szilvásbuktát, mert azt szeretem!
-
plaschil
aktív tag
válasz Delila_1 #23758 üzenetére
Nem tudod véletlenül hogyan lehet hivatkozni a vbRed helyett arra, amikor a cellastílus "jó" vagy "rossz"?
Első gondolatom CV.Style de innen nincs tovább.i funkció.Nem akartam makrót írni emiatt, de úgy látszik kell
[ Szerkesztve ]
Creative G500 vezérlő panelt keresek// Hol vagy helyileg? - A kisszobába. // Szilvásbuktát, mert azt szeretem!
-
plaschil
aktív tag
Gondolom a nevek elé nem akarsz sorszámot.
Sub Macro1()
Dim text As String, result As String
text = "Ádám"
result = Left(text, 1)
'MsgBox is for demo only
MsgBox result
If (result = UCase(result)) Then MsgBox ("true")
End SubEz a kis kód megmondja, hogy melyik cellában van név. (feltételezve, hogy nagybetűvel van írva a név)
Így hogy tudod, melyikben mi van, könnyű megírni rá a kódot most már.Creative G500 vezérlő panelt keresek// Hol vagy helyileg? - A kisszobába. // Szilvásbuktát, mert azt szeretem!
Új hozzászólás Aktív témák
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- Steam kulcsok - UTALÁS/REVOLUT
- 10 Darab PC Játék (Bontatlanul!) Egyben 6990Ft.-ért Foxal!!!
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen