- Honor Magic6 Pro - kör közepén számok
- Karaktere biztos lesz az első Nothing fejhallgatónak
- Samsung Galaxy S24 FE - később
- Kedden érkezik a Galaxy S25 Edge
- Samsung Galaxy A54 - türelemjáték
- iPhone topik
- Honor Magic7 Pro - kifinomult, költséges képalkotás
- Honor 200 Pro - mobilportré
- Fotók, videók mobillal
- 45 wattos vezeték nélküli töltés jön az új iPhone-ba
-
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
Hirdetés
Fferi50- EA Sports WRC '23
- A fociról könnyedén, egy baráti társaságban
- TCL LCD és LED TV-k
- Honor Magic6 Pro - kör közepén számok
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- Autós topik
- Karaktere biztos lesz az első Nothing fejhallgatónak
- Samsung Galaxy S24 FE - később
- Milyen alaplapot vegyek?
- További aktív témák...
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Vírusirtó, Antivirus, VPN kulcsok
- Eladó Steam kulcsok kedvező áron!
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - NYÁRI AKCIÓ!
- BESZÁMÍTÁS! Dell Precision 5820 XL Tower PC - Xeon W-2123 112GB RAM 512GB SSD 1TB RX 580 8GB Win 11
- Telefon felvásárlás!! iPhone 16/iPhone 16 Plus/iPhone 16 Pro/iPhone 16 Pro Max
- Bomba ár! HP ZBook Studio G5 - XEON I 32GB I 512SSD I Nvidia I 15,6" 4K DreamColor I Cam I W11 I Gar
- Azonnali készpénzes félkonfig / félgép felvásárlás személyesen / csomagküldéssel korrekt áron
- Azonnali készpénzes AMD Radeon RX 6000 sorozat videokártya felvásárlás személyesen/csomagküldéssel
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest