- bitpork: MOD Júni 13 Augusztus 2- szombat jelen állás szerint.
- sziku69: Fűzzük össze a szavakat :)
- Ndruu: Segíts kereshetővé tenni a PH-s arcképeket!
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- gban: Ingyen kellene, de tegnapra
- Luck Dragon: Asszociációs játék. :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Szoszo94: Xiaomi Mi Router 3G - Padavanra fel!
- Gurulunk, WAZE?!
- Geri Bátyó: B550 szűk keresztmetszet, de mi és miért?
-
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
-
Delila_1
veterán
válasz
babuckoo
#36799
üzenetére
Tedd a CombBoxot az első sorba. Az A2 cellán állva tegyél be ablaktábla rögzítést (Nézet menü), hogy ez a sor mindig látható legyen.
Jobb klikk a ComboBoxon, Kód megjelenítése. Bejutottál a VB szerkesztőbe, és a makród első és utolsó sora megvan. Ezeket egészítsd ki:
Private Sub ComboBox1_Change()
If ActiveCell.Row > 1 Then '*************
Cells(ActiveCell.Row, 1) = ActiveCell.Row - 1 '*************
Cells(ActiveCell.Row, 2) = ComboBox1
End If
End SubBeállsz az első üres, kitöltendő sorodba, és kiválasztod a gépet. Ennek a sornak az A oszlopába beíródik a sorszám, a B-be pedig a kiválasztott gép neve. Ha a címsor 1-nél több sorból áll, 1 helyett annyit vonj le az ActiveCell.Row-ból. A másik csillagozott sorban is írd át az 1-et.
A füzetet makróbarátként kell mentened.
-
babuckoo
újonc
-
babuckoo
újonc
Sziasztok,
A kérdésem a következő lenne:
Megcsináltam egy legördülő listát (adatok - érvényesítés menüvel).
Ebben több száz gépnév található.
Azt szeretném, hogy ha acellába elkezdem beírni a gép nevét akkor a legördülő listában vagy lépjen oda a névsor szerint, vagy csak azon gépek jelenjenek meg amik megfelelnek a már beírt névrészletnek.Előre is köszönettel:
Babuckoo -
Pakliman
tag
válasz
RAiN91
#36789
üzenetére
Sub TEST()
Dim c As Range, r As Range
Dim output As String
Dim fn As String
Dim bOk As Boolean
Dim i As Long
For Each r In Range("B69:D1870").Rows
For Each c In r.Cells
output = output & "," & c.Value
Next c
output = output & vbNewLine
Next r
fn = "text"
bOk = False
Do
If Dir("D:\" & fn & ".txt") <> "" Then
i = i + 1
fn = "text" & i
Else
bOk = True
End If
Loop Until bOk
Open "D:\" & fn & ".txt" For Output As #1
Print #1, output
Close
End Sub -
RAiN91
őstag
Sub TEST()
Dim c As Range, r As Range
Dim output As String
For Each r In Range("B69:D1870").Rows
For Each c In r.Cells
output = output & "," & c.Value
Next c
output = output & vbNewLine
Next r
Open "D:\text.txt" For Output As #1
Print #1, output
Close
End SubHogyan tudom megcsinálni, hogy ha már létezik az adott helyen a text.txt, akkor ne írja felül, hanem csináljon egy másik fájlt (pl. text2.txt)?
Köszönöm előre is.
-
spe88
senior tag
válasz
Delila_1
#36787
üzenetére
Ennél jobbat nem tudok kirakni. Bejelöltem a fájlban, hogy az adott sorokra a képletnek NOK-ot vagy OK-ot kéne dobnia (I-oszlop).
Annyi, hogy az alkatrésznevek nincsenek benne a fájlban, meg a számok nem teljesen végig vannak kiírva, hanem csak az első 3 szám, de ezek teljesen irrelevánsak a feladat megoldása szempontjából. Ennél valósabbat felesleges beraknomA mintában 1-5 mélység van, nyilvánvalóan ahogy írtam is a képletnek csak a G és H oszloppal kell foglalkoznia. (Az A-F csak vizuális szemléltetés a jobb megértés végett.)
Valószínűleg valami tömbképlet fog kelleni, de nem értek annyira az Excelhez sajnos.
Köszönöm előre is
-
#36785
Delila_1
veterán
MikeAinsel
#36784
Delila_1
veterán
válasz
MikeAinsel
#36784
üzenetére
Szívesen.
-
lenkei83
tag
válasz
kasza blanka
#36752
üzenetére
- Félre ment -
-
demarad
tag
Sziasztok,
(Excel 2016)
valaki tud olyanban segíteni,hogy van egy oszlop aminek az adatait szeretném feltölteni egy kiválasztási listába makróval.
Annyi problémám van, hogy ez a lista folyamatosan változik (ezt másik makró tölti fel ez működik),
azt szeretném ha a kiválasztási listába csak annyi sor kerülne, amennyi sor az oszlopban van, ami ugye változik.[CODE]
Range("C5").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=vevo_lista_seged!$B2$B50"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With[/CODE]a Formula1:= utáni részbe nem tudom hogy kellene egy változót becsempészni, ami az adott oszlopban található adatot tartalmazó sorainak számát tartalmazza.
előre is köszönöm
-
#36779
Delila_1
veterán
MikeAinsel
#36778
Delila_1
veterán
válasz
MikeAinsel
#36778
üzenetére
Változó lapnevek esetén alkalmaznod kell az INDIRECT függvényt is a képletedben.
countif(index(indirect("'" & A1 & "'!$B$3:$B$500",...ahol az A1 tartalmazza a lapnevet. Az indirect után " ' " van, a felkiáltó jel előtt " '
-
#36778
MikeAinsel
újonc
Delila_1
#36775
MikeAinsel
újonc
válasz
Delila_1
#36775
üzenetére
Köszönöm a választ, de sajnos az nem megoldás,
a lényege annyi lenne, hogy egyrész oszloponként különböző munkalap név van benne, lefelé megy a húzva másolás. Annyit szeretnék, hogy dinamikus legyen, tehát ha változnak a munkalapnevek akkor is müködjön, ezt pedig egy összefüz képlettel bemásolva érném el, de amikor megvan nem tömbképletként kezeli ezeket. Az elöző hsz-emben leírtam egy másik lehetséges megoldását a dolognak. -
#36776
MikeAinsel
újonc
MikeAinsel
#36768
MikeAinsel
újonc
válasz
MikeAinsel
#36768
üzenetére
Vagy lehet, hogy meg lehetne oldani úgy is, hogy az alábbi képletbe:
=IFERROR(INDEX('1.Szabó Ottó'!$B$3:'1.Szabó Ottó'!$B$500,SMALL(IF($C$2='1.Szabó Ottó'!$E$3:'1.Szabó Ottó'!$E$500,ROW('1.Szabó Ottó'!$E$3:'1.Szabó Ottó'!$E$500)-ROW('1.Szabó Ottó'!$E$3)+1),ROW('1.Szabó Ottó'!1:1))),"")jelen estben 1.Szabó Ottó munkalapnevet egy adott cellából olvasa ki. Az indirect-re gondoltam, de egyszerüen képtelen vagyok müködésre birni.
Lenne valakinek ötlete rá?
Köszönöm
-
#36775
Delila_1
veterán
MikeAinsel
#36768
Delila_1
veterán
válasz
MikeAinsel
#36768
üzenetére
Ha beírtad a tömbfüggvényt, ugyanúgy húzva másolhatod, mint bármelyik más függvényt.
-
Marvinyo
aktív tag
Sziasztok!
Szeretném feltételesen soronként formázni az A1
31 részt.Van az alábbi szuper kis formulám:
=COUNTIF(JanuarNW[Csuszonapok];DATE($M$1;$M$3;ROW()))>0
Ha ezt beütöm az M oszlopba, szándékom szerint működik, és ír ki TRUE/FALSE értékeket
Ha ezt a feltétles formázásban használom, akkor viszont hibás formulát ír. A táblázat nem tetszik neki. Ha lecserélem a JanuarNW[Csuszonapok] részt I1:I:5-re akkor tökéletesen működik.
Gondoltam arra, hogy az M oszlop TRUE/FALSE alapján formázok (tehát ha M1 igaz, akkor A1,B1-re formázzon, ha hamis, akkor hagyja békén), de azt sem sikerült összehozni, nem tudom hogy tudnék rájuk hivatkozni, nem szeretném egyesével (pontosabban kettésel...) formázni a két oszlop sorait.
Van esetleg valami ötletetek erre?
-
#36768
MikeAinsel
újonc
MikeAinsel
újonc
Helló,
nem tud valaki excelben egy olyan módszert, amivel egy adott tartományt tömbképletté lehetne alakítani?
Lenne vagy 700 különböző képlet amit összefűzve hoztam létre, értéket bemásolom, de ennyi. Jó lenne nem egyesével végig Ctrl Shift Enterezni. Makróval is probáltam kevés sikerrel:Sub arrayformula()
Dim rng As Range
Dim arr As Range
Set rng = Selection
For Each arr In rng.Areas
arr.FormulaArray = arr.Cells(1, 1).Formula
Next
End SubEnnél lehet hogy a Cells hibás, legalábbis néha fent akad rajta, ha nem akkor sem végzi el a kért műveletet.
Köszönöm
-
#36766
Apollo17hu
őstag
Apollo17hu
őstag
Sziasztok!
Olyan problémába futottam bele, hogyha hozzárendelek egy makrót egy alakzathoz, amihez hiperhivatkozást is társítok, akkor kattintásra csak az utóbbi művelet kerül végrehajtásra, a makró viszont nem fut le. Gyanítom, hogy a háttérben az történik, hogy a hiperhivatkozás végrehajtása miatt a fókusz már nem az alakzaton van, ezért a makró nem kerül meghívásra.
Van arra módszer, hogy makró és hiperhivatkozás is végrehajtódjon? Vagy írjam bele a makró végébe a hiperhivatkozás utasítását, és akkor elég csak a makrót társítanom? Más ötlet esetleg?
-
Delila_1
veterán
A Veletlen és az Inditas makrót 1 modulba tedd. A
Private Sub Workbook_Open()-t a ThisWorkbook laphoz rendeld úgy, hogy bal oldalon duplaklikkel kiválasztod a ThisWorkbook lapot, majd a jobb oldalon megjelent üres felületre másold be. Ez utóbbit nem kell gombhoz rendelned, automatikusan indul a fájl megnyitásakor. Ez csak törli a Munka1 lap AA1 cellájának a tartalmát, hogy első indításkor ne legyen késleltetés.1 gombhoz csak 1 makrót lehet rendelni. A mostani feladatban a Veletlen hívja az Inditas makrót.
-
CsoGe
csendes tag
válasz
Delila_1
#36754
üzenetére
Hali!
Ez azt jelenti, hogy egy gombhoz tudok több makrót is rendelni?
Amit tegnap írtál, az van most a gombhoz rendelve.
Ha ezt most hozzáteszem, akkor a számgenerálás nem fog menni.Egyébként ezt az üzenetet kapom:
http://www.kepfeltoltes.eu/images/hdd1/2017/12/13/9142017_12_13_18_04_08_.pngKöszi,
Gergő -
Sprite75
tag
Sziasztok.
Valahogyan meg lehet azt oldani, a képen látható kinézetű táblával, hogy azokat az oszlopokat, amiben nincs rendelés (pl G és O oszlop) azokat elrejteni, (valahogy úgy mint az auto szűrővel le lehet szűrni a sorokat, persze nem oszloponként kijelölve kézzel rejteni).
Aztán a legalsó Összesítő (Ft) sorban lévő összegeket összeadni úgy, hogy 10 tétel legyen összeadva aztán újabb 10 és aztán a maradék.
Ez a táblázat kb 90 oszlopból áll de minden hónapban változóan kb 30 oszlopban van adat és aztán ebből írnának számlát, úgy, hogy egy (kézzel írott) számlára csak 10 tétel fér. -
spe88
senior tag
Sziasztok!
Van egy szerintem általatok könnyedén megoldandó probléma, de rajtam kifogott. Kicsit bonyolultnak tűnik, de az Excelből egyből megértitek.
Van egy darabjegyzék adott szintekkel (ezeket az A-E oszlopokban vizuálisan is szemléltettem a könnyebb érthetőség kedvéért). A 'G' oszlopban az adott szintek vannak. Arra lenne szükségem, hogy az 'I' oszlopban minden olyan helyre OK-ot rakjon, ami 200-zal kezdődő számból ered ('H' oszlop). Magát a 200-as számot is.
(Előfordulhat, hogy 200-as szám alatt is van 200-as szám, tehát a mélyen lévő 200-as szám egy felette X szinttel lévő 200-as számbból ered, ebben az esetben azt is OK-ra lehet állítani)
Köszönöm előre is
-
#36755
Delila_1
veterán
kasza blanka
#36752
Delila_1
veterán
válasz
kasza blanka
#36752
üzenetére
Be kell még iktatnod a képletbe az INDIREKT függvényt. A súgó megmondja a használatát.
Ha nem megy, írd meg, lesz itt valaki, aki segít.
Érdemes előbb a súgót megnézned, hogy megértsd, miről van szó. -
Delila_1
veterán
A gombhoz a Veletlen makrót rendeld, ez hívja meg a Inditas-t.
Sub Veletlen()
Dim kezd As Long, sor As Long
If Range("AA1") = "" Then
Inditas
Else
MsgBox "Nyugi! 5 mp után újra indul" & vbLf & _
"ha ezt leokéztad", vbInformation
Application.Wait Now + TimeValue("0:00:05")
Inditas
End If
Range("AA1") = "Indítva"
End SubSub Inditas()
Dim kezd As Long, sor As Long
kezd = Range("E" & Rows.Count).End(xlUp).Row + 1
If kezd = 2 Then kezd = 1
For sor = kezd To kezd + 4
Cells(sor, "E") = Int(Rnd() * 153) + 1
Next
End SubÉrdemes a ThisWorkbook laphoz rendelni egy makrót, ami a füzet behívásakor kiüríti az AA1 cellát.
Private Sub Workbook_Open()
Sheets("Munka1").Range("AA1") = ""
End Sub -
oke
senior tag
Sziasztok!
Van egy kimutatásom, melyekben darabot számolok. Viszont jó lenne, a soronként az összesítésnél az alatta lévő számok átlagát számolná, nem a darabok összegét.
Csatolom a képet, mire gondolok. A 7-es sor bekarikázott darabszám összege helyett az alatta lévő 8-13 sor átlaga érdekelne. Az egész kimutatásra vonatkozóan. Megoldható?Illetve hogy tudnám ezt a kimutatás adatait átmásolni úgy, hogy már ne kimutatásként kezelje, de a lenyitási lehetőség megmaradjon? Készítek ugyanis grafikont belőle és fontos, hogy az "egység/blokk" megmaradjon.
Excel 2007
-
#36752
kasza blanka
aktív tag
kasza blanka
aktív tag
Üdv!
Abban kérném a segítségeteket, hogy hogyan tudom azt megoldani, hogy egy index/hol.van párosnál hogyan tudom az megoldani, hogy a tömb - amiben keresni szeretnék - kezdő és utolsó sorát dinamikusan, azaz 2 cellában szereplő értékkel tudjam megadni?
=INDEX(A$4000
$7655;HOL.VAN(E29;E$4000:E$7655;0);4)ez a képlet, és én azt szeretném, hogy a 4000-t és a 7655-t inkább A24 és B24-es cellákban lévő értékekből vegye, így ha átírom az ott szereplő számokat, akkor más intervallumban keres.
Köszönöm
-
CsoGe
csendes tag
válasz
Delila_1
#36747
üzenetére
Hali!
Lehetne még egy kérésem?
Van egy olyan lehetőség most ezzel a makróval, hogy valaki véletlenül lenyomja a gombot 3-4szer és mindig generálja lefele a számokat.
Be lehetne azt állítani, hogy a gomb megnyomása után 30 másodpercig ne lehessen a gombot újra megnyomni/ne generáljon újra számokat?
Lehet valami időzítőt belerakni?
Így elkerülhetném, hogy valaki véletlenül túl sok számot generáljon le.Előre is köszi a segítséget!
Gergő -
Fferi50
Topikgazda
-
Marvinyo
aktív tag
Sziasztok!
3 színű skálát szeretnék feltételes formázásra használni, időre.
Részletezve:
Az F3 cellámban van egy kicsit bonyolultabb függvény, aminek az eredménye egy időérték óó:pp:mm formátumban. Az értéke gyakorlatilag a negatív és a pozitív végtelen között bárhol lehet, de alapvetően nem valószínű, hogy 10:00:00-nál jobban kileng ide vagy oda. De ez mindegy is.Amit el szeretnék érni, hogy +/- 1 óránál legyenek a "kritikus" pontok. Azaz -1 és +1 óra között legyen fehér(es), fölötte meg alatta egyre élénkebb piros illetve zöld ahogy távolodunk a -1 és +1 értékektől (mondjuk legyen +/- 24:00:00 óra a legélénkebb)
A feltételeknél a "formula"-t választottam a következőképp:
Minimum (zöld):
=$F$3<-TIME(1;0;0)Midpoint (fehér):
=$F$3=TIME(0;0;0)Maximum (piros):
=$F$3>TIME(1;0;0)Mégis, a cella minden értékénél fehér lesz. Mit szúrok el? Egyáltalán teljesen rossz ezközt használnék? Próbáltam két kétszínűt is megadni, de az sem sikerült.
(makrót nem szeretnék használni, mert mobilokon nem mind működik rendesen)
-
CsoGe
csendes tag
válasz
Fferi50
#36743
üzenetére
Hali!
Így nézett ki eddig a makró:
Sub LPA_2018()
Randomize
For i = 3 To 7
For j = 5 To 5
Cells(i, j) = Int((153 * Rnd) + 1)
Next
Next
End SubA válaszod alapján nekem a For i=3-as sor így nézne ki:
For i = Range("E1").End(xlDown).Offset(1,0Valamit tuti, hogy félre értek...
Köszi,
Gergő -
#36742
Apollo17hu
őstag
Apollo17hu
őstag
Akadt még egy olyan problémám, hogy ugyanazt az alakzatot több munkalapon szeretném elhelyezni. Az alakzathoz egy egyszerű makrót rendeltem, ez működik. Azt szeretném, hogyha az alakzat fölé viszem az egeret, akkor jelenjen meg egy rövid szöveg. Ezt a hyperlink / ScreenTip... -pel tudnám megcsinálni, viszont itt kötelező az Address: mező feltöltése. Hogy lehet ezt áthidalni? Nincs valami generális megoldás, ami pl. mindig az aktuális munkalap A1-es cellájára mutat? Vagy egy olyan named range-re, ami nem létezik?
Az a célom, hogy egyszer beállítom az alakzatot, és utána csak másolgatom a többi munkalapra. (Nem pedig egyesével állítom be a ScreenTip... értékét a munkalapokon.)
Előre is köszönöm!
-
CsoGe
csendes tag
Sziasztok!
Egy „számomra” bonyolult kérdésben kérem a segítségeteket:
Készítettem a kollégáimnak egy LPA (Layered Prozess Audit) kérdéscsomagot (153 kérdés)
A kérdéseket betettem egy munakalapba úgy, hogy az „A” oszlopban vannak a kérdések számai, a „B”oszlopban pedig a kérdések.
Egy másik munkalapon megcsináltam a formalapot.
Most ott tartok, hogy ha a másik munkalapon az „E” oszlop bármely cellájába beírok egy számot, akkor a mellette lévő „G” oszlop cellája automatikusan megjeleníti a számhoz tartozó kérdést az első munkalapról.
Szeretnék (de nem tudok) a „D” oszlopban egy vezérlőgombot létrehozni, amit ha megnyomok, akkor az „E” oszlopba generálódjon 5 db véletlen szám 1 és 153 között.
Ez önmagában még működik és meg tudom csinálni (for ciklussal). A baj az, hogy mindig ugyanabba az 5 cellába generálok 5 számot én pedig folyamatosan szeretnék egymás alá 5 új számot generálni.
Tehát ma generáltam 5 számot E1-től E5-ig. Holnap megnyomom megint a gombot és akkor E6-tól E10-ig kellene nekem 5 db új szám (úgy, hogy a tegnapiak érintetlenek maradnak, így a feltett kérdéseket mindig vissza tudom nézni.)
Megoldható ez? Amennyiben igen, akkor tudnátok nekem kommentekkel egy ilyen makrót csinálni?
Előre is köszönöm a feleségem (aki vár rám két éjszaka óta, de nem kap meg) nevében!
Üdv.
Gergő -
#36740
Apollo17hu
őstag
Apollo17hu
őstag
Sziasztok!
Valamiért nem működik Excelben (2013) az adatok csoportosítása a munkafüzetem egyik munkalapján. Gyakorlatilag nem reagál a gombnyomásra, illetve 1-1 pixellel "arrébbmászik" a munkalap. Mintha a csoportosítást elvégezné, csak az 1,2,3, ... , + és - jeleket nem mutatná.
ez lenne a helyes megjelenítés:
ez pedig a hibás:
... és ha jobban megnézem, a hibás megjelenítésnél a "H" és "L" oszlopnál 1-1 képpont látszik. Mintha a csoportosító "karám" lábának az alja megjelenne.
Gugli ezt dobta, de a beállításaim helyesek. Excel újraindítás nem segített. Bug lehet? Valószínűleg, egy formátummásolás eredményezte a problémát. Legrosszabb esetben nulláról újraformázom a lapot, csak az sok idő lenne...
-
EmberXY
veterán
Sziasztok!
Egy kis segítséget szeretnék kérni. Azt hogyan tudom megoldani, hogy pl egy gombra vagy hivatkozásra történő kattintással bizonyos tartomány celláinak értéke egy alapértelmezett értékre (0-ra) álljon vissza?
Ehhez mindenképpen makró kell, vagy anélkül megoldható valahogy?
Köszönöm előre is.
-
spe88
senior tag
Közben rájöttem, hogy akkor csinálja ezt, ha egy olyan fájlt, akarok megnyitni, aminél elvileg nincs bejegyezve, hogy kezeli az adott kiterjesztést, jelen esetben az MHTML-t a Google Chrome. Hiába van alapértelmezettnek belőve a Chrome egyszerűen azzal nem hajlandó megnyitni az Excel, holott az intéző igen.
Ha ez valóban így van elég szánalmas a dolog. Visszaraktam a gépre az IE-t csak ezért. Elég gáz.
-
#36731
föccer
nagyúr
customer114
#36730
föccer
nagyúr
válasz
customer114
#36730
üzenetére
autoszűrő pont erre van kitalálva.
Legfelső sort (fejlécet) kijelölöd, ctrl+shift+L, majd a szükséges oszlopon lenyitod a nyilacskát, tartalomazza -->
Oké, kész vagy.
-
#36730
customer114
őstag
customer114
őstag
Sziasztok,
Egy problémámra keresnék megoldást:
Több száz soros táblázatból van szükségem azokra a sorokra, amelyek adott oszlopában (tegyük fel: A oszlop) lévő cellák szövegrészlete alapján rejti el, emeli ki vagy teszi át másik munkalapra a tartalmat.
Pontosítva:
A1 cella tartalma: ABT
B1 cella tartalma: ABX
C1 cella tartalma: BRC
D1 cella tartalma: ABTNekem csak azokra a sorokra van szükségem, amelyek A oszlopban lévő cellái "ABT"-t tartalmazzák. Mivel tüntessem el a maradék sorokat?
Köszönöm,
Szép napot -
-
spe88
senior tag
Hello!
Mi okozhatja ezt a problémát Excelben?
Egy a gépemen lévő MHTML-fájlra hivatkozik a munkalap hiperhivatkozása, de nem tudja megnyitni, holott az MHTML a Google Chrome-hoz van rendelve. Szóval, amit jelez a hibaüzenet nem egészen igaz.
Ahol az MHTML-fájl található az Excelben megbízható helyként szerepel az almappáival együtt, ahogy az látható a beállításokban.
Köszi
-
-
edari
őstag
Sziasztok
Makróban kérnék segítséget.
Van egy nagy adattömböm, aminek az első oszlopára akarok filtert beállítani, majd amiket kidob sorokat, azokat törölni. Már minden megvan, de hiába állítom be a kritériumot, nem akarja kidobni az ominózus sorokat. Rá is jöttem a hibára: a makró számszűrőt használ a filter esetében, én pedig ugye csak simán az értéket írom be a filternél. Mutatom is a problémát:Ez lenne a kód, és az eredmény:
Ő a számszűrőbe írja kritériumot, de ha én csak simán a keresőmezőbe, akkor jó a feltétel:
Nem lehet makrón belül beállítani hogy milyen típusú filtert használjon?
-
ThoLy
csendes tag
Szia!
Én úgy csinálnám, hogy létrehoznék egy "segédtáblát" egy másik munkalapon ahol összefűzném az "E" és az "N" oszlop tartalmát, majd kivenném belőle a duplikálásokat (Data fül ismétlődések eltávolítása), majd darabtelivel megnézném, hogy melyikből van több mint 1.
Azután ráeresztenék egy makrót, ami ha a darabteli függvény értéke >1 akkor megkeresi a "duplikált" sorokat, és átszinezi a cella tartalmát.A makrós formázás kódja szerintem valami ilyesmi lenne:
for i=1 to segédtábla vége
if darabtelifüggvényértéke > 1 then
keresési érték = összefűzott érték
for j=1 to adatok_vége
if worksheets("adatok").cells(j,összefűzött adat oszlopszáma)=keresési érték then
worksheets("adatok").range("A"&j&":"#"N"&j).font.color=vbRed
worksheets("adatok").range("A"&j&":"#"N"&j).interior.color=RGB(255,0,0)
end if
next j
end if
next iA range kijelölésben nem vagyok biztos, hogy így jó, de ha szükséges este utána tudok nézni (és nem mond valaki okosat addig)
Ui.: A kód valoszínűleg elég hosszan futna, de hirtelen ez jutott eszembe.
Uui.: A segédtáblát is meg lehetne csinálni makróval. (esetleg próbáld a makró rögzítése funkciót a Fejlesztői fülön)Kérdés esetén állok rendelkezésedre.
Üdv,
ThoLy -
oke
senior tag
Sziasztok!
Van egy kb 100 000 soros táblám, melyet folyamatosan, néhány naponta töltök, manuálisan.
Ebben a táblában az „E” oszlopban van egy azonosító, az „N” oszlopban pedig egy dátum, hónap/nap (pl.: 01.02) formátumban.
Azt szeretném – makróval, függvénnyel, bárhogy - hogy ha egy azonosítóból több azonos szerepel egy adott napon, akkor ezeknél a soroknál betű legyen piros vagy sorokat emelje ki sárgával.Erre gondolok, látszik, hogy a 7.a 10. és a 11. sor azonosítója megegyezik, de csak a 10 és a 11-es sor kerülne "átszínezésre", mert azok esnek egyazon napra. Illetve a 3., 4. és a 16.17 sor színeződne át.
-
Sesy
aktív tag
-
Fferi50
Topikgazda
Szia!
Feltehetnél egy néhány sort tartalmazó mintát mind Excelből, mind Word-ből, benne azt is, hogy mit szeretnél elérni.
Mert így a sötétben adjuk a tanácsokat és úgy járunk, mint az egyszeri kádi, tanácsaink még lennének, de a libák elfogytak.Természetesen nem kell valódi adat, csak "hasonlítson" a természete az eredetiekre.
Ebből össze tudnánk esetleg hozni azt az Excel munkalapot, amiből lehet körlevelet értelmesen csinálni a Wordben, vagy akár Excel munkalapon is megoldható.
Üdv.
-
Sesy
aktív tag
válasz
Delila_1
#36711
üzenetére
köszi, hogy foglalkozol velem
ez így tök jó, de:
ezzel az a gond, hogy word-ben nem akarom/lehet definiálni a tulajdonságokat, mert azok építő anyagonként változnak... ez igaz például két vízszigetelő lemez esetében is, tehát ami tulajdonság meghatározza az elvárt teljesítményt A esetben nem biztos, hogy ugyanazok kellenek B esetben...
pl: egyik szigetelő lemeznek elvárt teljesítménye a max. nyúlás a másiknak nem, ekkor nem szeretném/nem lehet az elvárt teljesítmény között ez az érték, hiszen nem releváns...
ergo nem lehetnek fixen meghatározott tulajdonságok word-ben ezeknek is a hozzájuk rendel értékekkel együtt a word-ből kell(ene) jönniük...
-
-
Sesy
aktív tag
válasz
Delila_1
#36706
üzenetére
Szia!
Ha nem egy cellában van az összes tulajdonság, akkor az egész dinamikussága veszik el.
Mivel a különböző anyagoknak különböző elvárt tulajdonságai lehetnek. Van olyan amelyiknek csak 1 db de van olyan aminek mondjuk 9 db... Ha ezt nem tudom dinamikusan kezelni, akkor nem lesz "szép" a szövegAz lesz a megoldás egyébként úgy látom, hogy word-ben létre kell hozni egy táblázatot és annak a megfelelő celláiba kell beilleszteni a körlevél megfelelő elemét. Ez lehet akár több soros is, mert a táblázatban jól fog működni, és reményeim szerint a táblázat mérete dinamikusan is változik majd a cellában lévő sorok számának megfelelően...
Az is lehet még, hogy hagyom a fenébe a wordot és megkomponálom az egészet excelben
Ha körlevél nélkül tényleg nem lehet megoldani, hogy az excel egy TETSZŐLEGES cellája bekerüljön pontosan oda és úgy egy word dokumentumba ahová szeretnénk és az automatikusan változzon az szerintem nagyon nagy gond...
-
Fferi50
Topikgazda
Szia!
Szerintem az természetes, ami történik. Egy hosszabb szövegtartalom nem fér le ugyanazon a helyen. Tehát a megnevezésedet tartalmazó szövegeket kell úgy formázni, hogy alkalmazkodjon a hozzá tartozó értékek hosszának változásához.
Például megpróbálhatnád táblázatként formázni az egész tartalmat. A táblázat első oszlopa a megnevezések, ezeket függőlegesen középre, vagy felülre,alulra állítod be. A táblázat második oszlopába kerülnek a tulajdonságokat tartalmazó mezők, amelyek elhelyezkedését szintén megadhatod. A táblázat képes automatikusan felvenni a benne levő szöveg méretét.Üdv.
PS. Csak ismétlésként, a körlevélbe egyetlen egyszer beválogatod az Excelből a szükséges mezőket. Ezek a mezők az Excel cella tartalmának változásakor megváltoznak. Nem kell semmit beilleszteni. -
Delila_1
veterán
Végre megértettem, mi a gondod. Te 1 termékhez az összes paramétert 1 mezőben akarod tárolni az Excelben, és ez a hiba.
Szedd szét a kép szerint.
Az Excelben adsz egy-egy szöveget a címsorban. Ezek lehetnek rövidek. A "rendes" címet a Wordben add meg (foly.szemb.ell az Excelben, folyással szembeni ellenállás: a Wordben).
Látod, betettem egy új oszlopot JEL címmel. Ide írsz *-ot azokhoz a tételekhez (vagy csak egyhez), ami(ke)t a Word körlevélben akarsz megjeleníteni. A kritérium ebben az esetben, hogy a JEL mező értéke *.
-
Sesy
aktív tag
válasz
Fferi50
#36704
üzenetére
"Ezért a csak szöveget kell beillesztésnél választani."
Ha ezt választom, akkor viszont megszűnik a kapcsolat a forrás fájllal
tehát ez nem jó"Ha a forrásformátum megőrzését választod, akkor bizony belekerül."
az a baj, hogy akkor is bele kerül, ha a formázás egyesítését választom, vagyis minden esetben ha a kapcsolatot meg akarom tartani az excel fájlommal...
Ki lehet ezeket szedni valahogyan?
A körlevéllel az a baj, hogy ha az adatok a beillesztésre kerülő cellában több sorban vannak akkor teljesen meghülyül tőle...
Érdekes, hogy a probléma nem túl bonyolult, mégsem lehet egyszerűen megoldani...
-
Fferi50
Topikgazda
-
-
Delila_1
veterán
válasz
Fferi50
#36701
üzenetére
Egyszerűbb a Csere funkciót (Ctrl+h) alkalmazni, az minden oszlopban cserél, nem kell oszloponként bevinni a HELYETTE függvényt.
Az adatokhoz felvennék egy új oszlopot, ahol pl. egy *-ot tennék azokba a rekordokba, amelyeket a körlevélbe aktuálisan be akarok tenni. Ez lenne a feltétel a rekordok kiválasztásához az összefésülésnél.
-
Fferi50
Topikgazda
Szia!
Egyrészt a Wordben is meg lehet adni, hogy a mező hogyan jelenjen meg (kapcsolók segítségével), bár erre borzasztóan kevés helpet találtam.
Másrészt és szerintem egyszerűbb, hogy az Excelben kikapod a cellából a soremelés karaktereket, hiszen ott úgysincs rá szükséged. Ezt pedig a HELYETTE függvénnyel tudod elérni. Azaz az adott cella tartalma nem simán a keresőfüggvény eredménye lesz, hanem pl. =Helyette(Fkeres......stb.;Karakter(10);"") ami kiveszi a soremelés karaktereket.
Azért azt nézd meg lsz. hogy a sortörést milyen karakter idézi elő, nem biztos, hogy Karakter(10), más is lehet. Pl. szöveg.keres függvénnyel megnézheted, van-e Karakter(10) "betű" a szövegben.
A KÓD függvény pedig megmondja egy karakter kódját.Üdv.
Új hozzászólás Aktív témák
Hirdetés
- Milyen belső merevlemezt vegyek?
- NOTEBOOK / NETBOOK / Mac beárazás
- Tőzsde és gazdaság
- Autós topik
- Eredeti játékok OFF topik
- Kerékpárosok, bringások ide!
- Fujifilm X
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Bluetooth hangszórók
- bitpork: MOD Júni 13 Augusztus 2- szombat jelen állás szerint.
- További aktív témák...
- Laptop felvásárlás , egy darab, több darab, új , használt ! Korrekt áron !
- Bomba ár! Lenovo ThinkPad T470s - i5-6GEN I 8GB I 256GB SSD I 14" FHD I Cam I W10 I Garancia!
- ÁRGARANCIA!Épített KomPhone Ryzen 7 7800X3D 32/64GB RAM RTX 5080 16GB GAMER PC termékbeszámítással
- Dell P2419H P2419Hc Full HD LED IPS 24" + P2719H 27" LCD monitor (vékony keretes)
- IBM/Lenovo Thinkpad T60
Állásajánlatok
Cég: Liszt Ferenc Zeneművészeti Egyetem
Város: Budapest
Cég: CAMERA-PRO Hungary Kft
Város: Budapest