-
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
-
Pikkolo^^
addikt
Van az X excel file-m aminek bizonyos adatait hivatkozással az Y-ba másoltam át. Az a gondom, hogy az Y file-ban nem tudok keresni semmire sem, mert a hivatkozások miatt egyet sem talál meg. Ezt hogyan lehetne kiküszöbölni?
-
mdk01
addikt
Valaki legyen szíves segíteni hogyan van az parancs mikor több cella értékét szeretnénk egy cellába berakni?
Valami ilyesmi: " & cellanév "Köszönöm előre is
-
slashing
senior tag
-
alfa20
senior tag
sziasztok,
olyat hogy tudok készíteni, hogy egy cellába (pl: B2) csak számot lehessen megadni?
"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
lappy
őstag
-
dynamicrossh
tag
Üdv!
Excel 2003 esetén mitől lehet hogy erőforrás problémákra nem akar egyszerre két táblát megnyitni? Csak javítás után amikor is rosszul jeleníti meg a másodjára megnyitott táblát? -
mr.nagy
tag
Sziasztok!
Olyat lehet e csinálni, hogy ha mondjuk a D oszlopban valamely cellát kitöltik, akkor automatikusan ezt a beírt éréket alapul véve cserélje ki a cella tartalmát egy függvényre ami tartalmazza a beírt értéket is. Példa: A D23 cellába beírja, hogy "kutya" és ez kicserélődik erre =TISZTÍT("kutya")
HMNote10Pro
-
Fferi50
őstag
válasz mr.nagy #23018 üzenetére
Szia!
Ennek érdekében az adott munkalap change eseményéhez kell makrót írnod:
Private Sub Worksheet_Change(ByVal Target As Range)
application.enableevents=false
if target.column=4 then target.formula="=Clean(""" & target.value & """)"
application.enableevents=true
end subÜdv.
-
Wyll
őstag
Sziasztok!
Azt szeretném megcsinálni Excel 2010-ben, hogy ha
- a munkafüzet nincs még elmentve, vagy
- el van már mentve, de a mentés máskéntre kattint a júzer
(tehát magyarul amikor felugrik a mentésablak),akkor ajánljon fel egy általam meghatározott filenevet a mentéshez, ami nem más, mint egy adott cella tartalma+egy énáltalan megadott string ("_jegyzőkönyv"), és kiterjesztésnek pedig a már meglévő .xlsm (makróbarát munkafüzet) kiterjesztés.
Próbálgattam már makrót írni rá innen-onnan összeollózott forrásokból, és erre jutottam:
Sub mentesmaskent2()
' mentesmaskent2 Makró
ActiveWorkbook.SaveAs Filename:=Range("gyariszam") & "_jegyzőkönyv" & ".xlsm"
End SubEz ugyebár nem dob fel mentés ablakot, csak megcsinálja.
Kérdésem, hogy
- ez így korrekt-e, vagy a működőképessége ellenére mindenképpen lenne hozzá javítási javaslatotok?
- meg lehet-e úgy csinálni, hogy egy mentés ablakba írja be előre magától a kért filenevet?Gyakorlatilag egy alapértelmezett mentési nevet kéne megadni. Már ha van ilyen..
[ Szerkesztve ]
Megbízhatóságom: http://phmegbizhatosag.atw.hu/phtabla.php?nev=Wyll
-
Fferi50
őstag
Szia!
Nézd meg a Filedialog objektumhoz tartozó helpet az excel VBA -ban.
Többfunkciós és többféle alapértelmezést is adhatsz neki.
De ne feledd, ha a felhasználóra bízod a mentés nevének megadását, akkor nem lehetsz biztos abban, hogy nem változtatja meg azt....
Szerintem sokkal jobb, ha magad adod meg a nevet és mented a filet. Szóval én nem dobnék fel dialog ablakot.Ha nem akarod, hogy a fájlmentés miatt megváltozzon az eredeti fájlod neve, akkor használd a
workbook.savecopyas filename formátEkkor nem változik meg a használt fájlod állapota.
Üdv.
-
Wyll
őstag
-
veterán
mégse
[ Szerkesztve ]
"a jövötsajnos nemlehet tudni csakhamárotvagy deakormegmár azajelen"
-
tgumis
tag
Sziasztok!
Már kérdeztem itt a 6. hónapban de az akkori választ nem sikerült elsajátítanom. szóval mit tegyek hogy a feltöltött kép mintájára amikor az adott cellák értékeit összefűzöm(csak a mintában használom az összeset) akkor az az összefűzés úgy sikerüljön ahogy a mintában van
Segítsetek[ Szerkesztve ]
-
slashing
senior tag
Lehet munkafüzethez rendelt makróban makrót meghívni?
nevezetesen van egy ilyen makróm a füzeten:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("H7,H12,H17,H22,H27,H32,H37,H42,H47,H52,N7,N12,N17,N22,N27,N32,N37,N42,N47,N52,T7,T12,T17,T22,T27,T32,T37,T42,T47,T52,Z7,Z12,Z17,Z22,Z27,Z32,Z37,Z42,Z47,Z52,AF7,AF17,AF22,AF27,AF32,AF37,AF42,AF47,AF52")) Is Nothing Then
Application.Dialogs(xlDialogInsertObject).Show
End If
End SubAmi a cellákon duplakattintásra előhívja az objektum berakást ahol én fájlból berakom ikonként.
Majd van egy ilyen makró
Sub alakzatMeretezes()
Dim shp As ShapeRange
Set shp = Selection.ShapeRange
shp.Width = 42
shp.Height = 42
End SubAmi a kijelölt alakzatot a megadott méretre alakítja nekem. Az lenne a legkényelmesebb ha lefutna ez a makró is miután bekerült a fájl a füzetbe.
ezt össze lehet párosítani?
[ Szerkesztve ]
-
Fferi50
őstag
válasz slashing #23031 üzenetére
Szia!
Ide tedd be a másik makró hívását, így:If Not Intersect(Target, Range("H7,H12,H17,H22,H27,H32,H37,H42,H47,H52,N7,N12,N17,N22,N27,N32,N37,N42,N47,N52,T7,T12,T17,T22,T27,T32,T37,T42,T47,T52,Z7,Z12,Z17,Z22,Z27,Z32,Z37,Z42,Z47,Z52,AF7,AF17,AF22,AF27,AF32,AF37,AF42,AF47,AF52")) Is Nothing Then
Application.Dialogs(xlDialogInsertObject).Show
alakzatMeretezes
End IfRemélem, jó helyre gondoltam.
Üdv.
-
slashing
senior tag
válasz Fferi50 #23033 üzenetére
Működik a meghívás de az objektum elveszti a kijelölést a beillesztés után így nem fut le a második makró.
ha berakok egy ilyet: Range("target").Select
akkor kijelölide akkor meg hibát ír erre a sorra,pedig kijelöli :/run-time error 1004
method 'range' of object' worksheet failed..szerk.: mégsem jelöli ki
szerk2: az az érdekes ha menüsorról szúrok be akkor az objektum lesz az aktív de mivel én cella duplakattintással indítom a folyamatot így az a cella lesz az aktív miután berakta az objektumot így nincs min lefusson a méretezés...
[ Szerkesztve ]
-
tgumis
tag
Egyszer úgy használom hogy:
Csatolva:.............valami...............valami................valami
Szóval a pontokon kívül minden. A "valami"-k az mindegyik egy külön cellából vett érték.
És van egy màsik eset ahol egy nagyobb szövegbe kerül beillesztésre ugyanezen cellák értéke. Azért van erre szükség mert egy sablonos szövegbe cserélődnek az értékek és ki kell legyenek emelve összegek és dátumok. -
-
Delila_1
Topikgazda
válasz tgumis #23036 üzenetére
Rossz hír, hogy a képlettel beírt szöveget nem lehet részenként formázni, csak azt, ahova a képlettel összehozott szöveget értékként beilleszted. Erre alkalmazhatsz egy kis makrót, ami az A11-ben összefűzött szöveget az A13-ba illeszti be. Ebből a makróból indíthatod a formázást.
Sub Beilleszt()
Range("A11").Copy
Range("A13").PasteSpecial xlPasteValues
Forma
End SubSub Forma()
Dim start As Integer, hossz As Integer, szin As Integer, felk As Boolean
Dim meret As Integer
With Cells(13, 1).Characters.Font
.Name = "Arial"
.ColorIndex = 0
.Size = 10
.Bold = False
End With
start = 1: hossz = Len(Range("A1")): meret = 18: szin = 3: felk = True: GoSub Szinez
start = start + hossz + 1: hossz = Len(Range("A2")) + 1 + Len(Range("A3")) + Len(Range("A4"))
meret = 14: szin = 0: felk = True: GoSub Szinez
Exit Sub
Szinez:
With Cells(13, 1).Characters(start:=start, Length:=hossz).Font
.ColorIndex = szin
.Size = meret
.Bold = felk
End With
Return
End SubAzt azért megnézném, ahogy a lapát nyelével felásol egy területet.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
slashing
senior tag
válasz Fferi50 #23040 üzenetére
Egyébként találtam egy bugot ami miatt rengeteget szívtam és lehet 10-ed ennyi időbe telik megcsinálni ezt az egészet.
Lapelrendezés nézetben nem a cellába rakja az okjektumot hanem mellé míg normál nézetben vagy oldaltörések megjelenítése nézetben a cellába rakja én meg persze Lapelrendezés nézetet használtam
-
Delila_1
Topikgazda
válasz tgumis #23043 üzenetére
Sosem értem, hogy a pontos feladat leírása helyett miért példálóztok.
Ha konkrétan megírnád, melyik az összefűzött cella, felsorolnád az összefűzendő cellák címét, és azt, hogy azok közül a harmadik a dátum, az ötödik pedig a kiszámított összeg, személyre szabott makrót kapnál.
Így viszont a makró tanulmányozásával valószínűleg tanulsz, és az is hasznos dolog.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
tgumis
tag
válasz Delila_1 #23044 üzenetére
Teljesen igazad van.
Az a helyzet hogy nem azt szeretném hogy megold helyettem hanem hogy megtanuljam. Màr így is sokat tanultam tőled és nem akarlak fàrasztani csak azt hittem pikk pakk ràjövök hogy a makródban mi miért van. De küldöm az email címedre hogy mit szeretnék. -
csferke
senior tag
Sziasztok!
Egy lapon az A-D oszlopba viszek be adatokat. Ezekből az adatokból van két diagram (egymás alatt) a D oszloptól jobbra.
Lehetséges-e (hogyan), hogy a két diagram automatikusan mozogjon amikor az A-D oszlopba új adatokat viszek be vagy csak amikor görgetem le-fel a munkalapot? Azt szeretném, hogy mindig láthatóak legyenek a diagramok függetlenül, hogy a munkafüzet mely sorai látszanak.
köszi
[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz csferke #23046 üzenetére
A lapodhoz kell rendelned a makrót.
Mikor a lapon ráállsz egy cellára, a két diagram "mellé ugrik".Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ActiveSheet.Shapes("Diagram 1")
.Top = ActiveWindow.ActiveCell.Top
.Left = ActiveWindow.ActiveCell.Left + ActiveCell.Width
End With
With ActiveSheet.Shapes("Diagram 2")
.Top = ActiveWindow.ActiveCell.Top + ActiveSheet.Shapes("Diagram 1").Height + 5
.Left = ActiveWindow.ActiveCell.Left + ActiveCell.Width
End With
End SubLehet, hogy másképp hívják a diagramjaidat, ennek megfelelően írd át a makróban a "Diagram 1", és
"Diagram 2" szövegrészeket.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
csferke
senior tag
válasz Delila_1 #23047 üzenetére
Delila köszi a gyors reagálást.
Ez eddig OK de szeretném picit pontosítani.
A diagramok egymás alatt (eddig OK) jelennek meg de mindig a G oszlopban kell, hogy legyen a bal széle.Az adatok bevitelénél nem szükséges a diagramok mozgatása. Csak akkor kell mozogniuk le/fel amikor görgetem a munkalapot le/fel és ekkor a diagramok mindig láthatóak legyenek.
Alapállásban a diagramok G1:T26, G27:T53 vannak. Amikor nyomok pl. 2x PageDown-t akkor pl. a G90:T116, G117:T143 tartományban legyenek a diagramok.
Tehát ha bármilyen módom (egér/billentyűk) mozgatom le/fel a munkalapot akkor a diagramok mindig a látható tartományban legyenek a G oszloptól kezdődően jobbra. -
slashing
senior tag
Táblázattá formázott táblázatnál ha a lapvédelem aktív és van zárolt cella a táblázatban akkor nem fog dinamikusan bővülni a táblázat. A következő kóddal el ez kiküszöbölhető:
Munkalaphoz rendelt makró.
Hátha valakinek kelleni fog még:Private Sub Worksheet_SelectionChange(ByVal Target As range)
If IsNull(Target.Locked) Then
Munka1.Protect , True, True, True, True
ElseIf Target.Locked Then
Munka1.Protect , True, True, True, True
Else
Munka1.Unprotect
End If
End Sub -
Delila_1
Topikgazda
válasz csferke #23048 üzenetére
A görgetéshez nem tudok eseményt rendelni.
Az előző makróból vedd ki a két .Left kezdetű sort, akkor továbbra is a felső diagram teteje abban a sorban jelenik meg, amelyik cellára kattintasz, a másik a felső alatt, az oszlop helye változatlan marad.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
Új hozzászólás Aktív témák
- Robot fűnyírók
- Nők, nőügyek (18+)
- Autós topik
- Azonnali informatikai kérdések órája
- AMD vs. INTEL vs. NVIDIA
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Android alkalmazások - szoftver kibeszélő topik
- Politika
- Autós topik látogatók beszélgetős, offolós topikja
- További aktív témák...
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest