Giúp Code Userform tìm kiếm
- Thread starter vova2209
- Ngày gửi
Excel my love_1
Thành viên thường trực
- Tham gia
- 12/11/19
- Bài viết
- 321
- Được thích
- 179
Mình thấy code trong file của bạn mình không hiểu để làm gì, mình đã dọn dẹp sang 1 bên. Mình thấy trên diễn đàn code của anh huthang_bd áp dụng vào bài của bạn cũng được, mình làm ra file gửi lên . Bạn tham khảo. Mình không biết nhiều về code, chỉ biết copy paste vào nên bạn tự nghiên cứu thêm nhé.
Upvote
0
Upvote
0
Muốn 100 thì dứt khoát phải được 100.
Hiện tại cột 3, 4, 5 làm gì có giá tri. Nhập giá trị vào 3, 4, 5 thì mới thấy chúng ở đúng vị trí.
Đoán mò thôi.
Tôi đã nhiều lần nói mà bạn không sửa. Lần cuối cùng tôi trả lời bạn nếu bạn còn chơi ảnh thay tập tin.
Lần chỉnh sửa cuối:
Upvote
0
Toàn hình (ảnh) thế này dễ lắm, dùng photoshop cắt dán kéo chuột mấy cái là xong, việc chi phải Excel
Upvote
0
truongvu317
Thành viên tích cực
- Tham gia
- 15/11/10
- Bài viết
- 935
- Được thích
- 678
- Giới tính
- Nữ
Mò thêm chút nữa đi bác, biết đâu vớ bở. Cũng có thể trong code đã có đoạn chỉnh độ rộng rùi ý ạ.
Upvote
0
Trong code có không thì nhìn ảnh sao biết được? Mà nếu trong code đổi thành 100 thì phải có 100 chứ không thể 319 được.
Upvote
0
vova2209
Thành viên tích cực
- Tham gia
- 5/4/17
- Bài viết
- 825
- Được thích
- 110
- Giới tính
- Nam
- Nghề nghiệp
- Đường bộ
cột 3 4 5 có giá trị, cột 2 đang bị đẩy rộng ra nên ko nhìn thấy cột 3 4 5
Bài đã được tự động gộp:
^^! file ở #14 bạn xem dùm.. lúc mới làm thì được. khi tắt đi hôm sau mở lại thấy cột 2 dài ngoẵng ra không tài nào chỉnh lại được
Bài đã được tự động gộp:
Làm thế nào để xuống dòng ở listbox khi chữ dài quá khổ cột bạn nhỉ
Lần chỉnh sửa cuối:
Upvote
0
Đã nói là cột 3, 4, 5 không có dữ liệu mà còn cãi.
Nếu không tin thì sau dòng
Mã:
MaxCol = .End(xlToRight).Column
Mã:
msgbox MaxColTôi đã sửa trong cửa sổ Properties thành 28 pt;100 pt;44 pt;59 pt;150 pt như mong muốn. Nhưng theo tôi cứ để 319.95 vì vẫn còn chỗ cho cột 3, 4 và 5. Và thiết lập ColumnCount = 5.
Và sửa lại thành
Mã:
Sub ganSourceListbox()
Dim k As Long
MaxCol = Range("A3").End(xlToRight).Column
MaxRow = Cells(Rows.Count, "A").End(xlUp).Row
For k = MaxRow To 4 Step -1
If Len(Range("A" & k).Value) Then Exit For
Next k
MaxRow = k
ArrayData = Range("A4").Resize(MaxRow - 3, MaxCol).Value
ReDim TempArr(1 To MaxRow - 3, 1 To MaxCol)
Me.lstDanhSachVPP.List = ArrayData
End Sub
Lần chỉnh sửa cuối:
Upvote
0
vova2209
Thành viên tích cực
- Tham gia
- 5/4/17
- Bài viết
- 825
- Được thích
- 110
- Giới tính
- Nam
- Nghề nghiệp
- Đường bộ
vâng đúng rồi! mình vừa chỉnh lên dòng thứ 5 trở đi thì nó hiện lại chiều rộng cột
Bài đã được tự động gộp:
+Chỉnh dùm mình cột D định dạng ngăn cách phần đơn vị với như kiểu này 1000000 thành 1.000.000
và khi kích vào sẽ đi đến dòng có chứa giữ liệu đang chọn
+ Định dạng kẻ dòng list
+BoundColumn có tác dụng như nào bạn
Lần chỉnh sửa cuối:
Upvote
0
Bạn đã thấy là có những cái không thể phán trên cơ sở hình ảnh chưa?
Tôi đi nhậu đây. Nếu đợi được thì đến tối (chỗ tôi) tôi sẽ xem.
Upvote
0
Tôi tưởng hình ảnh thì còn ngo ngoe photoshop, còn excel VBA chỉ cào cào làm sao đây
Lần chỉnh sửa cuối:
Upvote
0
Tôi làm cho bạn lần cuối. Có vấn đề gì thêm thì cứ nhờ mọi người, đừng gọi tên tôi. Nếu tôi có hứng thì tôi sẽ tự tham gia.
1. sửa thành
2. Thêm
Hoặc gú gồ.
Chỉ nên hỏi những cái không tự làm được. Bạn biết đọc, biết dịch thì sao tôi lại phải đọc và dịch thay bạn?
Muốn thế thì sau khi lấy dữ liệu vào mảng ArrayData thì duyệt từng dòng của nó và định dạng thích hợp cho cột 4.
Nếu thế thì phải gán cho mỗi dòng dữ liệu trong mảng ArrayData, cũng đồng thời là trong ListBox, chỉ số dòng của nó trên sheet. Khi click mục trong ListBox thì đọc ra chỉ số dong trên sheet của mục được chọn. "Gán" được thực hiện bằng cách sau khi lấy dữ liệu vào mảng ArrayData thì duyệt từng dòng của nó và nhâp chỉ số dòng trên sheet của dòng hiện hành vào cột cuối cùng được thêm sau khi nhập dữ liệu vào ArrayData. Khi click thì đọc ra chỉ số dòng từ cột cuối. Thế thôi.
1. sửa thành
Mã:
Sub ganSourceListbox()
Dim k As Long
Dim lastRow As Long
With ThisWorkbook.Worksheets("Don Gia Nhan Cong")
MaxCol = .Range("A3").End(xlToRight).Column
lastRow = .Cells(Rows.Count, "A").End(xlUp).Row
If lastRow < 4 Then Exit Sub
' lastRow trong truong hop nay khong chua du lieu. Di len tren toi khi gap gia tri <> ""
For k = lastRow To 4 Step -1
If Len(.Range("A" & k).Value) Then Exit For
Next k
MaxRow = k - 3
' lay du lieu vao mang ArrayData
ArrayData = .Range("A4").Resize(MaxRow, MaxCol).Value
End With
' them 1 cot cuoi vao mang ArrayData
ReDim Preserve ArrayData(1 To UBound(ArrayData, 1), 1 To MaxCol + 1)
' duyet tung dong cua mang ArrayData
For k = 1 To UBound(ArrayData, 1)
' ghi chi so dong tren sheet cua muc hien hanh vao cot cuoi da them
ArrayData(k, MaxCol + 1) = k + 3
' dinh dang cot DON GIA
ArrayData(k, 4) = Format(ArrayData(k, 4), "#,##0.00") ' neu DON GI khong co phan thap phan thi Format(ArrayData(k, 4), "#,##0")
Next k
ReDim TempArr(1 To MaxRow, 1 To MaxCol)
' nhap mang ArrayData vao ListBox
Me.lstDanhSachVPP.List = ArrayData
End Sub
Mã:
Private Sub lstDanhSachVPP_Change()
Dim r As Long
With lstDanhSachVPP
If .ListIndex < 0 Then Exit Sub
' doc ra chi so dong tren sheet cua muc duoc chon
r = .List(.ListIndex, MaxCol)
End With
' chon o o dong r va cot D
ThisWorkbook.Worksheets("Don Gia Nhan Cong").Range("D" & r).Select
End SubTôi chả hiểu "Định dạng kẻ dòng list" là gì. Cũng chả biết "dòng list" là dòng gì. Hãy tập giải thích cho người khác, kể cả những người chậm hiểu như tôi, hiểu ý của mình. Vấn đề của mình mà muốn nhanh nhanh, tốn ít công sức thời gian thì tôi bó tay.
Như bài #7 thôi: View -> Object Browser -> ListBox -> BoundColumn -> F1
Hoặc gú gồ.
Chỉ nên hỏi những cái không tự làm được. Bạn biết đọc, biết dịch thì sao tôi lại phải đọc và dịch thay bạn?
Lần chỉnh sửa cuối:
Upvote
0
