Nhân 1 hàng với 1 hằng số (2 người xem)

[thuong_mdc80]

Tôi muốn nhân một hàng (vd A1:E1), mà hàng này đã có công thức với cùng 1 gía trị là hằng số (vd 1.523), nhưng kết quả lại vẫn hiện lên ở hàng đó (vd A1:E1 vì các hàng khác đã có dữ liệu). Nếu mà nhân thủ công cho từng vị trí thì rất lâu.
Ai biết chỉ giúp tôi!

 

[yeudoi]

Bạn nên viết chữ có dấu để mọi người có thể trả lời bạn. Mong bạn gửi lại câu hỏi với chữ có dấu

 

[thuong_mdc80]

Cảm ơn bạn đã góp ý.

 

[vancong]

yêu đời trả lời ko được thì thôi nhen . Mình cũng không biết mong mọi người giúp đỡ nhiều hơn , xin cảm ơn

 

[vancong]

bạn nào có file kế toán hay , áp dụng cho các nông trường cho mình xin . cảm ơn các bạn
Địa chỉ Email :luong_thien99@yahoo.com
chào các bạn

 

[HHN]

bạn nào có file kế toán hay , áp dụng cho các nông trường cho mình xin . cảm ơn các bạn
Địa chỉ Email :luong_thien99@yahoo.com
chào các bạn

Góp ý chút: lần sau bạn muốn xin soft thì mở thread mới hoặc search trên diến đàn trước nhé, không nên post vào thread của người khác.
Chúc vui

 

[thanhtri]

Theo yêu cầu của bạn thì tôi chỉ thấy có mỗi 1 cách là dùng chức năng "Tim kiếm và thay thế" (Bấm Ctrl + H). Tiếp theo bạn chú ý trong công thức cần nhân có gì đặc biệt hơn những cell khác. Lấy ví dụ trong công thức này có đoạn ...abc*SUMPRODUCT (mà những cell khác ko có đoạn này) Vậy thì khi bạn bấm Ctrl +H, bạn thay abc*SUMPRODUCT thành abc*1.523*SUMPRODUCT
Chúc bạn thành công
Miss TT

 

[SA_DQ]

Theo yêu cầu của bạn thì tôi chỉ thấy có mỗi 1 cách là dùng chức năng "Tim kiếm và thay thế"

(hưa ổn, vì ta fải tìm cái chi đây? (tìm CThức còn may ra chứ tìm giá trị thì vô chừng; Biết đâu thua biện fáp thủ công nữa là #))
(ó cách này, nhưng sẽ mất công thức cũ!
B1: Chọn các ô cần thay;
B2: Viết macro để thay vùng chọn bỡi giá trị mới:
Dim Rng As Range, Rng0 As Range
Set Rng0 = Selection
For Each Rng In Rng0
Rng.Value= Rng.Value * .3535
Next Rng

 

[Mr Okebab]

Tôi muốn nhân một hàng (vd A1:E1), mà hàng này đã có công thức với cùng 1 gía trị là hằng số (vd 1.523), nhưng kết quả lại vẫn hiện lên ở hàng đó (vd A1:E1 vì các hàng khác đã có dữ liệu). Nếu mà nhân thủ công cho từng vị trí thì rất lâu.
Ai biết chỉ giúp tôi!

A2 = 1.523

Copy A2
Chọn A1:E1 --> Paste Special --> Mutilply -->OK


Thân!

 

[nvson]

Chọn vùng cần nhân rồi chạy macro sau:

Public Sub Nhan()
On Error Resume Next
Dim rngData As Range
Set rngData = Selection
Dim cell_i
Dim gtri
gtri = CDbl(InputBox("Nhap gia tri"))
For Each cell_i In rngData
    If cell_i.HasFormula Then
        cell_i.Formula = "=(" & Mid(cell_i.Formula, 2) & ")*" & gtri
    Else
        cell_i.Value = cell_i.Value * gtri
    End If
Next cell_i
End Sub

 

[thanhtri]

Ai chà chà. 1 lần nữa cách của anh Hiếu lại vô cùng đơn giản và hiệu quả. Heeeeeeeeee. Còn bạn SA_DQ nói "tìm kiếm và thay thế" ko dc uh? Em làm bằng cách này hoài. Rõ ràng bạn thuong MDC 80 nói cell bạn cần nhân chứa công thức cơ mà. Tất nhiên là tìm công thức rồi. Nhưng chỉ có cái là phải đễ ý xem trong công thức ấy có cái gì khác với những công thức khác thôi. Em thấy chẳng vấn đề gì cả
Miss TT

 

[SA_DQ]

. . . Còn bạn SA_DQ nói "tìm kiếm và thay thế" ko dc uh? Em làm cách này hoài. Rõ ràng bạn thuong MDC 80 nói cell bạn cần nhân chứa công thức cơ mà. Tất nhiên là tìm công thức rồi. Nhưng chỉ có cái là phải đễ ý xem trong công thức ấy có cái gì khác với những công thức khác thôi. Em thấy chẳng vấn đề gì cả

Ừ hén, tìm các công thức cho trị:
Selection.SpecialCells(xlCellTypeFormulas, 1).Select