Xin các anh giúp giùm mã code cho nút nhập liệu (1 người xem)

[hungdung2]

Em tên Dũng là thành viên mới . Em đã tạo được userform .nhưngvem không biết viết code cho nút nhập liệu . Em nhờ các anh giúp giùm cho em mã code vào nút nhập liệu ,để khi nhấp vào nút đó dữ liệu lấy từ textbox 1 vào ô c3 ,textbox2 vào ô c6 ,textbox3 vào ô c7 lần lượt điền vào file execl và quan trọng là khi nhập lần 2 dữ liệu củng bắt như vậy nhưng cách đó 12 dòng và tiếp tục như vậy khi nhập lần kế tiếp. Cám ơn nhiều

 

[SA_DQ]

Bạn gởi đứa con tinh thần của bạn lên đi!

 

[Thong Hoang Tien 250691]

Bạn cần đính kèm file và ghi rõ yêu cầu trong file thì mọi người mới giúp bạn được.

 

[hungdung2]

Cám ơn 2 bạn mình đang dùng điện thoại để tham gia diễn đàn.Tài liệu mà mình nhờ diễn đàn giúp mình bỏ ở công ty .Thứ 2 khi đi làm lại mình sẽ kèm file lên .Rất mong các bạn giúp giùm

 

[selves037]

Cám ơn 2 bạn mình đang dùng điện thoại để tham gia diễn đàn.Tài liệu mà mình nhờ diễn đàn giúp mình bỏ ở công ty .Thứ 2 khi đi làm lại mình sẽ kèm file lên .Rất mong các bạn giúp giùm

Bạn phải gửi file lên và ghi rõ yêu cầu những dòng trên userform cần nhập liệu vào đâu trên sheet cụ thể thì mọi người mới hướng dẫn giúp bạn được

 

[hungdung2]

Bạn gởi đứa con tinh thần của bạn lên đi!

C

Bạn gởi đứa con tinh thần của bạn lên đi!

Cám ơn bạn nhiều nha sau 1 ngày suy nghỉ mình đã tìm ra cách giải quyết vấn đề.Mình mới tìm hiểu về VBA nên chưa biết nhiều .Sau này có khó khăn gì xin nhờ diễn đàn giúp đỡ
Cám ơn nhiều!

Bài đã được tự động gộp: 6/8/18

Bạn phải gửi file lên và ghi rõ yêu cầu những dòng trên userform cần nhập liệu vào đâu trên sheet cụ thể thì mọi người mới hướng dẫn giúp bạn được

Cám ơn bạn nhiều nha sau 1 ngày suy nghỉ mình đã tìm ra cách giải quyết vấn đề.Mình mới tìm hiểu về VBA nên chưa biết nhiều .Sau này có khó khăn gì xin nhờ diễn đàn giúp đỡ
Cám ơn nhiều!

 

[be_09]

C

Cám ơn bạn nhiều nha sau 1 ngày suy nghỉ mình đã tìm ra cách giải quyết vấn đề.Mình mới tìm hiểu về VBA nên chưa biết nhiều .Sau này có khó khăn gì xin nhờ diễn đàn giúp đỡ
Cám ơn nhiều!

Bài đã được tự động gộp: 6/8/18

Cám ơn bạn nhiều nha sau 1 ngày suy nghỉ mình đã tìm ra cách giải quyết vấn đề.Mình mới tìm hiểu về VBA nên chưa biết nhiều .Sau này có khó khăn gì xin nhờ diễn đàn giúp đỡ
Cám ơn nhiều!

Góp ý cho bạn:
1/ Sao lại nói là đã suy nghĩ và đã tìm ra cách giải quyết, thì làm sao học hết được kiến thức của mọi thành viên trên diễn đàn.
2/ Chỉ nên dùng UserForm khi cần tra cứu để nhập liệu nhiều thứ cùng lúc.
3/ Nếu tôi làm thì thế này:
- Làm 1 sheet mẫu như bài 1, gõ nội dung cần vào sheet mẫu sau khi in xong thì lưu nội dung vào sheet theo dõi.
- Hoặc theo ý của bạn thì dùng sheet mẫu khi gõ nội dung xong thì gán nguyên cái mẫu này vào sheet theo dõi (cách 12 dòng thì gán tiếp tục cho mẫu khác), cách làm này là dỡ nhất. Vì, muốn truy vấn lãi cái mẫu đó hoặc cần tổng hợp cái gì đó thì khó khăn vô cùng.

 

[Thong Hoang Tien 250691]

1/ Sao lại nó là đã suy nghĩ và đã tìm ra cách giải quyết, thì làm sao học hết được kiến thức của mọi thành viên trên diễn đàn.

Thôi thì bạn ấy tìm được cách âu cũng là cái tốt anh ạ. còn việc bạn muốn học thế nào anh chỉ góp ý được thôi chứ làm sao quản được ?
Đến bây giờ vẫn chưa có file nào được đăng lên thì em nghĩ nên dừng thảo luận ở đây được rồi.

 

[be_09]

Thôi thì bạn ấy tìm được cách âu cũng là cái tốt anh ạ. còn việc bạn muốn học thế nào anh chỉ góp ý được thôi chứ làm sao quản được ?
Đến bây giờ vẫn chưa có file nào được đăng lên thì em nghĩ nên dừng thảo luận ở đây được rồi.

Bài 7 anh cũng nêu rõ rồi "Góp ý cho bạn". Thì có nghĩa là tôi hiểu, tôi biết và cũng đã có lời giải cho từng nội dung và đưa ra lời góp ý để mở cho họ thêm 1 hướng đi mới, nếu họ không thích, không cần thì tùy họ.
Mọi người hỏi và tự làm được thì cũng nên đưa cái thành quả đó lên để thành viên nào cần thì có thể tham khảo cách làm, chứ không phải khi cần thì vào hỏi, khi làm được rồi thì giấu nó đi, nếu thành viên nào cũng có tính cách này thì sẽ có người hỏi chứ không có người giúp.

 

[hungdung2]

Thôi thì bạn ấy tìm được cách âu cũng là cái tốt anh ạ. còn việc bạn muốn học thế nào anh chỉ góp ý được thôi chứ làm sao quản được ?
Đến bây giờ vẫn chưa có file nào được đăng lên thì em nghĩ nên dừng thảo luận ở đây được rồi.

Xin lỗi mọi người vì hôm nay mình đi làm nên không vào diễn đàn để xem tin.Va mình củng mới gia nhập diễn đàn nên không hiểu rõ cách thức như thế nào . Vì mình không biết nhiều về VBA nên củng làm theo kiểu chấp vá.Vậy để tối khi về nhà mình sẽ úp lên diễn đàn và nhờ mọi người góp ý thêm

Bài đã được tự động gộp: 6/8/18

Xin lỗi mọi người vì hôm nay mình đi làm nên không vào diễn đàn để xem tin.Va mình củng mới gia nhập diễn đàn nên không hiểu rõ cách thức như thế nào . Vì mình không biết nhiều về VBA nên củng làm theo kiểu chấp vá.Vậy để tối khi về nhà mình sẽ úp lên diễn đàn và nhờ mọi người góp ý thêm

Mình rất thích diễn đàn này .Qua đây mình củng học thêm được nhiều kiến thức.Mong bạn đừng trách mình vì mình là thành viên mới gia nhập không hiểu rỏ cách thức của diễn đàn .Sau này xin mọi người chỉ dẫn nhiều hơn

 

[hungdung2]

đây là những gì mình suy nghỉ ra mong mọi người góp ý thêm
vì mình không biết nhiều về vba .đây là lần đầu tiên mình viết userfofm có gì không đúng xin mọi người chỉ dẫn thêm

Option Explicit

Sub OPEN_FORM2()

UserForm2.Show

End Sub

Ở trên là code gọi usrform







Option Explicit

Private Sub CBNL1_Click() ' đây là code gán vào nút nhập 1

Dim I As Long

ActiveCell.Value = TBPN.Text

ActiveCell.Offset(3, 0) = TBS.Text

ActiveCell.Offset(4, 0) = TBQ.Text

Dim e As Control

For Each e In Me.Controls

If TypeName(e) <> "" Then

TBPN.Text = ""

TBS.Text = ""

TBQ.Text = ""

End If

Next e

TBPN.SetFocus

ActiveCell.Offset(4, 0).Select

End Sub





Private Sub CBNL2_Click() 'đây là code gán vào nút nhập 2

Dim I As Long

ActiveCell.Offset(12, 0) = TBPN.Text

ActiveCell.Offset(15, 0) = TBS.Text

ActiveCell.Offset(16, 0) = TBQ.Text

Dim e As Control

For Each e In Me.Controls

If TypeName(e) <> "" Then

TBPN.Text = ""

TBS.Text = ""

TBQ.Text = ""

End If

Next e

TBPN.SetFocus

ActiveCell.Offset(16, 0).Select

End Sub



Private Sub CBD_Click()' đây là code gán vào nút đóng

Unload Me



End Sub

 

[befaint]

@chủ thớt.
. Viết hoa thế kia là vi phạm nội quy. Đọc nội quy, sửa luôn và ngay.
. Phần code, công thức thì cho vào thẻ code ấy. Tìm trong khung trả lời có mục chèn cái đó.

 

[hungdung2]

@chủ thớt.
. Viết hoa thế kia là vi phạm nội quy. Đọc nội quy, sửa luôn và ngay.
. Phần code, công thức thì cho vào thẻ code ấy. Tìm trong khung trả lời có mục chèn cái đó.