cần được giúp về Form đơn giản (1 người xem)

[tuanthanhtran]

em đọc bài này :

em áp dụng vào bài của em: https://drive.google.com/open?id=0B6k7cKJZedOmNlhzQ2V6WnFHNnM
kết quả nó lấy dòng cuối cùng trong bảng tính mà bắt đầu điền số liệu, nhưng em cần nó điền từ B7:N7 kết thút B39:N39
nhờ anh tư vấn code tính từ ô B7 thank ạ

 

[giaiphap]

Bạn sửa code của bạn lại thế này xem sao?

Private Sub btnInsert_Click()
    Dim dong_cuoi As Long
        dong_cuoi = Sheet1.Range("B39").End(xlUp).Row + 1
        With Sheet1
            .Range("B" & dong_cuoi).Resize(, 13) = Array(txt1, txt2, txt3, txt4, txt5, txt6, txt7, txt8, txt9, txt10, txt11, txt12, txt13)
        End With
End Sub

 

[be_09]

em đọc bài này :
kết quả nó lấy dòng cuối cùng trong bảng tính mà bắt đầu điền số liệu, nhưng em cần nó điền từ B7:N7 kết thút B39:N39
nhờ anh tư vấn code tính từ ô B7 thank ạ

Bạn vi phạm nội quy vì đăng cùng lúc 2 bài viết có cùng chủ đề:

1/ Bài này bạn đăng ngày 11/6/2017 lúc 22:41

2/ Bài này bạn đăng ngày 11/6/2017 lúc 12:31, Link ở đây:
http://www.giaiphapexcel.com/diendan/threads/giúp-mình-nhập-số-liệu-bằng-lập-trình-form.125605/

 

[Hoang2013]

Thứ nhất: Đúng là bạn cần nhờ các SMOD hay MODs xóa bớt bài đi. & lần sau không tái phạm nữa.

Thứ hai: Đẻ xài trong Excel nói chung cũng như trong VBA, các tên lớp nên có độ dài như nhau;
Ví dụ 10A 1, 10A11, 10A 2, 10A10, . . .

Tiếp theo:
1./ Để nhập từng hàng, từ dòng 7 đến dòng 39, ta nên có 1 ComboBox trên Form để chọn 1 lớp cụ thể cần nhập
Khị ta chọn 1 lớp nào đó & nhập liệu vô các cột đầy đủ. Nhập xong ta bấm 1 nút lệnh (trên Form) để lưu đúng vô dòng của lớp đó (cần nhập)
Sau đó ta lần lượt nhập đến các lớp khác;

2./ Vì chưa rõ số liệu các cột/trường trong các lớp ba động như thế nào; nếu bạn cho biết rõ; ta chuyển sang nhập nhờ trợ giúp của các ComboBox thay vì nhập như trong VIDEO
(Trong Video phải nhập tay hét 3 trường vì các lần nhập liệu đều khác hẵn nhau, không có các chung
Còn của bạn có thể có cái chung, như cột [J:j] ta chỉ nhập 0 hay -50 hay +50, +30, . . . Ý mình là danh sách số liệu cần nhập là hữu hạn, ta nên xài ComboBox.
Tất nhiêm muốn vậy bạn cần cung cấp dãi các số liệu cần nhập vô các trường/cột.

(Sẽ tiến hành giúp bạn, 1 khi bài kia (mà anh Bé đã trích dẫn) được bạn nhờ ai đó xóa đi)

 

[tuanthanhtran]

@giaiphap
em copy code vào nhập số liệu vào thì công thức sai hết, giống như nó ko hiểu số liệu em nhập dang số. mong được giúp đỡ tiếp

@Hoang2013
em nho MoD xoa topic kia rồi,
bài thực tế chưa chèn Form https://drive.google.com/open?id=0B6k7cKJZedOmOXh6TmxIRGNKSVU
- Từ file em gởi anh làm dùm em dc ko ạ, em ko biết gì về VBA e thấy nó rút ngắn thời gian và tiện lợi nên mài mò.
=> Nhờ anh làm cái Form luôn được không ạ! combobox cũng được miễn sao nhập dữ liệu dễ hơn nhập như trước là OK rồi. xem P/S của em dưới luôn ạ.
--------------------------
P/S Nếu có thể các anh giúp em thêm 2 chỗ (em diễn đạt như thế này )
1. Em muốn cho thêm 1 chổ trên bảng xuất hiện LỚP: ? ( ? tương đương vị trí đang nhập số liệu)
vd: 12A1 vị trí A7, 12A2 vị trí A8,....
Khi mở bảng lên vị trí LỚP: 12A1 sẽ hiện ra đầu tiên, sau khi nhập xong bấm vào LƯU DỮ LIỆU > XÓA thì LỚP: sẽ hiện 12A2, cứ như thế đến hết.
2. Thêm 1 ghi là TUẦN: nữa luôn ạ.

 

[Ba Tê]

@giaiphap
em copy code vào nhập số liệu vào thì công thức sai hết, giống như nó ko hiểu số liệu em nhập dang số. mong được giúp đỡ tiếp

@Hoang2013
em nho MoD xoa topic kia rồi,
bài thực tế chưa chèn Form https://drive.google.com/open?id=0B6k7cKJZedOmOXh6TmxIRGNKSVU
- Từ file em gởi anh làm dùm em dc ko ạ, em ko biết gì về VBA e thấy nó rút ngắn thời gian và tiện lợi nên mài mò.
=> Nhờ anh làm cái Form luôn được không ạ! combobox cũng được miễn sao nhập dữ liệu dễ hơn nhập như trước là OK rồi. xem P/S của em dưới luôn ạ.
--------------------------
P/S Nếu có thể các anh giúp em thêm 2 chỗ (em diễn đạt như thế này )
1. Em muốn cho thêm 1 chổ trên bảng xuất hiện LỚP: ? ( ? tương đương vị trí đang nhập số liệu)
vd: 12A1 vị trí A7, 12A2 vị trí A8,....
Khi mở bảng lên vị trí LỚP: 12A1 sẽ hiện ra đầu tiên, sau khi nhập xong bấm vào LƯU DỮ LIỆU > XÓA thì LỚP: sẽ hiện 12A2, cứ như thế đến hết.
2. Thêm 1 ghi là TUẦN: nữa luôn ạ.

Nếu là tôi thì nhập thẳng vào sheet còn dễ nhìn và dễ kiểm soát. Thích Form rườm rà mà chẳng thấy "xịn" chút nào.
Nếu bạn muốn xài Form của bạn thì chỉnh lại một chút thế này thử xem sao (nút Lưu dữ liệu)

Private Sub btnInsert_Click()
    Dim dong_cuoi As Long
        dong_cuoi = Sheet1.Range("B40").End(xlUp).Row + 1
        With Sheet1
       
            .Range("B" & dong_cuoi) = txt1.Text
            .Range("C" & dong_cuoi) = txt2.Text
            .Range("D" & dong_cuoi) = txt3.Text
            .Range("E" & dong_cuoi) = txt4.Text
            .Range("F" & dong_cuoi) = txt5.Text
            .Range("G" & dong_cuoi) = txt6.Text
            .Range("H" & dong_cuoi) = txt7.Text
            .Range("I" & dong_cuoi) = txt8.Text
            .Range("J" & dong_cuoi) = txt9.Text
            .Range("K" & dong_cuoi) = txt10.Text
            .Range("L" & dong_cuoi) = txt11.Text
            .Range("M" & dong_cuoi) = txt12.Text
            .Range("N" & dong_cuoi) = txt13.Text
           
        End With
               
End Sub

 

[giaiphap]

@giaiphap
em copy code vào nhập số liệu vào thì công thức sai hết, giống như nó ko hiểu số liệu em nhập dang số. mong được giúp đỡ tiếp

Vậy sửa thế này xem thử.

Private Sub btnInsert_Click()
    Dim dong_cuoi As Long
        dong_cuoi = Sheet1.Range("B39").End(xlUp).Row + 1
        With Sheet1
            .Range("B" & dong_cuoi).Resize(, 13) = Array(--txt1, --txt2, --txt3, --txt4, --txt5, --txt6, --txt7, --txt8, --txt9, --txt10, --txt11, --txt12, --txt13)
        End With
End Sub

 

[tuanthanhtran]

@giaiphap sai công thức, anh tải cái link của e rồi làm thử trước đc ko vậy/

 

[giaiphap]

@giaiphap sai công thức, anh tải cái link của e rồi làm thử trước đc ko vậy/

Thì tôi thực hiện từ file của bạn mà.

 

[tuanthanhtran]

Thì tôi thực hiện từ file của bạn mà.

à mình hiểu tại sao nó sai rồi, ô dữ liệu có ô nhập số ô không
link chưa chèn form nè https://drive.google.com/open?id=0B6k7cKJZedOmOXh6TmxIRGNKSVU
với lại giúp mình làm nút xóa gọn gọn như code trên , code mình viết dài dòng lắm. tham khảo clip.