• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

[Demo p2] Tìm kiếm và tô màu cho chữ (như Highlight)

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thủ thuật VBA
  • [Thủ Thuật] [Demo p2] Tìm kiếm và tô màu cho chữ (như Highlight)
• [Demo p2] Tìm kiếm và tô màu cho chữ (như Highlight)

• [Demo p2] Tìm kiếm và tô màu cho chữ (như Highlight)

  maidinhdan > 30-06-21, 03:30 AM

  Hình mình họa, demo thì Post sau, gần 3 giờ sáng rồi.

  Code có 1 dòng và cũng không cần chèn thư viện gì hết, chạy trên mọi địa hình....

  Như Highlight mà không phải  định dạng HightLight nhé: có thể In đậm, nghiêm, gạch dưới.... size to thì chưa thử....

  
  Hàm Tô màu chữ:
  

  Mã PHP:

  Public Function HamToMau(Chuoi As String, TuCanToMau As String) As String
    On Error GoTo Loi
    'Chen cac Thu tuc cua ban o day
        If IsEmpty(TuCanToMau) Or TuCanToMau = "" Then
            HamToMau = Chuoi
        Else
            HamToMau = Replace(Chuoi, TuCanToMau, "<Font Color=Red><u>" & TuCanToMau & "</Font></u>")
        End If
Exit_Loi:
    Exit Function
Loi:        ' Khi cac Thu tuc loi se nhay den dong duoi day
    Err.Clear  'Xoa bo nho Loi
    Resume Exit_Loi      ' Chay nguoc len dong Exit_Loi: va thoat
End Function 


  
  
  Ví dụ 1:
  
  
  
  
  Ví dụ 2:
  
  
  
  
  Bổ sung Code:
  

  Mã PHP:

  <FONT face = "Arial"> Font chữ Arial </FONT> <BR>
<FONT face = "Courier New"> Font chữ Courier New </FONT> <BR>
<FONT face = "Times New Roman"> Font chữ Times New Roman </FONT> <BR>
<FONT size = 6 color = "red" face = "Arial"> Chữ này có kích thước 6 màu đỏ Arial </FONT> <BR>
<B> đậm </B> <BR>
<STRONG> Đây là văn bản được nhấn mạnh </STRONG> <BR>
<I> In nghiêng </I> <BR>
<EM> Đây là văn bản được nhấn mạnh </EM> <BR>
<U> Đây là văn bản được gạch chân </U> <BR>
<TT> Văn bản này bằng phông chữ máy đánh chữ một khoảng cách </TT>
<BR> Văn bản bình thường với <SUB> Chỉ số phụ </SUB>
<BR> Văn bản bình thường với <SUP> Siêu chỉ số </SUP>
<BR>
<FONT color = "black"> chữ này có màu đen  </FONT> <BR>
<FONT color = "red"> Chữ này có màu đỏ đ </FONT> <BR>
<FONT color = "blue"> Chữ này có màu xanh lam </FONT> <BR>
<FONT color = "green"> Dòng chữ này có màu xanh lá cây</FONT><BR>
<FONT color = "white"> Dòng chữ này có màu trắng </FONT> <BR>
<FONT color = "cyan"> Văn bản này bằng màu lục lam </FONT> <BR>
<FONT color = "magenta"> Văn bản này có màu đỏ tươi </FONT> <BR>
<FONT color = "yellow"> Dòng chữ này có màu vàng </FONT> <BR>
<FONT color = #000000> Chữ này có màu đen</FONT> <BR>
<FONT color = #FF0000> Chữ này có màu đỏ </FONT> <BR>
<FONT color = #0000FF> Văn bản này có màu xanh lam </FONT> <BR>
<FONT color = #00FF00> Chữ này có màu xanh lá cây</FONT> <BR>
<FONT color = #FFFFFF> Dòng chữ này có màu trắng </FONT> <BR>
<FONT color = #00FFFF> Văn bản này có màu lục lam </FONT> <BR>
<FONT color = #FF00FF> Văn bản này có màu đỏ tươi </FONT> <BR>
<FONT color = #FFFF00> Chữ này có màu vàng </FONT> <BR> 


  
  
  Ai cần Code xin để lại Email

• RE: [Demo p2] Tìm kiếm và tô màu cho chữ (như Highlight)

  maidinhdan > 03-07-21, 01:32 AM

  Demo đã được cập nhật tại bài 1, và Code của nó.
  
  Bạn nào lười như tôi thì để lại Email

• RE: [Demo p2] Tìm kiếm và tô màu cho chữ (như Highlight)

  cpucloi > 03-07-21, 11:26 AM

  Pác cho em xin
  cpucloi1501@gmail.com
  (dạo này em cũng lười thật    )

• RE: [Demo p2] Tìm kiếm và tô màu cho chữ (như Highlight)

  ongke0711 > 03-07-21, 01:41 PM

  (30-06-21, 03:30 AM)maidinhdan Đã viết:

  Code có 1 dòng và cũng không cần chèn thư viện gì hết, chạy trên mọi địa hình....

  Như Highlight mà không phải  định dạng HightLight nhé: có thể In đậm, nghiêm, gạch dưới.... size to thì chưa thử....

  
  Hàm Tô màu chữ:
  

  Mã PHP:

  Public Function HamToMau(Chuoi As String, TuCanToMau As String) As String
    On Error GoTo Loi
    'Chen cac Thu tuc cua ban o day
        If IsEmpty(TuCanToMau) Or TuCanToMau = "" Then
            HamToMau = Chuoi
        Else
            HamToMau = Replace(Chuoi, TuCanToMau, "<Font Color=Red><u>" & TuCanToMau & "</Font></u><Font Color=Blue></Font><Font Color=Black></Font>")
        End If
Exit_Loi:
    Exit Function
Loi:        ' Khi cac Thu tuc loi se nhay den dong duoi day
    Err.Clear  'Xoa bo nho Loi
    Resume Exit_Loi      ' Chay nguoc len dong Exit_Loi: va thoat
End Function 


  
  
  TextBox chứa chuỗi cần highlight phải được thiết lập thuộc tính Text Format: Rich Text thì mới hiển thị được nhé.

• RE: [Demo p2] Tìm kiếm và tô màu cho chữ (như Highlight)

  dotrung > 04-07-21, 06:46 PM

  Xin code bác Dân nhé, thanks
  email: trungpkv@gmail.com

• RE: [Demo p2] Tìm kiếm và tô màu cho chữ (như Highlight)

  ledangvan > 05-07-21, 02:13 PM

  Maidinhdan cho anh xin code với nhé, thank's
  âmil : Ledangvan06@gmail.com

• RE: [Demo p2] Tìm kiếm và tô màu cho chữ (như Highlight)

  longkd_bvct@yahoo.com.vn > 05-07-21, 03:24 PM

  Em xin code ạ
  longkd_bvct@yahoo.com.vn

• RE: [Demo p2] Tìm kiếm và tô màu cho chữ (như Highlight)

  maidinhdan > 05-07-21, 08:54 PM

  Bổ sung Code:
  

  Mã PHP:

  <FONT face = "Arial"> Font chữ Arial </FONT> <BR>
<FONT face = "Courier New"> Font chữ Courier New </FONT> <BR>
<FONT face = "Times New Roman"> Font chữ Times New Roman </FONT> <BR>
<FONT size = 6 color = "red" face = "Arial"> Chữ này có kích thước 6 màu đỏ Arial </FONT> <BR>
<B> đậm </B> <BR>
<STRONG> Đây là văn bản được nhấn mạnh </STRONG> <BR>
<I> In nghiêng </I> <BR>
<EM> Đây là văn bản được nhấn mạnh </EM> <BR>
<U> Đây là văn bản được gạch chân </U> <BR>
<TT> Văn bản này bằng phông chữ máy đánh chữ một khoảng cách </TT>
<BR> Văn bản bình thường với <SUB> Chỉ số phụ </SUB>
<BR> Văn bản bình thường với <SUP> Siêu chỉ số </SUP>
<BR>
<FONT color = "black"> chữ này có màu đen  </FONT> <BR>
<FONT color = "red"> Chữ này có màu đỏ đ </FONT> <BR>
<FONT color = "blue"> Chữ này có màu xanh lam </FONT> <BR>
<FONT color = "green"> Dòng chữ này có màu xanh lá cây</FONT><BR>
<FONT color = "white"> Dòng chữ này có màu trắng </FONT> <BR>
<FONT color = "cyan"> Văn bản này bằng màu lục lam </FONT> <BR>
<FONT color = "magenta"> Văn bản này có màu đỏ tươi </FONT> <BR>
<FONT color = "yellow"> Dòng chữ này có màu vàng </FONT> <BR>
<FONT color = #000000> Chữ này có màu đen</FONT> <BR>
<FONT color = #FF0000> Chữ này có màu đỏ </FONT> <BR>
<FONT color = #0000FF> Văn bản này có màu xanh lam </FONT> <BR>
<FONT color = #00FF00> Chữ này có màu xanh lá cây</FONT> <BR>
<FONT color = #FFFFFF> Dòng chữ này có màu trắng </FONT> <BR>
<FONT color = #00FFFF> Văn bản này có màu lục lam </FONT> <BR>
<FONT color = #FF00FF> Văn bản này có màu đỏ tươi </FONT> <BR>
<FONT color = #FFFF00> Chữ này có màu vàng </FONT> <BR> 


  
  
  
  * Trong vòng 7 ngày sẽ gửi các bạn Demo, ai cần cứ để lại Email

• RE: [Demo p2] Tìm kiếm và tô màu cho chữ (như Highlight)

  huuduy.duy > 06-07-21, 11:33 AM

  Cho em xin 1 bản vào mail huuduy.duy@gmail.com nha anh
  Thank !

• RE: [Demo p2] Tìm kiếm và tô màu cho chữ (như Highlight)

  mrtoanbin > 07-07-21, 03:01 PM

  Xin được nghiên cứu ứng dụng: nguyentrungtoan0288@gmail.com
  Cảm ơn tác giả với bài viết hay!
• Bài trước Bài tiếp