Avatar billede ctnn Nybegynder
03. juni 2007 - 22:06 Der er 10 kommentarer og
1 løsning

Programmering af en excel funktion, til at vise dags dato

Jeg har behov for at lave en funktion i Excel.

Det jeg skal gøre er følgende.

hvis felt b1 er udfyldt og felt c1 er udfyldt og d1 er udfyldt og felt a1 er tomt, så skriv dags dato i felt a1

Kan det lade sig gøre og i så fald hvorledes?
Avatar billede kabbak Professor
03. juni 2007 - 22:53 #1
if[C1] <>"" and [D1]<>"" and [A1] ="" Then [A1] = date()
Avatar billede kabbak Professor
03. juni 2007 - 22:56 #2
Du kan ikke lave det som en Funktion, da formlen så skulle være i  A1,
Avatar billede japping Nybegynder
04. juni 2007 - 08:19 #3
Dvs. du skal lave en macro (programkode i VBA) der udfører denne handling.
Avatar billede ctnn Nybegynder
04. juni 2007 - 10:24 #4
Uha hvordan dælen laver jeg en macro som håndterer det? er der nogle som kan vise mig vej til nogle gode tutorials, da jeg er fuldkommen Macro jomfru. Takker Kabbak, det ser ud som noget jeg kan bruge, jeg troede faktisk at jeg bare kunne lægge denne i a1, og så køre den derfra :(
Avatar billede koppelgaard Praktikant
04. juni 2007 - 14:58 #5
Højreklik på arknavnet og vælg at se kode. Paste følgende ind. Koden udføres, når der sker ændringer i b1,c1,d1
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
        If [C1] <> "" And [D1] <> "" And [B1] <> "" Then
            [A1] = Date
        Else
            [A1] = ""
        End If
   
   
End Sub


Michael
Avatar billede ctnn Nybegynder
04. juni 2007 - 15:20 #6
Det er satme smukt, men nu har jeg et problem til :( fordi jeg vil faktisk ikke ha den til at være i a1 altid, jeg vil havde den til at være i det felt's a række.

Så hvis jeg nu skriver ind i b5 og c5 og d5 så vil jeg havde feltet til at være i a5

Tusinde takker for hjælpen, på forhånd. Fedt at have et sted hvor sådan nogle Noobs som mig kan komme hen og få hjælp.
Avatar billede koppelgaard Praktikant
04. juni 2007 - 15:55 #7
Jeg kom lige i tanke om en anden lettere metode:
=HVIS(OG(B1<>"";C1<>"";D1<>"");NU();"")
som du lægger i A1.
Du kan kopiere formler ned af gennem hele kolonne 1.
Brug et nyt ark så du ikke for problemer med makroen.

Michael
Avatar billede koppelgaard Praktikant
04. juni 2007 - 16:27 #8
Eller metoden fra før, for alle rækker

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
    r = Target.Row
   
        If Cells(r, 2) <> "" And Cells(r, 3) <> "" And Cells(r, 4) <> "" Then
            Cells(r, 1) = Date
        Else
            Cells(r, 1) = ""
        End If
   
   
End Sub
Avatar billede koppelgaard Praktikant
04. juni 2007 - 18:21 #9
=HVIS(OG(B1<>"";C1<>"";D1<>"");NU();"") 
duer alligevel ikke. Den vil jo opdateres, hver gang du åbner mappen, hvorved du bare for en kolonne med ene dagsdato. Ikke særlig interessant, vel.
Så bruge makroen.

Michael
Avatar billede ctnn Nybegynder
05. juni 2007 - 10:55 #10
Det er fame smukt, lige hvad jeg ledte efter
Avatar billede ctnn Nybegynder
06. juni 2007 - 08:45 #11
Kabbak, jeg opretter lige en post til dig, så du også kan få point for det her svar, det var jo trods alt det korrekte svar på spørgsmålet, at jeg så ikke vidste hvad jeg skulle spørge om, er jo ikke din skyld.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester