Hỏi về tự động copy trong excel có dấu âm

Liên hệ QC

thanhnga84

Thành viên mới
Tham gia
15/4/09
Bài viết
40
Được thích
3
Nghề nghiệp
ke toan
Các bạn Vui lòng xem file đính kèm!!tks
 

File đính kèm

Tham gia ngày: 04 2009
Bài gởi: 17
Tổng số lần cảm ơn: 0
Được cảm ơn 0 lần trong 0 bài viết
Đã thực hiện 17 bài viết rồi mà sao không thấy có 1 lời cảm ơn nhỉ??????? Nghĩ cũng kì thật, có mất mát gì đâu khi chỉ cần bấm 1 cái nút cảm ơn. Điều đó cũng thể hiện được rằng sự giúp đỡ đó cũng có ích cho mình, hoặc khi đọc một bài viết nào đó cảm thấy hay (có thể không phải mình trực tiếp hỏi), bổ sung thêm cho mình một kiến thức mới thì cũng có thể cảm ơn người đó rồi.
Vài lời tâm tình gửi Bạn.
Bạn xem file có đúng ý chưa nhé!
 
Bạn xem file có đúng ý chưa nhé!
Hình như không ổn:
- Nhập số dương, kết quả là âm ---> Chính xác
- Nhập số âm, kết quả có 2 dấu trừ phía trước
Tôi nghĩ phải vầy:
-#,##0;-#,##0;0
Đã thực hiện 17 bài viết rồi mà sao không thấy có 1 lời cảm ơn nhỉ??????? Nghĩ cũng kì thật, có mất mát gì đâu khi chỉ cần bấm 1 cái nút cảm ơn. Điều đó cũng thể hiện được rằng sự giúp đỡ đó cũng có ích cho mình, hoặc khi đọc một bài viết nào đó cảm thấy hay (có thể không phải mình trực tiếp hỏi), bổ sung thêm cho mình một kiến thức mới thì cũng có thể cảm ơn người đó rồi.
Vài lời tâm tình gửi Bạn.
Cái này nhiều người nói hoài mà chẳng thấy ăn thua, thôi thì:
- Hỏi là việc của người ta
- Giúp là quyền của bạn
- CẢM ƠN là quyền của người ta luôn!

Ẹc... Ẹc... (giang sơn dể đổi... )
 
Lần chỉnh sửa cuối:
Chắc là phải dùng dòng lặp hoặc *-1 vì nếu chỉ thay đổi định dạng không thì khi tính toán nó vẫn là số dương.
 
Chắc là phải dùng dòng lặp rồi thầy ơi vì nếu chỉ thay đổi định dạng không thì khi tính toán nó vẫn là số dương.
Tôi chưa hiểu lắm! Tính toán cái gì? Tôi thử thấy bình thường mà, trừ phi người ta copy cell khác rồi paste trực tiếp vào cell mà mình đã định dạng (khi ấy đương nhiên định dạng sẽ bị mất) ---> Trường hợp này, lời khuyên là nên PasteSpecial\Value
 
Tôi chưa hiểu lắm! Tính toán cái gì? Tôi thử thấy bình thường mà, trừ phi người ta copy cell khác rồi paste trực tiếp vào cell mà mình đã định dạng (khi ấy đương nhiên định dạng sẽ bị mất) ---> Trường hợp này, lời khuyên là nên PasteSpecial\Value
Ý em nói là khi format 1 thành -1 thì bản thân nó chỉ là 1 chứ thực tế không phải là -1, nên nếu không xem kỹ thì lấy cell đó tính toán với cell khác nó sẽ cho kết quả không mong đợi.
 
Ý em nói là khi format 1 thành -1 thì bản thân nó chỉ là 1 chứ thực tế không phải là -1, nên nếu không xem kỹ thì lấy cell đó tính toán với cell khác nó sẽ cho kết quả không mong đợi.
Vâng! Tôi hiểu rồi
Đương nhiên Format chỉ là để nhìn thôi ---> Còn như muốn cho 1 số thành âm thật sự chắc phải dùng đến VBA
Cách khác (cực hơn): sửa lại toàn bộ công thức có tham chiếu đến các cell này!
Chờ tác giả hồi âm rồi tính tiếp nhé!
 
Nếu dùng VBA thì có code sau:

Nếu số âm thì giữ nguyên, ngược lại thì chuyển thành âm:
Mã:
Sub Doi()
On Error Resume Next
Dim rcell As Range
Set rcell = Sheet1.Range("c5:c" & Sheet1.[c65500].End(xlUp).Row)
For Each rcell In rcell
If rcell >= 0 Then
rcell = Val(rcell * -1)
Else
rcell = rcell
End If
Next rcell
End Sub
 
Nếu dùng VBA thì có code sau:

Nếu số âm thì giữ nguyên, ngược lại thì chuyển thành âm:
Mã:
Sub Doi()
On Error Resume Next
Dim rcell As Range
Set rcell = Sheet1.Range("c5:c" & Sheet1.[c65500].End(xlUp).Row)
For Each rcell In rcell
If rcell >= 0 Then
rcell = Val(rcell * -1)
Else
rcell = rcell
End If
Next rcell
End Sub
Code này sẽ biến các cell rổng thành số 0 đấy nha
Tôi nghĩ nên là vầy:
PHP:
Sub Doi()
  On Error Resume Next
  Dim rcell As Range
  For Each rcell In Selection
    If rcell <> "" Then rcell = -(Sgn(rcell) * rcell)
  Next rcell
End Sub
Hoặc có thể cho vào sự kiện Worksheet_Change để tự động luôn
 
Web KT

Bài viết mới nhất

Back
Top Bottom