- Nvidia GPU-k jövője - amit tudni vélünk
- Milyen billentyűzetet vegyek?
- Raspberry Pi
- Milyen széket vegyek?
- NVIDIA GeForce RTX 4080 /4080S / 4090 (AD103 / 102)
- Mini PC
- Radeon Anti-Lag 2 néven tér vissza az Anti-Lag+
- ASUS ROG Ally
- Milyen TV-t vegyek?
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
Hirdetés
-
Hunt: Showdown - Jön az engine csere, befutnak az újgenerációs verziók
gp A PlayStation 4 és Xbox One változatok automatikusan frissülnek az új kiadásra.
-
1000 Hz-es játékos monitor TCL CSOT recept szerint
ph A vállalat prototípusa kihagyott egy-két lépcsőfokot, ugyanis az elképesztő képfrissítési tempóhoz 4K-t párosít.
-
Leszavazta az ötleteket az Amazon, de jöhet az AI-alapú, havi díjas Alexa
it A befektetők a cég kérésére minden fontos és jelentősnek tűnő javaslatot elutasítottak. Jöhet azonban a havi díjas, AI-alapú Alexa.
-
PROHARDVER!
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
-
Hege1234
addikt
elég sok cellára és tartományra meg kellene csinálnom
scriptelve gyorsabban megcsinálnám
sebességben észre lehetne venni valamit ha a function onEdit script
több száz soros lenne?
csak azért kérdezem mert általában mindenhol viszonylag csak 10-15 soros
scriptek szoktak lenni
lappy
köszi szépen, sokat segített!
kellett a két $=$E$1="pontos szó"
-
logitechh
csendes tag
-
-
carlosss
friss újonc
Sziasztok, némi segítségre lenne szükségem sport eredmények vezetésével kapcsolatos excelben.
Jelenleg 2 munkalappal dolgozom, bár ez még változhat a későbbiekben. Az első munkalap [Meccsek] tartalmazza a bajnokságunk során lejátszandó meccseket, párosítások előre beírva. A meccs lezárultát követően beírom az adott sorba az eredményt, ami a következő munkalapon [Ágrajz] automatikusan bekerül az ágrajz megfelelő celláiba. Eddig rendben is vagyunk, sima cellahivatkozással megoldható.
Az ágrajz végén azonban különböző összetett függvények segítségével kiszámolom a következőket: hány nyertes meccse van az adott játékosnak és hány vesztes. Egy játékos sora végén ezt többszörösen összetett ha függvénnyel oldom meg, ami fix értékekkel eddig jól is működött.
Pl. a győzelmek összeadása így néz ki az ágrajz munkalapon az első játékosnál:
=HA(B2>C2;1;0)+HA(D2>E2;1;0)+HA(F2>G2;1;0)+HA(H2>I2;1;0)+HA(J2>K2;1;0)+HA(L2>M2;1;0)+HA(N2>O2;1;0)+HA(P2>Q2;1;0)+HA(R2>S2;1;0)+HA(T2>U2;1;0)+HA(V2>W2;1;0)+HA(X2>Y2;1;0)
Az eredmény sajnos most mégsem jó, és a probléma a hivatkozásból ered. A cellák ugyan a jó értéket mutatják, de amikor ezekből a hivatkozott cellákból akarom a fenti képletet alkalmazni, akkor nem az értéket veszi figyelembe, hanem a hivatkozott cellákat. Így a =Meccsek!F2 nagyobb, mint a =Meccsek!D2, függetlenül attól, hogy a =Meccsek!D2 értéke magasabb a =Meccsek!F2 értékénél.
Tud valaki erre valami megoldást? Szuper lenne, ha valaki segítene -
carlosss
friss újonc
Köszi, megtaláltam a banális hibát, amit elkövettem. Az alap munkalapon a beírt eredményeknél kis háromszög a sarokban, ha megfelelő helyre mentem pici felkiáltójel, hogy a szám szövegként szerepel. Bár a cella formázást számra állítottam, de ez nem volt elég neki. A felkiáltójelnél ha rányomtam, hogy alakítsa számmá, máris megoldódott a probléma. Ég a bőr a képemről
-
-
Delila_1
Topikgazda
válasz Intel q8200 #46559 üzenetére
Tegyük át a két makrót az egyes lapok helyett a ThisWorkbook laphoz.
A VB szerkesztőben bal oldalon kattints a ThisWorkbook-ra, majd jobb oldalra másold be a két makrót.
A füzet megnyitásakor ez a makró indul:Private Sub Workbook_Open()
Dim oCtrl As Office.CommandBarControl
Application.OnKey "^c", ""
Application.OnKey "^x", ""
Application.OnKey "^v", ""
For Each oCtrl In Application.CommandBars.FindControls(ID:=21)
oCtrl.Enabled = False
Next oCtrl
For Each oCtrl In Application.CommandBars.FindControls(ID:=19)
oCtrl.Enabled = False
Next oCtrl
Application.CellDragAndDrop = False
End Sub
Bezárás előtt automatikusan pedig ez:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim oCtrl As Office.CommandBarControl
Application.OnKey "^c"
Application.OnKey "^x"
Application.OnKey "^v"
For Each oCtrl In Application.CommandBars.FindControls(ID:=21)
oCtrl.Enabled = True
Next oCtrl
For Each oCtrl In Application.CommandBars.FindControls(ID:=19)
oCtrl.Enabled = True
Next oCtrl
Application.CellDragAndDrop = True
End Sub
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
logitechh
csendes tag
-
pecze
aktív tag
Sziasztok!
Ha úgymond táblaneveket használok egy táblázatban (pl. Táblázat1[Ország]) és a képletben szükség lenne arra, hogy ez az oszlop ne változzon a képlet másolásakor, akkor mit lehet tenni? Próbáltam dollározni, de nem igazán tetszett neki, illetve ha lehet, akkor nem kapcsolnám ki a beállításokban, mert ezekkel az elnevezésekkel dolgoznék szívesen.
-
logitechh
csendes tag
válasz logitechh #46561 üzenetére
Sziasztok!
Összetákoltam valait de sajnos valami nem ok.
Össze vissza megismétli a nevet és nem mindig abba a mappába ment ahová kellene hanem egyel kijjebb majd ismét egy mappával kijjebb
Esetleg valaki tudja hol ronthattam el?Sub AutomatikusMentes()
ActiveSheetExportToTXT
MunkalapAtnevez
ActiveSheetExportToXLSM
End Sub
Sub MunkalapAtnevez()
Dim strMunkalapNev As String 'hely foglalás a memóriában
strMunkalapNev = "létszámjelentő" 'név deklarálása
ActiveSheet.Select 'aktív munkalap kijelölése
ActiveSheet.Name = strMunkalapNev 'aktív munkalap neének megadása a deklarált név alapján
End Sub
Sub ActiveSheetExportToTXT()
'aktív munkalap lementése a név:a munkafüzet neve_létszám_dátum_óra perc_másodperc
cntr = ""
If Dir(ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) & "_Dezsike_" & cntr & ".txt") = "" Then GoTo xprt
If Dir(ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) & "_Dezsike_" & cntr & ".txt") <> "" Then
cntr = 1
Do Until Dir(ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) & "_Dezsike_" & cntr & ".txt") = ""
cntr = cntr + 1
Loop
End If
xprt:
ActiveWorkbook.SaveAs filename:= _
ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) & "_Dezsike_" & Format(Now, "yyyymmdd_hhnn_ss") & ".txt", _
FileFormat:=xlText, _
CreateBackup:=False
End Sub
Sub ActiveSheetExportToXLSM()
'aktív munkalap lementése a név:a munkafüzet neve_létszám_dátum_óra perc_másodperc
cntr = ""
If Dir(ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) & "Létszámjelentő" & cntr & ".xlsm") = "" Then GoTo xprt
If Dir(ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) & "Létszámjelentő" & cntr & ".xlsm") <> "" Then
cntr = 1
Do Until Dir(ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) & "Létszámjelentő" & cntr & ".xlsm") = ""
cntr = cntr + 1
Loop
End If
xprt:
ActiveWorkbook.SaveAs filename:= _
ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) & "Létszámjelentő" & Format(Now, "yyyymmdd_hhnn_ss") & ".xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub[ Szerkesztve ]
-
Pakliman
tag
válasz logitechh #46565 üzenetére
Szia!
Mindkét exportos eljárásban az éppen aktív MUNKAFÜZETET NEVEZED ÁT (ActiveWorkbook.SaveAs)!
Mellékszál:
Sokszor hajtatod végre vele ugyanazokat a műveleteket.
Ezeket kiküszöbölheted egy egyszeri értékadással:sNewNamePart1 = ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) & "_Dezsike_"
A cntr használatának nem látom semmiféle értelmét, hiszen a fájlnévben nem sorszámozást vagy darabszámot használsz, hanem pontos időt (persze lehet ebből is több, ha másodpercenként többször is lefut a program!!)
Ez egy lehetőség (ha kell, át tudod alakítani xls exportra is):
Sub ActiveSheetExportToTXT()
Dim sNewName As String 'A létrehozandó fájl neve
Dim sSheetName As String 'A mentendő munkalap neve
Dim sSheetFIX As String 'A FIX cellát tartalmazó munkalap neve
'Névnek a munkalap nevét és egy FIX cellából vett értéket szeretném plusz az aktuális dátum időpont másodpercre pontosan.
sSheetFIX = "A FIX cellát tartalmazó munkalap neve"
sSheetName = "A mentendő Munkalap neve"
sNewName = ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) & "_Dezsike_" & Worksheets(sSheetFIX).Range("FIX cella") & "_" & Format(Now, "yyyymmdd_hhnn_ss") & ".txt"
Worksheets(sSheetName).Copy
ActiveWorkbook.SaveAs Filename:=sNewName, FileFormat:=xlText, CreateBackup:=False
End Sub[ Szerkesztve ]
-
[w]
őstag
segítséget szeretnék kérni annak megoldásához, hogy szűrő használata esetén ne szűrje ki a tábla legalján található összesen sort is
nem tudom mi okozza, de van erre megoldás?
cmdr PETER W. VOLKOV
-
kutga
nagyúr
Hölgyek/Urak!
Van egy ehhez hasonló excel táblám:
Sorszám Eladó Bruttó összeg Számla kelte
KSZ-1 abc Kft. 123 Ft 2020.12.21Készítettem egy userformot, amivel új sort lehet benne megadni, a kérdésem, hogy hogyan tudnám vba-ban megoldani, hogy a sorszám mindig eggyel növekedjen?
Eddig jutottam a kódrészletben.
Private Sub btRogzit_Click()
Dim emptyRow As Long
Munka2.Activate
emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1
Cells(emptyRow, 1).Value = "KSZ-" & tbSorszam.Value
Cells(emptyRow, 2).Value = tbElado.Value
Cells(emptyRow, 3).Value = tbBrutto.Value
Cells(emptyRow, 5).Value = cbEv.Value & "/" & cbHonap.Value & "/" & cbNap.Value
Unload Me
End Sub[ Szerkesztve ]
Let the Zone take me if I am.
-
Pakliman
tag
Sub btRogzit_Click()
Dim sor As Long
Dim lMax As Long
Dim l As Long
Dim emptyRow As Long
Munka2.Activate
emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1
For sor = 1 To emptyRow - 1
If Cells(sor, 1) Like "KSZ-#*" Then
l = Mid(Cells(sor, 1), 5)
If l > lMax Then lMax = l
End If
Next sor
Cells(emptyRow, 1).Value = "KSZ-" & lMax + 1 'tbSorszam.Value -> többé nem kell:)
Cells(emptyRow, 2).Value = tbElado.Value
Cells(emptyRow, 3).Value = tbBrutto.Value
Cells(emptyRow, 5).Value = cbEv.Value & "/" & cbHonap.Value & "/" & cbNap.Value
Unload Me
End Sub[ Szerkesztve ]
-
Ukeve
tag
Sziasztok!
Szeretnék többszintű legördülő listát létrehozni az adataimnak, ehhez meg is találtam ezt a tutorialt. Csak egyetlen problémám van vele, hogy ez így túl zsúfolt, ezért a példában szereplő ország-város adatokat szeretném átvinni egy új munkalapra (pl. adatok). Ebben az esetben, viszont már ugye nem fognak jól működni a képletek. Mit kéne módosítanom rajtuk ahhoz, hogy a hozzáadott új munkalappal is jól működjenek a képletek? Próbálkoztam azzal, hogy egy új névtartományt hoztam létre, ami az előtte lévő cellában lévő értéket vizsgálja meg, mint a Uselist, de ez így nem működött sajnos. Tudnátok segíteni ebben?
Előre is köszönöm a segítséget!
-
anonymus89
addikt
Sziasztok, jogosultsági beállításokat csv formátumban lehet kinyerni egy rendszerben.
Beimportálva excel táblába és amivel szükséges kiegészítettem de már készen vagyok.
Milyen módon tudnám visszanyerni ugyanolyan pontos vesszős formátumba mint a kezdetek kezdetén, hogy be tudtam importálni a felületen a kibővített jogosultságokat?[ Szerkesztve ]
Organikus, természetes összetevőjű, 100% tisztaságú bőrápoló termékek //marcsiszappan.hu//
-
lappy
őstag
válasz anonymus89 #46585 üzenetére
https://www.ablebits.com/office-addins-blog/2014/04/24/convert-excel-csv/
Bámulatos hol tart már a tudomány!
-
lappy
őstag
válasz anonymus89 #46588 üzenetére
mivel nem tudjuk hogy neked hova kell , ami majd ; lesz így nehéz segíteni
amit mutattam abból tudsz kiindulni vagy hasonló megoldásokból[ Szerkesztve ]
Bámulatos hol tart már a tudomány!
-
Mutt
aktív tag
válasz anonymus89 #46590 üzenetére
Szia,
CSV-be mentéshez nézd meg a https://github.com/viszi/codes/tree/master/Excel/Useful/Export2CSV oldalon található kódomat.
Ha addin-né konvertálod, akkor folyamatosan elérhető lesz és akár saját menübe is kirakható.
üdv
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
zsoltzsolt
addikt
Van egy excel táblázat, amiben intézmények adatai vannak, a G oszlopban az e-mail címek. Hogyan tudnék ezen intézményeknek a legegyszerűbben e-mailt küldeni?
Köszönöm előre is a segítséget! -
lappy
őstag
válasz zsoltzsolt #46592 üzenetére
Google keresőbe beirod a megfelelő kulcsszavakat és utána tudsz nézni neked megfelelőt.
Makró szükséges hozzá főleg ha automatikusan többet szeretnél küldeni[ Szerkesztve ]
Bámulatos hol tart már a tudomány!
-
Ukeve
tag
Igen, ezzel tisztában vagyok. Csináltam egy Vizsgalat nevű függvényt a Uselist mintájára, amit csak a C oszlopra alkalmazok. Ebben a függvényben szeretném ugye megkeresni a B oszlop adott cellájának az értékét az 'adatok' munkalapon. Abban nem vagyok biztos, hogy kell-e még módosítanom a többi függvényen, ahhoz hogy a Vizsgalat jól működjön.
A Vizsgalatnak ez a kódja:
=INDEX(ValData;1;HOL.VAN(Adatbevitel!B2;adatok!$1:$1;0)):INDEX(ValData;Counter;HOL.VAN(Adatbevitel!B2;adatok!$1:$1;0)) -
Hege1234
addikt
Sziasztok!
google sheets-ben TEXTJOIN-al összetettem pár cellát/oszlopot
hogyan lehetne azt megoldani, hogy
csak akkor mutassa az összetett cellák szövegét ha B3 nem üres?KG
=TEXTJOIN(" ";true;A$1;B$2;A3;" - ";B3)ez mindig az állandó:
2021.05.07 - Péntek KGUP
=TEXTJOIN(" ";true;A$1;D$2;A3;" - ";D3)itt pedig ez:
2021.05.07 - Péntek UPehhez kapcsolódik az idő(A3) B3(adatok) oszlop pl:
2021.05.07 - Péntek KG 07:30 - tetoválás
2021.05.07 - Péntek UP 14:00 - tetoválásösszetéve a cellákat így néz ki
[kép3]végeredményt valahogy így képzelem el összesítve a napot
bár a növekvő idő miatt nem tudom meg lehetne-e így szűrni
és hogy a sorrend se változzon és ahogy most újra átgondolva
mivel kettészedtem KG-re és UP-ra a textjoin-t lesz jó pár sor kihagyás is2021.05.07 - Péntek KG 07:30 - tetoválás
2021.05.07 - Péntek KG 11:00 - smink2021.05.07 - Péntek UP 14:00 - tetoválás
2021.05.07 - Péntek UP 17:00 - tetováláspróbáltam a concat-ot is de mivel nem szöveg a dátum ezért csak egy hosszú számsort kaptam a dátum helyett
=PROPER(TEXT(DATE(2021;5;7);"yyyy.mm.dd - dddd"))köszönöm előre is!
-
Mutt
aktív tag
válasz zsoltzsolt #46592 üzenetére
Word Körlevél funkció (angolul Mail merge) kell neked.
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
-
[w]
őstag
olyat lehet csinálni, hogy ha sok (több száz) munkafüzetben kitöltetlen maradt ugyanaz az 1 cella (pl. végéről a készítő neve), akkor azt valamiféle automatizálással kitölteni, majd elmenteni, bezárni és jöhet a következő?
cmdr PETER W. VOLKOV
Új hozzászólás Aktív témák
- Eredeti Windows 10, Windows 11, Office Akció: Office 2021, Office 2019, Office 2016 csak Retail
- Star Wars Outlaws (PC), akár ingyen is
- Final Fantasy XIII + Final Fantasy XIII-2 + Square Enix kód
- World of Warcraft +2 Expansion díszdobozos kiadás gyűjtőknek
- Office 2021 Home Business Mac/PC Licensz Fizikai Kártya
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Alpha Laptopszerviz Kft.
Város: Pécs