- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Luck Dragon: Asszociációs játék. :)
- Geri Bátyó: B550 szűk keresztmetszet, de mi és miért?
- bitpork: Augusztus 2- szombat jelen állás szerint.
- sziku69: Fűzzük össze a szavakat :)
- Magga: PLEX: multimédia az egész lakásban
- Parci: Milyen mosógépet vegyek?
- sziku69: Szólánc.
- Aggregátor gondjai, örömei, és elmélkedései
- Chosen: Canon 5D II - portrézás 2025-ben
-
LOGOUT
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
-
#28100
poffsoft
veterán
TrollBalint
#28099
poffsoft
veterán
válasz
TrollBalint
#28099
üzenetére
és azt hogyan adod meg, hogy a képletekben minden R#C# típusú substringben az R-t S-re, a C-t O-ra cserélje?
a következő gond a "," vs ";" lesz. -
-
-
-
Delila_1
veterán
válasz
poffsoft
#28085
üzenetére
Egyszerűbb megoldás:
Sub mm()
Dim sor As Long, usor As Long
usor = Range("A" & Rows.Count).End(xlUp).Row
For sor = 5 To usor Step 29
Range("B" & sor & ":Z" & sor + 4).Delete Shift:=xlUp
Range("B" & sor + 20 & ":Z" & sor + 24).Insert Shift:=xlDown
Next
End SubMivel nem látszik a képen, melyik az utolsó felhasznált oszlop a táblázatban, Z-ig törlök, ill. szúrok be cellákat.
-
poffsoft
veterán
válasz
KubanitoS
#28084
üzenetére
értem.
amit javítanod kell, uoszl az utolsó adatot tartalmazó oszlop EXCEL azonosítója szerint, ez nálad az E nevű oszlop a képen, ami ugye az excelnek "F", de nem látom a végét...Sub SorTorles()
Dim sor As Long, usor As Long
Dim lapsor As Integer
Dim fejlec As Integer
Dim aktsor As Integer
Dim uoszl As String
usor = Range("B" & Rows.Count).End(xlUp).Row
lapsor = 29
fejlec = 4
uoszl = "F"
aktsor = fejlec + 1
For sor = aktsor To usor
If (sor - 1) Mod lapsor = 0 Then sor = sor + fejlec
Do While Application.WorksheetFunction.CountA(Range(Cells(aktsor, "B"), Cells(aktsor, uoszl))) = 0 And aktsor <= usor
aktsor = aktsor + 1
If (aktsor - 1) Mod lapsor = 0 Then aktsor = aktsor + fejlec
Loop
If aktsor > usor Then Exit For
If Application.WorksheetFunction.CountA(Range(Cells(sor, "B"), Cells(sor, uoszl))) = 0 Then
Range(Cells(aktsor, "B"), Cells(aktsor, uoszl)).Select
Selection.Copy
Application.CutCopyMode = False
Selection.Cut
Range(Cells(sor, "B"), Cells(sor, uoszl)).Select
ActiveSheet.Paste
End If
aktsor = aktsor + 1
If (aktsor - 1) Mod lapsor = 0 Then aktsor = aktsor + fejlec
If aktsor > usor Then Exit For
Next
End Sub -
poffsoft
veterán
válasz
KubanitoS
#28082
üzenetére
namost a kérdésem:
minden munkalapon van a fejléc és max 25 sor (ezesetben Delila makrója kell neked, ahogyan leírta),
vagy egy munkalapon van 25 soronként a fejléc (vagyis 29 soronként, 25 adatsor plusz 4 sor a fejléc), ezesetben az enyémmel próbálkozz-módosítani kell még, mivel, ahogyan látom, az A oszlopban a sorszám van, vagyis teljes sorokkal nem operálhatunk, így egyelőre nem jó a makró, a row() helyett majd range() lesz, de ehhez tudni kellene, meddig vannak az adatok (pl Range("B5:H5"))
a
fejlec=4
és
lapsor=29
amit módosítanod kell majd.amíg Delila ki nem rukkol az elegánsabb kóddal.
(#28081) Geryson : Nincs mit
-
KubanitoS
veterán
válasz
poffsoft
#28078
üzenetére
Sajnos majd csak holnap tudom kipróbálni ezt a megoldást, a fáradozásotokat előre is köszönöm!
Itt egy kép, hogy jobban érthető legyen a dolog.
A táblázat számozása 1-25-ig van per oldal. A képen az első oszlopban a 6. és 7. sorban látszódik egy duplázott dátum, alatta ugyanígy folytatódnak a duplázott dátumok a 25. sorig. A munkafüzet következő oldala ugyanígy néz ki, 1-25 közötti számozással, valamint felette a fenti képen is látható "fejléccel". A dátumok viszont folytatódnak oldalról oldalra.
A probléma abban rejlik, hogy a képen is látható két dátum nem az első sorszámnál kezdődik, hanem a 6-7-nél. Azt kellene megoldani, hogy az összes dátum feljebb kerüljön öt sort. Ez a már említett "fejléc" miatt nem lehetséges. A dokumentum nagyjából ötven oldalból áll.
-
poffsoft
veterán
válasz
Delila_1
#28076
üzenetére
picit faragtam a makrót, ha a feladatot jól értettem:
Sub SorTorles()
Dim sor As Long, usor As Long
Dim lapsor As Integer
Dim fejlec As Integer
Dim aktsor As Integer
usor = Range("A" & Rows.Count).End(xlUp).Row
lapsor = 10
fejlec = 3
aktsor = fejlec + 1
For sor = aktsor To usor
If (sor - 1) Mod lapsor = 0 Then sor = sor + fejlec
Do While Application.WorksheetFunction.CountA(Rows(aktsor)) = 0 And aktsor <= usor
aktsor = aktsor + 1
If (aktsor - 1) Mod lapsor = 0 Then aktsor = aktsor + fejlec
Loop
If Application.WorksheetFunction.CountA(Rows(sor)) = 0 Then
Rows(aktsor).Select
Selection.Copy
Application.CutCopyMode = False
Selection.Cut
Rows(sor).Select
ActiveSheet.Paste
End If
aktsor = aktsor + 1
If (aktsor - 1) Mod lapsor = 0 Then aktsor = aktsor + fejlec
If aktsor >= usor Then Exit For
Next
End Sublapsor: hány soronként jön a fejléc
fejlec: hány soros a fejléc -
Delila_1
veterán
válasz
KubanitoS
#28070
üzenetére
Makró, amire poffsoft utalt:
Sub SorTorles()
Dim sor As Long, usor As Long
usor = Range("A" & Rows.Count).End(xlUp).Row
For sor = usor To 5 Step -1
If Application.WorksheetFunction.CountA(Rows(sor)) = 0 Then _
Rows(sor).Delete
Next
End SubA makró az A oszlopban található utolsó adattól indul felfelé. Ahol üres sort talál, azt kitörli, az első 5 sor kivételével.
Ha van oszlop, ahol több kitöltött sor van, mint az A oszlopban, az
usor = Range("A" & Rows.Count).End(xlUp).Row -ban írd át az A-t az oszlopod betűjelére.
A For kezdetű sorban írhatod át a meghagyandó felső sorok számát 5-ről.
Mivel nem tudom, minden lapodon kell-e ismételni a sorok törlését, 1 lapra írtam meg. Azon a lapon töröl, amelyiken éppen állsz. -
sedyke
tag
Sziasztok!
Automatikus kitoltesi lehetoseget keresek olyan tablazatba, ahol az ures cellakat a felette levo utolso ertekkel toltene fel. Eltero szamu ures cellak vannak.
Valamint van lehetoseg egy Pivot tablaban beallitani, hogy ne legyenek ures sorok ha egy ertekhez tobb is kapcsolodik? Ilyenkor a pivot automatikusan "csoportosit".
Sajnos nem tudom kifejezni szakszavakkal, inkabb mutatok egy egyszeru peldat.
pl.
auto Audi A3
A5
BMW 3
5ehelyett pedig igy nezne ki
auto Audi A3
auto Audi A5
auto BMW 3
auto BMW 5 -
KubanitoS
veterán
Sziasztok!
Lenne még egy kérdésem: sorokat, pontosabban azok tartalmát kellene feljebb tolni X sorral, mivel azok üresen tátonganak, az információnak, felsorolásnak viszont a legelső sortól kell indulnia.
A problémám: maga a munkafüzet egy cégszerű alkotás saját fejléccel (cégnév, elérhetőség stb) minden oldalon, így egyszerűen feltolni nem lehet a sorokat, mert jön a fejléc is vele együtt.
A dokumentum kb 50 oldalas, így nem nagyon szeretném egyesével másolgatni a sorokat... :/
Lenne erre valami megoldás?
-
#28069
Louro
őstag
Sweetraver
#28068
Louro
őstag
válasz
Sweetraver
#28068
üzenetére
-
#28068
Sweetraver
csendes tag
Sweetraver
csendes tag
Sziasztok!
Excel legördülő listában szeretnék segítséget kérni.
Csináltam 2 külön legördülő listát Excel 2010-ben (adatok-érvényesítés-lista) az A és B oszlopba. A háttérlista a Munka1-en úgy néz ki, hogy van sok területek és még több osztály, tehát egy területhez több osztály tartozik:
Terület Osztály
Pénzügy Adózás
Pénzügy Treasury
Pénzügy Controlling
Jog Munkajog
Jog Ingatlan
Jog EgyébAzt szeretném, hogyha kiválasztom azt, hogy Jog, ne ajánlja fel a B oszlopban pl. az adózást, controllingot vagyis csak azokat ami a Joghoz tartozik. Viszont ha azt választom ki, hogy Pénzügy, akkor meg csak az Adózás, Treasury és a Controlling legyen kiválasztható. Nem tudom mennyire kell az info, de mindkét fülön az A és B oszlop tartalmazza az adatokat.
Tudtok ebben segíteni, hogy hogyan oldható meg? Köszönöm -
Delila_1
veterán
Makróval megoldható.
Sub Megis_makro()
Dim usor As Long, oszlop As Integer, uoszlop As Integer
Dim ter As Range, CV As Range
Sheets("Munka1").Activate
usor = ActiveSheet.UsedRange.Rows.Count '*
uoszlop = ActiveSheet.UsedRange.Columns.Count '**
Set ter = ActiveSheet.Range(Cells(2, "A"), Cells(usor, uoszlop)) '***
oszlop = 1
For Each CV In ter
If CV > "" Then
Sheets("Munka2").Cells(CV.Row, oszlop) = CV
oszlop = oszlop + 1
End If
If CV.Column = uoszlop Then oszlop = 1
Next
End SubHárom sor végére csillagokat tettem. Ha a Munka1 lapon (ahol az eredeti adatok vannak) meghatározott területről kell kigyűjtened a Munka2 lapra az adatokat, az 1 és 2 csillagos sort töröld ki, a 3 csillagos helyett pedig ez legyen:
Set ter =Range("A2:F5"), de persze az F5 helyére a saját területed jobb alsó cellájának a címe kerüljön.
A Munka1 és Munka2 lapok nevét is írd át a saját lapjaid nevére.
-
gyu84
tag
Sziasztok!
Segítséget szeretnék kérni:
Egyik munkafüzet tartományát szeretném áthivatkozni egy másik munkafüzetre, úgy, hogy egy adott sorban kihagyja az üreseket. A képen gyorsan szerkesztettem egy mintát.
Másolni és beilleszteni nem szeretném, mert az értékek változhatnak. Ha lehet akkor makró nélkül szeretném megoldani.
Előre is köszönöm! -
Louro
őstag
Adott egy mappastruktúra, ami év/hónap/nap.xls (Pl.: 2015/08/01.xls , 02.xls, 03.xls , 04.xls .......)
Makróval fel tudnám dolgoztatni, na meg én egybe is gyúrnám az Exceleket meg nem nagy adattartalmúak.
De mivel nem szeretnének makrót, akiknek kellene és a napokból szeretnének FKERES-ezni. (Cikkszámra szűrve FKERES-t végezni.) Gondoltam volna, hogy egy új Excel A1-be beírnám, hogy Év, A2-be, hogy Hónap, majd az B1-be beírják, hogy '2015' (aposztróf nélkül
), majd B2-be, hogy '08' .A táblázat fejléce napok lennének 01-31-ig. (D1-től)
Függvényt másolva azt csinálnám D2-ben, hogy a fájl helyének hivatkozásába változót tennék. Ahogy lentebb is írtam. =FKERES("valami";'blablabla\" & $B$1 & "\" & $B$2 & "\[" & D$1 & ".xls]Munka1'!$B$1:$C$50000;2;0)
És ezt oldalra/le elhúzva az Excel másolná a függvényt úgy, hogy ne kelljen megnyitni, hogy elvégezze a keresést.
Lehet így zavaros. Többször mfutottam neki ennek a kérdéskörnek, de ha nem érthető, akkor ok. Maradok a fájlmegnyitogatós, makrós megoldásomnál. Aki meg segítséget kért, marad a manualitás. Bár lehet azóta meg is csinálták.
-
Louro
őstag
válasz
poffsoft
#28056
üzenetére
Az Indirekt függvénnyel az a baj, hogy csak egy cellát képes átemelni a másik dokumentumból.
Nekem az kellene, hogy van egy könyvtárstruktúra. Év/Hónap/Év_Hónap_Nap.xlsx
Azért, hogy rengeteg emberre ne cserélgessem le egyenként, ezért lenne jó úgy megírni egy DARABTELI-t vagy FKERES-t, hogy a fájl elérését dinamikusság tenném. Szívem szerint makróval csinálnám, de akik használni fogják, ők nem akarnak makrózni. (Aztán lehet erősebb leszek
)Bár nem az se ment, amit Fferi javasolt pár hónapja, hogy =[hivatkozottfájlnév]munkalap!cella. Nem húzta át a hivatkozott adatot.
Én az ilyeneket úgy oldom meg, hogy megnyitom a fájlt a makróval, átmásolom az eredményt és bezárom a forrást.
-
BullZeye
veterán
Üdv,
Kéne egy kis segítség.
Van 1db excel táblázatom, az egyik tartalmaz egy product listet, ahol product kódok vannak felsorolva dátummal, hogy mikor melyik érkezett be, viszont nem tudom, hogy az a product micsoda, csak ha rákeresek.
Van kb 165db PDF fájl, amiben fel vannak sorolva a product kódok, és szépen szövegesen a mellette lévő cellába, hogy mi is az a product.Mivel lehetne valahogy megoldani, hogy a FŐ Excel táblázatban automatikusan a product kódot tartalmazó lista mellé beszúrja, hogy az micsoda a PDF alapján?
-
Carasc0
őstag
válasz
Fferi50
#28049
üzenetére
Szia!
Bocsi rosszul írtam a tartományt! De nekem fontos, amint átlépek, majd visszalépek a munkalapra, akkor automatikusan újra generálás történjen. Tudom hogy a függvény nevét meg kell hívni, én ezt értem, de a scriptet nem tudom megírni sajna...Az a véletlen függvény működne is. De hogy csinálok a 3. cellába olyan vizsgálatot, hogy nézze meg, hogy az előző 2 cellába érték egyezik-e a generáltal, és ez alapján cselekszik... Sztem cellába írt függvénnyel megoldani sztem összetett de még bütykölöm.. Script lenne a legjobb.
-
Fferi50
Topikgazda
válasz
Carasc0
#28047
üzenetére
Szia!
1. A makrót én kiegészíteném ezzel az első sorral:
If Target.Cells.Count>1 then exit sub
Ez azt jelenti, ha több cellát jelöltél ki egyszerre, akkor nem vizsgálja, hogy a V3 cellát hagytad-e el.2."Adott egymás alatt 4 cella: A1 : D1 " Ez a négy cella egymás mellett van
A véletlenszám generáláshoz nézd meg a RandBetween munkalapfüggvényt (Worksheetfunction). Itt megadhatod a határokat. Az eredményt kerekítő függvénnyel kerekítheted. Ezután megnézed, van-e már ilyen számod. Ha igen, akkor új generálás és vizsgálat, ha nem, akkor beírod a cellába.Üdv.
-
Carasc0
őstag
Sziasztok!
Lenne egy 1 icurka-picurka problémám, illetve szükséges lenne egy roppant egyszerű script.
1. A probléma!
Korábban kaptam egy nagyon hasznos és tökéletes kódot:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$V$3" And Target > "" Then Range("D7") = Range("D7") + Target
End SubA gondom csak annyi vele, hogy azon a munkalapon, ahol ez a kód aktívan lefut, formázok tök idegen cellákat, néha bejön a "Type mismatch" Hiba 13-as ablak. Típushiba biztosan, csak nem tudom hogyan kellene javítani.
2. A kérés!
Adott egymás alatt 4 cella: A1 : D1 Ebbe a négy cellába generáljon cellánként 1 db számot az 1 és 10 tartományban, úgy hogy ugyanazt nem generálhatja! Tehát 2 db ugyanazon szám nem lehet. Lehet nevetséges de csak erre lenne szükségem.
-
q13579
senior tag
Sziasztok!
Létezik módszer arra vonatkozóan, hogy 3 pivot tábla egyszerre frissüljön egy adott cellába megadott feltétel szerint?
Egyfajta dashboard-ot szeretnék készíteni, amin 3 emberre vonatkozó kimutatás szerepel KÜLÖN!. Viszont annak érdekében, hogy pl. a dátumszűrést ne kelljen mind a 3 kimutatástáblában beállítani, szükségem lenne egy módszerre, hogy a dátumot csak egy cellába kelljen átírni és az összes kimutatás ennek megfelelően frissülne. És nem egy napról lenne szó, hanem több nap kiválasztásáról.
Előre is köszönöm a segítséget.
-
#28042
ThaBoss
senior tag
szatocs1981
#28040
ThaBoss
senior tag
válasz
szatocs1981
#28040
üzenetére
Képletezve szeretném, de az ötlet jó, köszönöm!
Fferi50:
Köszönöm, jónak tűnik! Örök hála! -
Fferi50
Topikgazda
válasz
ThaBoss
#28038
üzenetére
Szia!
Próbáld meg ezt a képletet:
=DARABTELI($B$2:$B$300;$B2)=DARABHATÖBB($B$2:$B$300;$B2;$F$2:$F$300;"nem vették fel")
valamelyik következő oszlop második cellájában és húzd az oszlop végéig.
Ezután szűrő az oszlopra - igaz mutatja azokat a sorokat, ahol egész nap nem vették fel a hívást.(A képlet megszámolja, hány hívás volt a nap során és összehasonlítja a fel nem vett hívások számával. Ha a kettő egyforma, akkor nem vettek fel hívást egész nap.)
Annyit még hozzá, hogy egy szám többször is szerepelni fog, ezért a B oszlopra is rá kell tenni a szűrőt, ott fogod látni, hány érték maradt meg.
Üdv.
-
ThaBoss
senior tag
Sziasztok!
Segítséget kérnék a táblázatomhoz! Link: [link]
Azt szeretném kiszűrni a táblázatból, hogy melyik hívószámok (B oszlop) azok, amiket egyáltalán nem vettek fel (F oszlop) egész nap! Ehhez szeretnék kérni egy képletet, köszönöm előre is a segítséget!
-
atyca
senior tag
Sziasztok!
Másnál is előfordult már olyan probléma,hogy DisplayPort kábellel csatlakoztatva a monitort a win néha nem ismeri fel.Beáll alapfelbontásra (640x480),és semmiféle állítási lehetőséget nem ajánl fel.DVI-D,ill. HDMI kábellel összekötve nincs probléma,pontosabban az csak asztalszámozási gebasz. -
Pakliman
tag
válasz
attilalr2
#28000
üzenetére
Hali!
Nem tudom, Nálad milyen kódolás van.
A munkahelyemen spec. program TXT kimenetét kellett átalakítanom olvashatóbbá.
A makró (standard modulba rakod):Private Declare Function CharToOemBuff Lib "user32" Alias "CharToOemBuffA" (ByVal lpszSrc As String, ByVal lpszDst As String, ByVal cchDstLength As Long) As Long
Private Declare Function OemToCharBuff Lib "user32" Alias "OemToCharBuffA" (ByVal lpszSrc As String, ByVal lpszDst As String, ByVal cchDstLength As Long) As Long
Public Function Konvert(mit, Optional KellKonvertálni As Boolean = True) As String
Dim vissza As Long
Dim dest As String
If KellKonvertálni Then
dest = Space(Len(mit))
vissza = OemToCharBuff(mit, dest, Len(mit))
Else
dest = mit
End If
Konvert = dest
End FunctionEzt használhatod cellába beírva, vagy akár egy újabb makróban is, amelyik végigfut a szükséges cellákon és átalakítja a tartalmukat.
-
#28034
RedHarlow
aktív tag
szatocs1981
#28033
RedHarlow
aktív tag
válasz
szatocs1981
#28033
üzenetére
Ez a rész pontosan mi?
=SOR(1:99))*1)}
-
RedHarlow
aktív tag
Sziasztok,
Létezik olyan függvény amely egy oszlopban megszámolja hogy hány különböző sor van? Van egy 7000 sorból álló oszlopom és azt szeretném kiirattatni, hogy hány különböző név szerepel benne de úgy, hogy függvény legyen, tehát hogy a többi oszlopra is tudjam alkalmazni utána.
-
csongi
veterán
Eddig minden működik
Köszönet az eddigi segítségért.
A finisbe értem, még maradt 3-4 függvényem,Olyat szeretnék.
Fkeres a1,b5 (ez készen van) között ha a cella értéke nagyobb mint 0 és d1= Bkny jobb vagy bkny bal, vagy kfny jobb vagy kfny bal. Akkor a k1 cella értéke 1.
amennyiben valamelyik feltétel nem teljesül akkor az érték 0-a.Köszönöm.
-
spe88
senior tag
válasz
alfa20
#28028
üzenetére
ezzel a függvénnyel az a gond, hogy minden olyan elemet kivesz, ami többször szerepel az adott listában!
Nekem konkrétan ugyanaz a funkció kellene, mint az ismétlődések eltávolítása!
pl, 1,1,1,1,2,2,3,1,5,5,5,6,5,5,1,2
és akkor csak ezeket jelenítené meg: 1,2,3,5,6
tudom, hogy az Excel nem igazán egy adatbáziskezelő program, de azért ilyen opció csak van benne és mindenképpen függvény kellene, mert ebből megy tovább a többi függvény!
-
Fferi50
Topikgazda
válasz
alfa20
#28019
üzenetére
Szia!
Egy kis probléma: az ecell és ucell változókat Range típusú objektum változónak kell definiálnod.
dim ecell as Range, ucell as Range
set ecell=Sheets("Munka3").Range("A1")
set ucell=Sheets("Munka3").Range("E1664")
sourcedata:=Range(ecell,ucell).addressAz objektum változóknak set változónév= valami formában kell értéket adni.
Az ecell=Range("A1") értékadásban az A1 cella értékét kapja az ecell változó (vagy hibát kapsz, ha nem variant típusú).
Üdv.
-
TomTeke2
csendes tag
Sziasztok!
Beviteli listával akadt gondom. A vezérlő tökéletesen működik, ám amikor a vezérlőn kívülre kattintok a beírt szöveg olvashatatlan lesz. Megváltozik a betűméret, a vastagság, a betűköz.
Mi lehet a gond?
Segítségeteket előre is köszönöm.
Üdv.: TomTeke
ui. A képen a hiba látható
-
alfa20
senior tag
Sziasztok!
van egy első és egy utolsó cella meghatározásom pl:
ecell = Range("A1")
ucell = Range("E1664")Amit egy kimutatás ezen részébe szeretnék behelyettesíteni:
SourceData:="Munka3!R1C1:R1664C5"
tudom hogy egyszerű, de most nagyon nem forog az agyam...
tudtok segíteni? -
#28015
Thrawnad
senior tag
m.zmrzlina
#28003
Thrawnad
senior tag
válasz
m.zmrzlina
#28003
üzenetére
Az be van, de attól még nem külön ablakban vannak, csak a tálcán látszanak.
Thrawnad
-
csongi
veterán
válasz
Fferi50
#28011
üzenetére
Köszönöm!
Van egy kicsi baj.
A képleteknél alkalmaztam a jelet, ami nem rossz, csak most nem tudom sokszorosítani az oszlopokat, mert ugye mind ugyan arra cellára mutat vissza,
Szóval törölnöm kell az összes $ jelet. De van kb 300 cella amit megírtam
Hállelúja,
Van arra lehetőség, ha kijelölöm a függvényt akkor egy parancs vagy akármivel törölné a $ jeleket?
Kézzel végigmenni....ÁÁÁÁÁÁ -
Fferi50
Topikgazda
válasz
csongi
#28010
üzenetére
Szia!
Üres sorok elrejtésére szerintem megfelel az adatok - szűrés menüpont, ott kiválasztod a nem üres lehetőséget valamelyik oszlopban és máris elrejti az üres sorokat.
A fájlt mentheted úgy, hogy csak jelszóval lehessen megnyitni "felülmentésre". A mentés máskéntnél van olyan lehetőség, hogy eszközök - beállítások - jelszó betekintéshez - jelszó módosításhoz.
Ha a módosításhoz adsz jelszót, akkor a jelszó nélkül csak olvasásra lehet megnyitni a munkafüzetet, ezért nem lehet felülírni - csak másként menteni. Ha ott nem adsz meg jelszót, akkor a továbbiakban nem fog kérni.
Üdv.
-
csongi
veterán
-
Fferi50
Topikgazda
válasz
attilalr2
#28000
üzenetére
Szia!
Próbáld ki ezt a makrót:
Sub cserelo(ByRef rng As Range, ByVal mit As String, ByVal mire As String)
Dim cl As Range, xx As Integer
If Len(mit) <> Len(mire) Then MsgBox "Nem egyforma a két szöveg!", vbInformation: Exit Sub
For Each cl In rng.Cells
If Not IsEmpty(cl) Then
For xx = 1 To Len(mit)
cl.Value = Replace(cl.Value, Mid(mit, xx, 1), Mid(mire, xx, 1))
Next
End If
Next
End SubA VBA nézet immediate ablakából indíthatod, pl. így:
cserelo Sheets("Munka1").Range("A1:C72"),"áéó","aeo" a végén enter.Tehát az első paraméter a tartomány címe (vba-szerint beírva), a második a cserélendő betűk, a harmadik pedig amire cserélni kell. A második és a harmadik paramétert "szinkronban" kell tartani, mert az azonos pozícióban levő betűket cseréli (tehát első betűt az elsőre, második betűt a másodikra és így tovább).
Üdv.
-
#28006
Musuz
csendes tag
m.zmrzlina
#28003
Musuz
csendes tag
válasz
m.zmrzlina
#28003
üzenetére
Köszönöm,megnézem
egyébként a munkalapon végezhető műveletekhez és a hozzájuk tartozó stratégiákhoz fűződő leírásról van szó kezdőknek!
-
-
Musuz
csendes tag
Sziasztok
Egy megjegyzés szerű szöveges részt akarok elhelyezni egy munkalapon úgy,hogy 7 oszlop és 90 sort foglaljon el,tudjam sárgára színezni a hátteret,a kb 6-8-as betűméretet feljebb tudjam állítani 12-re,ne csorduljon túl az alján és legyen a szöveg mellett görgetősáv.
Próbálkoztam szövegdobozzal,többféle listapanellel,stb,de nem igazán boldogulok,és a VB-t se ismerem.
Ha a szöveget berakom egy szövegdobozba,7 oszlop szélesen majdnem háromszor annyi sort foglal mint amennyit szeretném,hogy foglaljon.Nos ebben kérnék ötletet vagy segítséget.
)
Új hozzászólás Aktív témák
Hirdetés
- Kormányok / autós szimulátorok topikja
- Autós topik
- Hammer Construction 2 Thermal 5G - építő jellegű kritika
- One mobilszolgáltatások
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Windows 11
- Debrecen és környéke adok-veszek-beszélgetek
- exHWSW - Értünk mindenhez IS
- Filmvilág
- AliExpress tapasztalatok
- További aktív témák...
- Gyermek PC játékok
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- Kaspersky, McAfee, Norton, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Eladó steam/ubisoft/EA/stb. kulcsok Bank/Revolut/Wise (EUR, USD, crypto OK)
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- ÁRGARANCIA! Épített KomPhone Ryzen 7 9700X 32/64GB RAM RX 7800 XT 16GB GAMER PC termékbeszámítással
- AKCIÓ! GIGABYTE AORUS MASTER RX 6800 XT 16GB videokártya garanciával hibátlan működéssel
- Telefon felvásárlás!! Apple Watch Series 6/Apple Watch Series 7/Apple Watch Series 8
- MacBook, Apple M1 / M2 kompatibilis dokkolók, DisplayLink 4K, USB-C, Type-C
- Lenovo LEGION Pro 5 / Pro 7, Lenovo Yoga Pro gépek (RTX 4060 / 4070 / 4080 / 4090)
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: PC Trade Systems Kft.
Város: Szeged