Kết quả tìm kiếm

Góp ý bạn dữ liệu cho thiếu thì ai mà hỗ trợ được đâu ví dụ tổng hợp các sheet mà trong file vidu5 chỉ có dữ liệu của tổng hợp công nợ 1704971638 Góp ý bạn dữ liệu cho thiếu thì ai mà hỗ trợ được đâu ví dụ tổng hợp các sheet mà trong file vidu5 chỉ có dữ liệu của tổng hợp công nợ

Bác thử dùng tạm code này và tuỳ biến code theo ý của mình xem được không Public Sub FormatNumberColor() Dim LookNumber As String: LookNumber = Number Dim i As Long Dim FindNumber As Long: FindNumber = Len(LookNumber) For i = 1 To Len(Range("A1")) With Range("a1")...

Sửa lại sub Main như thế này Sub Main() Dim vFile, FileItem, aRes, Target As Range Dim FileName As String, SheetName As String, RangeAddress As String On Error Resume Next Application.ScreenUpdating = False Sheets("Tong_Hop").Range("A2:F60000").ClearContents vFile =...

Thử dùng code của bác #ndu96081631 theo file này Lưu ý VBA nên chuyển qua chủ đề lập trình lập trình với excel Option Explicit Sub Main() Dim vFile, FileItem, aRes, Target As Range Dim FileName As String, SheetName As String, RangeAddress As String On Error Resume Next...

Góp ý nên có file dữ liệu mẫu

Bạn thử cái này xem đúng ý không? Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.Interior.ColorIndex = xlNone Columns(Target.Column).Interior.ColorIndex = 5 Rows(Target.Row).Interior.ColorIndex = 5 Target.Interior.ColorIndex = 27 End Sub

Bạn tham khảo https://docs.microsoft.com/en-us/office/troubleshoot/excel/excel-opens-blank

Thì bạn mở file excel lên nhập liệu thì ô D1 tự động trên màn hình desktop nó tự động thay đổi kết quả thôi nó có biến mất đâu : ))

Xem đúng ý bạn chưa nhé

Anh cần xác định vùng muốn chạy code thì sẽ dễ hơn

Muốn loại dấu tìm hàm tự tạo chịu khó tìm sẽ có nhiều Function BoDau(Text As String) As String Dim AsciiDict As Object Set AsciiDict = CreateObject("scripting.dictionary") AsciiDict(192) = "A" AsciiDict(193) = "A" AsciiDict(194) = "A" AsciiDict(195) = "A" AsciiDict(196) = "A"...

Tham khảo nhé https://www.giaiphapexcel.com/diendan/threads/t%E1%BB%B1-%C4%91%E1%BB%99ng-th%E1%BB%B1c-hi%E1%BB%87n-macro-ph%C3%BAt-1l%E1%BA%A7n-theo-th%E1%BB%9Di-gian-th%E1%BB%B1c.110830/

Dùng hàm tự tạo nhé

Thử như vậy nhe, copy paste dữ liệu từ B2:L... để ra kết quả Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Long Dim result(), cot2(), change As Range, songayma As String, so_ngay_ma As Object Application.EnableEvents = False Application.ScreenUpdating = False Set...

Đếm trong ngày hay sao? hay chỉ đếm cột e họ và tên thôi

Hình như file rỗng không có dữ liệu

Sửa code bằng cách nào khi chỉ có file word

Đã thử mở file 40p mới mở ra được

Gửi em xem, chỉnh lại tý

Góp ý: bạn nên gửi file để mọi người nhìn mới dễ hỗ trợ