Đá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
  Unicode trên cửa sổ viết code VBA (IDE) lehongduc 0 261 10-12-17, 09:49 AM
Bài mới nhất: lehongduc
  Hướng Dẫn Thêm nút lăn chuột giao diện viết code VBA maidinhdan 0 199 27-11-17, 05:03 PM
Bài mới nhất: maidinhdan
  [Lỗi] Code để bảo vệ văn bản trừ các đoạn formfield vuthaiha90 10 863 14-11-17, 05:31 PM
Bài mới nhất: vuthaiha90
  [Thủ Thuật] Sử dụng window account cho việc phân quyền trong access tvn_hut 5 521 01-11-17, 01:47 PM
Bài mới nhất: ongke0711
  Làm sao chạy được code cả trong access 32 bit và access 64 bit haquocquan 1 374 12-09-17, 11:15 PM
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ơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line