Note: The other languages of the website are Google-translated. Back to English

Làm cách nào để nhấp nháy hoặc nhấp nháy văn bản của ô được chỉ định trong Excel?

Để làm nổi bật một ô nhất định trong trang tính của bạn, hãy nhấp nháy văn bản của ô này? Bài viết này sẽ chỉ cho bạn phương pháp nhấp nháy văn bản của một ô được chỉ định trong Excel.

Văn bản nhấp nháy hoặc nhấp nháy của ô được chỉ định với mã VBA


Văn bản nhấp nháy hoặc nhấp nháy của ô được chỉ định với mã VBA

Vui lòng làm như sau để nhấp nháy văn bản của một ô được chỉ định trong Excel.

1. nhấn Khác + F11 các phím đồng thời để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. bên trong Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp Chèn > Mô-đun. Sau đó sao chép và dán đoạn mã sau vào cửa sổ Mã.

Mã VBA: Văn bản nhấp nháy của ô được chỉ định trong Excel

Sub StartBlink()
'Updated by ExtendOffice 20181010
    Dim xCell As Range
    Dim xTime As Variant
      On Error Resume Next
    Set xCell = Range("Sheet2!A1")
  On Error Resume Next
   
        If xCell.Font.Color = vbRed Then
            xCell.Font.Color = vbWhite
        Else
            xCell.Font.Color = vbRed
        End If
    xTime = Now + TimeSerial(0, 0, 1)
    Application.OnTime xTime, "'" & ThisWorkbook.Name & "'!StartBlink", , True
End Sub

Chú thích: trong mã VBA này, Sheet2 và A1 cho biết văn bản trong ô A1 của Sheet2 sẽ được nhấp nháy trong sổ làm việc hiện tại.

3. Nhấn nút Khác + Q các phím đồng thời để đóng Microsoft Visual Basic cho các ứng dụng cửa sổ.

Bây giờ bạn cần một nút để bắt đầu và dừng nhấp nháy.

4. nhấp chuột Nhà phát triển > Chèn > Nút (Kiểm soát biểu mẫu). Xem ảnh chụp màn hình:

5. Vẽ một nút trong trang tính của bạn, sau đó Chỉ định Macro hộp thoại bật lên, vui lòng nhấp vào Bắt đầuBlink trong Macro tên và sau đó bấm vào OK cái nút. Xem ảnh chụp màn hình:

6. Nhấp chuột phải vào nút được chèn và nhấp vào Chỉnh sửa văn bản từ menu chuột phải. Sau đó, thay đổi văn bản của nút thành văn bản bạn cần, chẳng hạn như Bắt đầu / Dừng nhấp nháy.

Từ bây giờ, khi nhấp vào nút, văn bản của ô A1 bắt đầu nhấp nháy. Và khi nhấp vào nút một lần nữa, văn bản của ô A1 ngừng nhấp nháy.


Các công cụ năng suất văn phòng tốt nhất

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn

  • Tái sử dụng: Chèn nhanh công thức phức tạp, biểu đồ và bất cứ thứ gì bạn đã sử dụng trước đây; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
  • Thanh siêu công thức (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); Bố cục đọc (dễ dàng đọc và chỉnh sửa số lượng ô lớn); Dán vào Dải ô đã Lọchữu ích. Cảm ơn !
  • Hợp nhất các ô / hàng / cột mà không làm mất dữ liệu; Nội dung phân chia ô; Kết hợp các hàng / cột trùng lặp... Ngăn chặn các ô trùng lặp; So sánh các dãyhữu ích. Cảm ơn !
  • Chọn trùng lặp hoặc duy nhất Hàng; Chọn hàng trống (tất cả các ô đều trống); Tìm siêu và Tìm mờ trong Nhiều Sổ làm việc; Chọn ngẫu nhiên ...
  • Bản sao chính xác Nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tài liệu tham khảo sang Nhiều Trang tính; Chèn Bullets, Hộp kiểm và hơn thế nữa ...
  • Trích xuất văn bản, Thêm Văn bản, Xóa theo Vị trí, Xóa không gian; Tạo và In Tổng số phân trang; Chuyển đổi giữa nội dung ô và nhận xéthữu ích. Cảm ơn !
  • Siêu lọc (lưu và áp dụng các lược đồ lọc cho các trang tính khác); Sắp xếp nâng cao theo tháng / tuần / ngày, tần suất và hơn thế nữa; Bộ lọc đặc biệt bằng cách in đậm, in nghiêng ...
  • Kết hợp Workbook và WorkSheets; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều trang tính; Chuyển đổi hàng loạt xls, xlsx và PDFhữu ích. Cảm ơn !
  • Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office / Excel 2007-2021 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ tính năng Dùng thử miễn phí 30 ngày. Bảo đảm hoàn lại tiền trong 60 ngày.
tab kte 201905

Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
officetab dưới cùng
Nhận xét (26)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Mã này sẽ không ngừng nhấp nháy mà nó bị kẹt. Tôi đang làm gì sai?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Văn bản nhấp nháy này có thể được áp dụng cho một điều kiện. tức là nếu đến ngày hoặc sắp đến trên một trang tính, một ô trên trang bìa / bảng menu sẽ nhấp nháy
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Làm thế nào nó có thể làm cho một ô ngẫu nhiên nhấp nháy trong một phạm vi nhất định?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Làm việc ... Tuyệt vời
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Làm cách nào để đưa mã này vào phần sau để tôi không cần các nút nhưng nhấp nháy sẽ tự động bắt đầu khi mở sổ làm việc?

Private Sub Workbook_Open ()

'mã ở đây

End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào Dayle,
Vui lòng đặt mã này vào cửa sổ ThisWorkbook.

'Đặt trong cửa sổ "ThisWorkbook"
Private Sub Workbook_Open ()
ngôi saoBlink
End Sub

Đặt đoạn mã dưới đây vào cửa sổ Mô-đun. Và sau đó lưu sổ làm việc dưới dạng Sổ làm việc hỗ trợ Macro Excel. Hy vọng tôi có thể giúp đỡ. Cám ơn bạn đã góp ý.

'Bắt đầu nhấp nháy
Sub StarBlink ()
Dim xCell As Range
Dim xTime dưới dạng biến thể
Đặt xCell = Range ("A1")
Với ThisWorkbook.Worksheets ("Sheet1"). Phạm vi ("A1"). Phông chữ
Nếu xCell.Font.Color = vbRed Thì
xCell.Font.Color = vbWhite
Khác
xCell.Font.Color = vbRed
Cuối Nếu
Kết thúc với
xTime = Now + TimeSerial (0, 0, 1)
Application.OnTime xTime, "" & ThisWorkbook.Name & "! StarBlink",, True
End Sub
'Ngừng chớp mắt
Sub StopBlink ()
xTime = Now + TimeSerial (0, 0, 1)
Application.OnTime EarnedTime: = xTime, Procedure: = "" & ThisWorkbook.Name & "! StarBlink", Schedule: = False
End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào,
nó hoạt động tốt nhưng khi tôi đang bảo vệ trang tính của mình thì nhấp nháy không hoạt động hiển thị thông báo gỡ lỗi.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Good day,
Vui lòng thử mã sau.

Sub StartBlink ()
Dim xCell As Range
Dim xTime dưới dạng biến thể
On Error Resume Next
Đặt xCell = Range ("A1")
On Error Resume Next

Nếu xCell.Font.Color = vbRed Thì
xCell.Font.Color = vbWhite
Khác
xCell.Font.Color = vbRed
Cuối Nếu
xTime = Now + TimeSerial (0, 0, 1)
Application.OnTime xTime, "'" & ThisWorkbook.Name & "'! StartBlink",, True
End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Làm việc. tốt
Nhưng sau khi bảo vệ trang tính của tôi LOCK & Hidden (ngoại trừ ô nhấp nháy), nó không hoạt động.
Bất cứ ai làm ơn giúp tôi giải quyết vấn đề này.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
MANTEB GAN
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Làm cách nào để thay đổi trang này thành trang 1?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào Sam
Nếu bạn muốn làm cho ô A1 trong Sheet1 hoặc trang tính cụ thể khác nhấp nháy, vui lòng thêm "Sheet1!" hoặc tên trang tính khác trước địa chỉ ô. Xem dòng mã bên dưới:

Đặt xCell = Range ("Sheet1! A1")
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
xin chào, tôi cần trợ giúp về trang tính của google ..

Tôi cần toàn bộ hàng để nhấp nháy nếu F3: F1001 chứa "STAT". toàn bộ hàng phải có màu cam nhưng cũng nhấp nháy cho đến khi hộp kiểm của cột W3: W1001 được đánh dấu.

là nó có thể? bạn có thể giúp? Pleaseeeeeeeeeeeeeee
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào mekka,
Xin lỗi không thể giúp bạn với điều đó. Cảm ơn bình luận của bạn.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
khi bảo vệ trang tính, mã này không hoạt động
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
không làm việc,

Hãy giúp tôi
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
làm thế nào để làm cho ô cụ thể nhấp nháy chỉ chứa Văn bản cụ thể?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
làm cách nào tôi có thể tạo nhấp nháy flash cho bảng thời gian của mình. ở những nơi ô chứa thời gian trên 10 giờ. vui lòng đề xuất
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào jass,
Mã VBA sau có thể giải quyết vấn đề của bạn. Hãy thử một lần.
Đừng quên thay đổi tên trang tính và phạm vi giờ trong mã.

Sub StartBlink()
'Updated by ExtendOffice 20220707
Dim xCell As Range
Dim xTime As Variant
Dim xRg As Range
Dim xWb As Workbook
On Error Resume Next
Set xCell = Range("'blinking cells'!D2:E27") 'If there are spaces in your sheet name, enclose the sheet name in single quotes. If no space exists, enter the sheet name without the signe quotes
'On Error Resume Next
For Each xRg In xCell
If xRg >= TimeValue("10:00:00") Then
If xRg.Font.Color = vbRed Then
xRg.Font.Color = vbWhite
Else
xRg.Font.Color = vbRed
End If
Else
xRg.Font.Color = vbBlack
End If
Next
Set xWb = xCell.Worksheet.Parent
xTime = Now + TimeSerial(0, 0, 1)
Application.OnTime xTime, "'" & xWb.Name & "'!StartBlink", , True
End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, tôi cần thực hiện tương tự đối với giá trị ô trùng lặp trong cột đã chọn, nơi giá trị ô sẽ nhấp nháy nếu giá trị trùng lặp xuất hiện trong excel
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào bạn,
Tôi đang tìm kiếm giải pháp để nhấp nháy / nhấp nháy một loạt các ô sắp đến một ngày trong tương lai, chẳng hạn như sau một tuần. Ý tôi là ngày giao hàng đơn đặt hàng là ngày 30 tháng 25. Tôi muốn bắt đầu nhấp nháy các ô trước ngày 30 tháng XNUMX trở đi và thậm chí sau ngày XNUMX tháng XNUMX cho đến khi nó được giao.
Ai đó có thể cho tôi một giải pháp?
Cảm ơn bạn,
Sanjeev.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Sanjeev Raghavan,
Mã VBA sau đây có thể giúp bạn. Trong mã, bạn cần thay đổi Trang tính5! D2: D5 đến tên trang tính và phạm vi bạn muốn nhấp nháy.

Sub StartBlink2()
'Updated by ExtendOffice 20220830
Dim xCell As Range
Dim xTime As Variant
Dim xRg As Range
Dim xWb As Workbook
On Error Resume Next
Dim xToday
Set xCell = Range("Sheet5!D2:D5") 'If there are spaces in your sheet name, enclose the sheet name in single quotes. If no space exists, enter the sheet name without the signe quotes
'On Error Resume Next
xToday = Now()
For Each xRg In xCell
If (xRg - xToday > -1) And (xRg - xToday <= 5) Then
If xRg.Font.Color = vbRed Then
xRg.Font.Color = vbWhite
Else
xRg.Font.Color = vbRed
End If
Else
xRg.Font.Color = vbBlack
End If
Next
Set xWb = xCell.Worksheet.Parent
xTime = Now + TimeSerial(0, 0, 1)
Application.OnTime xTime, "'" & xWb.Name & "'!StartBlink2", , True
End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn Crystal. Hãy để tôi thử và liên hệ lại với bạn.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tên trang tính Tóm tắt và cột O

tôi muốn có một mã để làm cho ô nhấp nháy màu đỏ / trắng vào ngày đến hạn. Ai đó có thể vui lòng giúp đỡ?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
là nó có thể làm cho nó mà không có một nút và tự động chạy?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Malek,
Người dùng Sanjeev Raghavan đã hỏi một câu hỏi tương tự như câu hỏi của bạn, bạn có thể kiểm tra các câu trả lời và xem nó có giải quyết được vấn đề của bạn hay không.
@Sanjeev Raghavan
Không có bình luận nào được đăng ở đây
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL