- gban: Ingyen kellene, de tegnapra
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- vrob: Az IBM PC és a játékok a 80-as években
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- zebra_hun: Hűthető e kulturáltan a Raptor Lake léghűtővel a kánikulában?
- Magga: PLEX: multimédia az egész lakásban
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- Gurulunk, WAZE?!
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
-
LOGOUT
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
Hirdetés
Fferi50- Diablo IV
- Formula-1
- Milyen billentyűzetet vegyek?
- Székesfehérvár és környéke adok-veszek-beszélgetek
- TCL LCD és LED TV-k
- WoW avagy World of Warcraft -=MMORPG=-
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- NVIDIA GeForce RTX 4080 /4080S / 4090 (AD103 / 102)
- Bemutatkozott a Poco X7 és X7 Pro
- Path of Exile (ARPG)
- További aktív témák...
- AKCIÓ! MSI B450 R5 5500 16GB DDR4 512GB SSD RTX 2070 8GB GDDR6 Rampage Shiva Zalman 500W
- Hp USB-C/Thunderbolt 3 dokkolók: USB-C Universal, G2, G4, G5, Hp Elite/Zbook- Thunderbolt 4 G4
- LG 55B4 - 55" OLED - 4K 120Hz 1ms - NVIDIA G-Sync - FreeSync Premium - HDMI 2.1 - PS5 és Xbox Ready
- Microsoft Windows, Office & Vírusirtók: Akciók, Azonnali Szállítás, Garantált Minőség, Garancia!
- Bomba ár! HP ZBook 15 Studio G3 - Intel Xeon I 32GB I 512SSD I 15,6" FHD I Nvidia I Cam I W10 I Gar
Állásajánlatok
Cég: PC Trade Systems Kft.
Város: Szeged
Cég: CAMERA-PRO Hungary Kft
Város: Budapest