thaibui2002
Thành viên mới

- Tham gia
- 20/8/14
- Bài viết
- 7
- Được thích
- 0

hi,
mình muốn viết code chuyển đôi giá trị của cột J thành giá trị như cột k
mình dùng công thức thì làm ra đc nhưng muốn dùng trong vba thì nó báo lỗi
mình có kèm theo file,
thannks
=LEFT(J2,FIND(".",J2)-1) & "c" & LEFT(MID(J2,FIND(".",J2)+1,9) & "000",3)
=SUBSTITUTE(TEXT(J2,"0.000"),".","c")


Code của bạn thế nào mà báo lỗi? Gửi code lên xem thử
Bạn đang dùng công thức:
Hơi dài dòng! Có thể rút gọn thành:Mã:=LEFT(J2,FIND(".",J2)-1) & "c" & LEFT(MID(J2,FIND(".",J2)+1,9) & "000",3)
Vậy cũng ngắn rồi, cần gì đến codeMã:=SUBSTITUTE(TEXT(J2,"0.000"),".","c")
=SUBSTITUTE(TEXT(J2,"0.000"),".","c")