CÔNG TY TNHH THÔNG TIN
Tư vấn Tin học 1088 , bấm số 3 , bấm số 1
Chèn ngày , giờ vào trong chú thích của Excel
Trng Excel không có sự lựa chọn để đưa thêm ngày và giờ vào trong chú thích mà phải cần viết thêm Macro
1 . Để chèn ngày và Giờ vào chú thích bạn tạo Macro như dưới đây :
Sub CommentDateTimeAdd()
Dim strDate As String
Dim cmt As Comment
strDate = "dd-mmm-yy hh:mm:ss"
Set cmt = ActiveCell.Comment
If cmt Is Nothing Then
Set cmt = ActiveCell.AddComment
cmt.Text Text:=Format(Now, strDate) & Chr(10)
Else
cmt.Text Text:=cmt.Text & Chr(10) _
& Format(Now, strDate) & Chr(10)
End If
With cmt.Shape.TextFrame
.Characters.Font.Bold = False
End With
SendKeys "%ie~"
Dim strDate As String
Dim cmt As Comment
strDate = "dd-mmm-yy hh:mm:ss"
Set cmt = ActiveCell.Comment
If cmt Is Nothing Then
Set cmt = ActiveCell.AddComment
cmt.Text Text:=Format(Now, strDate) & Chr(10)
Else
cmt.Text Text:=cmt.Text & Chr(10) _
& Format(Now, strDate) & Chr(10)
End If
With cmt.Shape.TextFrame
.Characters.Font.Bold = False
End With
SendKeys "%ie~"
End Sub
2. Để chèn vào Chú thích nào , bạn đưa vào Cell đó và chạy Macro này
![\"\"](\"/resources/Image/Tu-van-tin-hoc1.GIF")
Các tin khác
Excel : Đổi chữ cái đầu tiên thành viết hoa giữ nguyên những phần còn lại
Excel : Tìm giá trị lớn nhất với nhiều điều kiện
Excel : Chèn số trang vào một ô
Cộng một loạt những ô trong đó có chứa cả lỗi
Excel không tự động tính toán sau khi thay đổi số liệu
Excel : Xóa những số 0 ở đầu ô
Excel : Lặp lại số liên tiếp
Excel : Tìm kiếm nhiều giá trị trả về theo hàng ngang
Excel : Gỡ bỏ những kí tự đặc biệt không phải chữ cái
Xóa toàn bộ công thức chỉ để lại giá trị trong tất cả các Sheet
Copyright 2016 Infocom - Tư vấn tin học toàn quốc - 23 Láng Hạ - 04.35141.375. All Rights Reserved.
nothing