Chia 1 vùng chọn cho 10

[a.nguoidensau]

Xin chào cả nhà
Tôi có câu hỏi này nhờ mọi người chỉ giúp.
Tôi có vùng chọn (chẳng hạn từ A1:O10) mỗi Cell là 1 số có 4 chữ số, . Bây giờ tôi muốn chia cả vùng chọn đó cho 10 thì phải làm thế nào.Tôi cũng đọc được ở đâu đó 1 lần, nhưng giờ không nhớ. Mong nhận được sự chỉ dẫn của mọi người. Xin cảm ơn.

 

[songsothuong]

Xin chào cả nhà
Tôi có câu hỏi này nhờ mọi người chỉ giúp.
Tôi có vùng chọn (chẳng hạn từ A1:O10) mỗi Cell là 1 số có 4 chữ số, . Bây giờ tôi muốn chia cả vùng chọn đó cho 10 thì phải làm thế nào.Tôi cũng đọc được ở đâu đó 1 lần, nhưng giờ không nhớ. Mong nhận được sự chỉ dẫn của mọi người. Xin cảm ơn.

Bạn cần nói rõ là chia tổng tất cả vùng chọn hay chia từng cell cho 10.

 

[a.nguoidensau]

Mình muốn chia từng Cell cho 10 bạn ah.

 

[phucbugis]

Xin chào cả nhà
Tôi có câu hỏi này nhờ mọi người chỉ giúp.
Tôi có vùng chọn (chẳng hạn từ A1:O10) mỗi Cell là 1 số có 4 chữ số, . Bây giờ tôi muốn chia cả vùng chọn đó cho 10 thì phải làm thế nào.Tôi cũng đọc được ở đâu đó 1 lần, nhưng giờ không nhớ. Mong nhận được sự chỉ dẫn của mọi người. Xin cảm ơn.

Bạn mở file, chạy Macro và bấm nút CommandButton 1 để xem kết quả.

Private Sub CommandButton1_Click()
Dim rng As Range, vung As Range
    Set vung = Range("A1:O10")
    For Each rng In vung
        If rng <> "" And IsNumeric(rng) = True Then rng = rng / 10
    Next
End Sub

Link: https://www.mediafire.com/?iofyx1e1qe0uxnn

 

[songsothuong]

Mình muốn chia từng Cell cho 10 bạn ah.

Bạn chỉ cần đặt công thức cho 1 cell ví dụ tại A12 =A1/10. Sau đó bạn đặt chuột vào góc dưới bên phải (dấu cộng đen) kéo xuống A21, rồi kéo ngang qua O21 hoặc bạn kéo ngang trước rồi kéo xuống cũng được.
Không biết đúng ý bạn chưa?

 

[a.nguoidensau]

Cảm ơn bạn, Ok rồi.
Nhưng bài toán này vẫn còn 1 cách thủ công mà mình không nhớ, hình như bài viết của anh Ndu hay HaiLuaMienTay gì đó.

 

[sealand]

Bạn thử làm như sau có đúng ý không:

- Lựa tạm 1 ô nào đó không dùng, gõ vào đó số cần chia: 10. Chọn và nhấn Ctrl+C để Copy ô đó.

- Quét chọn toàn bộ vùng cần chia cho số đã gõ (10).

- Vào Edit --> Paste Speacial --> Nhấn chọn Divide --> OK

- Xoá ô gõ tạm số chia (10) trả bảng tính bình thường.


Vậy là toàn bộ vùng sẽ được chia cho số bạn đã gõ tạm.
Chúc như ý.

 

[Ba Tê]

Cảm ơn bạn, Ok rồi.
Nhưng bài toán này vẫn còn 1 cách thủ công mà mình không nhớ, hình như bài viết của anh Ndu hay HaiLuaMienTay gì đó.

Muốn thủ công thì làm vầy thử xem:
1/ Nhập số 10 vào ô trống nào đó, ấn Copy
2/ Tô chọn vùng muốn chia cho 10 - Chọn Paste Special - Chọn Divide - OK
3/ Xóa ô chứa số 10 lúc nãy.

 

[chuot0106]

Bạn mở file, chạy Macro và bấm nút CommandButton 1 để xem kết quả.

Private Sub CommandButton1_Click()
Dim rng As Range, vung As Range
    Set vung = Range("A1:O10")
    For Each rng In vung
        If rng <> "" And IsNumeric(rng) = True Then rng = rng / 10
    Next
End Sub

Thấy bạn tiến bộ từng ngày, rất khâm phục!

 

[a.nguoidensau]

Phải công nhận rằng bạn phucbugis đang tiến bộ từng ngày.hiiii