- Bemutatkozott a Poco X7 és X7 Pro
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Netfone
- Szerkesztett és makrofotók mobillal
- Egyszerre legnagyobb és legkisebb is a Garmin Venu X1
- Samsung Galaxy Watch7 - kötelező kör
- Profi EKG-s óra lett a Watch Fitből
- Galaxy Buds Core nevű fülesen dolgozik a Samsung
- Apple Watch
- 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
-
#16338
lappy
őstag
Vizes Tomi
#16337
lappy
őstag
válasz
Vizes Tomi
#16337
üzenetére
Szia!
Azt a sablonvarázslót 2007 ben is kipróbáltad már?! Esetleg egy próbát megér! -
#16236
lappy
őstag
Excelbarat
#16235
lappy
őstag
válasz
Excelbarat
#16235
üzenetére
A 2. kérdésre a válasz:
A következő bill. kombinációt nyomod egy adott sor vagy oszlopra állva Ctrl+Shift+nyil (az iránynak megfelelő) ilyenkor majd kijelöli az összes cellát; majd jobb gomb és elrejt!
-
lappy
őstag
válasz
gepesz13
#16223
üzenetére
=HA(HIBÁS(FKERES(A1;Munka1!A1:B2;2;0));"";FKERES(A1;Munka1!A1:B2;2;0)
A képlet a következőkép működik!
megkeresi az A1 cella tartalmát a munka1 munkalap A1 B2 tartományában és a 2. oszlopot adja ha talál olyan értéket ami az A1 ben van
ha nincs olyan érték vagy üres az A1 cella olyankor nem fog semmit írni a cellába! -
#16190
lappy
őstag
Töki bácsi
#16189
lappy
őstag
válasz
Töki bácsi
#16189
üzenetére
A laphoz kell rendelned ezt a rövid makrót: lapfülön jobb klikk, kód megjelenítése, a jobb oldalon kapott üres lapra másold be.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Target = 1 Then
ActiveSheet.Shapes("Picture 1").Visible = True
ActiveSheet.Shapes("Picture 2").Visible = False
End If
If Target = 2 Then
ActiveSheet.Shapes("Picture 1").Visible = False
ActiveSheet.Shapes("Picture 2").Visible = True
End If
End If
End SubA "Picture 1" és "Picture 2" nevében a számot írd át a saját képeid sorszámára.
-
#16159
lappy
őstag
Sixkiller6
#16157
lappy
őstag
válasz
Sixkiller6
#16157
üzenetére
http://office.microsoft.com/hu-hu/excel-help/kor-kor-es-kor-sav-diagram-letrehozasa-HA001117937.aspx
szia!
itt talalod meg -
#16149
lappy
őstag
Bocimaster
#16119
lappy
őstag
válasz
Bocimaster
#16119
üzenetére
[link]
Szia!
Bocs a késésért, de nem volt egyszerű rájönni hogyan is működik.
Annyi a változás hogy a feladat napló munkalapon nem lehet automatikusan a táblázatot színezni (sötétebb világosabb cella színezés), csak manuálisan. -
#16118
lappy
őstag
Bocimaster
#16117
lappy
őstag
válasz
Bocimaster
#16117
üzenetére
Nem látszol annak csak nem igazán értem hogy ez mi így nem tudok segíteni!
És mi a feladat??! -
#16116
lappy
őstag
Bocimaster
#16115
lappy
őstag
válasz
Bocimaster
#16115
üzenetére
Ezt milyen függvény?!
Angolul vagy magyarul még egyszer leírnád! -
#16114
lappy
őstag
Bocimaster
#16112
lappy
őstag
válasz
Bocimaster
#16112
üzenetére
Delila1 megelőzött!!
-
lappy
őstag
válasz
baderoli
#16101
üzenetére
Ha kipróbálod az általad alkotott makrót akkor rájössz a hibákra. Mondjuk én sem értek nagyon hozzá, de kevés próbálgatással rá lehet jönni a hibára!
Érdemes előtte próbálgatni!
De itt van egy működő progi!Sub X_ek()
Dim sorF%, sorA%, oszlopE%, oszlopU%, i%, sor%, oszlop%
sorF% = 42: sorA% = 71: oszlopE% = 4: oszlopU% = 8
For i = 1 To 2
sor% = Rnd() * (sorF% - sorA%) + sorA%
oszlop% = Rnd() * (oszlopU% - oszlopE%) + oszlopE%
Cells(sor%, oszlop%) = "X"
sorF% = 42: sorA% = 71: oszlopE% = 10: oszlopU% = 12
sor% = Rnd() * (sorF% - sorA%) + sorA%
oszlop% = Rnd() * (oszlopU% - oszlopE%) + oszlopE%
Cells(sor%, oszlop%) = "X"
Next
End Sub -
lappy
őstag
-
#15997
lappy
őstag
Excelbarat
#15996
lappy
őstag
válasz
Excelbarat
#15996
üzenetére
A jokeresnél ez jó! Csak előtte össze kell fűzni a számokat és egy cellába kell írni a feltett számot!
=ÖSSZEFŰZ(N2;O2;P2;Q2;R2;S2)
=HA(AZONOS($T2;$O$1);6;HA(JOBB($T2;5)=JOBB($O$1;5);5;HA(JOBB($T2;4)=JOBB($O$1;4);4;HA(JOBB($T2;3)=JOBB($O$1;3);3;HA(JOBB($T2;2)=JOBB($O$1;2);2;0))))) -
#15995
lappy
őstag
Excelbarat
#15993
lappy
őstag
válasz
Excelbarat
#15993
üzenetére
Szia!
Ha visszaolvasol akkor rájössz, hogy a joker nem úgy működik!
Mindig hátulról kell előre haladni és ha 2,3,4, 5, 6 egyezik az adott joker számmal akkor van nyeremény! -
-
-
lappy
őstag
válasz
gurabli
#15620
üzenetére
Szia!
Na most az a kérdés hogy milyen sokszor szeretnéd átmásolni azt az egy képletet!
Ha viszonylag kevés cellába akkor a következőt tedd!
1. Beilleszted a képletet a megfelelő helyre.2. kijelölöd addig a sorig ameddig nem kell a képlet (mondjuk H10 ben van képlet és a következő a H16 be kell, akkor H10-H15 kijelölöd)
3. És utána a kijelölt cellánál megfogod a kis + jelet és végighúzod az oszlopon!!
-
lappy
őstag
válasz
gurabli
#15595
üzenetére
Egy hasonló macro a problémára!
Sub Makró1()
For i = 0 To 298 'ez az oszlop első 298 celláját másolja
Range("A" & i + 1).Select 'másolandó cella kijelölése (pl A1, A2, stb...)
Selection.Copy 'cella másolása
Range("B" & i * 16 + 1).Select 'célcella kijelölése (pl B1, B17, B33, stb...)
ActiveSheet.Paste 'cellába másolás
Application.CutCopyMode = False 'kijelölés megszüntetése
Next
End Sub -
-
lappy
őstag
Szia!
Én igaz nem értek annyira a macrohoz de az End if-el nem vége van a Elágazás logikai feltételek alapján ciklusnak??! és a következő sorban ezért jelzi a hibát?Egyszerű, egysoros forma
If feltételThen [utasítások] [Else utasítások]
Strukturált forma
If feltétel1 Then ' logikai feltétel melynek értéke igaz (true) vagy hamis (false)
[utasítások] ' ezeket az utasításokat hajtja végre a program, ha a feltétel1 igaz
[ElseIf feltétel2 Then
[utasítások] ... ' ezeket az utasításokat hajtja végre a program, ha a feltétel2 igaz
[Else
[utasítások]] ' ezeket az utasításokat hajtja végre a program, ha a feltétel1 és a feltétel2 is hamis eredményt ad
End If
-
#15181
lappy
őstag
dellfanboy
#15180
lappy
őstag
válasz
dellfanboy
#15180
üzenetére
Csak azért nem jön ki neked mert a 9+7+4 =20 és nem 24 el
-
#15172
lappy
őstag
RoyalFlush
#15162
lappy
őstag
válasz
RoyalFlush
#15162
üzenetére
Szia!
[link]
így próbáltad?! -
lappy
őstag
válasz
kekkec
#15136
üzenetére
2007 es verzióban!
Ha jól láttam akkor bizonyos tartományok vannak a kép alapján!
akkor én így csinálnám meg:
feltételes formázáson belül csak az adott tartalmú cellák formázása esetén a cellaérték a következők között van pl 0-10 beállítasz neki egy színt , majd az érvényességet a teljes tartományra állítod be! ezt megismétled addig amíg 90-100 % el nem jutsz! -
lappy
őstag
válasz
Geryson
#15109
üzenetére
Szia!
=HA(ÉS(SZÁM(H3);SZÁM(J3);SZÁM(K3));H3+M3+(N3/1,27);HA(ÉS(SZÁM(H3);SZÁM(J3));H3+M3;HA(SZÁM(H3);H3;"")))
ezt az O oszlopba írtam csak meg.
Bár van ami nem tiszta számomra "mindezt persze úgy, hogy pl. lehet, hogy nincs "H" és "J", de van "K"" hogy ilyenkor mit számoljon? -
lappy
őstag
Szia!
=HA(ÉS(ÜRES($A$1);NEM.SZÖVEG($A$2));0;1) bár nem tudom mit is szeretnél megvalósítani
Ez megnézi hogy A1-ben van e vmi, ill. az A2 is vizsgálja attól függően milyen képlet van is benne.
Ezt a képletet kell beilleszteni a feltételes formázás "feltételes formázás képlettel sorba és kijelölöd a tartományt! -
-
#14987
lappy
őstag
Vizes Tomi
#14986
lappy
őstag
válasz
Vizes Tomi
#14986
üzenetére
egy képet tudsz mutatni róla!
-
#14902
lappy
őstag
Dark Archon
#14901
lappy
őstag
válasz
Dark Archon
#14901
üzenetére
Szia!
A diagram kirajzoltatása még menne is, sikerül beállítani a logaritmikus skálát is, de negatív tartományban nem hajlandó kirajzolni.!
Amúgy elindítod a diagram készítőt! Az tengelyeket beállítod ha ez megvan akkor a súgóban rákeresel a logaritmikus szóra és ott lépésről lépésre leírja hogy kell átállítani. -
Szia!
Új hozzászólás Aktív témák
Hirdetés
Fferi50
- Assassin's Creed Shadows Collector's Edition PC
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Kaspersky, McAfee, Norton, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Antivírus szoftverek, VPN
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Bomba ár! Lenovo ThinkBook 14s Yoga - i5-1135G7 I 16GB I 256SSD I 14" FHD Touch I Cam I W11 I Gari
- BESZÁMÍTÁS! Gigabyte B760M i5 14600KF 32GB DDR4 1TB SSD RX 6700XT 12GB Zalman Z1 Plus Seasonic 650W
- Bomba ár! Lenovo IdeaPad 330S-15IKB - i5-8G I 8GB I 256SSD I 15,6" FHD I HDMI I Cam I W11 I Gari!
- Csere-Beszámítás! Gamer PC Számítógép! I5 12600KF / RTX 3070 / 32GB DDR4 / 512GB SSD
- Xiaomi Redmi Note 13 256GB Kártyafüggetlen 1Év Garanciával
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft
Város: Budapest
Cég: PC Trade Systems Kft.
Város: Szeged