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
Đã 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.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
Hình như không ổn:Bạn xem file có đúng ý chưa nhé!
Cái này nhiều người nói hoài mà chẳng thấy ăn thua, thôi thì:Đã 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.
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\ValueChắ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.
Ý 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.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
Vâng! Tôi hiểu rồ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.
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 nhaNế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
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