Toàn số và số, nhìn vô chóng mặt luôn.
Các giá trị cần lấy em đã điền màu vào rồi ấy. Mong các anh chị giúp đỡ.Hi Bạn....
Muốn giúp lắm nhưng vì số liệu nhiều quá và không hiểu hết ý của Bạn LẤY SỐ LIỆU NÀO ĐƯA VÀO VỊ TRÍ NÀO
Bạn hãy mô tả cụ thể hơn thì Anh Chị Em trên diễn đàn mới có hướng hỗ trợ bạn được tốt nhất...
Bạn thử file này xem sao
Cám ơn file của bạn. Nhưng phân mềm của mình nó xuất ra định dạng như ở file "Phân lớp" nên để nhặt lại số liệu theo mẫu của bạn cũng mất kha khá thời gian ấy, với lại để theo định dạng kia mình còn có thể điều chỉnh lại tên lớp của các cọc nữa. Mong bạn giúp cho!!!
Mình chưa hiểu cái chỗ màu đỏ ấy (Chưa đến 1 giây mà cũng gọi là kha khá thời gian
)
Uh. Bạn nói đúng rồi. Bản V1.3 không có tên cọc. File của bạn lấy dữ liệu luôn được từ bản V1.3 ra à? Nhưng mình chạy nó toàn báo lỗi ấy.Mình chưa hiểu cái chỗ màu đỏ ấy (Chưa đến 1 giây mà cũng gọi là kha khá thời gian
Trong file bạn xuất ra từ phần phân lớp bản V1.3 đâu có phần tên cọc đâu ...
Nếu đúng như File của bạn thì tốt nhất bạn dùng Bản v4.1.2 chạy phát được đúng yêu cầu luôn
Mình dùng thấy bình thường mà
Hay là bạn để đuôi .xls còn mình để đuôi .xlsx nên không được nhỉ???
Cái đuôi ấy không lưu được Macro bạn ạ . Bạn lưu dạng .xls, .xlsb, xlsm
Ok. Cám ơn bạn rất nhiều. Nhưng mình muốn hỏi bạn xem liệu để định dạng ấy thì in ấn có khó không bạn. Hoặc bạn có cách nào lấy được dữ liệu mà vẫn giữ nguyên được định dạng của mình không. Mình có ý định dùng hàm Index với hàm Match liệu có được không bạn?
Mình không biết nhiều về hàm trong EXCEL. Cái file trên nếu kết hợp với nút In hoặc Xuất ra file Pdf chắc cũng ổn
Sub XuatFile_Pdf()
Dim Arr, Rng As Range, Nmax As Long, I As Long
Dim NameSh As String, NameFile As String, CelLink As String, Dk As Boolean
Arr = Array("MauKT", "MauKL")
With Sheets("Tam")
Set Rng = .Range("C4", .Range("C65535").End(3))
End With
Nmax = Application.Max(Rng)
NameSh = ActiveSheet.Name: Dk = False
If NameSh = "MauKT" Then
CelLink = "I6"
NameFile = "KTHH_Lop"
End If
If NameSh = "MauKL" Then
CelLink = "K5"
NameFile = "KL_Lop"
End If
For I = LBound(Arr) To UBound(Arr)
If Arr(I) = NameSh Then
Dk = True: Exit For
End If
Next I
If Dk = True Then
For I = 1 To Nmax
Sheets(NameSh).Range(CelLink) = I
If NameSh = "MauKT" Then Call LayKTHH
If NameSh = "MauKL" Then Call LayKluong
ActiveSheet.ExportAsFixedFormat 0, ThisWorkbook.Path & "\" & NameFile & " " & I
Next I
End If
End SubHàm bạn không biết nhiều, nhưng VBA của bạn quá giỏi.
Bạn ơi liệu mình chỉnh qua file excel xong mới xuất ra được không vậy?
Nghĩa là tách từng lớp ra Sheet riêng á. Nếu vậy Bạn xem file thử
File của bạn cho mình kích vào ô lấy dữ liệu sao không được. Với lại bạn làm thiếu cọc Km103 của mình rồi.
Trong File có Macro nên bạn kiểm tra EXCEL của bạn đã bật chế độ Enable all macros hay chưa. Còn phần tên cọc thì trong file Phan lop của bạn không có nên không biết đưa vào kiểu gì nếu dùng bản V1.3 thì bổ sung tên cọc vào tất cả chỗ lý trình ví dụ dạng Km:103+300/Coc... thì mình lấy vào cho. Không thì đầu tư 1 ít chi phí mua bản mới nhất dùng là sướng nhất
