Avatar billede ransborg Juniormester
23. august 2003 - 08:24 Der er 11 kommentarer og
1 løsning

excel forespørgsel til en access database

hej alle,

jeg har et stooort problem, som jeg håber på, at en af jer hajer kan hjælpe mig med:

Jeg har et regneark med produkter i kolonne A, kolonne B er biprodukter og kolonne C,D,E,F... har jeg sælgere i.

Jeg har desuden en database med flere tabeller, som indeholder alt salget

Jeg vil nu gerne have excel til at slå op i databasen, så jeg får salget på det enkelte biprodukt ud på den enkelte sælger.

Lige nu kan der stå:
SELECT DISTINCT BiProduktID FROM StatStock WHERE Salesmanager = 'JF' AND Product Like 'Æbler';

Jeg kunne godt tænke mig, at istedet for, at jeg hele tiden skal skrive "æbler", at den refererer til selve cellen, hvor der står æbler i.

Kan man lave noget ala:
SELECT DISTINCT BiProduktID FROM StatStock WHERE Salesmanager = 'JF' AND Product Like 'A4';

Håber på en hurtig tilbage melding

På forhånd tak

Mvh
Claus
Avatar billede kabbak Professor
23. august 2003 - 11:34 #1
Prøv at navngive din celle, det gøres ved at klikke ind på cellen ,og så oppe i venstre hjørne, (hvor cellens navn står f.eks. B2), klikker du ind og skriver hvad cellen skal hedde, f.eks. Frugter, husk at tykke return til sidst, ellers gemmes navnet ikke.

SELECT DISTINCT BiProduktID FROM StatStock WHERE Salesmanager = 'JF' AND Product Like Frugter;

jeg har aldrig prøvet select fra excel, så ingen garanti på det.
Avatar billede ransborg Juniormester
24. august 2003 - 10:05 #2
kabbak,
den er løsning er ikke så hensigtsmæssig, da jeg har 164 hovedprodukter, og derved vil skulle lave 164 navngivninger. Det vil heller ikke spare mig for, at jeg skal indtaste det navngivne produkt i min select distinct sætning. Hvis det "bare" var en celle reference, kunne jeg kopiere formlen ned i alle rækkerne.

mvh
Clus
Avatar billede kabbak Professor
24. august 2003 - 10:38 #3
Du kan bruge datavalidering på den navngivne celle, henvis til liste hvor du har alla hovedprodukter, så virker den som en combobox.
Avatar billede ransborg Juniormester
24. august 2003 - 11:22 #4
kabbak,
bare en tanke, kan man lave en makro, som gør følgende:

f.eks.
i område c3:o5 erstattes æbler med indholdet af A4 ->
i område c6:o8 erstattes æbler med indholdet af A7 ->
i område c9:o11 erstatte æbler med indholdet af A10 ->
---->
i område c219:o221 erstatte æbler med indholdet af 220


Jeg mener, der er jo det her sammenhæng.

Mvh
Claus
Avatar billede kabbak Professor
24. august 2003 - 12:20 #5
i område c3:o5 erstattes æbler med indholdet af A4 ->

den forstår jeg ikke.

C3:05 = 39 celle, skal de have samme værdi som A4, eller hvad betyder ->
Avatar billede ransborg Juniormester
24. august 2003 - 12:40 #6
I område C3:O5 er der 39 celler, hvor der står "Æble", det er "Æble", som skal erstattes med indholdet af celle A4 f.eks. "Pærer"

I område C6:O8 er der 39 celler, hvor der står "Æble", det er "Æble", som skal erstattes med indholdet af celle A7 f.eks. "Appelsin"

I område C9:O11 er der 39 celler, hvor der står "Æble", det er "Æble", som skal erstattes med indholdet af celle A10 f.eks. "Juice"
.....
I område C219:O221 er der 39 celler, hvor der står "Æble", det er "Æble", som skal erstattes med indholdet af celle A220 f.eks. "Agurk"

I alle cellerne, står der:
SELECT DISTINCT BiProduktID FROM StatStock WHERE Salesmanager = 'JF' (kolonne bestemt) AND Product Like 'Æbler';

Håber det bringer lys over land.

Mvh
Claus
Avatar billede kabbak Professor
24. august 2003 - 13:49 #7
Sub Makro1()
For i = 4 To 220 Step 3 ' du skal ændre 220 hvis der er flere rækker
    Range("C" & i - 1 & ":O" & i + 1).Select
    Selection.Value = Range("A" & i)
    Range("A5").Select
    Next
End Sub
Avatar billede kabbak Professor
24. august 2003 - 13:50 #8
fjern lige  Range("A5").Select.

det er en fejl
Avatar billede kabbak Professor
24. august 2003 - 13:51 #9
Sub Makro1()
For i = 4 To 220 Step 3 ' du skal ændre 220 hvis der er flere rækker
    Range("C" & i - 1 & ":O" & i + 1).Select
    Selection.Value = Range("A" & i)
    Next
    Range("A1").Select
End Sub

ny udgave
Avatar billede kabbak Professor
24. august 2003 - 14:53 #10
Hov, jeg misforstod vist noget, det er jo søg og erstat du ville, ikke. ?

den er her

Sub Makro1()
For i = 4 To 220 Step 3 ' du skal ændre 220 hvis der er flere rækker
    Range("C" & i - 1 & ":O" & i + 1).Select
        Selection.Replace What:="Æbler", Replacement:=Range("A" & i), LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
    Next
    Range("A1").Select
End Sub
Avatar billede kabbak Professor
25. august 2003 - 19:43 #11
den eneste måde du kan styre dette på er, hvis din programmering tillader det, at skrive sådan i dene celler.

="SELECT DISTINCT BiProduktID FROM StatStock WHERE Salesmanager = 'JF' (kolonne bestemt) AND Product Like ' " &A4&"Æbler';"

Altså med lighedstegn og "".

men du er velkommen til at sende regnearket med din kode, så skal jeg nok kikke på det.

kabbak@tiscali.dk
Avatar billede kabbak Professor
25. august 2003 - 19:44 #12
hov.

="SELECT DISTINCT BiProduktID FROM StatStock WHERE Salesmanager = 'JF' (kolonne bestemt) AND Product Like ' " &A4&"';"
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

IT-JOB