- Asszociációs játék. :)
- Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- Fűzzük össze a szavakat :)
- Mindent a StreamSharkról!
- Szólánc.
- Bambanő háza tája
- Nagy "hülyétkapokazapróktól" topik
- Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- PLEX: multimédia az egész lakásban
- Ingyen kellene, de tegnapra
-
LOGOUT.hu
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
-
Fferi50
Topikgazda
válasz
butch3r
#39157
üzenetére
Szia!
Egy munkalaphoz így módosítsd:
Sub ertekado()
Dim sh As Worksheet, sr As Integer
'For Each sh In Worksheets
For sr = 7 To 123 Step 4
sh.Range("C" & sr & ":N" & sr).Value = sh.Range("C" & sr & ":N" & sr).Value
Next
'Next
End Sub
Ha csak elrejtett lapon van pivot, akkorSub ertekado()
Dim sh As Worksheet, sr As Integer
For Each sh In Worksheets
If sh,Visible=xlsheetVisible then
For sr = 7 To 123 Step 4
sh.Range("C" & sr & ":N" & sr).Value = sh.Range("C" & sr & ":N" & sr).Value
Next
End If
Next
End Sub
Ha máshol is lehet, akkor a feltétel a For Each után:If sh.Pivottables.Count >0 ThenÜdv.
-
Fferi50
Topikgazda
válasz
butch3r
#39157
üzenetére
Szia!
Ha csak az elrejtett fülön van pivot, akkor így módosítsd:
Sub ertekado()
Dim sh As Worksheet, sr As Integer
For Each sh In Worksheets
If sh.Visible=xlSheetVisible Then
For sr = 7 To 123 Step 4
sh.Range("C" & sr & ":N" & sr).Value = sh.Range("C" & sr & ":N" & sr).Value
Next
End If
Next
End Sub
Ha máshol is lehet, akkorIf sh.Pivottables.Count = 0 Then 'legyen a feltételben a For Each után
Ha viszont csak az aktuális munkalapon szeretnéd alkalmazni, akkor csak a Dim és a For ...Next ciklust hagyd benne, a többit kommenteld ki (aposztróf ' a sor elejére)Üdv.
-
Fferi50
Topikgazda
válasz
butch3r
#36071
üzenetére
Szia!
Nekem úgy sikerült, hogy az adott series pontjain végigmenve írtam át az értékeket. Azaz minden sorozat minden pontján végig kell menni ciklussal, egy lépésben nem sikerült, legalábbis nekem nem.
Dim sr As Series, pt As Point, labelrange As Range, xx As Integer
For Each sr In Charts(1).SeriesCollection
Set labelrange = Sheets("Sheet1").Range("A1:X1")
For xx = 1 To sr.Points.Count
sr.Points(xx).DatalLabel.Text = labelrange.Cells(xx).Value 'itt kapja meg a pont a cella értékét.
Next
Next
Üdv. -
Fferi50
Topikgazda
válasz
butch3r
#35341
üzenetére
Szia!
Itt van egy megoldási javaslat:
=SUM(INDEX(AB1:AY10;MATCH(A2;A1:A10;0);MATCH(AS1;AB1:AY1;0)):INDEX(AB1:AY10;MATCH(A2;A1:A10;0);MATCH(AU1;AB1:AY1;0)))Dátumok az AB1:AY1, adatok az AB2:AY10, azonosítók az A1:A10 területen. Próbáld adaptálni a sajátodhoz. (Ne zavarjon meg, hogy a keresendő értékeket a területekben levő cellákból vettem - lustaság az oka - , természetesen máshol választhatók.)
Az INDEX függvény ilyenkor Hivatkozásokat ad vissza a SZUM függvénynek! - lásd kettőspont a két INDEX függvény között.
Az első index eredménye a kezdő dátumhoz tartozó olyan cella, amelyik az azonosító sorában van, a második index eredménye a befejező dátumhoz tartozó hasonló cella. A kettő között összegez a SUM.
Egy kritérium: A dátumoknak a dátumot tartalmazó sorban rendezettnek kell lenniük. (Nem a MATCH miatt, az megeszi ebben az esetben, hanem azért, hogy nehogy kilógjon valamelyik dátum a kezdő és végső dátumból.)
Remélem sikerülni fog.
Üdv.
-
0P1
aktív tag
válasz
butch3r
#34962
üzenetére
Pedig általában a 64 bit szokott megoldás lenni ilyesmire.
Ha egy bizonyos fülről akarod beszedni mindegyik workbbokból, akkor felesleges beolvasnod az összes munkafüzet összes munkalapját. Érdemes egy UDF-et csinálnod rá. Este vagy holnap reggel írok rá instrukciót, hogyan kell.
-
DeFranco
nagyúr
-
Delila_1
veterán
-
Pakliman
tag
válasz
butch3r
#33016
üzenetére
Szia!
Sajnos már én is jártam így
Milliószor töröltem a sorokat, mentés, megnyitás, és az excel még mindig baromi sok sort "érzékel"
A megoldás az volt, hogy új munkalap vagy munkafüzet létrehoz, szükséges adatokat tartalmazó terület kijelöl, újba átmásol, ment, régi kidob ÉS
-
Delila_1
veterán
válasz
butch3r
#32330
üzenetére
Konvertálhatod a diagramjaidat pl. gif-be, majd beilleszted azokat a bemutatódba a kedved szerinti helyre. A gif-ek szélessége és magassága megegyezik a diagramok méreteivel.
Sub Diagram_Konvertalas()
Dim szamlalo As Integer, x As Integer, diagram As Object
For x = 1 To ActiveSheet.ChartObjects.Count
ActiveSheet.ChartObjects(x).Activate
Set diagram = Selection.Chart
diagram.Export Filename:=ThisWorkbook.Path & "\" & _
"Diagram " & szamlalo + 1 & ".gif", FilterName:="gif"
szamlalo = szamlalo + 1
Next
End Sub -
sztanozs
veterán
-
sztanozs
veterán
válasz
butch3r
#30300
üzenetére
Public Sub ttt()
Dim r1 As Range
Set r1 = Application.Intersect(Workbooks("Book1").Sheets("Sheet1").Range("B25:D65535"), Workbooks("Book1").Sheets("Sheet1").UsedRange)
Dim v1
v1 = r1.Value2
Dim r2 As Range
Set r2 = Application.Intersect(Workbooks("Book2").Sheets("Sheet1").Range("B25:D65535"), Workbooks("Book2").Sheets("Sheet1").UsedRange)
Dim v2
v2 = r2.Value2
Dim oldbound, newbound
oldbound = UBound(v1, 1)
newbound = oldbound + UBound(v2, 1)
Dim v_cel()
ReDim Preserve v_cel(1 To newbound, 1 To 3)
Dim ix, iy
For ix = 1 To UBound(v1, 1)
For iy = 1 To 3
v_cel(ix, iy) = v1(ix, iy)
Next
Next
For ix = 1 To UBound(v2, 1)
For iy = 1 To 3
v_cel(oldbound + ix, iy) = v2(ix, iy)
Next
Next
Dim r_cel As Range
Dim kezdosor
kezdosor = 10
Set r_cel = Workbooks("Book1").Sheets("Sheet2").Range("B" & kezdosor & ":D" & kezdosor + UBound(v1, 1) - 1)
r_cel.Value2 = v1
End Sub -
Grodd
tag
válasz
butch3r
#30300
üzenetére
Szia, ez nem olyan kompex, mint ahogy gondolod, valójában egy igen szimpla lekérdezés, pár egérkattintás az egész
Többféleképpen meg lehet oldani, de a makró az az eszköz, ami nekem utoljára eszembe jutna)
Más eszközökkel sokkal egyszerűbb.
A két leginkább alkalmas a Microsoft Query vagy a PowerQuery.Utóbbi kulturáltabb, de vagy Excel 2016 kell hozzá, vagy Office 365, vagy Excel 2010-2013 mellé PowerQuery add-in (ingyenesen tölrthető a Microsoft oldaláról)
Microsoft Query-ben egy pár egérkattintással több, és ha teljesen rugalmasra és automatizáltra akarod csinálni, akkor igényelni fog egy VBA sort is (PQuery-hez annyi sem kell).Persze megondható makróban is, nem nagy kunszt, ha feltétlenül ahhoz ragaszkodsz hozzá, de miért akarjunk fúróval szöget verni ?
Oszdd meg valahol a filet, és megcsinálom mindkét módon.
65535-ről I25
65535-re
Új hozzászólás Aktív témák
Fferi50- Új design és okosabb AI: megjött a Galaxy S25 készülékcsalád
- BestBuy topik
- Asszociációs játék. :)
- Windows 11
- Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- E-book olvasók
- Villanyszerelés
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- The Division 2 (PC, XO, PS4)
- MSI notebookok
- További aktív témák...