Tìm kiếm và sửa dữ liệu nhập

Liên hệ QC

hoc341992

Thành viên chính thức
Tham gia
27/7/17
Bài viết
77
Được thích
5
Giới tính
Nam
anh chị giúp em làm ô tìm kiếm dữ liệu nhập theo Time,PhoneName,imei. Tiện thể cho em hỏi sao mỗi lần e mở file excel này của e lên nó lại hiện lên thông báo này vậy
nhờ anh chị giúp em

Untitled111.png
 

File đính kèm

  • quynhnhi.xlsm
    22 KB · Đọc: 9
Lần chỉnh sửa cuối:
mình lưu ở 2 định dạng file: Excel Macro - Enabled Workbook và Excel Macro - Enabled Template đều bị lỗi bạn ơi :((
 
em muốn tạo ô tìm kiếm để thao tác cho nhanh hơn anh, em bên sửa chữa kỹ thuật điện thoại muốn mày mò để làm cái này mong a giúp
Bạn xem tạm file này, tìm kiếm mỗi điều kiện là 1 ô, đâu thể nhập loạn lên rồi tìm như Google.
 

File đính kèm

  • quynhnhi.xlsm
    22.4 KB · Đọc: 21
hay quá anh, em chỉ cần như vậy thôi. tks a Ba Tê nhiều lắm
cho em hỏi 1 xíu nữa nha, dùng IF cho cột ngày tháng năm, khi có dữ liệu nhập từ ô PhoneName thì ngày tháng năm sẽ tự động điền vào ngày hiện tại. Nhưng ngặt nỗi qua ngày hôm sau thì ngày tháng của dữ liệu nhập hôm trước nó cập nhật thành ngày hôm nay luôn.
 
Anh chị giúp em code thời gian với, khi mình nhập liệu cho ô PhoneName thì thời gian hiện tại sẽ tự động điền vào ô Time. Nhưng qua ngày hôm sau thì không được cập nhật thời gian lại. em cảm ơn
 

File đính kèm

  • quynhnhi (2).xlsm
    49.6 KB · Đọc: 3
giúp em với mấy anh chị
 
giúp em với mấy anh chị
Bạn làm được 1 "phần mềm hoành tráng" mà sao có chuyện nhỏ vậy lại "tắt"?

1/ "XỔ NHẬP..." mới đọc thấy lần đầu, tra tự điển tiếng Việt không thấy.
2/ "SEACH" tự điển tiếng Việt lẫn tiếng Anh cũng dò không ra.
3/ Bạn đã làm được 1 cái Form "NHẬP PHIẾU" với các lệnh như vầy:
PHP:
Private Sub btnInsert_Click()
        Dim dong_cuoi As Long
        dong_cuoi = Sheet1.Range("i8000").End(xlUp).Row + 1
        With Sheet1
            .Range("i" & dong_cuoi) = TxtPhoneName.Text
            .Range("j" & dong_cuoi) = TxtImei.Text
            .Range("k" & dong_cuoi) = TxtNote.Text
            .Range("l" & dong_cuoi) = TxtPhone.Text
            .Range("m" & dong_cuoi) = TxtReceiver.Text
            .Range("n" & dong_cuoi) = TxtSst.Text
        End With
End Sub
Thử thêm 1 dòng lệnh này nữa xem sao:
PHP:
.Range("H" & dong_cuoi) = Date
 

File đính kèm

  • Xo_Seach.jpg
    Xo_Seach.jpg
    74.9 KB · Đọc: 13
Lần chỉnh sửa cuối:
Bạn làm được 1 "phần mềm hoành tráng" mà sao có chuyện nhỏ vậy lại "tắt"?

1/ "XỔ NHẬP..." mới đọc thấy lần đầu, tra tự điển tiếng Việt không thấy.
2/ "SEACH" tự điển tiếng Việt lẫn tiếng Anh cũng dò không ra.
3/ Bạn đã làm được 1 cái Form "NHẬP PHIẾU" với các lệnh như vầy:
PHP:
Private Sub btnInsert_Click()
        Dim dong_cuoi As Long
        dong_cuoi = Sheet1.Range("i8000").End(xlUp).Row + 1
        With Sheet1
            .Range("i" & dong_cuoi) = TxtPhoneName.Text
            .Range("j" & dong_cuoi) = TxtImei.Text
            .Range("k" & dong_cuoi) = TxtNote.Text
            .Range("l" & dong_cuoi) = TxtPhone.Text
            .Range("m" & dong_cuoi) = TxtReceiver.Text
            .Range("n" & dong_cuoi) = TxtSst.Text
        End With
End Sub
Thử thêm 1 dòng lệnh này nữa xem sao:
PHP:
.Range("H" & dong_cuoi) = Date
đa tạ pro :D
 
Tới đây cũng lầy rồi :D Nhờ mấy anh giúp tiếp em cái này nữa, em cảm ơn mọi người trước ạ:
em muốn tại sheet1 IN PHIẾU thì những thông tin trong phần in phiếu sẽ lưu thông tin ở sheet2 và đồng thời có ở phần thông tin bảng in em làm sẵn để in ra máy in, trân thành cảm ơn các anh chị
 

File đính kèm

  • XOSUACHUA ing.xlsm
    106.5 KB · Đọc: 9
Tới đây cũng lầy rồi :D Nhờ mấy anh giúp tiếp em cái này nữa, em cảm ơn mọi người trước ạ:
em muốn tại sheet1 IN PHIẾU thì những thông tin trong phần in phiếu sẽ lưu thông tin ở sheet2 và đồng thời có ở phần thông tin bảng in em làm sẵn để in ra máy in, trân thành cảm ơn các anh chị
Bạn tham khảo File bài viết ở Link sau để hiểu rõ và ứng dụng vào công việc của bạn:
http://www.giaiphapexcel.com/dienda...thuốc-nơi-phòng-khám-bệnh.126073/#post-802703
 
Web KT
Back
Top Bottom