VBA thay đổi giá trị trong các cell phía dưới bằng với giá trị cell ở trên.

[pvNhinh]

Xin chào mọi người!
Xin mọi người giúp dỡ em code vba: Thay đổi giá trị các ô phía dưới sao cho bằng giá trị ô ở phía trên. Như hình đính kèm.
Em rất cám ơn mọi người ạ!

 

[befaint]

Xóa hết mấy số 1, 2, 3...
Chọn vùng dữ liệu, F5, special..., blanks, trên chỗ nhập công thức gõ =cell có dữ liệu trên cùng. Nhấn Ctrl + Enter là xong rồi.

 

[pvNhinh]

Xóa hết mấy số 1, 2, 3...
Chọn vùng dữ liệu, F5, special..., blanks, trên chỗ nhập công thức gõ =cell có dữ liệu trên cùng. Nhấn Ctrl + Enter là xong rồi.

Có cách nào dùng vba không anh. tại dữ liệu em nhiều, trên kia chỉ là ví dụ thôi ạ. em cám ơn!

 

[Maika8008]

Xin chào mọi người!
Xin mọi người giúp dỡ em code vba: Thay đổi giá trị các ô phía dưới sao cho bằng giá trị ô ở phía trên. Như hình đính kèm.
Em rất cám ơn mọi người ạ!
View attachment 257480

Tại sao có mấy số 1, 2, 3... đó, và tại sao có 1 số cell không đánh số? Điều đó liên quan đến giải thuật đấy nên bạn phải giải thích rõ.

 

[pvNhinh]

Tại sao có mấy số 1, 2, 3... đó, và tại sao có 1 số cell không đánh số? Điều đó liên quan đến giải thuật đấy nên bạn phải giải thích rõ.

Dạ, mấy ô có số 1,2,3 là dữ liệu bất kì, chỉ có những ô có chữ "Tháng" là cố định, luôn luôn có chữ "Tháng"

 

[Hoàng Tuấn 868]

Xin chào mọi người!
Xin mọi người giúp dỡ em code vba: Thay đổi giá trị các ô phía dưới sao cho bằng giá trị ô ở phía trên. Như hình đính kèm.
Em rất cám ơn mọi người ạ!
View attachment 257480

Kết quả mẫu của bạn không có dòng ở dưới nào bằng dòng ở trên như yêu cầu, khi kéo xuống các năm đều thay đổi tăng dần hết.

 

[pvNhinh]

Kết quả mẫu của bạn không có dòng ở dưới nào bằng dòng ở trên như yêu cầu, khi kéo xuống các năm đều thay đổi tăng dần hết.

Dạ, em nhầm rồi, để em update lại file ạ.

Bài đã được tự động gộp: 22/4/21

Kết quả mẫu của bạn không có dòng ở dưới nào bằng dòng ở trên như yêu cầu, khi kéo xuống các năm đều thay đổi tăng dần hết.

Em đã update lại rồi ạ.

 

[Hoàng Tuấn 868]

Dạ, em nhầm rồi, để em update lại file ạ.

Bạn xem kết quả, dữ liệu của bạn bao nhiêu dòng mà cứ cần vba?

 

[pvNhinh]

Bạn xem kết quả, dữ liệu của bạn bao nhiêu dòng mà cứ cần vba?

File này chỉ là file ví dụ thôi ạ.

 

[Hoàng Tuấn 868]

File này chỉ là file ví dụ thôi ạ.

Hỏi bao nhiêu dòng thì lại trả lời đây là ví dụ, thế thì Thánh cũng không giúp được bạn.

 

[pvNhinh]

Hỏi bao nhiêu dòng thì lại trả lời đây là ví dụ, thế thì Thánh cũng không giúp được bạn.

dạ, khoảng 200 dòng ạ.

 

[Hoàng Tuấn 868]

dạ, khoảng 200 dòng ạ.

Công thức trên mình đã kéo thử 10000 dòng rồi, chạy tít mù.

 

[VetMini]

Công thức trên mình đã kéo thử 10000 dòng rồi, chạy tít mù.

Trời đất. Đã người ta nói vậy rồi thì công thức của bạn chỉ bỏ biển.
GPE này có tật chìu khách cho nên đã lên đây vòi VBA rồi là chỉ VBA giải quyết.

 

[Hoàng Tuấn 868]

Trời đất. Đã người ta nói vậy rồi thì công thức của bạn chỉ bỏ biển.
GPE này có tật chìu khách cho nên đã lên đây vòi VBA rồi là chỉ VBA giải quyết.

Với hơn 200 dòng thì em làm thủ công nhanh hơn viết công thức anh ạ.

 

[huhumalu]

Mới bị la bên topic kia, người ta đã post vào lập trình và đề mục có chữ VBA thì tuyệt đối kg được chèo kéo dùng công thức. kaka
Mình cố lì thêm lần nữa, nếu chủ topic có nhã hứng đổi lại đề mục.
Công thức ô H9

=IF(ISNUMBER(FIND("THÁNG",C9,1)),C9,H8)

 

[CHAOQUAY]

@pvNhinh

Sub xxx()
Dim DL, i, k
DL = Sheet1.Range("C8", Sheet1.Range("C" & Rows.Count).End(xlUp))
For i = 1 To UBound(DL)
    If Left(DL(i, 1), 5) = "TH" & ChrW(193) & "NG" Then
        k = DL(i, 1)
    Else
        DL(i, 1) = k
    End If
Next i
Sheet1.Range("J8").Resize(UBound(DL), 1) = DL
End Sub

 

[Maika8008]

Việc viết code VBA cho yêu cầu của thớt thực ra rất đơn giản. Tôi hỏi thớt việc tại sao đánh số 1 số ô và chừa trống 1 số ô mà thớt trả lời trớt huớt chứng tỏ thớt là người khá hời hợt. Do đó tôi ngưng để xem thử nhận định của mình có chủ quan, sai lầm gì không qua các trao đổi tiếp theo. Rồi sau đó, quả thật vậy.

 

[pvNhinh]

Việc viết code VBA cho yêu cầu của thớt thực ra rất đơn giản. Tôi hỏi thớt việc tại sao đánh số 1 số ô và chừa trống 1 số ô mà thớt trả lời trớt huớt chứng tỏ thớt là người khá hời hợt. Do đó tôi ngưng để xem thử nhận định của mình có chủ quan, sai lầm gì không qua các trao đổi tiếp theo. Rồi sau đó, quả thật vậy.

Xin hỏi anh là sếp em hay anh là cái gì mà a có quyền phán xét . Vấn đề ở đây tôi đưa ra 1 ví dụ mẫu để ap dụng vào 1 file .
Nếu a k có hứng thú thì a có thể go away. Còn a không có quyền phán xét hay nhận định tôi vì tôi chưa đụng chạm đến công việc hay quyền lợi cá nhân của anh.

Bài đã được tự động gộp: 28/4/21

@pvNhinh

Sub xxx()
Dim DL, i, k
DL = Sheet1.Range("C8", Sheet1.Range("C" & Rows.Count).End(xlUp))
For i = 1 To UBound(DL)
    If Left(DL(i, 1), 5) = "TH" & ChrW(193) & "NG" Then
        k = DL(i, 1)
    Else
        DL(i, 1) = k
    End If
Next i
Sheet1.Range("J8").Resize(UBound(DL), 1) = DL
End Sub

Vâng! Em cám ơn ạ.

Bài đã được tự động gộp: 28/4/21

Mới bị la bên topic kia, người ta đã post vào lập trình và đề mục có chữ VBA thì tuyệt đối kg được chèo kéo dùng công thức. kaka
Mình cố lì thêm lần nữa, nếu chủ topic có nhã hứng đổi lại đề mục.
Công thức ô H9

=IF(ISNUMBER(FIND("THÁNG",C9,1)),C9,H8)

Em cám ơn anh nha!

Bài đã được tự động gộp: 28/4/21

Mới bị la bên topic kia, người ta đã post vào lập trình và đề mục có chữ VBA thì tuyệt đối kg được chèo kéo dùng công thức. kaka
Mình cố lì thêm lần nữa, nếu chủ topic có nhã hứng đổi lại đề mục.
Công thức ô H9

=IF(ISNUMBER(FIND("THÁNG",C9,1)),C9,H8)

em cám ơn anh nha.

Bài đã được tự động gộp: 28/4/21

@pvNhinh

Sub xxx()
Dim DL, i, k
DL = Sheet1.Range("C8", Sheet1.Range("C" & Rows.Count).End(xlUp))
For i = 1 To UBound(DL)
    If Left(DL(i, 1), 5) = "TH" & ChrW(193) & "NG" Then
        k = DL(i, 1)
    Else
        DL(i, 1) = k
    End If
Next i
Sheet1.Range("J8").Resize(UBound(DL), 1) = DL
End Sub

Đoạn code chạy rất tốt. Em cám ơn anh nhiều lắm ạ.!!