Gå till innehåll

MH_

Medlem
  • Innehållsantal

    180
  • Gick med

  • Dagar vunna

    20

Allt postat av MH_

  1. Har inte testat själv. men du kan väl kolla det här? https://learn.microsoft.com/sv-se/office/vba/api/excel.workbook.fileformat Konstanter: https://learn.microsoft.com/en-us/office/vba/api/excel.xlfileformat Vill du ha ett "vanligt" modernt excelformat så är du är alltså ute efter: xlOpenXMLWorkbook 51 Så i microsoftexemplet bör "save as" raden ändras till ActiveWorkbook.SaveAs fileFormat:=xlOpenXMLWorkbook Och om du kollar konstant-sidan så är det en massa format som har ändelsen .XLS (16,27,29,33,39,39,56,43,-4143). Så för "IF-raden" måste du kolla hela gänget Sub PutinSugerOtvättadBjörnK() Dim iX As Integer iX = ActiveWorkbook.FileFormat If (iX = 16) Or (iX = 27) Or (iX = 29) Or (iX = 33) Or (iX = 39) Or (iX = 39) Or (iX = 56) Or (iX = 43) Or (iX = -4143) Then ActiveWorkbook.SaveAs FileFormat:=xlOpenXMLWorkbook End If End Sub Man borde kunna kolla filändelsen med "ActiveWorkbook.Name". Men Om du har dolt filändelser i utforskaren så skall VBA tydligen respektera det (av någon fullständigt obegriplig anledning).
  2. Först måste du plocka ut själva formeltexten (annars förutsätter Excel att du vill jobba med värdet av beräkningen i A1) =FORMELTEXT(A1) Om vi tar bort "=" tecknet så får vi något trevligt att jobba med. Det kan du exempelvis åstadkomma genom att byta ut "=" mot ingenting "". =BYT.UT(FORMELTEXT(A1);"=";"") Sen delat du din text med "+" som skiljetecken (de hamnar i olika celler) =DELATEXT(BYT.UT(FORMELTEXT(A1);"=";"");"+") se till att texten tolkas som siffror genom att muliplicera med 1: =DELATEXT(BYT.UT(FORMELTEXT(A1);"=";"");"+")*1 Sen beräknar du medelvärdet på de utplockade siffrorna (hamnar i en cell) =MEDEL(DELATEXT(BYT.UT(FORMELTEXT(A1);"=";"");"+")*1) ************************************************************ Eller räkna hur många delar det blir när man delar vid "+" tecknet: =ANTALV(DELATEXT(FORMELTEXT(A1);"+")) och räkna ut medlet genom att dividera summan med den siffran =A1/ANTALV(DELATEXT(FORMELTEXT(A1);"+")) Lite kortare, men jag tycker personligen bättre om föregående metod. Välj det du tror att du förstår enklast om 6 månader när du försöker lista ut vad tusan du gjorde (och använd Granska->anteckningar: ofta och mycket.).
  3. I dina exempel så har du uttag/månad och ränta per månad. Så dina perioder är=månader Då är det bara att dela månaderna med 12 så får du ut det värde du vill. 4 år och 8 månader = 4*12+8=56 månader 56/12=4,66666666... Så det här borde göra det du vill: =C16/12 eller om du vill snobba till det: =OMFEL(C16/12;"Oändlig utbetalning") Det är alltid svårt att nollställa hjärnan och ta den enklaste lösningen när man har hållit på att krånglat till det innan 🙂
  4. " aldrig kommer betala tillbaka den helt och hållet" Ja, eller: du kommer aldrig att minska skulden över huvud taget. 100% av dina inbetalningar går till räntan och inget till amortering. Så skulden öka eller blir densamma, den minskar aldrig. Men om inbetalningarna bara är liiiiiiite större än den första räntebetalningen så kommer skulden att amorteras av, även om det går extremt långsamt i början.
  5. Du har nog hittat gränsen för när dina inbetalningar är för små jämfört med räntan. Dvs skulden minskar aldrig, eller växer, och du kommer aldrig att ha betalt tillbaks (perioder blir oändliga). Du kan kolla vad den första räntan blir: (18 000 000)*(7%/12)=105 000 Om du ändrar dina inbetalningar i cellen F13 till 105 001 så minskar du Skulden med en krona den första månaden och det tar "bara" 166 år att betala av skulden. Men om du betalar 105 000:-/ månad så kommer skulden aldrig att minska och du får betala i all oändlighet. Och betalar du mindre än 105 000 så växer dessutom skulden utan att någonsin betalas av. Testa att ändra F13 till 105 000 så ser du att det inte går att räkna ut en återbetalningstid igen Du kan skapa ett felmeddelande av lämpligt slag =OMFEL(HELTAL(F16/12)&" år och "&AVRUNDA(REST(F16;12);0)&" månader ";"All your base are belong to us")
  6. Är F16 antal månader? Hursomhelst. Formeln du visar klarar av hur många månader som helst. Så ditt problem måste ligga i formeln som finns i cell F16. Det är inte möjligt att hjälpa dig med den information du givit.
  7. MH_

    Roliga avigheter

    Det här kanske är välkänt. Men jag har missat den här översättningen: close but no cigar Var är @ mbgtmari när Microsoft behöver henne 😁 (autostartande mappar när det har blivit knas https://learn.microsoft.com/en-us/answers/questions/267171/windows-10-feature-upgrades-break-teams-machine-wi: )
  8. Dina datum är Vänsterställda. Det brukar betyda att datumen står som text i din databas (öka bredden på kolumn och kolla om det bir vänster- eller högerställda). För att konvertera dina rådata: Markera din "deadline" kolumn och gå till Data->dataverktyg->Text till kolumner [Nästa>]->[Nästa>] Ändra till datum: ÅMD och tryck Slutför Ändra visningsformat om det behövs. uppdatera din pivottabell Om du fortfarande inte får några "skapade hjälpalternativ" så kan du högerklicka på ett av datumen i deadline (i pivottabellen) och välja "gruppera" för att skapa grupepringsvariabler.
  9. Om din källfil alltid heter samma sak kan du göra en pivot med källdata i en annan fil: Öppna både källdata- och målfil. Ställ dig i målfilen och gå till Infoga->pivottabell I tabell/område markerar du hela kolumnerna i din källdatafil, och "plats" (för pivottabellen) skall ditt målblad anges. Typ: Fixa i ordning din pivot så att datum osv blir rätt. När du stänger filerna kommer sökvägarna att peka till din externa källdatafil och du kan uppdatera med högerklick. ÅR/Månad Om du t.ex har en variabel som heter datum och släpar den till "rader" så kommer excel att skapa en massa virtuella hjälpvariabler (år, kvartal osv) Tag bort Kvartal och datum från "rader" så borde det bli år och månad precis som du vill. Du har även möljighet att expandera och ha sig i pivoten (med + och -)
  10. Jag har ingen aning/åsikt om appen. Men lite allmänt svammel: Excel har minst 3 skriftspråk så du måste nog börja med att fundera på vad du vill. VBA är det kraftfullaste. Men det är omgivet av så många säkerhetsspärrar att det är svårt att sprida till andra. Och det "känns" som om Microsoft har nått vägs ände. M. (Eller heter det .M?) är språket du använder till powerquery. Väldigt kraftfullt för att knåda data. Men specialiserat och kanske lite udda (används eventuellt till BI också). Sen har du det "nya" generella språket till "office automate". Det är nog det du har mest nytta av att kunna framöver. Även om händelsehanteringen inom Excel verkar vara kraftigt begränsad så kan du skapa en massa triggers på officenivå. I alla fall om du ligger på one-drive. Den stora fördelen är att det är en java-scripts variant så du kan ha lite nytta av tänket utanför office. Sen tror jag att det är på gång ett slags pyton-tillägg också. Men det verkar vara till för att skapa formler på kalkylbladet. Om det någonsin kommer i skarp version. Så, klura på vad det är du vill lära sig.
  11. Hej Normalt sett dubbelklickar du bara på axeln så får du upp alla alternativ. Längst ner på "alternativ för axel" har du t.ex talformatet Vinklingen verkar däremot inte skötas via det här fönstret längre. Det dat du istället via den vanliga menyn. markerar din axel och gå till: Start->Justering-> Annars. Microsofts instruktioner https://support.microsoft.com/sv-se/topic/ändra-hur-axlarna-visas-i-ett-diagram-422c97af-1483-4bad-a3db-3a9ef630b5a9
  12. Såg nu att du redan använder VBA. Högerklicka på din kryssruta och peta in en kod i stil med: Private Sub CheckBox1_Change() If CheckBox1.Value = True Then ActiveSheet.ListObjects("Tabell3").Range.AutoFilter Field:=4, Criteria1:="1" ElseIf CheckBox1.Value = False Then ActiveSheet.ListObjects("Tabell3").Range.AutoFilter Field:=4 End If End Sub Fast med rätt namn på Checkbox och tabell. Samt rätt field-nummer. Den här koden kommer att ligga under det aktuella Bladet, inte under en modul (när du är i VBA-editorn: Visa-> projektutforskaren Ctrl+R). Det är en händelsehanterare vilket kan ge stora problem. Men det borde inte vara några problem när det är "CheckBox_Change" du bevakar.
  13. Om jag förstår din fråga rätt så behöver du inte VBA. Testa utsnitt istället. Ställ dig i din tabell, tryck sedan på (Om du inte ser "tabelldesign" så får du trycka Ctrl+T för att omvandla det till en "riktig" exceltabell) Tabelldesign->Verktyg->infoga utsnitt. Välj de kolumner du vill ha filter för. När du trycker [OK] så får du fram ett "utsnitt" för varje kolumn och kan filtrera som du vill. Det borde vara precis vad du behöver Eftersom du bara har Ja/Nej så ser du inte att de är ihopkopplade. Men om du hade haft fler alternativ i någon av kolumnerna så skulle du se att alla alternativ som redan filtrerats bort blir grå. Rätt snyggt.
  14. Tänk på att Outlook i telefonen (Andoid i alla fall) har två "flikar". En med prioriterad post och en med övrigt (syns som två knappar högst upp i inkorgen). Jag har inte motsvarigheten i datorn (där har jag Alla/Oläst istället).
  15. En tom textsträng. =OM(A1>0;"";"inte större än noll") Om formeln står i cell B1 så kan du använda =OM(B1="";"är tom";"är inte Tom" Eller felvärdet SAKNAS(). Funkar bättre för vissa typer av diagram =OM(A1>0;SAKNAS();"inte större än noll") Ingen av formlerna ger "Sant" om du testar med =ÄRTOM(B1) Och den här ger inte heller t (även om det blir olika svar beroende på om du använder "" eller SAKNAS()) =CELL("typ";B1) Och du lär aldrig få cellen att se helt tom ut eftersom det står en formel i cellen. Du kan testa B1 Med saker i stil med: =(B1="") =ÄRSAKNAD(B1)
  16. MH_

    Roliga avigheter

    Mord? Borde inte det räknas som vandalisering? (ja, det är smaklöst - men vem tusan har folkvett?)
  17. Kolla harkrank inlägg i den här tråden https://www.excelforum.com/excel-general/588185-formula-for-getting-data-from-week-number-reverse-weeknum.html Om året står i A1 och veckoNR står i B1 så ger det här måndagen =DATUM(A1;1;B1*7)-VECKODAG(DATUM(A1;1;3))-2 Och söndagen: =DATUM(A1;1;B1*7)-VECKODAG(DATUM(A1;1;3))-2+6 =DATUM(A1;1;B1*7)-VECKODAG(DATUM(A1;1;3))+4 Den skiter sig om du kör vecka 53 när det inte finns (blir året efter) Du kan naturligtvis krångla till det om du har lust... =OM(B1=ISOVECKONR(DATUM(A1;1;B1*7-2)-VECKODAG(DATUM(A1;1;3)));DATUM(A1;1;B1*7-2)-VECKODAG(DATUM(A1;1;3));"veckan finns inte det valda året ")
  18. Dela upp det i två delar och hämta kolumn A respektive kolumn D separat. I fördjupning, A2 skriver du något i stil med: =FILTER(Grund!A:A;(Grund!B:B="kritisk")*(Grund!D:D="kritisk")) Och i fördjupning, D2 skriver du något i stil med: =FILTER(Grund!C:C;(Grund!B:B="kritisk")*(Grund!D:D="kritisk"))
  19. =VÄLJKOL(FILTER(Grund!A:C;(Grund!B:B="kritisk")*(Grund!D:D="kritisk"));1;3) ************** Där villkoret är: (Grund!B:B="kritisk")*(Grund!D:D="kritisk") Om man skriver ett villkor i en parantes så blir det SANT/FALSKT, som excel även tolkar som 0/1. Så om du multiplicerar parenteserna så måste båda vara sanna för att summan skall bli 1 (sant) Petar du in villkoret i en "FILTER" så får du de rader (kolumn A:C) som uppfyller villkoret =FILTER(Grund!A:C;(Grund!B:B="kritisk")*(Grund!D:D="kritisk")) Sen använder du VÄLJKOL() för att plocka ut kolumn 1 och 3 (A och C) =VÄLJKOL(FILTER(Grund!A:C;(Grund!B:B="kritisk")*(Grund!D:D="kritisk"));1;3) ***************** MEN!! det här betyder inte att data är kopierat. Data visas bara så länge "kritiskt" står kvar i fliken Grund https://support.microsoft.com/sv-se/office/funktionen-filter-f4f7cb66-82eb-4767-8f7c-4877ad80c759 https://support.microsoft.com/sv-se/office/funktionen-väljkol-bf117976-2722-4466-9b9a-1c01ed9aebff
  20. MH_

    Tree - syntax?

    Om du kan kosta på dig två rader så kan du byta teckentabell för i kommandotolken (inkl. din "pipade" output). Då borde ÅÄÖ bli som du vill. CHCP 65001 dir *.pdf /s /b > "filelist.txt" Changes code page https://learn.microsoft.com/sv-se/windows-server/administration/windows-commands/chcp Och här hittar du koden till UTF-8 (65001) https://learn.microsoft.com/sv-se/windows/win32/intl/code-page-identifiers
  21. Och när någon sa pirra i mina hemtrakter menades en grov magasinskärra med en kort/tunn metall "läpp" som man kan lirka in under lådor osv. Typ den här: https://www.lomax.se/lager/vagnar-och-transportutrustning/magasinkarror/magasinkarra-med-lastplattform-massiva-hjul-250-kg-4001860/ Det kunde aldrig vara en säckkärra (som har stor hylla, men kan vara mycket klenare). typ: https://www.lomax.se/lager/vagnar-och-transportutrustning/magasinkarror/bagagekarra-teleskophandtag-50-kg-4002000/ Och jag har hört gamla 08-or (typ farsan) som t.om kunde kalla en 4 hjulig liten vagn/skrinda för Pirra. Så ditt förtydligande var välbehövligt.
  22. Pirra är t.om snusk i södra Sverige. Men det är kanske det X-Men varnar för.
  23. Inte riktigt ett snabbkommando, men flexibelt [Win]}+E för att öppna utforskaren [Alt]+D för att hamna i adressfältet Börja skriva film, bild eller liknande och välj den med piltangenten. Tyvärr kan du inte använda tabb för att autokompletera men jag tror att specialmapparna alltid visas föst, så det kräver förmodligen bara ett tryck på nedpil+enter. Inte superkort men flexibelt. ************************************************************** En helt annan variant är att skapa en (skrivbords)genväg till mappen filmer. Då kan du högerklicka på genvägen och välja Egenskaper->fliken genväg->kortkommando. du väljer en bokstav och får en Cltr+Alt+bokstavs genväg Det är Apsegt, men ett "inbyggt" alternativ om du inte vill köra autohotkey Jag la in ett snabbkommando för ganska länge sen som går till till mappen "aktuella" (min huvudmapp). Och den har jag använt ganska exakt 0 gånger sen dess...
  24. Win+E för att öppna utforskaren Shift+tab för att hamna "till vänster" f så många gånger det behövs för att komma till filmer (om du har den kvar som genväg i utforskaren - eller vad det kallas) eller börja skriv början av "film"-snabbt **********Alt ********** En dålig win11-variant av Cecilias första förslag (utforskaren öppen) Ctrl+F (eller Ctrl+E) för att hamna i sökrutan. Sedan Shift+tab för att hoppa till vänster och nedpil för att få fram listan. Men av någon anledning måste du använda nedåtpil för att ta dig fram till Filmer, det händer inget om du trycker "f". Du kan även pinna mappen Film i aktivitetsfältet och sedan använda något i stil med [win]+7 där siffran är vilken ikon det är i ordning, från vänster. Tror bara att det funkar upp till 9:e ikonen. Eller [win]+T för att bläddra dig fram manuellt (med piltangenterna)
  25. Sign me up Alexa: Jag hatar att byta körfält mitt i en installation.
×
×
  • Skapa nytt...