Oprettet man. d. 26. maj 2003 kl. 14:53:28

dave2000
dave2000 (20.905 point. Point ude: 0)


Midde værdi, konstant

Hvad er der galt med den følgende sætning?

  Sheets(t).Select
  Range("F6").Value = "=AVERAGE(t!C" & x & ":C" & y & ")"

og t = UF4.TextBox3.Value, 'UF(User¨Form)og x og y er nogle konstanter.

Med hver gang jeg bruger den så får jeg følgende sætning :

  " File t not found "

Er der nogen der kan sige hvad jeg har gjort forkert?

Mvh / David

Skrevet man. d. 26. maj 2003 kl. 14:59:32| #1

b_hansen
b_hansen (43.845 point)
Du henviser til filen t i linien "=AVERAGE(t!C" & x & ":C" & y & ")"

Det gøres i "t!"

Skrevet man. d. 26. maj 2003 kl. 15:02:31| #2

b_hansen
b_hansen (43.845 point)
Hvis du bare skal henvise til den fil, hvor du har din makro, skal du bare slette "t!".
Alternativt mangler du nogle anførselstegn:
"=AVERAGE("t"!C" & x & ":C" & y & ")"

Skrevet man. d. 26. maj 2003 kl. 15:09:40| #3

dave2000
dave2000 (20.905 point)
b hansen
t er bare navnet på ARK1.
Og jeg skulle bare tage gennemsnit af 5 tal der står på kollone C på ark1 eller t.
og det med "t" virker desværre ikke.

Skrevet man. d. 26. maj 2003 kl. 15:12:16| #4

b_hansen
b_hansen (43.845 point)
i dit tilfælde er t blevet til navnet på en fil, da den er indefor de to første anførselstegn. Det er derfor, du får fejlmeldingen. Så du bliver nød til at lege lidt med at placere nogle flere anførselstegn i din formellinie

Skrevet man. d. 26. maj 2003 kl. 15:19:16| #5

b_hansen
b_hansen (43.845 point)
Selvfølgelig... der mangler jo nogle &-tegn:

"=AVERAGE(" & t & "!C" & x & ":C" & y & ")"

Skrevet man. d. 26. maj 2003 kl. 15:42:44| #6

dave2000
dave2000 (20.905 point)
Jeg får fejl igen!

Skrevet man. d. 26. maj 2003 kl. 15:44:14| #7

b_hansen
b_hansen (43.845 point)
hvilken fejl?

Skrevet man. d. 26. maj 2003 kl. 15:46:12| #8

dave2000
dave2000 (20.905 point)
At  Sheets("&t&").select  er forkert.

Skrevet man. d. 26. maj 2003 kl. 15:52:06| #9

kabbak
kabbak (163.894 point)
"=AVERAGE("t!C" & x & ":C" & y & ")"

der var et " formeget

Skrevet man. d. 26. maj 2003 kl. 17:21:50| #10

bak
bak (100.265 point)
Her er en lille demo. Det her virker fint, men i din kode skriver du
Range("F6").Value. Betyder det at du ikke ønsker formlen indsat, men kun værdien ?
Hvis det er tilfældet, så fjern apostroffen fra sidste linie

Sub test()
t = "Sheet1"
x = 2
y = 10
Sheets(t).Select
Range("F6").Formula = "=AVERAGE(" & t & "!C" & x & ":C" & y & ")"
'Range("F6") = Range("F6").Value
End Sub

Skrevet man. d. 26. maj 2003 kl. 17:31:46| #11

bak
bak (100.265 point)
en anden mulighed, hvis du ikke vil have formlen indsat men kun værdien
Sub test()
t = "Sheet1"
x = 2
y = 10
Sheets(t).Select
Range("F6").Value = Application.WorksheetFunction.Average(Sheets(t).Range("C" & x & ":C" & y))
End Sub

Skrevet tir. d. 27. maj 2003 kl. 10:18:40| #12

dave2000
dave2000 (20.905 point)
Det virker bare ikke.
Hvis jeg skriver :
  Let t = UserForm1.TextBox3.Value
  Sheets(t).select
så er der ingen problemer med konstanten "t".

men og men de her går slet ikke :

Range("F6").Value = "=AVERAGE(t!B" & x & ":B" & y & ")"
eller
Range("F6").Value = "=AVERAGE("&t&"!B" & x & ":B" & y & ")"
eller
Range("F6").Value = "=AVERAGE('t'!B" & x & ":B" & y & ")"

Hvordan får jeg "t" til at virke?

Skrevet tir. d. 27. maj 2003 kl. 10:22:56| #13

b_hansen
b_hansen (43.845 point)
Jeg vil foreslå at bruge bak's løsning.

Når jeg tester diverse versioner af "=AVERAGE(" & t & "!C" & x & ":C" & y & ")", bliver der sat apostroffer omkring celleangivelserne. Eksempelvis 'B1':'C1'

Skrevet tir. d. 27. maj 2003 kl. 12:42:08| #14

bak
bak (100.265 point)
Dave2000, dine tre forslag virker ikke fordi du vil sætte range("F6").value lig med en formel. Denne formel er opgivet som en tekst. Altså vil du kun få en tekst i F6.
du SKAL bruge
range("F6").Formula="=AVERAGE(" & t & "!C" & x & ":C" & y & ")"

Skrevet tir. d. 27. maj 2003 kl. 13:41:38| #15

dave2000
dave2000 (20.905 point)
bak
At last at last.
Tak for hjælpen, igen.
Det virkede, men samme fejl må ikke gentages igen, så gider du sende mig et svar i stedet for kommentar.

Mvh/Dave2000

Skrevet tir. d. 27. maj 2003 kl. 17:28:59| #16

bak
bak (100.265 point)
Ok, godt det funker :-)

Skriv et indlæg




Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] [img]link til billede[/img]
Web- og emailadresser omdannes automatisk til links

Log ind

   


Seneste spørgsmål

Indsætte samme tekst i flere regneark, nemt og let?

Oprettet den 22. september 2014 kl. 13.07
jesbering giver 30 point for svar | Giv et svar »

Link i Excel

Oprettet den 22. september 2014 kl. 13.02
MetteAa giver 30 point for svar | Giv et svar »

Find match med dubletter

Oprettet den 22. september 2014 kl. 02.05
Laugesen1 giver 60 point for svar | Giv et svar »






Computerworld

Teaser billede

Her er de så: Alle anmeldelserne af Apples nye iPhone 6

Apples iPhone 6 er på vej ud i butikkerne, og nu offentliggøres anmeldelserne af den nye iPhone i en lind strøm. Få overblikket her.

CIO

Teaser billede

Kæmpe cloud-satsning hos DSB: Flytter data til SAP og Microsoft

DSB er i gang med at luge kraftigt ud i antallet af applikationer og modernisere hele it-miljøet. Det betyder blandt andet en satsning på cloud-services fra SAP og Microsoft.

Comon

Teaser billede

Nyt actionkamera filmer 360 grader rundt - film din hverdag a la Google StreetView

Med et lille frø-lignende kamera vil du inden længe for en lille penge kunne filme 360 rundt nøjagtigt som Googles StreetView-kamera. Sammen med virtual reality-brillen Oculus Rift kan kameraet...

Channelworld

Teaser billede

Kommune droppede iPads: De var for billige - og for besværlige

En klar pædagogisk strategi og hensynet til det eksisterende it-setup fik lærere og politikere i Nordfyn Kommune til at dumpe iPads, da der skulle købes tablet-computere til eleverne - også selv om...

White paper

Teaser billede

Brugervalidering uden tokens

Få en fleksibel, enkel og sikker multi-faktor brugervalidering via SMS eller SMTP med PINsafe fra Swivel Secure.



Udgiver · © 2014 Computerworld A/S · Hørkær 18 · 2730 Herlev · Tlf.: 77 300 300 · Fax: 77 300 301 · Brug af personoplysninger