-
Fototrend
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
-
-
alfa20
senior tag
Sziasztok,
Globális váltózóban tud nekem valaki segíteni?
Amit szeretnék:
indítok egy makrót ami ami futás közben egy másik modulban lévő makrót meghív ('vizsgal') lefuttatja majd visszatér az eredeti 'indit' makróhoz, viszont az indít makró az alap .xlsx fájlt eltárolja egy változóban ('alaptabla.xlsx') és a 'vizsgal' makrónak erre a váltózóval kellene dolgozni.röviden:
sub indit()
dim fajl1 as string
fajl1 = ActiveWorkbook.Name
vizsgal
end sub()
sub vizsgal()
msgbox fajl1
indit
end sub() -
alfa20
senior tag
válasz
PistiSan
#22205
üzenetére
szerintem neked erre lenne szükséged:
Fejlesztőeszközök -> Beszúrás -> Actix-X vezérlők -> Beviteli lista
ezt elhelyezed tetszőleges helyen, majd rajta: jobb egér -> Tulajdonságok,
Az Alphabetic fűlőn az alábbiakat töltsd ki:
LinkedCell itt azt a cellát add meg ahol az eredményt (értéket) akarod megjeleníteni pl: $D$2
ListFillRange Munka2!$D$1:$D$100
-
alfa20
senior tag
válasz
tgumis
#22027
üzenetére
A personal.xlsb-nek pont az lenne a lényege, hogy saját makrók tudj futtatni az Excel indításával és azért rejtett, hogy ne zavarjon.
Elérni, szerkeszteni az ALT+F11-el tudod.
Ha másik gépen is szeretnéd az ebben lévő makrókat futtatni, akkor a legegyszerűbb módja, ha készítesz egy makróbarát munkafüzetet, abba átmásolod a makrókat, és azt küldöd el másik gépre.Ha meg akarsz tőle szabadulni, akkor innen kell törölni:
c:\Users\*****\AppData\Roaming\Microsoft\Excel\Xlstart\Win7 esetében!
-
-
-
alfa20
senior tag
válasz
Delila_1
#21674
üzenetére
köszi!
és ha azt szeretném, hogy a start gomb atollfüggően indítson el egy makrót, hogy melyik fül (page) az aktív azt hogy tudom beállítani?
eddig így indult a program:
Private Sub Btn8_indít_Click()
If OptionButton1.Value = True Then
kp_rnd
ElseIf OptionButton2.Value = True Then
ksz_nev
Else
MsgBox "Kérlek válaszd ki a rendelés típusát"
End If
End SubMivel ketté szedném, több szelekciós váltózó miatt így jobb lenne külön fülekre tenni a választási lehetőségeket, csak nem tudom, hogy indítsam el ha a 'Page1' vagy a 'Page2'-re vannak be/kitöltve az adatok.
-
alfa20
senior tag
válasz
Tikakukac
#21664
üzenetére
nem biztos, hogy jól értelek de olyat lehet, hogy egy legördítő listát készítesz abban kiválasztasz egy típust és az Excel meg hozzá keresi egy másik cellában pl: mellette lévőbe a megfelelő értéket.
ehhez nem kell sok minden csak egy tábla ami tartalmazza az adatokat meg mondjuk egy FKERES függvény. -
alfa20
senior tag
válasz
alfa20
#21649
üzenetére
szerintem így működik:
képletek:
D2: =HA(ÖSSZ.MUNKANAP.INTL(A2;B2-1;"0000111";$E$11:$E$14)<0;0;ÖSSZ.MUNKANAP.INTL(A2;B2-1;"0000111";$E$11:$E$14))
E2: =HA(ÖSSZ.MUNKANAP.INTL(A2;B2-1;"1111011";$E$11:$E$14)<0;0;ÖSSZ.MUNKANAP.INTL(A2;B2-1;"1111011";$E$11:$E$14))
F2: =SZUM((B2-C2))*24
G2: =SZUM((D2*8)+(E2*6)+F2)D2: a H-CS napokat számolja össze
E2: a P napokat számolja össze
F2: az utolsó nap ledolgozott óráit adja meg
G2: eredményaz ünnepek miatt kell egy segéd oszlop az ünnepeknek ez van a keretben zölddel. A mellette levő tábla meg ellenőrzés végett készítettem, hogy manuálisan le tudjam ellenőrizni
és egy képlettel
=SZUM((HA(ÖSSZ.MUNKANAP.INTL(A2;B2-1;"0000111";$E$11:$E$14)<0;0;ÖSSZ.MUNKANAP.INTL(A2;B2-1;"0000111";$E$11:$E$14))*8)+(HA(ÖSSZ.MUNKANAP.INTL(A2;B2-1;"1111011";$E$11:$E$14)<0;0;ÖSSZ.MUNKANAP.INTL(A2;B2-1;"1111011";$E$11:$E$14))*6)+SZUM((B2-C2))*24)remélem tudtam segíteni...
-
alfa20
senior tag
csak azért kérdeztem, mert ha azt fel tételezem, hogy minden nap le lett dolgozva a teljes munka óra, akkor azt meg lehet oldani, hogy minden napot adjon össze kivétel az utolsó napot. Azt meg ha mondjuk a munkakezdés egységesen 8 óra, akkor csak ki kell vonni a munkaidő végéből a 8 órát (vagy a munka kezdés idejét, ha az nem egységes) a maradékot meg hozzá lehet adni az összes munkaórához, de itt is figyelembe kellene venni, hogy az adott nap milyen napra esik H-CS vagy P, mert a maradék nem lehet több a munkaidőnél.
Szerintem az utolsó nap munkaidő kezdete minden képen kellene pontos adatok miatt.ezt most csak elméletben gondoltam végig, nem néztem utána excelben, de majd megnézem kb. 1 óra.
-
alfa20
senior tag
szerintem ezt a képletet próbáld beépíteni:
=ÖSSZ.MUNKANAP.INTL(C2;D2;"0000111" )
ez most csak a hét első négy napját tekinti munkanapnak (H-CS)
így meg csak a pénteket:
=ÖSSZ.MUNKANAP.INTL(C2;D2;"1111011" )amit érdemes tudni, hogy az idézőjelben lévő 7 db szám ami vagy 0 vagy 1, azzal tudod a munkanapok számát állítani, a 0 munkanapot jelől, az 1-es munkaszünetit.
A 7 szám a 7 napot jelöli sorrendeben:0 0 0 0 0 0 0
HKSzCSPSzoV -
alfa20
senior tag
én értettelek félre, de már értem.
Próbáld meg az alábbit:
C1=ÖSSZ.MUNKANAP(A1;B1)
ez kiszámítja neked, hogy hány munkanap telt el két dátum közt (ezt az értéket szorozhatód is 8 órával)D1=ÖSSZ.MUNKANAP.INTL(A1;B1;11)
ez a vasárnapot veszi csak munkaszüneti napnak + az ünnepeket (azt hiszem), ha ebből kivonod a C1 értéket és szorzód 6-al, akkor elvileg jónak kell lennie.E1=C1*8+(D1-C1)*6
-
alfa20
senior tag
Sziasztok,
Ha rá van szűrve egy táblára és az első sor aktív pl.: "K1", makróban, hogyan tudok egyel lejjebb lépni, hogy ne a "K2" cellára lépjen hanem az első szűrt cellára ami akármi lehet ("K33", "K100", bármi)?
A Cells(1 + 1, 11).Select és a "Selection.Offset(1, 0).Select" a "K2"-re visz. -
alfa20
senior tag
abban tud valaki segíteni, hogy az alábbi miért nem csatolja be a munkafüzetet?
szeretnék egy makrót, hogy ne keljen mindig ugyan azt megírnom, de a csatolást nem küldi el.
a ".Attachments.Add ActiveWorksheet" sort már próbáltam az alábbiakkal is:
".Attachments.Add ActiveWorksheet.Name"
".Attachments.Add ActiveWorksheet.Fullname"Sub Mail_RE()
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = "cim@mail.hu"
.CC = ""
.BCC = ""
.Subject = ActiveWorkbook.Name
.Body = "Hello World!" & vbCrLf & vbCrLf & "szia"
.Attachments.Add ActiveWorksheet
.Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub -
alfa20
senior tag
válasz
csongi
#21590
üzenetére
Szia,
nem emlékszem mennyi színt használtál, de teszem fel ha hármat
pl: zöld, kék, piros
akkor D2 legyen
=HA(B1="zöld";K5;HA(B1="kék";K6;HA(B1="piros";K7;"")))ha négy színt használsz, pl: zöld, kék, piros, fehér:
akkor D2 legyen
=HA(B1="zöld";K5;HA(B1="kék";K6;HA(B1="piros";K7;HA(B1="fehér";K8;""))))és így tovább...
-
alfa20
senior tag
válasz
Snoop-y
#21514
üzenetére
nem a legelegánsabb megoldás, de majd jön Delila_1 és majd megoldja profin
Sub keres()
Dim keres As Variant
keres = InputBox("Keresendő szöveg, szám:", "Keresés")
Cells.Find(What:=keres, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
MsgBox ActiveCell.Address
End Subés meg is jött
-
#21495
alfa20
senior tag
littleNorbi
#21494
alfa20
senior tag
válasz
littleNorbi
#21494
üzenetére
Szia,
Hát szerintem FKERES függvénnyel keresd összes (többhöz a kevesebbet), majd ahol van találat az kuka, aminél meg #HIÁNYZIK van az marad.
-
#21492
alfa20
senior tag
sutyimatyi
#21491
alfa20
senior tag
válasz
sutyimatyi
#21491
üzenetére
azt másnak készítettem, de most egyet az alapján összedobtam itt eléred:
[link]
pár napig fent hagyom, hátha mást is érdekel.
remélem segít vagy legalább is ötletnek jó lesz. -
#21477
alfa20
senior tag
sutyimatyi
#21475
alfa20
senior tag
válasz
sutyimatyi
#21475
üzenetére
Szia,
Csak a ledolgozott órák szerepelnek a táblában vagy van munka kezdés/vége?
nemrég készítettem egy hasonlót abban az alábbi oszlopok voltak:| név | dátum | helyszín | munka kezdés | munka vége | ebéd idő | ledolgozott órák | óra bér | napi bér |
csak az érkezést és a távozást kellett (lehetett) beírni, a többit képlet számolta, szerintem így neked is kivitelezhető, bár attól függ hogy néz ki a táblád.
nem tudsz készíteni egyet az eredeti alapján, arról meg egy képet megosztani, csak hogy lássuk mivel kellene dolgozni? -
alfa20
senior tag
Ha az egyik makró változó értékét szeretném egy másik makróban elérni, azt hogyan tudom elérni.
pl:Sub valami1()
Dim x As Integer
x = Cells(1, 1).Value
valami2
End Sub
Sub valami2()
MsgBox x
End Subpersze nem ezt akarom, de így egyszerű megérteni
mind két makró egy modulban lenne. -
#21380
alfa20
senior tag
ritterkrisz
#21379
alfa20
senior tag
válasz
ritterkrisz
#21379
üzenetére
a cella formátumát állíts álltalánosra, majd nyomj egy F2-t és ENTER-t.
-
#21274
alfa20
senior tag
ZsizsiZsozsó
#21273
alfa20
senior tag
válasz
ZsizsiZsozsó
#21273
üzenetére
írd át a kiterjesztést xlsx-re.
-
#21228
alfa20
senior tag
Crystalheart
#21227
alfa20
senior tag
válasz
Crystalheart
#21227
üzenetére
én megpróbálkoznék egy irányitott szüréssel erre készítenék egy makrót amit meg beállítanék, hogy akkor fusson le, ha aktiv a Print munkafüzet.
-
alfa20
senior tag
sziasztok,
van egy táblám, "A" oszlopban vannak a cikkcsoportok "B" oszlopban termékek a "C"-ben meg a megjegyzések találhatóak + további oszlopok.
A feladat az lenne, hogy a kiválsaztott cikkcsoportokat egy másik munkafüzetbe kellene átmásolni, de csak azokat ahol szerepel megjegyzés a "C" oszlopban.
Mivel nem mindig ugyanazokra a cikkcsoportokra van szükség így az lenne a jó ha előbb bekérné, hogy a listában szereplő cikkcsoportok közül mire van szükség (és mivel a tábla több száz soros így jó lenne, ha egy cikkcsoport csak egyszer szerepelne) .Probálkoztam az irányitott szűréssel is, de mivel ott elakadtam, hogy adjam meg a nem üres cella feltételt, és nem is minden oszlopra van szükség az alaptáblából, így próbálok más lehetőséget keresni.
A szürő lenne a legjobb megoldás, mert akkor csak másolni kellene a megfelelő oszlopokat, de azt nem tudom hogyan kérje be a makró a szűrési keltételeket az "A" oszlophoz.
ebben tudna valaki sehíteni?
-
alfa20
senior tag
válasz
Delila_1
#21000
üzenetére
Szia Delila_1,
ezt belehet állítani, hogy a hónap és a nap is egyformán két számjegyű legyen?
filename:="xxxxxxx-xxxxxxxxxxxxx_" & month(date) & day(date) & ".xlsm"
hogy a mai nap ne így nézzen ki: "xxxxxxx-xxxxxxxxxxxxx_42.xlsm
ha nem így: "xxxxxxx-xxxxxxxxxxxxx_0402.xlsmde ne ezzel a megoldással:
filename:="xxxxxxx-xxxxxxxxxxxxx_0" & month(date) & "0" & day(date) & ".xlsm"
mert így meg a két számjegyű napok lesznek rosszak -
alfa20
senior tag
válasz
alfa20
#21158
üzenetére
Hát ezt én nem értem...
Ha egy fájlt a Excel-ből nyitok meg akkor nem jelez hibát, de ha Excelen kívül nyitom meg, hogy nincs elindítva az Excel, akkor meg hibára fut, de ha megnyitom és rögtön nyomok egy start-ot, akkor meg lefut és szépen be is állítja az automatikus számolást.Van rá valami mód, hogy az Excel a Manuális számolást tiltsa?
A fentiekkel közben az is baj, hogy ha megvan nyitva a program, és megnyitok egy olyan táblát ami ki szokta kapcsolni, akkor újra kikapcsolja nekem az újraszámolást...
-
alfa20
senior tag
Jó reggelt!
Van pár illető akiktől úgy kapok táblát, hogy ki van kapcsolva az automatikus újraszámolás, makró rögzítéssel a PERSONAL.XLSB-ben beraktam egy sort a 'ThisWorkbok' munkafül Open részbe:
Private Sub Workbook_Open()
Application.Calculation = xlAutomatic
End Subde sajnos hibával indul az Excel
van rá mód, hogy az Excel automatikus számolását, automatikusan ellenőrizze és ha kell be is kapcsolja?
-
#21126
alfa20
senior tag
kőbaltazár
#21125
alfa20
senior tag
válasz
kőbaltazár
#21125
üzenetére
Egy kicsit eltér a táblád a leírtaktól, de a lényed.
Az Excel alapesetben (ha nem lett át állítva), akkor az első dátum 1900.01.01. ennek az értéke 1.
Egy üres vagy kitöltetlen cella értéke 0. ami a nulladik nap 1900.01.00.
Ha a nullához 10-et adsz akkor a 10. napot kapod ami 1900.01.10. ezért is ezt a dátumot írja minden hova.
Ha nem szeretnéd ezt a dátumot, akkor az alábbi képletet írd a C1-es cellába:
=HA(B1<1;"";B1+10) -
-
-
alfa20
senior tag
Sziasztok,
Most kicsit ismerkednék a 'Select Case'-el, a feltételnél a képletet, hogy kell megadnom?
egy egyszerű példa:
Ha "A1" cella páros, akkor legyen "B2" szövege "Páros".
Ha "A1" cella páratlan, akkor legyen "B2" szövege "Páratlan".sub paros_paratlan
Select Case Cells(1, 1)
Case Is = IsEven(" & Cells(1, 1) & ")
Cells(1, 2) = "Páros"
Case Else
Cells(1, 2) = "Páratlan"
End Select
end sub -
alfa20
senior tag
Sziasztok,
Van egy makróm ami magában szépen működik, de szeretném egy UserFrom-ba tenni az űrlap részét, az UserFrom kész van a működő makrót is áthelyeztem, viszont rögtön az elején el is akadtam, mert az alábbi résznél hibára fut:
Workbooks.Open Filename:=forras_allnev, UpdateLinks:=False
forras_nev = ActiveWorkbook.Name
A forras_nev nem tetszik neki, pedig az nagyon kellene, mert a fülnév minden nap változik, ez miatt viszont fontos lenne egy váltózóban tárolni a további képlet hivatkozások miatt (és persze mind a 6 táblában vannak fülnevek amiket szintén tárolni kellene)).A makró eleje így néz ki most:
Sub xy_rnd()
Dim forras_allnev As Worksheet, keszlet_allnev As Worksheet, _
ab_allnev As Worksheet, felt_allnev As Worksheet, kert_allnev As Worksheet
forras_allnev = UserForm1.Label1.Caption
keszlet_allnev = UserForm1.Label2.Caption
ab_allnev = UserForm1.Label3.Caption
felt_allnev = UserForm1.Label4.Caption
kert_allnev = UserForm1.Label5.Caption
Unload UserForm1
Workbooks.Open Filename:=forras_allnev, UpdateLinks:=False
forras_nev = ActiveWorkbook.Name
forras_fulnev = ActiveSheet.Name
Workbooks.Open Filename:=forras_allnev
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Rows("2:2").Select
Selection.Delete Shift:=xlUp
Columns("A:A").Select
Selection.Delete Shift:=xlToLeft
Range("A1:AA1").Value = Array("1", "2", "3", "4", "5", _
"6", "7", "8", "9", "10", "11", "12", "13", "14", _
"15", "16", "17", "18", "19", _
"20", "21", "22", "23", "24", "25", "26", "27")eredetiben meg így nézett ki, ami működik is:
Sub xy_rnd()
forras_allnev = Range("c3").Value
keszlet_allnev = Range("c4").Value
ab_allnev = Range("c5").Value
felt_allnev = Range("c6").Value
kert_allnev = Range("c7").Value
aktnev = ActiveWorkbook.Name
Workbooks.Open Filename:=forras_allnev, UpdateLinks:=False
forras_nev = ActiveWorkbook.Name
forras_fulnev = ActiveSheet.Name
stb... -
-
alfa20
senior tag
sziasztok,
most kicsit az űrlap vezérlőkkel ismerkedem, meg az AciveX vezérlőkkel.
olyat szeretnék, hogy egy beviteli listát készítek, amiben van két választási lehetőség pl.:
1.) alma
2.) répa
ha az almát választom, akkor a B2 és B3 cella tartalma legyen "gyümölcs", ha a répát választom, akkor meg legyen "zöldség".ezt a sima űrlap vezérlőkkel simán meg tudom oldani, hogy pl:
D2= alma
D3= répa
a beviteli lista értéke legyen a D4 cella, a B2 és B3 meg legyen egy ha függvény.olyat lehet, hogy ActiveX vezérlővel készítem el, és én adom meg mi legyen a lista tartalma (ne cella hivatkozás), és ha kiválasztom a megfelelőt, akkor a két cella értéke ennek megfelelően változzon?
Visual Basic 2013-ban simán működik a kiíratás de itt nem fogadja el a "(I)ComboBox1.SelectedItem(/I)" parancsot:
VB2013-ban így nézki:
If ComboBox1.SelectedItem = "hello" Then
Label1.Text = "Hello idegen"
ElseIf ComboBox1.SelectedItem = "szia" Then
Label1.Text = "üdvőzletem"
End If -
alfa20
senior tag
válasz
soundsthu
#21042
üzenetére
szia
Az FKERES úgy működik, hogy az első oszlopban meg keresi az első egyezést, majd a megadott oszlopból kiírja az értéket.
A te képleted alapján ez történik:
keresendő szöveg: banán
keresési tartomány: E15:E19
Keresendő érték: 5 azaz az E oszloptól számított 4. oszlop mivel az E az első, azaz I oszlop.
Nálad #HIÁNYZIK mivel nincs egyezés az E oszlopban, nem is lehet, mert ott értékek vannak.ezt a képletet írd be J15-ös cellába, ha az összegre vagy kiváncsi:
=INDEX(E15:I39;HOL.VAN("alma";I15:I39;0);1) -
alfa20
senior tag
válasz
csongi
#21010
üzenetére
esetleg:
A2: "igen/nem"
B2: "=HA(A2="igen";D5;D6)"így mindig "D6" cella értéke lesz amíg B2 nem lesz "igaz"
de ha azt szeretnéd, hogy üres legyen választás előtt:
B2: "=HA(A2="igen";D5;HA(A2="nem";D6;"")"
így viszont ha törlőd az A2 értékét egy üres cellát kapsz B2-benmíg én ezt megírtam addig Delila_1 belőzőtt
-
alfa20
senior tag
Jó reggelt!
Van nekem rész a makróban ami a mentésért felelős:
Sub save()
If Not ActiveWorkbook.Saved Then
msg = "Kivánja menteni a táblázatot? "
msg = msg & "'xxxxxxx-xxxxxxxxxxxxx_" & Date & "xlsm' néven?"
ans = MsgBox(msg, vbQuestion + vbYesNo)
Select Case ans
Case vbYes
ActiveWorkbook.SaveAs Filename:= _
"xxxxxxx-xxxxxxxxxxxxx_" & Date & "xlsm" _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Case vbNo
ThisWorkbook.Saved = True
Exit Sub
End Select
End If
End SubA lényeg, hogy a megadott név mögé teszi az aznapi dátumot aminek a formátuma: yyyy.mm.dd.
be lehet állítani, hogy az év ne szerepeljen a fájl névben csak a hónap és a nap.
Tehát így nézzen ki:
xxxxxxx-xxxxxxxxxxxxx_.mmdd
valahogy így:
Új hozzászólás Aktív témák
Fferi50- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - 15% AKCIÓ
- Game Pass Ultimate előfizetések 1 - 36 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- MS SQL Server 2016, 2017, 2019
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest