- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- ZIDOO médialejátszók
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Gaming notebook topik
- Projektor topic
- Vezetékes FÜLhallgatók
- Bambu Lab X1/X1C, P1P-P1S és A1 mini tulajok
- Asztrofotózás
- Milyen TV-t vegyek?
- Már elstartolt az AMD nyári játékpromóciója
Hirdetés
-
Újabb államok perelik az Apple-t, mert sok pénzt szed ki a vevőkből
it Négy újabb amerikai állam csatlakozott az USA Apple ellen indított, monopolellenes peréhez.
-
Végre pontos megjelenési dátumot kapott a Visions of Mana
gp A készítők tisztázták azt is, hogy PlayStation 4-re megjelenik-e a végső kiadás.
-
Elnéztük a mai dátumot
ma Nem holnap, ma mutatkozik, pontosabban mutatkozott be a HTC U24 Pro, csak elnéztük (mármint én) egy nappal a dátumot.
-
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
-
föccer
nagyúr
No, arra rájöttem, hogy miért lett 28 megával kevesebb a fálj. Volt olyan kedve az excell és eltüntetett nekem cirka 1200 sort a táblázatból
shit. Kidobtam az eddigi mai napi munkámat...
üdv, föccer
mod:
A1 : FG6700-as táblázatból csinált nekem A1 : FG5500-at.
[ Szerkesztve ]
Építésztechnikus. Építőmérnök.
-
félisten
-
félisten
Hali!
"Jobban modva nem is azoknak a celláknak, hanem a mellette lévőknek."
Ja kérem szépen, akkor ezt korábban is megemlíthetted volna...Akkor a példa
D1-be =SZUMHA(B1:B18;A1;C1:C18)Remélem most már minden oké...
Delila_1
2007-ben ez a képlet nem jó, pontosabban nem úgy működik ahogy kellene =SZUMHA(A:A;A1;B:B)
Annyit csinál, hogy változás nélkül megjeleníti a B oszlop celláit...Fire.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
WildBoarTeam
aktív tag
Hát első körben próbálkozz a "makró rögzítéssel". Elindítod, csinálsz valamit a munkalapon (pl. kijelölsz egy részt és törlöd), megállítod amikor befejezted, majd a kapott kódot elemzed. Így jöttem rá én is sok dologra, hogy mi és hogyan működik. Amúgy a súgóban is van néhány hasznos rész, de nem valami sok (a cella hivatkozásokat átnézd, hogy megértsd az S1O1 hivatkozást, amit a rögzített makró készít).
De itt vannak nálam okosabbak, akik biztos tudnak segíteni a bonyolultabb műveletek megismerésében (if, for-next, while, stb.....)blabla
-
WildBoarTeam
aktív tag
Pedig így a legkönnyebb, hogy megértsd a nyelv szemantikáját. Ha a BASICet tudod, akkor meg nem lehet probléma ehhez igazítani. Ha ismersz másik programozási nyelvet akkor a ciklusokat ismered, csak neki kell picit feküdni.
Könyvet én sem találtam még konkrétan makró témában (csak a jó drága tanfolyamokat...)Ha meg megírsz egy makrót, az évek múlva se romlik meg
blabla
-
Delila_1
Topikgazda
Kicsit sok a kérdés egyszerre.
Kezdem a közepén.Adott laphoz kód elővarázsolása: lapfülön jobb klikk, Kód megjelenítése. Vagy: Alt+F11 (VB editor), bal oldalon lapnévre klikk.
Nyomógomb
Kétféle van, az Űrlapok, vagy a Vezérlők eszközkészlete csoportból. Előcsalásuk: ikonsoron jobb klikk, a felsorolásból kiválasztod a megfelelőt.Nem írom tovább, mert nem tudom, hányas verziót használsz. A fentiek a 2003-ra vonatkoznak.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
WildBoarTeam
aktív tag
1 részhez szerintem lista kell...Autoszűrő máshol nem igazán használható, csak ha van alatta adat.
"...Hogyan tudom elővarázsolni az adott munkalaphoz tartozó küdot..."
Nyomsz egy ALT+F8-at.
"Hogyan tudok kirakni a munkafüzetre egy nyomógombot?"
Kirakod a Visual Basic, és az Űrlapok eszköztárat (uttóbihoz a makrót rendeled, a VB-be meg "beleírod" ...így egyszerű leírni)"Illetve mi a pontos neve a cellákat kezelő objektumnak, és annak milyen főbb tulajdonságai és milyen főbb akciói vannak?"
Ezt majd Delila_1 vagy Fire elmondja, mert én nem értem mire gondolsz.
Delila_1...gyorsabb voltál...
[ Szerkesztve ]
blabla
-
Delila_1
Topikgazda
A cellákat tartalmazó objektum a lap: Worksheets("Munka1").Select
A főbb akciókat (eseményeket) úgy csalhatod elő, hogy a VBE-ban fent bal oldalon a General-t átváltod Worksheet-re. Jobb oldalon legördítheted az eseményeket.
Cellára hivatkozás: Cells(sorszám, oszlopszám), de pl. az A1 Cells(1), B1 Cells(2), C1 Cells(3).
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
A Vezérlők készletéből vett gomb hatásköre a lap, amelyiken létrehoztad, de a makrójával meghívhatsz egy másik eljárást, ami a ThisWorkbook-hoz van rendelve, és a füzet minden lapjára érvényes. Ilyenkor a változókat át kell adnod a másik makrónak.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
Sub Aut_Filter()
Range("A1").Select
Selection.AutoFilter Field:=1, Criteria1:=Cells(1, 10)
Selection.AutoFilter Field:=2, Criteria1:=Cells(1, 11)
Selection.AutoFilter Field:=5, Criteria1:=Cells(1, 12)
Selection.AutoFilter Field:=6, Criteria1:=Cells(1, 13)
End SubA feltételeket a J1:M1 tartományba írtam.
Az A oszlopot [Field:=1] a J1 szerint szűröm [Criteria1:=Cells(1, 10)]
B-t a K1 szerint, E-t az L1, és F-et az M1 szerint.[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
Nem tudok ilyen eseményről, ami nem azt jelenti, hogy nincs is.
Viszont behetesz egy sort az Aut_Filter aljára:
ActiveWindow.SelectedSheets.PrintOut Copies:=1és akkor a gombbal szűrés után nyomtatsz is.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
Kitehetsz egy új ikont az eszköztárra (Testreszabás menü, Parancsok fül, Makrók kategória).
A printer gombképét átmásolod rá, és az Aut_Filter makrót rendeled hozzá (ikonon jobb klikkre jönnek elő ezek a lehetőségek, mikor a Testreszabás menü aktív).
Érdemes kicsit módosítani a gombképen, hogy meg lehessen különböztetni az eredetitől.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
A Worksheet_Change esemény tud területet kezelni.
sor=Target.Row
oszlop=Target.Column
Msgbox Target.Address (egy kijelölt területre vittél be Ctrl-lel adatokat)For i=0 to 9, vagy For i=0 to 9 step 3, vagy For i=15 to 3 step-1
Elöltesztelős ciklus, pl.:
sor=10
Do While cells(sor,2)<>""
'ciklusmag
sor=sor+1
LoopNyűglődik a gépem, hol van hálózat, hol nincs.
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
Egyenként meg tudnám mondani, de ezeket legjobb, ha makrórögzítéssel kipróbálod.
Rögzítésnél megtudod az angol megfelelőjüket.
R1C1 hivatkozást ad: az RC[-1] azt jelenti, hogy a sor, amire hivatkozol, nem változik, de az oszlop 1-gyel kevesebb, mint ahova a képletet írtad.
A C oszlop képletében ez azt jelenti, hogy a B oszlop azonos sorában lévő cellára hivatkozol.
Leírva kacifántos, biztos jobban is el lehetne mondani.[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
Az Fkeres-re itt egy példa:
Az G1 képletére a rögzítés ezt adta:
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],C[-6]:C[-5],2,0)"
Átalakítva:
ActiveCell.Formula = "=VLOOKUP(F2,A:B,2,0)"
Ezt az átalakítottat a G2 cellán állva futtattam.
Ciklusba is beteheted, ott
cells(sor,7).formula= "=VLOOKUP(F" & sor & ",A:B,2,0)"[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
Igen. Az ÉRTÉK függvény helyett viszont mást írnék.
Ahhoz fel kell venned egy új oszlopot, feltöltöd a képletekkel, majd az újat irányítottan értékként rá kellene illesztened az eredetileg szövegként megadott számokat tartalmazó oszlopra, végül a képletet tartalmazó ideiglenes oszlopot törlöd.
Ezek helyett a ciklusmagbancells(sor,3)=cells(sor,3)*1
feltételezve, hogy a C oszlopban vannak a szöveg formátumú számok.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
föccer
nagyúr
Hu, már faradt vagyok. Azért ez még erősán át kellene gondolnom
A Cells("B",i) tuti baromság, az már bizos.
De alényerg asszem érthető. Azt szeretném, hogy egy for-ral végigszaladni az összes auto szűrőn, és ahol van beállított szűrőérték, azt berakom az alatta lévő cellára.
Amiko futtatni akartam kiírta, hogy fattal error. pls change user
üdv, föccer
Építésztechnikus. Építőmérnök.
-
Delila_1
Topikgazda
Sub filt()
Dim i As Integer
Cells(1).Select
For i = 1 To 20
Selection.AutoFilter Field:=i, Criteria1:=Sheets("Munka2").Cells(i, 2)
Next
End SubMunkalapon egy cella meghatározása B10, makróban felcserélődik a sor, és oszlop helyzete, cells(10,2).
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
Csúnya hiba, a feltételt kihagytam.
Sub filt()
Dim i As Integer
Cells(1).Select
For i = 1 To 20
If Sheets(2).Cells(i, 2) > "" Then
Selection.AutoFilter Field:=i, Criteria1:=Sheets(2).Cells(i, 2)
End If
Next
End SubA Munka2 lap fizikailag is második nálam, ezért a Sheets(2) hivatkozás is megfelel.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
-
Delila_1
Topikgazda
Most ezt tudja:
Nevezd át a lapokat. Ahol a sok adatod van, legyen Lista, a másik Kritériumok.
A Lista lapon vannak 20 oszlopban az adataid. A Kritériumok lapon a B1:B20 tartományban érvényesítéssel vannak az egyes oszlopokra vonatkozó kritériumok, pl. ha a Lista!A oszlopban az almára akarsz szűrni, akkor a Kritériumok!B1 cella értéke alma; ha az Lista!E oszlopban Fótra szűrnél, akkor a Kritériumok!B5 legyen Fót.
A gombot az Űrlapvezérlők közül tedd ki a Kritériumok lapra.
Sub filt()
Dim i As Integer
Sheets("Lista").select
Cells(1).Select
For i = 1 To 20
If Sheets("Kritériumok").Cells(i, 2) > "" Then
Selection.AutoFilter Field:=i, Criteria1:=Sheets("Kritériumok").Cells(i, 2)
End If
Next
End SubAmennyiben nem ez a célod, írd le pontosan, mit is akarsz. Azt szeretnéd, hogy a Lista lapon egyenként beállítod a (20) szűrőt, és ezek a kézzel beállított kritériumok jelenjenek meg a Kritériumok!B1:B20 tartományában?
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
föccer
nagyúr
Következő próba:
Private Sub CommandButton1_Click()
Dim i As Integer
Dim w As Worksheet
Set w = Worksheets("Receptek")
For i = 1 To 20
w.Cells(2, i).Select
If Selected.AutoFilter.Filters > "" Then
Selected.Value = Selected.AutoFilter.Filters
End If
Next
End SubAzt mondja, hogy Range osztály select metódusa hibás...
Építésztechnikus. Építőmérnök.
-
föccer
nagyúr
Private Sub CommandButton1_Click()
Dim i As Integer
Dim w As WorksheetSet w = Worksheets("Receptek")
For i = 1 To 20
If w.Cells(2, i).AutoFilter > "" Then
Cells(2, i).Value = Selected.AutoFilter.Filters
End If
NextEnd Sub
Nem spammelek, csak próbálkozom Hogy lásd, hogy nem csak a sültgalambot várom )
Köszi,
üdv, föccer
mod:
Private Sub CommandButton1_Click()
Dim i As Integer
Dim w As Worksheet
Set w = Worksheets("Receptek")
For i = 1 To 20
If w.Cells(2, i).AutoFilter > "" Then
w.Cells(2, i).Value = w.Cells(2, i).AutoFilter.Criteria1
End If
Next
End Subobjekt required. Mindezt a w.cells(2, i).value = w. cells(2, i).autofilter.criteria1 sorra...
üdv, föccer
[ Szerkesztve ]
Építésztechnikus. Építőmérnök.
-
Delila_1
Topikgazda
Itt a sültgalamb – én is segítséget kértem hozzá.
Sub Filt()
Dim AF As AutoFilter, F As Filter, i As Long, usor As Long
Set AF = ActiveSheet.AutoFilter
usor = Range("A65536").End(xlUp).Row
For i = 1 To AF.Filters.Count
Set F = AF.Filters(i)
If F.On Then
Cells(1, i) = Cells(usor, i)
End If
Next
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
Az usor = Range("A65536").End(xlUp).Row annak a szintaktikája, mikor állsz az A65536 cellán, és Ctrl+fel nyilat nyomsz. Az utolsó kitöltött sor értékét adja (egy a sok módszer közül).
Run-Time error: lásd a #7762-es hozzászólást, és kapcsold be a bővítményeket.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
Sub föccer()
Dim AF As AutoFilter
Dim F As Filter
Dim i As Long, usor As Long, C As Long
Sheets("Munka1").Select
Set AF = ActiveSheet.AutoFilter
C = AF.Filters.Count
For i = 1 To AF.Filters.Count
Set F = AF.Filters(i)
If F.On Then
Cells(1, i).NumberFormat = "@"
Cells(1, i).Value = F.Criteria1
End If
Next
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
A
Cells(1, i).Value = F.Criteria1 sor helyett legyen
Cells(1, i).Value = Right(F.Criteria1, Len(F.Criteria1) - 1)Mikor már a lapra álltál [Sheets("Receptek").Select], nem kell külön megadni a lapot:
Sheets("Receptek").Cells(1, i).Value = F.Criteria1 helyett elegendő a
Cells(1, i).Value = F.Criteria1Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
-
Delila_1
Topikgazda
-
Yaye
őstag
Na, azt hittem elég egyértelmű.
Van egy táblázatom, nevezzük első táblázatnak, aminek az oszlopainak a formátuma (szám, dátum, szöveg, általános stb.) szépen be vannak állítva. Van egy másik táblázatom (második táblázat), amiben mindenféle adat, számok, alfanumerikus dolgok vannak, de ennek a második táblázatnak minden cellája szöveg formátumú.
Ha simán a második táblázatból a cellákat az elsőbe átkopipésztelem, akkor értelemszerűen hozza a forráscellák formátumát is, és az első táblázatban beállított formátumaim fölülíródnak szövegre. Ezért speciális beillesztéssel csak az értéket másolom át. Ekkor az értékek bekerülnek ahogy kell, de a célcellák beállított formátuma megmarad. Ha beillesztés után megnézem a cellák formátumát, szépen látni hogy szám, dátum, satöbbi, ahogy eredetileg is volt. Ennek ellenére azonban a cellában az adatot úgy jeleníti meg minha szöveg volna, balra igazítva, ott is ahol az érték és a formátum egyaránt szám. Tehát a cella formátuma és annak bemutatása ellentmondásos. Az ellentmondást úgy lehetett feloldani hogy duplakattintással szerkesztésre beléptem a cellába, majd bármi változtatás nélkül ki, és akkor az igazítás a formátumnak megfelelővé vált. Ezt a rengeteg kattintgatást váltotta ki a második speciális beillesztés az egyessel szorzással. -
bugizozi
őstag
Azt a sablont nem lehet megcsinálni worben és akkor készítesz egy körlevelet, aminek az elemei a Munka2 táblán lévő adatok? Mondjuk akkor is nézned kéne hogy melyik ChackBox-ban pipa és melyikben nincs, de egyfajta gyorsabb megoldás ez is lehet...vagy rosszul gondolom?
VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
sonar
addikt
válasz föccer #10740 üzenetére
Nekem pont egy függőleges vonal kellene. Bár szerintem azt meg tudom oldani.
Viszont ezt részleteznéd egy kicsit? Egyébként meg simán lehet vonalat is rajzolni a diagramra
Előre is kösz
sonarA tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
Új hozzászólás Aktív témák
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- Windows 10/11 Home/Pro , Office OEM/Retail kulcsok
- Adobe Előfizetések - Adobe Creative Cloud All Apps, Photography Plan - 12 Hónap
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!