Mã code giờ phút

[Quynhau]

Anh chị giúp giùm em mã code dưới về cách đánh giờ, phút chỉ cần đánh 1000 sẽ ra 10:00 trong cùng 1 sheet
Em muốn đánh giờ, phút vô ô C,D,F,G và X,Y,AA,AB
Nhưng chỉ đánh được ô X,Y,AA,AB thôi còn ô C,D,F,G ko đánh được
Nhờ anh chị giúp em sửa lại mã code sau giùm em. Cám ơn anh chị nhiều

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
Set Rng = [C1041,F10:G41]
Set Rng = [X10:Y41,AA10:AB41]
If Target.Count = 1 And Not Intersect(Target, Rng) Is Nothing Then
If Intersect(Target, Rng).Address = Target.Address And Target.Value >= 1 Then
If IsNumeric(Target.Value) Then
Application.EnableEvents = False
Target.Value = Format(Target.Value, "00:00")
Application.EnableEvents = True
End If
End If
End If
End Sub

 

[snow25]

Anh chị giúp giùm em mã code dưới về cách đánh giờ, phút chỉ cần đánh 1000 sẽ ra 10:00 trong cùng 1 sheet
Em muốn đánh giờ, phút vô ô C,D,F,G và X,Y,AA,AB
Nhưng chỉ đánh được ô X,Y,AA,AB thôi còn ô C,D,F,G ko đánh được
Nhờ anh chị giúp em sửa lại mã code sau giùm em. Cám ơn anh chị nhiều

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
Set Rng = [C1041,F10:G41]
Set Rng = [X10:Y41,AA10:AB41]
If Target.Count = 1 And Not Intersect(Target, Rng) Is Nothing Then
If Intersect(Target, Rng).Address = Target.Address And Target.Value >= 1 Then
If IsNumeric(Target.Value) Then
Application.EnableEvents = False
Target.Value = Format(Target.Value, "00:00")
Application.EnableEvents = True
End If
End If
End If
End Sub

Bạn sửa cái Rng thành.

Set Rng = [X10:Y41,AA10:AB41,C10:D41,F10:G41]

 

[phulien1902]

Anh chị giúp giùm em mã code dưới về cách đánh giờ, phút chỉ cần đánh 1000 sẽ ra 10:00 trong cùng 1 sheet
Em muốn đánh giờ, phút vô ô C,D,F,G và X,Y,AA,AB
Nhưng chỉ đánh được ô X,Y,AA,AB thôi còn ô C,D,F,G ko đánh được
Nhờ anh chị giúp em sửa lại mã code sau giùm em. Cám ơn anh chị nhiều

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
Set Rng = [C1041,F10:G41]
Set Rng = [X10:Y41,AA10:AB41]
If Target.Count = 1 And Not Intersect(Target, Rng) Is Nothing Then
If Intersect(Target, Rng).Address = Target.Address And Target.Value >= 1 Then
If IsNumeric(Target.Value) Then
Application.EnableEvents = False
Target.Value = Format(Target.Value, "00:00")
Application.EnableEvents = True
End If
End If
End If
End Sub

Bạn bỏ 2dòng:

Set Rng = [C10:D41,F10:G41]
Set Rng = [X10:Y41,AA10:AB41]

và thay bởi dòng:

Set Rng = [C10:D41,F10:G41,X10:Y41,AA10:AB41]

 

[le_vis]

Anh chị giúp giùm em mã code dưới về cách đánh giờ, phút chỉ cần đánh 1000 sẽ ra 10:00 trong cùng 1 sheet
Em muốn đánh giờ, phút vô ô C,D,F,G và X,Y,AA,AB
Nhưng chỉ đánh được ô X,Y,AA,AB thôi còn ô C,D,F,G ko đánh được
Nhờ anh chị giúp em sửa lại mã code sau giùm em. Cám ơn anh chị nhiều

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
Set Rng = [C1041,F10:G41]
Set Rng = [X10:Y41,AA10:AB41]
If Target.Count = 1 And Not Intersect(Target, Rng) Is Nothing Then
If Intersect(Target, Rng).Address = Target.Address And Target.Value >= 1 Then
If IsNumeric(Target.Value) Then
Application.EnableEvents = False
Target.Value = Format(Target.Value, "00:00")
Application.EnableEvents = True
End If
End If
End If
End Sub

Thử thay đoạn
Set Rng = [C1041,F10:G41]
Set Rng = [X10:Y41,AA10:AB41]

Bằng đoạn này xem
Set Rng = [C1041,F10:G41,X10:Y41,AA10:AB41]

 

[Quynhau]

Em làm theo anh chị được rồi. Cám ơn anh chị rất nhiều