Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Forum översikt / inlägg

Posta nytt inlägg


Hur kan man välja ett område "Range" i excel

Postades av 2007-09-04 09:42:28 - Roger Larsson, i forum visual basic - allmänt, Tråden har 4 Kommentarer och lästs av 1701 personer

Hej!

Jag försöker välja ut ett antal celler (cell 3,5 till 40,5) i en kolumn. Dessa celler ska läggas in i ett diagram. När jag gör det så försöker jag använda koden nedan. Det kommer att vara olika områden som ska läggas in i diagrammet, vid olika tillfällen.

ActiveChart.SeriesCollection.Add Source:=Sheets("X-koordinat").Range((Cells(3, colNr)), (Cells(40, colNr))), Rowcol:=xlColumns, SeriesLabels:=True, CategoryLabels:=False, Replace:=False

variabeln "colNr" är i detta fall 5.

Jag har inte möjlighet att använda Range("E3":"E40")

När jag kör koden får jag ett felmeddelande: Körfel nr '1004' Metoden 'Cells' i objektet 'Global' misslyckades.


Någon som har en lösning på problemet?

Tack för hjälpen / Roger


Svara

Sv: Hur kan man välja ett område "Range" i excel

Postades av 2007-09-04 12:22:15 - Niklas Jansson

Du måste hela tiden referera till rätt sheet, även för Cells-operationen.

Lite stiligare är följande:

<code>
With Worksheets("X-koordinat")
ActiveChart.SeriesCollection.Add Source:=.Range(.Cells(3, colNr), .Cells(40, colNr)), ...
End With
</code>


Svara

Sv:Hur kan man välja ett område "Range" i excel

Postades av 2007-09-04 17:00:46 - Roger Larsson

Tack för ditt svar. Tyvärr fungerade inte det heller. Förmodligen har jag missat något mer. Så här ser hela koden ut i denna sub.

<code>
Sub Add_PointsToDiagram(ByVal colNr As Integer)
ActiveSheet.ChartObjects("Diagram 3").Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection.Add Source:=Sheets("X-koordinat").Range((Cells(2, colNr)), (Cells(40, colNr))), Rowcol:=xlColumns, SeriesLabels:=True, CategoryLabels:=False, Replace:=False
End Sub
</code>

/Roger


Svara

Sv: Hur kan man välja ett område "Range" i excel

Postades av 2007-09-04 17:26:28 - Niklas Jansson

För det första så finns det lite grejer med koden du bör snygga upp lite. Om makrot ligger i samma workbook som sheeten, så bör du istället namnge sheeten, och referera till dem.

I princip ska det här fungera:

<code>
Sub Add_PointsToDiagram(ByVal colNr As Integer)
ActiveSheet.ChartObjects("Diagram 3").Activate
ActiveChart.ChartArea.Select
With Sheets("X-koordinat")
ActiveChart.SeriesCollection.Add Source:=.Range((.Cells(2, colNr)), (.Cells(40, colNr))), Rowcol:=xlColumns, SeriesLabels:=True, CategoryLabels:=False, Replace:=False
End With
End Sub
</code>

Det här är lite snyggare

<code>
Sub Add_PointsToDiagram(ByVal colNr As Integer)
ActiveSheet.ChartObjects("Diagram 3").Activate
ActiveChart.ChartArea.Select
With WorkSheets("X-koordinat")
ActiveChart.SeriesCollection.Add Source:=.Range((.Cells(2, colNr)), (.Cells(40, colNr))), Rowcol:=xlColumns, SeriesLabels:=True, CategoryLabels:=False, Replace:=False
End With
End Sub
</code>

Och om inget funkar så ska du skriva så här:

<code>
Sub Add_PointsToDiagram(ByVal colNr As Integer)
ActiveSheet.ChartObjects("Diagram 3").Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection.Add Source:=Sheets("X-koordinat").Range((Sheets("X-koordinat").Cells(2, colNr)), (Sheets("X-koordinat").Cells(40, colNr))), Rowcol:=xlColumns, SeriesLabels:=True, CategoryLabels:=False, Replace:=False
End Sub
</code>

Du bör nog också kolla så att colNr >0 och <256.


Svara

Sv:Hur kan man välja ett område "Range" i excel

Postades av 2007-09-07 16:37:11 - Roger Larsson

Det fungerade kanon. Jag har en kontroll av colNr i en annan sub. Tack så mycket för hjälpen Niklas...! /Roger


Svara

Nyligen

  • 17:03 Getmancar your go-to carsharing
  • 14:07 Games
  • 17:54 Vegastars New Zealand
  • 16:56 Verde Casino Danmark
  • 13:54 Vegastars: Top Australian Online C
  • 21:28 Chicken Road Casino Game
  • 21:21 1xBet Promo Code 2025
  • 18:37 Remove the bumper in AUDI

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 570 984
27 965
271 785
813
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies