-
GAMEPOD.hu
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
Topikgazda
válasz Juditta_56 #32090 üzenetére
Képlettel eléggé nehézkes, de egy rövid makró villámgyorsan beírja a neveket. A makrót modulba kell tenni, lásd a téma összefoglalót.
Sub Lapnevek()
Dim oszlop As Integer, uoszlop As Integer
uoszlop = Sheets(1).Cells(200, Columns.Count).End(xlToLeft).Column
For oszlop = uoszlop To 3 Step -1
If Cells(200, oszlop) <> "" Then Cells(201, oszlop) = Sheets(Cells(200, oszlop)).Name
Next
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
bsasa1
csendes tag
válasz Juditta_56 #32100 üzenetére
Szia,
ha megfelel úgy, hogy egy tömbbe íratod ki a munkalapneveket, akkor egy megoldás pl:
bármelyik szabad cellára: Képletek / Név megadása: ide beírsz egy nevet, alulra a hivatkozásba a képlet:
=HELYETTE(MUNKAFÜZETET.VESZ(1);"["&MUNKAFÜZETET.VESZ(16)&"]";"")ezután kijelölsz egy vízszintes tartományt, amennyi lapod van (vagy többet), és beírod a nevet, amit megadtál és Ctrl+Shift+Enter egyszerre.
De így csak tömbben sorban tudod megjeleníteni a neveket, innen még be kell őket hivatkozni abba a cellába ahová szeretnéd.
Bár lehet a legújabb exceleken már nem működik a dolog.
[ Szerkesztve ]
-
bsasa1
csendes tag
válasz Juditta_56 #32100 üzenetére
Bocsi, közben leesett, hogy igazából ez is egy makró, úgyhogy nem fogod tudni sima xlsx-be lementeni.
-
lenkei83
tag
válasz Juditta_56 #32120 üzenetére
Feltöltöd a tábládat?
-
Delila_1
Topikgazda
válasz Juditta_56 #32123 üzenetére
Örülök. hogy sikerült beüzemelned.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz Juditta_56 #33110 üzenetére
Szia Juditta!
Azt a fájlt már nem tudtam előbányászni.
Előtte írtam, hogy a képlet eredményeként látszó szöveget nem lehet részenként formázni, de irányítottan, értékként átmásolhatod valahova. Azt már akár karakterenként másképp formázhatod.
Írtam egy makrót, amit a lapodhoz kell rendelned (lásd a Téma összefoglalót). A formázandó cellán állva egy duplaklikk kiemeli félkövérrel a benne szereplő számokat.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim b As Integer
For b = 1 To Len(Target)
If IsNumeric(Mid(Target, b, 1)) Then Target.Characters(b, 1).Font.Bold = True
Next
Cancel = True
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz Juditta_56 #33115 üzenetére
Örülök, hogy sikerült, szívesen.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
fecske13
tag
válasz Juditta_56 #33110 üzenetére
Elmentettem akkor azt a fájlt, most feltettem ide:
Szovegek_formazasa_1_cellan_belul
hátha még másnak is szüksége lehet rá.
A köszönet Delila-t illeti.[ Szerkesztve ]
"Az a lényeg, egészség legyen, meg kerozin a repcsibe."
-
Delila_1
Topikgazda
válasz Juditta_56 #33123 üzenetére
A lenti makró a kijelölt tartományban végzi el a számok félkövérre állítását a szövegen belül. Ez a tartomány az eredeti, képlettel előállított szövegnek az értékként beillesztett területe legyen.
Sub Felkover()
Dim CV As Range, b As Integer
For Each CV In Selection
For b = 1 To Len(CV)
If IsNumeric(Mid(CV, b, 1)) Then CV.Characters(b, 1).Font.Bold = True
Next
Next
End Sub[ 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.
-
Delila_1
Topikgazda
válasz Juditta_56 #33128 üzenetére
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Smogus
őstag
válasz Juditta_56 #33183 üzenetére
Köszönöm!
Ez frankón működikHa az emberi agy elég egyszerű lenne ahhoz, hogy megértsük, akkor egyszerűségünkben erre már nem lehetnénk képesek. -- http://smogus.deviantart.com/ --
-
-
Delila_1
Topikgazda
válasz Juditta_56 #33233 üzenetére
Egy kicsit egyszerűbben az L2 képlete::
=HA(H2="IGEN";K2+B2;HA(H2="NEM";B2-K2;""))
Mikor a H2-ben az IGEN, és a NEM szövegtől eltérő érték van, vagy üres a cella, a képlet eredménye üres string ("") lesz.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
lappy
őstag
válasz Juditta_56 #33320 üzenetére
Nálam csak annyit kellett vele tenni hogy az "o"-t az A oszlban újra beírtam és működött
Bámulatos hol tart már a tudomány!
-
Pulsar
veterán
válasz Juditta_56 #33372 üzenetére
Nem tudom, kiprobálom azt is, köszönöm
Ami még eszembe jutott, hogy a másold szám egy keplet eredménye. Két random szám van osszebrakva vesszővel elválasztva. Az jutott eszembe, hogy a ket kapott számot össze fűzöm és osztom 100-al is ezt az eremenyt kapom, de mar lehet szamként. -
AkosAkos
aktív tag
válasz Juditta_56 #33636 üzenetére
Kicsit elbambáztam, mert ezen az oldalon már jártam....köszi.
-
huan
őstag
válasz Juditta_56 #34155 üzenetére
tenkjú!
-
0P1
aktív tag
válasz Juditta_56 #34191 üzenetére
Talán azért, mert ez csak Excel 2016 óta van, és abban is csak a 2016 májusi update óta
Egyébként más hiánypótló, régóta várt függvények is bekerültek azzal az update-tel, úgy mint :TEXTJOIN (magyarul SZÖVEGÖSSZEFŰZÉS) - ezt már nagyon régóta vártuk, így már végre lehet megadni akár range-et inputként
CONCAT (FŰZ) - hasonló az előzőhöz, csak kicsit limitáltabb tudással
IFS (HAELSŐIGAZ) - IF több feltétellel, a magyarítása kicsit érthetetlen számomra
SWITCH (ÁTVÁLT) - végre nem kell többszörös feltétel vizsgálat esetén (különböző kimenettel) egy halom IF függvényt egymásba ágyazni -
Fferi50
őstag
válasz Juditta_56 #34618 üzenetére
Szia!
Ezt valószínűleg Redmond (se) tudja!
Üdv.
-
válasz Juditta_56 #34632 üzenetére
Igen, ha a hiperhivatkozás függvénnyel hozod létre. De eddig csak CTRL+K-val tudtam előhozni a linket, és a megjelenő szöveget). Több ezer tételt nem írnék át cellánként.
Freeware, és akciós programok egy helyen https://www.facebook.com/freewarenews
-
válasz Juditta_56 #34634 üzenetére
Ja ... Csak a tartalmat néztem,meg hogy hyperlink nem is néztem kinek szól.
0P1
Köszi a tippet! Ez hogy fut le, vagy hogyan teszem be egy cellába?Freeware, és akciós programok egy helyen https://www.facebook.com/freewarenews
-
csferke
senior tag
válasz Juditta_56 #34748 üzenetére
Tudom, bonyolult, de én így használom:
Ez tényleg túl bonyolult.
Akkor inkább másképpen oldom meg a mező kitöltését.Jó lett volna ha egybe tudom fűzni a két mezőt mert ez adta volna a kiírandó pdf file nevét.
-
mdk01
addikt
válasz Juditta_56 #34777 üzenetére
Az a lényege, hogy az Összesített!U6 cellában keresse meg a kötőjelet, ha ez megvan akkor a kötőjeltől keresse meg (és itt jönne egy vagy függvényszerű valami) vagy a 0,5-öt vagy az 1-et. Ha ez megvan akkor ahol megtalálta onnan adja eredményül az első három karaktert(ami vagy a 0,5, vagy az 1).
Ha ez a megtalált szám/szöveg egyenlő a 0,5-tel vagy az 1-gyel, akkor a cella értéke az Összesített!M6, de ha nem egyenlő akkor ne írjon be semmit.
Ez a képlet működik jól, és sajnos így kell működnie hogy a mellette lévő cellában is működjenek a dolgok, egyszerűen csak ha egy adott szám/szöveg helyett választás elé állítom, hogy vagy ez, vagy az van a cellában akkor is működjön akkor úgy már nem működik.Tehát így működik:
=HAHIBA(HA(KÖZÉP(Összesített!$U6;SZÖVEG.TALÁL("1";Összesített!U6;SZÖVEG.TALÁL("-";Összesített!U6));3)="1";Összesített!M6;"");"")De itt csak akkor működik, ha az 1-est találja meg, ha abba a cellábaa kötőjel után 0,5 van akkor már nem ír be semmit, de én azt szeretném, hogy ha 1-es vagy 0,5 van akkor is működjön.
Jó lenne valami felsorakoztató függvény, hogy mely értékekre működjön.
Köszönöm -
Delila_1
Topikgazda
válasz Juditta_56 #34786 üzenetére
Lehet, hogy a kötjel előtt is előfordul a "0,5", vagy az "1" érték.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
mdk01
addikt
válasz Juditta_56 #34792 üzenetére
A szándék a lényeg, ha meg sikerül az csak plusz.
-
RAiN91
őstag
válasz Juditta_56 #34833 üzenetére
Köszi, király vagy!
Nem értem hogy működik, "=" és a kérdőjel, de erre gondoltam.
-
kopogo
tag
válasz Juditta_56 #35128 üzenetére
Nagyon szépen köszönöm nektek
-
lenkei83
tag
válasz Juditta_56 #35330 üzenetére
Hello!
Kérdőjelek helyére:
FileFormat:=51
Üdv.:
P. -
Delila_1
Topikgazda
válasz Juditta_56 #35395 üzenetére
Próbáld így:
Workbooks(ControlNeve).Sheets(osszlap).Cells(EllSor + 24, HibaOszl).PasteSpecial xlPasteValues
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz Juditta_56 #35397 üzenetére
A Range a hiba. Vedd ki, a hozzá tartozó zárójelekkel együtt.
A Range utasítás szöveges értéket vár, pl. "A1". A Cells(sor, oszlop) viszont 2 számot ad, ezt nem veszi be a Range.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
poffsoft
addikt
válasz Juditta_56 #35397 üzenetére
A koordináta változóid fele variant, fele integer. Szándékos?
Van "1" nevű munkalapod?
Hol index-szel (sheet(1)), hol névvel (sheets(1)) hivatkozol rá. Szándékos?
A range-n belül a cells biztos, hogy nem 0. oszlopra hivatkozik? (Osszoszl, Osszoszlmax nem nulla?)[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz Juditta_56 #35403 üzenetére
A helyfoglalásnál minden változóhoz meg kell adnod a típust, másképp Variant lesz, ami több helyet foglal a memóriában.
Dim EllSor As Integer, EllOszl As Integer, JelSor As Integer, HibaOszl As Integer
Szerk.:
Az eredeti specbeillesztésnél néhány olyan paraméter szerepelt, ami alapértelmezés, azokat elhagyhatjuk.[ 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.
-
Delila_1
Topikgazda
válasz Juditta_56 #35405 üzenetére
Eleinte én is így adtam meg, de egy másik fórumon felvilágosítottak.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz Juditta_56 #35405 üzenetére
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Mikor ezeket elhagyod, az xlPasteValues elé sem kell kiírnod a Paste:= -t.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
DJ. Ru$y
félisten
válasz Juditta_56 #35537 üzenetére
Köszönöm! Holnap kipróbáljuk élesben, ha megkapjuk a serialokat.
Szakmai kérdésekre privátban nem válaszolok! Használd a fórumot! | R.I.P PH!TV!
-
sztanozs
veterán
válasz Juditta_56 #35589 üzenetére
Az adott fájlban igen.
JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
Új hozzászólás Aktív témák
- Canva Pro előfizetés - 1 éves
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- Windows 10, 11 Professional, Home, Enterprise licenckulcsok 64, 32 bit - MEGA Akció!
- Windows Server 2016, 2019, 2022 Standard, Datacenter, Essentials termékkulcsok - MEGA akció!
- Vírusirtó, Antivirus, VPN licenckulcsok - kedvezményes ajánlatok (frissítve: 2024. 05. 01.)
- Office Professional Plus 2013, 2016, 2019, 2021 RETAIL licenckulcsok - MEGA Akció!
- Windows 7 Home Premium, Pro, Ultimate és Windows 8, 8.1 Pro licenckulcsok 64, 32 bit - MEGA Akció!
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest