Trích xuất dữ liệu nhiều sheet (3 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
V

vulunktheky

Thành viên thường trực
Tham gia
2/3/18
Bài viết
274
Được thích
84
Giới tính
Nam
Chào anh/chị, Em xin mô tả lại file của em như sau, Phiền anh chị hỗ trợ.
'+ Liệt kê tất cả các NGUYÊN NHÂN PHẾ theo NGÀY/ CA/ ID HÌNH THỂ ở sheet 1QA (từ G4 đên T4):
Lưu Ý: Là trích xuất những nguyên nhân có dữ liệu số đôi phế.
1666060312595.png
+ PHÂN LOẠI ĐẾ: Dựa vào ID Hình thể để dò tìm ở sheet 2DATA để lấy dữ liệu cột A
+ TÊN HÌNH THỂ: Dựa vào ID hình thể dò tìm ở sheet 2DATA để lấy dữ liệu cột C
+ MÃ MCS: Dựa vào ID hình thể dò tìm ở sheet 2DATA để lấy dữ liệu cột E
+ NHIỀU MẪ MCS: ID hình thể dò tìm ở sheet 2DATA để lấy dữ liệu cột F
+ MÀU ĐẾ PHẾ /MẪ : ID hình thể dò tìm ở sheet 2DATA để lấy dữ liệu cột G
+ SỐ ĐÔI PHẾ: Dựa vào ID Hình thể/ Ca/ Ngày/ Nguyên nhân phế để tính tổng số phế ở sheet 1QA (Vùng tính tổng từ G5:T), sau đó chia 2
=> mình có sheet kết quả mẫu để anh chị dễ hình dung ạ. Xin cảm ơn anh chị đã giúp đỡ.
 

File đính kèm

Lần chỉnh sửa cuối:
Sắp xếp theo thời gian sắp xếp theo bầu chọn
vulunktheky đã viết:
Chào anh/chị, Em xin mô tả lại file của em như sau, Phiền anh chị hỗ trợ.
'+ Liệt kê tất cả các NGUYÊN NHÂN PHẾ theo NGÀY/ CA/ ID HÌNH THỂ ở sheet 1QA (từ G4 đên T4):
Lưu Ý: Là trích xuất những nguyên nhân có dữ liệu số đôi phế.
View attachment 282263
+ PHÂN LOẠI ĐẾ: Dựa vào ID Hình thể để dò tìm ở sheet 2DATA để lấy dữ liệu cột A
+ TÊN HÌNH THỂ: Dựa vào ID hình thể dò tìm ở sheet 2DATA để lấy dữ liệu cột C
+ MÃ MCS: Dựa vào ID hình thể dò tìm ở sheet 2DATA để lấy dữ liệu cột E
+ NHIỀU MẪ MCS: ID hình thể dò tìm ở sheet 2DATA để lấy dữ liệu cột F
+ MÀU ĐẾ PHẾ /MẪ : ID hình thể dò tìm ở sheet 2DATA để lấy dữ liệu cột G
+ SỐ ĐÔI PHẾ: Dựa vào ID Hình thể/ Ca/ Ngày/ Nguyên nhân phế để tính tổng số phế ở sheet 1QA (Vùng tính tổng từ G5:T), sau đó chia 2
=> mình có sheet kết quả mẫu để anh chị dễ hình dung ạ. Xin cảm ơn anh chị đã giúp đỡ.
Nhấp chuột vào đây để mở rộng...
Bạn thử code dưới xem được không nhé!
PHP: 
Sub GPE()
    Dim Arr(), Res(1 To 10000, 1 To 12), i As Long, j As Long, K As Long
    Dim Lr1 As Long, Lr2 As Long, Arr2 As Range, Rng As Range
    On Error Resume Next
    With Sheets("2DATA")
        Lr2 = .Range("A" & Rows.Count).End(xlUp).Row
        Set Arr2 = .Range("A1:G" & Lr2)
        Set Rng = .Range("D1:D" & Lr2)
    End With
    With Sheets("1QA")
        Lr1 = .Range("A" & Rows.Count).End(xlUp).Row
        Arr = .Range("A4:T" & Lr1).Value
        For j = 7 To 20
            For i = 2 To UBound(Arr)
                If Arr(i, j) <> "" Then
                    K = K + 1
                    Res(K, 1) = Arr(i, 1): Res(K, 3) = Arr(i, 2)
                    With Application
                        Res(K, 4) = .Index(Arr2, .Match(Arr(i, 4), Rng, False), 1)
                        Res(K, 6) = .Index(Arr2, .Match(Arr(i, 4), Rng, False), 3)
                        Res(K, 9) = .Index(Arr2, .Match(Arr(i, 4), Rng, False), 5)
                        Res(K, 10) = .Index(Arr2, .Match(Arr(i, 4), Rng, False), 6)
                        Res(K, 11) = .Index(Arr2, .Match(Arr(i, 4), Rng, False), 7)
                    End With
                        Res(K, 5) = Arr(1, j)
                        Res(K, 7) = Arr(i, 4)
                        Res(K, 12) = Arr(i, j) / 2
                End If
            Next i
        Next j
    End With
    Sheets("SUMMARY").Range("E2:P10000").ClearContents
    Sheets("SUMMARY").Range("E2").Resize(K, 12).Value = Res
    '__________________________________________________________________________________
    Dim Dic As Object, Key As String, s As Long
    Dim Lrl As Long, Arrl(), Resl(1 To 100, 1 To 12)
    Set Dic = CreateObject("Scripting.dictionary")
    With Sheets("SUMMARY")
        Lrl = .Range("E" & Rows.Count).End(xlUp).Row
        Arrl = .Range("E2:P" & Lrl).Value
        For i = 1 To UBound(Arrl)
            Key = Arrl(i, 1) & "|" & Arrl(i, 3) & "|" & Arrl(i, 5) & "|" & Arrl(i, 7)
            If Not Dic.exists(Key) Then
                s = s + 1
                Dic.Add (Key), s
                For j = 1 To 12
                    Resl(s, j) = Arrl(i, j)
                Next j
            Else
                Resl(Dic.Item(Key), 12) = Resl(Dic.Item(Key), 12) + Arrl(i, 12)
            End If
        Next i
        .Range("E2:P1000").ClearContents
        .Range("E2").Resize(s, 12).Value = Resl
        With Range("E1:P1000")
            .Sort .Cells(1, 1), 1, Header:=xlGuess
        End With
    End With
    Set Dic = Nothing
    MsgBox "Hoàn Thành"
End Sub
 

File đính kèm

Upvote 0
Xài đỡ:
Mã: 
Option Explicit
Sub TEST()
Dim lr&, i&, j&, k&, rng, arr(), id As String, s
Dim dic As Object, key
Set dic = CreateObject("Scripting.Dictionary")
With Sheets("1QA")
    lr = .Cells(Rows.Count, "A").End(xlUp).Row
    rng = .Range("A4:T" & lr).Value2
    For i = 2 To UBound(rng)
        For j = 7 To UBound(rng, 2)
            id = rng(i, 1) & "|" & rng(i, 2) & "|" & rng(i, 4) & "|" & rng(1, j)
            If rng(i, j) > 0 Then
                If Not dic.exists(id) Then
                    dic.Add id, rng(i, j) / 2
                Else
                    dic(id) = dic(id) + rng(i, j) / 2
                End If
            End If
        Next
    Next
End With
With Sheets("2DATA")
    lr = .Cells(Rows.Count, "D").End(xlUp).Row
    rng = .Range("A2:G" & lr).Value
End With
ReDim arr(1 To dic.Count, 1 To 12)
For Each key In dic.keys
    s = Split(key, "|")
    k = k + 1
    arr(k, 1) = s(0): arr(k, 3) = s(1): arr(k, 5) = s(3): arr(k, 7) = s(2)
    For i = 1 To UBound(rng)
        If s(2) = rng(i, 4) Then
            arr(k, 4) = rng(i, 1): arr(k, 6) = rng(i, 3): arr(k, 4) = rng(i, 1)
            arr(k, 9) = rng(i, 1): arr(k, 10) = rng(i, 6): arr(k, 11) = rng(i, 7)
            arr(k, 12) = dic(key)
        End If
    Next
Next
With Sheets("SUMMARY")
    .Range("E2:P10000").ClearContents
    .Range("E2").Resize(k, 12).Value = arr
    .Range("A2:P" & k + 1).Sort .Range("E1"), , .Range("I1")
End With
End Sub
 

File đính kèm

Upvote 0
Bienhoa84 đã viết:
Bạn thử code dưới xem được không nhé!
PHP: 
Sub GPE()
    Dim Arr(), Res(1 To 10000, 1 To 12), i As Long, j As Long, K As Long
    Dim Lr1 As Long, Lr2 As Long, Arr2 As Range, Rng As Range
    On Error Resume Next
    With Sheets("2DATA")
        Lr2 = .Range("A" & Rows.Count).End(xlUp).Row
        Set Arr2 = .Range("A1:G" & Lr2)
        Set Rng = .Range("D1:D" & Lr2)
    End With
    With Sheets("1QA")
        Lr1 = .Range("A" & Rows.Count).End(xlUp).Row
        Arr = .Range("A4:T" & Lr1).Value
        For j = 7 To 20
            For i = 2 To UBound(Arr)
                If Arr(i, j) <> "" Then
                    K = K + 1
                    Res(K, 1) = Arr(i, 1): Res(K, 3) = Arr(i, 2)
                    With Application
                        Res(K, 4) = .Index(Arr2, .Match(Arr(i, 4), Rng, False), 1)
                        Res(K, 6) = .Index(Arr2, .Match(Arr(i, 4), Rng, False), 3)
                        Res(K, 9) = .Index(Arr2, .Match(Arr(i, 4), Rng, False), 5)
                        Res(K, 10) = .Index(Arr2, .Match(Arr(i, 4), Rng, False), 6)
                        Res(K, 11) = .Index(Arr2, .Match(Arr(i, 4), Rng, False), 7)
                    End With
                        Res(K, 5) = Arr(1, j)
                        Res(K, 7) = Arr(i, 4)
                        Res(K, 12) = Arr(i, j) / 2
                End If
            Next i
        Next j
    End With
    Sheets("SUMMARY").Range("E2:P10000").ClearContents
    Sheets("SUMMARY").Range("E2").Resize(K, 12).Value = Res
    '__________________________________________________________________________________
    Dim Dic As Object, Key As String, s As Long
    Dim Lrl As Long, Arrl(), Resl(1 To 100, 1 To 12)
    Set Dic = CreateObject("Scripting.dictionary")
    With Sheets("SUMMARY")
        Lrl = .Range("E" & Rows.Count).End(xlUp).Row
        Arrl = .Range("E2:P" & Lrl).Value
        For i = 1 To UBound(Arrl)
            Key = Arrl(i, 1) & "|" & Arrl(i, 3) & "|" & Arrl(i, 5) & "|" & Arrl(i, 7)
            If Not Dic.exists(Key) Then
                s = s + 1
                Dic.Add (Key), s
                For j = 1 To 12
                    Resl(s, j) = Arrl(i, j)
                Next j
            Else
                Resl(Dic.Item(Key), 12) = Resl(Dic.Item(Key), 12) + Arrl(i, 12)
            End If
        Next i
        .Range("E2:P1000").ClearContents
        .Range("E2").Resize(s, 12).Value = Resl
        With Range("E1:P1000")
            .Sort .Cells(1, 1), 1, Header:=xlGuess
        End With
    End With
    Set Dic = Nothing
    MsgBox "Hoàn Thành"
End Sub
Nhấp chuột vào đây để mở rộng...
cảm ơn bạn nhiều, mình sẽ chạy thử với dữ liệu thật
Bài đã được tự động gộp:

bebo021999 đã viết:
Xài đỡ:
Mã: 
Option Explicit
Sub TEST()
Dim lr&, i&, j&, k&, rng, arr(), id As String, s
Dim dic As Object, key
Set dic = CreateObject("Scripting.Dictionary")
With Sheets("1QA")
    lr = .Cells(Rows.Count, "A").End(xlUp).Row
    rng = .Range("A4:T" & lr).Value2
    For i = 2 To UBound(rng)
        For j = 7 To UBound(rng, 2)
            id = rng(i, 1) & "|" & rng(i, 2) & "|" & rng(i, 4) & "|" & rng(1, j)
            If rng(i, j) > 0 Then
                If Not dic.exists(id) Then
                    dic.Add id, rng(i, j) / 2
                Else
                    dic(id) = dic(id) + rng(i, j) / 2
                End If
            End If
        Next
    Next
End With
With Sheets("2DATA")
    lr = .Cells(Rows.Count, "D").End(xlUp).Row
    rng = .Range("A2:G" & lr).Value
End With
ReDim arr(1 To dic.Count, 1 To 12)
For Each key In dic.keys
    s = Split(key, "|")
    k = k + 1
    arr(k, 1) = s(0): arr(k, 3) = s(1): arr(k, 5) = s(3): arr(k, 7) = s(2)
    For i = 1 To UBound(rng)
        If s(2) = rng(i, 4) Then
            arr(k, 4) = rng(i, 1): arr(k, 6) = rng(i, 3): arr(k, 4) = rng(i, 1)
            arr(k, 9) = rng(i, 1): arr(k, 10) = rng(i, 6): arr(k, 11) = rng(i, 7)
            arr(k, 12) = dic(key)
        End If
    Next
Next
With Sheets("SUMMARY")
    .Range("E2:P10000").ClearContents
    .Range("E2").Resize(k, 12).Value = arr
    .Range("A2:P" & k + 1).Sort .Range("E1"), , .Range("I1")
End With
End Sub
Nhấp chuột vào đây để mở rộng...
Cảm ơn anh nhiều, mình sẽ chạy thử với dữ liệu thật
 
Upvote 0
Bienhoa84 đã viết:
Bạn thử code dưới xem được không nhé!
PHP: 
Sub GPE()
    Dim Arr(), Res(1 To 10000, 1 To 12), i As Long, j As Long, K As Long
    Dim Lr1 As Long, Lr2 As Long, Arr2 As Range, Rng As Range
    On Error Resume Next
    With Sheets("2DATA")
        Lr2 = .Range("A" & Rows.Count).End(xlUp).Row
        Set Arr2 = .Range("A1:G" & Lr2)
        Set Rng = .Range("D1:D" & Lr2)
    End With
    With Sheets("1QA")
        Lr1 = .Range("A" & Rows.Count).End(xlUp).Row
        Arr = .Range("A4:T" & Lr1).Value
        For j = 7 To 20
            For i = 2 To UBound(Arr)
                If Arr(i, j) <> "" Then
                    K = K + 1
                    Res(K, 1) = Arr(i, 1): Res(K, 3) = Arr(i, 2)
                    With Application
                        Res(K, 4) = .Index(Arr2, .Match(Arr(i, 4), Rng, False), 1)
                        Res(K, 6) = .Index(Arr2, .Match(Arr(i, 4), Rng, False), 3)
                        Res(K, 9) = .Index(Arr2, .Match(Arr(i, 4), Rng, False), 5)
                        Res(K, 10) = .Index(Arr2, .Match(Arr(i, 4), Rng, False), 6)
                        Res(K, 11) = .Index(Arr2, .Match(Arr(i, 4), Rng, False), 7)
                    End With
                        Res(K, 5) = Arr(1, j)
                        Res(K, 7) = Arr(i, 4)
                        Res(K, 12) = Arr(i, j) / 2
                End If
            Next i
        Next j
    End With
    Sheets("SUMMARY").Range("E2:P10000").ClearContents
    Sheets("SUMMARY").Range("E2").Resize(K, 12).Value = Res
    '__________________________________________________________________________________
    Dim Dic As Object, Key As String, s As Long
    Dim Lrl As Long, Arrl(), Resl(1 To 100, 1 To 12)
    Set Dic = CreateObject("Scripting.dictionary")
    With Sheets("SUMMARY")
        Lrl = .Range("E" & Rows.Count).End(xlUp).Row
        Arrl = .Range("E2:P" & Lrl).Value
        For i = 1 To UBound(Arrl)
            Key = Arrl(i, 1) & "|" & Arrl(i, 3) & "|" & Arrl(i, 5) & "|" & Arrl(i, 7)
            If Not Dic.exists(Key) Then
                s = s + 1
                Dic.Add (Key), s
                For j = 1 To 12
                    Resl(s, j) = Arrl(i, j)
                Next j
            Else
                Resl(Dic.Item(Key), 12) = Resl(Dic.Item(Key), 12) + Arrl(i, 12)
            End If
        Next i
        .Range("E2:P1000").ClearContents
        .Range("E2").Resize(s, 12).Value = Resl
        With Range("E1:P1000")
            .Sort .Cells(1, 1), 1, Header:=xlGuess
        End With
    End With
    Set Dic = Nothing
    MsgBox "Hoàn Thành"
End Sub
Nhấp chuột vào đây để mở rộng...

Bienhoa84 đã viết:
Bạn có thể dùng code này
PHP: 
Sub GPE()
    Dim Arr(), Res(), i As Long, j As Long, k As Long, Ws As Worksheet
    Dim Lr As Long, l As Long, m As Long, Res1(), Res2()
    On Error Resume Next
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    For Each Ws In Worksheets
        If Ws.Name <> "Sheet1" Then
            Ws.Delete
        End If
    Next Ws
    With Sheets("Sheet1")
        Lr = .Range("B" & Rows.Count).End(xlUp).Row
        Arr = .Range("B3:G" & Lr).Value
        ReDim Res(1 To UBound(Arr, 1) * 5, 1 To 2)
        ReDim Res1(1 To UBound(Arr, 1) * 5, 1 To 2)
        ReDim Res2(1 To UBound(Arr, 1) * 5, 1 To 2)
        For i = 2 To UBound(Arr, 1)
            For j = 2 To UBound(Arr, 2)
                If UCase(Arr(i, j)) = "GI" & ChrW(7886) & "I" Then
                    k = k + 1
                    Res(k, 1) = Arr(i, 1)
                    Res(k, 2) = Arr(1, j)
                ElseIf UCase(Arr(i, j)) = "KHﾁ" Then
                    l = l + 1
                    Res1(l, 1) = Arr(i, 1)
                    Res1(l, 2) = Arr(1, j)
                ElseIf UCase(Arr(i, j)) = "TRUNG BﾌNH" Then
                    m = m + 1
                    Res2(m, 1) = Arr(i, 1)
                    Res2(m, 2) = Arr(1, j)
               
                End If
            Next j
        Next i
        If k Then
            Worksheets.Add after:=Sheets(Sheets.Count)
            ActiveSheet.Name = "GI" & ChrW(7886) & "I"
            ActiveSheet.Range("B2").Resize(k, 2).Value = Res
        End If
        If l Then
            Worksheets.Add after:=Sheets(Sheets.Count)
            ActiveSheet.Name = "KHﾁ"
            ActiveSheet.Range("B2").Resize(l, 2).Value = Res1
        End If
        If m Then
            Worksheets.Add after:=Sheets(Sheets.Count)
            ActiveSheet.Name = "TRUNG BﾌNH"
            ActiveSheet.Range("B2").Resize(m, 2).Value = Res2
        End If
    End With
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    MsgBox "Ho瀟 th瀟h"
End Sub
Nhấp chuột vào đây để mở rộng...
Cám ơn bác nhiều đã giúp đỡ các ae gà mới tụi em ah
 
Upvote 0
eagle12 đã viết:
Cám ơn bác nhiều đã giúp đỡ các ae gà mới tụi em ah
Nhấp chuột vào đây để mở rộng...
Bạn lưu ý: ở diễn đàn này không nên viết tắt, dùng từ ngữ tường minh khi trao đổi thì chắc sẽ nhận được sự giúp đỡ từ các thành viên nhiều kinh nghiệm.
—>tôi cũng là thành viên mới như bạn thôi. Trên này có rất nhiều người giỏi và rất nhiệt tình.
 
Upvote 0
Bienhoa84 đã viết:
Bạn lưu ý: ở diễn đàn này không nên viết tắt, dùng từ ngữ tường minh khi trao đổi thì chắc sẽ nhận được sự giúp đỡ từ các thành viên nhiều kinh nghiệm.
—>tôi cũng là thành viên mới như bạn thôi. Trên này có rất nhiều người giỏi và rất nhiệt tình.
Nhấp chuột vào đây để mở rộng...
Vâng ah, em cám ơn bác
 
Upvote 0
eagle12 đã viết:
Vâng ah, em cám ơn bác
Nhấp chuột vào đây để mở rộng...
Ca này khó nha!
Chuyện xưa có người khách đến làm việc tại xã, khi gặp chủ tịch xã, có phàn nàn về việc trẻ em vùng này hay chửi thề quá, ông chủ tịch xã nói:
"Đấy đồng chí xem, dạy bảo mãi mà chúng nó đ. chịu nghe lời!"
 

File đính kèm

  • Capture.JPG
    Capture.JPG
    23.4 KB · Đọc: 11
Upvote 0
bebo021999 đã viết:
Ca này khó nha!
Chuyện xưa có người khách đến làm việc tại xã, khi gặp chủ tịch xã, có phàn nàn về việc trẻ em vùng này hay chửi thề quá, ông chủ tịch xã nói:
"Đấy đồng chí xem, dạy bảo mãi mà chúng nó đ. chịu nghe lời!"
Nhấp chuột vào đây để mở rộng...
Tôi hay gõ kiểu vâng à = vâng ah = vâng ạ, cái này .. giờ chú hiểu chưa .. chưa hiểu thì tôi cũng đ. cần nói với chú
Nghĩ mình cửa trên sao ??
 
Lần chỉnh sửa cuối:
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

D
Nhờ trợ giúp xác định thứ tự của các từ và cụm từ trong 1 chuỗi văn bản. (1 người xem)
Trả lời
2
Đọc
22
Phuocam
Phuocam
G
Xin Code xóa Module.
Trả lời
10
Đọc
360
GCQ
G
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (1 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
16 17 18
Trả lời
348
Đọc
31K
ongke0711
ongke0711
1
Vướng mắc về hàm lấy tên đăng nhập máy tính ạ (1 người xem)
Trả lời
16
Đọc
462
Hoàng Tuấn 868
H
D
  • Đã giải quyết
Quản lý email outlook qua VBA cần giúp đỡ
2
Trả lời
23
Đọc
633
nguyendang95
N
G
Tách công thức ra khỏi chuỗi và tính kết quả?
2
Trả lời
26
Đọc
2K
thuytrangbp28
T
thlpro
Cách lập Công thức tính số ngày nghỉ AL, ưu tiên tính 2024 trước rồi mới tính 2025
Trả lời
8
Đọc
151
bebo021999
B
N
Hàm tăng số đếm theo điều kiện
Trả lời
4
Đọc
72
bebo021999
B
M
Xin giúp đỡ làm công thức điều kiện
    • Yêu thích
Trả lời
3
Đọc
162
tayGa
T
N
Một ví dụ về XLL add-in: Tương tác với Google Gemini dưới dạng công thức bảng tính
    • Thích
Trả lời
2
Đọc
230
nguyendang95
N
K
  • Question Question
nhờ ace giúp đỡ tự động filter và In hàng loạt từng mục trong piviot table
Trả lời
5
Đọc
187
DeTong
D
vsitcnh
Hỗ trợ công thức tính điểm dựa theo điều kiện.
Trả lời
17
Đọc
290
tle2003
T
Trungvt3
Công thức trả về định dạng không như mong muốn và viết phân số trong 1 ô.
Trả lời
5
Đọc
122
VetMini
V
N
Khắc phục lỗi "The picture is too large and will be truncated"
Trả lời
10
Đọc
5K
tle2003
T
C
  • Question Question
Xin hỏi Cách viết chú thích trong vba hiển thị tiếng việt
Trả lời
4
Đọc
198
ongke0711
ongke0711
B
Xin giải pháp chống sửa, xóa dữ liệu đã nhập vào từ ngày hôm trước.
    • Thích
2
Trả lời
28
Đọc
7K
Hoàng Tuấn 868
H
00029591
Cần hỗ trợ công thức tổng hợp dữ liệu không cần cột phụ Vlookup
Trả lời
3
Đọc
179
tle2003
T
S
Mở 2 cửa sổ riêng biệt
2
Trả lời
30
Đọc
23K
sakuraluu
S
F
Nhập dấu . (chấm) ở bàn phím phụ không tự chuyển thành dấu , (phẩy)
Trả lời
16
Đọc
57K
tubaodn21
tubaodn21
PhanTuHuong
Sách Lập trình VBA trong AutoCAD đã có mặt
    • Thích
    • Yêu thích
2
Trả lời
21
Đọc
1K
PhanTuHuong
PhanTuHuong
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
TALK SHOW: CÙNG NHẢY LAM BA ĐA VỚI HÀM LAMBDA (λ) EXCEL 365
Back
Top Bottom