- Android alkalmazások - szoftver kibeszélő topik
- CMF Buds Pro 2 - feltekerheted a hangerőt
- iPhone topik
- Samsung Galaxy Watch7 - kötelező kör
- Megjelent a Poco F7, eurós ára is van már
- Telekom mobilszolgáltatások
- One mobilszolgáltatások
- Vivo X200 Pro - a kétszázát!
- Mobil flották
- Okosóra és okoskiegészítő topik
-
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
-
lappy
őstag
válasz
andreas49
#47097
üzenetére
Minden képlet
https://support.microsoft.com/hu-hu/office/a-k%C3%A9pletek-megjelen%C3%ADt%C3%A9se-%C3%A9s-kinyomtat%C3%A1sa-65a29965-b1b1-40db-9cb7-4fd051da3a5c
Csúszka
https://support.microsoft.com/hu-hu/office/g%C3%B6rget%C5%91s%C3%A1vok-elrejt%C3%A9se-vagy-megjelen%C3%ADt%C3%A9se-a-munkaf%C3%BCzetben-2101e630-fa9b-4d22-90e0-b110278bafa7 -
#47093
lappy
őstag
MostaPista
#47092
lappy
őstag
válasz
MostaPista
#47092
üzenetére
-
lappy
őstag
válasz
Dilikutya
#47070
üzenetére
Private Sub Worksheet_Change
Dim xRg As Range, xCell As Range
On Error Resume Next
If (Target.Count = 1) Then
If (Not Application.Intersect(Target, Me.Range("B:B")) Is Nothing) Then _
Target.Offset(0, -1) = Date
Application.EnableEvents = False
Set xRg = Application.Intersect(Target.Dependents, Me.Range("B:B"))
If (Not xRg Is Nothing) Then
For Each xCell In xRg
xCell.Offset(0, -1) = Date
Next
End If
Application.EnableEvents = True
End If
End Sub
Ez minden beírt cella mellé írja a dátumot -
#47059
lappy
őstag
MostaPista
#47058
lappy
őstag
válasz
MostaPista
#47058
üzenetére
nem igazán tudom hogy nálad mi a 52-55
azért írtam le a képletet amivel ki tudod számolni a meredekséget
veszel két pontot az egyenesről és az egyes pontokhoz tartozik egy (x;y) koordináta, na abból tudod kiszámolni
vagy tegyél ide egy példát
-
#47057
lappy
őstag
MostaPista
#47056
lappy
őstag
válasz
MostaPista
#47056
üzenetére
Ha lineáris akkor igen
Ismerni kell a meredekséget hozzá.
m= (y2-y1) /(x2-x1) -
#46953
lappy
őstag
Darko_addict
#46952
lappy
őstag
válasz
Darko_addict
#46952
üzenetére
több vizsgálat kell hogy több féle színt lehessen rárakni a cellára
ez a képlet nem teljes de vmi hasonlókat kell vizsgálnod
=HA(ÉS(30<(B3-MA());60>(B3-MA()));1;0)
ez a 60 és 30 közötti napokat vizsgálja
=HA(ÉS(30>(B3-MA());-10<(B3-MA()));1;0)
ez a 30 és -10 közötti napokat
azt hogy > vagy >= legyen azt majd eldöntöd -
lappy
őstag
-
lappy
őstag
Na szerintem inkább neked kellene normálisan fogalmazni hogy mit szeretnél!
És remélem aki segíthetne a fórumon neked az egyik sem fog ezek után! Aki ismeri Delila1 azt tudja hogy egyáltalán nem olyan ahogy te leirtad és sokszor pont nekünk akik segítenek azoknak kell kihamozni hogy mit akar a másik. De a te esetedben nagyon nehéz. -
#46877
lappy
őstag
MostaPista
#46876
lappy
őstag
válasz
MostaPista
#46876
üzenetére
Miért kéne egyesével, bár nem derült ki hogy mit akarsz.
Lehet kijelölni egér segítségével gyorsabban is. -
lappy
őstag
Pontosan nem tudom mit akarsz a képlettel, de megpróbáltam excelben rájönni és a következőt csinálja:
egy általad megadott tömbben visszaadja azt az értéket ahányadik sorban vagy éppen
pl: a tömb 1-10 tartalmaz elemeket és te az 5 sorban vagy akkor a kapott érték az 5 lesz.
na most googlesheet ben =IFERROR(INDEX(A$7:A$10;ROW());" ") ez a képlet is ugyanazt adja vissza
ha jó amit az elején írtam -
#46861
lappy
őstag
MostaPista
#46860
lappy
őstag
válasz
MostaPista
#46860
üzenetére
Jobb gomb elrejtés
Ha a táblázat végén lévő oszlopokat akarod elrejteni akkor crtl + nyíl majd így amikor kijelölted akkor jobb gomb elrejtés -
lappy
őstag
=HA(NAP(MA())>=25;((ÉV(MA())-ÉV(D2))*12+HÓNAP(MA())-HÓNAP(D2)-(NAP(MA())<NAP(D2))+1)*2000)
majd kelleni fog egy kezdő dátum amit vagy külön megadsz (képlet alapján D2 cella) vagy a képletbe közvetlen be kell vinned a D2 helyére!
ha 2020.10.01 a kezdő dátum akkor a mai napig minden 25 hófordulóval számolva 16000 -nek kell kijönni. -
lappy
őstag
Sub LoopSheetsSaveAsPDF()
'Create variables
Dim ws As Worksheet
'Loop through all worksheets and save as individual PDF in same folder
'as the Excel file
For Each ws In ActiveWorkbook.Worksheets
ws.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "/" & ws.Name & ".pdf"
Next
End Sub -
#46765
lappy
őstag
MostaPista
#46764
lappy
őstag
válasz
MostaPista
#46764
üzenetére
A másodikat meg talán értem mért lehet van vmi olyan folyamat ami tarhelyet foglal és emiatt lesz kevesebb hely. De az első esetében nincs ilyen (max nagyobb méretű fájt akarsz másolni?)
Amúgy jól számolták.
u.i. nem volt időm a projektre vizsgázom ma és ha vége megcsinalom amiről beszéltünk. -
-
lappy
őstag
legördülő lista több elem kiválasztása esetén ezzel a kóddal lehetne, de nem működik és nem tudom miért
ha vki ránézne köszönöm
Option ExplicitPrivate Sub Worksheet_Change(ByVal Target As Range)
Dim rngDV As Range
Dim oldVal As String
Dim newVal As String
Dim strVal As String
Dim i As Long
Dim lCount As Long
Dim Ar As Variant
On Error Resume Next
Dim lType As Long
If Target.Count > 1 Then GoTo exitHandlerlType = Target.Validation.Type
If lType = 3 Then
Application.EnableEvents = False
newVal = Target.Value
Application.Undo
oldval = Target.Value
Target.Value = newVal
If Target.Column = 3 Then
If oldVal = "" Then
Else
If newVal = "" Then
Else
On Error Resume Next
Ar = Split(oldVal, ", ")
strVal = ""
For i = LBound(Ar) To UBound(Ar)
Debug.Print strVal
Debug.Print CStr(Ar(i))
If newVal = CStr(Ar(i)) Then
strVal = strVal
lCount = 1
Else
strVal = strVal & CStr(Ar(i)) & ", "
End If
Next i
If lCount > 0 Then
Target.Value = Left(strVal, Len(strVal) - 2)
Else
Target.Value = strVal & newVal
End If
End If
End If
End If
End IfexitHandler:
Application.EnableEvents = True
End Sub -
#46682
lappy
őstag
MostaPista
#46681
lappy
őstag
válasz
MostaPista
#46681
üzenetére
Mint ahogy korábban írtam a gantt diagram. És nem csak építésőiparban gyártási folyamatokra jó, hanem minden olyan projekt ami kezdet vég és elvégzendo feladatok vannak.
Persze hiányzik a személy és a hely de mivel olyan amit te szeretnél az bizony fizetős és az sem biztos hogy 100 % bán megfelelő.
Kisebb munkával egy jó alap kiegészítheto személy nevekkel és a hellyel. -
#46668
lappy
őstag
Peterhappy
#46666
lappy
őstag
válasz
Peterhappy
#46666
üzenetére
Dashboard amit még megnezhetsz
-
#46654
lappy
őstag
MostaPista
#46652
lappy
őstag
válasz
MostaPista
#46652
üzenetére
Gantt diagram de azt egy kicsit tovább kell fejleszteni egy része lekezelhető vele. A másik részét külön kell megoldani (résztvevők)
De lehet van olyan megoldás ami ezt is lekezeli -
#46593
lappy
őstag
zsoltzsolt
#46592
lappy
őstag
válasz
zsoltzsolt
#46592
üzenetére
Google keresőbe beirod a megfelelő kulcsszavakat és utána tudsz nézni neked megfelelőt.
Makró szükséges hozzá főleg ha automatikusan többet szeretnél küldeni -
#46589
lappy
őstag
anonymus89
#46588
lappy
őstag
válasz
anonymus89
#46588
üzenetére
mivel nem tudjuk hogy neked hova kell , ami majd ; lesz így nehéz segíteni
amit mutattam abból tudsz kiindulni vagy hasonló megoldásokból -
#46587
lappy
őstag
anonymus89
#46585
lappy
őstag
válasz
anonymus89
#46585
üzenetére
https://www.ablebits.com/office-addins-blog/2014/04/24/convert-excel-csv/
-
#46495
lappy
őstag
Dr. Student
#46494
lappy
őstag
válasz
Dr. Student
#46494
üzenetére
https://www.auditexcel.co.za/blog/match-positive-negative-numbers-excel/
nézd meg ezt -
#46432
lappy
őstag
Soulfly842
#46431
lappy
őstag
válasz
Soulfly842
#46431
üzenetére
HA(BAL(A1;2)="06";"36"&A1)
Az előbb kapott képletbe jó
Vagy a helyette függvény is jó -
#46396
lappy
őstag
Norbika1493
#46395
lappy
őstag
válasz
Norbika1493
#46395
üzenetére
https://www.contextures.com/xluserform02.html
Akár ez is jó lehet -
lappy
őstag
válasz
bozsozso
#46338
üzenetére
Vmi nem kerek, mert ahhoz hogy 100% írjon be vmi függvény ahhoz tudni kell az arányt, de ha már tudom az arányt akkor csak azt kell másolni így nincs értelme egy bonyolult függvénynek.
Mert a példában is ott az 50-50% de mégis az egyik 0 a másik 100% így semmilyen függvény nincs amivel megoldhato
7;"*K311*";C3
Új hozzászólás Aktív témák
Hirdetés
- Vezetékes FEJhallgatók
- Miskolc és környéke adok-veszek-beszélgetek
- Óvodások homokozója
- A nagy Szóda, Szódakészítés topic - legyen egy kis fröccs is! :-)
- Kecskemét és környéke adok-veszek-beszélgetek
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Revolut
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- 3D nyomtatás
- További aktív témák...
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- ROBUX ÁRON ALUL - VÁSÁROLJ ROBLOX ROBUXOT MÉG MA, ELKÉPESZTŐ KEDVEZMÉNNYEL (Bármilyen platformra)
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - NYÁRI AKCIÓ!
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Eladó Steam kulcsok kedvező áron!
- ÁRGARANCIA! Épített KomPhone i5 12400F 16/32/64GB RAM RTX 5060Ti 8GB GAMER PC termékbeszámítással
- LG 48C4 - 48" OLED evo - 4K 144Hz - 0.1ms - NVIDIA G-Sync - FreeSync - HDMI 2.1 - A9 Gen7 CPU
- Új! Targus - USB-C Dual HDMI 4K HUB - 2 HDMI-vel. Saját töltő nélkül 2 monitorral (120Hz)
- AKCIÓ! Gigabyte H610M i5 12400F 32GB DDR4 512GB SSD Intel ARC A770 16GB Rampage SHIVA 650W
- Lenovo Thinkpad P16 G2 - i9-13980HX, 64GB, 1TB SSD, 16" WQUXGA (3840 2400), RTX 4090 (ELKELT)
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: PC Trade Systems Kft.
Város: Szeged