Làm sao code hiểu như copy công thức (1 người xem)

[congnguyen88]

Tôi có 1 bảng tính Excel gồm 3 cột Đơn giá, Số lượng, thành tiền dữ liệu nằm trong vùng A2:C100 tôi mới học Vba nên tôi viết code tính thành tiền như sau

Sub Tinhthanhtien()
Range("c2") = Range("a2") * Range("b2")
Range("c3") = Range("a3") * Range("b3")
............
............
Range("c100") = Range("a100") * Range("b100")
End Sub


Nếu như vậy Dài quá, có cách nào không mọi người

 

[Ngoai Thanh]

Tôi có 1 bảng tính Excel gồm 3 cột Đơn giá, Số lượng, thành tiền dữ liệu nằm trong vùng A2:C100 tôi mới học Vba nên tôi viết code tính thành tiền như sau

Sub Tinhthanhtien()
Range("c2") = Range("a2") * Range("b2")
Range("c3") = Range("a3") * Range("b3")
............
............
Range("c100") = Range("a100") * Range("b100")
End Sub


Nếu như vậy Dài quá, có cách nào không mọi người

Nếu để tính thì bạn thử tý tẹo này xem :

Sub thu()
Range("C2").FormulaR1C1 = "=RC[-2]*RC[-1]"
Range("C2").AutoFill Destination:=Range("C2:C100")
End Sub

chứ ai lại làm trăm dòng thế .

 

[susu16b]

Tôi có 1 bảng tính Excel gồm 3 cột Đơn giá, Số lượng, thành tiền dữ liệu nằm trong vùng A2:C100 tôi mới học Vba nên tôi viết code tính thành tiền như sau

Sub Tinhthanhtien()
Range("c2") = Range("a2") * Range("b2")
Range("c3") = Range("a3") * Range("b3")
............
............
Range("c100") = Range("a100") * Range("b100")
End Sub


Nếu như vậy Dài quá, có cách nào không mọi người

Thử thế này xem!

Sub Tinhthanhtien()
Range("C2:C100").FormulaR1C1 = "=RC[-2]*RC[-1]"
End Sub

 

[congnguyen88]

Thử thế này xem!

Sub Tinhthanhtien()
Range("C2:C100").FormulaR1C1 = "=RC[-2]*RC[-1]"
End Sub

Không được rồi mình muốn ô đó chỉ hiện ra kết quả value thôi, đừng có hiện công thức khi nhắp đúp vào

 

[congnguyen88]

Nếu để tính thì bạn thử tý tẹo này xem :

Sub thu()
Range("C2").FormulaR1C1 = "=RC[-2]*RC[-1]"
Range("C2").AutoFill Destination:=Range("C2:C100")
End Sub

chứ ai lại làm trăm dòng thế .

Không được rồi mình muốn ô đó chỉ hiện ra kết quả value thôi, đừng có hiện công thức khi nhắp đúp vào

 

[Ngoai Thanh]

Thử thế này xem!

Sub Tinhthanhtien()
Range("C2:C100").FormulaR1C1 = "=RC[-2]*RC[-1]"
End Sub

đúng là gọn hơn. Nhưng gọn tý nữa vẫn chạy :

Sub Tinhthanhtien()
Range("C2:C100").Formula = "=RC[-2]*RC[-1]"
End Sub

 

[Ngoai Thanh]

Không được rồi mình muốn ô đó chỉ hiện ra kết quả value thôi, đừng có hiện công thức khi nhắp đúp vào

thế thì :
Sub Tinhthanhtien()
Range("C2:C100").Formula = "=RC[-2]*RC[-1]"
With Range("C2:C100")
.Value = .Value
End With
End Sub

à quên, quay lại để cảm ơn susu !

 

[nghiaphuc]

thế thì :
Sub Tinhthanhtien()
Range("C2:C100").Formula = "=RC[-2]*RC[-1]"
With Range("C2:C100")
.Value = .Value
End With
End Sub

à quên, quay lại để cảm ơn susu !

Câu lệnh With chỉ để chứa 1 lệnh trong đó thì phí quá. Sửa lại thế này đỡ phí hơn:
[GPECODE=vb]Sub Tinhthanhtien()
With Range("C2:C100")
.Formula = "=RC[-2]*RC[-1]"
.Value = .Value
End With
End Sub[/GPECODE]

 

[ndu96081631]

đúng là gọn hơn. Nhưng gọn tý nữa vẫn chạy :

Sub Tinhthanhtien()
Range("C2:C100").Formula = "=RC[-2]*RC[-1]"
End Sub

Thế... nếu dùng .Value thay cho chỗ màu đỏ thì có được không?

 

[Quang_Hải]

Thế... nếu dùng .Value thay cho chỗ màu đỏ thì có được không?

Nếu vậy thì bỏ quách luôn chữ value cho rồi...Kết quả cũng như nhau
Muốn ngắn thì cho ngắn. Số dòng cũng ít hơn, ký tự cũng ít hơn và nhìn cũng thấy gớm hơn luôn

Sub Tinhthanhtien()    
    [C2:C100] = "=RC[-2]*RC[-1]"
    [C2:C100] = [C2:C100]
End Sub

 

[Ngoai Thanh]

!!!!!!!!!!!!!!!!!!!!!!!!!

 

[Tóc gió thôi bay]

Tôi có 1 bảng tính Excel gồm 3 cột Đơn giá, Số lượng, thành tiền dữ liệu nằm trong vùng A2:C100 tôi mới học Vba nên tôi viết code tính thành tiền như sau

Sub Tinhthanhtien()
Range("c2") = Range("a2") * Range("b2")
Range("c3") = Range("a3") * Range("b3")
............
............
Range("c100") = Range("a100") * Range("b100")
End Sub


Nếu như vậy Dài quá, có cách nào không mọi người

còn tóc đâu nữa mà bay ?

Sub Tinhthanhtien()
    [C2:C100] = [A2:A100 * B2:B100]
End Sub

 

[congnguyen88]

thế thì :
Sub Tinhthanhtien()
Range("C2:C100").Formula = "=RC[-2]*RC[-1]"
With Range("C2:C100")
.Value = .Value
End With
End Sub

à quên, quay lại để cảm ơn susu !

Em làm được rồi
code đây nek

Sub Tinhthanhtien()
Range("C2:C100").Formula = "=RC[-2]*RC[-1]"
Range("C2:C100") = Range("C2:C100").Value
End Sub

 

[vu_tuan_manh_linh]

Tôi có 1 bảng tính Excel gồm 3 cột Đơn giá, Số lượng, thành tiền dữ liệu nằm trong vùng A2:C100 tôi mới học Vba nên tôi viết code tính thành tiền như sau

Sub Tinhthanhtien()
Range("c2") = Range("a2") * Range("b2")
Range("c3") = Range("a3") * Range("b3")
............
............
Range("c100") = Range("a100") * Range("b100")
End Sub


Nếu như vậy Dài quá, có cách nào không mọi người

Tôi vẫn thường sử dụng thủ tục worksheet_Change() trong những trường hợp như thế này.