trongdungs
Thành viên hoạt động
- Tham gia
- 19/5/09
- Bài viết
- 147
- Được thích
- 13
- Nghề nghiệp
- sinh vien
em tìm được code này:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("k7")) Is Nothing Then
If Target(1, 2).Value <> "" Then
vbans = MsgBox("Da co lieu roi bo. Bo co muon chep de len ko?", vbOKCancel + vbDefaultButton1)
If vbans = vbOK Then
With Target(1, 2)
.Value = Date
.EntireColumn.AutoFit
End With
End If
Else
With Target(1, 2)
.Value = Date
.EntireColumn.AutoFit
End With
End If
End If
End Sub
Em muốn sửa Target(1, 2) thành cell $J$17 và khi chèn thêm dòng vào phía trên j17 thì target j17 cũng thay đổi theo. Thứ 2 là kết quả của code là ngày vd: 31/10/2015, nếu muốn thêm chữ ngày vào trước 31/10/2015 để ra kết quả là "ngày 31/10/2015" thì làm thế nào ạ!
cám ơn các thầy!
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("k7")) Is Nothing Then
If Target(1, 2).Value <> "" Then
vbans = MsgBox("Da co lieu roi bo. Bo co muon chep de len ko?", vbOKCancel + vbDefaultButton1)
If vbans = vbOK Then
With Target(1, 2)
.Value = Date
.EntireColumn.AutoFit
End With
End If
Else
With Target(1, 2)
.Value = Date
.EntireColumn.AutoFit
End With
End If
End If
End Sub
Em muốn sửa Target(1, 2) thành cell $J$17 và khi chèn thêm dòng vào phía trên j17 thì target j17 cũng thay đổi theo. Thứ 2 là kết quả của code là ngày vd: 31/10/2015, nếu muốn thêm chữ ngày vào trước 31/10/2015 để ra kết quả là "ngày 31/10/2015" thì làm thế nào ạ!
cám ơn các thầy!
