Làm th? nào ð? t? ð?ng hoá Microsoft Excel t? Visual Basic

Bài vi?t này ch?ng t? làm th? nào ð? t?o và thao tác Excel b?ng cách s? d?ng t? ð?ng hóa t? Visual Basic.

Có hai cách ð? ki?m soát m?t máy ch? t? ð?ng hóa: b?i b?ng cách s? d?ng ho?c mu?n ràng bu?c ho?c ð?u ràng bu?c. V?i h?u ràng bu?c, phýõng pháp là không ràng bu?c cho ð?n khi th?i gian ch?y và các máy ch? t? ð?ng hóa tuyên b? nhý là ð?i tý?ng. V?i s?m ràng bu?c, ?ng d?ng c?a b?n bi?t t?i th?i gian thi?t k? lo?i chính xác c?a ð?i tý?ng nó s? liên l?c v?i, và có th? tuyên b? các ð?i tý?ng c?a nó nhý là m?t lo?i h?nh c? th?. M?u này s? d?ng ð?u ràng bu?c, v?n ðý?c coi là t?t hõn trong h?u h?t trý?ng h?p b?i v? nó dành hi?u su?t l?n hõn và t?t hõn lo?i an toàn.

Ð? c?n ð?u ràng bu?c vào m?t máy ch? t? ð?ng hóa, b?n ph?i thi?t l?p m?t tham chi?u ð?n ðó thý vi?n lo?i c?a máy ch?. Trong Visual Basic, ði?u này ðý?c th?c hi?n thông qua các tài li?u tham kh?o h?p tho?i t?m th?y dý?i d? án | Tài li?u tham kh?o tr?nh ðõn. Cho m?u này, b?n s? c?n ph?i thêm m?t tham chi?u ð?n thý vi?n ki?u cho Excel trý?c khi b?n có th? ch?y các M?. Xem các bý?c dý?i ðây làm th? nào ð? thêm tài li?u tham kh?o.

Xây d?ng m?u t? ð?ng hóa

1. B?t ð?u Visual Basic và t?o ra m?t d? án m?i c?a tiêu chu?n EXE. Form1 ðý?c t?o ra theo m?c ð?nh.
2. Nh?p vàoDýò aìn và sau ðó nh?p vào Tham khaÒo. Các Tham khaÒoh?p tho?i s? xu?t hi?n. Cu?n xu?ng danh sách cho ð?n khi b?n t?m th?y Microsoft Excel ð?i tý?ng thý vi?n, và sau ðó ch?n m?c ð? thêm m?t tài li?u tham kh?o ð? Excel. N?u thý vi?n chính xác ð?i tý?ng c?a b?n Phiên b?n c?a Excel không không xu?t hi?n trong danh sách, h?y ch?c ch?n r?ng b?n có phiên b?n Excel c?a b?n ðúng cách cài ð?t.
   
   Chuì yì
   • N?u b?n ðang t? ð?ng hoá Microsoft Office Excel 2007, lo?i thý vi?n s? xu?t hi?n nhý Microsoft Excel 12,0 ð?i tý?ng thý vi?n trong các Tham khaÒodanh sách.
   • N?u b?n ðang t? ð?ng hoá Microsoft Office Excel 2003, lo?i thý vi?n s? xu?t hi?n nhý Microsoft Excel 11,0 ð?i tý?ng thý vi?n trong các Tham khaÒodanh sách.
   • N?u b?n ðang t? ð?ng hoá Microsoft Excel 2002, thý vi?n ki?u xu?t hi?n nhýMicrosoft Excel 10,0 ð?i tý?ng thý vi?n trong các Tham khaÒo danh sách
   • N?u b?n ðang t? ð?ng hoá Microsoft Excel 2000, thý vi?n ki?u xu?t hi?n nhýMicrosoft Excel 9,0 ð?i tý?ng thý vi?n trong các Tham khaÒo danh sách.
   • N?u b?n ðang t? ð?ng hoá Microsoft Excel 97, thý vi?n ki?u xu?t hi?n nhýMicrosoft Excel 8,0 ð?i tý?ng thý vi?n trong các Tham khaÒo danh sách
3. Nh?p vào Ok ð? ðóng nh?ng Tham khaÒo h?p tho?i.
4. Thêm m?t CommandButton ð? Form1.
5. Trong c?a s? m? cho Form1, chèn sau ðây M? s?:
   

      Option Explicit
      
      Private Sub Command1_Click()
         Dim oXL As Excel.Application
         Dim oWB As Excel.Workbook
         Dim oSheet As Excel.Worksheet
         Dim oRng As Excel.Range
         
   
         'On Error GoTo Err_Handler
         
      ' Start Excel and get Application object.
         Set oXL = CreateObject("Excel.Application")
         oXL.Visible = True
         
      ' Get a new workbook.
         Set oWB = oXL.Workbooks.Add
         Set oSheet = oWB.ActiveSheet
         
      ' Add table headers going cell by cell.
         oSheet.Cells(1, 1).Value = "First Name"
         oSheet.Cells(1, 2).Value = "Last Name"
         oSheet.Cells(1, 3).Value = "Full Name"
         oSheet.Cells(1, 4).Value = "Salary"
         
   
      ' Format A1:D1 as bold, vertical alignment = center.
         With oSheet.Range("A1", "D1")
            .Font.Bold = True
            .VerticalAlignment = xlVAlignCenter
         End With
         
      ' Create an array to set multiple values at once.
         Dim saNames(5, 2) As String
         saNames(0, 0) = "John"
         saNames(0, 1) = "Smith"
         saNames(1, 0) = "Tom"
         saNames(1, 1) = "Brown"
         saNames(2, 0) = "Sue"
         saNames(2, 1) = "Thomas"
         saNames(3, 0) = "Jane"
   
         saNames(3, 1) = "Jones"
         saNames(4, 0) = "Adam"
         saNames(4, 1) = "Johnson"
         
       ' Fill A2:B6 with an array of values (First and Last Names).
         oSheet.Range("A2", "B6").Value = saNames
         
       ' Fill C2:C6 with a relative formula (=A2 & " " & B2).
         Set oRng = oSheet.Range("C2", "C6")
         oRng.Formula = "=A2 & "" "" & B2"
         
       ' Fill D2:D6 with a formula(=RAND()*100000) and apply format.
         Set oRng = oSheet.Range("D2", "D6")
         oRng.Formula = "=RAND()*100000"
         oRng.NumberFormat = "$0.00"
         
       ' AutoFit columns A:D.
         Set oRng = oSheet.Range("A1", "D1")
         oRng.EntireColumn.AutoFit
         
       ' Manipulate a variable number of columns for Quarterly Sales Data.
         Call DisplayQuarterlySales(oSheet)
         
       ' Make sure Excel is visible and give the user control
       ' of Microsoft Excel's lifetime.
         oXL.Visible = True
         oXL.UserControl = True
         
       ' Make sure you release object references.
         Set oRng = Nothing
         Set oSheet = Nothing
         Set oWB = Nothing
         Set oXL = Nothing
         
      Exit Sub
      Err_Handler:
         MsgBox Err.Description, vbCritical, "Error: " & Err.Number
      End Sub
      
      Private Sub DisplayQuarterlySales(oWS As Excel.Worksheet)
         Dim oResizeRange As Excel.Range
         Dim oChart As Excel.Chart
         Dim iNumQtrs As Integer
         Dim sMsg As String
         Dim iRet As Integer
         
       ' Determine how many quarters to display data for.
         For iNumQtrs = 4 To 2 Step -1
            sMsg = "Enter sales data for" & Str(iNumQtrs) & " quarter(s)?"
            iRet = MsgBox(sMsg, vbYesNo Or vbQuestion _
               Or vbMsgBoxSetForeground, "Quarterly Sales")
            If iRet = vbYes Then Exit For
         Next iNumQtrs
         
   
         sMsg = "Displaying data for" & Str(iNumQtrs) & " quarter(s)."
         MsgBox sMsg, vbMsgBoxSetForeground, "Quarterly Sales"
         
       ' Starting at E1, fill headers for the number of columns selected.
         Set oResizeRange = oWS.Range("E1", "E1").Resize(ColumnSize:=iNumQtrs)
   
         oResizeRange.Formula = "=""Q"" & COLUMN()-4 & CHAR(10) & ""Sales"""
         
       ' Change the Orientation and WrapText properties for the headers.
         oResizeRange.Orientation = 38
         oResizeRange.WrapText = True
         
       ' Fill the interior color of the headers.
         oResizeRange.Interior.ColorIndex = 36
         
       ' Fill the columns with a formula and apply a number format.
         Set oResizeRange = oWS.Range("E2", "E6").Resize(ColumnSize:=iNumQtrs)
         oResizeRange.Formula = "=RAND()*100"
         oResizeRange.NumberFormat = "$0.00"
         
       ' Apply borders to the Sales data and headers.
         Set oResizeRange = oWS.Range("E1", "E6").Resize(ColumnSize:=iNumQtrs)
         oResizeRange.Borders.Weight = xlThin
         
       ' Add a Totals formula for the sales data and apply a border.
         Set oResizeRange = oWS.Range("E8", "E8").Resize(ColumnSize:=iNumQtrs)
         oResizeRange.Formula = "=SUM(E2:E6)"
         With oResizeRange.Borders(xlEdgeBottom)
            .LineStyle = xlDouble
            .Weight = xlThick
         End With
         
       ' Add a Chart for the selected data
         Set oResizeRange = oWS.Range("E2:E6").Resize(ColumnSize:=iNumQtrs)
         Set oChart = oWS.Parent.Charts.Add
         With oChart
            .ChartWizard oResizeRange, xl3DColumn, , xlColumns
            .SeriesCollection(1).XValues = oWS.Range("A2", "A6")
               For iRet = 1 To iNumQtrs
                  .SeriesCollection(iRet).Name = "=""Q" & Str(iRet) & """"
               Next iRet
            .Location xlLocationAsObject, oWS.Name
         End With
         
       ' Move the chart so as not to cover your data.
         With oWS.Shapes("Chart 1")
            .Top = oWS.Rows(10).Top
            .Left = oWS.Columns(2).Left
   
         End With
         
       ' Free any references.
         Set oChart = Nothing
         Set oResizeRange = Nothing
      
      End Sub
   
   						

6. Nh?n F5 ð? ch?y các d? án.

Ð? bi?t thêm thông tin v? vãn ph?ng t? ð?ng hóa, xin vui l?ng truy c?p vào các Phát tri?n vãn ph?ng Microsoft h? tr? trang web t?i: (c) t?p ðoàn Microsoft 1999, t?t c? các quy?n. Nh?ng ðóng góp c?a Richard R. Taylor, Microsoft Corporation.