Cách copy ô vùa đánh dấu sang một vùng khác (1 người xem)

[akayzai1]

Sub VD_Cells()
Dim myCell As Range
For Each myCell In Range("A1:H4")
If myCell.Value Mod 2 = 1 Then
myCell.Interior.Color = vbRed
End If
Next myCell
End Sub

Em muốn thêm một đoạn mã copy các ô đã đánh dấu sang vùng khác ngoài vùng (A1:H4) thì như thế nào?

 

[nghiaphuc]

Sub VD_Cells()
Dim myCell As Range
For Each myCell In Range("A1:H4")
If myCell.Value Mod 2 = 1 Then
myCell.Interior.Color = vbRed
End If
Next myCell
End Sub

Em muốn thêm một đoạn mã copy các ô đã đánh dấu sang vùng khác ngoài vùng (A1:H4) thì như thế nào?

Giả sử bạn cần copy myCell vào ô A10. Câu lệnh để copy có dạng thế này:
- Copy mọi thứ (cả giá trị và định dạng): myCell.Copy [A10]
- Chỉ copy giá trị mà không quan tâm định dạng: [A10].Value=myCell.Value

 

[Nam CT]

em thêm vào thử mà ko copy được tất cả các ô đã đánh dấu sang vùng khác mà chỉ copy được một số thôi.a xem giúp em với

 

[VetMini]

Bạn hỏi một đống bài mà bài nào cũng bị "yêu cầu chưa hợp lý"

Trước khi đặt câu hỏi, bạn phải suy nghĩ lại xem:

- cái mình muốn nó có hợp lý hay không
- làm thế nào để máy hiểu mình muốn gì
- sau khi code chạy xong thì chuyện gì sẽ xảy ra.

Lấy một tờ giấy ra, vẽ lại cái sơ đồ trạng thái ban đầu, lệnh yêu cầu code chạy, và trạng thái sau khi code chạy. Bạn sẽ hiểu rõ tại sao người ta không thể giải đáp yêu cầu của bạn trực tiếp được.

Điển hình yêu cầu bài này:

Bạn nói "đánh dấu". Thế nào là đánh dấu? Người ta phải đoán: có lẽ bạn muốn nói các ô được bạn tô đỏ trong code trên.

Bạn nói "copy". Thế là người ta phải đoán: copy dữ liệu, copy công thức, hay copy mẫu hình, hay copy tất cả?

Bạn nói "vùng khác". Đến đây thì hết đoán, "vùng khác" là cái quái gì, nó liên hệ như thế nào đối với vùng cũ? liên hệ thế nào đối với ô được copied. Trong dữ liệu copy, các ô không liên tục nhau. Thế thì copy lại có liên tục nhau hay không?

Vấn đề của bạn không phải là viết code. Bạn cần học cách diễn đạt suy nghĩ của mình.

Viết code cũng chỉ là diễn đạt lại cho máy hiểu ý muốn của mình. Bạn không diễn đạt được thì máy nó hiểu sai. Rất hiếm máy có khả năng đoán. Mà dẫu có đoán thì cũng chưa chắc đã đúng ý bạn.