Code VBA copy dữ liệu (1 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)
D

Dong Le

Thành viên chính thức
Tham gia
27/4/12
Bài viết
95
Được thích
1
Chào các anh/chị và các bạn,

Nhờ các bạn giúp mình code copy dữ liệu dang sheet khác như yêu cầu mình nêu chi tiết trong file đính kèm. Mình viết được code copy rồi nhưng chưa viết được code đổi ký tự trong cell.

Cảm ơn các bạn nhiều.
 

File đính kèm

Sắp xếp theo thời gian sắp xếp theo bầu chọn
Dong Le đã viết:
Chào các anh/chị và các bạn,

Nhờ các bạn giúp mình code copy dữ liệu dang sheet khác như yêu cầu mình nêu chi tiết trong file đính kèm. Mình viết được code copy rồi nhưng chưa viết được code đổi ký tự trong cell.

Cảm ơn các bạn nhiều.
Nhấp chuột vào đây để mở rộng...
Copy này vào thay thế đoạn code bạn có
PHP: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [F6:F8]) Is Nothing And UCase(Target.Value) = "OK" Then
    Sheet1.Range(Target.Offset(, -1).Address).Value = "EMPTY"
End If
End Sub
 
Upvote 0
Thử sửa lại code như sau:

Mã: 
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 6 Then
      If UCase(Target) = "OK" Then
        With Sheets("Sheet1").[a65536].End(3)
            Range(Cells(Target.Row, 1), Cells(Target.Row, 4)).Copy .Offset(1)
            .Offset(1, 4) = "EMPTY"
        End With
      End If
End If
End Sub
 
Upvote 0
Hai Lúa Miền Tây đã viết:
Thử sửa lại code như sau:

Mã: 
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 6 Then
      If UCase(Target) = "OK" Then
        With Sheets("Sheet1").[a65536].End(3)
            Range(Cells(Target.Row, 1), Cells(Target.Row, 4)).Copy .Offset(1)
            .Offset(1, 4) = "EMPTY"
        End With
      End If
End If
End Sub
Nhấp chuột vào đây để mở rộng...

Cảm ơn bạn, nếu ô muốn thay đổi ko nằm ở cột cuối cùng (như file) thì dùng câu lệnh gì để copy đoạn cuối luôn.

Trân trọng cảm ơn.
 

File đính kèm

Upvote 0
Dong Le đã viết:
Cảm ơn bạn, nếu ô muốn thay đổi ko nằm ở cột cuối cùng (như file) thì dùng câu lệnh gì để copy đoạn cuối luôn.

Trân trọng cảm ơn.
Nhấp chuột vào đây để mở rộng...
Thì bạn thay code trên = code sau:
Mã: 
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 8 Then
      If UCase(Target) = "OK" Then
        With Sheets("Sheet1").[a65536].End(3)
            Range(Cells(Target.Row, 1), Cells(Target.Row, 7)).Copy .Offset(1)
            .Offset(1, 4) = "EMPTY"
            
        End With
      End If
End If
End Sub
 
Upvote 0
Hai Lúa Miền Tây đã viết:
Thì bạn thay code trên = code sau:
Mã: 
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 8 Then
      If UCase(Target) = "OK" Then
        With Sheets("Sheet1").[a65536].End(3)
            Range(Cells(Target.Row, 1), Cells(Target.Row, 7)).Copy .Offset(1)
            .Offset(1, 4) = "EMPTY"
            
        End With
      End If
End If
End Sub
Nhấp chuột vào đây để mở rộng...

Cảm ơn bạn, mình bỏ dòng này đi thì lệnh vẫn chạy bình thường? mình chưa rõ bạn dùng câu lệnh này để mục đích là gì?


On Error Resume Next
 
Upvote 0
Dong Le đã viết:
Cảm ơn bạn, mình bỏ dòng này đi thì lệnh vẫn chạy bình thường? mình chưa rõ bạn dùng câu lệnh này để mục đích là gì?


On Error Resume Next
Nhấp chuột vào đây để mở rộng...

Bạn bỏ dòng trên, rồi tô khối vài cell ở cột H của Sheet3 rồi nhấn Delete thử xem điều gì sẽ xảy ra nhé.
 
Upvote 0
lachinhan đã viết:
Cái này là căn bản của lập trình mà ta ...
Nhấp chuột vào đây để mở rộng...

Uh, mình mới học tập tọe thôi, đa số học nhanh để đáp ứng công việc chứ chưa đi lên từ căn bản :)

Gửi bạn Hai Lúa Miền Tây: cảm ơn bạn vì đã giúp mình đoạn code trên, giờ mình muốn sau khi Copy lệnh sang sheet2 thì nó sum lại như sheet1(file đính kèm). Bạn giúp mình nhé!
 

File đính kèm

Upvote 0
Dong Le đã viết:
Uh, mình mới học tập tọe thôi, đa số học nhanh để đáp ứng công việc chứ chưa đi lên từ căn bản :)

Gửi bạn Hai Lúa Miền Tây: cảm ơn bạn vì đã giúp mình đoạn code trên, giờ mình muốn sau khi Copy lệnh sang sheet2 thì nó sum lại như sheet1(file đính kèm). Bạn giúp mình nhé!
Nhấp chuột vào đây để mở rộng...
Điều kiện theo như bạn mô tả phải bỏ cột seal ra chứ bạn.
 
Upvote 0
Dong Le đã viết:
Những cột có số ko trùng nhau như cột B và C thì bỏ ra bạn ạ!
Nhấp chuột vào đây để mở rộng...

Vậy kết quả cột dữ liệu B và C là trống chứ, phải không bạn?

Mã: 
Private Sub Worksheet_Activate()
Dim cn As New ADODB.Connection
Dim adoRS As New ADODB.Recordset
  On Error GoTo BaoLoi
        With cn
            .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                                           "Data Source=" & ThisWorkbook.FullName & _
                                           ";Extended Properties=""Excel 8.0;HDR=No;"";"
            .Open
        End With
        With adoRS
            .ActiveConnection = cn
            .Open "SELECT F1, '' as T1,'' as T2, F4,F5,F6,F7,F8, SUM(F9) FROM [Sheet2$A6:I65000] " & _
                      "GROUP BY F1, F4,F5,F6,F7,F8 " & _
                      "HAVING SUM(F9) >0"
        End With
        Sheets("Sheet1").Range("A6").CopyFromRecordset adoRS
        adoRS.Close: cn.Close
        Set cn = Nothing: Set adoRS = Nothing
    Exit Sub
BaoLoi:
MsgBox Err.Description

End Sub
 
Lần chỉnh sửa cuối:
Upvote 0

File đính kèm

Upvote 0
Ba Tê đã viết:
Câu này hổng hiểu, Ví dụ của bạn ở sheet1 đâu thấy bỏ cái gì ra?
Làm "tuốt tuồn tuột" thí cái đi, hổng chịu chỗ nào thì sửa sau.
Nhấp chuột vào đây để mở rộng...

Gửi bạn Bate và Hai Lúa Miền Tây,

Cột B - Ctnr và cột C - Seal thì ko trùng nhau nên khi cộng lại thì bỏ thông tin 2 cột này đi,
 

File đính kèm

Upvote 0
Dong Le đã viết:
Gửi bạn Bate và Hai Lúa Miền Tây,

Cột B - Ctnr và cột C - Seal thì ko trùng nhau nên khi cộng lại thì bỏ thông tin 2 cột này đi,
Nhấp chuột vào đây để mở rộng...
Vậy còn khỏe nữa.
Chép đè code này lên cái cũ xem:
PHP: 
Public Sub GPE()
Dim Rng(), Arr(), I As Long, J As Long, K As Long, Dic As Object, Tem As Variant
Set Dic = CreateObject("Scripting.Dictionary")
With Sheets("Data")
    Rng = .Range(.[A6], .[A65000].End(xlUp)).Resize(, 10).Value
End With
ReDim Arr(1 To UBound(Rng, 1), 1 To 9)
    For I = 1 To UBound(Rng, 1)
        If UCase(Rng(I, 10)) = "OK" Then
                Tem = Rng(I, 1)
            If Not Dic.Exists(Tem) Then
                K = K + 1
                Dic.Add Tem, K
                Arr(K, 1) = Tem
                For J = 4 To 9
                    Arr(K, J) = Rng(I, J)
                Next J
            Else
                Arr(Dic.Item(Tem), 9) = Arr(Dic.Item(Tem), 9) + Rng(I, 9)
            End If
        End If
    Next I
With Sheets("GPE")
    .[A6:I1000].ClearContents
    If K Then .[A6].Resize(K, 9).Value = Arr
End With
Set Dic = Nothing
End Sub
 
Upvote 0
Ba Tê đã viết:
Vậy còn khỏe nữa.
Chép đè code này lên cái cũ xem:
PHP: 
Public Sub GPE()
Dim Rng(), Arr(), I As Long, J As Long, K As Long, Dic As Object, Tem As Variant
Set Dic = CreateObject("Scripting.Dictionary")
With Sheets("Data")
    Rng = .Range(.[A6], .[A65000].End(xlUp)).Resize(, 10).Value
End With
ReDim Arr(1 To UBound(Rng, 1), 1 To 9)
    For I = 1 To UBound(Rng, 1)
        If UCase(Rng(I, 10)) = "OK" Then
                Tem = Rng(I, 1)
            If Not Dic.Exists(Tem) Then
                K = K + 1
                Dic.Add Tem, K
                Arr(K, 1) = Tem
                For J = 4 To 9
                    Arr(K, J) = Rng(I, J)
                Next J
            Else
                Arr(Dic.Item(Tem), 9) = Arr(Dic.Item(Tem), 9) + Rng(I, 9)
            End If
        End If
    Next I
With Sheets("GPE")
    .[A6:I1000].ClearContents
    If K Then .[A6].Resize(K, 9).Value = Arr
End With
Set Dic = Nothing
End Sub
Nhấp chuột vào đây để mở rộng...

Cảm ơn bạn Ba tê, nhưng ý mình muốn là từ sheet3-> copy sang Sheet2 rồi cộng luôn vào sheet1(ko thêm điều kiện ở sheet2 nữa) chứ ko phải gộp lại như vậy.
 

File đính kèm

Upvote 0
Dong Le đã viết:
Cảm ơn bạn Ba tê, nhưng ý mình muốn là từ sheet3-> copy sang Sheet2 rồi cộng luôn vào sheet1(ko thêm điều kiện ở sheet2 nữa) chứ ko phải gộp lại như vậy.
Nhấp chuột vào đây để mở rộng...
Xem lại file này, nhập sửa... ở sheet Data, Mở các sheet khác xem kết quả.
!!!!!!!Oải với kiểu đặt tên sheet của bạn quá. Sheet1 tên là sheet2, sheet2 tên là sheet1, "khiếp".
 

File đính kèm

Lần chỉnh sửa cuối:
Upvote 0
Code bài #13 đã đúng theo yêu cầu của bạn rồi còn gì.
 

File đính kèm

Upvote 0
Vào cửa sổ code click chọn Tools>Refrences, xong chọn Microsoft ActiveX Data Objects x.x Library (ADO)

[video=youtube;9g8izYUQrnE]http://www.youtube.com/watch?v=9g8izYUQrnE&feature=youtu.be[/video]
 
Upvote 0
Hai Lúa Miền Tây đã viết:
Vào cửa sổ code click chọn Tools>Refrences, xong chọn Microsoft ActiveX Data Objects x.x Library (ADO)
Nhấp chuột vào đây để mở rộng...
Cách khác: Sửa code thành vầy sẽ khỏi mất công chỉnh gì gì đó trong Reference:
PHP: 
Private Sub Worksheet_Activate()
  Dim cn As Object, adoRS As Object
  Set cn = CreateObject("ADODB.Connection")
  Set adoRS = CreateObject("ADODB.Recordset")
  On Error GoTo ErrHandler
  With cn
    .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                        "Data Source=" & ThisWorkbook.FullName & _
                        ";Extended Properties=""Excel 8.0;HDR=No;"";"
    .Open
  End With
  With adoRS
    .ActiveConnection = cn
    .Open "SELECT F1, '' as T1,'' as T2, F4,F5,F6,F7,F8, SUM(F9) FROM [Sheet2$A6:I65000] " & _
          "GROUP BY F1, F4,F5,F6,F7,F8 HAVING SUM(F9) >0"
  End With
  Sheets("Sheet1").Range("A6").CopyFromRecordset adoRS
  adoRS.Close: cn.Close
  Set cn = Nothing: Set adoRS = Nothing
  Exit Sub
ErrHandler:
MsgBox Err.Description
End Sub
 
Upvote 0
Dong Le đã viết:
Xem lại giúp mình code của Sheet "Sum" trong file đính kèm với.
Nhấp chuột vào đây để mở rộng...

Chán đồng chí này quá!
Mỗi code sẽ ứng với 1 CSDL nhất định... Giờ sửa tùm lum (tên sheet lẫn cấu trúc dữ liệu) thì làm sao mà code chạy được!
Tốt nhất là: Đưa dữ liệu đúng sự thật lên đây 1 lần luôn, đừng đưa lắt nhắt, lúc vầy lúc khác sẽ mất công cho mọi người
 
Upvote 0
ndu96081631 đã viết:
Chán đồng chí này quá!
Mỗi code sẽ ứng với 1 CSDL nhất định... Giờ sửa tùm lum (tên sheet lẫn cấu trúc dữ liệu) thì làm sao mà code chạy được!
Tốt nhất là: Đưa dữ liệu đúng sự thật lên đây 1 lần luôn, đừng đưa lắt nhắt, lúc vầy lúc khác sẽ mất công cho mọi người
Nhấp chuột vào đây để mở rộng...

Xin lỗi bạn vì file nặng, mình nghĩ cắt ra như thế rồi sẽ modify lại cho phù hợp tuy nhiên hàm này hơi phức tạp. code trong sheet "sum" mình đã viết lại nhưng vẫn báo lỗi, lần sau sẽ rút kinh nghiệm, nhờ bạn xem hộ và chỉ lỗi giúp.
 
Upvote 0
Dong Le đã viết:
Xin lỗi bạn vì file nặng, mình nghĩ cắt ra như thế rồi sẽ modify lại cho phù hợp tuy nhiên hàm này hơi phức tạp. code trong sheet "sum" mình đã viết lại nhưng vẫn báo lỗi, lần sau sẽ rút kinh nghiệm, nhờ bạn xem hộ và chỉ lỗi giúp.
Nhấp chuột vào đây để mở rộng...

Bạn xóa bớt dữ liệu, tôi đồng ý, nhưng ít ra phải giữ lại CẤU TRÚC cho nó giống y chang với dữ liệu thật của bạn chứ!
Ví dụ: Dữ liệu của bạn đặt tại A5:P10000, trong đó A5:P5 là tiêu đề. Vậy bạn có thể xóa bớt để chừa lại khoảng 10 dòng ---> Dữ liệu còn lại là A5:P14
Những thứ không được xóa và thay đổi:
- Tiêu đề cột tại các sheet
- Tên sheet
vân vân... Nói chung là không được thay đổi CẤU TRÚC ---> Bạn có hiểu không nhỉ?
 
Upvote 0
ndu96081631 đã viết:
Bạn xóa bớt dữ liệu, tôi đồng ý, nhưng ít ra phải giữ lại CẤU TRÚC cho nó giống y chang với dữ liệu thật của bạn chứ!
Ví dụ: Dữ liệu của bạn đặt tại A5:P10000, trong đó A5:P5 là tiêu đề. Vậy bạn có thể xóa bớt để chừa lại khoảng 10 dòng ---> Dữ liệu còn lại là A5:P14
Những thứ không được xóa và thay đổi:
- Tiêu đề cột tại các sheet
- Tên sheet
vân vân... Nói chung là không được thay đổi CẤU TRÚC ---> Bạn có hiểu không nhỉ?
Nhấp chuột vào đây để mở rộng...

Vâng, cảm ơn bạn, mình hiểu rồi. Hiện code ở sheet "copy" đã chạy ok, còn của sheet "Sum" thì nhờ bạn xem giúp mình, file này đã đúng với bản thật của mình rồi.
 
Upvote 0
Hic, lại "lòi" ra cột STT, và chủ hàng, 2 cột này bạn tính sao? có đưa vào điều kiện cộng?
 
Upvote 0
Dong Le đã viết:
STT thì có thể automatic được ko bạn? còn chủ hàng thì trùng nhau theo số bill nên đưa vào điều kiện cộng, cột này cũng rất quan trọng.
Nhấp chuột vào đây để mở rộng...
Ban đầu phải nói luôn đỡ phải mất thời gian, bạn thử code sau nhé.

Mã: 
Private Sub Worksheet_Activate()
  Dim cn As Object, adoRS As Object
  Set cn = CreateObject("ADODB.Connection")
  Set adoRS = CreateObject("ADODB.Recordset")
  On Error GoTo BaoLoi
        With cn
            .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                                           "Data Source=" & ThisWorkbook.FullName & _
                                           ";Extended Properties=""Excel 8.0;HDR=No;"";"
            .Open
        End With
        With adoRS
            .ActiveConnection = cn
            .Open "SELECT '' as T, F2,F3, '' as T1,'' as T2, F6,F7,F8,F9,F10,SUM(F11), F12 FROM [Copy$A6:L65000] " & _
                      "GROUP BY F2,F3, F6,F7,F8,F9,F10,F12 " & _
                      "HAVING SUM(F11) >0"
        End With
        Sheets("Sum").Range("A6").CopyFromRecordset adoRS
        adoRS.Close: cn.Close
        Set cn = Nothing: Set adoRS = Nothing
    Exit Sub
BaoLoi:
MsgBox Err.Description

End Sub
 
Upvote 0
Hai Lúa Miền Tây đã viết:
Ban đầu phải nói luôn đỡ phải mất thời gian, bạn thử code sau nhé.

Mã: 
Private Sub Worksheet_Activate()
  Dim cn As Object, adoRS As Object
  Set cn = CreateObject("ADODB.Connection")
  Set adoRS = CreateObject("ADODB.Recordset")
  On Error GoTo BaoLoi
        With cn
            .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                                           "Data Source=" & ThisWorkbook.FullName & _
                                           ";Extended Properties=""Excel 8.0;HDR=No;"";"
            .Open
        End With
        With adoRS
            .ActiveConnection = cn
            .Open "SELECT '' as T, F2,F3, '' as T1,'' as T2, F6,F7,F8,F9,F10,SUM(F11), F12 FROM [Copy$A6:L65000] " & _
                      "GROUP BY F2,F3, F6,F7,F8,F9,F10,F12 " & _
                      "HAVING SUM(F11) >0"
        End With
        Sheets("Sum").Range("A6").CopyFromRecordset adoRS
        adoRS.Close: cn.Close
        Set cn = Nothing: Set adoRS = Nothing
    Exit Sub
BaoLoi:
MsgBox Err.Description

End Sub
Nhấp chuột vào đây để mở rộng...

Cột A-STT để trống chứ ko nhảy theo thứ tự được à bạn? và ko sum được cột L - So con't hả bạn?
 
Lần chỉnh sửa cuối:
Upvote 0
Đáng lẽ tôi làm đến đây bạn phải biết tự vận dụng chứ.

Mã: 
Private Sub Worksheet_Activate()
  Dim cn As Object, adoRS As Object
  Set cn = CreateObject("ADODB.Connection")
  Set adoRS = CreateObject("ADODB.Recordset")
  On Error GoTo BaoLoi
        With cn
            .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                                           "Data Source=" & ThisWorkbook.FullName & _
                                           ";Extended Properties=""Excel 8.0;HDR=No;"";"
            .Open
        End With
        With adoRS
            .ActiveConnection = cn
            .Open "SELECT '' as T,F2,F3,'' as T1,'' as T2, F6,F7,F8,F9,F10,SUM(F11), Sum(F12) FROM [Copy$A6:L65000] " & _
                      "GROUP BY F2,F3,F6,F7,F8,F9,F10 " & _
                      "HAVING SUM(F11) >0"
        End With
        With Sheets("Sum")
            .Range("A6:L65000").ClearContents
            .Range("A6").CopyFromRecordset adoRS
                With .Range("A6:A" & .Range("B65000").End(xlUp).Row)
                       .FormulaR1C1 = "=ROW()-5"
                       .Value = .Value
                End With
        End With
        adoRS.Close: cn.Close
        Set cn = Nothing: Set adoRS = Nothing
    Exit Sub
BaoLoi:
MsgBox Err.Description

End Sub
 
Upvote 0
Dong Le đã viết:
Cột A-STT để trống chứ ko nhảy theo thứ tự được à bạn? và ko sum được cột L - So con't hả bạn?
Nhấp chuột vào đây để mở rộng...
Biết VBA đã khó, làm bằng ADODB càng khó hơn nếu chưa biết được chút gì về nó.
Nếu là tôi thì làm bằng VBA cho dễ đọc.
 

File đính kèm

Upvote 0
Hai Lúa Miền Tây đã viết:
Đáng lẽ tôi làm đến đây bạn phải biết tự vận dụng chứ.

Mã: 
Private Sub Worksheet_Activate()
  Dim cn As Object, adoRS As Object
  Set cn = CreateObject("ADODB.Connection")
  Set adoRS = CreateObject("ADODB.Recordset")
  On Error GoTo BaoLoi
        With cn
            .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                                           "Data Source=" & ThisWorkbook.FullName & _
                                           ";Extended Properties=""Excel 8.0;HDR=No;"";"
            .Open
        End With
        With adoRS
            .ActiveConnection = cn
            .Open "SELECT '' as T,F2,F3,'' as T1,'' as T2, F6,F7,F8,F9,F10,SUM(F11), Sum(F12) FROM [Copy$A6:L65000] " & _
                      "GROUP BY F2,F3,F6,F7,F8,F9,F10 " & _
                      "HAVING SUM(F11) >0"
        End With
        With Sheets("Sum")
            .Range("A6:L65000").ClearContents
            .Range("A6").CopyFromRecordset adoRS
                With .Range("A6:A" & .Range("B65000").End(xlUp).Row)
                       .FormulaR1C1 = "=ROW()-5"
                       .Value = .Value
                End With
        End With
        adoRS.Close: cn.Close
        Set cn = Nothing: Set adoRS = Nothing
    Exit Sub
BaoLoi:
MsgBox Err.Description

End Sub
Nhấp chuột vào đây để mở rộng...

Cảm ơn bạn nhiều. code khó quá bạn ạ. mình thì mới tập tọe thôi.
 
Upvote 0
Hai Lúa Miền Tây đã viết:
.

Mã: 
Private Sub Worksheet_Activate()
  Dim cn As Object, adoRS As Object
  Set cn = CreateObject("ADODB.Connection")
  Set adoRS = CreateObject("ADODB.Recordset")
  On Error GoTo BaoLoi
        With cn
            .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                                           "Data Source=" & ThisWorkbook.FullName & _
                                           ";Extended Properties=""Excel 8.0;HDR=No;"";"
            .Open
        End With
        With adoRS
            .ActiveConnection = cn
            .Open "SELECT '' as T,F2,F3,'' as T1,'' as T2, F6,F7,F8,F9,F10,SUM(F11), Sum(F12) FROM [Copy$A6:L65000] " & _
                      "GROUP BY F2,F3,F6,F7,F8,F9,F10 " & _
                      "HAVING SUM(F11) >0"
        End With
        With Sheets("Sum")
            .Range("A6:L65000").ClearContents
            .Range("A6").CopyFromRecordset adoRS
                With .Range("A6:A" & .Range("B65000").End(xlUp).Row)
                       .FormulaR1C1 = "=ROW()-5"
                       .Value = .Value
                End With
        End With
        adoRS.Close: cn.Close
        Set cn = Nothing: Set adoRS = Nothing
    Exit Sub
BaoLoi:
MsgBox Err.Description

End Sub
Nhấp chuột vào đây để mở rộng...

Bác Hai lúa miền Tây ơi! giúp mình cái này với, mình ghi cụ thể trong file đính kèm bên dưới.
 

File đính kèm

Upvote 0

File đính kèm

Upvote 0
Dong Le đã viết:
Cảm ơn bạn nhiều. code khó quá bạn ạ. mình thì mới tập tọe thôi.
Nhấp chuột vào đây để mở rộng...

Chào bác Hai Lúa Miền Tây, bác giúp mình câu lệnh này với, mình đã viết lệnh copy sang sheet khác và check trùng, giờ muốn thêm điều kiện là khi copy sang nó sắp xếp theo thứ tự cột ngày tháng thì dùng câu lệnh gì bạn?
 

File đính kèm

Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

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

K
Điền giá trị ô thay vì địa chỉ ô
Trả lời
5
Đọc
161
DeTong
D
T
Xin hỏi về bảng lương
Trả lời
1
Đọc
87
SA_DQ
SA_DQ
T
Nhờ anh chị xem giúp file bị lỗi gì mà chạy rất chậm/lag - File tính tiền nhà trọ (2 người xem)
Trả lời
3
Đọc
73
Thaik05
T
J
chiết khấu ở hóa đơn bán lẻ, lưu vào sheet tổng hợp (1 người xem)
Trả lời
2
Đọc
56
le_vis
L
2
  • Question Question
Hỏi cách in phiếu điều tra PCGD-XMC từ file dữ liệu mẫu xuất ra từ hệ thống PCGD-XMC của Bộ GD (1 người xem)
    • Thích
Trả lời
8
Đọc
690
Hoàng Tuấn 868
H
B
Sau 1 tháng Mã Lại reset về 1 trở lên
    • Chấp nhận
Trả lời
23
Đọc
302
SA_DQ
SA_DQ
H
Đánh số thứ thự phiếu thu chi (1 người xem)
Trả lời
16
Đọc
290
HangktGTN
H
4
HỌC ĐẠI LÝ THUẾ
Trả lời
1
Đọc
36
Hoàng Tuấn 868
H
B
Chuyển số tiền thành chữ
Trả lời
3
Đọc
69
bongngongo
B
S
Tạo sheet mới từ dữ liệu 2 sheet khác ĐVT
Trả lời
1
Đọc
100
Hoàng Tuấn 868
H
H
  • Question Question
Xin giúp đỡ về tạo hàm excel với C# và excel-dna
Trả lời
0
Đọc
73
hdcv.excel
H
N
  • Question Question
Cho em hỏi về mail merge bằng vba
Trả lời
5
Đọc
157
Hoàng Tuấn 868
H
T
Khóa cột cập nhật dữ liệu
Trả lời
0
Đọc
63
tnkhanhvy
T
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (2 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
3 4 5
Trả lời
411
Đọc
50K
ongke0711
ongke0711
H
Tìm kiếm thông tin chi tiết trên sheet tổng hợp (1 người xem)
Trả lời
1
Đọc
93
LOGANWover
L
Gà Công Nghệ
Tô màu họ và tên bị trùng từ 2 sheet khác nhau
Trả lời
6
Đọc
161
Gà Công Nghệ
Gà Công Nghệ
A
  • Question Question
Giải thích giúp mình code giải phóng bộ nhớ từ biến
Trả lời
20
Đọc
9K
nguyendang95
N
Nguyenkhang2404
giúp đỡ lọc dữ liệu nâng cao
Trả lời
22
Đọc
766
Phan Thế Hiệp
Phan Thế Hiệp
B
Dùng button trên forrm để gọi bàn phím ảo win 10(OSK)
Trả lời
5
Đọc
159
huhumalu
H
P
VẼ ĐƯỜNG TẦN SUẤT (DTS) TRÊN EXCEL
Trả lời
8
Đọc
240
ptm0412
ptm0412
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

Thời gian đếm ngược.

000
Ngày
00
Giờ
00
phút
00
giây
Thân mời tham dự sự kiện sinh nhật GPE 2025
Back
Top Bottom