- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- sziku69: Szólánc.
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- gban: Ingyen kellene, de tegnapra
- Klaus Duran: Youtube AI szinkron
- sh4d0w: Netflix? Ugyan, VW előfizetés!
- eBay-es kütyük kis pénzért
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- Magga: PLEX: multimédia az egész lakásban
-
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
-
gyu84
tag
Sziasztok!
Makróval kapcsolatban szeretnék segítséget kérni, egy oszlopban szövegként tárolt számok szerepelnek az alábbi formátumban XXXX XXXX XXXX XXXX. Szeretném eltávolítani a szóközöket, eddig jutottam:
Worksheets("Munka1").Columns("A").Replace " ", "", SearchOrder:=xlByColumns, ReplaceFormat:=False
Addig működik remekül, amíg nem nullával kezdődik valamelyik szám, átalakítja szám formátumra, hiába állítom az egész oszlopot szövegre. Azt szeretném, ha a szóközök eltűnnének, de megmaradna a szöveg formátum a 0-val kezdődő elemek miatt.
Van erre valami megoldás? Makró érdekelne, képlettel a =HELYETTE(A1;" ";"") jól visszaadja.
Köszönöm előre is. -
gyga
senior tag
üdv. Excel képlet ügyben kérnék segítséget mert kissé belegabalyodtam.
A1 A2 A3 A4 A5 cellák üresek (még) a A5 az ilyen bónusz cella C1 C2 C3 C4 ben van értékC2 C3 C4 értéket csak akkor kapok ha az A5 nem üres. Ha A5 Üres akkor max csak C1 értékét kapom
Szóval táblázat a1 a2 a3 a4 a5 cellában van e összeg ehhez kenne külömböző értéket meg kapni.
Ha pl az A1 vagy A2 vagy A3 vagy A4 és A5 -ben van összeg akkor C2-t adja
Ha csak az A1-A4 -ben (itt akár mindben lehet érték de az A5 Üres!!) vannak összegek akkor C1 eredményt adja
Ha A1 A2 A5 -ben van érték akkor C3 az eredmény (itt legalább két érték kell az A1-A4-ben bárhol plussz az A5)
Ha A1 A2 A3 A5-ben van érték akkor C4 az eredmény (itt legalább három érték kell az A1-A4-ben bárhol plussz az A5)
Ha A1- A5 mindben van érték Akkor is C4 az eredmény
Az eredmény pl mehet a B5 mezőbe.
Remélem érthető voltam és előre is köszi annak a foglalkozik vele. -
#31288
Fferi50
Topikgazda
PowerBuldog
#31287
Fferi50
Topikgazda
válasz
PowerBuldog
#31287
üzenetére
Szia!
Attól függően, hogy az SKU oszlop hol szerepel a német munkalapon, használható
-az FKERES függvény, ha az első oszlop az SKU vagy az áthozandó adatok az SKU oszloptól hátrább vannak,
- az INDEX és HOL.VAN függvény páros, ebben az esetben az SKU oszloptól előrébb is lehet az adat.Üdv.
-
#31287
PowerBuldog
veterán
PowerBuldog
veterán
Sziasztok!
Van-e arra mód, hogy:
-adott 2 munkalap az egyik magyar, a másik német
-alkatrészek vannak mindkettőben (többnyire ugyan azok)
-SKU oszlop szerepel mindkettőbenAzt szeretném összehozni, hogy a magyarból maradjon meg minden ami benne van, DE a németből hozzunk át cella értékeket oda ahol az SKU számok egyeznek!
-
atish15
aktív tag
válasz
Delila_1
#31280
üzenetére
Ez nem függvény. Azt hiszem olyan névvel szerepelt egy gomb hogy számolás a mutatott érték szerint. Találtam erről egy szöveget
Pontosság: Egy számítás pontosságának mérőszáma. Az Excel 15 számjegy pontossággal végzi a számításokat. A számítások pontosságát ugyanakkor módosíthatja, hogy az Excel a képletek újraszámításakor a tárolt érték helyett a jelzett értéket vegye figyelembe.
De ezt nem találom a 2010-ben.
-
atish15
aktív tag
válasz
Delila_1
#31278
üzenetére
Talán kicsit bonyolultan fogalmaztam meg. Leegyszerűsítve arról van szó, hogy alapműveletek esetében pl két cellát ha összeszorzunk úgy, hogy mindkét cellában lévő érték 2 tizedesig látható, vagyis a cellaformázásnál szám formátum van 2 tizedesig. De ez nem teljesen pontos mert vannak olyan számok amiben még van jegy csak nem látható és ha két táblázatot szeretnék összehasonlítani, mivel a szorzandó cellák között tizedesekben eltérés van,az eredmény sem lesz pontosan egyenlő. Elvileg van vagy volt a régebbi excelben olyan, hogy ha a cellában 20,15 látszik akkor azzal számol és nem a 20,1556262-el.
-
atish15
aktív tag
Sziasztok. Abban szeretnék segítséget kérni, hogy olyan funkciót keresek excel 2010-ben mint azt hiszem hogy volt a 2003-ban, mégpedig, hogy azzal az értékkel számoljon amit mutat a cellában. Azért fontos ez mert a cellákban általában két tizedes jegyig számolunk, és a többi nem látszik. De a számításnál minden jegyet figyelembe vesz.
-
#31276
Delila_1
veterán
hibavissza
#31274
Delila_1
veterán
válasz
hibavissza
#31274
üzenetére
A ThisWorkbook laphoz rendeld a Workbook_Open makrót. Ebben 1 sor legyen:
Sheets("Munka1").Range("AZ5")=Sheets("Munka1").Range("AZ5")+1
Természetesen más lapra és cellára írhatod át. A cella mindig az aktuális megnyitások számát tartalmazza.
-
#31275
Delila_1
veterán
lizakattila
#31273
Delila_1
veterán
válasz
lizakattila
#31273
üzenetére
Írd be egy oszlopba az európai országokat. A feltételes formázásnál FKERES, vagy DARABTELI függvénnyel hivatkozz erre az oszlopra. =darabteli(országnevek_tartománya;A1)>0
-
#31274
hibavissza
veterán
hibavissza
veterán
Sziasztok!
Van arra mód, hogy az adott Excel fájl minden megnyitását számoljuk? Magyarán látni akarom, hogy hányszor lett megnyitva az adott Excel létrehozása óta.
-
#31273
lizakattila
senior tag
lizakattila
senior tag
Sziasztok!
Hogyan lehet azt megoldani, hogy egy adott cellába ha adatot írok és ez az adat egy adott csoportnak az eleme, akkor azt kiemelje mondjuk zölddel.
Pl.: Az adott csoport legyen az európai országok. Tehát ha az adott cellába európai ország nevét írom akkor emelje ki, ha nem akkor ne történjen semmi.
Feltételes formázssal próbáltam, de csak egyenként tudtam megoldani, sehogy nem találtam ide vonatkozó függvényt, amivel meg lehetne.
-
lenkei83
tag
Sziasztok!
Van egy ilyen formulám: =CÍM(HOL.VAN($E$10;INDIREKT("'"&C14&"'!"&"A:A");0);1;4;1;$C14) aminek a végeredménye egy másik munkalap adott cellája, konkrétan ez: 'MED-220'!A50
Na én erre a cellára szeretnék hivatkozni egy eltolás képletben a hivatkozás mezőben, viszont ha az előzőleg említett képletet berakom, nem fogadja el.
Van valakinek ötlete?Felraktam a táblát mintának
[link]Köszi
P. -
kgamby
csendes tag
Sziasztok,
egy kis segítség kellene. Készül egy táblázatom minden hónapban átlag 100-120 ember adja le az igényét ezen a táblázaton keresztül. Egy hónapban akár több alkalommal is. Egy kérés alkalmával több tételt is kérhet ezek mind külön sorba kerülnek, és kérésenként kapnak számot (tehát ha kér 10 tételt egyszerre akkor annak ugyanaz lesz a száma ez külön oszlop) azt kellene valahogy megszámolnom hó végén, hogy egy adott emberke hány alkalommal intézett felénk kérése az adott hónapban.
Előre is köszönöm a segítséget.
Üdv,
Gamby -
#31266
Delila_1
veterán
Exportlaptop
#31265
Delila_1
veterán
válasz
Exportlaptop
#31265
üzenetére
Nézd meg az FKERES függvényt, ilyen feladatokra találták ki.
-
#31265
Exportlaptop
csendes tag
Exportlaptop
csendes tag
Sziasztok!
Segítséget szeretnék kérni az excellel kapcsolatban.
Excel 2013-as verzióm van.
A következő a helyzet:
Van 2 excel táblázatom.
Az elsőben:
A-tól L oszlopig vannak benne adatok.
E oszlopban van a termékkód
I, J, K oszlopban képek neve van beírva.
L oszlopban van még egy adat, mégpedig a kategória.
Van egy másik excel táblázatom ahonnan be szeretnék rakni az első excel táblázatba pár adatot, mégpedig van egy oszlopnyi kép nevem pluszba.
A második excelben tehát:
A oszlop = termékkódok
B oszlop = hiányzó képek (van ahol üres)A termékkód szerint szeretném tehát beazonosítani az első excel táblázatban levő termékeket és berakni az első excel M oszlopába a második excel B oszlopát.
Mit kell tennem?Köszönöm előreis a segítséget!
-
Söri
tag
válasz
Fferi50
#31261
üzenetére
Ha elhagyom akkor se változik a helyzet.
Viszont rájöttem a megoldásra.
Ha szöveggént másolunk dátumot akkor ezekben a formátumokban tegyük:
yyyy-mm-dd
yyyy/mm/dd
yyyy-mm-dd hh:mi:ssAz én esetemben csak át kellett konvertálnom a lekérdezésben a dátum oszlopot "2016/04/10" erre a formátumra és már rendesen kezeli a makróval való másolást az excel.
Üdv
-
Lajkó22
csendes tag
Sziasztok!
A gépemen Office 2007 van fent. Excelben hiperhivatkozást írtam, ami egy másik munkalapra mutat, de nem engedi végrehajtani, a "számítógépen érvényben lévő korlátozások miatt ez művelet nem hajtható végre" szöveg jelenik meg.
Ez a probléma a Wordben is jelentkezett.
Már végignéztem a beállításokat, de nem jöttem rá, hogy lehetne aktívvá tenni ismét ezt a funkciót. Azóta van korlátozódva a hiperhivatkozások, mióta az Alapértelmezett alkalmazásokat alaphelyzetbe állítottam a Gépházban.
Ebben kérnék segítséget, hátha a leírtak alapján van valakinek ötlete, mit kellene tennem, beállítanom, hogy ismét használni tudjam. Köszi előre is! -
tgumis
tag
sziasztok
hogyan tudok munkalap nevet képlettel megadni egy másik függvényen belül:
Van egy pár munkalapom
102;104;111 stb
ezeken a munkalapon a B oszlopban számok vannak például a 102 es munkalapon 102.1.34.56 vagy 102.1.2.3. sb tehát az első szám mindig egyezik a munkalap nevével
az utolsó munkalapomra bemásolok hasonló formátumú számokat 102.1.2.3.vagy 111.1.3.12
amikről egyenlőre nem tudom hogy van e már valamelyik munkalapomon ebből a számból
most úgy keresem hogy minden egyes új számnál át kell irnom a munkalap nevét a függvényben:
B1=101.1.13 =HOL.VAN(B1;'101'!A:A;0)
B2=102.1.4.257.6 =HOL.VAN(B2;'102'!A:A;0)
ugye a Bal függvényből meg tudom határozni az első 3 számjegyet de nem tudom hogy lehetne ezt bele applikálnom a HOL.VAN függvényben ezt használja
szóval hogy '101' helyett függvény adja a 101 et BAL(B3;3)
remélem érthető -
Söri
tag
Sziasztok!
Lenne egy kis problémám a makróval való másolással.
Egy nagyobb adathalmazt egy szövegszerkesztőből másolok ki és a beillesztést makróval szeretném végezni.
Maga a beillesztés elvégezhető, de a dátumot szöveggént értelmezi.
Ha kézzel illesztem be (ctrl-v) akkor megfelelően kezeli.
Van-e erre a problémára megoldás?
Előre is köszönöm!
-
Delila_1
veterán
válasz
lumpy92
#31256
üzenetére
Csak teljes cella alsó-, ill. felső indexbe tételéhez írhatsz makrót.
Nem tudsz makrót indítani, mikor 1 cellán belül jelölsz ki pár karaktert, csak ha kiléptél a cellából.Sub felső()
Selection.Font.Superscript = True
End Sub
Sub alsó()
Selection.Font.Subscript = True
End SubHa így megfelel, javaslom, hogy a personalba másold be (lásd Téma összefoglaló), majd a gyorselérési eszköztárra tegyél ki hozzájuk 1-1 ikont.
-
lumpy92
aktív tag
Sziasztok!
Azt szeretném kérdez, hogy van rá mód, hogy excelben könnyebben elérjem az "alsó index" ill. "felső index" parancsokat?
Sokat használom, és jelenleg elég időigényes feladat. Olyasmi kéne,mint a WORD-ben is van, sajnos én nem tudtam megoldani a menüszalag testreszabásával.
-
#31255
Daughtry93
újonc
Daughtry93
újonc
Sziasztok!
Egy kis segítségre lenne szükségem. Méghozzá abban hogy van két táblázatom, az egyikben adatok halmaza 5 munkalapon. 3 oszloposával szummázva vannak alájuk egy összevont cellába, és ezeket a szummázott értékeket mind az 5 munkalapon, szummázni kell egy másik táblázatba, azaz hivatkozni kell egyikből a másikba. Ez mind meg is van. Viszont ha húzom jobbra hogy csinálja meg a többinél is ua az érték marad, ha pedig feloldom a rögzítést, nem hármasával viszi arrább az oszlopokat. Tehát itt gondolok arra hogy nekem úgy kellene számolnia h a1:c1, d1:f1 és nem úgy h a1:c1, b1:d1. Remélem sikerült értelmesen megfogalmazni
Előre is köszi a segítséget.
Üdv. -
CFCJT26
csendes tag
Sziasztok!
Egy kis segítségre lenne szükségem. Méghozzá abban hogy van két táblázatom, az egyikben adatok halmaza 5 munkalapon. 3 oszloposával szummázva vannak alájuk egy összevont cellába, és ezeket a szummázott értékeket mind az 5 munkalapon, szummázni kell egy másik táblázatba, azaz hivatkozni kell egyikből a másikba. Ez mind meg is van. Viszont ha húzom jobbra hogy csinálja meg a többinél is ua az érték marad, ha pedig feloldom a rögzítést, nem hármasával viszi arrább az oszlopokat. Tehát itt gondolok arra hogy nekem úgy kellene számolnia h a1:c1, d1:f1 és nem úgy h a1:c1, b1:d1. Remélem sikerült értelmesen megfogalmazni Előre is köszi a segítséget.
Üdv. -
Fferi50
Topikgazda
Szia!
Ez egyáltalán nem egyszerű szerintem.
Kombinált diagramot kell létrehoznod - halmozott oszlop, csinálni a két összegnek egy összegző sort, ezt betenni vonaldiagramként és láthatatlanná tenni a vonalat és a jelölőket, csak az érték legyen a pontok felett.
A "második oszlop" hozzávétele kicsit macerás lehet, nem biztos, hogy menni fog ugyanazon a diagramon más típusban. Erre megkerülő megoldás egy másik - ugyanolyan méretű diagram, amit átlátszóvá teszel és az első fölé húzol fedésben. Játszogatni kell vele, hogy rendesen összejöjjön, de ha megvan, akkor örömet fog okozni.Üdv.
-
newgamer
aktív tag
Sziasztok! Lenne egy feladat, amiben szeretnék segítséget kérni. Excel 2013-ban van egy táblázat, ahol könyvek vannak felsorolva és meg van adva a könyv ára is. Mellette lévő cellában lehetne választani IGEN és NEM között. Ha IGEN-t adnak meg akkor az összes ilyen esetet adja össze a legutolsó sorban (SZUM). Előre is köszönöm a segítséget!
-
Gabesz87
veterán
Sziasztok. Van egy elég fura problémám az Excelemmel. Office 2013-am van. Adott mondjuk egy olyan feladat, hogy osztályozás: megvannak a százalékos ponthatárok, és olyan függvényt kell kreálni, hogy egyszerűen beírom a pontszámot, és kidobja az eredményt. Többszörösen beágyazott IF (HA) függvényt kell használni, de ERROR-t ír ki. Eredetileg Google Docs-ban csináltam a táblát, de ott is ezt dobta. Elküldtem egy ismerősömnek, és nem értem, hogyan, de neki megjelenítette az eredményt. Megnyitottam a táblát a munkahelyi gépemen, és itt is jó volt! Majd munka után hazamentem, és bár a Google-ban továbbra sem volt jó, de az Excelben igen. Nem értettem a dolgot. Aztán egy másik feladatnál simán átlagot kellett volna számolnom. Egyszerűen ÁTLAG föggvény, kijelölöm a tartományt, és kész, de nem sikerül ez sem, valami ZÉRÓOSZTÓ hibát ír ki. De hát miért akarná 0-val osztani? Vagy valami más hiba van? Nem értem ezt az idióta Excelt, mi baja lehet. Tipp?
-
Nowitzki
csendes tag
válasz
tgumis
#31203
üzenetére
Próbáld meg ezt:
Sub fejlec_formazas()
Application.ScreenUpdating = False
For Each ws In ThisWorkbook.Worksheets
With ws
.Activate
.Unprotect Password:="Lufi09"
With ActiveWindow
.FreezePanes = False
Range("A10").Select
.FreezePanes = True
End With
.Range("I1:I3").Interior.Color = RGB(204, 192, 218)
With .Range("B1:D3,B8:D158,I8:J158,M8:N158,P8:P158,S8:V158,Y8:Y158")
.Locked = False
.FormulaHidden = False
End With
If .AutoFilterMode Then .Cells.AutoFilter
.Range("A6:J6").AutoFilter
' kódolás
.Protect Password:="Lufi09", _
UserInterfaceOnly:=True, _
AllowFormattingColumns:=True, _
AllowFiltering:=True
.EnableSelection = xlNoRestrictions
End With
Next ws
Application.ScreenUpdating = True
End Sub -
Bazs-
tag
válasz
Delila_1
#31208
üzenetére
Nagyon köszönöm. Működik, de még egy picit kellene rajt módosítani, ha megoldható.
Most a beolvasott jelenléti ívet, mindig az első üres sortól teszi az előző jelenléti alá. Valahogy meg lehet azt csinálni, hogy fixen például 50 soronként tegye be a következő jelenlétit ?
Tehát az első jelenléti 1-49 sor, második 50-99, harmadik 100-149, stb. (Jelenlétiből nyugodtan beolvasható 50 sor, mert az utolsó néhány hónaptól függően úgyis üres )Köszönöm előre is.
-
nagyi8703
újonc
Sziasztok!
Szeretnék kérni egy kis segítséget! Készítettem Excel-be egy séma file-t ahová xml-t szeretnék beimportálni. Az importálás sikerül is, de csak egy file-t tudok behívni. A probléma ott lehet az elgondolásom szerint, hogy a séma csak egy adatsort tartalmaz, így több file beimportálásakor mindig csak egyet jelenít meg a többire hibát dob. Nem tudjátok esetleg ezt az egysoros mezőt hogyan lehetne kiterjeszteni.
Üdv.
Attila
-
be.cool
csendes tag
Sziasztok!
Olyan képletre lenne szükségem ami ki tudja számolni,hogy 2 időpont között mekkora különbség van óó:pp:mm formátumban.
Van egy játék ahol időzíteni kell. Adott például,hogy éjjel 01:00:00 -ra (legyen A1) kell odaérnem és tudom az utat,hogy például 07:02:54 (legyen ő B1) és azt kéne kiszámolni,hogy mikor kell indítanom (C1),hogy ezzel az útidővel az adott időben érkezzek.
Tehát A1-B1=C1 csak ####-eket kapok vissza. -
Delila_1
veterán
Ha nem jön össze, add meg, hogy az egyes füzetekből melyik állományokat kell összemásolni.
A
Range("A1").CurrentRegion.Offset(1, 0).Copy WSGy.Range("A" & usor)
sor kijelöli és másolja (címsor nélkül) a megnyitott füzetnek azt a részét, ami az A1 cellától kezdve egybefüggőnek tekinthető. Ezt írhatod be a
Range("A1:A25").Copy WSGy.Range("A" & usor)
sor helyére – ha A1-ben kezdődnek a másolandó tartományaid.
-
Delila_1
veterán
válasz
hallgat
#31233
üzenetére
Készíts egy másolatot a B oszlopról a D-be. Ebben az oszlopban Ismétlődések eltávolítása. Az E oszlopot állítsd szöveg formátumúra. Indulhat a makró.
Sub Ismetlodes()
Dim sorB As Long, sorD As Long, sorE As Long
Dim usorD As Long, usorB As Long
usorD = Range("D" & Rows.Count).End(xlUp).Row
usorB = Range("B" & Rows.Count).End(xlUp).Row
sorE = 2
For sorD = 2 To usorD
For sorB = 2 To usorB
If Cells(sorB, "B") = Cells(sorD, "D") Then Cells(sorE, "E") = Cells(sorE, "E") & "," & Cells(sorB, "A")
Next
Cells(sorE, "E") = Right(Cells(sorE, "E"), Len(Cells(sorE, "E")) - 1)
sorE = sorE + 1
Next
End Sub -
hallgat
csendes tag
válasz
hallgat
#31205
üzenetére
Sziasztok!
Sikerült nagyban könnyítenem a helyzeten, de a megoldás makróval nekem még így is távoli.
Mát csak 2 oszlopom van.
A oszlopban csoport ID-k, ismétlődésekkel.
B oszlopban jellemző ID-k ismétlődésekkel.
Nagyjából így:
Amit el kéne érnem, hogy egy másik munkalapon legyen egy listám, hogy melyik jellemző melyik csoportban szerepel.
A kezdő képből ez lenne a végeredmény:
A makrónak azt kellene megoldania, hogy a kiinduló állapotban elindul Munka1!B2 cellánál, értékét beteszi Munka2!A2 cellájába és B2-be beírja Munka1!A1 értékét. Továbblép lefelé, ha Munka1!B3 tartalma egyezik Munka1B2-vel, akkor Munka2!A2 változatlan marad, de Munka2!B2 értékéhez hozzáteszi egy vesszővel elválasztva Munka1!A3 értékét.
Továbblép. Ha Munka1!Bn értéke más lesz, mint Munka1!Bn-1, akkor Munka2!A következő üres cellájába beírja Munka1Bn értékét, mellé pedig Munka1!An értékét és így tovább.Ha ebben tudna valaki...
Köszi!
-
hallgat
csendes tag
válasz
#02644736
#31229
üzenetére
Szia!
Ctrl+C, a beillesztendő helyen pedig jobb egérgomb és a menüben a "Beillesztés (B)" lehetőséget választva viszi a formátumot is.
Vagy irányított beillesztés -> "Minden" legyen beállítvaBár nekem sima Ctrl+C - Ctrl+V -re is úgy viszi át, hogy megmarad a formátum is.
-
Vasinger!
nagyúr
-
-
Delila_1
veterán
válasz
csferke
#31215
üzenetére
A laphoz rendelt makró:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then _
Target.Offset(0, -1) = Format(Now, "yyyy.mm.dd hh:mm")
End SubEz a teljes B oszlopra vonatkozik, tehát ha az oszlop bármelyik cellájába írsz valamit, az A oszlop azonos sorában megjelenik az aktuális idő.
Meghatározott cella esetén a feltétel
If Target.Address = $B$10" Then _ -
csferke
senior tag
Sziasztok!
Azt szeretném, hogy ha egy lap B oszlop adott sorába beírok egy számot akkor automatikusan az adott sor A oszlopába írja be a pillanatnyi dátumot+időt (yyyy.mm.dd. óó:pp). Ez az érték ebben a sorban többet nem kell, hogy változzon.
Új sor B új érték automatikusan az A-ban a B-be íráskori dátum+idő.köszi
-
#31214
Fferi50
Topikgazda
the radish
#31213
Fferi50
Topikgazda
válasz
the radish
#31213
üzenetére
Szia!
Beleklikkre nem találtam megoldást, de egérmutató rávitele esetére az alábbi kis makró - amit a Textbox1 megfelelő eseménykezelőjébe írtam, aktiválja a Textbox1 -et és "bekékíti" a teljes szöveget - azaz gépelés elkezdésekor törlődik a benne levő szöveg.
Private Sub TextBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Me.ActiveControl.Name <> "TextBox1" Then
TextBox1.SetFocus
Application.SendKeys "+({TAB})"
Application.SendKeys "{TAB}"
'Textbox1.Text="" 'is kitörli a szöveget, ha fölé viszed az egérmutatót, akkor nem kell az előző két sor (nyilván véletlen kitörlés ellen kell még egy rákérdezés ebben az esetben msgbox használatával)
End If
End SubÜdv.
-
#31213
the radish
senior tag
the radish
senior tag
Sziasztok!
Userform texbox-nál meg lehet azt oldani, hogy ráklikkelésnél ne a kurzor helye, hanem az egész textbox átírásra kerüljön, azaz bekéküljön?
Nem találok ilyen beállítást.
-
válasz
sztanozs
#31207
üzenetére
Köszönöm a válaszodat!
Amint arra rájöttem, kezelni tulajdonképpen jól kezeli a cellák tartalmát, csak megjeleníteni nem hajlandó a formázásban meghatározottak szerint. A dolog érdekessége, hogy ha megnyitom az Excelt egy üres táblával, akkor egyetlen egyszer jól csinálja.
Példa:
Beírom az A1-be, hogy 4/4. Ez is jelenik meg: 04 ápr
A2-be: 4/4. ekkor már az jelenik meg: 4/4
A3-ba: =A2+1. Kiírja: 42465, ami ugye az 1900 óra eltelt napok száma, azaz tudja ő, hogy mit számoljon.
Az egész oszlop cellaformátumát Dátum/98. március 14. formátumra állítom.
Az eredmény:
16 április 4.
4/4
16 április 5.Tehát ha ő számol, akkor hajlandó a formázás szerint megjeleníteni a dátumot, az általam beírt dátumot viszont csak akkor, ha azt valóban yy-mm-dd formában adom meg, illetve a legelső beadásra elfogadja a mm/dd formátumot.
Érdekes.
MaCS
-
Vasinger!
nagyúr
Sziasztok!
Olyat szeretnék csinálni, hogy mikor az Excel-ben az Autofill-t használom, (cella jobb sarkát megfogom és lehúzom), a cellában lévő formulában szereplő értékek ne eggyel nőljenek, hanem kettővel.
Tehát így néz ki az első cella:
=A1
És így kéne a másodiknak Autofill után
=A3
és így tovább A5,A7 stb.Ezt hogyan lehetne megoldani?
-
Delila_1
veterán
Nézz el ide.
Keveset kell módosítani benne.
A Range("A1:A25").Copy WSGy.Range("A" & usor) 'másolás sorban az A1:A25 helyett írd be a jelenléti tartomány területét. Mivel ez változik, bőven add meg a sorok számát, hiszen ha többet másol 1-1 füzetből, mint a kitöltött terület, úgyis csak üres cellák kerülnek a gyűjtő füzetedbe, amik a következő jelenléti behívásakor felülíródnak. -
hallgat
csendes tag
A változó fájlnevek nem akkora gond, ha tartasz egy külön munkalapot a fájlnevek megadására.
Itt mondjuk az "A" oszlopban a fájlok elérési útját megadod szövegesen, egyenként.
Ha van új, azt hozzáteszed.
Így a makró tudja majd, hogy melyik fájlokkal kell foglalkoznia és azoknak mi a pontos elérési útja.Ez persze nem megoldás a makróra, de a fájlnevekre igen.
-
hallgat
csendes tag
Sziasztok!
Segítségeteket szeretném kérni egy konkrét feladat makróval történő megoldására, Excel 2010 alatt.
A kiinduló állapotban van egy táblázat, ami fejlécet tartalmaz.
Az "A" oszlop tartalmazza termékcsoportok ID számát, van benne ismétlődés, az ismétlődések száma random.
A további oszlopok az adott sorban található termékcsoporthoz rendelt jellemzők ID-ját tartalmazza.
A kiinduló tábláról egy kép:
Azt szeretném, hogy a makró szedje össze, hogy az egyes termékjellemző ID-k melyik csoport ID alatt szerepelnek. Hasonló végeredményre gondoltam, de az sem baj, ha nem egy cellába kerülnek, hanem külön cellákban, jobbra követő oszlopokba:
Ennél jelentősen több persze mind a csoport, mind a jellemzők mennyisége.
A kiinduló adattartomány A1:BE2070 tartományba esik.Ez a feladat az én szerény VBA tudásomat már messze meghaladja.
Előre is nagyon köszönöm a segítségeteket! -
Bazs-
tag
Sziasztok,
Kimutatáshoz excel alapon kapok jelenléti íveket. Minden munkavállalóhoz egy külön filet tartozik. A kimutatáshoz készítettem egy másik táblázatot, aminek az egyik fülére bemásolom a jelenléti ívet és a másik fülön a megfelelő képletek segítségével kapom az eredményt, amit kinyomtatok.
Valahogy megoldható, hogy automatikusan a jelenlétis táblázatokból kimásolja az adatokat (1:1-ben át kell csak másolni) a táblázatom egyik fülére, majd a másik fülön megjelenő eredmény kinyomtatásra kerüljön ?
Ami még bonyolíthatja a dolgokat, hogy a kapott excelek file neve változó ( pl: új munkavállaló van ), így minden hónapban más számú jelenléti ívet kellene feldolgozni.Tudom nem egyszerű a dolog és lehet meg sem lehet oldani, de ha bármilyen ötletetek van, azt szívesen fogadom.
Köszönöm előre is.
-
tgumis
tag
válasz
Nowitzki
#31202
üzenetére
Ha volt beállítva akkor ugye eltünteti és nem hozza létre oda ahová én állítottam be.
Ha nem volt beállítva akkor mindegy, hogy hova mert megadom nekiéds létrehozza.
Az lenne a lényeg, hogy ha van akkor azt módosítsa arra ahová én akarom ha meg nincs akkor rakja oda ahova én akarom. -
tgumis
tag
Sziasztok!
Hogy tudnám azt megoldani hogy ne kelljen kétszer is futtatnom a lenti makrót azért, hogy az autó szűrő működjön. Szóval fixen az itt beállított soron legyen a szűrés. Mert vannak munkalapok amelyiken van beállítva csak más soron van amelyiken nincs és van amelyiken a makróban megjelölt sorban. Mert most csak akkor kerül oda ha nincs bekapcsolva ha már van szűrés a munkalapon akkor a futtatás után eltűnik.
Illetve hogyan tudnám azt megcsinálni, hogy az összes munkalapon egy indítással fusson le az egész.
Ja esetleg annyi hogy az ablaktábla rögzítést fixen az az A 10 cellán állva szeretném.
Sub fejlec_formazas()
ActiveSheet.Unprotect Password:="Lufi09"
With ActiveWindow 'ablaktabla rogzites
.SplitColumn = 1
.SplitRow = 10
End With
ActiveWindow.FreezePanes = True 'ablaktabla rogzites vége
Range("I1:I3").Select 'szinezés
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 14336204
.TintAndShade = 0
.PatternTintAndShade = 0
End With 'szinezés vége
Range("B1:D3,B8:D158,I8:J158,M8:N158,P8:P158,S8:V158,Y8:Y158").Select 'cellatulajdonságok nem zárolt nem rejtett
Selection.Locked = False
Selection.FormulaHidden = False
Range("A6:J6").Select 'autoszűrő
Selection.AutoFilter
'kodolás
ActiveSheet.Protect Password:="Lufi09", UserInterfaceOnly:=True _
, AllowFormattingColumns:=True, AllowFiltering:=True
ActiveSheet.EnableSelection = xlNoRestrictions
End Sub
Remélem tudtok segíteni.
10 tartomány.
igen hosszú képlet lesz
Előre is köszi a segítséget.
Új hozzászólás Aktív témák
Hirdetés
- BestBuy topik
- Apple Watch Sport - ez is csak egy okosóra
- Bittorrent topik
- Motorolaj, hajtóműolaj, hűtőfolyadék, adalékok és szűrők topikja
- 3D nyomtatás
- Megjött a jubileumi Pixel széria
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- Új középpályást igazolt a Qualcomm
- Calibre, az elektronikus könyvtár
- További aktív témák...
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- ROBUX ÁRON ALUL - VÁSÁROLJ ROBLOX ROBUXOT MÉG MA, ELKÉPESZTŐ KEDVEZMÉNNYEL (Bármilyen platformra)
- Eladó Steam kulcsok kedvező áron!
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Antivírus szoftverek, VPN
- Apple iPhone 14 Plus 256GB / AKKU 100% / 12 hónap jótállás
- ÁRCSÖKKENTÉS MSI Z77 MPOWER Alaplap eladó
- HIBÁTLAN iPhone 13 mini 256GB Starlight -1 ÉV GARANCIA - Kártyafüggetlen, MS3038, 94% Akkumulátor
- Túlmelegedik a géped? Segítünk!
- BESZÁMÍTÁS! ASROCK B550 R5 3600 16GB DDR4 250GB SSD 1TB HDD RX 5700 XT 8GB CM MasterBox MB500 700W
Állásajánlatok
Cég: FOTC
Város: Budapest