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

dave2000
dave2000 (22.015 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 (44.955 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 (44.955 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 (22.015 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 (44.955 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 (44.955 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 (22.015 point)
Jeg får fejl igen!

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

b_hansen
b_hansen (44.955 point)
hvilken fejl?

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

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

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

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

der var et " formeget

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

bak
bak (101.435 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 (101.435 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 (22.015 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 (44.955 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 (101.435 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 (22.015 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 (101.435 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

Hjælp til funktion (SUM.HVIS eller HVIS??)

Oprettet den 3. maj 2015 kl. 17.19
kurt_cph giver 30 point for svar | Giv et svar »

Udvidelse af eksistrende makro

Oprettet den 3. maj 2015 kl. 17.05
Michael_H007 giver 15 point for svar | Giv et svar »

Opdel et tal, og multiplicer delene med forskellige tal.

Oprettet den 3. maj 2015 kl. 10.30
ducrider giver 60 point for svar | Giv et svar »






Computerworld

Teaser billede

Test af 23 programmer: Så meget sløver antivirus din computer

Topprioriteten for valget af antivirusløsning er hastighed. Her er 23 programmes testet gennem 14 måneder for at finde frem til det hurtigste og det langsommeste.

CIO

Teaser billede

Er Lyvemaskinen hos CSC gået i stykker?

Klumme: Man skal lyve, når man byder på offentlige ordrer, for de bikse, der har den bedste Lyvemaskine vinder, og det kræver snarrådighed og konstant jagt på nye fiduser. Har CSC helt...

Comon

Teaser billede

Prøvekørt: Det nye Lightroom CC sætter fart på dit fotoarbejde

Prøvekørt: Lightroom CC leverer bedre hastighed, panorama-funktion og HDR-fotos. Vi har testet den seneste version - og det er stadig vores foretrukne fotoværktøj. Mød de nye funktioner i...

Channelworld

Teaser billede

Atea ramt af chef-flugt: Historien om 13 chefers exit på blot et år

På bare et år er en stor del af topledelsen i Danmarks største it-forhandler, Atea, blevet udskiftet. Også længere nede i hierarkiet har der været gang i svingdøren. I alt er 13 chefer gået deres...

White paper

Teaser billede

Fem grunde til at forretningen afhænger af netværket

Din virksomheds evne til at reagere i tide på forandringer i markedet er afhængig af forandring af netværket. Få de fem vigtigste grunde til at implementere Software Defined Network (SDN) og NFV...



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