Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Phân tích code
#1
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
Chữ ký của thanhquyt thanhquyt,gia nhập Thủ Thuật Access từ 25-08 -15.
Reply
Những người đã cảm ơn
#2
Đ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
Chữ ký của lmthu Xin chào, mình là lmthu, Tham gia http://thuthuataccess.com/forum từ ngày 04-07 -14.
Reply
Những người đã cảm ơn thanhquyt
#3
chữ LỚN quá tụi tui nhìn hoài đau mắt lun 1
Chữ ký của khải nguyên Khải Nguyên Xin Gửi lời chào tới Tất cả các bạn trên Diễn Đàn Thủ Thuật Access
Chúc cả nhà may mắn và  thành đạt ! Lightbulb
Reply
Những người đã cảm ơn
#4
(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
Chữ ký của thanhquyt thanhquyt,gia nhập Thủ Thuật Access từ 25-08 -15.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
Photo [Thủ Thuật] Code chia sẽ hàng thừa Phung Duc 2 59 05-12-16, 04:34 PM
Bài mới nhất: Phung Duc
  Cần giúp đỡ chuyển số có thập phân ra chữ ledangvan 12 635 07-11-16, 03:56 PM
Bài mới nhất: maidinhdan
  [Hỏi] Viết code có điều kiện " lệnh Chạy tiếp khi đóng tbl cho sẵn" Trần Linh 3 140 21-10-16, 11:11 AM
Bài mới nhất: Minh Tiên
  Giải thích ý nghĩ của đoạn code feeling 3 197 06-10-16, 10:18 AM
Bài mới nhất: vulhu06
  Viết phần quyền sử dụng tt1212 9 497 01-10-16, 12:26 AM
Bài mới nhất: maidinhdan

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ