Font Chữ Trong Comment | Giải Pháp Excel
Có thể bạn quan tâm
- Trang chủ Có gì mới Hoạt động gần nhất Tác giả
- Diễn đàn Tìm bài viết mới Tìm theo chuyên mục
- Video
Video về Excel Video về tin học khác Tin tức về tin học chung - Thông tin mới Featured content Tìm bài mới Tài Nguyên Mới Hoạt động gần nhất
- Tài nguyên Đánh giá mới nhất Tìm tài nguyên
- Đóng góp
Tìm kiếm
Mọi nơi Đề tài Diễn đàn này Đề tài này Chỉ tìm trong tiêu đề Note Tìm kiếm Tìm nâng cao…- Tìm bài viết mới
- Tìm theo chuyên mục
Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
- Khách ơi! GPE thông tin đến bạn ấn phẩm "lập trình VBA trong Excel": - Phần cơ bản - Phần Nâng Cao - VBA trong Excel - Cải thiện và tăng tốc
- Trang chủ
- Diễn đàn
- Những vấn đề chung
- Thread starter Thread starter khanhnth02
- Ngày gửi Ngày gửi 23/6/09
Người dùng đang xem chủ đề này
Đang trực tuyến: 2 (Thành viên: 0, Khách: 2) Kkhanhnth02
Thành viên thường trực



Tham gia 5/8/07 Bài viết 338 Được thích 36 làm thế nào để cho font chữ trong commnet trùng với font chữ trong văn bản. mỗi lần inser comment thì tôi thấy font chữ khác biệt so với văn bản đang dùng. vậy làm sao để chúng trùng nhau MrPi
Thành viên hoạt động


Tham gia 14/12/08 Bài viết 102 Được thích 46 Bạn bấm vào hộp comment sau đó muốn dùng font nào thì mở hộp font lựa chọn thôi. Tuy nhiên font Tahoma mặc định trong comment tôi thấy rất hợp rồi mà! K khanhnth02
Thành viên thường trực



Tham gia 5/8/07 Bài viết 338 Được thích 36 nhưng tôi muốn font chữ cố định khi tôi chọn, nói như bạn mỗi lần tôi inser comment là tôi lại chuyển đổi font chữ à. ndu96081631
Huyền thoại GPE
Thành viên BQT Super Moderator Tham gia 5/6/08 Bài viết 30,703 Được thích 53,981 khanhnth02 đã viết: nhưng tôi muốn font chữ cố định khi tôi chọn, nói như bạn mỗi lần tôi inser comment là tôi lại chuyển đổi font chữ à. Nhấp chuột vào đây để mở rộng...Yêu cầu của bạn tất nhiên là làm được, nhưng không chỉnh trong Excel mà do Windows quyết định... Cụ thể như sau: - Click phải lên màn hình desktop, chọn Properties - Trong tab Appearance, click Advanced - Bấm mũi tên xổ xuống, chọn Tooltip - Chọn Font, size mà bạn thích rồi click OK Tuy nhiên, Setting này sẽ thay đổi toàn bộ các thiết lập trên tất cả các phần mềm ứng dụng (không riêng Excel) ---> Điều này chẳng mấy gì tốt đâu
QuocPhong
Learning to be!
Tham gia 21/11/07 Bài viết 256 Được thích 247ndu96081631 đã viết: Yêu cầu của bạn tất nhiên là làm được, nhưng không chỉnh trong Excel mà do Windows quyết định... Cụ thể như sau: - Click phải lên màn hình desktop, chọn Properties - Trong tab Appearance, click Advanced - Bấm mũi tên xổ xuống, chọn Tooltip - Chọn Font, size mà bạn thích rồi click OK Tuy nhiên, Setting này sẽ thay đổi toàn bộ các thiết lập trên tất cả các phần mềm ứng dụng (không riêng Excel) ---> Điều này chẳng mấy gì tốt đâu Nhấp chuột vào đây để mở rộng...Mình làm thử nhưng chỉ thay đổi được cỡ chữ thôi, không thấy thay đổi được Font. Không biết bị làm sao nữa. Mình tìm trên mạng thì thấy đoạn code này: PHP: Sao chép. Sub CommentAddOrEdit() Dim cmt As Comment Set cmt = ActiveCell.Comment If cmt Is Nothing Then ActiveCell.AddComment text:="" End If SendKeys "%ie~" End Sub Mình không biết cách sử dụng như thế nào. Nhờ bạn Ndu hướng dẫn gúp mình để khi insert comment thì tự động chạy code đó. Cám ơn bạn.
ndu96081631
Huyền thoại GPE
Thành viên BQT Super Moderator Tham gia 5/6/08 Bài viết 30,703 Được thích 53,981 QuocPhong đã viết: Mình làm thử nhưng chỉ thay đổi được cỡ chữ thôi, không thấy thay đổi được Font. Không biết bị làm sao nữa. Mình tìm trên mạng thì thấy đoạn code này: PHP: Sao chép. Sub CommentAddOrEdit() Dim cmt As Comment Set cmt = ActiveCell.Comment If cmt Is Nothing Then ActiveCell.AddComment text:="" End If SendKeys "%ie~" End Sub Mình không biết cách sử dụng như thế nào. Nhờ bạn Ndu hướng dẫn gúp mình để khi insert comment thì tự động chạy code đó. Cám ơn bạn. Nhấp chuột vào đây để mở rộng...Nếu dùng code thì tôi nghĩ hướng đi sẽ thế này: - Chúng ta cứ Add Comment bình thường, Font của nó thế nào cứ mặc kệ - Sau khi hoàn tất bảng tính, ta chạy code và thay đổi Font, size cho toàn bộ các Comment hiện có Đại khái thế này: PHP: Sao chép. Sub ChangeCom() Dim Com As Comment For Each Com In ActiveSheet.Comments With Com.Shape.TextFrame.Characters.Font .Name = "Arial" '<--- Thay doi Font .Size = 12 '<--- Thay doi size End With Next Com End Sub
QuocPhong
Learning to be!
Tham gia 21/11/07 Bài viết 256 Được thích 247 Mình làm được rồi. Cám ơn bạn.
PHP: Sao chép. Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Com As Comment For Each Com In ActiveSheet.Comments With Com.Shape.TextFrame.Characters.Font .Name = "Times New Roman" '<--- Thay doi Font .Size = 12 '<--- Thay doi size End With Next Com End Sub K khanhnth02
Thành viên thường trực



Tham gia 5/8/07 Bài viết 338 Được thích 36 có cách nào hay hơn không, tôi không ma hiểu nhiều về code lắm. không lẽ bó tay QuocPhong
Learning to be!
Tham gia 21/11/07 Bài viết 256 Được thích 247khanhnth02 đã viết: có cách nào hay hơn không, tôi không ma hiểu nhiều về code lắm. không lẽ bó tay Nhấp chuột vào đây để mở rộng...Bạn click chuột phải vào sheet và chọn View code, sau đó copy và dán đoạn code phía trên vào.
sealand
Thành viên gạo cội



Tham gia 16/5/08 Bài viết 4,882 Được thích 7,687 Giới tính Nam Nghề nghiệp Kế Toán Mình e rằng mình trả lời sai chủ đề nhưng mình cũng xin có 1 chút ý kiến: Nếu chỉ để cùng Font thôi thì e chưa đạt lắm vì còn chế độ Font chữ của Comment. Ví dụ sheet mặc định font .VNtime thì khi thêm comment sẽ rất lỉnh kỉnh mới có thể hiển thị tiếng Việt. Nếu đã chấp nhập viết code sao các bạn không thêm cho hoàn chỉnh hơn khi ta không sử dụng font Unicode trên sheet. Trước hết thêm hàm đổi font sang Unicode và 1 Macro để Insert Comment (Gán phím tắt Ctrl+m) như sau Mã: Sao chép. Const CodUni = "225 224 7843 227 7841 259 7855 7857 7859 7861 7863 226 7845 7847 7849 7851 7853 233 232 7867 7869 7865 234 7871 7873 7875 7877 7879 237 236 7881 297 7883 243 242 7887 245 7885 244 7889 7891 7893 7895 7897 417 7899 7901 7903 7905 7907 250 249 7911 361 7909 432 7913 7915 7917 7919 7921 253 7923 7927 7929 7925 273 193 193 192 192 7842 7842 195 195 7840 7840 258 258 7854 7854 7856 7856 7858 7858 7860 7860 7862 7862 194 194 7844 7844 7846 7846 7848 7848 7850 7850 7852 7852 201 201 200 200 7866 7866 7868 7868 7864 7864 202 202 7870 7870 7872 7872 7874 7874 7876 7876 7878 7878 205 204 7880 296 7882 211 211 210 210 7886 7886 213 213 7884 7884 212 212 7888 7888 7890 7890 7892 7892 7894 7894 7896 7896 416 7898 7898 7900 7900 7902 7902 7904 7904 7906 7906 218 218 217 217 7910 7910 360 360 7908 7908 431 7912 7912 7914 7914 7916 7916 7918 7918 7920 7920 221 221 7922 7922 7926 7926 7928 7928 7924 272 " Const StrVn3 = "¸µ¶·¹¨¾»¼½Æ©ÊÇÈÉËÐÌÎÏѪÕÒÓÔÖÝרÜÞãßáâä«èåæçé¬íêëìîóïñòôøõö÷ùýúûüþ®¸¸µµ¶¶··¹¹¡¡¾¾»»¼¼½½ÆÆ¢¢ÊÊÇÇÈÈÉÉËËÐÐÌÌÎÎÏÏÑÑ££ÕÕÒÒÓÓÔÔÖÖÝרÜÞããßßááââä䤤èèååææççéé¥ííêêëëììîîóóïïññòòôô¦øøõõöö÷÷ùùýýúúûûüüþ§" Function doi_font(text As String) As String Dim i, kytu, vitri, newtext For i = 1 To Len(text) kytu = Mid(text, i, 1) vitri = InStr(1, StrVn3, kytu, 0) If vitri > 0 Then newtext = newtext & ChrW(Mid(CodUni, vitri * 5 - 4, 5)) Else newtext = newtext & kytu End If Next doi_font = newtext End Function '========================= Sub ins_com() Dim cmt As Comment Set cmt = ActiveCell.AddComment(doi_font(InputBox$("Nhap Comment"))) With cmt.Shape.TextFrame.Characters.Font .Name = "Times New Roman" '<--- Thay doi Font .Size = 10 '<--- Thay doi size End With End Sub Giờ muốn thêm Comment nhấn Ctrl+m (Hàm đổi font mình sưu tầm trên GPE) File đính kèm
- Insert Comment.xls Insert Comment.xls 38 KB · Đọc: 84
ndu96081631
Huyền thoại GPE
Thành viên BQT Super Moderator Tham gia 5/6/08 Bài viết 30,703 Được thích 53,981 sealand đã viết: Mình e rằng mình trả lời sai chủ đề nhưng mình cũng xin có 1 chút ý kiến: Nếu chỉ để cùng Font thôi thì e chưa đạt lắm vì còn chế độ Font chữ của Comment. Ví dụ sheet mặc định font .VNtime thì khi thêm comment sẽ rất lỉnh kỉnh mới có thể hiển thị tiếng Việt. Nếu đã chấp nhập viết code sao các bạn không thêm cho hoàn chỉnh hơn khi ta không sử dụng font Unicode trên sheet. Trước hết thêm hàm đổi font sang Unicode và 1 Macro để Insert Comment (Gán phím tắt Ctrl+m) như sau Mã: Sao chép. Const CodUni = "225 224 7843 227 7841 259 7855 7857 7859 7861 7863 226 7845 7847 7849 7851 7853 233 232 7867 7869 7865 234 7871 7873 7875 7877 7879 237 236 7881 297 7883 243 242 7887 245 7885 244 7889 7891 7893 7895 7897 417 7899 7901 7903 7905 7907 250 249 7911 361 7909 432 7913 7915 7917 7919 7921 253 7923 7927 7929 7925 273 193 193 192 192 7842 7842 195 195 7840 7840 258 258 7854 7854 7856 7856 7858 7858 7860 7860 7862 7862 194 194 7844 7844 7846 7846 7848 7848 7850 7850 7852 7852 201 201 200 200 7866 7866 7868 7868 7864 7864 202 202 7870 7870 7872 7872 7874 7874 7876 7876 7878 7878 205 204 7880 296 7882 211 211 210 210 7886 7886 213 213 7884 7884 212 212 7888 7888 7890 7890 7892 7892 7894 7894 7896 7896 416 7898 7898 7900 7900 7902 7902 7904 7904 7906 7906 218 218 217 217 7910 7910 360 360 7908 7908 431 7912 7912 7914 7914 7916 7916 7918 7918 7920 7920 221 221 7922 7922 7926 7926 7928 7928 7924 272 " Const StrVn3 = "¸µ¶·¹¨¾»¼½Æ©ÊÇÈÉËÐÌÎÏѪÕÒÓÔÖÝרÜÞãßáâä«èåæçé¬íêëìîóïñòôøõö÷ùýúûüþ®¸¸µµ¶¶··¹¹¡¡¾¾»»¼¼½½ÆÆ¢¢ÊÊÇÇÈÈÉÉËËÐÐÌÌÎÎÏÏÑÑ££ÕÕÒÒÓÓÔÔÖÖÝרÜÞããßßááââä䤤èèååææççéé¥ííêêëëììîîóóïïññòòôô¦øøõõöö÷÷ùùýýúúûûüüþ§" Function doi_font(text As String) As String Dim i, kytu, vitri, newtext For i = 1 To Len(text) kytu = Mid(text, i, 1) vitri = InStr(1, StrVn3, kytu, 0) If vitri > 0 Then newtext = newtext & ChrW(Mid(CodUni, vitri * 5 - 4, 5)) Else newtext = newtext & kytu End If Next doi_font = newtext End Function '========================= Sub ins_com() Dim cmt As Comment Set cmt = ActiveCell.AddComment(doi_font(InputBox$("Nhap Comment"))) With cmt.Shape.TextFrame.Characters.Font .Name = "Times New Roman" '<--- Thay doi Font .Size = 10 '<--- Thay doi size End With End Sub Giờ muốn thêm Comment nhấn Ctrl+m (Hàm đổi font mình sưu tầm trên GPE) Nhấp chuột vào đây để mở rộng...Đồng ý với anh khoảng này... Tuy nhiên với riêng em thì em không khoái lắm mấy font chử VNI hay ABC... Em chỉ xài duy nhất Unicode và cũng khuyên mọi người nên theo cách này... Font chử khác với Unicode nhìn chẳng đẹp mà lại rối mắt N
ngo15
Thành viên chính thức 

Tham gia 24/6/06 Bài viết 75 Được thích 44 Các bạn đổi font Commment, cho tôi hỏi ké một tẹo: Nếu tôi muốn chuyển font của Validation về Unicode thì làm thế nào? Tôi đã thử dùng các code trên thay các chữ coment thành Validation mà không được. Xin cám ơn sealand
Thành viên gạo cội



Tham gia 16/5/08 Bài viết 4,882 Được thích 7,687 Giới tính Nam Nghề nghiệp Kế Toán Đối với Validation phụ thuộc vào font của list gốc. Để đổi sang Unicode thì hàm trên chỉ chuyển được font TCVN3 thôi, đối với font khác phải tìm hàm đổi. Trong trường hợp này có lẽ dùng tiện ích cuả Unikey là dễ dàng hơn nhiều lần. Bạn thử xem. K khanhnth02
Thành viên thường trực



Tham gia 5/8/07 Bài viết 338 Được thích 36 sao tôi làm rồi nhưng mọi người không hiểu ý tôi, tôi mưốn nó cố định luôn font chữ này chứ mỗi lần mở một trang mới chúng lại như cũ. làm thế nào để lập trình sẵn font chữ cho comment . để khi mở file excel nó đã có sẵn font chữ tôi cần ndu96081631
Huyền thoại GPE
Thành viên BQT Super Moderator Tham gia 5/6/08 Bài viết 30,703 Được thích 53,981 khanhnth02 đã viết: sao tôi làm rồi nhưng mọi người không hiểu ý tôi, tôi mưốn nó cố định luôn font chữ này chứ mỗi lần mở một trang mới chúng lại như cũ. làm thế nào để lập trình sẵn font chữ cho comment . để khi mở file excel nó đã có sẵn font chữ tôi cần Nhấp chuột vào đây để mở rộng...Không cần lập trình gì cả ---> Bạn xem bài #4 tôi viết chưa? Rỏ ràng thế rồi còn gì ---> Font Comment được chỉnh từ Windows chứ không phải Excel M
MIMOSAKC
Thành viên mới 
Tham gia 24/6/13 Bài viết 2 Được thích 0 Mình cũng đang bực mình chỗ comment, cứ mỗi lần insert comment lại phải chỉnh lại font trong comment cực khổ quá các bạn ơi. Mình chèn đoạn code của bạn QuocPhong xong mà chẳng thấy thây đổi gì hết. Xin các bạn cho ý kiến. Cám ơn! vanle33
Thành viên gạo cội



Tham gia 30/10/08 Bài viết 5,975 Được thích 4,014 Giới tính Nam MIMOSAKC đã viết: Mình cũng đang bực mình chỗ comment, cứ mỗi lần insert comment lại phải chỉnh lại font trong comment cực khổ quá các bạn ơi. Mình chèn đoạn code của bạn QuocPhong xong mà chẳng thấy thây đổi gì hết. Xin các bạn cho ý kiến. Cám ơn! Nhấp chuột vào đây để mở rộng...Bạn dùng code ở bài #6 đi. Mình thử thấy OK Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Bài viết mới nhất
- SA_DQ
- 3/11/25
- Chia sẻ
- Bobby52
- Thứ bảy lúc 16:18
- Hàm và công thức Excel
- Lá chanh
- Thứ sáu lúc 00:53
- Hàm và công thức Excel
- Question Question
- duongnhuxuyen
- 12/12/25
- Lập Trình với Excel
- PhanTuHuong
- 10/12/25
- Câu lạc bộ hoạt động xã hội
- AnhThu-1976
- Thứ tư lúc 16:37
- Những vấn đề chung
- TatLap
- Thứ năm lúc 09:39
- Lọc và sắp xếp dữ liệu
- kenshithanh
- 1/4/15
- Chơi Game với Excel
- PhanTuHuong
- 14/12/25
- Thư giãn
- PhanTuHuong
- 5/10/20
- Thư giãn
- tiny1010
- 16/3/10
- Cấu trúc dữ liệu Excel và việc Xử lý dữ liệu
- Question Question
- ongke0711
- 6/10/24
- Lập Trình với Excel
- phamdinh.huy.aladin@gmail
- 15/12/25
- Hàm và công thức Excel
- huevantran
- 22/12/25
- Giải thích, gỡ rối, xử lý lỗi công thức
- kaoehtkid
- 15/12/25
- Những vấn đề chung
- levovantoan
- 19/12/25
- Giải thích, gỡ rối, xử lý lỗi công thức
- trangntn92
- 22/12/25
- Hàm và công thức Excel
- Na7979
- 20/12/25
- Lọc và sắp xếp dữ liệu
- huuthang_bd
- 30/12/13
- Xây dựng ứng dụng.
- GPE-Trợ Lý
- 21/12/25
- Học tập Online
Thành viên có số lượng bài viết cao nhất tháng
- Maika8008 48
- dungpham01 25
- thanthanhan 23
- ongke0711 23
- ptm0412 19
- Phan Thế Hiệp 17
- eagle12 16
- nguyenanhtruong2409 16
- pycckuu410 12
- HUONGHCKT 12
- vic_it 11
- Gà Con yêu VBA 11
- nhhnam 10
- dieppk.nb92 10
- Vũ Hải Sơn 9
- HeSanbi 9
- le_vis 8
- duongnhuxuyen 8
- SA_DQ 8
- bsbnhh 7
Thành viên có điểm tương tác cao nhất tháng
- Phan Thế Hiệp 92
- Maika8008 41
- ptm0412 25
- thanthanhan 20
- ongke0711 20
- HeSanbi 17
- dungpham01 15
- HUONGHCKT 9
- Cúc Hr 9
- eagle12 9
- SA_DQ 9
- pycckuu410 6
- dieppk.nb92 6
- Gà Con yêu VBA 6
- Mr.hieudoanxd 5
- befaint 5
- Hoàng Tuấn 868 4
- Phuocam 4
- nguyenanhtruong2409 4
- HieuCD 3
Thời gian đếm ngược.
000 Ngày 00 Giờ 00 phút 00 giây Thân mời tham dự sự kiện sinh nhật GPE 2025- Trang chủ
- Diễn đàn
- Những vấn đề chung
- Website này sử dụng cookies. Tiếp tục sử dụng trang này, đồng nghĩa với việc bạn chấp nhận website sử dụng cookies. Chấp nhận Tìm hiểu thêm.…
Từ khóa » Chỉnh Cỡ Chữ Comment Trong Excel
-
2 Cách Thay đổi Tất Cả Font Chữ Của Comment Trong Excel Workbook
-
Các định Dạng Comment Trong Excel Quan Trọng Cần Biết
-
Top 15 Chỉnh Font Chữ Trong Comment Excel
-
Top 15 Chỉnh Cỡ Chữ Comment Trong Excel
-
Định Dạng Chú Thích Trang Tính - Microsoft Support
-
Hướng Dẫn Tạo Comment, Chú Thích Trong Excel Cực đơn Giản, Chi Tiết
-
Cài Mặt đinh Font Chữ Và Cỡ Chữ Cho Phần Comment Chỗ Nào Nhỉ ...
-
Kích Thước Hộp Nhận Xét Tự động để Phù Hợp Với Nội Dung Của Nó ...
-
Excel - Cài đặt Font Chữ, Cỡ Chữ Mặc định Trong Bảng Tính - Thủ Thuật
-
Tăng Kích Thước Font Chữ Comment - YouTube
-
Cách Thêm/ Xóa Chú Thích Trong Excel, Tạo Comment Ghi Chú Nhanh
-
Cài đặt Font Chữ Mặc định Trong Excel - Thủ Thuật Phần Mềm
-
Cách Sử Dụng Chú Thích, Ghi Chú (comment) Trong Word
-
Cách Thêm, Sửa, Xóa Comment Trang Excel Chi Tiết Nhất