Page 163 - Bửu Ngôn Du Lịch Ba Miền Tập 1
P. 163

Ví dụ: AcPITLVCeChart.SeriesColỉection(l).Select
         AcPITLVCeChart.SetSourceData
         Source:=Sheets("SAP").Range("ADl:AE12,AGl:AG12"),
         PlotBy:=xlColumns
         Tôi muốn, thay đoạn nguồn dữ liệu này bằng
         vd:range(cells(l,l),celỉs(m,5)) trong đó m là biến đã
         khai báo trước đó ?

         Sức  mạnh  của  lập  trình là  ở chỗ  dùng biến  để  miêu  tả
     dữ liệu cần xử lý,  do đó bất kỳ lệnh nào của ngôn ngữ nào
     cũng cho  phép  dùng biến  để miêu tả dữ liệu cần xử lý,  còn
     hằng chỉ  là  trường  hỢp  đặc  biệt  của  biến  mà  thôi.  Thí  dụ
     bạn có thể miêu tả nguồn dữ liệu của  1 biểu đồ Excel bằng
     1  vùng  cell  biến  đổi  theo  trị  các  biến,  cụ  thể  bạn  có  thể
     dùng các lệnh sau:
         'khai báo các biến miêu tả góc trên trái của vùng cell
         cần vẽ
         Dim rowl As Integer, coll As Integer
         'khai báo các biến miêu tả góc dưới phải của vùng cell
         cần vẽ
         Dim row2 As Integer, col2 As Integer
           'thiết lập các giá trị theo yêu cầu
           'thí dụ vùng vẽ từ A l: B4
           rowl =  1: coll =  1: row2 = 4: col2 = 2
           'tạo biểu đồ
           Charts.Add
           'thiết lập các thuộc tính biểu đồ
           AcPITLVCeChart.ChartType =
         xlSDColumnClustered
           AcPITLVCeChart.SetSourceData Source:=
         Sheets('SAP').Range( Sheets('SAP’).
         Cells(rowl, coll),  Sheets("SAP").Cells(row2, col2)),


                                                                   165
   158   159   160   161   162   163   164   165   166   167   168