Hej igen
Jeg har lidt svært ved at få den til at køre automatisk.
Er der en måde hvorpå at funktionen kan køre på lige fod med alle de
andre interne funktioner ?
Det hjelper ikke at trykke F9 (og desuden er den automatiske beregning
allerede sat til).
I øjeblikket ligger den i sheets, men dette får den ikke til at starte
automatisk, men mindre at jeg gå ind i de(n) celle(r) hvor funktionen
er og trykker F2 og dernæst trykker på enter.
På forhånd tak
MJ
On Sat, 12 Nov 2005 11:52:27 +0100, "Jørgen Bondesen"
<bondesen@cool.dk> wrote:
>Hej Mike
>
>
>ad1) For dig og mig er der 3 steder, vi har vores makroer.
>
>
>ThisWorkbook hvor makroen styres af en Event (hændelse).
>Feks når Workbook_BeforeClose eller Workbook_Open
>Aktiver Thisworkbook og du får codewindow til højre.
>Øverst har du 2 små felter. Til venstre kan du vælge
>Workbook og til højre Events.
>
>
>Sheet hvor makroen styres af en Event (hændelse).
>Feks når Worksheet_SelectionChange dvs. cellemarkeringen
>flyttes.
>Aktiver Sheet og du får codewindow til højre.
>Øverst har du 2 små felter. Til venstre kan du vælge Sheet
>og til højre Events.
>
>Hvis Event IKKE virker skyldes det som regel, at Events er
>deaktiveret.
>Kør denne i Immediate window eller som en makro:
>Application.EnableEvents=True
>
>I Module har du de makroer der køres via en knap, men også de
>Events som har "fælles" makroer. Functions er ligeledes her.
>
>
>Ad2) ThisWorkbook og Sheets sker via Event (beskrevet ovenover)
>Module via "knap" eller Event.
>
>
>Ad3) (LeoH har en liste)
>Følg med i NG: dk.edb.regneark, her kan du komme meget langt.
>
>Lån bøger på biblioteket, du kan tidsnok købe.
>
>Du kan evt. abonnere gratis på:
>
>
http://exceltips.vitalnews.com/
>
>
>Et par gode links er:
>
>
http://www.tushar-mehta.com/excel/vba/index.htm
>
>
http://www.dicks-blog.com/
>
>
http://www.erlandsendata.no/index.php
>
>
http://www.cpearson.com/excel.htm
>
>
http://j-walk.com/ss/
>
>
http://www.rondebruin.nl/index.html
>
>
http://www.mvps.org/links.html#Excel
>
>10 lessons:
http://www.excel-vba.com/excel-vba-contents.htm
>
>Lessons:
http://www.anthony-vba.kefra.com/index.htm
>
>'Et par hjælpeprogrammer
>
http://www.appspro.com/Utilities/Utilities.htm
>
http://www.asap-utilities.com/
>
http://www.rondebruin.nl/Google.htm
>
>
>ad4) Function:
>
>Option Explicit
>
>
>'----------------------------------------------------------
>' Procedure : CountBlueFont
>' Date : 20051112
>' Author : Joergen Bondesen
>' Purpose : Count number of fill in cells with fontcolour
>' blue in selected range.
>' Note : Bluecolour = 5
>'----------------------------------------------------------
>'
>Function CountBlueFont(Target As Range) As Long
> Dim cell As Range
> For Each cell In Target
> Dim count As Long
> If cell.Font.ColorIndex = 5 And _
> cell.Value <> vbNullString Then _
> count = count + 1
> Next cell
>
> CountBlueFont = count
>End Function