Nhập liệu từ form và trả kết quả theo từng ra từng sheet theo nhiều trường hợp (1 người xem)

[mancity86]

Dear Các cao thủ excel,

Em kính mong các anh chị chỉ giáo cho em file như sau.

Trong sheet 1 có các nút button "trường hợp 1", "trường hợp 2", "trường hợp 3"

Khi ấn các nút trường hợp 1,2,3 đó đều ra chung 1 form nhập liệu.

Tuy nhiên, ý em ở đây là khi ấn "nút trường hợp 1" thì kết quả nhập liệu trả về sheet"TH1",

ấn nút trường hợp 2 thì kết quả trả về sheet "TH2", trường hợp 3 thì kết quả trả về sheet TH3.

Mong các anh chị hướng dẫn em câu lệnh đơn giản này ạ. Em mới tập tọe học VBA thôi ạ.

 

[leonguyenz]

Trong lúc chờ các Thầy, bạn tham khảo trong file đính kèm, mình viết còn sơ sài vì chưa biết nhiều về code.

 

[mancity86]

Cám ơn anh leonguyez nhiều ạ. Tuy nhiên có cách nào để thực hiện như phương án em nói không ạ. làm sao gán được code vào các nút button nhỉ. À cho em hỏi End(xlUp): có ng hĩa là như nào ạ.

 

[leonguyenz]

Cám ơn anh leonguyez nhiều ạ. Tuy nhiên có cách nào để thực hiện như phương án em nói không ạ. làm sao gán được code vào các nút button nhỉ. À cho em hỏi End(xlUp): có ng hĩa là như nào ạ.

Về code mình chưa rành, chưa nói đến Form và Control nên bạn đành chờ các Thầy viết thôi.
End(xlUp) là lấy dữ liệu từ dưới lên.(ẹc ẹc ... ngôn ngữ trời ơi của mình)

 

[siwtom]

Cám ơn anh leonguyez nhiều ạ. Tuy nhiên có cách nào để thực hiện như phương án em nói không ạ. làm sao gán được code vào các nút button nhỉ. À cho em hỏi End(xlUp): có ng hĩa là như nào ạ.

Tôi không hiểu lắm. Bạn vẫn cứ muốn làm 3 Button để mở 1 Form duy nhất? Sau này có thêm nhiều sheet thì thêm nhiều Button và cái Sheet1 phải đổi tên thành "Bàn phím"?
------
Tôi viết qua, bạn dùng được thì dùng nhưng tôi không làm 3 Button. Chả có gì là khó cả nhưng tôi không làm.

Bạn tự test vì tôi chỉ test bằng cách mở Form 1 lần và chạy thấy được rồi thôi. Muốn nhập vào sheet nào thì chọn ở trên Form. Mặc định đã chọn sheet TH1.

 

[leonguyenz]

Tôi không hiểu lắm. Bạn vẫn cứ muốn làm 3 Button để mở 1 Form duy nhất? Sau này có thêm nhiều sheet thì thêm nhiều Button và cái Sheet1 phải đổi tên thành "Bàn phím"?
------
Tôi viết qua, bạn dùng được thì dùng nhưng tôi không làm 3 Button. Chả có gì là khó cả nhưng tôi không làm.
Bạn tự test vì tôi chỉ test bằng cách mở Form 1 lần và chạy thấy được rồi thôi. Muốn nhập vào sheet nào thì chọn ở trên Form. Mặc định đã chọn sheet TH1.

Hình như là dư cái End with Thầy ạ:

        Else
            shname = Frame1.ActiveControl.Caption
            shname = Right(shname, Len(shname) - InStrRev(shname, " "))
            Set rng = Sheets(shname).Range("A65535").End(xlUp).Offset(1)
            rng.Value = Me.txthoten
            rng.Offset(, 1).Value = tuoi
[B][COLOR=#ff0000]            End With[/COLOR][/B]
            Me.txthoten.Value = ""
            Me.txttuoi.Value = ""
            MsgBox "Da nhap lieu"
            Me.txthoten.SetFocus
        End If

Em thử bỏ End With thì thấy bình thường.

 

[siwtom]

Hình như là dư cái End with Thầy ạ:

        Else
            shname = Frame1.ActiveControl.Caption
            shname = Right(shname, Len(shname) - InStrRev(shname, " "))
            Set rng = Sheets(shname).Range("A65535").End(xlUp).Offset(1)
            rng.Value = Me.txthoten
            rng.Offset(, 1).Value = tuoi
[B][COLOR=#ff0000]            End With[/COLOR][/B]
            Me.txthoten.Value = ""
            Me.txttuoi.Value = ""
            MsgBox "Da nhap lieu"
            Me.txthoten.SetFocus
        End If

Em thử bỏ End With thì thấy bình thường.

Cám ơn bạn đã góp ý.
He he. Lúc trước là dùng With sau đó bỏ With và dùng

Set rng = Sheets(shname).Range("A65535").End(xlUp).Offset(1)
            rng.Value = Me.txthoten
            rng.Offset(, 1).Value = tuoi

nhưng quên xóa End With.
Cũng lười không test nên không biết.