Cho em hỏi ý nghĩa của cú pháp.

[hungdp73]

Với cú pháp (hay câu lệnh) : ActiveCell.Offset(0, 1).Range("A1").Select

PHần đầu thì em hiểu là di chuyển qua 1 cột còn phần "Range("A1").Select" thì em không hiểu. Tại sao lại hay có "A1"?

Cám ơn nhiều.

 

[SA_DQ]

Sheet2.[B65536].End(xlUp): nếu em thay "A" bằng "B" thì là ô cuối của cột B của Sheet Data hả anh?

Đáng ra bạn nên thử chứ không nên hỏi câu này;
Cần luyện tập tính tự học thêm nữa bạn à; Tuy khó nghe với bạn, nhưng cũng chỉ là muốn ta (tôi & bạn) càng hoàn thiện hơn thôi;
Thân ái!

 

[thanhlanh]

1/Set Clls = Sheet2.[A65536].End(xlUp).Offset(1). Giờ ta phân tích nhé
..................

Set Clls = Sheet2.[A65536].End(xlUp).Offset(1) Goij Clls là ô bên dưới ô cuối cùng có dữ liệu 1 ô.
...............

Nhân về chủ đề cú pháp cho mình hỏi:
- Vậy Clls có phải là một biến không Bạn? Nếu vậy thì khi nào phải thêm "Set" dằng trước biến?
- Còn "get" thì được dùng trong trường hợp nào?
Nhờ bạn giải thích luôn cho mọi người (cả tôi nữa) được hiểu. Xin cám ơn.

 

[sealand]

Hoàn toàn đúng Clls là 1 biến và trong bài được khai báo bằng lệnh Dim Clls as Range
Tất cả các biến đối tượng đề phải dùng lệnh set. Do biến Clls là 1 Range thuộc biến đối tượng nên cũng phải dùng lệnh Set

 

[hungdp73]

Đáng ra bạn nên thử chứ không nên hỏi câu này;
Cần luyện tập tính tự học thêm nữa bạn à; Tuy khó nghe với bạn, nhưng cũng chỉ là muốn ta (tôi & bạn) càng hoàn thiện hơn thôi;
Thân ái!

Bạn không cần phải "dạy đời" như vậy. Tôi biết phải làm gì mà. Nói ra tuy khó nghe với bạn, nhưng trước khi muốn nói ra những lời khó nghe như vậy bạn cũng nên phải biết tại sao.

 

[hungdp73]

Toàn bộ Code của bạn sau điều chỉnh như sau (Code nhap bao gồm 3 phần: Kiểm tra - Nhập - Xoá Form):

Private Sub XYARN_BUY_CLEAR_Click()
intResponse = MsgBox("Chac an chua ?", vbYesNo + vbQuestion, "Are you OK?")
If intResponse = vbNo Then
Exit Sub
End If
Sheet4.[D2:D3] = "": Sheet4.[A6:G10].ClearContents
Sheet4.[D2].Active
End Sub
'-------------------------------------------------------
Private Sub XYARN_BUY_SAVE_Click()
Dim dong As Integer, Clls As Range, i
With Sheet4
dong = WorksheetFunction.Max(.[A6:A10])
[COLOR=seagreen]'Code kiem tra khong bo trong du lieu[/COLOR]
If .[D2] = "" Then
MsgBox "Tai o D2 chua co du lieu."
.[D2].Active: Exit Sub
End If
If .[D3] = "" Then
MsgBox "Tai o D3 chua co du lieu."
.[D3].Active: Exit Sub
End If
For Each Clls In .Cells(6, 1).Resize(dong, 6)
If Clls = "" Then
MsgBox "Tai o " & Clls.Address & " chua co du lieu."
Clls.Activate: Exit Sub
End If: Next
[COLOR=green]'Code Nhap vao Data[/COLOR]
Set Clls = Sheet2.[A65536].End(xlUp).Offset(1)
Clls.Resize(dong).Value = .[D3].Value
Clls.Offset(, 1).Resize(dong).Value = .[D2].Value
Clls.Offset(, 2).Resize(dong, 6).Value = .[B6].Resize(dong, 6).Value
[COLOR=green]'Code reset Form[/COLOR]
.[D2:D3] = "":: .[A6:G10].ClearContents
.[D2].Active
End With
End Sub

File mình gửi theo Email rồi

Hôm nay có thời gian, em chạy debug kiểm tra chi tiết từng hàng lệnh thì bi lỗi :
Tại dònng

.[D2].Active

Báo lỗi 'object doesn't support this property or method'

Em phải đổi lại thành .[D2].Select thì được.

Thanks.