/ Forside / Teknologi / Administrative / MS-Office / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
MS-Office
#NavnPoint
sion 18709
refi 14474
Klaudi 9389
Rosco40 5695
berpox 5456
dk 5398
webnoob 4919
Benjamin... 4870
o.v.n. 4637
10  EXTERMINA.. 4373
Excel 2k3 VBA Check cell
Fra : Mike Johnson


Dato : 06-05-05 08:21

Hej

Er der nogen som kan sige mig om man kan (og i så fald hvordan), man
kan checke noget i et andet ark uden at man hopper over i det andet
ark (visuelt) ?

Jeg har en løkke kørende som checker en del ting i et andet regneark.
Når det sker, står Excel og skifter mellem det ene og det andet ark og
dette ser ikke for smart ud.

Det som bruges nu er :

Sheets("Ark2").Select
Range("E4").Select
....

Herefter hopper man tilbage til Ark1 osv...

Der checkes for forsk. ting (bla. en slags lookup funktion - VBA, men
også kopiering af celler mhtr. formattering). Men problemet er at
denne lykke måske køres 100x og hver gang skifter Excel fra det ene
ark til den andet (og tilbage igen) og dette er lidt forvirende at se
på.

På forhånd tak

MJ


 
 
Harald Staff (06-05-2005)
Kommentar
Fra : Harald Staff


Dato : 06-05-05 08:28

Absolutt. Koden blir ikke bare penere og langt mer brukervennlig, men også
vesentlig hurtigere.

Det gjøres med en av disse fire syntakser, velg den som passer oppgaven
best. Cells er den beste i løkker.

Sub test()
Sheets(1).Range("C14").Value = Sheets(2).Range("N11").Value
Sheets("Ark1").Range("C14").Value = Sheets("Ark2").Range("N11").Value
Sheets(1).Cells(14, 3).Value = Sheets(2).Cells(11, 14).Value
Sheets("Ark1").Range("C14").Value = Sheets("Ark2").Cells(11, 14).Value
End Sub

HTH. Beste hilsen Harald

"Mike Johnson" <powerviper4@hotmail.com> skrev i melding
news:j86m71peiaj1nb86da3dihjaq5dn9tfl86@4ax.com...
> Hej
>
> Er der nogen som kan sige mig om man kan (og i så fald hvordan), man
> kan checke noget i et andet ark uden at man hopper over i det andet
> ark (visuelt) ?
>
> Jeg har en løkke kørende som checker en del ting i et andet regneark.
> Når det sker, står Excel og skifter mellem det ene og det andet ark og
> dette ser ikke for smart ud.
>
> Det som bruges nu er :
>
> Sheets("Ark2").Select
> Range("E4").Select
> ...
>
> Herefter hopper man tilbage til Ark1 osv...
>
> Der checkes for forsk. ting (bla. en slags lookup funktion - VBA, men
> også kopiering af celler mhtr. formattering). Men problemet er at
> denne lykke måske køres 100x og hver gang skifter Excel fra det ene
> ark til den andet (og tilbage igen) og dette er lidt forvirende at se
> på.
>
> På forhånd tak
>
> MJ
>



Mike Johnson (06-05-2005)
Kommentar
Fra : Mike Johnson


Dato : 06-05-05 08:35

Hej

Tak for hurtigt svar...

Jeg fandt ud af at nedenstående virkede :

Sheets("Ark2").Range("E6").Offset(0, 0).Copy

MJ


On Fri, 6 May 2005 09:27:33 +0200, "Harald Staff"
<innocent@enron.invalid> wrote:

>Absolutt. Koden blir ikke bare penere og langt mer brukervennlig, men også
>vesentlig hurtigere.
>
>Det gjøres med en av disse fire syntakser, velg den som passer oppgaven
>best. Cells er den beste i løkker.
>
>Sub test()
>Sheets(1).Range("C14").Value = Sheets(2).Range("N11").Value
>Sheets("Ark1").Range("C14").Value = Sheets("Ark2").Range("N11").Value
>Sheets(1).Cells(14, 3).Value = Sheets(2).Cells(11, 14).Value
>Sheets("Ark1").Range("C14").Value = Sheets("Ark2").Cells(11, 14).Value
>End Sub
>
>HTH. Beste hilsen Harald
>
>"Mike Johnson" <powerviper4@hotmail.com> skrev i melding
>news:j86m71peiaj1nb86da3dihjaq5dn9tfl86@4ax.com...
>> Hej
>>
>> Er der nogen som kan sige mig om man kan (og i så fald hvordan), man
>> kan checke noget i et andet ark uden at man hopper over i det andet
>> ark (visuelt) ?
>>
>> Jeg har en løkke kørende som checker en del ting i et andet regneark.
>> Når det sker, står Excel og skifter mellem det ene og det andet ark og
>> dette ser ikke for smart ud.
>>
>> Det som bruges nu er :
>>
>> Sheets("Ark2").Select
>> Range("E4").Select
>> ...
>>
>> Herefter hopper man tilbage til Ark1 osv...
>>
>> Der checkes for forsk. ting (bla. en slags lookup funktion - VBA, men
>> også kopiering af celler mhtr. formattering). Men problemet er at
>> denne lykke måske køres 100x og hver gang skifter Excel fra det ene
>> ark til den andet (og tilbage igen) og dette er lidt forvirende at se
>> på.
>>
>> På forhånd tak
>>
>> MJ
>>
>


Harald Staff (06-05-2005)
Kommentar
Fra : Harald Staff


Dato : 06-05-05 11:06

Vel, den kopierer, men limer ikke. Ett ekstra argument så kan den det også:

Sheets("Ark2").Range("E6").Copy Sheets("Ark3").Range("B12")

Offset(0, 0) er nonsens. Fjern det.

Merk at Copy tar med seg formler, formater, skriftstørrelse, kantlinjer og
the works, det er i de fleste tilfeller ikke nødvendig.

HTH. Beste hilsen Harald

"Mike Johnson" <powerviper4@hotmail.com> skrev i melding
news:rf7m71pe0ucq6b75ne605ci4sn7ufl98m9@4ax.com...
> Hej
>
> Tak for hurtigt svar...
>
> Jeg fandt ud af at nedenstående virkede :
>
> Sheets("Ark2").Range("E6").Offset(0, 0).Copy



Mike Johnson (07-05-2005)
Kommentar
Fra : Mike Johnson


Dato : 07-05-05 09:47

Tak, man kan jo lige så godt fjerne unødige ting


On Fri, 6 May 2005 12:06:00 +0200, "Harald Staff"
<innocent@enron.invalid> wrote:

>Sheets("Ark2").Range("E6").Copy Sheets("Ark3").Range("B12")


Mike Johnson (07-05-2005)
Kommentar
Fra : Mike Johnson


Dato : 07-05-05 09:52

Hov forresten... Jeg skal vel bruge offset (eller beregne mig frem til
cellen) da jeg ikke kopiere til samme celle.

On Fri, 6 May 2005 12:06:00 +0200, "Harald Staff"
<innocent@enron.invalid> wrote:

>Sheets("Ark2").Range("E6").Copy Sheets("Ark3").Range("B12")


Mike Johnson (06-05-2005)
Kommentar
Fra : Mike Johnson


Dato : 06-05-05 08:29

Som jeg kan blive ved.

Har måske selv fundet løsningen, da det måske kan kombineres med

Sheets("Ark2r").Range("E4").Offset(CodeNo, 0). ???


On Fri, 06 May 2005 09:20:39 +0200, Mike Johnson
<powerviper4@hotmail.com> wrote:

>Hej
>
>Er der nogen som kan sige mig om man kan (og i så fald hvordan), man
>kan checke noget i et andet ark uden at man hopper over i det andet
>ark (visuelt) ?
>
>Jeg har en løkke kørende som checker en del ting i et andet regneark.
>Når det sker, står Excel og skifter mellem det ene og det andet ark og
>dette ser ikke for smart ud.
>
>Det som bruges nu er :
>
> Sheets("Ark2").Select
> Range("E4").Select
>...
>
>Herefter hopper man tilbage til Ark1 osv...
>
>Der checkes for forsk. ting (bla. en slags lookup funktion - VBA, men
>også kopiering af celler mhtr. formattering). Men problemet er at
>denne lykke måske køres 100x og hver gang skifter Excel fra det ene
>ark til den andet (og tilbage igen) og dette er lidt forvirende at se
>på.
>
>På forhånd tak
>
>MJ


Mike Johnson (06-05-2005)
Kommentar
Fra : Mike Johnson


Dato : 06-05-05 08:26

Glemte lige at nævne :


Så man måske kunne kombinere :


Sheets("Ark2").Range("E5").Selection.Copy

Istedet for :

Sheets("Ark2").Select
Range("E6").Select
Selection.Copy

Sidstnævnte hopper nemlig over i ark2 (visuelt og det vil helst
undgås)

MJ


Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408925
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste