Tính toán giá trị

[Yeudoi]

Mình có một thắc mắc nhỏ mong được giúp đỡ:
Tại cột D có chứa giá trị và mình muốn tại cột F = cột A*B nó sẽ tính toán đến hết dòng trống tại cột D, nhưng nó chỉ hiển thị giá trị không hiển thị công thức nha như vậy phải viết macro như thế nào. MÌnh mong được mọi người giúp đỡ nha.

 

[HongViet]

Tính theo cột bên

Mình có một thắc mắc nhỏ mong được giúp đỡ:
Tại cột F có chứa giá trị và mình muốn tại cột F = cột A*B nó sẽ tính toán đến hết dòng trống tại cột F, nhưng nó chỉ hiển thị giá trị không hiển thị công thức nha như vậy phải viết macro như thế nào. MÌnh mong được mọi người giúp đỡ nha.

Các cột mình đã đổi khác bạn; cần chỉnh sửa lại!
Sub ResultForBlank()
Dim iDau As Integer, iCuoi As Integer, jZ As Integer
Dim sAddr As String
1 '. Tim O Trong Tren Cot 'F'
iDau = Selection.Row: sAddr = Selection.Address
Range("F" & CStr(iDau)).Select
Selection.End(xlDown).Select: iCuoi = Selection.Row
sAddr = Mid(sAddr, 2, 1)
2 '. Ti1huc Hien Tinh Toan
For jZ = iDau To iCuoi
Range(sAddr & CStr(jZ)).Value = Range("D" & CStr(jZ)).Value * Range("E" & CStr(jZ)).Value
Next jZ
End Sub

 

[Yeudoi]

Cảm ơn bạn Hồng Việt đã trả lời. Để mình xem thử nha.

 

[adam_tran]

Vấn đề này bác có thể lập công thức rồi dùng Sheet Protection để dấu công thức đi.

Vào Format - Cell, chọn tab Protection chọn Hidden. Sau khi nhập công thức vào Cell được che (hidden), bác protect sheet là nó che công thức của bác.

 

[Yeudoi]

Cái dấu công thức là không phải ý của mình rồi, bởi nếu mình dùng công thức thì nếu dữ liệu của mình có khoảng 40000 dòng nhập liệu ( các cột A,B,C,D và E) E = A*B*C*D/100000 thì không lẽ kéo công thức đến dòng thứ n hay sao. Làm như vậy cơ sở dữu liệu sẽ rất nặng.

 

[snoopy2004]

Bạn nào có tài liệu về viết macro trong excel , hoặc sử dụng VBA trong excel (bằng tiếng việt thì càng tốt) thì gửi cho mình nhé.
Cám ơn rất nhiều.:friend:

 

[ruadangyeu]

Việc này đơn giản lắm
Bạn chỉ cần một thủ tục nhỏ như thế này

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim i As Integer
i = 0
Do While Worksheets(1).Range("a1").Offset(i, 0) <> ""
Worksheets(1).Range("f1").Offset(i, 0) = Worksheets(1).Range("f1").Offset(i, -4) * Worksheets(1).Range("f1").Offset(i, -5)
'F = B*A
i = i + 1
Loop
End Sub

Chúc thành công