-
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
-
#47211
lappy
őstag
MostaPista
#47208
lappy
őstag
válasz
MostaPista
#47208
üzenetére
Itt egy hasonló probléma, bár képlettel is lehet
https://pcforum.hu/tudastar/130745/excelben-a-lehetseges-kombinaciok-kiirasa -
#47206
lappy
őstag
MostaPista
#47205
lappy
őstag
válasz
MostaPista
#47205
üzenetére
Csinálj variációt majd összeszorzod és félteles formázás segítségével megjelölöd ami jó neked
-
#47202
lappy
őstag
MostaPista
#47201
lappy
őstag
válasz
MostaPista
#47201
üzenetére
https://support.microsoft.com/hu-hu/office/k%C3%B6rk%C3%B6r%C3%B6s-hivatkoz%C3%A1sok-megenged%C3%A9se-vagy-elt%C3%A1vol%C3%ADt%C3%A1sa-8540bd0f-6e97-4483-bcf7-1b49cd50d123
-
#47195
lappy
őstag
Winner_hun
#47191
lappy
őstag
válasz
Winner_hun
#47191
üzenetére
Attól függ milyen excel használsz de össze lehet adni.
-
#47156
lappy
őstag
EroSennin79
#47155
lappy
őstag
válasz
EroSennin79
#47155
üzenetére
használd a subtotal függvényt
-
lappy
őstag
válasz
gzbotii
#47146
üzenetére
az első képleted valójában egy szorzatösszeg ami két tömböt szoroz majd adja össze, na most ha jól sejtem vmi olyat szeretnél, hogy ha a checkbox ki van pipálva akkor azokat vegye csak figyelembe ahol van pipa. Na most ez is egy tömb lesz így összesen 3 tömb szorzata kell ha jól sejtem
-
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/
![;]](http://cdn.rios.hu/dl/s/v1.gif)
7;"*K311*";C3
Új hozzászólás Aktív témák
- TCL LCD és LED TV-k
- OLED TV topic
- ASZTALI GÉP / ALKATRÉSZ beárazás
- Android alkalmazások - szoftver kibeszélő topik
- Teljesen M5 SoC-családra vált az Apple Macbook Air és Pro
- Huawei Watch GT 6 és GT 6 Pro duplateszt
- Retro teló rajongók OFF topicja
- PlayStation 5
- AMD APU (AM4 és AM5) topik
- Kicombosította az M5-ös SoC-családot az Apple
- További aktív témák...
- Samsung Galaxy S20 Ultra / 12/128GB / Kártyafüggetlen / 12Hó Garancia
- BESZÁMÍTÁS! ASRock B450M R5 5600 16GB DDR4 512GB SSD RTX 3070 8GB SilentiumPC Signum SG1 750W
- Kingston SNV3S 1 TB NVMe SSD VADIÚJ, 3 év NÉVRE SZÓLÓ GARANCIA!
- Új HP 15 Victus FHD IPS 144Hz i5-12500H 12mag 16GB 512GB SSD Nvidia RTX 4050 6GB Win11 Garancia
- 187 - Lenovo LOQ (15IRX10) - Intel Core i7-13650HX, RTX 5070 (ELKELT)
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest