Hỏi về form nhập liệu

[minhcong.tckt]

Em có đoạn mã như sau: Cho việc nhập liệu

Private Sub OKButton_Click()
Sheets("Sheet2").Activate
Nextrow = Application.WorksheetFunction.Counta(Range("A:A")+1
Cells(NextRow,1) = TextName.Text
TextName.Text = ""
PotionUnknown = True
TextName .SetFocus
End Sub

Anh chị cho em hỏi 2 câu hỏi:
Câu 1: Làm thể nào để nhập liệu vào form thì ở sheet 2 sẽ cho nhập từ hàng từ 3 trở đi, hàng 1 và hàng 2 em muốn làm tiêu đề như: STT, Diễn giải...

Khi form nhập liệu xuất hiện, em muốn ko để lộ Sheet 2 cho người khác bít, vì có thể xóa được nội dung của sheet này, thì em làm thế nào??? (vì với đoạn mã trên khi em nhập liệu vào form thì sheet 2 cũng xuất hiện và sẽ bị chỉnh sửa ngay trên sheet 2)

 

[nghiaphuc]

Em có đoạn mã như sau: Cho việc nhập liệu

Private Sub OKButton_Click()
Sheets("Sheet2").Activate
Nextrow = Application.WorksheetFunction.Counta(Range("A:A")+ 1
Cells(NextRow,1) = TextName.Text
TextName.Text = ""
PotionUnknown = True
TextName .SetFocus
End Sub

Anh chị cho em hỏi 2 câu hỏi:
Câu 1: Làm thể nào để nhập liệu vào form thì ở sheet 2 sẽ cho nhập từ hàng từ 3 trở đi, hàng 1 và hàng 2 em muốn làm tiêu đề như: STT, Diễn giải...

Khi form nhập liệu xuất hiện, em muốn ko để lộ Sheet 2 cho người khác bít, vì có thể xóa được nội dung của sheet này, thì em làm thế nào??? (vì với đoạn mã trên khi em nhập liệu vào form thì sheet 2 cũng xuất hiện và sẽ bị chỉnh sửa ngay trên sheet 2)

- Câu 1: Bạn có thể thay dòng lệnh

Nextrow = Application.WorksheetFunction.Counta(Range("A:A"))+ 1

Bởi dòng lệnh:

Nextrow = Application.WorksheetFunction.Max(Sheet2.Range("A65536").End(xlUp).Row+1,3)

- Câu 2: Chính vì câu lệnh Sheets("Sheet2").Activate đã làm cho Sheet2 hiện ra
Vậy thì để cho Sheet2 không hiện ra thì bạn bỏ nó đi, hoặc thay bằng câu lệnh chọn Sheet khác, chẳng hạn thay Sheet2 bởi Sheet1 (câu lệnh này nên đưa vào Private Sub UserForm_Initialize để khi hiện form thì Sheet2 sẽ không được chọn). Tất nhiên là lúc đó ngoài việc sửa câu lệnh như ở câu 1, bạn cũng cần thay câu lệnh

Cells(NextRow,1) = TextName.Text

bởi câu lệnh

[COLOR=#ff0000][B]Sheet2.[/B][/COLOR]Cells(NextRow,1) = TextName.Text

 

[minhcong.tckt]

Em gặp chút rắc rối nhỏ, em muốn nhập tài khoản 1 nợ, nhiều có hoặc ngược lại
Ví dụ với
Nợ TK 154
Có TK 622
Có TK 621
Có TK 627
vậy anh chị cho em hỏi, với code trên, em phải thêm như thế nào để TK 154 là ô A1 chẳng hạn, còn TK622 là B2, 621 là B3, 627 là B4

Định khoản tiếp theo tương tự như trên