Add buttion click trong vba (1 người xem)

[minhtriga]

Em đang viết code thống kê cốt thép đến đoạn này thì bí mong mọi người giúp đỡ.Em muốn là khi click vào buttion nó sẽ ghi vào ô các giá trị đã nhập và khi add tiếp thì nó ghi vào ô tiếp theo.Nếu được thì xin mọi người hướng dẫn em cách delete ô nhập nếu như mình muốn xoá.Em mới học VBA mong mọi người giúp đỡ !!!!

 

[Quang_Hải]

Em đang viết code thống kê cốt thép đến đoạn này thì bí mong mọi người giúp đỡ.Em muốn là khi click vào buttion nó sẽ ghi vào ô các giá trị đã nhập và khi add tiếp thì nó ghi vào ô tiếp theo.Nếu được thì xin mọi người hướng dẫn em cách delete ô nhập nếu như mình muốn xoá.Em mới học VBA mong mọi người giúp đỡ !!!!

Thì viết code cho nó lấy dư liệu vừa nhập rồi tìm ô sát cuối có dữ liệu ghi thông tin đó vào.

 

[Hoàng Trọng Nghĩa]

Em đang viết code thống kê cốt thép đến đoạn này thì bí mong mọi người giúp đỡ.Em muốn là khi click vào buttion nó sẽ ghi vào ô các giá trị đã nhập và khi add tiếp thì nó ghi vào ô tiếp theo.Nếu được thì xin mọi người hướng dẫn em cách delete ô nhập nếu như mình muốn xoá.Em mới học VBA mong mọi người giúp đỡ !!!!

Bạn không đưa file lên thì khó có thể thực hiện được như cách mà anh quanghai1969 đã trả lời.

 

[minhtriga]

Thì viết code cho nó lấy dư liệu vừa nhập rồi tìm ô sát cuối có dữ liệu ghi thông tin đó vào.

Anh có thể hướng dẫn cụ thể hơn được ko ạ,tại em mới học nên chưa hiểu lắm.Mong anh giúp đỡ ạ!!Cụ thể bài làm của em như hình dưới,em muốn khi mình bấm add thì nó sẽ ghi số liệu vào mấy ô trên excel đó ạ.Cám ơn anh nhiều

 

[Quang_Hải]

Anh có thể hướng dẫn cụ thể hơn được ko ạ,tại em mới học nên chưa hiểu lắm.Mong anh giúp đỡ ạ!!Cụ thể bài làm của em như hình dưới,em muốn khi mình bấm add thì nó sẽ ghi số liệu vào mấy ô trên excel đó ạ.Cám ơn anh nhiềuView attachment 121407

Thử thế này xem kết quả
Sub abc
[A65536].end(3).offset(1)=userform1.textbox1.value
End Sub

 

[phucbugis]

Thử thế này xem kết quả
Sub abc
[A65536].end(3).offset(1)=userform1.textbox1.value
End Sub

chào bác,
khi điền số liệu theo kiểu xlUp, để tránh sai sót thì phải xác định vị trí cuối cùng của 1 vùng chứ ko đơn giản là 1 cột (--> có thể dùng phương thức Find)

 

[Quang_Hải]

chào bác,
khi điền số liệu theo kiểu xlUp, để tránh sai sót thì phải xác định vị trí cuối cùng của 1 vùng chứ ko đơn giản là 1 cột (--> có thể dùng phương thức Find)

Ai biết đâu. Chủ topic chỉ cần hướng đi thôi chứ có file cụ thể đâu. Mà nếu có sai thì chủ topic chịu chứ có ảnh hưởng vì mình đâu. Chơi cho vui thôi mà. Mấy vụ tránh sai sót gì đó thì mình hỏng biết à nghen.

 

[minhtriga]

Thử thế này xem kết quả
Sub abc
[A65536].end(3).offset(1)=userform1.textbox1.value
End Sub

Anh có thể hướng dẫn cụ thể hơn nội dung của code này ko ạ,em đọc ko hiểu lắm :3, em mới học nên còn gà mong anh giúp đỡ.Cám ơn nhiều ạ

 

[Quang_Hải]

Anh có thể hướng dẫn cụ thể hơn nội dung của code này ko ạ,em đọc ko hiểu lắm :3, em mới học nên còn gà mong anh giúp đỡ.Cám ơn nhiều ạ

Không có file thì đừng hy vọng có ai viết code nhá. Viết vào đâu? Dựa vào điều kiện gì để viết?

 

[minhtriga]

Không có file thì đừng hy vọng có ai viết code nhá. Viết vào đâu? Dựa vào điều kiện gì để viết?

Anh thông cảm em ko biết post file trên này sao nữa.em post lên mediafile anh xem giúp em với http://www.mediafire.com/view/4kn7nj7r17ar9ma/lap_trinh.xlsm , trong file trên đấy ạ

 

[siwtom]

Anh thông cảm em ko biết post file trên này sao nữa.em post lên mediafile anh xem giúp em với http://www.mediafire.com/view/4kn7nj7r17ar9ma/lap_trinh.xlsm , trong file trên đấy ạ

Tôi không muốn tham gia chủ đề này. Lý do? Nếu bập vào rồi có yêu cầu sửa giúp code, tối ưu v...v thì mất thời gian lắm.

Vậy tôi chỉ chỉ cho bạn chỗ cần sửa để mỗi lần đập dữ liệu xuống sheet thì vào những dòng liên tiếp.

Hiện thời ở đầu Sub CommandButton3_Click bạn có

Dim i As [B][COLOR=#ff0000]Byte[/COLOR][/B]
i = [B][COLOR=#ff0000]10[/COLOR][/B]

Bạn thay 2 dòng trên thành

Dim i As [COLOR=#ff0000]Long[/COLOR]
i = [COLOR=#ff0000][A65536].End(xlUp).Row + 1[/COLOR]
Range("A" & i).Value = i - 9

Bạn không thể khai báo i kiểu BYTE được vì kiểu BYTE chỉ lấy giá trị từ 0 tới 255 mà chỉ số dòng của bạn có thể > 255.

Ngoài ra tôi thấy CommandButton4 dùng để xóa dữ liệu, còn CommandButton3 dùng để nhập liệu. Vậy thì trong Sub CommandButton3_Click ở dòng cuối cùng (trước End Sub) nên gọi CommandButton4_Click để xóa các dữ liệu vừa đập xuống sheet để sẵn sàng nhập dữ liệu mới.

Private Sub CommandButton3_Click()
Dim i As Long
    i = [A65536].End(xlUp).Row + 1
    Range("A" & i).Value = i - 9
    '    code cũ của bạn
    
    CommandButton4_Click
End Sub

Tôi chỉ giúp bạn thế thôi. Vì chuyện nhập dữ liệu luôn đi kèm với kiểm tra dữ liệu. Những dữ liệu nào bắt buộc phải nhập không được để trống? Thế nếu ô là số lượng mà người ta nhập chuỗi thì sao? Vân vân và vân vân

Nhưng tôi biết là nếu bập vào thì có khi bị yêu cầu làm từ A tới Z + thêm vài bước nữa.