Externt macro i Excel?

[JANspeed]

Hej! Har koden till ett macro för Excel i en textfil. Hur gör jag smidigast för att kunna hämta och köra en extern kod (som den i min textfil) som ett macro i Excel? Koden ska nämligen appliceras på flera olika filer?

 

Finns det nått sätt att rensa resterna av Macrot efter att man använt det så man slipper få upp den dumma frågan om man vill öppna dokumentet med macro eller utan varje gång?

 

Tacksam för hjälp.

 

/JANspeed

[XL-Dennis]

JANspeed,

 

Den bästa lösningen är att

- placera din kod i en separat arbetsbok och spara den som ett XL-tilläggsverktyg.

 

- Komplettera koden med en kontroll av aktiv arbetsbok innan proceduren körs.

 

- Enkelt att distribuera

- Slipper "dumma frågor"

 

 

Mvh

Dennis

http://www.xldennis.com

 

[JANspeed]

- Komplettera koden med en kontroll av aktiv arbetsbok innan proceduren körs.

 

Hur går man tillväga för att aktivera macrot sen. Måste jag öppna filen manuellt?

 

Vilket kommando använder man för kontroll av aktiv arbetsbok?

 

Hur gör jag för att räkna ut hur många celler det finns i ett markerat område och hur kan jag hoppa till nästa cell i ett markerat område? Ungefär som tabbtangenten gör?

 

Prövade med nån next men den hoppade utanför det markerade området då?

 

Tacksam för hjälp.

 

/JANspeed

 

 

 

[XL-Dennis]

JANSpeed,

 

Nej, utan vad du gör att koppla följande procedur till t ex en verktygsknapp (som visas när tillägget är aktiverat):

 

Sub Kontroll_Arbetsbok()
Dim wbOppen As Workbook
Dim vaBok() As Variant
Dim i As Integer

vaBok = Array("Bok1.xls", "Bok2.xls", "Bok3.xls")

For Each wbOppen In Application.Workbooks
   For i = 0 To 2
       If wbOppen.Name = vaBok(i) Then
           wbOppen.Activate 
           Call JanSpeed_Makro
       End If
   Next i
Next wbOppen

End Sub

 

Varje öppen arbetsbok (wbOppen)kontrolleras mot din arbetsboksamling (VaBok) och om en av de öppna arbetsböckerna ingår i samlingen så anropas din procedur annars inte.

 

Behöver du markera området du ska arbeta med?

 

Selection.Cells.Count

 

Dim rnCell as Range
For each rnCell in Selection
   'Utför det du ska göra
Next rnCell 

 

Mvh

Dennis

http://www.xldennis.com

 

[inlägget ändrat 2002-02-26 18:04:19 av XL-Dennis]

[JANspeed]

Hygglo. Ska testa litta när jag kommer till jobbet.

 

/JANspeed