Form nhập liệu theo cột và thứ tự từ trên xuống? (1 người xem)

[hoatinhyeu862000]

Như tiêu đề mong a chị tạo hộ e code nhập liệu ở ô M1, M2 khi đánh vào đó thì nó sẽ tự động nhập vào 2 cột mã hàng và số lượng J,K theo thứ tự từ trên xuống dưới nếu ô đã có số như trong ví dụ thì nó sẽ tiếp tục offset vào dòng tiếp theo.
Ví dụ: M1 đánh 123 enter -> M2 đánh 333 - > enter thì nó sẽ tự động ghim vào 2 dòng J,K và sau phím enter cuối cùng M1, M2 tự động xóa trắng và con trỏ ở ô M1 để tiếp tục nhập.
Em cảm ơn

 

[phulien1902]

Như tiêu đề mong a chị tạo hộ e code nhập liệu ở ô M1, M2 khi đánh vào đó thì nó sẽ tự động nhập vào 2 cột mã hàng và số lượng J,K theo thứ tự từ trên xuống dưới nếu ô đã có số như trong ví dụ thì nó sẽ tiếp tục offset vào dòng tiếp theo.
Ví dụ: M1 đánh 123 enter -> M2 đánh 333 - > enter thì nó sẽ tự động ghim vào 2 dòng J,K và sau phím enter cuối cùng M1, M2 tự động xóa trắng và con trỏ ở ô M1 để tiếp tục nhập.
Em cảm ơn

Bạn thử với:

Sub abc()
    Dim m1 As Double
    Dim m2 As Double
    m1 = Cells(1, 13).Value
    m2 = Cells(2, 13).Value
    Cells(Rows.Count, 10).End(3).Offset(1, 0).Resize(1, 2) = Array(m1, m2)
    Range("M1:M2") = ""
End Sub

 

[hoatinhyeu862000]

Bạn thử với:

Sub abc()
    Dim m1 As Double
    Dim m2 As Double
    m1 = Cells(1, 13).Value
    m2 = Cells(2, 13).Value
    Cells(Rows.Count, 10).End(3).Offset(1, 0).Resize(1, 2) = Array(m1, m2)
    Range("M1:M2") = ""
End Sub

K được bác ạ bác thử giúp e chọn vẹn file xem sao ạ

 

[hoatinhyeu862000]

e gửi file đã đính kèm code của bác nhưng k đc bác xem lại giúp ạ

 

[phulien1902]

K được bác ạ bác thử giúp e chọn vẹn file xem sao ạ

Bạn xem File đính kèm

 

[hoatinhyeu862000]

code của bác phải thêm 1 nút để click chạy code và khi enter thì nó cứ chạy tiếp chứ k về lại ô M1 như dự tính mong bác giúp đỡ sao cho chỉ cần enter k cần dùng chuột và trỏ về M1 như đang có:
Thứ tự: nhập M1 -> enter xuống M2 nhập xong -> enter tự động nhập vào ô và quay con trỏ lại M1 ạ.

 

[hoatinhyeu862000]

Bạn xem File đính kèm

File này thì cũng đúng như e đã gửi rồi ạ.

 

[phulien1902]

File này thì cũng đúng như e đã gửi rồi ạ.

Thay vì mỗi lần nhập liệu bạn lại phải nhấn nút( hơi bất tiện?). Vì vậy tôi gửi bạn File mới chỉ cần nhập liệu thôi.

 

[hoatinhyeu862000]

Chuẩn rồi bác ạ nhưng còn 1 vấn đề nho nhỏ thôi bác, sao nó không tự động quay về M1 nhỉ bác e có tìm 1 file cũng giống bác nhưng nó về 1 nhưng e nói thật là e chẳng hiểu gì cả nên nhờ bác giúp nốt ạ
e gửi kèm đây ạ. bác xem fix hộ e chỗ quay lại M1 ý ạ. Cảm ơn bác nhiều
e có thêm dòng này
Range("M1").Select nhưng k hiểu sao nó chỉ cho chạy nguyên ở ô số 1 mà k cho chạy xuống dưới.

 

[phulien1902]

Chuẩn rồi bác ạ nhưng còn 1 vấn đề nho nhỏ thôi bác, sao nó không tự động quay về M1 nhỉ bác e có tìm 1 file cũng giống bác nhưng nó về 1 nhưng e nói thật là e chẳng hiểu gì cả nên nhờ bác giúp nốt ạ
e gửi kèm đây ạ. bác xem fix hộ e chỗ quay lại M1 ý ạ. Cảm ơn bác nhiều
e có thêm dòng này
Range("M1").Select nhưng k hiểu sao nó chỉ cho chạy nguyên ở ô số 1 mà k cho chạy xuống dưới.

Bạn thêm dòng:

Range("M1").Select

là chuẩn rồi. Tôi không hiểu ý bạn nói " nó k chạy xuống dưới" là thế nào nữa.

 

[hoatinhyeu862000]

à e làm đc rồi bác a nhưng có 1 vấn đề nhỏ nữa thôi là tại sao khi nhập xong dòng M1 thì e phải enter 2 lần mới đc bác fix giúp e nhé

 

[Ba Tê]

à e làm đc rồi bác a nhưng có 1 vấn đề nhỏ nữa thôi là tại sao khi nhập xong dòng M1 thì e phải enter 2 lần mới đc bác fix giúp e nhé

Bạn hỏi hơi bị nhiều chỗ.
http://www.giaiphapexcel.com/forum/...ờ-a-chị-viết-hộ-công-thức&p=725608#post725608
Hỏi rồi không xem lại bài của mình

 

[hoatinhyeu862000]

ôi e xin lôi e k để ý ạ xin lỗi a

 

[phulien1902]

à e làm đc rồi bác a nhưng có 1 vấn đề nhỏ nữa thôi là tại sao khi nhập xong dòng M1 thì e phải enter 2 lần mới đc bác fix giúp e nhé

Vì bạn thêm dòng:

Range("M1").Select

không đúng chỗ.
Cách sửa:
+ Bạn thêm dòng Range("M1").Select vào dưới chữ Sub abc
+ Xóa dòng đó ở Sheet1
Xong.