Ta bort vagnreturstecknet från ett fält i ACCESS

Posted by on

Nivå: Avancerad

Ibland kan s.k. oönskade tecken dyka upp i ett fält, i en Access-tabell. I ett s.k. memofält kan det vara oönskade tecken som t.ex ett vagnreturstecken. Vagnreturstecknet uppstår om en användare skrivit in information i ett memofält och sedan tryckt på ENTER-tangenten. Vagnreturtecknet dyker upp som en kvadrat och kan ställa till förtret vid kommande rapporter eller analyser i ACCESS. 

Genom att använda den inbyggda funktionen ERSÄTT  (Replace) i ACCESS samtidigt som man tagit reda på ASCII-koden för vagnreturstecknet kan man enkelt ta bort detta i en ACCESS-fråga.

Frågan i ACCESS formuleras på följande sätt om man vill utföra rensningen:

NYTTFÄLTNAMN: ERSÄTT([Fältnamnet];Tecken(13);””)

Förklaring: NYTTFÄLTNAMN är det nya fältnamn som kommer att skapas för det  rensade fältets data. De rensade datavärdena att kommer att läggas där. ERSÄTT är den inbyggda funktionen i ACCESS som används. Fältnamnet är namnet på fältet där data hämtas ifrån. Tecken(13) är den s.k. ASCII-koden för vagnreturstecknet. Avslutligen, de två apostroftecknen ”” i slutet av strängen, avser att vi inte vill ersätta vagnreturstecknet med något.

Share

Lägg egna arbetsrutiner och kod i PERSONAL.XLS i Excel

Posted by on

Nivå: medelsvår

Om du vill ha egna rutiner, programkod etc. är det mycket effektivt att lägga sådant i en PERSONAL.XLS (för Excel 2003). PERSONAL.XLS är en gömd arbetsbok som öppnas varje gång man startar Excel. De makron man lägger där, är tillgänglig från alla arbetsböcker som är öppna i Excel. Mycket användbart!

En bra beskrivning över hur man skapar en PERSONAL.XLS finns på Microsoft Support. Klicka länken för mer information: https://support.microsoft.com/en-us/kb/288117

Share

FileSearch Object – skapa en katalog över datafiler med hjälpa av Excel

Posted by on

Nivå: Medelsvår

I det här exemplet används FileSearch objektet i Excel.  Kanske har du kataloger på datorns hårddisk  som innehåller en massa filer? Kanske vill du skapa dokumentation över filerna, eller bara skapa mer ordning. Katalogen kan innehålla t.ex Word-dokument, mp3-filer, bildfiler eller liknande.  Nedan en beskrivning över hur man skapar ett makro i Excel som listar alla filer i en katalog på hårddisken och skriver namnen på filerna till ett kalkylark.  Här följer de olika stegen: 

1. Starta programmet Excel

2. Gå in Visual Basic Editor (VBE) genom att trycka tangenterna Alt+F11 samtidigt.

3. Kalla makrot för SkapaEnLista och skriv in följande programkod i kodmodulen.

======== Kodstart ================

 Sub SkapaEnLista()
    Directory = ”C:\Musik\”
    r = 1
    ’Sätt in kolumnrubriker…
    Cells(r, 1) = ”Filnamn”
    Cells(r, 2) = ”Storlek”
    Cells(r, 3) = ”Datum/Tid”
    Range(”A1:C1”).Font.Bold = True
    ’Hämta första filen…
    f = Dir(Directory, 7)
    Do While f <> ””
        r = r + 1
        Cells(r, 1) = f
        Cells(r, 2) = FileLen(Directory & f)
        Cells(r, 3) = FileDateTime(Directory & f)
        ’Nästa fil..
        f = Dir()
    Loop
End Sub

======== Kodslut ================

4. När programkoden är inskriven, spara och provkör sedan makrot genom att trycka F5. Om allt fungerar skall nu Excel skapa en lista över dina datafiler och lägga dessa i ett kalkylark.

Kommentar: Notera att proceduren använder den inbyggda funktionen Dir två gånger. Första gången hämtar den det första filnamnet, när inga mer filnamn hittas, returnerar funktionen en tom sträng. I exmplet ovan antar vi att vi har en katalog på hårddisken som heter Musik. Din katalog kanske heter något annat, så här kan du ändra namnet så att det matchar namnet påkatalogen du har,  så du kan skapa din kataloglista i Excel. Detta är ett exempel på hur man på ett sätt som man kan ta in externa data i Excel, för att fortsätta sin datamanipulationen där.

Share

Stimulerande datakurs i NVIVO 8

Posted by on

Var i Onsdags och Torsdags i Göteborg för att gå en datakurs i programmet NVIVO. Versionen på NVIVO var # 8.  Det är svårt att kort beskriva vad NVIVO är, men man kan säga att det är ett program som är utvecklat bl.a för s.k. kvalitativ forskning och arbete med fokusgrupper. Det finns andra användningsområden också, men dessa nämnda är kanske de vanligaste.  Har du  någon gång kommit i kontakt med begrepp som exempelvis Ground Theory,  så förstår du kanske  vad man kan uträtta med programmet. Jag har själv inte arbetat så mycket med NVIVO än, men efter kursgenomgången så börjar jag åtminstone förstå den oerhörda potentialen som finns i programmet.  Man kan nästan ”göra allt” och det verkar inte finnas några begräsningar, annat än mentala och föreställningsmässiga. Nåvål, riktigt så enkelt är det inte, men det går att uträtta mycket med programmet.  Det bästa med programmet är också den största svagheten:  programmets flexibilitet. Vad som krävs för att lyckas med NVIVO är att man är oerhört strukturerad och att man vet vad man vill uppnå när man startar ett NVIVO-projekt.  Är man inte strukturerad i NVIVO, så är man snart förlorad. Bra sidor i programmet är att man kan involera olika media i sina NVIVO-projekt, t.ex ljudfiler, videoklipp, bildanalys.  Det finns en s.k. utvärderingsversion av programmet om man vill prova på deras hemsida, http://www.qsrinternational.com/

Share

Excel’s SelectionChange event

Posted by on

Nivå: Medelsvår

Här följer ett exempel på hur man kan använda SelectionChange event i Excel.  Exemplet går ut på följande:  när användaren stegar runt med piltangenten på ett Excelark med data, kommer aktuell koulmn och rad att markeras och bli gulmarkerad.  Exemplet visar hur man kan göra det enkelt för en användare att visa en speciell cell med data, kan vara bra vid en presentation t.ex.

VBA-koden som utför detta läggs i detta fall på själva arket där data finns. Öppna VBE med tangent Alt+F11 i Excel och skriv in följande VBA-kod på det kalkylark, där data finns:

================Kodstart===========================

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.Interior.ColorIndex = xlNone
    With ActiveCell
        .EntireRow.Interior.ColorIndex = 36
        .EntireColumn.Interior.ColorIndex = 36
    End With
End Sub
===================== kodslut========================

Koden ovan gör följande: först tas bakgrundsfärgen bort för alla celler i arket. I nästa sekvens skuggas kolumnen,  raden och cellen  gul, när man stegar upp eller ner med piltangenten på arket.

Du kan ladda ner exemplet och testa själv på egen hand,  Excel_SelectionChangeEvent.

Share

Excel’s Worksheet events och Chartobject

Posted by on

Nivå: Avancerad

Om man utvecklar applikationer i t.ex Excel vill man att den skall göra något. Med hjälp av Events (händelser) kan man uträtta olika uppgifter. Ett exempel på ett event är en användare som klickar t.ex på en OK-knapp, eller klickar på Avbryt om händelsen inte skall inträffa etc. Ett annat exempel är att något skall hända när man startar en arbetsbok i Excel. Exempelvis vill vi att Excel automatiskt skall sortera en massa kalkylark varje gång arbetsboken  öppnas, någon uppgift skall utföras innan användaren sparar och stänger en arbetsbok. Listan på exempel kan göras lång.

I Excel finns det otroligt många varianter på hur man kan utföra olika typer av händelser genom att  använda sig av s.k event handler procedures. I detta exempel skall vi titta på på ett  ganska sofistikerat exempel där vi använder Worksheet events och Chart events.

Exemplet: Antag att vi vi har ett kalkylark med försäljningsdata och vad vi vill ska hända är att varje gång vi går upp eller ned med piltangenten, i kolumnen, så uppdateras ett diagram automatiskt för varje försäljare.  

Om du vill se Excel-exemplet och hur det fungerar, klicka  Excel_Event för nedladdning.

Share