-
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
-
lappy
őstag
válasz
BullZeye
#50086
üzenetére
Ez adja meg az utolsó szam helyét
Formula 1: =MAX(IF(ISNUMBER(VALUE(MID(A2,ROW(INDIRECT("1:" & LEN(A2))),1))),ROW(INDIRECT("1:" & LEN(A2))))) + Ctrl + Shift + Enter;
Formula 2: =MAX(IFERROR(FIND({1,2,3,4,5,6,7,8,9,0},A2,ROW(INDIRECT("1:"&LEN(A2)))),0)) + Ctrl + Shift + Enter
-
lappy
őstag
válasz
eszgé100
#50065
üzenetére
Sub TwoFonts2()
Dim MyPos, SearchChar
SearchChar = "."
Range("B2").Select
With ActiveCell.Characters(Start:=5, Length:=1).Font
.Name = "Calibri"
.FontStyle = "Bold"
.Size = 16
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
With ActiveCell.Characters(Start:=8, Length:=3).Font
.Name = "Calibri"
.FontStyle = "Bold"
.Size = 16
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
End Sub -
lappy
őstag
válasz
Onderon
#49950
üzenetére
=HA(KEREK.LE(A1/IDŐ(0;15;0);0)<1;" ";HA(KEREK.LE(A1/IDŐ(0;15;0);0)<8;B1*0,01875*KEREK.LE(A1/IDŐ(0;15;0);0);HA(KEREK.LE(A1/IDŐ(0;15;0);0)<16;B1*0,175;HA(KEREK.LE(A1/IDŐ(0;15;0);0)<24;B1*0,2))))
Na az első részben megcsináltam az általam jónak gondolt elv alapján a számítást
A kodban a B1*0,01875 .. részt másolni es azt kell átalakítani -
-
lappy
őstag
válasz
Onderon
#49950
üzenetére
A képletből kiveszed az = jelet és minden feltétel eggyel csökkenteni kell pl ahol 9 van oda 8 megy
De gondoltam hogy egy kicsit átalakítod es kipróbálod mi történik ha nem egyenlő nagyobb stb.
Amúgy a megfogalmazás is érdekes akkor hiszen 1-2 ora után jár 15% akkor eleg 1 órát dolgozni es kapom a zs-t
De most látom hogy teljesen más kell neked mint amit csináltam
Majd holnap vagy addigra vki megírja -
#49916
lappy
őstag
istvankeresz
#49915
lappy
őstag
válasz
istvankeresz
#49915
üzenetére
=HA(C31="SZ";I30-H31;HA(ÜRES(C31);" ";I30))
ha jól értem mit is akarsz ezt kell I31 be beírni majd lehúzni -
#49898
lappy
őstag
istvankeresz
#49897
lappy
őstag
válasz
istvankeresz
#49897
üzenetére
ebbe sok minden kell
![;]](//cdn.rios.hu/dl/s/v1.gif)
-
#49896
lappy
őstag
Triathlete
#49894
lappy
őstag
válasz
Triathlete
#49894
üzenetére
nekem az angol verzió így csinálja
-
#49892
lappy
őstag
luckyboi82
#49891
lappy
őstag
válasz
luckyboi82
#49891
üzenetére
A szürke szöveg maradhat, de törölhető is
E3 ahol az osztò van ezt akárhová teheted a munkalapon
A worksheet neve az a munkalap amin átváltász
A tartományt a b2:b6 nal tudod átírni
A makro átírja a munkalapon belül megadott tartomany összes numerikus adatait ha kell az eredeti akkor másolatot kell készíteni -
#49890
lappy
őstag
luckyboi82
#49889
lappy
őstag
válasz
luckyboi82
#49889
üzenetére
ezzel lehet osztani az összes számot ami az adott tartományban van
Az E3 itt a váltószámSub Divide_a_range_of_cells_by_same_number()
'declare variables
Dim ws As Worksheet
Dim rng As Range
Dim myVal As Range
Set ws = Worksheets("Munka1")
Set rng = ws.Range("B2:B6")
For Each myVal In rng
myVal = myVal.Value / ws.Range("E3") ' ide lehet tenni * is akkor visszavált
Next myVal
End Sub -
#49887
lappy
őstag
Triathlete
#49886
lappy
őstag
válasz
Triathlete
#49886
üzenetére
fájl - beállítások - képletek - képleteken végzett munka - S1O1 hivatkozás pipa ki
-
#49884
lappy
őstag
the radish
#49882
lappy
őstag
válasz
the radish
#49882
üzenetére
ismétlődések eltávolítása
-
-
#49873
lappy
őstag
Csokishurka
#49872
lappy
őstag
válasz
Csokishurka
#49872
üzenetére
fkeres függvény
-
lappy
őstag
-
-
#49593
lappy
őstag
angelus8925
#49590
lappy
őstag
válasz
angelus8925
#49590
üzenetére
a másodikra:
beszúrás - táblázat - kijelölöd a táblázatot - fejlécsor eltávolítás ha nem kell - táblázat stílusa -
#49587
lappy
őstag
SwissAirplan
#49586
lappy
őstag
válasz
SwissAirplan
#49586
üzenetére
Javítva
-
#49583
lappy
őstag
SwissAirplan
#49582
lappy
őstag
válasz
SwissAirplan
#49582
üzenetére
=INDEX(A:A,MATCH(143^143,A:A))
-
#49570
lappy
őstag
MasterMark
#49569
lappy
őstag
válasz
MasterMark
#49569
üzenetére
Akkor ezt nezd meg
-
#49564
lappy
őstag
MasterMark
#49561
lappy
őstag
válasz
MasterMark
#49561
üzenetére
Akkor konvertald át a hivatkozást majd beszúrsz egy sort es visszalakítod
-
#49500
lappy
őstag
Kence Fice
#49499
lappy
őstag
válasz
Kence Fice
#49499
üzenetére
mit szeretnél megvalósítani?
-
lappy
őstag
válasz
f4lcon
#49459
üzenetére
feltételes formázással kiemeled az a cellát ami nem fele meg a kritériumnak
illetve ha a cellával van további számolás is akkor a képletbe is bele lehet rakni ha az adott értéknél kisebb akkor hibás adat lesz és nem egy számolt érték.
vagy vba ami figyeli a cella értékeit -
#49458
lappy
őstag
soslajos1987
#49456
lappy
őstag
válasz
soslajos1987
#49456
üzenetére
=ÖSSZEFŰZ(A1;".";B1;HA(ÜRES(C1);" ";".");C1)
-
#49457
lappy
őstag
soslajos1987
#49456
lappy
őstag
válasz
soslajos1987
#49456
üzenetére
ezzel a képlettel nem kell szétszedni a neveket
=HELYETTE(A1;" ";".")
vagy
ha az exceled tudja SZÖVEGÖSSZEFŰZÉS függvénnyel
![;]](http://cdn.rios.hu/dl/s/v1.gif)
Új hozzászólás Aktív témák
- Milyen monitort vegyek?
- Gaming notebook topik
- TCL LCD és LED TV-k
- Renault, Dacia topik
- LEGO klub
- Fejhallgató erősítő és DAC topik
- Távol-keleti webshopok OFF topikja (játékok, kuponok, stb.)
- Android alkalmazások - szoftver kibeszélő topik
- mefistofeles: Az elhízás nem akaratgyengeség! 2 Ahogy én csinálom.......
- EAFC 26
- További aktív témák...
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- PC Game Pass előfizetés
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - 15% AKCIÓ
- Fallout 4 Pip-Boy Edition eladó
- 2 TB-os Samsung 980 PRO M.2 SSD with heatsink - garanciával
- Keresünk Galaxy S23/S23+/S23 Ultra/S23 Fe
- 267 - Lenovo ThinkBook 16 (G6 ABP) - AMD Ryzen 5 7530U, no GPU
- iKing.hu Apple iPhone 14 Pro Deep Purple 128GB használt megkímélt 100% akku 6 hónap garancia
- HP ProDesk 600 G5 i5-9500 16GB 512GB 1 év garancia
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest