PNG32 PNG32 PNG32 PNG32
PNG32
Forum Excel, VBA, VSTO, Exceltips, Excelhj�lp PNG32 drivs av Excelspecialisten    Logga in     English
PNG32
PNG32 PNG32
PNG32

Logga in

PNG32

Du är inte inloggad. Logga in eller registrera dig för att skriva inlägg eller svara på inlägg.

För frågor om forumet, kontakta oss på webmaster@excelforum.se

PNG32 PNG32
PNG32 PNG32
PNG32

Excelforum

PNG32

 
ForumForumDiskussionerDiskussionerVBAVBALäsa och skriva till namngiven vektorLäsa och skriva till namngiven vektor
Föregående Föregående
 
Nästa Nästa
Nytt inlägg
 2015-05-26 12:07
 

Hej,

Jag försöker läsa in en cell från et namngiven vektor i ett excelblad, ändra värdet och lägga tillbaka det i urspungscellen. Därefter tar jag nästa cell i vektorn och gör om operationen. (Avsikten är att läsa resultatet från en annan cell i varje steg men det är inte där problemet ligger så det kan vi hoppa över.)

Hur indexerar man adressen i en namngiven vektor för att kunna läsa värde från cell 1, 2, 3 etc i vektorn? Eller måste jag läsa in hela vektorn först? Och skriva tillbaka hela vektorn också?

Nytt inlägg
 2015-05-29 10:47
 
Hej Bertil!

Detta kan man göra på flera sätt beroende på hur många gånger du skall läsa och skriva till och från bladet. Mest effektivt är det att läsa ut hela Excel-området till en variant-matris, sedan loopa igenom innehållet samt ändra på de värden man vill ändra på och sedan skriva tillbaka hela matrisen till samma område igen. Är det bara ett fåtal värden så går det så klart utmärkt att göra detta direkt mot värden i bladen men ju fler värden man skall läsa och skriva desto segare blir exekveringen av koden.

Här är ett exempel på hur man kan uppnå detta:

Public Sub ModifyNamedRange()
Dim row As Integer
Dim col As Integer
Dim myRange As Variant
myRange = ThisWorkbook.Sheets("Blad1").Range("rngMyRange")
For row = LBound(myRange, 1) To UBound(myRange, 1)
For col = LBound(myRange, 2) To UBound(myRange, 2)
myRange(row, col) = "Nytt värde"
Next
Next
ThisWorkbook.Sheets("Blad1").Range("rngMyRange") = myRange
End Sub

Johan Öhrn

Excelforum drivs av Excelspecialisten som bedriver utveckling av program, utbildning samt support och hjälp i Excel och VBA.

www.excelspecialisten.se

Föregående Föregående
 
Nästa Nästa
ForumForumDiskussionerDiskussionerVBAVBALäsa och skriva till namngiven vektorLäsa och skriva till namngiven vektor

PNG32 PNG32
Excelforum drivs av Excelspecialisten som bedriver utbildning i Excel och VBA, tillhandahåller support och hjälp med Excel, utvecklar program i Excel. Är ni i behov av en konsult inom Excel, VBA eller VSTO, eller söker en excelkurs, kontakta oss.
Copyright 2013 ExcelSpecialisten XLS AB   Användarvillkor  Personliga uppgifter