• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Phân tích code

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thủ thuật VBA
  • Phân tích code
• Phân tích code

• Phân tích code

  thanhquyt > 15-01-16, 10:43 PM

  Hi.Có ai giúp mình phân tích đoạn code với
  Option Explicit
  Public Sub GPE()
  Dim Dic As Object, I As Long, J As Long, K As Long
  Dim Tmp As String, Arr, dArr
  Arr = Range(Sheet1.[A2], Sheet1.[A65000].End(3)).Resize(, 3)
  ReDim dArr(1 To UBound(Arr), 1 To 3)
  Set Dic = CreateObject("Scripting.Dictionary")
     With Dic
         For I = 1 To UBound(Arr, 1)
         Tmp = Arr(I, 1)
             If Not .Exists(Tmp) Then
                 K = K + 1
                 .Add Tmp, K
                 For J = 1 To UBound(Arr, 2)
                     dArr(K, J) = Arr(I, J)
                 Next J
             Else
                 dArr(.Item(Tmp), 2) = dArr(.Item(Tmp), 2) + Arr(I, 2)
             End If
         Next I
     End With
  With Sheet1
     .Range("E2").Resize(65000, 3).ClearContents
     .Range("E2").Resize(K, 3) = dArr
  End With
  End Sub

• RE: Phân tích code

  lmthu > 16-01-16, 09:19 AM

  Đoạn mã lệnh (code) này dùng kỹ thuật gọi là "tra từ điển" nghĩa là khi bạn đánh 1 từ hoặc 1 cụm từ để tìm kiếm, chương trình sẽ lọc ra trong trường khóa chính (tùy bạn chọn) của CSDL những record có chứa từ đó, kỹ thuật của bạn nêu hình là ứng dụng trong bảng tính Excel

• RE: Phân tích code

  khải nguyên > 17-01-16, 01:30 PM

  chữ LỚN quá tụi tui nhìn hoài đau mắt lun 1

• RE: Phân tích code

  thanhquyt > 22-01-16, 12:05 AM

  (16-01-16, 09:19 AM)lmthu Đã viết: Đoạn mã lệnh (code) này dùng kỹ thuật gọi là "tra từ điển" nghĩa là khi bạn đánh 1 từ hoặc 1 cụm từ để tìm kiếm, chương trình sẽ lọc ra trong trường khóa chính (tùy bạn chọn) của CSDL những record có chứa từ đó, kỹ thuật của bạn nêu hình là ứng dụng trong bảng tính Excel

  
  hi.bạn có thể chi tiết 1 chút được hok bạn
  thank
• Bài trước Bài tiếp