Sử dụng With - End With (1 người xem)

[loinguyen212]

Em chào gia đình GPE.
Nay em vướng mắc và muốn học thêm về with - end with. Gia đình mình ai có tài liệu tham khảo về phần này xin chia sẻ cho em cùng học tập. Em xin cảm ơn.
P/s: em đang muốn chọn .cells trong with mà chưa chọn được, em hỏi nhanh có ai biết trả lời giúp em.

 

[Kiều Mạnh]

Em chào gia đình GPE.
Nay em vướng mắc và muốn học thêm về with - end with. Gia đình mình ai có tài liệu tham khảo về phần này xin chia sẻ cho em cùng học tập. Em xin cảm ơn.
P/s: em đang muốn chọn .cells trong with mà chưa chọn được, em hỏi nhanh có ai biết trả lời giúp em.

Thử đại code sau nha

Sub abc()
With Sheet1
    .Range("A1").Value = "GPE"
    .Range("A2").Value = "ABC"
    .Range("A3").Value = "1"
End With
End Sub

 

[be_09]

Em chào gia đình GPE.
Nay em vướng mắc và muốn học thêm về with - end with. Gia đình mình ai có tài liệu tham khảo về phần này xin chia sẻ cho em cùng học tập. Em xin cảm ơn.
P/s: em đang muốn chọn .cells trong with mà chưa chọn được, em hỏi nhanh có ai biết trả lời giúp em.

Nhấn Alt+F11 > Help > With sẽ có hàng đống thứ để bạn tham khảo.

 

[loinguyen212]

Thử đại code sau nha

Sub abc()
With Sheet1
    .Range("A1").Value = "GPE"
    .Range("A2").Value = "ABC"
    .Range("A3").Value = "1"
End With
End Sub

Em đang muốn chọn .cells nghĩa là toàn bộ sheet chứ không chọn range bác ạ.

 

[loinguyen212]

Nhấn Alt+F11 > Help > With sẽ có hàng đống thứ để bạn tham khảo.

Cái này sao em không thực hiện được, help rồi toàn ra web, không biết tìm đâu, bác chỉ lại giúp em.

 

[Kiều Mạnh]

Em đang muốn chọn .cells nghĩa là toàn bộ sheet chứ không chọn range bác ạ.

Lại thử tiếp khi nao trúng thì thôi

Sub bca()
With Sheet1
    .Cells(1, 1).Value = "GPE"
    .Cells(1, 2).Value = "Peg"
    .Cells(1, 3).Value = "ePg"
End With
End Sub

 

[Let'GâuGâu]

Cái này sao em không thực hiện được, help rồi toàn ra web, không biết tìm đâu, bác chỉ lại giúp em.

cái này bạn giống mình nè...............
có lẻ là lổi khi cài excel
tôi cũng làm biếng cài lại......hehehehe

 

[loinguyen212]

Lại thử tiếp khi nao trúng thì thôi

Sub bca()
With Sheet1
    .Cells(1, 1).Value = "GPE"
    .Cells(1, 2).Value = "Peg"
    .Cells(1, 3).Value = "ePg"
End With
End Sub

Bỉnh thường thì mình select sheet, rồi Cells.Select là hiểu là chọn toàn bộ cell trong sheet đó, vậy khi đưa vào with thì em chọn ntn (em thử chọn .cells mà không được )

 

[Kiều Mạnh]

Bỉnh thường thì mình select sheet, rồi Cells.Select là hiểu là chọn toàn bộ cell trong sheet đó, vậy khi đưa vào with thì em chọn ntn (em thử chọn .cells mà không được )

Thử viết một sub úp luôn cái file lên coi . mình làm cho...sai đúng thế nào mình mới biết. chỉ số
IQ mình thấp lắm bạn mô tả triều tượng mình cứ nghĩ con bò nó có 8 cái chân

 

[hung2412]

Bỉnh thường thì mình select sheet, rồi Cells.Select là hiểu là chọn toàn bộ cell trong sheet đó, vậy khi đưa vào with thì em chọn ntn (em thử chọn .cells mà không được )

Có thể thế này chăng?[GPECODE=vb] With ActiveSheet
.Cells.Select
End With
[/GPECODE]

 

[loinguyen212]

Đa tạ. Thật là ngớ ngẩn, hôm qua đến giờ em cứ nghĩ trong câu lệnh with thì nó sẽ không cho select cái gì cả. Nên bình thường là nó có .select nên khi em đưa vào thì em bỏ đi. Cảm ơn bác hung2412 đã chia sẻ. Cảm ơn bác Kieu Manh, em không có ý giải thích lằng nhằng, mà em không biết cách viết đoạn code vào trong khung như của bác nên đang mò mà chưa được, cảm ơn 2 bác một lần nữa. Chúc thành công!

 

[loinguyen212]

Có thể thế này chăng?[GPECODE=vb] With ActiveSheet
.Cells.Select
End With
[/GPECODE]

Có vấn đề là nếu như em with sheet1 và để nút bấm ở sheet 1 thì ok, nhưng nếu nút bấm ở sheet2 thì nó vẫn không hiểu, và báo lỗi ở .cells.select .Vậy tại sao đã with sheet1 rồi mà lại không hiểu, bác trả lời giúp em??

 

[hung2412]

Có vấn đề là nếu như em with sheet1 và để nút bấm ở sheet 1 thì ok, nhưng nếu nút bấm ở sheet2 thì nó vẫn không hiểu, và báo lỗi ở .cells.select .Vậy tại sao đã with sheet1 rồi mà lại không hiểu, bác trả lời giúp em??

Nó báo lỗi là đúng rồi. Chắc vì Select là câu bôi đen trực tiếp tại Sheet đó => Không thể đứng Sheet khác mà Select như thế được.

 

[be_09]

Nhấn Alt+F11 > Help > With sẽ có hàng đống thứ để bạn tham khảo.

- Nhấn Alt+F11 = Vào cửa sổ VBE.

- Trên menu chọn Help > Microsoft Visual Basic Help

- Cửa sổ Excel Help hiện ra, trong khung Search gõ With xong nhấn nút Search, thì bạn thấy nhiều thứ hướng dẫn liên quan đến từ khóa này.

 

[loinguyen212]

Có cách nào thực hiện được việc khi đang ở sheet2 mà sử dụng With ... End with để chọn toàn bộ cells của sheet1 không?
Bởi theo những cách trên thì đều bó tay, mong nhận được sự giúp đỡ.
Thân!