Muốn tính toán trong vùng mình muốn chọn (1 người xem)

[foureye1055]

Mình viết code macro muốn tính toán vùng mà minh chọn thôi. thì mình phai làm sao? Ví dụ mình chọn từ C7:C22. Mình nhấn nút Gross pay thì nó tính trong vùng đó thôi. Mọi người xem file đinh kèm rồi chỉ mình với.

 

[ndu96081631]

Mình viết code macro muốn tính toán vùng mà minh chọn thôi. thì mình phai làm sao? Ví dụ mình chọn từ C7:C22. Mình nhấn nút Gross pay thì nó tính trong vùng đó thôi. Mọi người xem file đinh kèm rồi chỉ mình với.

Code cũ của bạn là

Sub Gross_Pay()
    Range("C2").Select
    Dim strC As String
    ActiveCell.FormulaR1C1 = "=RC[-1]*RC[-2]"
    strC = InputBox("Enter the number of lines: ")
    Selection.AutoFill Destination:=Range("C2:C" & strC + 1), Type:=xlFillDefault
End Sub

Sửa thành vầy là được:

Sub Gross_Pay()
  Selection.FormulaR1C1 = "=RC1*RC2"
End Sub

 

[foureye1055]

Cách của bạn rất hay. nhưng vẫn chưa ổn ở chỗ mình muốn kết quả sẽ hiện thị ra Cột C thôi. thì phải làm sao ?? Mong mọi người giúp giùm

 

[hungpecc1]

Cách của bạn rất hay. nhưng vẫn chưa ổn ở chỗ mình muốn kết quả sẽ hiện thị ra Cột C thôi. thì phải làm sao ?? Mong mọi người giúp giùm

Bạn thử bôi đen chọn cột C rồi chạy code của anh Ndu xem thế nào !

 

[foureye1055]

Hi. làm như vậy thì ok. Nhưng cho mình hỏi xíu là. nếu mình chọn ngoài cột C thì nó không tính toán thì mình phải làm sao vậy??

 

[hungpecc1]

Hi. làm như vậy thì ok. Nhưng cho mình hỏi xíu là. nếu mình chọn ngoài cột C thì nó không tính toán thì mình phải làm sao vậy??

hix, vậy tóm lại toàn bộ ý tưởng , ý đồ của bạn là gì ??? --> bạn có thể nêu hay liệt kê chi tiết ra được không ???
---> Bạn dẫn dắt lỗi chơi kỳ quá, "Ban bật" ít thôi không là loại hết đội hình

 

[foureye1055]

hihi. Ý của mình là khi mình Click nút Gross Pay thì nó chỉ tính toán trong cột C, chứ còn những cột ngoài thì không cho tính, bắt buộc người dùng phải chọn trong Côt C và không cho nhập dữ liệu trong cột C.

 

[ndu96081631]

hihi. Ý của mình là khi mình Click nút Gross Pay thì nó chỉ tính toán trong cột C, chứ còn những cột ngoài thì không cho tính, bắt buộc người dùng phải chọn trong Côt C và không cho nhập dữ liệu trong cột C.

Thì thay chổ Selection thành Range("C2:C100") thôi

Sub Gross_Pay()
  Range("C2:C100").FormulaR1C1 = "=RC1*RC2"
End Sub

Mấy cái đơn giản này nên tự suy luận

 

[foureye1055]

Bạn ndu ơi. Như vậy thì cũng không ổn lắm. nếu mà như vậy thì mình làm code cũ cũng dc. nhưng mà ý mình vẫn muốn làm như code "Selection.FormulaR1C1 = "=RC1*RC2"" nhưng nếu người dùng chọn cột khác ngoài cột C thì xuất không cho ngta tính, chỉ cho ngta tính khi chọn trong Cột C thôi. Và cho mình hỏi thêm nếu không muốn nhập dữ liệu trong cột C mà chỉ cho Bấm Gross Pay tính thôi thì sao.

 

[ndu96081631]

Bạn ndu ơi. Như vậy thì cũng không ổn lắm. nếu mà như vậy thì mình làm code cũ cũng dc. nhưng mà ý mình vẫn muốn làm như code "Selection.FormulaR1C1 = "=RC1*RC2"" nhưng nếu người dùng chọn cột khác ngoài cột C thì xuất không cho ngta tính, chỉ cho ngta tính khi chọn trong Cột C thôi. Và cho mình hỏi thêm nếu không muốn nhập dữ liệu trong cột C mà chỉ cho Bấm Gross Pay tính thôi thì sao.

Bạn nói lòng vòng 1 hồi khiến tôi lùng bùng lỗ tai chả hiểu gì cả!
- Tại sao phải chọn cột C rồi mới cho bấm nút?
- Cái việc CHỌN ấy nhằm mục đích gì?
- Bấm nút thì cứ việc tính, mắc mớ gì phải chọn?

 

[foureye1055]

Mục đích của mình giống như bắt lỗi vậy đó.
- Nếu mà dùng Selection.FormulaR1C1 = "=RC1*RC2" thì khi mình chọn ra bên ngoài cột C thì nó vẫn tính ở những ô mình chọn.
- Nếu mà dùng code cũ và code Range("C2:C100").FormulaR1C1 = "=RC1*RC2" này thì nó tính toán từ C2:C100 nên nó ko ổn.
Mình cũng cám ơn bạn về sự giúp đỡ. nhưng bạnơi cho mình hỏi cái nay nua nha.
Mình muốn không cho nhập dữ liệu vào cột C thì làm sao?