|
| 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
| |
|
|