Hozzászólások
-
SzerzőBejegyzés
-
Szia Imre!
Köszönöm, sokat segít.
Mivel a feltételes formázás igaz hamis adatokkal operál.Napokat, bocsánat.
Szia,
nem, nagyon eltér.
Ha visszaosztom 24 órával az eredményt, akkor a valos napot kapom vissza.Szia,
a sum véletlenül maradt benne. Kivancsi viltam, hogy változik e az eredmény, sajnos bizonyos esetekben szokot. Mint azt fentebb is leïrtam.
Igen van egy fix kezdő dátum óra perc, és van egy most függvény. A kettő különbsége adja meg az eltelt órák számát. És így lehet átlagolni.
Felszorozni azért kell, mert így veszi figyelembe a kezdő napot, különben, csak az órák különbséget adja vissza.Ezzel kapcsolatba, még annyi az észrevétel, hogy ha ezt: (HOUR(C7-C5) alkalmazom, akkor a valóságban eltelt órákat számolja,de csak angol verzioban, ha ezt: (Óra(C7-C5) magyar verziókban, akkor is az eltelt órákat számolja.
Viszont, ha ezt: (Óra(C7)-Óra(C5), akkor beleszámolja az aktuális órát is.
Csak a napok360-at javaslom, mert a napok függvényel már drasztikus az eltérés ugyanazon időintervallum ellenőrzése esetén.Köszönöm, megoldottam. De, ha van egyszerűbb, azt elfogadom.
Ezzel működik:
=SUM(DAYS360(C5,C7)*24+(HOUR(C7-C5)))Sub Enable_All_Right_Click_Menus()
‘This will enable all BuiltIn Command bars
Dim Cbar As CommandBar
For Each Cbar In Application.CommandBars
Cbar.Enabled = True
Next
End SubEzt futtattam a következő képpen: Nézet: makro létrehozása, a leírás mezőbe beillesztve a fenti kódot, és F5. Ekkor még nem csinál semmit, viszont a létrehozott makrót tudod szerkeszteni, és akkor tudod a fenti kódot kicserélni a vba ablakban akkor F5. Voala működik. El kell menteni, és az indításkor már minden ok. Örülök, hogy megoldódott, remélem másnak is jól jöhet.
Nekem működött, mert sikerült megnyitnom egy védett tartalmat. A mi még érdekes lehet ezzel kapcsolatban, hogy védett nézetben működik a jobb gomb, de részleges lehetőségekkel. Az offoce-t töröltem, és újratelepítettem, de semmi nem változott. Nagy a gyanúm, hogy win10 operációs rendszer hiba. Sajnos csak az xls-nél tapasztaltam ezt a problémát. Amikor 2003-as verzióban nyitom meg akkor a mentésnél előugrik az ablak, hogy hogy mentsem, viszont emiatt az sem működik, illetve csökkentett módban sem, egyszerűen elmenti felugró ablak nélkül.
Szia Imre!
Nekem is ez a problémám a 13-a verzióban. futtattam a megadott makrot, de semmi. A másikat nem tudom, hol kell futtatni.
Gyanítom, hogy valami központi frissítés akadás az okozója, ja és win10 alatt amit nem igazán furcsállok, mert elég gagyi a 7-hez képest. Az első függvényprogramom padlóra vágta, de aztán helyreállt.
A múltkor ez futtattam:
Sub PasswordBreaker()
‘Author unknown but submitted by brettdj of http://www.experts-exchange.comDim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 As Integer
On Error Resume Next
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If ActiveSheet.ProtectContents = False Then
MsgBox „One usable password is ” & Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
ActiveWorkbook.Sheets(1).Select
Range(„a1”).FormulaR1C1 = Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: NextEnd Sub,
de sajnos az általam kitalált karaktersor nem tudta feltörni fél órán keresztül pörgettyűzött, aztán megszakítottam a kínlódását, sima 10 karakteres sort más variációval feltört.Ez okozhatja ezt a jelenséget? Megpróbáltam újratelepíteni, de ugyanaz a szitu.
Amennyiben tudsz segíteni azt megköszönném. -
SzerzőBejegyzés
