• 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)

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

  AnNguyen > 08-07-21, 09:42 AM

  Cho em xin 1 bản với nhé!
  annguyen9124@gmail.com

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

  ledangvan > 21-07-21, 11:04 PM

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

  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

  
  Cho anh một bản Office 2003 với, anh cảm ơn nhiều : Ledangvan06@gmail.com

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

  ledangvan > 15-08-21, 02:46 PM

  Cho anh một bản Office 2003 với, anh cảm ơn nhiều : Ledangvan06@gmail.com

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

  paulsteigel > 21-08-21, 10:52 PM

  (15-08-21, 02:46 PM)ledangvan Đã viết: Cho anh một bản Office 2003 với, anh cảm ơn nhiều : Ledangvan06@gmail.com

  
  Văn ơi, Office 2003 không hỗ trợ HTML trong form và grid nên nếu Văn muốn highlight nó thì phải dùng võ khác, highlight cả row hoặc thiết kế một continous form (form liên tục) và hiển thị dững cái cần highlight bằng các thuộc tính của textbox thôi!

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

  ledangvan > 22-08-21, 02:48 PM

  (21-08-21, 10:52 PM)paulsteigel Đã viết:

  (15-08-21, 02:46 PM)ledangvan Đã viết: Cho anh một bản Office 2003 với, anh cảm ơn nhiều : Ledangvan06@gmail.com

  
  Văn ơi, Office 2003 không hỗ trợ HTML trong form và grid nên nếu Văn muốn highlight nó thì phải dùng võ khác, highlight cả row hoặc thiết kế một continous form (form liên tục) và hiển thị dững cái cần highlight bằng các thuộc tính của textbox thôi!

  
  Hì, tại ở trên Maidinhdan nói là dùng chạy được ở Ofice 2003 nên mình mới hỏi xin để xem cách xử lý vấn đề. Cái này mình cũng có tìm hiểu rất nhiều nhưng đúng là office 2003 ko hỗ trợ

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

  paulsteigel > 23-08-21, 12:12 PM

  (22-08-21, 02:48 PM)ledangvan Đã viết: Hì, tại ở trên Maidinhdan nói là dùng chạy được ở Ofice 2003 nên mình mới hỏi xin để xem cách xử lý vấn đề. Cái này mình cũng có tìm hiểu rất nhiều nhưng đúng là office 2003 ko hỗ trợ

  
  Mình không cho rằng như vậy, tạm phân tích như thế này:
  Access 2003: thiết kế cũ, dựa vào OLE cũ (không hỗ trợ nhúng Html trong điều khiển) và chưa được để ý đên lớp trình diễn
  Access 2007 trở lên thì được thiết kế trên nền tảng XML và đủ các điều khiển để hỗ trợ các kiểu highlight trong lớp trình diễn.
  
  Để làm được với 2003 thì bạn cần một activeX dạng lưới dữ liệu mới để hiển thị text dạng HTML (Ví dụ vsFlex 7 trở lên là ok rồi). Tôi từng băn khoăn vấn đề này từ 2000 và sau đó phải đi theo giải pháp dùng VsFlexgrid.
  
  Với tình huống của bạn, có thể không nhất thiết phải bắt buộc làm như thế, thay vì hiển thì và highligh từ tìm kiếm thì hiển thị bản ghi có từ tìm kiếm và đặt trong dấu []  chẳng hạn, chỉ cần thêm từ replace(a.fieldSearch,txtfind,"[" & txtfind & "]") as fldResult thì cũng là một cách thú vị mà Văn ơi!

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

  Babycat > 08-10-21, 05:46 AM

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

          If IsEmpty(TuCanToMau) Or TuCanToMau = "" Then

  
  Thế này ngắn hơn nè bác: 
  
  

  Mã:

    If TuCanToMau & "" = "" Then
• Bài trước Bài tiếp