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
   159   160   161   162   163   164   165   166   167   168   169