font chữ trong comment

[khanhnth02]

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]

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à!

 

[khanhnth02]

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]

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ữ à.

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]

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

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:

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]

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:

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.

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:

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]

Mình làm được rồi. Cám ơn bạn.

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

 

[khanhnth02]

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]

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

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]

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

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)

 

[ndu96081631]

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

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)

Đồ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

 

[ngo15]

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]

Đố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.

 

[khanhnth02]

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]

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

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

 

[MIMOSAKC]

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]

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!

Bạn dùng code ở bài #6 đi. Mình thử thấy OK