cách chèn 1 loạt hàm round vào trong công thức

[sonchuot90]

Em xin chào anh chị trong diễn đàn, nhờ anh chị hướng dẫn giúp em cách chèn thêm hàm round vào ô đã có công thức
Mong anh chị giúp đỡ e ạ, Em xin cám ơn ạ

 

[VetMini]

Các a ạ, còn tí tẹo vấn đề với những người thích dùng dấu + nữa.
...

Tôi chỉ có vấn đề với những người thích dùng từ a thôi.
Dấu + hay đấp-bồ, tríp-bồ, hay qua-trúp-bồ, hay thậm chí quin-túp-bồ hàm Round chả có vấn đề gì.

 

[cantl]

Tôi chỉ có vấn đề với những người thích dùng từ a thôi.
Dấu + hay đấp-bồ, tríp-bồ, hay qua-trúp-bồ, hay thậm chí quin-túp-bồ hàm Round chả có vấn đề gì.

Vâng, thói quen hay dùng a để gọi anh ạ. Cái này rút kinh nghiệm được.
Còn kết quả ở trên là nếu có dấu + ở trước round thì sub không bỏ qua mà vẫn thêm round vào. Chỉ là một số ít người họ hay dùng dấu + thay cho dấu = nên phát sinh tình huống. Nó không ảnh hưởng lắm nhưng gặp thì em nêu ra thôi ấy mà.

 

[huhumalu]

Các a ạ, còn tí tẹo vấn đề với những người thích dùng dấu + nữa.

Sáng ra định bổ sung thêm cái Replace "=+" thành "="
Nhưng sự nhớ đến lời dặn của anh @VetMini, lại nghĩ, lỡ có công thức

=(+(+$H$11+5)+I14)

Nên xác nhận lại là bó tay, không thể kể hết được ý các bạn. Việc "=Round(+" thừa dấu "+" chả ảnh hưởng gì đến kết quả.

Sub AddRound()
    For Each Cell In Selection
        Cell.Formula = Replace(Cell.Formula, "=+", "=", , 1) '1'
        '--> Bạn tự nghĩ và thêm vào dòng '1' những trường hợp có thể nghĩ ra.
        If Cell.HasFormula = True And InStr(Cell.Formula, "ROUND") <> 2 Then
            Cell.Formula = Replace(Cell.Formula & ",0)", "=", "=Round(", , 1)
        End If
    Next
End Sub

 

[cantl]

Sáng ra định bổ sung thêm cái Replace "=+" thành "="
Nhưng sự nhớ đến lời dặn của anh @VetMini, lại nghĩ, lỡ có công thức

Vâng code này hay phía trên là OK rồi, vì bản thân cũng từng nhận được file + đầu dòng, rồi ++ nữa, nó ko ảnh hưởng nhưng nhìn ko thương được, và cứ nông dân mà xử Ctrl+H để chuẩn lại công thức. Xin cảm ơn các anh chị.

 

[VetMini]

Lại gặp nhằm dân lười biếng thử mà thích cãi bướng rồi.

Nhiều hàm Round không có nghĩa là dư. OK với Ô kè.

nếu dữ liêu là 1.2345
Round(1.2345, 3) là 1.235. Round(1.2345, 2) là 1.23
Nhưng Round(Round(1.2345, 3), 2) là 1.24.

Trước khi nói chuyện ko thương với kóc thương thì chịu khó thử chút.

 

[cantl]

Lại gặp nhằm dân lười biếng thử mà thích cãi bướng rồi.

Bác ơi, vừa lòng bác khó quá, kiểu gì bác cũng bắt bẻ được. E đã Ctrl+H để thay "=+" hay "=++,+++" rồi thì code trên OK rồi. E cũng chả hiểu e cãi bướng kiểu gì luôn. E đã công nhận code chuẩn và cảm ơn mọi người rồi. Còn bác nói e ko thử thì hơi sai đấy, e thử các kiểu nên mới hỏi nhiều lung tung thế. Ví dụ bác đưa là quá chuẩn nhưng bảo e ko thử hay cãi bướng là sai, còn lười là đúng, mặc dù lười nhưng có thử và hỏi chứ ko cãi bướng. Nghe ko vừa tai thì bác bỏ qua cho e nhé.

 

[befaint]

OK với Ô kè.

Em e rằng họ không có nhận ra đâu anh. Ngấm vào máu rồi.

 

[VetMini]

Em e rằng họ không có nhận ra đâu anh. Ngấm vào máu rồi.

Muốn a lại mà e không được nhận.
Cái o ca cứ theo kiểu ca o.

 

[cantl]

Bài đã được tự động gộp: 22/10/22

Em e rằng họ không có nhận ra đâu anh. Ngấm vào máu rồi.

Muốn a lại mà e không được nhận.
Cái o ca cứ theo kiểu ca o.

Chính xác luôn các bác.