Đổi Ngày (dd/mm/yyyy) Thành Ngày - Tháng - Năm - Tuần - Thứ!! (8 người xem)

  • Thread starter Thread starter LamNA
  • Ngày gửi Ngày gửi
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)
LamNA đã viết:
Dạ em chạy code rất tốt, em cám ơn anh đã giúp đỡ
Anh có thể cho em hỏi thêm nếu em muốn tính thêm cột thứ theo Format: CN-T2-T3.....T7, thì mình thêm đoạn code như thế nào ạ
Em cám ơn
Nhấp chuột vào đây để mở rộng...

Chào anh
Em có 2 code chung 1 sheet nếu bỏ code trên thì chạy bình thường còn dùng chung 2 code thì nó sẽ báo lỗi "Private Sub Worksheet_Change1(ByVal Target As Range)"
Chắc do em không biết cách khai báo, nhờ anh hỗ trợ em cách viết nào là đúng để chạy được 2 code chung 1 sheet nhe
Em cám ơn
Mã: 
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim rTarget As Range, aTarget, i As Long, n As Long
  Dim Arr1(), Arr2(), Arr3(), Arr4(), Arr5(), Arr6(), Arr7(), tmp
  On Error Resume Next
  If Dic Is Nothing Then Vlookup_DATA_SP
  If Not Intersect(Range("D851:D600000"), Target) Is Nothing Then
    Set rTarget = Intersect(Range("D851:D600000"), Target)
    If IsArray(rTarget.Value) Then
      aTarget = rTarget.Value
    Else
      ReDim aTarget(1 To 1, 1 To 1)
      aTarget(1, 1) = rTarget.Value
    End If
    ReDim Arr1(1 To UBound(aTarget, 1), 1 To 1)
    ReDim Arr2(1 To UBound(aTarget, 1), 1 To 1)
    ReDim Arr5(1 To UBound(aTarget, 1), 1 To 1)

    For i = 1 To UBound(aTarget, 1)
      If aTarget(i, 1) <> "" Then
        tmp = aTarget(i, 1)
        If Dic.Exists(tmp) Then
          Arr1(i, 1) = aResult(Dic.Item(tmp), 3) 'NGANH HANG
          Arr2(i, 1) = aResult(Dic.Item(tmp), 4) 'HANG
          Arr5(i, 1) = aResult(Dic.Item(tmp), 5) 'LOAI HANG


        End If
      End If
    Next
    rTarget.Offset(, 36).Resize(, 1).Value = Arr1 'Vi tri tham chieu NGANH HANG
    rTarget.Offset(, 38).Resize(, 1).Value = Arr2 'Vi tri tham chieu HANG
    rTarget.Offset(, 37).Resize(, 1).Value = Arr5 'Vi tri tham chieu LOAI HANG

  End If
End Sub


Private Sub Worksheet_Change1(ByVal Target As Range)
Dim rng As Range, change As Range
 
    Set change = Intersect(Target, Range("M851:M600000"))
    If Not change Is Nothing Then
        Application.EnableEvents = False
        Application.ScreenUpdating = False
        For Each rng In change
            With rng
                .Offset(0, 34).Value = Format(rng, "d")
                .Offset(0, 35).Value = Format(rng, "m")
                .Offset(0, 36).Value = Format(rng, "yyyy")
                .Offset(0, 32).Value = Format(rng, "ww")
            End With
        Next rng
        Application.ScreenUpdating = True
        Application.EnableEvents = True
    End If
End Sub
 
batman1 đã viết:
Không đơn giản thế đâu.
1. Theo lôgíc của tôi thì khi nhập ngày tháng ở A thì trong 5 cột tiếp theo sẽ có kết quả. Vậy khi xóa A thì 5 cột kia cũng phải rỗng. Nhưng trong code của bạn khi xóa A thì dDate = 0, như vậy trong 5 cột vẫn có dữ liệu - của những năm tháng xa xôi.

2. Người ta có

Người ta không nói kéo xuống bao nhiêu nên để đề phòng kéo hàng ngàn dòng thì tôi có vd. Application.ScreenUpdating = False / True.

Khi người ta kéo như thế thì Target là nhiều cell nên chắc chắn có lỗi ở dòng
Mã: 
.Offset(0, 1).Resize(1, 5) = ConvertDate2ABC(CLng(Val(Target.Value2)))
Target.Value2 là cả một mảng giá trị nên CLng(Val(Target.Value2)) sẽ có lỗi.
Nhấp chuột vào đây để mở rộng...
(1) thì thôi ạ.
(2) Em sửa lại: .Offset(0, 1).Resize(1, 5) = ConvertDate2ABC(CLng(Val(.Value2))) được không anh?

Chúc anh tối vui!
 
Đây không phải procedure bình thường để bạn khai báo tên bất kỳ.
Private Sub Worksheet_Change() có nghĩa là đây là procedure phục vụ sự kiện "thay đổi" trên sheet, và nó sẽ được gọi khi có sự thay đổi nào đó trên sheet.

Bạn click để mở combobox ở bên phải thì thấy có dòng "Change". Tức đối tượng sheet có event procedure với tên là Change. Làm gì có event Change1? Nếu bạn có Private Sub Worksheet_Change1() thì lúc đó nó được coi là procedure bình thường có tên là Worksheet_Change1. Nó không phải là event procedure. Thế thôi. Procedure ấy sẽ vô dụng vì không được gọi khi có sự thay đổi trên sheet.

Nếu cần thì gộp 2 thành 1. Tôi chỉ gộp cho bạn thôi chứ không sửa, không làm tối ưu code đầu. Bạn tự làm.
Mã: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rTarget As Range, aTarget, i As Long, n As Long
Dim Arr1(), Arr2(), Arr3(), Arr4(), Arr5(), Arr6(), Arr7(), tmp
Dim rng As Range, change As Range
    On Error Resume Next
    If dic Is Nothing Then Vlookup_DATA_SP
    If Not Intersect(Range("D851:D600000"), Target) Is Nothing Then
        Set rTarget = Intersect(Range("D851:D600000"), Target)
        If IsArray(rTarget.Value) Then
            aTarget = rTarget.Value
        Else
            ReDim aTarget(1 To 1, 1 To 1)
            aTarget(1, 1) = rTarget.Value
        End If
        ReDim Arr1(1 To UBound(aTarget, 1), 1 To 1)
        ReDim Arr2(1 To UBound(aTarget, 1), 1 To 1)
        ReDim Arr5(1 To UBound(aTarget, 1), 1 To 1)
    
        For i = 1 To UBound(aTarget, 1)
            If aTarget(i, 1) <> "" Then
                tmp = aTarget(i, 1)
                If dic.Exists(tmp) Then
                    Arr1(i, 1) = aResult(dic.Item(tmp), 3) 'NGANH HANG
                    Arr2(i, 1) = aResult(dic.Item(tmp), 4) 'HANG
                    Arr5(i, 1) = aResult(dic.Item(tmp), 5) 'LOAI HANG
                End If
            End If
        Next
        rTarget.Offset(, 36).Resize(, 1).Value = Arr1 'Vi tri tham chieu NGANH HANG
        rTarget.Offset(, 38).Resize(, 1).Value = Arr2 'Vi tri tham chieu HANG
        rTarget.Offset(, 37).Resize(, 1).Value = Arr5 'Vi tri tham chieu LOAI HANG
    Else
        Set change = Intersect(Target, Range("M851:M600000"))
        If Not change Is Nothing Then
            Application.EnableEvents = False
            Application.ScreenUpdating = False
            For Each rng In change
                With rng
                    .Offset(0, 34).Value = Format(rng, "d")
                    .Offset(0, 35).Value = Format(rng, "m")
                    .Offset(0, 36).Value = Format(rng, "yyyy")
                    .Offset(0, 32).Value = Format(rng, "ww")
                End With
            Next rng
            Application.ScreenUpdating = True
            Application.EnableEvents = True
        End If
    End If
End Sub
 
befaint đã viết:
(2) Em sửa lại: .Offset(0, 1).Resize(1, 5) = ConvertDate2ABC(CLng(Val(.Value2))) được không anh?
Nhấp chuột vào đây để mở rộng...
Tôi không bao giờ thích những câu hỏi như thế này. Khi đã biết cần phải xét những trường hợp như thế nào thì mỗi người tự kiểm tra thôi chứ sao lại phải hỏi? :D
 
batman1 đã viết:
Đây không phải procedure bình thường để bạn khai báo tên bất kỳ.
Private Sub Worksheet_Change() có nghĩa là đây là procedure phục vụ sự kiện "thay đổi" trên sheet, và nó sẽ được gọi khi có sự thay đổi nào đó trên sheet.

Bạn click để mở combobox ở bên phải thì thấy có dòng "Change". Tức đối tượng sheet có event procedure với tên là Change. Làm gì có event Change1? Nếu bạn có Private Sub Worksheet_Change1() thì lúc đó nó được coi là procedure bình thường có tên là Worksheet_Change1. Nó không phải là event procedure. Thế thôi. Procedure ấy sẽ vô dụng vì không được gọi khi có sự thay đổi trên sheet.

Nếu cần thì gộp 2 thành 1. Tôi chỉ gộp cho bạn thôi chứ không sửa, không làm tối ưu code đầu. Bạn tự làm.
Mã: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rTarget As Range, aTarget, i As Long, n As Long
Dim Arr1(), Arr2(), Arr3(), Arr4(), Arr5(), Arr6(), Arr7(), tmp
Dim rng As Range, change As Range
    On Error Resume Next
    If dic Is Nothing Then Vlookup_DATA_SP
    If Not Intersect(Range("D851:D600000"), Target) Is Nothing Then
        Set rTarget = Intersect(Range("D851:D600000"), Target)
        If IsArray(rTarget.Value) Then
            aTarget = rTarget.Value
        Else
            ReDim aTarget(1 To 1, 1 To 1)
            aTarget(1, 1) = rTarget.Value
        End If
        ReDim Arr1(1 To UBound(aTarget, 1), 1 To 1)
        ReDim Arr2(1 To UBound(aTarget, 1), 1 To 1)
        ReDim Arr5(1 To UBound(aTarget, 1), 1 To 1)
   
        For i = 1 To UBound(aTarget, 1)
            If aTarget(i, 1) <> "" Then
                tmp = aTarget(i, 1)
                If dic.Exists(tmp) Then
                    Arr1(i, 1) = aResult(dic.Item(tmp), 3) 'NGANH HANG
                    Arr2(i, 1) = aResult(dic.Item(tmp), 4) 'HANG
                    Arr5(i, 1) = aResult(dic.Item(tmp), 5) 'LOAI HANG
                End If
            End If
        Next
        rTarget.Offset(, 36).Resize(, 1).Value = Arr1 'Vi tri tham chieu NGANH HANG
        rTarget.Offset(, 38).Resize(, 1).Value = Arr2 'Vi tri tham chieu HANG
        rTarget.Offset(, 37).Resize(, 1).Value = Arr5 'Vi tri tham chieu LOAI HANG
    Else
        Set change = Intersect(Target, Range("M851:M600000"))
        If Not change Is Nothing Then
            Application.EnableEvents = False
            Application.ScreenUpdating = False
            For Each rng In change
                With rng
                    .Offset(0, 34).Value = Format(rng, "d")
                    .Offset(0, 35).Value = Format(rng, "m")
                    .Offset(0, 36).Value = Format(rng, "yyyy")
                    .Offset(0, 32).Value = Format(rng, "ww")
                End With
            Next rng
            Application.ScreenUpdating = True
            Application.EnableEvents = True
        End If
    End If
End Sub
Nhấp chuột vào đây để mở rộng...

Chào anh!
có nghĩa nếu ta cần viết nối thêm 1 code nào đó trong 1 sheet ta chỉ cần viết "Else" đúng không anh?
Theo em hiều như code anh viết cho em
Em cám ơn
 
Thực ra cũng tùy. Thực ra có thể viết không có ELSE
Mã: 
If Not Intersect(Range("D851:D600000"), Target) Is Nothing Then
...
End If
Set change = Intersect(Target, Range("M851:M600000"))
If Not change Is Nothing Then
    ...
End If
Nếu bạn thay đổi chỉ cột D hoặc M thì code trước và code này như nhau. Nhưng nếu bạn dán 1 lần vào cả 2 cột D và M thì có sự khác nhau. Code trước chỉ thực hiện phần trước ELSE. Code sau thì thực hiện cả cho sự thay đổi trong cột D và cả cho sự thay đổi trong cột M. Do bạn chỉ tung code lên mà không giải thích gì thêm nên tôi gộp với ELSE. Nhưng phải ý thức được là có trường hợp, dù là lý thuyết, khi bạn dán vào đồng thời 2 cột D và M. Nếu lúc đó bạn muốn xử lý cả 2 hậu quả thì phải dùng code không có ELSE ở trên.
 
batman1 đã viết:
Thực ra cũng tùy. Thực ra có thể viết không có ELSE
Mã: 
If Not Intersect(Range("D851:D600000"), Target) Is Nothing Then
...
End If
Set change = Intersect(Target, Range("M851:M600000"))
If Not change Is Nothing Then
    ...
End If
Nếu bạn thay đổi chỉ cột D hoặc M thì code trước và code này như nhau. Nhưng nếu bạn dán 1 lần vào cả 2 cột D và M thì có sự khác nhau. Code trước chỉ thực hiện phần trước ELSE. Code sau thì thực hiện cả cho sự thay đổi trong cột D và cả cho sự thay đổi trong cột M. Do bạn chỉ tung code lên mà không giải thích gì thêm nên tôi gộp với ELSE. Nhưng phải ý thức được là có trường hợp, dù là lý thuyết, khi bạn dán vào đồng thời 2 cột D và M. Nếu lúc đó bạn muốn xử lý cả 2 hậu quả thì phải dùng code không có ELSE ở trên.
Nhấp chuột vào đây để mở rộng...

Dạ anh!
Các dữ liệu cột D và M em đều muốn thay đổi mỗi khi thay số liệu, hiện tại em test thôi code anh hướng dẫn đang chạy rất hoàn hảo, giảm đi dung lượng đáng kể thay vì dùng hàm.
Sẵn tiện anh hỗ trợ em cách thay hàm if và giá như file đính kèm, mục đích dùng code để tối ưu hóa báo cáo trong kinh doanh của em
Nó sẽ hoàn hảo khi giải quyết được tất cả như trong file
Em cám ơn
 

File đính kèm

LamNA đã viết:
Dạ anh!
Các dữ liệu cột D và M em đều muốn thay đổi mỗi khi thay số liệu, hiện tại em test thôi code anh hướng dẫn đang chạy rất hoàn hảo, giảm đi dung lượng đáng kể thay vì dùng hàm.
Nhấp chuột vào đây để mở rộng...
Tôi biết là bạn xử lý sự thay đổi ở cột D, M. Ý tôi nói là có sự khác biệt khi chỉ thay đổi D hoặc M, và lúc khác lại D hoặc M và trường hợp khi bạn đồng thời thay đổi cả D và M.
Sẵn tiện anh hỗ trợ em cách thay hàm if và giá như file đính kèm, mục đích dùng code để tối ưu hóa báo cáo trong kinh doanh của em
Nó sẽ hoàn hảo khi giải quyết được tất cả như trong file
Nhấp chuột vào đây để mở rộng...
Hiện tại tôi đang phải dịch một bản tài liệu sang tiếng Việt. Chưa biết khi nào xong.

Mà theo nội qui thì hình như mỗi chủ đề chỉ là một vấn đề. Có thể bạn phải lập chủ đề khác.
 
Thế trong cột Y có công thức hay dữ liệu nhập bằng tay, bằng máy?
Nếu không phải công thức thì:
1. Xóa toàn bộ công thức trong cột AQ.
2. Trong Worksheet_Change thêm đoạn
Mã: 
Set change = Intersect(Target, Range("Y3:Y600000"))
If Not change Is Nothing Then
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    For Each rng In change
        If Len(rng.Value) Then
            Select Case rng.Value / 10 ^ 6
                Case Is <= 1: rng.Offset(0, 18).Value = "<1M"
                Case Is <= 2: rng.Offset(0, 18).Value = "1M-2M"
                Case Is <= 4: rng.Offset(0, 18).Value = "2M-4M"
                Case Is <= 6: rng.Offset(0, 18).Value = "4M-6M"
                Case Is <= 8: rng.Offset(0, 18).Value = "6M-8M"
                Case Is <= 10: rng.Offset(0, 18).Value = "8M-10M"
                Case Is <= 12: rng.Offset(0, 18).Value = "10M-12M"
                Case Is <= 14: rng.Offset(0, 18).Value = "12M-14M"
                Case Is <= 16: rng.Offset(0, 18).Value = "14M-16M"
                Case Is <= 18: rng.Offset(0, 18).Value = "16M-18M"
                Case Is <= 20: rng.Offset(0, 18).Value = "18M-20M"
                Case Else: rng.Offset(0, 18).Value = "Tren 20M"
            End Select
        Else
            rng.Offset(0, 18).Value = Empty
        End If
    Next rng
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End If
Cách thêm thì tôi đã giải thích rồi, bạn tự chọn.

Có thể thay đoạn
Mã: 
Select Case rng.Value / 10 ^ 6
...
End Select
bằng Application.VLookup. Bạn tự đọc, tự nghiên cứu.

Vì code vào giữa chừng cuộc chơi nên nó không thể phản ứng với những dữ liệu đã có trong cột Y - sự kiện Change đã sảy ra hôm qua, tuần trước. Vì thế nếu đã có dữ liệu trong cột Y thì làm 1 lần các thao tác: Chọn toàn bộ dữ liệu cột Y -> nhấn Ctrl + C -> nhấn Ctrl + V (mục đích để tạo ra sự kiện Change cho những dữ liệu đã có)

Xóa dữ liệu cột Y thì cột AQ sẽ rỗng.
 
batman1 đã viết:
Thế trong cột Y có công thức hay dữ liệu nhập bằng tay, bằng máy?
Nếu không phải công thức thì:
1. Xóa toàn bộ công thức trong cột AQ.
2. Trong Worksheet_Change thêm đoạn
Mã: 
Set change = Intersect(Target, Range("Y3:Y600000"))
If Not change Is Nothing Then
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    For Each rng In change
        If Len(rng.Value) Then
            Select Case rng.Value / 10 ^ 6
                Case Is <= 1: rng.Offset(0, 18).Value = "<1M"
                Case Is <= 2: rng.Offset(0, 18).Value = "1M-2M"
                Case Is <= 4: rng.Offset(0, 18).Value = "2M-4M"
                Case Is <= 6: rng.Offset(0, 18).Value = "4M-6M"
                Case Is <= 8: rng.Offset(0, 18).Value = "6M-8M"
                Case Is <= 10: rng.Offset(0, 18).Value = "8M-10M"
                Case Is <= 12: rng.Offset(0, 18).Value = "10M-12M"
                Case Is <= 14: rng.Offset(0, 18).Value = "12M-14M"
                Case Is <= 16: rng.Offset(0, 18).Value = "14M-16M"
                Case Is <= 18: rng.Offset(0, 18).Value = "16M-18M"
                Case Is <= 20: rng.Offset(0, 18).Value = "18M-20M"
                Case Else: rng.Offset(0, 18).Value = "Tren 20M"
            End Select
        Else
            rng.Offset(0, 18).Value = Empty
        End If
    Next rng
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End If
Cách thêm thì tôi đã giải thích rồi, bạn tự chọn.

Có thể thay đoạn
Mã: 
Select Case rng.Value / 10 ^ 6
...
End Select
bằng Application.VLookup. Bạn tự đọc, tự nghiên cứu.

Vì code vào giữa chừng cuộc chơi nên nó không thể phản ứng với những dữ liệu đã có trong cột Y - sự kiện Change đã sảy ra hôm qua, tuần trước. Vì thế nếu đã có dữ liệu trong cột Y thì làm 1 lần các thao tác: Chọn toàn bộ dữ liệu cột Y -> nhấn Ctrl + C -> nhấn Ctrl + V (mục đích để tạo ra sự kiện Change cho những dữ liệu đã có)

Xóa dữ liệu cột Y thì cột AQ sẽ rỗng.
Nhấp chuột vào đây để mở rộng...

Em nối code bằng "Else" báo lỗi, em đã thử các cách thay thế như anh hướng dẫn đều không được. anh có thể giải thích thêm em đang thao tác sai ở chỗ nào không anh?
Em cám ơn
 
batman1 đã viết:
Thế trong cột Y có công thức hay dữ liệu nhập bằng tay, bằng máy?
Nếu không phải công thức thì:
1. Xóa toàn bộ công thức trong cột AQ.
2. Trong Worksheet_Change thêm đoạn
Mã: 
Set change = Intersect(Target, Range("Y3:Y600000"))
If Not change Is Nothing Then
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    For Each rng In change
        If Len(rng.Value) Then
            Select Case rng.Value / 10 ^ 6
                Case Is <= 1: rng.Offset(0, 18).Value = "<1M"
                Case Is <= 2: rng.Offset(0, 18).Value = "1M-2M"
                Case Is <= 4: rng.Offset(0, 18).Value = "2M-4M"
                Case Is <= 6: rng.Offset(0, 18).Value = "4M-6M"
                Case Is <= 8: rng.Offset(0, 18).Value = "6M-8M"
                Case Is <= 10: rng.Offset(0, 18).Value = "8M-10M"
                Case Is <= 12: rng.Offset(0, 18).Value = "10M-12M"
                Case Is <= 14: rng.Offset(0, 18).Value = "12M-14M"
                Case Is <= 16: rng.Offset(0, 18).Value = "14M-16M"
                Case Is <= 18: rng.Offset(0, 18).Value = "16M-18M"
                Case Is <= 20: rng.Offset(0, 18).Value = "18M-20M"
                Case Else: rng.Offset(0, 18).Value = "Tren 20M"
            End Select
        Else
            rng.Offset(0, 18).Value = Empty
        End If
    Next rng
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End If
Cách thêm thì tôi đã giải thích rồi, bạn tự chọn.

Có thể thay đoạn
Mã: 
Select Case rng.Value / 10 ^ 6
...
End Select
bằng Application.VLookup. Bạn tự đọc, tự nghiên cứu.

Vì code vào giữa chừng cuộc chơi nên nó không thể phản ứng với những dữ liệu đã có trong cột Y - sự kiện Change đã sảy ra hôm qua, tuần trước. Vì thế nếu đã có dữ liệu trong cột Y thì làm 1 lần các thao tác: Chọn toàn bộ dữ liệu cột Y -> nhấn Ctrl + C -> nhấn Ctrl + V (mục đích để tạo ra sự kiện Change cho những dữ liệu đã có)

Xóa dữ liệu cột Y thì cột AQ sẽ rỗng.
Nhấp chuột vào đây để mở rộng...

Cuối cùng em cũng mò ra được và chạy 3 code hàn hảo em cám ơn anh rất nhiều
 
batman1 đã viết:
Thế trong cột Y có công thức hay dữ liệu nhập bằng tay, bằng máy?
Nếu không phải công thức thì:
1. Xóa toàn bộ công thức trong cột AQ.
2. Trong Worksheet_Change thêm đoạn
Mã: 
Set change = Intersect(Target, Range("Y3:Y600000"))
If Not change Is Nothing Then
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    For Each rng In change
        If Len(rng.Value) Then
            Select Case rng.Value / 10 ^ 6
                Case Is <= 1: rng.Offset(0, 18).Value = "<1M"
                Case Is <= 2: rng.Offset(0, 18).Value = "1M-2M"
                Case Is <= 4: rng.Offset(0, 18).Value = "2M-4M"
                Case Is <= 6: rng.Offset(0, 18).Value = "4M-6M"
                Case Is <= 8: rng.Offset(0, 18).Value = "6M-8M"
                Case Is <= 10: rng.Offset(0, 18).Value = "8M-10M"
                Case Is <= 12: rng.Offset(0, 18).Value = "10M-12M"
                Case Is <= 14: rng.Offset(0, 18).Value = "12M-14M"
                Case Is <= 16: rng.Offset(0, 18).Value = "14M-16M"
                Case Is <= 18: rng.Offset(0, 18).Value = "16M-18M"
                Case Is <= 20: rng.Offset(0, 18).Value = "18M-20M"
                Case Else: rng.Offset(0, 18).Value = "Tren 20M"
            End Select
        Else
            rng.Offset(0, 18).Value = Empty
        End If
    Next rng
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End If
Cách thêm thì tôi đã giải thích rồi, bạn tự chọn.

Có thể thay đoạn
Mã: 
Select Case rng.Value / 10 ^ 6
...
End Select
bằng Application.VLookup. Bạn tự đọc, tự nghiên cứu.

Vì code vào giữa chừng cuộc chơi nên nó không thể phản ứng với những dữ liệu đã có trong cột Y - sự kiện Change đã sảy ra hôm qua, tuần trước. Vì thế nếu đã có dữ liệu trong cột Y thì làm 1 lần các thao tác: Chọn toàn bộ dữ liệu cột Y -> nhấn Ctrl + C -> nhấn Ctrl + V (mục đích để tạo ra sự kiện Change cho những dữ liệu đã có)

Xóa dữ liệu cột Y thì cột AQ sẽ rỗng.
Nhấp chuột vào đây để mở rộng...

Về phần này anh nói rất đúng, nếu em đổ dữ liệu copy vào thì nó chỉ chạy code đầu tiền, riêng code ngày tháng năm tuần và phân khúc giá không chạy, mà phải copy và dán dòng tương úng thì nó mới chạy.
Mình có thể tối ưu hóa hoàn toàn tự động bằng cách khác không anh?

Mã: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rTarget As Range, aTarget, i As Long, n As Long
Dim Arr1(), Arr2(), Arr3(), Arr4(), Arr5(), Arr6(), Arr7(), tmp
Dim rng As Range, change As Range

    On Error Resume Next
    If Dic Is Nothing Then Vlookup_DATA_SP
    If Not Intersect(Range("D851:D600000"), Target) Is Nothing Then
        Set rTarget = Intersect(Range("D851:D600000"), Target)
        If IsArray(rTarget.Value) Then
            aTarget = rTarget.Value
        Else
            ReDim aTarget(1 To 1, 1 To 1)
            aTarget(1, 1) = rTarget.Value
        End If
        ReDim Arr1(1 To UBound(aTarget, 1), 1 To 1)
        ReDim Arr2(1 To UBound(aTarget, 1), 1 To 1)
        ReDim Arr5(1 To UBound(aTarget, 1), 1 To 1)
    
        For i = 1 To UBound(aTarget, 1)
            If aTarget(i, 1) <> "" Then
                tmp = aTarget(i, 1)
                If Dic.Exists(tmp) Then
                    Arr1(i, 1) = aResult(Dic.Item(tmp), 3) 'NGANH HANG
                    Arr2(i, 1) = aResult(Dic.Item(tmp), 4) 'HANG
                    Arr5(i, 1) = aResult(Dic.Item(tmp), 5) 'LOAI HANG
                End If
            End If
        Next
        rTarget.Offset(, 36).Resize(, 1).Value = Arr1 'Vi tri tham chieu NGANH HANG
        rTarget.Offset(, 38).Resize(, 1).Value = Arr2 'Vi tri tham chieu HANG
        rTarget.Offset(, 37).Resize(, 1).Value = Arr5 'Vi tri tham chieu LOAI HANG
    Else
        Set change = Intersect(Target, Range("M851:M600000")) ' Ngay Thang Nam, Tuan
        If Not change Is Nothing Then
            Application.EnableEvents = False
            Application.ScreenUpdating = False
            For Each rng In change
                With rng
                    .Offset(0, 33).Value = Format(rng, "d")
                    .Offset(0, 34).Value = Format(rng, "m")
                    .Offset(0, 35).Value = Format(rng, "yyyy")
                    .Offset(0, 31).Value = Format(rng, "ww")
                End With
            Next rng
            Application.ScreenUpdating = True
            Application.EnableEvents = True
            
        Else 'Phan Khuc Gia
    Set change = Intersect(Target, Range("AC851:AC600000"))
If Not change Is Nothing Then
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    
      For Each rng In change
        If Len(rng.Value) Then
    
            Select Case rng.Value / 10 ^ 6
                Case Is <= 1: rng.Offset(0, 14).Value = "<1M"
                Case Is <= 2: rng.Offset(0, 14).Value = "1M-2M"
                Case Is <= 4: rng.Offset(0, 14).Value = "2M-4M"
                Case Is <= 6: rng.Offset(0, 14).Value = "4M-6M"
                Case Is <= 8: rng.Offset(0, 14).Value = "6M-8M"
                Case Is <= 10: rng.Offset(0, 14).Value = "8M-10M"
                Case Is <= 12: rng.Offset(0, 14).Value = "10M-12M"
                Case Is <= 14: rng.Offset(0, 14).Value = "12M-14M"
                Case Is <= 16: rng.Offset(0, 14).Value = "14M-16M"
                Case Is <= 18: rng.Offset(0, 14).Value = "16M-18M"
                Case Is <= 20: rng.Offset(0, 14).Value = "18M-20M"
                Case Else: rng.Offset(0, 14).Value = "Tren 20M"
           End Select
        Else
            rng.Offset(0, 14).Value = Empty
        End If
    Next rng
    Application.EnableEvents = True
    Application.ScreenUpdating = True

    End If
    End If
    End If
    End Sub
 
LamNA đã viết:
Về phần này anh nói rất đúng, nếu em đổ dữ liệu copy vào thì nó chỉ chạy code đầu tiền, riêng code ngày tháng năm tuần và phân khúc giá không chạy, mà phải copy và dán dòng tương úng thì nó mới chạy.
Nhấp chuột vào đây để mở rộng...
Tôi đã nói với bạn là tùy vào trường hợp mà dùng. Có ai bắt dùng ELSE đâu?
Mà bạn hãy mô tả cái "đổ dữ liệu copy vào". Đổ thế nào, bằng cái gì, từ đâu tới đâu.
------
Mà nên giải thích kỹ cách hoạt động của tập tin. Trong Change bạn dùng dic và aResult. Chả biết dic được tạo ở đâu, khi nào. aResult mặt mũi thế nào. Vlookup_DATA_SP nằm ở đâu, làm những gì, việc làm có thay đổi gì trên sheet không. Vì lúc đó code đã tạo ra sự kiện Change ...
Không phải ai cũng thích mất thời gian, thích sửa đi sửa lại. Viết từng khúc riêng biệt để rồi chắp vá lại với nhau.
 
Lần chỉnh sửa cuối:
batman1 đã viết:
Tôi đã nói với bạn là tùy vào trường hợp mà dùng. Có ai bắt dùng ELSE đâu?
Mà bạn hãy mô tả cái "đổ dữ liệu copy vào". Đổ thế nào, bằng cái gì, từ đâu tới đâu.
------
Mà nên giải thích kỹ cách hoạt động của tập tin. Trong Change bạn dùng dic và aResult. Chả biết dic được tạo ở đâu, khi nào. aResult mặt mũi thế nào. Vlookup_DATA_SP nằm ở đâu, làm những gì, việc làm có thay đổi gì trên sheet không. Vì lúc đó code đã tạo ra sự kiện Change ...
Không phải ai cũng thích mất thời gian, thích sửa đi sửa lại. Viết từng khúc riêng biệt để rồi chắp vá lại với nhau.
Nhấp chuột vào đây để mở rộng...

Dạ em gửi file để anh dễ hiểu từng code như trên, anh xem giúp em nhe
Em cám ơn
 

File đính kèm

LamNA đã viết:
Dạ em gửi file để anh dễ hiểu từng code như trên, anh xem giúp em nhe
Em cám ơn
Nhấp chuột vào đây để mở rộng...
Tôi có viết
Mà bạn hãy mô tả cái "đổ dữ liệu copy vào". Đổ thế nào, bằng cái gì, từ đâu tới đâu.
Nhấp chuột vào đây để mở rộng...
Nhưng bạn không trả lời.

Thôi, tôi sửa thế này. Bạn tự kiểm tra.
Mã: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rTarget As Range, aTarget, i As Long, n As Long
Dim Arr1(), Arr2(), Arr3(), Arr4(), Arr5(), Arr6(), Arr7(), tmp
Dim rng As Range, change As Range

    On Error Resume Next
    If Dic Is Nothing Then Vlookup_DATA_SP
    If Not Intersect(Range("D851:D600000"), Target) Is Nothing Then
        Set rTarget = Intersect(Range("D851:D600000"), Target)
        If IsArray(rTarget.Value) Then
            aTarget = rTarget.Value
        Else
            ReDim aTarget(1 To 1, 1 To 1)
            aTarget(1, 1) = rTarget.Value
        End If
        ReDim Arr1(1 To UBound(aTarget, 1), 1 To 1)
        ReDim Arr2(1 To UBound(aTarget, 1), 1 To 1)
        ReDim Arr5(1 To UBound(aTarget, 1), 1 To 1)
    
        For i = 1 To UBound(aTarget, 1)
            If aTarget(i, 1) <> "" Then
                tmp = aTarget(i, 1)
                If Dic.Exists(tmp) Then
                    Arr1(i, 1) = aResult(Dic.Item(tmp), 3) 'NGANH HANG
                    Arr2(i, 1) = aResult(Dic.Item(tmp), 4) 'HANG
                    Arr5(i, 1) = aResult(Dic.Item(tmp), 5) 'LOAI HANG
                End If
            End If
        Next
        rTarget.Offset(, 36).Resize(, 1).Value = Arr1 'Vi tri tham chieu NGANH HANG
        rTarget.Offset(, 38).Resize(, 1).Value = Arr2 'Vi tri tham chieu HANG
        rTarget.Offset(, 37).Resize(, 1).Value = Arr5 'Vi tri tham chieu LOAI HANG
    End If
'    ngay thang
    Set change = Intersect(Target, Range("M851:M600000")) ' Ngay Thang Nam, Tuan
    If Not change Is Nothing Then
        Application.EnableEvents = False
        Application.ScreenUpdating = False
        For Each rng In change
            With rng
                .Offset(0, 33).Value = Format(rng, "d")
                .Offset(0, 34).Value = Format(rng, "m")
                .Offset(0, 35).Value = Format(rng, "yyyy")
                .Offset(0, 31).Value = Format(rng, "ww")
            End With
        Next rng
        Application.ScreenUpdating = True
        Application.EnableEvents = True
    End If
'   Phan Khuc Gia
    Set change = Intersect(Target, Range("AC851:AC600000"))
    If Not change Is Nothing Then
        Application.EnableEvents = False
        Application.ScreenUpdating = False
        For Each rng In change
            If Len(rng.Value) Then
                Select Case rng.Value / 10 ^ 6
                    Case Is <= 1: rng.Offset(0, 14).Value = "<1M"
                    Case Is <= 2: rng.Offset(0, 14).Value = "1M-2M"
                    Case Is <= 4: rng.Offset(0, 14).Value = "2M-4M"
                    Case Is <= 6: rng.Offset(0, 14).Value = "4M-6M"
                    Case Is <= 8: rng.Offset(0, 14).Value = "6M-8M"
                    Case Is <= 10: rng.Offset(0, 14).Value = "8M-10M"
                    Case Is <= 12: rng.Offset(0, 14).Value = "10M-12M"
                    Case Is <= 14: rng.Offset(0, 14).Value = "12M-14M"
                    Case Is <= 16: rng.Offset(0, 14).Value = "14M-16M"
                    Case Is <= 18: rng.Offset(0, 14).Value = "16M-18M"
                    Case Is <= 20: rng.Offset(0, 14).Value = "18M-20M"
                    Case Else: rng.Offset(0, 14).Value = "Tren 20M"
               End Select
            Else
                rng.Offset(0, 14).Value = Empty
            End If
        Next rng
        Application.EnableEvents = True
        Application.ScreenUpdating = True
    End If
End Sub
 
batman1 đã viết:
Tôi có viết

Nhưng bạn không trả lời.

Thôi, tôi sửa thế này. Bạn tự kiểm tra.
Mã: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rTarget As Range, aTarget, i As Long, n As Long
Dim Arr1(), Arr2(), Arr3(), Arr4(), Arr5(), Arr6(), Arr7(), tmp
Dim rng As Range, change As Range

    On Error Resume Next
    If Dic Is Nothing Then Vlookup_DATA_SP
    If Not Intersect(Range("D851:D600000"), Target) Is Nothing Then
        Set rTarget = Intersect(Range("D851:D600000"), Target)
        If IsArray(rTarget.Value) Then
            aTarget = rTarget.Value
        Else
            ReDim aTarget(1 To 1, 1 To 1)
            aTarget(1, 1) = rTarget.Value
        End If
        ReDim Arr1(1 To UBound(aTarget, 1), 1 To 1)
        ReDim Arr2(1 To UBound(aTarget, 1), 1 To 1)
        ReDim Arr5(1 To UBound(aTarget, 1), 1 To 1)
   
        For i = 1 To UBound(aTarget, 1)
            If aTarget(i, 1) <> "" Then
                tmp = aTarget(i, 1)
                If Dic.Exists(tmp) Then
                    Arr1(i, 1) = aResult(Dic.Item(tmp), 3) 'NGANH HANG
                    Arr2(i, 1) = aResult(Dic.Item(tmp), 4) 'HANG
                    Arr5(i, 1) = aResult(Dic.Item(tmp), 5) 'LOAI HANG
                End If
            End If
        Next
        rTarget.Offset(, 36).Resize(, 1).Value = Arr1 'Vi tri tham chieu NGANH HANG
        rTarget.Offset(, 38).Resize(, 1).Value = Arr2 'Vi tri tham chieu HANG
        rTarget.Offset(, 37).Resize(, 1).Value = Arr5 'Vi tri tham chieu LOAI HANG
    End If
'    ngay thang
    Set change = Intersect(Target, Range("M851:M600000")) ' Ngay Thang Nam, Tuan
    If Not change Is Nothing Then
        Application.EnableEvents = False
        Application.ScreenUpdating = False
        For Each rng In change
            With rng
                .Offset(0, 33).Value = Format(rng, "d")
                .Offset(0, 34).Value = Format(rng, "m")
                .Offset(0, 35).Value = Format(rng, "yyyy")
                .Offset(0, 31).Value = Format(rng, "ww")
            End With
        Next rng
        Application.ScreenUpdating = True
        Application.EnableEvents = True
    End If
'   Phan Khuc Gia
    Set change = Intersect(Target, Range("AC851:AC600000"))
    If Not change Is Nothing Then
        Application.EnableEvents = False
        Application.ScreenUpdating = False
        For Each rng In change
            If Len(rng.Value) Then
                Select Case rng.Value / 10 ^ 6
                    Case Is <= 1: rng.Offset(0, 14).Value = "<1M"
                    Case Is <= 2: rng.Offset(0, 14).Value = "1M-2M"
                    Case Is <= 4: rng.Offset(0, 14).Value = "2M-4M"
                    Case Is <= 6: rng.Offset(0, 14).Value = "4M-6M"
                    Case Is <= 8: rng.Offset(0, 14).Value = "6M-8M"
                    Case Is <= 10: rng.Offset(0, 14).Value = "8M-10M"
                    Case Is <= 12: rng.Offset(0, 14).Value = "10M-12M"
                    Case Is <= 14: rng.Offset(0, 14).Value = "12M-14M"
                    Case Is <= 16: rng.Offset(0, 14).Value = "14M-16M"
                    Case Is <= 18: rng.Offset(0, 14).Value = "16M-18M"
                    Case Is <= 20: rng.Offset(0, 14).Value = "18M-20M"
                    Case Else: rng.Offset(0, 14).Value = "Tren 20M"
               End Select
            Else
                rng.Offset(0, 14).Value = Empty
            End If
        Next rng
        Application.EnableEvents = True
        Application.ScreenUpdating = True
    End If
End Sub
Nhấp chuột vào đây để mở rộng...

Dạ trong file em có ghi chú cột màu đen

Zalo_ScreenShot_30_4_2018_106267.png
 
Thế bạn đã thử code tôi vừa sửa không?
 
Code đòi hỏi cột M phải là ngày tháng chứ không phải trông giống ngày tháng. Hiện cột D không chứa ngày tháng theo đúng triết lý của Excel. D chỉ chứa chuỗi thôi. Tự bạn nhập lại hoặc nhờ ai đó sửa lại. Tôi không muốn mất công chỉ vì ai đó cẩu thả.

Tôi viết lại code vì thấy bạn phục vụ tới 600000 dòng, và có chuyện "đổ" dữ liệu vào sheet. Nếu đổ mỗi lần hàng ngàn, chục ngàn dòng thì code cũ chạy lâu.
Mã: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long, tmp
Dim result(), ba(), change As Range, songayma As String, so_ngay_ma As Object
    If Dic Is Nothing Then Vlookup_DATA_SP
    
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    
    Set change = Intersect(Range("D851:D600000"), Target)
    If Not change Is Nothing Then
        result = change.Resize(change.Rows.Count + 1).Value
        ReDim Preserve result(1 To UBound(result), 1 To 3)
    
        For i = 1 To UBound(result) - 1
            If Len(result(i, 1)) Then
                tmp = result(i, 1)
                If Dic.exists(tmp) Then
                    result(i, 1) = aResult(Dic.Item(tmp), 3) 'NGANH HANG
                    result(i, 2) = aResult(Dic.Item(tmp), 5) 'LOAI HANG
                    result(i, 3) = aResult(Dic.Item(tmp), 4) 'HANG
                End If
            End If
        Next i
        change.Offset(0, 36).Resize(, 3).Value = result
    End If
'    ngay thang
    Set change = Intersect(Target, Range("M851:M600000")) ' Ngay Thang Nam, Tuan
    If Not change Is Nothing Then
        result = change.Resize(change.Rows.Count + 1).Value
        ReDim Preserve result(1 To UBound(result), 1 To 5)
        For i = 1 To UBound(result) - 1
            If Len(result(i, 1)) Then
                result(i, 2) = WorksheetFunction.Text(result(i, 1), "[$-42A]ddd")
                result(i, 3) = Format(result(i, 1), "d")
                result(i, 4) = Format(result(i, 1), "m")
                result(i, 5) = Format(result(i, 1), "yyyy")
                result(i, 1) = Format(result(i, 1), "ww")
            End If
        Next i
        change.Offset(0, 31).Resize(, 5).Value = result
    End If
'   Phan Khuc Gia va cot BA
    Set change = Intersect(Target, Range("AC851:AC600000"))
    If Not change Is Nothing Then
        result = change.Resize(change.Rows.Count + 1).Value
        ba = result
        For i = 1 To UBound(result) - 1
            ba(i, 1) = result(i, 1) / 101
            If Len(result(i, 1)) Then
                Select Case result(i, 1) / 10 ^ 6
                    Case Is <= 1: result(i, 1) = "<1M"
                    Case Is <= 2: result(i, 1) = "1M-2M"
                    Case Is <= 4: result(i, 1) = "2M-4M"
                    Case Is <= 6: result(i, 1) = "4M-6M"
                    Case Is <= 8: result(i, 1) = "6M-8M"
                    Case Is <= 10: result(i, 1) = "8M-10M"
                    Case Is <= 12: result(i, 1) = "10M-12M"
                    Case Is <= 14: result(i, 1) = "12M-14M"
                    Case Is <= 16: result(i, 1) = "14M-16M"
                    Case Is <= 18: result(i, 1) = "16M-18M"
                    Case Is <= 20: result(i, 1) = "18M-20M"
                    Case Else: result(i, 1) = "Tren 20M"
               End Select
            End If
        Next i
'        Phan Khuc Gia
        change.Offset(0, 14).Value = result
'        cot BA
        Range("BA" & change.Row).Resize(UBound(ba) - 1).Value = ba
    End If
'    cot AY
    Set change = Intersect(Target, Range("M851:M600000, P851:P600000"))
    If Not change Is Nothing Then
        Set so_ngay_ma = CreateObject("Scripting.Dictionary")
        result = Range(Cells(change.Row, "M"), Cells(change.Row + change.Rows.Count - 1, "P"))
        For i = 1 To UBound(result)
            songayma = result(i, 1) & "-" & result(i, 4)
            If so_ngay_ma.exists(songayma) Then
                result(i, 1) = 0
            Else
                result(i, 1) = 1
                so_ngay_ma.Add songayma, ""
            End If
        Next i
        Cells(change.Row, "AY").Resize(UBound(result)).Value = result
        Set so_ngay_ma = Nothing
    End If
'    cot AZ
    Set change = Intersect(Target, Range("C851:C600000, M851:M600000"))
    If Not change Is Nothing Then
        Set so_ngay_ma = CreateObject("Scripting.Dictionary")
        result = Range(Cells(change.Row, "C"), Cells(change.Row + change.Rows.Count - 1, "M"))
        For i = 1 To UBound(result)
            songayma = result(i, 1) & "-" & result(i, 11)
            If so_ngay_ma.exists(songayma) Then
                result(i, 1) = 0
            Else
                result(i, 1) = 1
                so_ngay_ma.Add songayma, ""
            End If
        Next i
        Cells(change.Row, "AZ").Resize(UBound(result)).Value = result
        Set so_ngay_ma = Nothing
    End If
    
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

Cần gì thêm thì nên mở chủ đề mới nhé.
 
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ờ các bác giúp đỡ vấn đề tìm kiếm dữ liệu (6 người xem)
Trả lời
4
Đọc
95
Hoàng Tuấn 868
H
D
Nhờ giúp đỡ về công thức xếp loại rèn luyện theo thông tư 22/2021/TT-BGDĐT (1 người xem)
Trả lời
8
Đọc
93
thanthanhan
T
Maika8008
Tặng file quản lý vật tư - công nợ (nhập xuất kho hàng và công nợ khách hàng)
    • Thích
    • Yêu thích
    • Cảm ơn
4 5 6
Trả lời
116
Đọc
25K
Thanh Tam 07
T
D
  • Đã giải quyết
Quản lý email outlook qua VBA cần giúp đỡ (1 người xem)
2
Trả lời
25
Đọc
871
befaint
befaint
A
NHỜ ANH CHỊ GIÚP EM CÂU LỆNH NÀY VỚI Ạ (1 người xem)
Trả lời
1
Đọc
110
ongke0711
ongke0711
P
Hỏi về cách dò tìm từ dưới lên trên, dò tìm trong 2 bảng (3 người xem)
Trả lời
6
Đọc
159
pqdowntailieu3
P
H
Chuyển file *xml hóa đơn điện tử sang excel
    • Thích
Trả lời
4
Đọc
199
htrunga2
H
K
Lọc một mã sản phẩm có nhiều đơn giá thành một file riêng
Trả lời
2
Đọc
111
ketoansb123
K
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
10
Đọc
268
Phuocam
Phuocam
P
Xin tư vấn về cách tạo bảng quản lý vải
    • Cười
Trả lời
13
Đọc
216
Hai Lúa Miền Tây
Hai Lúa Miền Tây
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
19
Đọc
567
thuytrangbp28
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
6
Đọc
195
Trungvt3
Trungvt3
H
  • Question Question
Tô đậm tiêu đề cho cho các sheet (1 người xem)
Trả lời
4
Đọc
189
hieu998
H
GPE-Trợ Lý
[GPE] HỘI THẢO POWER QUERY – CÔNG CỤ QUẢN LÝ DỮ LIỆU HCM
    • Thích
Trả lời
1
Đọc
973
GPE-Trợ Lý
GPE-Trợ Lý
Z
TRỢ GIÚP K SORT ĐƯỢC THỨ TỰ NGÀY THÁNG NĂM TRONG EXCEL
Trả lời
2
Đọc
123
Duy Tùng 9x
Duy Tùng 9x
H
Tách file nguồn thành nhiều file dựa vào điều kiện
Trả lời
5
Đọc
179
LePhatHuy
LePhatHuy
F
  • Question Question
Tự động Merge Mail bằng VBA
Trả lời
7
Đọc
367
fujishima
F
Nguyễn Duy Tuân
Phiên bản mới Add-in A-Tools v10 (2024) (1 người xem)
    • Thích
2 3
Trả lời
49
Đọc
4K
Nguyễn Duy Tuân
Nguyễn Duy Tuân
N
tính thể tích bồn dầu hình trụ elip nằm ngang
Trả lời
10
Đọc
47K
pvkiem
P
vsitcnh
Hỗ trợ công thức tính điểm dựa theo điều kiện.
Trả lời
18
Đọc
417
tle2003
T
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
[GPE] HỘI THẢO POWER QUERY – CÔNG CỤ QUẢN LÝ DỮ LIỆU HCM
Back
Top Bottom