Cần làm giúp 1 file Excel nhập dữ liệu hàng ngày vào 1 sheet Data

Liên hệ QC
G

giang127

Thành viên hoạt động
Tham gia
24/12/07
Bài viết
138
Được thích
8
step1.JPG

Em đang cần làm 1 file Excel để nhập dữ liệu hàng ngày vào 1 sheet Data các dữ liệu của khách hàng theo như hình trên.
Để nhập thêm khách hàng thì ấn "Thêm mới"
Sau đó dữ liệu sẽ chuyển về các ô tương ứng như ở hình dưới.
Sau khi ấn thêm mới thì dữ liêu các ô nhập khách hàng này sẽ Xoá trắng và để nhập cho các khách mới tiếp theo


step2.JPG

Các khách hàng thứ 2, 3 .... sẽ nằm tiếp vào các dòng STT 2, 3 như hình trên ở Sheet Data.
Bác nào giúp em làm file này với. -=.,,-=.,,-=.,,

P/S: Nhân tiện có thể giúp em làm thao tác ngược lại được không, như ở sheet Chinhsua
Tức là Xoá những khách hàng cũ nếu ko là khách nữa, hoặc chỉnh sửa 1 vài thông tin tên tuổi của họ |||||

Mời các bác xem trong file đính kèm
 

File đính kèm

Mình hỏi thêm tí là trong bãng nhập liệu Phần Thông Tin, mục Tên nhập vào cột nào của bảng Data1 vậy bạn?
Mong tin

Làm đại cho bạn form nhập liệu, chỉnh sửa, xoá, xem dữ liệu.
Bạn xem file đính kèm nhe.
 

File đính kèm

Chỉnh sửa lần cuối bởi điều hành viên:
domfootwear đã viết:
Mình hỏi thêm tí là trong bãng nhập liệu Phần Thông Tin, mục Tên nhập vào cột nào của bảng Data1 vậy bạn?
Mong tin
Nhấp chuột vào đây để mở rộng...

Mục tên nhập vào "Tên KH" đó bạn.
Cảm ơn bạn vì đã reply nhanh vậy, tớ đang ngâm cứu file của bạn. Cảm ơn 1 lần nữa và chúc bạn 1 ngày tốt lành }}}}}
 
Cần nâng cao file "Form nhập liệu"

Chào bạn Doomfootwear

File "Form nhập liệu" mẫu của bạn t muốn cải tiến nó thêm chút xíu, bạn giúp mình nhé

1. là, mình thử làm 1 User form gống của bạn nhưng ko hỉu sao ko làm được chức năng đánh chữ trên ô text box và tìm tên dưới List box giống như của bạn, bạn giải thích hoặc sửa lại giúp mình được ko, trong cái User form mới ấy

>> Minh hoạ - Ảnh 1

2. là, trong cái Tab "Tai khoan KH", phần dưới sẽ hiện mỗi số "Tài khoản" ở bên Tab thông tin thôi. Để khi mình ấn đăt lệnh thì nó ghi Số tài khoản Khách hàng vào Cột "B"
- Mỗi lần nhập 1 lệnh cần đầy đủ: tick vào phần "Mua" hoặc "Bán" & 4 ô: Khối lượng, mã, giá, ngày
- Sau khi đặt lệnh thì Cột "C" - Nôi dung ghi ra là. Mua (bán) mã nào khối lượng, giá bao nhiu

>> Minh hoạ - Ảnh 2


P/S: Ô "Ngày" trong Tab "Tai khoan KH" làm sao để lấy được ngày tự động trong máy dạng "dd/mm/yyyy " hả bạn ?


Cảm ơn bạn và chúc 1 ngày tốt lành ! %#^#$%#^#$%#^#$
 

File đính kèm

!$@!!!$@!!!$@!!!$@!! Giúp tớ với, ai giúp với ................
 
Bạn có thể giải thích dùm mình code VBA để cho khi điền text thì nó search trong list box được không. Mình làm y hệt mà nó ko dò tìm. (Như trong file). Giúp mình nhé
 
giang127 đã viết:
Bạn có thể giải thích dùm mình code VBA để cho khi điền text thì nó search trong list box được không. Mình làm y hệt mà nó ko dò tìm. (Như trong file). Giúp mình nhé
Nhấp chuột vào đây để mở rộng...
Có khác đấy bạn

Mã: 
Private Sub TextBox8_Change()
Dim [COLOR=Red]Search1 [/COLOR]         As String
    Dim n               As Long
    Dim i               As Long
    Dim j               As Long
     
    [COLOR=Red]Search [/COLOR]= Me.TextBox8.Text
    n = Len(Me.TextBox8)
    j = Me.ListBox3.ListCount - 1
    For i = 0 To j
        If Left(Me.ListBox3.List(i), n) = Search1 Then
            Me.ListBox3.Selected(i) = True
            Exit For
        End If
    Next
End Sub

Sửa lại thành :

Mã: 
Private Sub TextBox8_Change()
Dim Search1          As String
    Dim n               As Long
    Dim i               As Long
    Dim j               As Long
     
   [COLOR=Red][B] Search1[/B][/COLOR] = Me.TextBox8.Text
    n = Len(Me.TextBox8)
    j = Me.ListBox3.ListCount - 1
    For i = 0 To j
        If Left(Me.ListBox3.List(i), n) = Search1 Then
            Me.ListBox3.Selected(i) = True
            Exit For
        End If
    Next
End Sub

Bạn thử gõ phân biệt chữ hoa và thường nhé.
 
Cảm ơn bạn, có code nào tự động nhận ngày tháng trong máy tính ko bạn
VD theo định dạng dd/mm/yyyy
Bạn post code ý đi
 
Khi dùng cách nhập như vậy, có cách nào vẫn giữ đc các border mới ko bạn. Vì sau khi chèn dòng mới thì nó ko tự nhận các border như các dòng cũ ở trên
 
giang127 đã viết:
Cảm ơn bạn, có code nào tự động nhận ngày tháng trong máy tính ko bạn
VD theo định dạng dd/mm/yyyy
Bạn post code ý đi
Nhấp chuột vào đây để mở rộng...

Bạn dùng code sau: (Đây là dạng Text nhé)


Mã: 
TenTexBox=Format(Date, "dd/mm/yyyy")

Còn muốn lấy thẳng ngày trong máy thì khỏi format chỉ =Date là đủ, nhưng định dạng của nó lấy theo định dạng trong máy của bạn.
 
Lần chỉnh sửa cuối:
giang127 đã viết:
Khi dùng cách nhập như vậy, có cách nào vẫn giữ đc các border mới ko bạn. Vì sau khi chèn dòng mới thì nó ko tự nhận các border như các dòng cũ ở trên
Nhấp chuột vào đây để mở rộng...
Thì bạn copy định dạng ở trên đưa xuống thôi, hoặc dùng CF.

Trong nút Đặt Lệnh bạn thêm 3 dòng sau vào nhé:

Mã: 
Private Sub CommandButton2_Click()
Dim strLastRow As Integer
'Get last row
strLastRow = xlLastRow("QLGD")

With UserForm5

'If textboxes not null then fill data of textboxes to worksheet.
If (.TextBox11.Value <> vbNullString And .TextBox12.Value <> vbNullString) Then
    Cells(strLastRow + 1, 1).Value = UserForm5.TextBox12.Value
    Cells(strLastRow + 1, 4).Value = UserForm5.TextBox9.Value
    Cells(strLastRow + 1, 5).Value = UserForm5.TextBox10.Value
    Cells(strLastRow + 1, 6).Value = UserForm5.TextBox11.Value
    strLastRow = strLastRow + 1
    
    [B][COLOR=Blue]Range("A3:F3").Copy
    Range("a" & strLastRow).PasteSpecial (4)[/COLOR][/B]
   [COLOR=Blue][B] Application.CutCopyMode = False    [/B][/COLOR]
    
    UserForm1.ListBox1.RowSource = "QLGD!A2:I" & strLastRow
    'Empty textboxes
    .TextBox9.Value = vbNullString
    .TextBox10.Value = vbNullString
    .TextBox11.Value = vbNullString
    .TextBox12.Value = vbNullString
Else
    MsgBox "Vui long dien day du 4 o^ !"
        
End If
End With
[COLOR=Green][B]'Unload Me[/B][/COLOR]
End Sub
 
Lần chỉnh sửa cuối:
Code nhập lệnh vào Sheet "QLGD"

===================================================
Private Sub CommandButton1_Click()
Dim strLastRow As Integer
'Get last row
strLastRow = xlLastRow("QLGD")

With UserForm5
'If textboxes not null then fill data of textboxes to worksheet.
If (.TextBox11.Value <> vbNullString And .OptionButton1.Value = True) Then
Cells(strLastRow + 1, 1).Value = UserForm5.TextBox12.Value
Cells(strLastRow + 1, 2).Value = UserForm5.Label22.Value
Cells(strLastRow + 1, 3).Value = "Mua CP"
Cells(strLastRow + 1, 4).Value = UserForm5.TextBox9.Value
Cells(strLastRow + 1, 5).Value = UserForm5.TextBox10.Value
Cells(strLastRow + 1, 6).Value = UserForm5.TextBox11.Value
strLastRow = strLastRow + 1

Else
If .OptionButton2.Value = True Then
Cells(strLastRow + 1, 1).Value = UserForm5.TextBox12.Value
Cells(strLastRow + 1, 2).Value = UserForm5.Label22.Value
Cells(strLastRow + 1, 3).Value = "Ban CP"
Cells(strLastRow + 1, 4).Value = UserForm5.TextBox9.Value
Cells(strLastRow + 1, 5).Value = UserForm5.TextBox10.Value
Cells(strLastRow + 1, 6).Value = UserForm5.TextBox11.Value
strLastRow = strLastRow + 1
Else
MsgBox = "Vui long dien day du 5 o^ !"
End With
Unload Me
End Sub
===================================================

Bạn Doom ơi, giúp mình sửa code cho CommandButton1 với, máy báo lỗi ở mấy phần chữ đỏ.

- Ý mình là: Nếu chọn Option Button 1 (MUA) thì nó sẽ ghi vào cột C - Sheet QLGD là "Mua CP"
Nếu chọn Option Button 2 (BÁN) thì nó sẽ ghi vào cột C - Sheet QLGD là "Ban CP"
Chưa chọn thì nó báo lỗi " Vui long dien day du 5 ô !"

Và để ghi ra tên TK vào cột B nữa.

P/S: Mình cũng thử sửa search => search1 nhưng vẫn chưa đc, type vào mà vẫn ko search đc
 

File đính kèm

giang127 đã viết:
Code nhập lệnh vào Sheet "QLGD"

===================================================
Private Sub CommandButton1_Click()
Dim strLastRow As Integer
'Get last row
strLastRow = xlLastRow("QLGD")

With UserForm5
'If textboxes not null then fill data of textboxes to worksheet.
If (.TextBox11.Value <> vbNullString And .OptionButton1.Value = True) Then
Cells(strLastRow + 1, 1).Value = UserForm5.TextBox12.Value
Cells(strLastRow + 1, 2).Value = UserForm5.Label22.Value
Cells(strLastRow + 1, 3).Value = "Mua CP"
Cells(strLastRow + 1, 4).Value = UserForm5.TextBox9.Value
Cells(strLastRow + 1, 5).Value = UserForm5.TextBox10.Value
Cells(strLastRow + 1, 6).Value = UserForm5.TextBox11.Value
strLastRow = strLastRow + 1

Else
If .OptionButton2.Value = True Then
Cells(strLastRow + 1, 1).Value = UserForm5.TextBox12.Value
Cells(strLastRow + 1, 2).Value = UserForm5.Label22.Value
Cells(strLastRow + 1, 3).Value = "Ban CP"
Cells(strLastRow + 1, 4).Value = UserForm5.TextBox9.Value
Cells(strLastRow + 1, 5).Value = UserForm5.TextBox10.Value
Cells(strLastRow + 1, 6).Value = UserForm5.TextBox11.Value
strLastRow = strLastRow + 1
Else
MsgBox = "Vui long dien day du 5 o^ !"
End With
Unload Me
End Sub
===================================================

Bạn Doom ơi, giúp mình sửa code cho CommandButton1 với, máy báo lỗi ở mấy phần chữ đỏ.

- Ý mình là: Nếu chọn Option Button 1 (MUA) thì nó sẽ ghi vào cột C - Sheet QLGD là "Mua CP"
Nếu chọn Option Button 2 (BÁN) thì nó sẽ ghi vào cột C - Sheet QLGD là "Ban CP"
Chưa chọn thì nó báo lỗi " Vui long dien day du 5 ô !"

Và để ghi ra tên TK vào cột B nữa.

P/S: Mình cũng thử sửa search => search1 nhưng vẫn chưa đc, type vào mà vẫn ko search đc
Nhấp chuột vào đây để mở rộng...

Chưa thử chạy nhưng cũng thấy code bị sai rồi.
Label thì làm sao gọi là value được bạn, nó phải là .Caption chứ
Mở If thì đóng IF
Msgbox thì không nên có dấu =
Tạm sửa code của bạn như sau: Bạn tự Test nhé.

Mã: 
Private Sub CommandButton1_Click()
Dim strLastRow As Integer
'Get last row
strLastRow = xlLastRow("QLGD")

With UserForm5
'If textboxes not null then fill data of textboxes to worksheet.
  If (.TextBox11.Value <> vbNullString And .OptionButton1.Value = True) Then
    Cells(strLastRow + 1, 1).Value = UserForm5.TextBox12.Value
    Cells(strLastRow + 1, 3).Value = UserForm5[B][COLOR=Blue].Label22.Caption[/COLOR][/B]
    Cells(strLastRow + 1, 3).Value = "Mua CP"
    Cells(strLastRow + 1, 4).Value = UserForm5.TextBox9.Value
    Cells(strLastRow + 1, 5).Value = UserForm5.TextBox10.Value
    Cells(strLastRow + 1, 6).Value = UserForm5.TextBox11.Value
    strLastRow = strLastRow + 1
    
   Else
    If .OptionButton2.Value = True Then
    Cells(strLastRow + 1, 1).Value = UserForm5.TextBox12.Value
    Cells(strLastRow + 1, 3).Value = UserForm5[B][COLOR=Blue].Label22.Caption[/COLOR][/B]
    Cells(strLastRow + 1, 3).Value = "Ban CP"
    Cells(strLastRow + 1, 4).Value = UserForm5.TextBox9.Value
    Cells(strLastRow + 1, 5).Value = UserForm5.TextBox10.Value
    Cells(strLastRow + 1, 6).Value = UserForm5.TextBox11.Value
    strLastRow = strLastRow + 1
    Else
     [COLOR=Blue][B]MsgBox "Vui long dien day du 5 o^ !"
    End If
    End If[/B][/COLOR]
End With
Unload Me
End Sub

P/S: Search không được ??? Bạn thử Search phân biệt chữ hoa và thường xem nhé
 
Bạn giúp mình nốt code ghi chữ từ 1 Label nhé. VD mình đang mún ghi số Tai Khoan trong Label 22 vào cột B

P/S: Cho mình hỏi, sao phần tìm kiếm ở Ô Te xtbo x 8 lại phải đánh chữ hoa nó mới tìm vậy. Trong khi mình đã viết code y chang hg dẫn của bạn rùi.
Mình muốn đánh chữ hoa hay thường nó cũng tìm đc thì phải sửa ra sao hả bạn.

Thanks nhé %#^#$%#^#$%#^#$
 
giang127 đã viết:
Bạn giúp mình nốt code ghi chữ từ 1 Label nhé. VD mình đang mún ghi số Tai Khoan trong Label 22 vào cột B

Thanks nhé %#^#$%#^#$%#^#$
Nhấp chuột vào đây để mở rộng...

Copy code này vào nhé:

Mã: 
Private Sub CommandButton1_Click()
Dim strLastRow As Integer
'Get last row
strLastRow = xlLastRow("QLGD")

With UserForm5
'If textboxes not null then fill data of textboxes to worksheet.
  If (.TextBox11.Value <> vbNullString And .OptionButton1.Value = True) Then
    Cells(strLastRow + 1, 1).Value = UserForm5.TextBox12.Value
    [B][COLOR=Blue]Cells(strLastRow + 1, 2).Value = UserForm5.Label22.Caption[/COLOR][/B]
    Cells(strLastRow + 1, 3).Value = "Mua CP"
    Cells(strLastRow + 1, 4).Value = UserForm5.TextBox9.Value
    Cells(strLastRow + 1, 5).Value = UserForm5.TextBox10.Value
    Cells(strLastRow + 1, 6).Value = UserForm5.TextBox11.Value
    strLastRow = strLastRow + 1
    
   Else
    If .OptionButton2.Value = True Then
    Cells(strLastRow + 1, 1).Value = UserForm5.TextBox12.Value
  [COLOR=Blue][B]  Cells(strLastRow + 1, 2).Value = UserForm5.Label22.Caption[/B][/COLOR]
    Cells(strLastRow + 1, 3).Value = "Ban CP"
    Cells(strLastRow + 1, 4).Value = UserForm5.TextBox9.Value
    Cells(strLastRow + 1, 5).Value = UserForm5.TextBox10.Value
    Cells(strLastRow + 1, 6).Value = UserForm5.TextBox11.Value
    strLastRow = strLastRow + 1
    Else
     [COLOR=Blue][B]MsgBox "Vui long dien day du 5 o^ !"
    End If
    End If[/B][/COLOR]
End With
Unload Me
End Sub
 
Ảnh:

http://i220.photobucket.com/albums/dd218/giang127/sualenh.jpg

Bạn Doom ơi, mình muốn khi để chuột vào ô có lệnh đã đặt bên Sheet "QLGD" (như trong ảnh) thì các thông số về: Ngày gd, mã CK, khối lượng, Giá, Tên TK sẽ hiện lên tại các ô Text Box để mình có thể chỉnh sửa lại. (Minh họa trong File đính kèm)

Đặc biệt là ô "Ngày:" , bạn giúp mình chỉnh sửa code để có thể chỉnh sửa ngày tháng trong ô đó được không bạn

Cảm ơn bạn nhìu @$@!^%@$@!^%@$@!^%@$@!^%
 

File đính kèm

Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

N
Thử viết code lập trình đa luồng bằng TwinBasic và khả năng ứng dụng vào COM add-in chạy trong Excel
    • Thích
Trả lời
1
Đọc
216
nguyendang95
N
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
    • Cảm ơn
14 15 16
Trả lời
312
Đọc
23K
tavanluu
T
A
Kính nhờ xử lý nhập công thức hàm IF kết hợp nhiều điều kiện
Trả lời
1
Đọc
24
thuytrangbp28
T
Momominh
Hỏi công thức tìm kiếm
Trả lời
2
Đọc
22
thuytrangbp28
T
huongmuine
Điền số thứ tự theo nhóm có điều kiện
Trả lời
4
Đọc
47
huongmuine
huongmuine
Mewwo98
Thay dấu ngăn cách sau chữ số hàng nghìn, hàng triệu, hàng tỷ trong Mail Merge
Trả lời
12
Đọc
220
HeSanbi
HeSanbi
K
  • Question Question
BÀI TOÁN TÌM GIÁ USD VÀ TÌM LƯỢNG KG - NHỜ ANH/CHỊ GIÚP ĐỠ
    • Chấp nhận
Trả lời
3
Đọc
40
VetMini
V
H
Nhờ các bạn mở quá công thức của các sheet
Trả lời
3
Đọc
58
VetMini
V
Y
Không copy được dữ liệu sang sheet khac
Trả lời
12
Đọc
24K
leduchien1001
L
S
Lỗi Path/File access error:'.\VBFB.tmp'
Trả lời
10
Đọc
4K
dhtq159
D
N
Vẽ đường tròn bám theo 1 Polyline
Trả lời
4
Đọc
61
nguyenvanvien
N
T
Bảng tính trợ cấp theo Nghị định 178 và tính lương hưu
    • Thích
Trả lời
3
Đọc
143
trung_bhxh
T
GPE-Trợ Lý
KHÓA HỌC BỨT PHÁ KỸ NĂNG EXCEL
    • Thích
    • Yêu thích
Trả lời
4
Đọc
1K
GPE-Trợ Lý
GPE-Trợ Lý
OverAC
TPHCM - Gặp mặt đầu năm Ất Tỵ 18g ngày 8/2
    • Thích
    • Ngạc nhiên
Trả lời
1
Đọc
93
tungnguyen_kt
tungnguyen_kt
ptm0412
  • Question Question
Cách lấy link file excel nguồn cho Power query từ Onedrive, Google drive
    • Thích
    • Yêu thích
Trả lời
7
Đọc
3K
pxhieu1993
P
Y
Nhờ các anh chị xem giúp Hàm Sumproduct
Trả lời
0
Đọc
37
yoomi
Y
dinhnhat91
  • Question Question
VBA Lỗi runtime error 9 subscript out of range
Trả lời
4
Đọc
108
ongke0711
ongke0711
GPE-Trợ Lý
[GPE] TALK SHOW EXCEL TRONG SẢN XUẤT
    • Thích
Trả lời
1
Đọc
570
PhanTuHuong
PhanTuHuong
Việt Nguyễn 86
Excel hay bị tắt đột ngột và hiện trang trắng khi làm việc
Trả lời
0
Đọc
65
Việt Nguyễn 86
Việt Nguyễn 86
K
Mong giúp dữ liệu từ trang web sang excel
Trả lời
0
Đọc
64
khanhvinhdai1
K
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
Chúc mừng năm mới Ất Tỵ 2025
Back
Top Bottom