Page 164 - Bửu Ngôn Du Lịch Ba Miền Tập 1
P. 164
PlotBy:= xlColumns
Lưu ý bạn nên dùng thuộc tính Range và Cells trên đổi
tượng tường minh là Sheet("SAP") của bạn (worksheet
chứa dữ liệu vẽ). • ■
Giả sử bài toán được phát biểu như sau: mỗi bộ 3 chất
hóa học ở 1 hàng sẽ tạo ra đúng 1 phương trình phản'ứng
hóa học để cho ra sản phẩm ở cột "Sản phẩm" tương ứng.
Nếu biết 1 hay 2 hay cả 3 chất thành phần làm sao tìm được
các PTPƯ có dùng các chất thành phần được biết, rồi hiển
thị chỉ sô" hàng tương ứpg trong bảng cho người dùng biết.
Để giải quyết bài toán được chúng tôi phát biểu lại như
trên, bạn có thê viết và dùng hàm user-deíìned bằng ngôn
ngữ VBA như sau:
‘Hàm tìm PTPU
Punction TimPTPƯ(rng As Range, chatl As String, chat2
As String, chat3 As String) As String
‘Khai báo các biến cần dùng
Dim count As Integer
Dim i As Integer
‘ tìm sô hàng chứa PTPƯ
count = rng.count
‘duyệt xử lý từng hàng
For i = 1 To count
If (Len(chatl) <> 0) And (Len(chat2) <> 0) And
(Len(chat3) <> 0) Then
‘Trường hỢp có cả 3 chất
If (chatl = rng.Item(i, l).Value) And (chat2 = rng.Item(i,
2).Value) And (chats = rng.Item(i, 3).Value) Then
‘Tìm được, hiển thị form thông báo
MsgBox "Tìm được PTPƯ ở hàng " & (rng.Rovv + i - 1)
166