-
GAMEPOD.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
-
Delila_1
Topikgazda
válasz mr.nagy #11298 üzenetére
Az adat laphoz rendeld a makrót.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$5" Then
Dim meret As Integer
Select Case Len(Range("A6"))
Case Is <= 40
meret = 18
Case 41 To 100
meret = 16
Case 101 To 200
meret = 14
Case Is > 200
meret = 12
End Select
Range("A6").Font.Size = meret
End If
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.
-
vjani77
csendes tag
Sziasztok köszönöm szépen a segítséget a sor elrejtéssel kapcsolatban. Kipróbálom. De makró nélkül nem lehet megoldani a problémát??
Köszi a segítséget. János -
félisten
válasz vjani77 #11304 üzenetére
1. Csak makróval lehet
2. Nem tudom, hogy konkrétan mit is szeretnél kivitelezni, de lehet, hogy az autofilter/szűrés is megfelelne.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)
-
vjani77
csendes tag
válasz Fire/SOUL/CD #11305 üzenetére
Köszönöm szépen úgy néz ki a szűrés elég lesz nekem.
Üdv János -
pitman
őstag
válasz m.zmrzlina #11263 üzenetére
Elnézést, hogy csak most reagálok, kicsit el voltam veszve.
Azt hiszem, hogy ezt szerettem volna. Végül megírtam makróban a vizsgálatot, nagyon köszönöm az eddigi segítségedet.Még egy kérdésem lenni az az aktuálisan megváltozó cella helyének meghatározásához.
Az általad leírt megoldás jól működik addig, amíg a cellából munkalapon belül lép ki az ember, azonban ha a szerkesztést úgy fejezi be, hogy átvált egy másik munkalapra, akkor a sor és oszlop értékeket jól adja vissza, viszont a munkanap neve már az új munkalapé lesz (így viszont a kívánt ellenőrzéseimet rossz munkalapon fogja elvégezni). Ezt hogyan lehet orvosolni? -
#92888064
törölt tag
sziasztok!
egy kis segítségre volna szükségem, a visual basic topik elég halott, így itt próbálkozok.
ezen a linken szerepel a probléma és az a megoldás is, de nem tudtam makrónak megírni.
hasonló eset áll fenn, csak nálam 3 halmaz van több száz számmal, de ömlesztve is lehetnek, mivel be tudom utólag azonosítani, hogy melyik halmazhoz tartozott. ezeket ki tudom exportálni vesszőkkel elválasztva, és be tudom illeszteni a megfelelő helyre. majd be tudom írni a keresendő összeget, de ahogy rányomok a program futtatása gombot, hibába ütközik a "Debug.Print: Debug.Print" sorban. egyáltalán nem tudok programozni, ami nehezíti a feladatot.
a válaszokat előre is köszönöm[ Szerkesztve ]
-
mr.nagy
tag
válasz Delila_1 #11303 üzenetére
Na még egyet segíts, aztán nem zaklatlak egy ideig!
Az A9 cellában van a fejléc, alatta az adatok. Innen 4 adatot átkellene másolni az A1,A2,A3,A4 cellába, elvégezni egy műveletet. majd a következő négy a listából+művelet és így tovább, míg van adat. Hasonlóan a nem régiben kért makróhoz.
HMNote10Pro
-
m.zmrzlina
senior tag
válasz pitman #11307 üzenetére
Ha erre gondolsz, akkor az ActiveSheet.Name helyett próbálj meg Sh.Name-t használni.
Így:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
MsgBox "A(z) " & Sh.Name & " munkalapon a " & Target.Row & ". sor és a(z) " & Target.Column & ". oszlop" & Chr(10) & " metszéspontjában lévő cella módosult!"
End SubNem használtam még ezt a módszert de az argumentumokból ez következik.
[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz mr.nagy #11309 üzenetére
Sub Tizenhat()
Dim sor As Integer, usor As Integer, oszlop As Integer, sor_1 As Integer
oszlop = 1: sor_1 = 1
usor = Range("A65536").End(xlUp).Row
For sor = 10 To usor
If sor_1 < 5 Then
Cells(sor_1, oszlop) = Cells(sor, 1)
sor_1 = sor_1 + 1
Else
sor_1 = 1
oszlop = oszlop + 4
sor = sor - 1
End If
If oszlop = 17 Then
MsgBox "Ide jön a nyomtatás"
'ide jön a nyomtatás
Range("A1:A4,E1:E4,I1:I4,M1:M4").ClearContents
oszlop = 1
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
válasz mr.nagy #11312 üzenetére
Sub Négy()
Dim sor As Integer, usor As Integer, sor_1 As Integer
sor_1 = 1
usor = Range("A65536").End(xlUp).Row
For sor = 10 To usor
If sor_1 < 5 Then
Cells(sor_1, 1) = Cells(sor, 1)
sor_1 = sor_1 + 1
Else
sor_1 = 1
sor = sor - 1
MsgBox "Ide jön a nyomtatás"
'ide jön a nyomtatás
Range("A1:A4").ClearContents
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.
-
mr.nagy
tag
válasz Delila_1 #11301 üzenetére
Még is csak zaklatlak még egy kicsit!
Ebből a kódrészből:
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$G$5" Then Dim meret As Integer Select Case Len(Range("A6"))A $G$5 cella időközben kiderült, hogy függvényen keresztül fogja kapni az értéket, így nem működik az egész makró.
Javítható a fenti kód, ennek megfelelően?HMNote10Pro
-
-
Oly
senior tag
Sziasztok
Van egy 40.000 soros táblázatom, de sok benne a duplika.
Hogyan tudnám eltüntetni a felesleges sorokat?
Kis tábláknál eddig úgy csináltam, hogy egy új oszlopban csináltam egy ilyen fgv-t:
=if(a2=a1;1;0)
Ezt követően leszűrtem a 0 értékre, ami csak az egyedi eseteket tartalmazta.Na ez 40.000 sornál már meghaladja az Excel tudását, és kiírja, hogy ez túl bonyolult, csináljak mást
Ötlet?
SonyEricsson T20 - T68 - T610 - K700 - W800 - K750 - K800 - C702 - P1 - MOTO Defy - Galaxy S Advance - Galaxy S4 - Lumia 820 - Honor 7 - iPhone 5S
-
Oly
senior tag
válasz Fire/SOUL/CD #11319 üzenetére
Hála a vállalati szabályoknak, ezt az oldalt sem érem el
SonyEricsson T20 - T68 - T610 - K700 - W800 - K750 - K800 - C702 - P1 - MOTO Defy - Galaxy S Advance - Galaxy S4 - Lumia 820 - Honor 7 - iPhone 5S
-
félisten
Select all the rows, including the column headers, in the list you want to filter.
Tip
Click the top left cell of the range, and then drag to the bottom right cell.
On the Data menu, point to Filter, and then click Advanced Filter.
In the Advanced Filter dialog box, click Filter the list, in place.
Select the Unique records only check box, and then click OK.The filtered list is displayed and the duplicate rows are hidden.
On the Edit menu, click Office Clipboard.
The Clipboard task pane is displayed.
Make sure the filtered list is still selected, and then click Copy Copy button.
The filtered list is highlighted with bounding outlines and the selection appears as an item at the top of the Clipboard.
On the Data menu, point to Filter, and then click Show All.
The original list is re-displayed.
Press the DELETE key.
The original list is deleted.
In the Clipboard, click on the filtered list item.
The filtered list appears in the same location as the original list.
Nem lehet, hogy az IE-vel kellene megnézni? FF és társai "néha" nem szeretik az MS oldalakat...
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)
-
Delila_1
Topikgazda
válasz Delila_1 #11322 üzenetére
Ímé szép magyar nyelven:
Jelöljük ki a szűréshez az oszlopot vagy a tartomány, illetve lista egyik celláját.
Válasszuk az Adatok menü Szűrő, majd Irányított szűrő parancsát.
Hajtsuk végre a megfelelő műveletet:
Ha az AutoSzűrőhöz hasonlóan helyben szeretnénk szűrni a tartományt vagy a listát, jelöljük be a Helyben szűrje választókapcsolót.
Ha a szűrés eredményét máshová szeretnénk másolni, jelöljük be a Más helyre másolja választókapcsolót, majd a Hova másolja mezőben adjuk meg a cella hivatkozását.
A cella kijelöléséhez ideiglenesen elrejthetjük a párbeszédpanelt a Panel elrejtése gombra kattintva. Jelöljük ki a cellát a munkalapon, majd kattintsunk a Panel megjelenítése gombra.
Jelöljük be a Csak az egyedi rekordok megjelenítése négyzetet.A szűrt listát másolhatod (ez már tőlem).
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Oly
senior tag
válasz Delila_1 #11323 üzenetére
Szia
Ez tiszta sor... de behal az Excelem ekkora adathalmaz szűrésénél...
Most nézem ,hogy ne mis 40.000, hanem 400.000 sor van.
SonyEricsson T20 - T68 - T610 - K700 - W800 - K750 - K800 - C702 - P1 - MOTO Defy - Galaxy S Advance - Galaxy S4 - Lumia 820 - Honor 7 - iPhone 5S
-
félisten
Remek, létrehozni létrehoztad, szűrni már nem tudod...
Rendezés még működik? Csak dupla sorok vannak, avagy triplázás vagy még több számú előfordulás is játszik?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)
-
Oly
senior tag
válasz Fire/SOUL/CD #11326 üzenetére
Vannak olyan rekordok, amik egyedül vannak, vannak amik duplák, vannak amik több ezren...
Accessben gondolkodom, hogy lekérdezéssel menne egyszerűbben.
SonyEricsson T20 - T68 - T610 - K700 - W800 - K750 - K800 - C702 - P1 - MOTO Defy - Galaxy S Advance - Galaxy S4 - Lumia 820 - Honor 7 - iPhone 5S
-
félisten
-
Oly
senior tag
válasz Fire/SOUL/CD #11328 üzenetére
Sikerült is.
Köszönöm.
Mindjárt találtok egy Access kérdést az Access topikban.
Ránéznétek?
SonyEricsson T20 - T68 - T610 - K700 - W800 - K750 - K800 - C702 - P1 - MOTO Defy - Galaxy S Advance - Galaxy S4 - Lumia 820 - Honor 7 - iPhone 5S
-
radam
csendes tag
Sziasztok!
Egy gyors kérdésem lenne.
A probléma: van egy cellám, tele van írva szöveggel (értelmes magyar mondatok). A szomszédos cellában szeretném egy HA függvénnyel megjeleníteni, hogy egy adott szó szerepel-e a szöveget tartalmazó cellában.
Milyen függvényt kell még bevetnem? -
félisten
Elég összetett hiba lehet, de pl tipikusan akkor jelentkezik, ha különböző verziójú excel-ben van használva a project, de a fejlesztő nem figyelt (vagy nem tudta), hogy bizonyos függvények/ActiveX vezérlők nem használhatóak ugyanúgy... Pl Office 2010 x64-ben készült, activex vezérlőket is tartalmazó project, dobhat ilyen hibát egy 2007-es Office-ban...
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)
-
bugizozi
őstag
Sziasztok!
office 2003
szitu: van egy excelem, amihez van 2 excel "hozzácsatolva", ahonnan összegezi az adatokat. ez úgy működik hogy megnyitom az excelt, majd utána a másik kettőt és ilyenkor elkezd dolgozni (cellák újraszámolása).
probléma: van amelyik gépen ez megy, van amelyiken nem (nem számolja újra a cellákat)
kérdés: mi lehet beállítva azon amin megy, és mi nincs azon amin nem?Előre is köszönöm a segítséget!
VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
Delila_1
Topikgazda
válasz bugizozi #11341 üzenetére
Eszközök - Beállítások - Számolás lap.
Itt a "Számolás" csoportban az "Automatikus", és a "Munkafüzet-beállítások" csoportban a "Külső hivatkozásokat felfrissít" legyen bejelölve.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
-
ArchElf
addikt
válasz bugizozi #11347 üzenetére
Nem lehet, hogy van valamelyik táblában van makró és az egyik gépen erősre van állítva a biztonság? Linkelés rendben van (relatívvagy abszolut elérési útvonal van használva)? Könyvtár mappelés van?
AE
Csinálok egy adag popcornt, és leülök fórumozni --- Ízlések és pofonok - kinek miből jutott --- Az igazi beköpőlégy [http://is.gd/cJvlC2]
-
bugizozi
őstag
válasz ArchElf #11348 üzenetére
Szia,
-makró mind2 gépen alacsonyra van állítva, amin megy illetve amin nem is
-szekresztés/csatolásoknál így van megadva a két csatolt excel: \\servernev\mappa\mappa\excel.xls
-és az ucsó kérdésed... a könyvtár mappelés lesz a hibásahol nem megy ott fel van csatolva egy hálózati meghajtó (\\servernev\mappa) és azon belül van egy mappa amiben van az excel ami gyűjti az adatokat a másik két excel másik mappában
ahol megy, ott csak az asztalra van kitéve egy mappa ami a \\serverneve\mappa-ra mutat...megmondom őszintén erre nem gondoltam hogy ez befolyásolhatja a dolgot, ezért sem említettem az első hsz-omnál, sry Delia mivel én úgy gondolkodtam hogy a felcsatolt hálózati meghajtó és az asztalra kitett mappa ugyanarra helyre mutat, tehát ugyanaz a kettő ezek szerint tévedtem na mindegy, lényeg hogy mostmár tudom hogy hogyan műxik
köszönöm AE
[ Szerkesztve ]
VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
pitman
őstag
válasz m.zmrzlina #11310 üzenetére
Igen erre gondoltam, nagyon köszönöm kipróbálom.
Új hozzászólás Aktív témák
- exHWSW - Értünk mindenhez IS
- Kerékpárosok, bringások ide!
- Autós topik látogatók beszélgetős, offolós topikja
- Milyen légkondit a lakásba?
- ThinkPad (NEM IdeaPad)
- sziku69: Fűzzük össze a szavakat :)
- Mibe tegyem a megtakarításaimat?
- Elektromos cigaretta 🔞
- Autós topik
- Háromféle processzor is része lesz a Core 200 sorozatnak
- További aktív témák...
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- AKCIÓ! - STEAM kulcsok /Anuchard, Aragami, Children of Morta, stb. - 2024.04.17.
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Canva Pro előfizetés - 1 éves
- Windows 10/11 Home/Pro , Office OEM/Retail kulcsok
- Windows 10, 11 Professional, Home, Enterprise licenckulcsok 64, 32 bit - MEGA Akció!
- Windows Server 2016, 2019, 2022 Standard, Datacenter, Essentials termékkulcsok - MEGA akció!
- Vírusirtó, Antivirus, VPN licenckulcsok - kedvezményes ajánlatok (frissítve: 2024. 05. 01.)
- Office Professional Plus 2013, 2016, 2019, 2021 RETAIL licenckulcsok - MEGA Akció!
- Windows 7 Home Premium, Pro, Ultimate és Windows 8, 8.1 Pro licenckulcsok 64, 32 bit - MEGA Akció!
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest