Giúp em về VBA trong excel

Liên hệ QC

nhoklipice

Thành viên hoạt động
Tham gia
17/3/09
Bài viết
112
Được thích
3
Trong userform1 có: tbx1, tbx2,tbx3 và cmdnhap

PHP:
Private Sub nhap_Click()Dim iRow As LongDim ws As WorksheetSet ws = Worksheets("phieuhen")iRow = ws.Cells(Rows.Count, 1) _  .End(xlUp).Offset(1, 0).RowIf Trim(Me.TextBox1.Value) = "" Then  Me.TextBox1.SetFocus  MsgBox "chua dien ma phu tung", vbInformation  Exit SubEnd Ifws.Cells(iRow, 1).Value = Me.tbx1.Valuews.Cells(iRow, 2).Value = Me.tbx2.Value
ws.Cells(iRow, 3).Value = Me.tbx3.ValueMe.tbx1.Value = ""Me.tbx2.Value = ""
Me.tbx3.Value = ""End Sub

Cho hỏi em phải tùy biến code như thế nào để chỉ định tbx1, tbx2 ,tbx3 vào những địa chỉ mình mong muốn (trong sheet phieuhen, tbx1 gán giá trị vào a1, tbx2 vào a5, tbx3 vào b4 ?)

Cảm ơn mọi người (vì mới bắt đầu tự học nên còn hạn chế, mong mọi người giúp, cảm ơn !)
 
Bạn đưa file ví dụ lên đi, dễ làm hơn
 
Upvote 0
Em gởi file đính kèm.
mặc định :
ma pt = a2, sl = b2, kh = c2
em phải chỉnh sửa code thế nào để tùy biến ma pt = a4, sl = b6, kh = c5
 

File đính kèm

  • testtttt.xls
    36 KB · Đọc: 7
Upvote 0
Em gởi file đính kèm.
mặc định :
ma pt = a2, sl = b2, kh = c2
em phải chỉnh sửa code thế nào để tùy biến ma pt = a4, sl = b6, kh = c5
Đây là đoạn code ghi dữ liệu từ dòng 2 trở đi. Chưa hiểu ý của bạn lắm? Bạn muốn cố định chỉ ghi a4, b6, c5 hay là từ a4, b6, c5 trở đi?
 
Upvote 0
Đúng là ghi dữ liệu từ dòng 2 trở đi, ý em muốn hỏi là em không muốn ghi vào dòng 2, mà ghi vào nơi nào trong sheet em muốn thì phải sửa code như thế nào ?
 
Upvote 0
Đúng là ghi dữ liệu từ dòng 2 trở đi, ý em muốn hỏi là em không muốn ghi vào dòng 2, mà ghi vào nơi nào trong sheet em muốn thì phải sửa code như thế nào ?
Là dòng này đây: ws.Cells(iRow, 1).Value = Me.TextBox1.Value
VD: bạn muốn lần lượt ghi a4, b6, c5 thì:
ws.Cells(4, 1).Value = Me.TextBox1.Value
ws.Cells(6, 2).Value = Me.TextBox2.Value
ws.Cells(5, 3).Value = Me.TextBox2.Value
 
Upvote 0
Rất cảm ơn bạn đã giúp.
Mình download được file này, nghiên cứu mãi không ra, mong mọi người giúp chỉ em làm sao ra được như file này, cảm ơn mọi người !
 

File đính kèm

  • CongTacPhi.rar
    25.8 KB · Đọc: 7
Upvote 0
Web KT
Back
Top Bottom