Hiện em vẫn chưa thể hoàn thành được phần tìm kiếm tên sản phẩmMục

mong được thầy hướng dẫn

https://drive.google.com/file/d/1dgtR... bạn xem nhé.

Thưa thầy hiện tại theo chia sẻ của thầy thì hiện tại list hàng chỉ hiển thị trong text box chứ không tùy chọn được

Mục đích như sau:

Bước 1 đánh tên vào phần name từ "bút" thì phần bên dưới sẽ lọc và chỉ hiển thị tất cả các mặt hàng có chứa kí tự "bút"

Bước 2 Click vào các sản phẩm  đang hiển thị để lấy tên đầy đủ vào phần name

Em có đính kèm hình bên dưới mong thầy hướng dẫn thêm

Em chân thành cảm ơn

https://drive.google.com/file/d/1nrwH...

https://drive.google.com/file/d/1YDPX...

Chào bạn bạn muốn list đó lên các text đúng không? bạn gõ vào ô price xem nó có lọc không?

dạ khi gõ vào ô price thì có lọc nhưng em muốn list duy nhất cột tên vào textbox name thôi thầy ạ

chào bạn ở đây bạn seach nên không gõ chính xác được nên khuyên bạn có thể tạo ra list rồi gõ seach tiếp đó chuyển list đó lên trên text có được không?

vâng nhờ thầy hướng dẫn theo cách này cũng được ạ

em cảm ơn thầy nhiều

Em nghĩ là tạo thêm 1 list box khác để tìm kiếm và sau khi double click vào một trong những kết quả tìm kiếm ở dưới thì sẽ hiển thị tên của sản phẩm trên phần name

Như vậy không biết có khả thi không thầy nhỉ? em ngồi cả buổi chiều mà không làm được

mong thầy hướng dẫn

Em cảm ơn

Chào bạn tại sự kiện click của listbox bạn thêm code sau:

Private Sub lb_hang_hoa_Click()

    On Error Resume Next

    Me.txt_price = lb_hang_hoa.Column(3)

End Sub

Cảm ơn thầy đây đúng là điều em đang cần làm, em đã làm được rồi

Thầy cho em hỏi phần

"  On Error Resume Next" thầy có thể giải thích cho em ý nghĩa phần này được k ạ?

Chào bạn code đó là nếu có lỗi nó bỏ qua

Dạ e chào thầy!!!!e có kèm 2 file bên dưới!!!

E mún hỏi thầy là file thứ nhất là file chi phí.Mục đích của e làm file này là khi nhập vào ngày tháng bất kỳ và bấm vào nút tự động co dãn theo ngày nhập thì nó sẽ tạo sheet mới có tên là 

e gửi link ạ!!!!

https://drive.google.com/file/d/1Gjks...

Mình chưa hiểu phần nào bạn nói là gộp bị lỗi

Chào bạn mình kích vào file của bạn thấy chạy ok mà sheets home

dạ thầy khi nhập tháng 2 và năm 2022 thì nó ra 1 sheet khác tên là 

Chào bạn bạn cần dùng vòng lặp kiểm xem sheet đó đã tồn tại chưa nhé? nếu chưa tồn tại thì mới add còn không sẽ active đến nó.

Chào bạn bạn cần làm vòng lặp dạng như sau:

Function Checkdungsai() As Boolean

  Checkdungsai = False

  Dim Sh As Worksheet

  On Error Resume Next

  For Each Sh In ThisWorkbook.Worksheets

     If (Sh.Name = " Th" & ChrW(225) & "ng" & " " & Sheet1.Range(" D1") & " -" & " N" & ChrW(259) & "m " & Sheet1.Range(" D2")) Then

           Checkdungsai = True

           Exit Function

     End If

 Next

End Function

kiểm tra nếu có thì không thêm còn có rồi thì thông báo 

Bạn xem code mẫu nhé:

Thầy ơi!!vậy là mình viết function hả thầy? nếu vậy mình phải gọi nó mới ra hả thầy?

em chưa biết cách này!!!thầy có thể coppy nó vào file e giúp em để e học hỏi đc ck ạ!!!!

code ở trên đó bạn có thể copy vào và dựa theo ảnh để chép vào file cho nhớ

dạ ok thầy e làm được rồi!!!!! e cám ơn thầy!!!!Mình qua file 2 nhe thầy!!!

File thứ 2 của bạn đang gặp lỗi thế nào?

https://drive.google.com/file/d/10z3I...

Như thế này ạ!!!file e có gửi link trc

dạ như mong mún là 26 rồi tới 27 ổ dóng dưới là S T C nên e gộp!!!mà gộp thì co dãn nó  nhảy tới 29 lun ( e mong mún là 26 rùi tới 27)

Trường hợp em giờ làm the nào vậy thầy ơi!

Chào bạn bạn thử với code sau nhé để tạo lịch

Option Explicit

Sub Tinhtoanlich()
    Dim Arr(), i&, J&, Nam As String, Thang As String
    Nam = "2020"
    Thang = "12"
            Sheet1.Range("F2:CT2").ClearContents
            Arr = Sheet1.Range("F2:CTA2").Value
            J = 1
            For i = 1 To 91 Step 3
               If Day(DateSerial(Nam, Thang, J)) <= 3 And J >= 28 Then
                    Arr(1, i) = ""
                Else
                    Arr(1, i) = DateSerial(Nam, Thang, J)
                End If
                J = J + 1
            Next i
            Sheet1.Range("a2").Resize(1, 91) = Arr
End Sub

em chưa hiểu đoạn code này thầy ơi!

Đoạn code này là đoạn code để chạy ngày mà nó cách nhau 3 đơn vị, bạn thêm code nữa đánh số S-C-T vào các ô tương tứng nhé.

thầy chạy ok k  sao e nó lỗi thầy ơi!!!vs ngày tháng cua e là  k phai nhap co dinh mà thay đổi!!!! thầy hiểu ý e hỏi k vậy thầy!!!e thấy sai sai  ^^

của mình chạy ok bạn nó tạo ra ngày tháng cách nhau 3 ô, phần tháng cố định bạn truyền vào biến nó tự thay đổi

thay oi thầy chup jup e cái thầy chạy o kdc k e bị lỗi T_T

Mình để thế  Sheet là Sheet1 và định dạng ngày tháng dd

thầy ơi!!!do bài toán của e là mình nhập vào tháng năm ( ví dụ tháng 12 năm 2020) thì ngày sẽ chạy từ 25/11 đến 24 tháng 12 á thầy!!!!nên trong file e gửi thầy mới xử lý như vậy!!!TH của thầy thì xử lý sao ạ!!!với mục tiêu của em là khi nhập vào  tháng 2 năm 2021 chẳng hạn thì nó sẽ tính ra đc tháng này có bao nhieu ngày .data sẽ tự auto fill từ ngày bắt đầu  + số ngày trong tháng nên khi nhap vào tháng du lieu sẽ tự chạy theo!!!

Chào bạn vạy bạn phải thay đổi lại phần tính ngày phần này 

Arr(1, i) = DateSerial(Nam, Thang, J)

cho phù hợp với bên bạn

thầy giúp e làm trên file gửi lại e với!!!chỗ này khó quá e làm k đc