- Samsung Galaxy S21 és S21+ - húszra akartak lapot húzni
- Android alkalmazások - szoftver kibeszélő topik
- Nothing Phone (3a) és (3a) Pro - az ügyes meg sasszemű
- Íme az új Android Auto!
- Samsung Galaxy Watch7 - kötelező kör
- Honor Magic6 Pro - kör közepén számok
- Samsung Galaxy S24 FE - később
- Bemutatkozott a Poco X7 és X7 Pro
- Motorola Razr 60 Ultra - ez a kagyló könnyen megfő
- Fotók, videók mobillal
-
Mobilarena
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
-
#15067
Fire/SOUL/CD
félisten
Sickboy25
#15066
-
#15065
Fire/SOUL/CD
félisten
Sickboy25
#15064
-
#15063
Fire/SOUL/CD
félisten
Sickboy25
#15062
válasz
Sickboy25
#15062
üzenetére
Pontosabban/egyértelműbben fogalmazz, mert egyik kérdés üti a másikat...
Az első kérdésedben még valami össz darabszámról kérdezel, majd a következő kérdésedben meg már tényként írod, hogy beírod a darabszámot és egy összeget kellene meghatározni.
Szóval akkor hogy is van ez?
(szívesen segítek, de tényleg nem értem) -
Delila_1
veterán
válasz
Sickboy25
#12139
üzenetére
Lehet, hogy itt-ott nem dátum formátumú az adatod.
Állítsd a teljes oszlopot dátum formátumra, és egyenként enterezd le, de úgy, hogy F2-t nyomsz a cellán, majd Enter. A teljes oszlopon F2-Enter, F2-Enter.Az a cella (G2) is dátum formátumú legyen, ahova a kiválasztott dátumot írod.
-
Delila_1
veterán
válasz
Sickboy25
#12131
üzenetére
Irányított (speciális) szűrőt alkalmazz.
Vegyük, hogy az adataid az A:E tartományban vannak. Az A oszlop tartalmazza a dátumot, az oszlop címe Kelt.
A G1 cella legyen Kelt, G2-be írd a keresendő dátumot, a példa szerinti 2011.09.11-et.
A szűrés párbeszéd doboza ilyen legyen:Más helyre másolja
Listatartomány: $A:$E
Szűrőtartomány: $G1:$G2
Hova másolja: $I$1:$M>1
Csak az egyedi rekordok megjelenítéseKépet akartam beszúrni, de a 15 KB-os, jpg kiterjesztésű képet nem megfelelőnek minősíti a fórummotor. Kiírja, hogy max 1920×1200 px, 1Mb, GIF/JPG/PNG képet tud csak fogadni.
-
#12104
Fire/SOUL/CD
félisten
Sickboy25
#12103
válasz
Sickboy25
#12103
üzenetére
Hát így konkrétan nem tudom, hogy mit csesztél el, ha egyáltalán elcsesztél, mert közel sem biztos. A hivatkozásokat lehet kezelni, konfigolni, ehhez a Adat fül/Kapcsolatok csoport/Hivatkozások-ra kell kattintani. (Ez csak akkor aktív, ha a munkafüzetben valóban vannak hivatkozások (külső/belső))
Ott be lehet állítani, hogy honnan és mit frissítsen az adott munkafüzet és azt is, hogy azt automatikusan tegye-e.
Először nézd meg ezt, hátha ez megoldja a problémát.
-
-
#8798
Fire/SOUL/CD
félisten
Sickboy25
#8797
-
#8713
Fire/SOUL/CD
félisten
Sickboy25
#8711
-
Delila_1
veterán
válasz
Sickboy25
#7963
üzenetére
Na még egy, hogy biztos legyen a figyelmeztetés.
Az A1 cellát formázd félkövérre, és piros betűszínre. A laphoz rendeld a nyúlfarknyi makrót (lapfülön jobb klikk, Kód megjelenítése, a VB szerkesztőben a jobb oldalon kapott üres felületre kell bemásolni).
Private Sub Worksheet_Activate()
If Day(Date) < 11 Then
Cells(1) = 10 - Day(Date) & " nap múlva add le a jelentést"
Else
Cells(1) = ""
End If
End SubMikor a lapra lépsz, beírja, vagy 10-e után törli a hátralévő napokat.
-
-
#7958
Fire/SOUL/CD
félisten
Sickboy25
#7957
válasz
Sickboy25
#7957
üzenetére
Hali!
A neked megfelelő cellába írd be ezt:
=SZÖVEG(MOST();"hhhh ")&NAP(10)Mivel alapban automatikus számolásra van állítva az Excel, ezért amikor megnyitod a munkafüzetet, automatikusan változik a cella értéke is
Fire.
UI: Nekem is kissé zavaros volt a kérdés, de talán megfelel a megoldás...
-
#7881
Fire/SOUL/CD
félisten
Sickboy25
#7878
válasz
Sickboy25
#7878
üzenetére
Hali!
Van amikor én nézek be valamit, akkor Delila_1 kijavít, ha Ő néz el valamit, akkor Én javítom ki Őt. Ha Ő azt állítja, hogy nála megy, nálam meg nem, akkor én kutakodok a megoldás után, ha meg én állítom, hogy valami megy és nála nem, akkor meg Ő kutakodik a megoldás után...
Szóval "nálunk" ez teljesen természetes, megszokott jelenség, de semmi estre sem konfliktus.
Fire.
-
Delila_1
veterán
válasz
Sickboy25
#7864
üzenetére
Valóban félreértettem az eredeti kérdést.
Minden feladatot több módon lehet megoldani. Továbbra is más megoldást javaslok, nem a Fire által megadott makróst, ami akkor működik, mikor az R oszlopba beírsz egy adatot.
Az elképzelésem szerint ki kell jelöldöd az R2:R500 tartományt. Ha több adatra számítasz, a tartomány is legyen nagyobb, és a képleteket ennek megfelelően módosítsd. A tartomány első tagját azért a 2. sortól adtam meg, mert feltételezésem szerint van címsorod. A feltételes formázás első képlete:
=ÉS(DARAB2(R$2:R$500)<=81;R2>NAGY(R$2:R$500;4)), és itt megadod a formátumot,
a másodiké: =ÉS(DARAB2(R$2:R$500)>81;R2>NAGY(R$2:R$500;6)). Itt ugyanazt a formátumot add meg.
A 80, vagy annál kevesebb csapat indulása esetén a 3 legnagyobb fogást színezi ki, több indulónál az 5 topot.
A két képletben a <=81, ill. a >81 szintén a címsor miatt nem 80. -
#7862
Fire/SOUL/CD
félisten
Sickboy25
#7861
válasz
Sickboy25
#7861
üzenetére
Hali!
Akkor ami fontos ilyen esetben: Ha cellaegyesítést használsz, akkor az adatsorod utolsó sora, mindig az, mint amikor nincs cellaegyesítés.
Te a kódban R2 : R222 tartományt adtál meg(mert az Excel ilyenkor ezt jelzi ki, ha ráállsz az utolsó egyesített cellára), de ez nem igaz, mert az utolsó cella az a 225-ös...(Be is írtam a makróba) Remélem így érthető...Épp ezért nem kellett a makrón módosítani(legalábbis ebből a szempontból), ha erre odafigyelsz, akkor kifogástalanul működik.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim MyFxs As WorksheetFunction
Set MyFxs = Application.WorksheetFunction
Dim MyRange As Range
Set MyRange = Range("R2:R225")
Dim Nth As Integer
Nth = 3
If Not Intersect(MyRange, Range(Target.Address)) Is Nothing Then
Application.ScreenUpdating = False
MyRange.Select
MyRange.Interior.ColorIndex = 0
For i = 1 To Nth
What = MyFxs.Large(MyRange, i)
For j = MyRange.Row To MyRange.Cells.Count
If Cells(j, MyRange.Column) = What Then
Cells(j, MyRange.Column).Select
Selection.Interior.ColorIndex = 37
End If
Next j
Next i
Range(Target.Address).Select
Application.ScreenUpdating = True
End If
End SubFire.
-
#7860
Fire/SOUL/CD
félisten
Sickboy25
#7859
válasz
Sickboy25
#7859
üzenetére
Hali!
Egy kis 2003 és 2007 közti különbség, ezért szoktam (már nem 1x) mondani, hogy célszerű lenne leírni a tisztelt kérdezőknek, hogy mégis milyen verziójú (és némely esetben, milyen nyelvű) Excelt használ...
![;]](//cdn.rios.hu/dl/s/v1.gif)
Na de sebaj, van más gond is...Na ezért meg célszerű képet is bedobni, mert akkor láttuk volna, hogy cellaegyesítést használsz az adataidnál...Módosítani kell a makrót ez miatt...
Fire.
-
#7858
Fire/SOUL/CD
félisten
Sickboy25
#7857
-
#7856
Fire/SOUL/CD
félisten
Sickboy25
#7855
válasz
Sickboy25
#7855
üzenetére
Hali!
Ráállsz/kiválasztod azt a munkalapot, amelyiken az adatok vannak, nyomsz egy ALT + F11-et, bal oldalt fel lesz sorolva a munkalapok neve és épp azon fog állni, amelyik munkalapot kiválasztottad korábban, azon duplakatt, a megjelenő ablakba meg a teljes makrót bemásolod és futtatod. (A VBA editor menüsorán van egy zöld play gombra emlékeztető ikonocska, azzal futtatod)
Innentől, ha módosítasz valamit az adatok közt, akkor automatikusan lefut. A kódot úgy írtam meg, hogy csak akkor dolgozik, ha az adatok oszlopában módosítasz, ha máshol akkor nem, feleslegesen ne fusson le.
Fire.
-
#7854
Fire/SOUL/CD
félisten
Sickboy25
#7853
válasz
Sickboy25
#7853
üzenetére
Hali!
Akkor mákom volt, mert a fenti makró épp ezt teszi.
A Set MyRange = Range("A1:A10") sorban beállítod, hogy hol vannak az adataid és meddig tartanak, az Nth = 5 változót meg annyira állítod, amennyire szükséged van (most az 5 legnagyobb értéket szinezi ki, pontosabban, ha van több egyforma érték is a legnagyobbak közt, akkor azt is) pl:
1
7->színezve
3->színezve
4->színezve
5->színezve
6->színezve
7->színezveA makró függőleges elhelyezkedésű (egy oszlopban vannak az adatok) adatokhoz készült!
Fire.
-
Delila_1
veterán
válasz
Sickboy25
#7850
üzenetére
1. Vegyük, hogy az A:C tartomány bizonyos sorait akarod színezni. Beírod az első színezendő sor számát pl. a H1-be, az utolsót az I1-be. Kijelölöd az A:C tarományt. Formátum -> Feltételes formázás. A képlet: =ÉS(SOR()>=$H$1;SOR()<=$I$1). Megadod a kedvenc formátumodat.
2. A lapvédelem előtt jelöld ki azokat az oszlopokat, amiket majd engedsz módosítani. Cellaformázás, Védelem fül, vedd ki a pipát a Zárolt elől. -
#6875
Fire/SOUL/CD
félisten
Sickboy25
#6874
-
#6865
Fire/SOUL/CD
félisten
Sickboy25
#6859
válasz
Sickboy25
#6859
üzenetére
Hali!
Makró-kód
Private Sub Worksheet_Change(ByVal Target As Range)
X = Range(Target.Address)
Y = 50
On Error Resume Next
If Not Intersect(Range("P3:V25"), Range(Target.Address)) Is Nothing Then
If X <> "" Then
Application.EnableEvents = False
Range(Target.Address) = Y / X * 100
Application.EnableEvents = True
End If
End If
On Error GoTo 0
End SubAmit állíthatsz, az az Y(állandó, én most 50-nek vettem) illetve az adattartomány(esetünkben P3:V25). Természetesen ebben a tartományban nem lehet a táblázat fejléce csak számadatok. Amennyiben pl betűt is tartalmaz a cella(mert véletlenül melléütsz), akkor nem történik semmi, bekerül amit beírtál, nyilván nem lehet vele számolni.
Fire.
UI: Ha azt akarod kiszámolni, hogy hány százaléka X-nek Y, akkor korábban rossz képletet adtál meg. Helyesen Y/X*100...
-
Delila_1
veterán
válasz
Sickboy25
#6859
üzenetére
Így nem lehet, de van más megoldás.
Vegyük, hogy a P3:V25 tartomány 5 százalékát akarod kiszámolni.
Beírod az eredeti számokat a tartományba.
Egy cellába (mindegy hova) beírsz 100-at, egy másikba 5-öt.
Másolod a 100-at (Ctrl+c), kijelölöd a tartományt, jobb klikk, Irányított beillesztés, Osztás.
Másolod a 5-öt, kijelölöd a tartományt, jobb klikk, Irányított beillesztés, Szorzás.
![;]](http://cdn.rios.hu/dl/s/v1.gif)
Na de sebaj, van más gond is...Új hozzászólás Aktív témák
Hirdetés
Fferi50- Könyvajánló
- sziku69: Fűzzük össze a szavakat :)
- Medence topik
- Hálózati / IP kamera
- Samsung Galaxy S21 és S21+ - húszra akartak lapot húzni
- Autós topik
- Android alkalmazások - szoftver kibeszélő topik
- Horgász topik
- Spórolós topik
- Fortnite - Battle Royale & Save the World (PC, XO, PS4, Switch, Mobil)
- További aktív témák...
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - NYÁRI AKCIÓ!
- Assassin's Creed Shadows Collector's Edition PC
- ROBUX ÁRON ALUL - VÁSÁROLJ ROBLOX ROBUXOT MÉG MA, ELKÉPESZTŐ KEDVEZMÉNNYEL (Bármilyen platformra)
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- DOKKOLÓ BAZÁR! Lenovo, HP, DELL és egyéb más dokkolók (TELJES SZETTEK)
- Új Apple iPhone 16 Pro 128GB, Kártyafüggetlen, 3 Év Garanciával
- Új! HP 230 Vezetéknélküli USB-s Billentyűzet
- LENOVO ThinkBook 13s - 13.3" FullHD IPS - i5-10210U - 8GB - 256GB SSD - Win11 - MAGYAR
- Robbanj a jövőbe egy új Ryzen 7 5800X-szel! Kamatmentes rèszletre is!!
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft
Város: Budapest
Cég: Promenade Publishing House Kft.
Város: Budapest