Cách đặt công thức VBA

[Hoantk223]

M.n cho mình hỏi mình phải sửa lại công thức như nào để các dòng dưới nó không hiện công thức khi dòng tính là trống ạ

 

[Thóc Sama]

M.n cho mình hỏi mình phải sửa lại công thức như nào để các dòng dưới nó không hiện công thức khi dòng tính là trống ạView attachment 290121

1. Bạn không nên viết tắt trên diễn đàn này.
2. Lần sau nhớ copy -->dán code lên để các thành viên dễ theo dõi (đính kèm file thì càng tốt).
-->Với yêu cầu của bạn thì tôi đoán là trước khi có cái dòng bôi đỏ đó tạo 1 biến dòng cuối rồi chỉ áp công thức từ dòng thứ 3-->dòng cuối (chứa dữ liệu)
Chúc thành công!

 

[Hoantk223]

Mình mới đang tự học VBA, nến nhiều cái vẫn chưa biết. Bạn có thể xem giúp mình được không ạ

1. Bạn không nên viết tắt trên diễn đàn này.
2. Lần sau nhớ copy -->dán code lên để các thành viên dễ theo dõi (đính kèm file thì càng tốt).
-->Với yêu cầu của bạn thì tôi đoán là trước khi có cái dòng bôi đỏ đó tạo 1 biến dòng cuối rồi chỉ áp công thức từ dòng thứ 3-->dòng cuối (chứa dữ liệu)
Chúc thành công!

Bài đã được tự động gộp: 13/5/23

Mình mới đang tự học VBA, nến nhiều cái vẫn chưa biết. Bạn có thể xem giúp mình được không ạ

Tại vì các dòng từ cột A đến cột C thay đổi liên tục nên khi xác định dòng cuối của cột tính thì khi cột A-C đc thêm thì cột ở dòng tính lại ko tự tính được ạ

 

[Hoàng Tuấn 868]

1. Bạn không nên viết tắt trên diễn đàn này.

A-C đc thêm thì cột ở dòng tính lại ko tự tính được ạ

. . . . . . . . . . .

 

[Thóc Sama]

Mình mới đang tự học VBA, nến nhiều cái vẫn chưa biết. Bạn có thể xem giúp mình được không ạ

Bài đã được tự động gộp: 13/5/23

Tại vì các dòng từ cột A đến cột C thay đổi liên tục nên khi xác định dòng cuối của cột tính thì khi cột A-C đc thêm thì cột ở dòng tính lại ko tự tính được ạ

Bạn thay thử

    Dim Lr&
    With wbmain.Sheets("Rename")
    Lr = .Range("C" & Rows.Count).End(xlUp).Row
    .Range("D3:D" & Lr).Value = "=R1C10&""\""&RIGHT(RC[-2],4)&""\""&LEFT(RC[-2],2)&""\""&RIGHT(RC[-3],4)&""\""&LEFT(RC[-3],LEN(RC[-3])-5)&"".pdf"""
    .Range("E3:E" & Lr).Value = "=R1C10&""\""&RIGHT(RC[-3],4)&""\""&LEFT(RC[-3],2)&""\""&RIGHT(RC[-4],4)&""\""&RIGHT(R1C10,2)&"".""&RIGHT(RC[-3],4)&"".""&LEFT(RC[-3],2)&"".""&RIGHT(RC[-2],4)&""-""&MID(RC[-2],4,2)&""-""&LEFT(RC[-2],2)&"".""&LEFT(RC[-4],LEN(RC[-4])-5)&"".pdf"""
    Sheets("Rename").Range("D3:D" & Lr).Value = Sheets("Rename").Range("D3:D10000").Value 'Lam an cong thuc
    Sheets("Rename").Range("E3:E" & Lr).Value = Sheets("Rename").Range("E3:E10000").Value  'Lam an cong thuc
   End With

 

[Hoantk223]

Dạ được rồi ạ. Mình cảm ơn nhiều ạ

 

[VetMini]

. . . . . . . . . . .

Tiếng Anh trong trường hợp này là "They couldn't care less".

 

[ptm0412]

Tiếng Anh trong trường hợp này là "They couldn't care less".

Bổ sung: They là đại danh từ ngôi thứ 3 số nhiều, và định nghĩa nhiều hơn 1 tức là nhiều.