Keresés: - Microsoft Excel topic - Fototrend Hozzászólások

LOGOUT témák

PROHARDVER! témák

Mobilarena témák

IT café témák

GAMEPOD témák

Keresés

Téma összefoglaló

Utoljára frissítve: 2023-11-13 08:31

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

#5738 Pulsar veterán dtpeter #5737

Új Válasz 2009-11-24 23:59:08 #5738
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Pulsar

veterán

válasz dtpeter #5737 üzenetére

az tudom, hogy deklarálni így tudsz:
Dim stradat(2) As String
stradat(1) = "akarmi"
stradat(2) = "barmi"
azt is tudom, hogy az első sorba a zárójelbe ha írsz értéket az lesz a tömb maximális mérete, ha üresen hagyod dinamikus lesz.
Csak azt nem tudom hogyan tudsz a tömb elemeire hivatkozni
De engem is érdekelne valaki megoldása.
#5735 Pulsar veterán Delila_1 #5730

Új Válasz 2009-11-23 21:04:07 #5735
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Pulsar

veterán

válasz Delila_1 #5730 üzenetére

elküldtem
#5728 Pulsar veterán Delila_1 #5727

Új Válasz 2009-11-23 18:49:34 #5728
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Pulsar

veterán

válasz Delila_1 #5727 üzenetére

őő akarom mondai hülye vagyok
szóval feladom.
megírom akkor 19 szer így...
Sub receiving() Sheets("IDE_MASOLD").Select Dim sor, q, w, x, y, z, adat, ossz, fil q = 0: w = 0: x = 0: y = 0: z = 0: ossz = 0 filteregy = Range("Data!C23").Text For sor = 1 To ActiveSheet.UsedRange.Rows.Count adat = Cells(sor, 13) If Cells(sor, 4) = filteregy And Cells(sor, 17) = "Warehouse Receiving - OOW" Then If adat = " 1-10" Then q = q + 1 If adat = "11-20" Then w = w + 1 If adat = "21-30" Then x = x + 1 If adat = "31-60" Then y = y + 1 If adat = "61- " Then z = z + 1 End If ossz = q + w + x + y + z Next Sheets("Data").Cells(2, 1) = ossz Sheets("Data").Cells(5, 1) = q Sheets("Data").Cells(8, 1) = w Sheets("Data").Cells(11, 1) = x Sheets("Data").Cells(14, 1) = y Sheets("Data").Cells(17, 1) = z End Sub Sub visual() Sheets("IDE_MASOLD").Select Dim sor, q, w, x, y, z, adat, ossz, fil q = 0: w = 0: x = 0: y = 0: z = 0: ossz = 0 filteregy = Range("Data!C23").Text For sor = 1 To ActiveSheet.UsedRange.Rows.Count adat = Cells(sor, 13) If Cells(sor, 4) = filteregy And Cells(sor, 17) = "Visual Inspection - OOW" Then If adat = " 1-10" Then q = q + 1 If adat = "11-20" Then w = w + 1 If adat = "21-30" Then x = x + 1 If adat = "31-60" Then y = y + 1 If adat = "61- " Then z = z + 1 End If ossz = q + w + x + y + z Next Sheets("Data").Cells(2, 2) = ossz Sheets("Data").Cells(5, 2) = q Sheets("Data").Cells(8, 2) = w Sheets("Data").Cells(11, 2) = x Sheets("Data").Cells(14, 2) = y Sheets("Data").Cells(17, 2) = z End Sub Sub quicktest() Sheets("IDE_MASOLD").Select Dim sor, q, w, x, y, z, adat, ossz, fil q = 0: w = 0: x = 0: y = 0: z = 0: ossz = 0 filteregy = Range("Data!C23").Text For sor = 1 To ActiveSheet.UsedRange.Rows.Count adat = Cells(sor, 13) If Cells(sor, 4) = filteregy And Cells(sor, 17) = "Quick Test - OOW" Then If adat = " 1-10" Then q = q + 1 If adat = "11-20" Then w = w + 1 If adat = "21-30" Then x = x + 1 If adat = "31-60" Then y = y + 1 If adat = "61- " Then z = z + 1 End If ossz = q + w + x + y + z Next Sheets("Data").Cells(2, 3) = ossz Sheets("Data").Cells(5, 3) = q Sheets("Data").Cells(8, 3) = w Sheets("Data").Cells(11, 3) = x Sheets("Data").Cells(14, 3) = y Sheets("Data").Cells(17, 3) = z End Sub
#5726 Pulsar veterán Delila_1 #5724

Új Válasz 2009-11-23 18:41:05 #5726
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Pulsar

veterán

válasz Delila_1 #5724 üzenetére

de ott eltünt a három kritériumból a középső.
#5725 Pulsar veterán Delila_1 #5723

Új Válasz 2009-11-23 18:39:43 #5725
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Pulsar

veterán

válasz Delila_1 #5723 üzenetére

ja, bocs, elgépeltem
megcsináltam ahogy mondod, de nem jó
Sub visual() Sheets("IDE_MASOLD").Select Dim sor, q, w, x, y, z, adat, ossz, fil q = 0: w = 0: x = 0: y = 0: z = 0: ossz = 0 filteregy = Range("Data!C23").Text For fil = 1 To 19 For sor = 1 To ActiveSheet.UsedRange.Rows.Count filterketto = Range("Data!AA & fil").Text adat = Cells(sor, 13) If Cells(sor, 4) = filteregy And Cells(sor, 17) = filterketto Then If adat = " 1-10" Then q = q + 1 If adat = "11-20" Then w = w + 1 If adat = "21-30" Then x = x + 1 If adat = "31-60" Then y = y + 1 If adat = "61- " Then z = z + 1 End If ossz = q + w + x + y + z Next Sheets("Data").Cells(2, 2 + fil) = ossz Sheets("Data").Cells(5, 2 + fil) = q Sheets("Data").Cells(8, 2 + fil) = w Sheets("Data").Cells(11, 2 + fil) = x Sheets("Data").Cells(14, 2 + fil) = y Sheets("Data").Cells(17, 2 + fil) = z End Sub
a hiba az hogy "For without Next"
hát ha jól értem akkor minden for ciklushoz kellene tartozni egy next-nek.
csak nem tudom hova kéne írni
#5722 Pulsar veterán

Új Válasz 2009-11-23 17:01:28 #5722
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Pulsar

veterán

Macróba mi a joker karakter?
#5721 Pulsar veterán Delila_1 #5715

Új Válasz 2009-11-23 16:27:57 #5721
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Pulsar

veterán

válasz Delila_1 #5715 üzenetére

Szia!
alakul
szóval al ényeg, hogy az első (sor, 3) az a data!23-ból olvasom ki.
a második (sor, 13) az "adat"
a harmadik pedig 19 féle állapot.
én így akartam megoldani, de így nem jó
Sub visual() Sheets("IDE_MASOLD").Select Dim sor, q, w, x, y, z, adat, ossz, fil q = 0: w = 0: x = 0: y = 0: z = 0: ossz = 0 For fil = 1 To 19 filteregy = Range("Data!C23").Text filterketto = Range("Data!AA & fill").Text For sor = 1 To ActiveSheet.UsedRange.Rows.Count adat = Cells(sor, 13) If Cells(sor, 4) = filteregy And Cells(sor, 17) = filterketto Then If adat = " 1-10" Then q = q + 1 If adat = "11-20" Then w = w + 1 If adat = "21-30" Then x = x + 1 If adat = "31-60" Then y = y + 1 If adat = "61- " Then z = z + 1 End If ossz = q + w + x + y + z Next Sheets("Data").Cells(2, 2 + fil) = ossz Sheets("Data").Cells(5, 2 + fil) = q Sheets("Data").Cells(8, 2 + fil) = w Sheets("Data").Cells(11, 2 + fil) = x Sheets("Data").Cells(14, 2 + fil) = y Sheets("Data").Cells(17, 2 + fil) = z End Sub
Érted így, hogy mit szeretnék?
tehát hogy az első érték az fix, vagyis az eleén eldől, hogy a vagy b.
a másik két értéken viszont minden lehetőségen végig kellene menni.
#5712 Pulsar veterán Delila_1 #5709

Új Válasz 2009-11-23 12:32:19 #5712
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Pulsar

veterán

válasz Delila_1 #5709 üzenetére

nincs filter kettő.
részben arra gondoltam amit a (#5704) hsz-ben csináltál, csak azzal megspékelve, hogy a sor,17 értékét is szeretném 19 féle képpen módosítani.
tehát végigszámolni a már megadott módon, és utánna a sor, 17 értéke változik
szerk:
vagy egyszerűbb lenne ha pl a data sheet AA1:AA19-ig lennének ezek az értékek, és így lehetne filter kettő?
#5702 Pulsar veterán Pulsar #5701

Új Válasz 2009-11-23 10:55:53 #5702
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Pulsar

veterán

válasz Pulsar #5701 üzenetére

illetve a végét módosította, ahogy írtad...
Sheets("Data"). Cells(25, 2) = q
Sheets("Data").Cells(26, 2) = w
Sheets("Data").Cells(27, 2) = x
Sheets("Data").Cells(28, 2) = y
Sheets("Data").Cells(29, 2) = z
Így gyorsabb...
Esetleg arra ötleted, hogy ne kelljen így külön megírni mindet, hanem ugorjon a következő étékre, és fusson le úgy is? Érted amit kérdezni szeretnék?
#5701 Pulsar veterán Pulsar #5700

Új Válasz 2009-11-23 10:37:20 #5701
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Pulsar

veterán

válasz Pulsar #5700 üzenetére

így gondolotam
Sub visua11() Sheets("IDE_MASOLD").Select filteregy = Range("Data!C23").Text Dim sor, sor1, sor2, sor3, sor4, q, w, x, y, z q = 0 w = 0 x = 0 y = 0 z = 0 For sor = 1 To ActiveSheet.UsedRange.Rows.Count If Cells(sor, 4) = filteregy And Cells(sor, 13) = " 1-10" And _ Cells(sor, 17) = "Visual Inspection - OOW" Then q = q + 1 Next For sor1 = 1 To ActiveSheet.UsedRange.Rows.Count If Cells(sor1, 4) = filteregy And Cells(sor1, 13) = "11-20" And _ Cells(sor1, 17) = "Visual Inspection - OOW" Then w = w + 1 Next For sor2 = 1 To ActiveSheet.UsedRange.Rows.Count If Cells(sor2, 4) = filteregy And Cells(sor2, 13) = "21-30" And _ Cells(sor2, 17) = "Visual Inspection - OOW" Then x = x + 1 Next For sor3 = 1 To ActiveSheet.UsedRange.Rows.Count If Cells(sor3, 4) = filteregy And Cells(sor3, 13) = "31-60" And _ Cells(sor3, 17) = "Visual Inspection - OOW" Then y = y + 1 Next For sor4 = 1 To ActiveSheet.UsedRange.Rows.Count If Cells(sor4, 4) = filteregy And Cells(sor4, 13) = "61- " And _ Cells(sor4, 17) = "Visual Inspection - OOW" Then z = z + 1 Next Sheets("Data").Select Cells(25, 2) = q Cells(26, 2) = w Cells(27, 2) = x Cells(28, 2) = y Cells(29, 2) = z End Sub
#5700 Pulsar veterán Delila_1 #5699

Új Válasz 2009-11-23 09:56:10 #5700
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Pulsar

veterán

válasz Delila_1 #5699 üzenetére

Szia!
az Application.ScreenUpdating ismerem köszi
hát itt tartok, hátha így érthetőbb.
Sub visual() Sheets("IDE_MASOLD").Select filteregy = Range("Data!C23").Text Dim sor, x Dim sor1, y x = 0 y = 0 For sor = 1 To ActiveSheet.UsedRange.Rows.Count If Cells(sor, 4) = filteregy And Cells(sor, 13) = " 1-10" And _ Cells(sor, 17) = "Visual Inspection - OOW" Then x = x + 1 Next For sor1 = 1 To ActiveSheet.UsedRange.Rows.Count If Cells(sor1, 4) = filteregy And Cells(sor1, 13) = "21-30" And _ Cells(sor1, 17) = "Visual Inspection - OOW" Then y = y + 1 Next Sheets("Data").Select Cells(25, 2) = x Cells(26, 2) = y End Sub
Szóval a filteregy egy olyan érték, ami két féle lehet (most, majd a végén 5 lesz ) és egy cellából olvasom ki
a (sor,4) 5 + 1 különöböző állapotot vehet fel, és a (sor, 17) pedig 19 féle lehet
így jön ki a 114
#5697 Pulsar veterán Pulsar #5696

Új Válasz 2009-11-22 19:18:37 #5697
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Pulsar

veterán

válasz Pulsar #5696 üzenetére

tárgytalan mindkettő.
addig próbálgattam még összejött...
köszi
#5696 Pulsar veterán Delila_1 #5694

Új Válasz 2009-11-22 18:26:27 #5696
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Pulsar

veterán

válasz Delila_1 #5694 üzenetére

illetve ha egy másik sheetre akarom az eredményt, akkor muszáj ezt így csinálni?
Sheets("Data").Select Cells(14, 1) = x
csak mert mire 114-szer ide oda váltok sheet-et elég lassú
#5695 Pulsar veterán Delila_1 #5694

Új Válasz 2009-11-22 17:24:21 #5695
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Pulsar

veterán

válasz Delila_1 #5694 üzenetére

Köszönöm
ezt meg tudnád mondani, hogy mit csináljak, ha ugyanezt aarom többször berakni egy macroba? az x-et nevezzem át?
vagy van valami más megoldás?
#5693 Pulsar veterán Delila_1 #5685

Új Válasz 2009-11-22 14:19:00 #5693
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Pulsar

veterán

válasz Delila_1 #5685 üzenetére

Szia!
Köszönöm, állatsák, működik, és még azt is értem, hogy miért Tényleg köszi
már csak két kérdésem lenne... vagyis már csak egy, mert megoldottam közbe az egyiket mire leírtam
hogy tudom nem message box-ba írni az infót, hanem egy megadott cellába?

szerk:
ja, a 25-ször dolgot úgy értettem, hogy a három érték közül valamelyik mindig változik.
és így nem 25 hanem 114 variációm van.
#5683 Pulsar veterán Vasinger! #5646

Új Válasz 2009-11-22 07:48:49 #5683
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Pulsar

veterán

válasz Vasinger! #5646 üzenetére

én ilyen esetben text (szöveg)-et szoktam választani.
#5682 Pulsar veterán

Új Válasz 2009-11-22 07:08:12 #5682
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Pulsar

veterán

Sziasztok!
a következőt szeretném megoldani egyszerűbben.
van egy adathalmazom. össze kell számolni a q oszlopban az x-eket akkor ha a d-ben talál y-t, és a és az m-ben o-t.
én az így oldottam meg most, hogy leszűröm a megfelelő adatokra az oszlopokat, a létrejött tartalmat átmásolom egy data2 sheet-re, a data sheet-en egy counta függvénnyel összeszámolom, és az értéket lemásolom.
így:
Sheets("IDE_MASOLD").Select Rows("1:1").Select Selection.AutoFilter Selection.AutoFilter Field:=4, Criteria1:="y" Selection.AutoFilter Field:=13, Criteria1:="o" Selection.AutoFilter Field:=17, Criteria1:="x" Columns("Q:Q").Select Selection.Copy Sheets("data2").Select Range("A1").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Sheets("Data").Select Range("A4").Select Application.CutCopyMode = False Selection.Copy Range("A5").Select ActiveSheet.Paste Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Range("A20").Select Sheets("data2").Select Columns("A:A").Select Application.CutCopyMode = False Selection.ClearContents
ez jól működik, csak nagyon lassú. ezt 25-ször kell megcsinálni, így sokáig fut.
esetleg valami egyszerűbb megoldása valakinek?