bài tập về form và trùng DL

[doanhoanghai]

mình có vấn đề này rất mong mọi người giúp đỡ ! mong tin các bạn

 

[win4u]

Có mỗi cái code "Thêm". Các code khác chưa luyện đến

Private Sub CommandButton1_Click()
Dim irow As Long
Dim ws As Worksheet

Set ws = Worksheets("Sheet1")
irow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

With Sheets("Sheet1")
    .Cells(irow, 1).Value = Me.TextBox1.Value
    .Cells(irow, 2).Value = Me.TextBox2.Value
End With

Me.TextBox1.Value = ""
Me.TextBox2.Value = ""
End Sub
End Sub

 

[doanhoanghai]

cảm ơn bạn

nhưng bạn thử làm xem sao ! mình làm nó đâu có hiện gi cả không hiểu tại sao nhỉ ?

 

[ongtrungducmx25]

Có mỗi cái code "Thêm". Các code khác chưa luyện đến

Private Sub CommandButton1_Click()
Dim irow As Long
Dim ws As Worksheet
 
Set ws = Worksheets("Sheet1")
irow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
 
With Sheets("Sheet1")
    .Cells(irow, 1).Value = Me.TextBox1.Value
    .Cells(irow, 2).Value = Me.TextBox2.Value
End With
 
Me.TextBox1.Value = ""
Me.TextBox2.Value = ""
End Sub
End Sub

code ơ trên cũng không hoạt động được luôn nhé! hehhê

 

[ptm0412]

Code ở trên chạy tốt! Chỉ trừ mỗi việc có 2 end sub, chuyện nhỏ.
Vấn đề:
- Đặt code ở đâu?
- Đã có gì gõ vào 2 textbox chưa?
Câu này đúng, nhưng offset chi cho khổ vậy?

irow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

Sao không là

irow = ws.Cells(Rows.Count, 1).End(xlUp).Row+1

 

[ongtrungducmx25]

zậy còn các nút khác không làm luôn nhỉ! lên ,xuống,xóa ,sửa ,......

 

[doanhoanghai]

trời ơi`

trời đất sao mình làm mãi mà không đc nhỉ bác làm luôn cho thằng em này cái nào ! để em học hỏi thêm bác đưa mỗi code em làm mãi có đc đâu ! thank

 

[ongtrungducmx25]

trời đất sao mình làm mãi mà không đc nhỉ bác làm luôn cho thằng em này cái nào ! để em học hỏi thêm bác đưa mỗi code em làm mãi có đc đâu ! thank

pác xem file này nhé rồi học hỏi có gì thì làm tiếp nhé! hehe

 

[doanhoanghai]

thank ban !

bạn ơi còn vấn đề tìm những vị trí trùng DL thì phải làm sao đây ! bạn giúp mình với nhé ! mấy nút next và back cho mình cảm ơn trước nhé ,thực sự là không nghĩ ra à ! thank