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?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...........
Bạn cần đến sự hỗ trợ của VBA. VD vùng nhập liệu của bạn là A1:A100nhậ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
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
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
các bạn chỉ cho mình ,cách nhập dữ liệu trong ô ,đánh số 100 sẽ thành 100.000
Câu này bạn QuocPhong đã trả lời, còn câu dưới đây:nhập 100 hiển thị 100 ngàn bạn ạ
Hỏng hiểu! Được đánh dấu trong hỗn hợp là cái gì?làm sao để lọc ra những dòng có ô màu đỏ được đánh dấu trong hỗn hợp
Làm cho bạn file này bằng công thức!bạn xem dùm mình
thank.........
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
[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]