Visual Basic-exempelmakron för arbete med matriser i Excel

Artikelöversättning Artikelöversättning
Artikel-id: 213798 - Visa produkter som artikeln gäller.
Visa alla | Dölj alla

På den här sidan

Sammanfattning

Den här artikeln innehåller exempel på Microsoft Visual Basic for Applications-procedurer som kan användas för arbete med flera matristyper.

Mer Information

Microsoft tillhandahåller programmeringsexempel enbart i förklarande syfte och gör inga utfästelser, varken uttryckligen eller underförstått. Detta omfattar men begränsas inte till underförstådd garanti för säljbarhet eller lämplighet för ett visst syfte. I denna artikel förutsätts att du känner till det programmeringsspråk som demonstreras och de verktyg som används för att skapa och felsöka procedurer. Microsofts supporttekniker kan hjälpa till med att förklara funktionen hos en viss procedur, men kan inte ändra dessa exempel för att ge ytterligare funktioner eller skapa procedurer som motsvarar dina speciella behov.

Så fyller du en matris och kopierar den till ett kalkylblad

  1. Öppna en ny arbetsbok.
  2. Kör Visual Basic Editor genom att trycka på ALT+F11.
  3. Klicka på ModulInfoga-menyn.
  4. Skriv följande kod i modulbladet:
       Sub Sheet_Fill_Array()
          Dim myarray As Variant
          myarray = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
          Range("a1:a10").Value = Application.WorksheetFunction.Transpose(myarray)
       End Sub
    					
  5. Klicka på Stäng och gå tillbaka till Microsoft ExcelArkiv-menyn.
  6. Markera Blad1.
  7. Peka på MakroVerktyg-menyn, och klicka sedan på Makron.
  8. Klicka på Sheet_Fill_Array i dialogrutan Makro och klicka på Kör.

Så fyller du matrisen med värden från ett kalkylblad

  1. Öppna en ny arbetsbok och skriv in värden i cellerna A1:A10 i Blad1.
  2. Kör Visual Basic Editor genom att trycka på ALT+F11.
  3. Klicka på ModulInfoga-menyn.
  4. Skriv följande kod i modulbladet:
       Sub From_sheet_make_array()
          Dim myarray As Variant
          myarray = Range("a1:a10").Value
    
          'Looping structure to look at array.
          For i = 1 To UBound(myarray)
          	MsgBox myarray(i, 1)
          Next
       End Sub
    				
    
  5. Klicka på Stäng och gå tillbaka till Microsoft ExcelArkiv-menyn.
  6. Markera Blad1.
  7. Peka på MakroVerktyg-menyn, och klicka sedan på Makron.
  8. Klicka på From_sheet_make_array i dialogrutan Makro och klicka på Kör.

Så överför och tar du emot en matris

  1. Öppna en ny arbetsbok.
  2. Kör Visual Basic Editor genom att trycka på ALT+F11.
  3. Klicka på ModulInfoga-menyn.
  4. Skriv följande kod i modulbladet:
       Sub Pass_array()
          Dim myarray As Variant
          myarray = Range("a1:a10").Value
          receive_array myarray
       End Sub
    
       Sub receive_array(thisarray)
          For i = 1 To UBound(myarray)
          	MsgBox myarray(i, 1)
          Next
       End Sub
  5. Klicka på Stäng och gå tillbaka till Microsoft ExcelArkiv-menyn.
  6. Välj Blad1 och markera intervallet A1:A10.
  7. Peka på MakroVerktyg-menyn, och klicka sedan på Makron.
  8. Klicka på Pass_array i dialogrutan Makro och klicka på Kör.

Egenskaper

Artikel-id: 213798 - Senaste granskning: den 26 februari 2008 - Revision: 5.3
Informationen i denna artikel gäller:
  • Microsoft Office Excel 2003
  • Microsoft Excel 2002 Standard Edition
  • Microsoft Excel 2000 Standard Edition
  • Microsoft Excel 97 Standard Edition
  • Microsoft Excel 2004 for Mac
  • Microsoft Excel X för Macintosh
  • Microsoft Excel 2001 för Macintosh
  • Microsoft Excel 98 för Macintosh
Nyckelord: 
kbhowto kbprogramming kbdtacode KB213798

Ge feedback

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com