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

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