Hirdetés
- Akciófigyelő: A One listázta be a legolcsóbb hajlítható telefont
- iPhone topik
- Apple iPhone 14 - tavalyi termésből főzve
- Samsung Galaxy S23 Ultra - non plus ultra
- Samsung Galaxy S25 - végre van kicsi!
- Apple Watch
- Tényleg nem változik semmit a Samsung Galaxy S26+?
- Képek, árak, és EU címkék három Redmi Note 15 5G telefonhoz
- Samsung Galaxy Watch7 - kötelező kör
- Samsung Galaxy A54 - türelemjáték
-
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
-
#53269
Fire/SOUL/CD
félisten
lacipapi
#53268
válasz
lacipapi
#53268
üzenetére
Egy szám vagy pozitív vagy negatív (vagy nulla), de egyszerre nem lehet mindkettő. Úgy lehet "kiváltani" a dolgot, hogy az adott cellával (amiben pozitív vagy negatív szám van) elvégzed a szükséges művelete(ke)t és a kapott eredményt megszorzod -1 -el.
pl.
A1->5, B1->6, akkor C1->=(A1+B1)*-1Természetesen cellaformázással megoldható, hogy amúgy egy pozitív szám negatív előjellel jelenjen meg egy cellában, de számoláskor azt az excel a képletben pozitívnak veszi. [kép]
-
karlkani
aktív tag
válasz
lacipapi
#51765
üzenetére
Értelemszerűen a csatolmányt ott fogja keresni, ahonnan betallózod. Objektumként berakva a dokumentumokat megnyitja a PDF olvasó, nem kell a gépen lenniük (kipróbáltam, igaz nem 2010-est használok). Az, hogy ott miért írja ezt a hibát az passz. Gondolom így csináltad...
-
Delila_1
veterán
válasz
lacipapi
#51763
üzenetére
A cellán jobb klikk, Csatolás. A Hely mezőben kitallózód a fájlod helyét, nevét.
A Megjelenő szövegbe beírod azt a szöveget, amit a celládban látni szeretnél, majd OK.Egy link lesz a celládban, amire klikkelve betöltődik a pdf-ed. Csatolhatsz így más típusú (kép, Excel, doc, stb.) fájlokat is.
-
-
Fferi50
Topikgazda
válasz
lacipapi
#51347
üzenetére
Szia!
Próbáltad már, hogy időformátumban beírtad a kezdő és a vége időt, majd a kettő különbsége =vége-kezdő (az Excel ugyanis számként kezeli a dátum/idő értékeket.)
Pl. =B1-A1 a C1 cellába, ha mindkét cellában idő formátum van, a C1 cellában is idő formátumban jelenik meg.
A második kérdésedre: egy cellában vagy képlet van vagy egyedi érték. Ha egy olyan cellába írsz számot, amelyben képlet van, akkor a képlet megsemmisül. Ehhez a feladathoz 3 másik cellát kell használnod, a megfelelő képlettel.
Üdv. -
Fferi50
Topikgazda
válasz
lacipapi
#51147
üzenetére
Szia!
Ha nem szeretnél makrózni, akkor magyar Excelben a Dátum : Ctrl + 0 (a számsoron, nem a számbillentyűzeten), az Idő Ctrl + Shift + . (pont) combó - egy plusz mozdulat:
Nap elején a Dátum, nap közben az Idő.
Üdv.
(Ps. így nem kell makróbarátként mentened a munkafüzetet) -
Delila_1
veterán
válasz
lacipapi
#51147
üzenetére
A lapodhoz kell rendelned a makrót, lásd a Téma összefoglaló leírásában.
Private Sub Worksheet_Change(ByVal Target As Range)If Target.Column = 3 ThenApplication.EnableEvents = FalseCells(Target.Row, 1) = Format(Now, "yyyy.mm.dd hh:mm:ss")Application.EnableEvents = TrueEnd IfEnd SubEz a C oszlopba [Target.Column = 3] bevitt érték esetén az azonos sor A oszlopába [Cells(Target.Row,1)] írja be a pillanatnyi időt.
-
-
Delila_1
veterán
válasz
lacipapi
#14545
üzenetére
Két szövegdobozt vettem fel. Az egyik szövege "Mentve", ennek az M nevet adtam. A másiké "Másolatként mentve", ez az Mm névre hallgat.
A makróban a két Loop While kezdetű sorban állítsd az időt a saját géped sebességéhez.
Sub Masolat()
Dim WB As Workbook, FN As String, kiterj As String, kezd As Long
Set WB = ActiveWorkbook
FN = WB.Name
kiterj = Right(FN, Len(FN) - Application.WorksheetFunction.Search(".", FN) + 1)
FN = Left(FN, Len(FN) - Len(kiterj))
ActiveSheet.Shapes("Mm").Visible = False
ActiveSheet.Shapes("M").Visible = False
Application.DisplayAlerts = False
If InStr(FN & kiterj, "masolat") Then
WB.Save
ActiveSheet.Shapes("M").Visible = True
Calculate
kezd = 1
Do
kezd = kezd + 1
Loop While kezd < 10 ^ 7
ActiveSheet.Shapes("M").Visible = False
Else
WB.SaveAs FN & "_masolat" & kiterj
ActiveSheet.Shapes("Mm").Visible = True
Calculate
Do
kezd = kezd + 1
Loop While kezd < 10 ^ 7
ActiveSheet.Shapes("Mm").Visible = False
End If
Application.DisplayAlerts = True
End Sub -
-
Delila_1
veterán
válasz
lacipapi
#14530
üzenetére
Másik módszer a másolathoz:
Sub Masolat()
Dim WB As Workbook, FN As String
Set WB = ActiveWorkbook
FN = WB.Name
Application.DisplayAlerts = False 'kérdés letiltása
WB.SaveAs Left(FN, Len(FN) - 5) & "_másolat"
Application.DisplayAlerts = True 'kérdés engedélyezése
End Sub -
lappy
őstag
válasz
lacipapi
#14530
üzenetére
Szia!
Sub SaveWorkbookBackup()
Dim awb As Workbook, BackupFileName As String, i As Integer, OK As Boolean
If TypeName(ActiveWorkbook) = "Nothing" Then Exit Sub
Set awb = ActiveWorkbook
If awb.Path = "" Then
Application.Dialogs(xlDialogSaveAs).Show
Else
BackupFileName = awb.FullName
i = 0
While InStr(i + 1, BackupFileName, ".") > 0
i = InStr(i + 1, BackupFileName, ".")
Wend
If i > 0 Then BackupFileName = Left(BackupFileName, i - 1)
BackupFileName = BackupFileName & "_masolat" & ".xls"
OK = False
On Error GoTo NotAbleToSave
With awb
Application.StatusBar = "Munkafüzet mentése"
.Save
Application.StatusBar = "Munkafüzet mentése..."
.SaveCopyAs BackupFileName
OK = True
End With
End If
NotAbleToSave:
Set awb = Nothing
Application.StatusBar = False
If Not OK Then
MsgBox "Biztonsági másolat nem kerül mentésre!", vbExclamation, ThisWorkbook.Name
End If
End Sub -
#14504
Fire/SOUL/CD
félisten
lacipapi
#14500
Új hozzászólás Aktív témák
Fferi50
- Garmin Vivomove 3S Hybrid okosóra Használt, karcmentes állapotban 3 hónap garanciával!
- Azonnali készpénzes INTEL CPU NVIDIA VGA számítógép felvásárlás személyesen / postával korrekt áron
- Eladó One Plus Nord 2T 5G 8/128GB / 12 hó jótállás
- Apple iPhone 16 Pro Black Titanium-Használt, karcmentes 99% akku Garancia 2028. 02. 23-ig ONE
- KARÁCSONYI AKCIÓK! GARANCIA, SZÁMLA - Windows 10 11, Office 2016 2019 2021,2024, vírusírtók, VPN
Állásajánlatok
Cég: ATW Internet Kft.
Város: Budapest
Cég: BroadBit Hungary Kft.
Város: Budakeszi