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

sonchuot90 · 15/10/22

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 ạ

le_vis · 16/10/22

sonchuot90 đã viết:
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 ạ
View attachment 282191

Hình như bạn muốn khi nhập hàm round vào ô đầu tiên có công thức thì những ô kế tiếp sau đó tự động cập nhật hàm round vào cho mình không phải copi xuống đúng không ? Nếu đúng cần như vậy thì sử dụng Table là được

TongDe · 16/10/22

Ô F3=Round(D3.0) kéo xuống ...

sonchuot90 · 16/10/22

le_vis đã viết:
Hình như bạn muốn khi nhập hàm round vào ô đầu tiên có công thức thì những ô kế tiếp sau đó tự động cập nhật hàm round vào cho mình không phải copi xuống đúng không ? Nếu đúng cần như vậy thì sử dụng Table là được

Dạ. Mình có công thức trước rồi. Bây giờ muốn chèn thêm hàm round vào trong công thức đấy

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

Tống Văn Đệ đã viết:
Ô F3=Round(D3.0) kéo xuống ...

Không đúng rồi bạn ạ. Ý mình là có công thức rồi. Muốn thêm hàm round vào công thức đấy.

huhumalu · 17/10/22

Làm vầy nha:
1. Tại A1 bạn nhấn Ctrl + H --> Replace, chuyển cái dấu "=" thành dấu "#" (ví dụ ô cần thêm round là A1)

2. Sau khi đã chuyển công thức thành chuỗi, bạn thêm 1 cột phụ (ví dụ B1) dùng công thức.

PHP:

=SUBSTITUTE(A1&",0)","#","#Round(")

bạn thu được chuỗi đã thêm hàm Round.
3. Chọn B1, nhấn copy rồi paste ra C1 dạng Paste Values

4. Tại C1 làm lại bước 1, nhấn Ctrl + H --> Replace, chuyển ngược lại dấu # thành dấu =
----------
Cách này nhẹ nhàng dễ dùng

tuy nhiều bước, nhưng bạn hiểu nguyên tắc thì không có gì khó cả, và bạn có thể làm một lúc cho rất nhiều ô.

huhumalu · 17/10/22

Hoặc bạn có thể sử dụng đoạn mã sau.

PHP:

Sub AddRound()
    For Each Cell In Selection
        If Cell.Formula <> "" and InStr(Cell.Formula, "ROUND") <> 2 Then
            Cell.Formula = Replace(Cell.Formula & ",0)", "=", "=Round(")
        End If
    Next
End Sub

sonchuot90 · 18/10/22

huhumalu đã viết:
Làm vầy nha:
1. Tại A1 bạn nhấn Ctrl + H --> Replace, chuyển cái dấu "=" thành dấu "#" (ví dụ ô cần thêm round là A1)
View attachment 282224
2. Sau khi đã chuyển công thức thành chuỗi, bạn thêm 1 cột phụ (ví dụ B1) dùng công thức.

PHP:

=SUBSTITUTE(A1&",0)","#","#Round(")

View attachment 282225
bạn thu được chuỗi đã thêm hàm Round.
3. Chọn B1, nhấn copy rồi paste ra C1 dạng Paste Values
View attachment 282226
4. Tại C1 làm lại bước 1, nhấn Ctrl + H --> Replace, chuyển ngược lại dấu # thành dấu =
----------
Cách này nhẹ nhàng dễ dùng tuy nhiều bước, nhưng bạn hiểu nguyên tắc thì không có gì khó cả, và bạn có thể làm một lúc cho rất nhiều ô.

Vâng. Cám ơn anh nhiều ạ

huhumalu đã viết:
Làm vầy nha:
1. Tại A1 bạn nhấn Ctrl + H --> Replace, chuyển cái dấu "=" thành dấu "#" (ví dụ ô cần thêm round là A1)
View attachment 282224
2. Sau khi đã chuyển công thức thành chuỗi, bạn thêm 1 cột phụ (ví dụ B1) dùng công thức.

PHP:

=SUBSTITUTE(A1&",0)","#","#Round(")

View attachment 282225
bạn thu được chuỗi đã thêm hàm Round.
3. Chọn B1, nhấn copy rồi paste ra C1 dạng Paste Values
View attachment 282226
4. Tại C1 làm lại bước 1, nhấn Ctrl + H --> Replace, chuyển ngược lại dấu # thành dấu =
----------
Cách này nhẹ nhàng dễ dùng tuy nhiều bước, nhưng bạn hiểu nguyên tắc thì không có gì khó cả, và bạn có thể làm một lúc cho rất nhiều ô.

Vâng. Em cám ơn anh

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

huhumalu đã viết:
Hoặc bạn có thể sử dụng đoạn mã sau.

PHP:

Sub AddRound() For Each Cell In Selection If Cell.Formula <> "" and InStr(Cell.Formula, "ROUND") <> 2 Then Cell.Formula = Replace(Cell.Formula & ",0)", "=", "=Round(") End If Next End Sub

Vâng. Code anh nhanh gọn. Em cám ơn anh ạ

VetMini · 18/10/22

huhumalu đã viết:
Hoặc bạn có thể sử dụng đoạn mã sau.

PHP:

Sub AddRound() For Each Cell In Selection If Cell.Formula <> "" and InStr(Cell.Formula, "ROUND") <> 2 Then Cell.Formula = Replace(Cell.Formula & ",0)", "=", "=Round(") End If Next End Sub

Code này không hẳn đúng. Tức là có những lúc nó ra sai.
Bạn tự suy nghĩ xem trường hợp nào thì nó sai.

cantl · 18/10/22

VetMini đã viết:
Code này không hẳn đúng. Tức là có những lúc nó ra sai.
Bạn tự suy nghĩ xem trường hợp nào thì nó sai.

có phải ý bác muốn đề cập đến hàm InStr ko nhỉ?

huhumalu · 18/10/22

cantailieu đã viết:
có phải ý bác muốn đề cập đến hàm InStr ko nhỉ?

Thiếu trường hợp ô chỉ chứa giá trị, code tại bài #6 sẽ bị sai.
Nên sửa thành:

Mã:

Sub AddRound()
    For Each Cell In Selection
        If Cell.HasFormula = True And InStr(Cell.Formula, "ROUND") <> 2 Then
            Cell.Formula = Replace(Cell.Formula & ",0)", "=", "=Round(")
        End If
    Next
End Sub

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

VetMini đã viết:
Code này không hẳn đúng. Tức là có những lúc nó ra sai.
Bạn tự suy nghĩ xem trường hợp nào thì nó sai.

Em sửa lại như trên rồi, anh góp ý thêm để hoàn thiện luôn.

cantl · 18/10/22

huhumalu đã viết:
Thiếu trường hợp ô chỉ chứa giá trị, code tại bài #6 sẽ bị sai.

Mình hỏi cái: nếu thay vì gõ =A1+A2, mà lại gõ +A1+A2, thì khi round nó hơi xấu nhỉ.

VetMini · 18/10/22

huhumalu đã viết:
...
Em sửa lại như trên rồi, anh góp ý thêm để hoàn thiện luôn.

Replace("=IF(A1=B1, 1, 2)" & ")", "=", "=Round(")
---> =Round(IF(A1=Round(B1, 1, 2),0)
(vì công thức này lỗi cho nên VBA sẽ báo lỗi thay vì cho kết quả sai)

Gợi ý: hàm Replace có một tham số cho biết cần thay mấy lượt.

huhumalu · 19/10/22

VetMini đã viết:
Replace("=IF(A1=B1, 1, 2)" & ")", "=", "=Round(")
---> =Round(IF(A1=Round(B1, 1, 2),0)
(vì công thức này lỗi cho nên VBA sẽ báo lỗi thay vì cho kết quả sai)

Gợi ý: hàm Replace có một tham số cho biết cần thay mấy lượt.

Cảm ơn anh, em chỉnh lại.

Mã:

Cell.Formula = Replace(Cell.Formula & ",0)", "=", "=Round(", , 1)

Replace(expression, find, replace, [ start, [ count, [ compare ]]])

huhumalu · 19/10/22

cantailieu đã viết:
Mình hỏi cái: nếu thay vì gõ =A1+A2, mà lại gõ +A1+A2, thì khi round nó hơi xấu nhỉ.

Bạn gõ gì thì sau trong ô nó cũng nhảy về dấu "=" ở đầu.

VetMini · 19/10/22

huhumalu đã viết:
Bạn gõ gì thì sau trong ô nó cũng nhảy về dấu "=" ở đầu.

Gõ dấu + thay cho = là dư âm của Lotus123

Nhattanktnn · 19/10/22

huhumalu đã viết:
Thiếu trường hợp ô chỉ chứa giá trị, code tại bài #6 sẽ bị sai.
Nên sửa thành:

Mã:

Sub AddRound() For Each Cell In Selection If Cell.HasFormula = True And InStr(Cell.Formula, "ROUND") <> 2 Then Cell.Formula = Replace(Cell.Formula & ",0)", "=", "=Round(") End If Next End Sub

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

Em sửa lại như trên rồi, anh góp ý thêm để hoàn thiện luôn.

Lỡ dữ liệu họ có hàm Round đầu tiên thì sao nhỉ

VetMini · 19/10/22

Nhattanktnn đã viết:
Lỡ dữ liệu họ có hàm Round đầu tiên thì sao nhỉ

Việc đó không nằm trong khuôn khổ giới hạn của đề bài này. Round bọc nhau vài ba lần cũng chả chết ai.

Nhattanktnn · 19/10/22

VetMini đã viết:
Việc đó không nằm trong khuôn khổ giới hạn của đề bài này. Round bọc nhau vài ba lần cũng chả chết ai.

Đúng là bọc nhau chả chết ai, nhưng code của bác huhumalu lại có thực hiện bọc nhau trong trường hợp này đâu (Em mở rộng tí thôi, còn đối với đề bài thì code bác ấy chuẩn rồi)

huhumalu · 19/10/22

Nhattanktnn đã viết:
Lỡ dữ liệu họ có hàm Round đầu tiên thì sao nhỉ

Có khúc bẫy

Mã:

InStr(Cell.Formula, "ROUND") <> 2

để tránh add nhiều lần khi code chạy nhiều lần.
Chỉ có đối số hàm round khác nhau thì thôi, chán luôn.

cantl · 19/10/22

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

VetMini đã viết:
Gõ dấu + thay cho = là dư âm của Lotus123

Nhattanktnn đã viết:
Lỡ dữ liệu họ có hàm Round đầu tiên thì sao nhỉ

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

huhumalu đã viết:
Có khúc bẫy

Mã:

InStr(Cell.Formula, "ROUND") <> 2

để tránh add nhiều lần khi code chạy nhiều lần.
Chỉ có đối số hàm round khác nhau thì thôi, chán luôn.

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

Thành viên mới

File đính kèm

Thành viên tích cực

Thành viên tiêu biểu

Thành viên mới

Thành viên tích cực

Thành viên tích cực

Thành viên mới

Ăn cùng góc phố

!!! Giải thoát !!!

Thành viên tích cực

!!! Giải thoát !!!

Ăn cùng góc phố

Thành viên tích cực

Thành viên tích cực

Ăn cùng góc phố

Thành viên gắn bó

Ăn cùng góc phố

Thành viên gắn bó

Thành viên tích cực

!!! Giải thoát !!!

File đính kèm