Avatar billede h_s Forsker
18. september 2005 - 18:56 Der er 7 kommentarer og
1 løsning

Let måde at ændre sti i kæder og makroer

Hejsa

Jeg har et regneark med mange makroer og kæder. Det flyttes hvert kvartal, hvilket betyder at alle kæder og makroer skal ændres.

Da det er brugeren af regnearket der skal gøre denne øvelse, er jeg meget ked af at have ham ind og rette i makroerne og i alle kæderne.

Er der nogen der har en god ide til at løse dette problem.
Jeg har selv tænkt at jeg kunne have to celler hvor det første af stierne (en til makroerne og en til kæderne) stod i. Så kunne brugeren ændre stien her.

Ex.
Gammel sti: F:/regnskab/2005/1 kvt/
Ny sti: F:/regnskab/2005/2 kvt/

Det der så står i selve makroen er så kun det der kommer efter "kvt/".
Hvordan det styres i cellerne kan jeg ikke overskue!
Avatar billede kabbak Professor
18. september 2005 - 19:07 #1
ja det kan sagtens styres fra cellerne

I et ark der f.eks. hedder Stier, har du stien skrevet i A2

koden er så

Sti = sheets("Stier").range("A2")
Avatar billede kabbak Professor
18. september 2005 - 19:10 #2
Kæder er jeg ikke sikker på om man kan styre
Avatar billede oyejo Nybegynder
19. september 2005 - 08:21 #3
En mulighet er å kutte ut alle kæder.

Les alle data til en Matrise av typen Variant.

legg stien i en variabel.
sMainFolder = " F:/regnskab/2005/2 kvt/"
Da skal man kun gjøre endringen ett sted.
Avatar billede oyejo Nybegynder
19. september 2005 - 09:06 #4
Hvis man benytter celle(1,1) "A1" som utgangspunkt og skal ha data fra cellene:
A2, B5, og C5, kan man benytte en offset array til å styre dataflyten
øvre rad, Array( 2, 5 , 5) viser raden data ligger i
nest rad  Array(1,2,3) viser hvilke kolonner data ligger i
tilsammen utgjør dette adresse til cellen som data ligger i.

vRowColOffst = Array(Array(2, 5, 5 ), _
                    Array(1, 2, 3 ))

For å lese data til matrise, benytt for-løkke
For i = 1 to Ubound(VRowColOffst, 1)
vData(i) = .Cells(1, 1).Offset(vRowColOffst(1)(i), vRowColOffst(2)(i))
Next

hvis dette er av interesse, kan jeg kanskje hjelpe :-)
Avatar billede bak Forsker
19. september 2005 - 14:57 #5
Kæder kan styres lige så nemt som stien i makroen.
Bare optag en makro hvor du under rediger / Kæder ændrer kæder til et nyt regneark, og lav samme nummer som kabbak skriver med de to strenge der skal bruges.
Avatar billede h_s Forsker
10. oktober 2005 - 17:07 #6
Ser på det og vender tilbage - Hav tålmodighed :-)
Avatar billede h_s Forsker
06. februar 2006 - 20:42 #7
Ja, nu skal vi vist have dette spørgsmål lukket dette spørgsmål. jeg har ikke haft mod på at prøve at løse mit problem endnu, men kan I selv blive enige om hvordan pointene skal fordeles? :-)
Avatar billede h_s Forsker
28. oktober 2006 - 17:55 #8
..
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

Seneste spørgsmål Seneste aktivitet
I går 21:00 Libre Office Impress Af Frank i Andre styresystemer
I går 11:47 VB script Af Jenshentze i Word
I går 11:21 Popup ved opstart Af mort1 i Windows
04/0918:50 Slet lokal konto Af ErikHg i Windows
04/0916:05 Ændre tal i en celle Af xvid i Excel