[Visual Basic] 纯文本查看 复制代码 Sub TinhKhoiLuong()
Dim Rng As Range, sDienGiai As String
For Each Rng In Selection
sDienGiai = Rng.Offset(, -4).Value
sDienGiai = Replace(sDienGiai, ",", ".")
Rng.FormulaR1C1 = "=" & sDienGiai
Rng = Rng.Value
Next
ActiveCell.Select
End Sub
Em phải biết một ít về VBA để sửa code
Dữ liệu ở ô E (là ô I lùi về bên trái 4 ô) nên viết code sDienGiai = Rng.Offset(, -4).Value. Căn cứ vào đây để sửa code khi vị trí tương đối của ô Dữ liệu và ô Kết quả thay đổi khác đi.
Thay thế các dấu "," thành dấu "." nên viết code sDienGiai = Replace(sDienGiai, ",", ".")
Nếu muốn thay thế các dấu "x" thành dấu "*" thì viết thêm code sDienGiai = Replace(sDienGiai, "x", "*")
| 
Yêu thích
Theo dõi 
Chia sẻ
Bộ sưu tập
Thẻ cầu vòng
Tác giả