Giúp Code cho File nhập liệu. (1 người xem)

[Thuphuong2013]

Chào Gia đình GPE,
Đây là lần đầu tiên mình lên diễn đàn rất mong được sự giúp đỡ của các Anh, Chị.
Mình phải làm một File nhập liệu cho cửa hàng mà chưa biết viết Code
mong các Anh, Chị giúp đỡ.
Mình gửi những yêu cầu kèm trong File.
Cám ơn mọi người đã đọc bài.

 

[viehoai]

Chào Gia đình GPE,
Đây là lần đầu tiên mình lên diễn đàn rất mong được sự giúp đỡ của các Anh, Chị.
Mình phải làm một File nhập liệu cho cửa hàng mà chưa biết viết Code
mong các Anh, Chị giúp đỡ.
Mình gửi những yêu cầu kèm trong File.
Cám ơn mọi người đã đọc bài.

Đã cố đọc nhưng chẳng hiểu chi mô hết, không biết mần răng nữa
Bạn nói trình tự bạn cần nhập dữ liêu ở đâu, sau đó như thế nào?

 

[Quang_Hải]

Chào Gia đình GPE,
Đây là lần đầu tiên mình lên diễn đàn rất mong được sự giúp đỡ của các Anh, Chị.
Mình phải làm một File nhập liệu cho cửa hàng mà chưa biết viết Code
mong các Anh, Chị giúp đỡ.
Mình gửi những yêu cầu kèm trong File.
Cám ơn mọi người đã đọc bài.

Chưa giỏi excel thì tốt nhất nên làm mọi viêc trên bảng tính. Sử dụng công thức, khi cần thì có thể sửa được theo ý muốn. Mần chi cái FORM cho khổ thân

 

[Thuphuong2013]

Xin cám ơn các Anh, Chị
Trình tự là khi nhận được Fax của Khách hàng thì cần phải chuyển số liệu vào bảng tổng hợp
đúng vị trí của tên khách và mặt hàng đó ( Ví dụ Khách hàng A1 cần 02 quả bí ngô thì phải đánh 02 vào ô C5 )
mình cũng đã làm thủ công nhưng nó vừa mất thời gian lại cứ hay bị nhầm.
Rất mong các Bác cố gắng giúp.

 

[Quang_Hải]

Xin cám ơn các Anh, Chị
Trình tự là khi nhận được Fax của Khách hàng thì cần phải chuyển số liệu vào bảng tổng hợp
đúng vị trí của tên khách và mặt hàng đó ( Ví dụ Khách hàng A1 cần 02 quả bí ngô thì phải đánh 02 vào ô C5 )
mình cũng đã làm thủ công nhưng nó vừa mất thời gian lại cứ hay bị nhầm.
Rất mong các Bác cố gắng giúp.

Cũng muốn giúp 1 tay nhưng thật sự chẳng hiểu nổi bạn muốn thế nào. Dạo này đầu óc mụ mẩm quá suy đoán không ra.
Bạn cũng nên tự hỏi sao bài của bạn không ai trả lời chứ.

 

[Thuphuong2013]

Cũng muốn giúp 1 tay nhưng thật sự chẳng hiểu nổi bạn muốn thế nào. Dạo này đầu óc mụ mẩm quá suy đoán không ra.
Bạn cũng nên tự hỏi sao bài của bạn không ai trả lời chứ.

Thật làm khó Anh, Chị quá,
Mình đã trình bày lại trong file
hy vọng mọi người giúp được
Cám ơn rất nhiều.

 

[Ba Tê]

Thật làm khó Anh, Chị quá,
Mình đã trình bày lại trong file
hy vọng mọi người giúp được
Cám ơn rất nhiều.

Thử xài đỡ cái này coi sao.
Chọn khách hàng trong ô E3, nhập số lượng trong danh sách hàng hoá bên dưới, xong ấn nút <XONG>

 

[nghiaphuc]

Thật làm khó Anh, Chị quá,
Mình đã trình bày lại trong file
hy vọng mọi người giúp được
Cám ơn rất nhiều.

Bạn thích sử dụng Form thì thử cái này xem sao.
(xin mượn code kiểm soát nhập số vào textbox của anh ndu96081631 tại bài này, cảm ơn anh!)

 

[nghiaphuc]

Thử xài đỡ cái này coi sao.
Chọn khách hàng trong ô E3, nhập số lượng trong danh sách hàng hoá bên dưới, xong ấn nút <XONG>

Em xin cải tiến một chút về Sub GPE như vầy trông gọn gàng:
[GPECODE=vb]Public Sub GPE()
Dim Cll As Range
On Error Resume Next
Application.ScreenUpdating = False
Set Cll = Sheets("Tong").Range("TenKH").Find([E3].Value, lookat:=xlWhole).Offset(1)
With Range([E6], [E65000].End(xlUp))
Cll.Resize(.Rows.Count).Value = .Offset(, 1).Value
End With
Application.ScreenUpdating = True
End Sub[/GPECODE]

 

[Ba Tê]

Em xin cải tiến một chút về Sub GPE như vầy trông gọn gàng:
[GPECODE=vb]Sub GPE()
Dim Cll As Range
Application.ScreenUpdating = False
Set Cll = Sheets("Tong").Range("TenKH").Find([E3].Value, lookat:=xlWhole).Offset(1)
With Range([E6], [E65000].End(xlUp))
Cll.Resize(.Rows.Count).Value = .Offset(, 1).Value
End With
Application.ScreenUpdating = True
End Sub[/GPECODE]

Toàn lo chuyện mảng, Dic... muốn làm thử kiểu copy xem sao, rõ là quá lằng nhằng.
Hì hì...
"Mần lợi" theo kiểu đang học thôi.

 

[Thuphuong2013]

Xin cám ơn các Anh, Chị rất nhiều đã nhiệt tình giúp đỡ và đã giải quyết được vấn đề của mình.
Qua đây mình muốn hoàn thiện thêm một chút
- File của Bác Nghiaphuc Phần số lượng không đánh được dấu phảy Như 0,1 ....1,1 mà cái này tôi lại rất cần
- File của Bác Ba Tê có thể làm thêm Khi nhấn "XONG" thì nó tạo thêm một Sheet Của Khách hàng ấy, nhưng chỉ có những mặt hàng mà CÓ số lượng.
và nếu là không quá tham lam thì mình muốn làm thêm một chút như trong File gửi lại
Lần nữa xin chân thành cám ơn các Anh, Chị.

 

[nghiaphuc]

Xin cám ơn các Anh, Chị rất nhiều đã nhiệt tình giúp đỡ và đã giải quyết được vấn đề của mình.
Qua đây mình muốn hoàn thiện thêm một chút
- File của Bác Nghiaphuc Phần số lượng không đánh được dấu phảy Như 0,1 ....1,1 mà cái này tôi lại rất cần

Nếu bạn không nhập được dấu phẩy thì có nghĩa là máy bạn quy định dấu thập phân là dấu chấm. Bạn thử nhập lại dấu chấm hoặc nhập dấu thập phân bên dãy phím số xem sao.

 

[Thuphuong2013]

Nếu bạn không nhập được dấu phẩy thì có nghĩa là máy bạn quy định dấu thập phân là dấu chấm. Bạn thử nhập lại dấu chấm hoặc nhập dấu thập phân bên dãy phím số xem sao.

Cám ơn Bác, mình đã làm được với phím dấu chấm. Xin hỏi có cách nào để sử dụng phím dắu Phảy bên dãy phím số cho tiện hơn không ạ

 

[Quang_Hải]

Cám ơn Bác, mình đã làm được với phím dấu chấm. Xin hỏi có cách nào để sử dụng phím dắu Phảy bên dãy phím số cho tiện hơn không ạ

Bên dãy phím số sao lại có dấu phẩy ta? Mình chưa thấy lần nào

 

[Thuphuong2013]

Bên dãy phím số sao lại có dấu phẩy ta? Mình chưa thấy lần nào

Dạ bàn phím của mình có vậy nó nằm giữa phím 0 và Enter dưới số 3 ( Bàn phím của mình tiếng Đức )

 

[Quang_Hải]

Dạ bàn phím của mình có vậy nó nằm giữa phím 0 và Enter dưới số 3 ( Bàn phím của mình tiếng Đức )

Trên máy tính của mình thì đó là dấu chấm. Mà nếu đó là dấu phẩy thì cũng có ảnh hưởng gì đâu. Nếu code chạy theo dấu phẩy thì gõ dấu phẩy chỗ từ phím nào chắc cũng chạy mà

 

[nghiaphuc]

Dạ bàn phím của mình có vậy nó nằm giữa phím 0 và Enter dưới số 3 ( Bàn phím của mình tiếng Đức )

Thế hiện tại bạn sử dụng phím dấu phẩy đó không được à? Tôi chưa thấy cái bàn phím tiếng Đức đó bao giờ nhưng nếu sử dụng bàn phím thông thường (tiếng Anh) thì cái phím mà bạn nói đó dành riêng cho dấu thập phân và không ảnh hưởng đến việc thiết lập trong Control Panel.

 

[Thuphuong2013]

Thế hiện tại bạn sử dụng phím dấu phẩy đó không được à? Tôi chưa thấy cái bàn phím tiếng Đức đó bao giờ nhưng nếu sử dụng bàn phím thông thường (tiếng Anh) thì cái phím mà bạn nói đó dành riêng cho dấu thập phân và không ảnh hưởng đến việc thiết lập trong Control Panel.

Dạ đúng vậy, mình đánh vào không có tác động nào ( đánh 0,1 thì nó là 01... đánh vào cell thì vẫn bình thường là 0,1 ) mà phải chuyển sang dấu chấm ở dãy phím Chữ thì OK.

 

[nghiaphuc]

Dạ đúng vậy, mình đánh vào không có tác động nào ( đánh 0,1 thì nó là 01... đánh vào cell thì vẫn bình thường là 0,1 ) mà phải chuyển sang dấu chấm ở dãy phím Chữ thì OK.

Trước hết, bạn thử làm một thao tác thế này: Nhập vào 1 ô trên sheet: 3,5 (với dấu phẩy ở bên dãy phím số) xem tại ô vừa nhập có gì, cụ thể là hiện dấu phẩy hay dấu chấm, canh lề trái hay phải (tất nhiên là bạn đừng can thiệp đến việc canh lề trong ô). Mục đích của việc này là để kiểm tra xem dấu phẩy đó có thực sự là dấu thập phân hay không. Nếu dữ liệu canh phải thì nó đúng là dấu thập phân. Khi đó bạn xử lý như sau:
Nhấn Alt+F11 và double click vào FrmNhap, tiếp theo double click vào Texbox TxtSL. Trong code mà bạn nhìn thấy, bạn sửa chỗ này: "1234567890." thành "1234567890," (thay dấu chấm bởi dấu phẩy, tốt nhất là gõ đúng dấu phẩy ở dãy phím số). Sau đó thử chạy lại code xem có nhập được không.

 

[Thuphuong2013]

Trước hết, bạn thử làm một thao tác thế này: Nhập vào 1 ô trên sheet: 3,5 (với dấu phẩy ở bên dãy phím số) xem tại ô vừa nhập có gì, cụ thể là hiện dấu phẩy hay dấu chấm, canh lề trái hay phải (tất nhiên là bạn đừng can thiệp đến việc canh lề trong ô). Mục đích của việc này là để kiểm tra xem dấu phẩy đó có thực sự là dấu thập phân hay không. Nếu dữ liệu canh phải thì nó đúng là dấu thập phân. Khi đó bạn xử lý như sau:
Nhấn Alt+F11 và double click vào FrmNhap, tiếp theo double click vào Texbox TxtSL. Trong code mà bạn nhìn thấy, bạn sửa chỗ này: "1234567890." thành "1234567890," (thay dấu chấm bởi dấu phẩy, tốt nhất là gõ đúng dấu phẩy ở dãy phím số). Sau đó thử chạy lại code xem có nhập được không.

Cám ơn Bác nhiều nhiều em đã sửa lại như hướng dẫn và đánh được dấu phảy nhưng khi chuyển ( Enter ) vào <TONG > thì nó không hiện số sau dấu phảy ( 0,5 thì chỉ hiện 0, 1,9 thì chỉ hiện 1 ). Em nhập sồ vào Sheet thì canh lề phải