Làm sao đánh số 100 thi cho kết quả 100.000

Liên hệ QC

vuphai

Thành viên mới
Tham gia
26/3/09
Bài viết
7
Được thích
0
các bạn chỉ cho mình ,cách nhập dữ liệu trong ô ,đánh số 100 sẽ thành 100.000+-+-+-+
hhihi ,mình dốt quá
thank...........
 
các bạn chỉ cho mình ,cách nhập dữ liệu trong ô ,đánh số 100 sẽ thành 100.000+-+-+-+
hhihi ,mình dốt quá
thank...........
Cái dấu chấm đó là gì? Là dấu phân cách hàng ngàn hay là dấu phân cách thập phân?
Nhập một trăm, hiển thị một trăm ngàn; hay là nhập một trăm, thì vẫn là một trăm nhưng hiển thị thì có thêm ba số lẻ thập phân?
 
hhuhu

nhập 100 hiển thị 100 ngàn bạn ạ
và bạn cho mình hỏi thêm làm sao để lọc ra những dòng có ô màu đỏ được đánh dấu trong hỗn hợp
 
nhập 100 hiển thị 100 ngàn bạn ạ
và bạn cho mình hỏi thêm làm sao để lọc ra những dòng có ô màu đỏ được đánh dấu trong hỗn hợp
Bạn cần đến sự hỗ trợ của VBA. VD vùng nhập liệu của bạn là A1:A100
PHP:
Sub worksheet_change(ByVal target As Range)
Application.EnableEvents = False
On Error GoTo thoat
If Not Intersect(target, [A1:A100]) Is Nothing Then target = target.Value * 1000
thoat:
Application.EnableEvents = True
End Sub

Câu hỏi 2 bạn dùng Excel 2007 nha, nếu không thì vẫn phải dùng đến VBA
 

File đính kèm

  • addnum.xls
    16.5 KB · Đọc: 47
Lần chỉnh sửa cuối:
tức là trong cơ sở dữ liệu có 1 số ô được đành dấu màu đỏ,mình muốn lọc ra những dòng có chứa ô màu đỏ đó ấy mà.
giúp mình với nha
thân chào!
 

File đính kèm

  • huhu.xls
    13.5 KB · Đọc: 15
Chỉnh sửa lần cuối bởi điều hành viên:
Những ô màu đỏ bạn đánh dấu theo điều kiện như thế nào? Mình nghĩ nếu lọc dùng AutoFilter thì OK.
 
Mình tham gia 1 chút
 

File đính kèm

  • Copy of huhu.xls
    24.5 KB · Đọc: 16
Có mấy vấn đề bạn lưu ý:
1/Cột kiểm tra là cột 5 bạn viết là cột 8.
2/Màu đỏ có chỉ số màu là 3 bạn điền là 8.
3/Ô tổng cộng bạn dùng công thức =SUBTOTAL(109,E8:E126) thay cho hàm sum> Như vậy khi lọc chỉ cộng những số được lọc.
4/Ban thêm Application.ScreenUpdating = False để màn hình không nháy

Tóm lại sửa code như sau:
Mã:
Sub loc()
[COLOR=Blue]Application.ScreenUpdating = False[/COLOR]
For i = 8 To 125
If Cells(i, [COLOR=Blue]5[/COLOR]).Font.ColorIndex = [COLOR=Blue]3[/COLOR] Then
Rows(i).Hidden = False
Else
Rows(i).Hidden = True
End If
Next
[COLOR=Blue]Application.ScreenUpdating = True[/COLOR]
End Sub
 
bác sealand cho em hỏi

bác sealand cho em hỏi:
ví dụ em có những ô màu đỏ ở cả cột 5,6,7 thì em chọn :If Cells(i, 5:6:7)

co đúng ko ạ
 
Bạn sửa 1 chút:
Mã:
[COLOR=Black]Sub loc()
[/COLOR] [COLOR=Black]Application.ScreenUpdating = False
For i = 8 To 125
If [B][COLOR=Red]Cells(i, [/COLOR][/B][/COLOR][B][COLOR=Red]5).Font.ColorIndex = [/COLOR][COLOR=Red]3 Or _
 Cells(i, [/COLOR][COLOR=Red]6).Font.ColorIndex = [/COLOR][COLOR=Red]3 Or _
Cells(i, [/COLOR][COLOR=Red]7).Font.ColorIndex = [/COLOR][/B][COLOR=Black][B][COLOR=Red]3[/COLOR][/B] Then
Rows(i).Hidden = False
Else
Rows(i).Hidden = True
End If
Next
[/COLOR] [COLOR=Black]Application.ScreenUpdating = True
End Sub[/COLOR]
 

File đính kèm

  • Copy of Copy of huhu.xls
    26 KB · Đọc: 8
Lần chỉnh sửa cuối:
bạn chỉ mình cách lọc của bạn với!!!
 
To thanhnga84:
Bạn nhấn Alt+F11 để tham khảo code nhé, đây là cách dùng lệnh VBA để ẩn các dòng không phù hợp. Nói vây thôi câu hỏi của bạn quá rộng để có thể giải đáp và hướng dẫn thỏa đáng.
 
các bạn giúp mình với. không hiểu sao mình ngõ 10 lại ra 0.1
 
bạn vào tools/optíon../edit
ban click vào fixed decima
mục place gõ -2 là được
 
cả trang bảng tính đều không nhập số theo kiểu 100,000,000 được? help me !!!
 
Web KT
Back
Top Bottom