Excel에서 지정된 셀의 텍스트를 깜박이거나 깜박이는 방법은 무엇입니까?

워크 시트에서 특정 셀을 눈에 띄게 만들려면이 셀의 텍스트를 깜박이는 것은 어떻습니까? 이 기사에서는 Excel에서 지정된 셀의 텍스트를 깜박이는 방법을 보여줍니다.

VBA 코드로 지정된 셀의 텍스트 깜박임 또는 깜박임

Excel에서 지정된 셀의 텍스트를 깜박이려면 다음과 같이하십시오.

1. 프레스 다른 + F11 동시에 열려면 키 응용 프로그램 용 Microsoft Visual Basic 창.

2. 에서 응용 프로그램 용 Microsoft Visual Basic 창을 클릭합니다 끼워 넣다 > 모듈. 그런 다음 다음 코드를 복사하여 코드 창에 붙여 넣습니다.

VBA 코드 : 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

주의 사항:이 VBA 코드에서 Sheet2와 A1은 Sheet1의 A2 셀에있는 텍스트가 현재 통합 문서에서 깜박임을 나타냅니다.

3. 누르세요 다른 + Q 키를 동시에 닫아 응용 프로그램 용 Microsoft Visual Basic 창.

이제 깜박임을 시작하고 중지하는 버튼이 필요합니다.

4. 클릭 개발자 > 끼워 넣다 > 버튼 (양식 컨트롤). 스크린 샷보기 :

5. 워크 시트에 버튼을 그린 다음 매크로 지정 대화 상자가 나타나면 클릭하십시오 시작 깜박임 에서 매크로 name 상자를 클릭 한 다음 OK 단추. 스크린 샷보기 :

6. 삽입 된 버튼을 마우스 오른쪽 버튼으로 클릭하고 텍스트 편집 오른쪽 클릭 메뉴에서. 그런 다음 버튼 텍스트를 깜박임 시작 / 중지와 같이 필요한 텍스트로 변경합니다.

이제부터 버튼을 클릭하면 A1 셀의 텍스트가 깜박이기 시작합니다. 버튼을 다시 클릭하면 A1 셀의 텍스트가 깜박임을 멈 춥니 다.

최고의 사무 생산성 도구

Excel 용 Kutools는 대부분의 문제를 해결하고 생산성을 80% 향상시킵니다.

재사용: 빠르게 삽입 복잡한 공식, 차트 그리고 이전에 사용한 모든 것; 셀 암호화 암호로; 메일 링리스트 생성 이메일 보내기 ...
슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집 할 수 있습니다.) 레이아웃 읽기 (많은 수의 셀을 쉽게 읽고 편집합니다.) 필터링 된 범위에 붙여 넣기...
셀 / 행 / 열 병합 데이터 손실없이; 셀 내용 분할; 중복 행 / 열 결합... 중복 셀 방지; 범위 비교...
중복 또는 고유 선택 행; 빈 행 선택 (모든 셀이 비어 있음); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 무작위 선택 ...
정확한 사본 수식 참조를 변경하지 않고 여러 셀; 참조 자동 생성 여러 시트에; 글 머리 기호 삽입, 확인란 등 ...
텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 부분합을 만들고 인쇄합니다. 셀 내용과 주석 간 변환...
슈퍼 필터 (다른 시트에 필터 구성표 저장 및 적용) 고급 정렬 월 / 주 / 일, 빈도 등 특수 필터 굵은 기울임 꼴로 ...
통합 문서와 워크 시트 결합; 키 열을 기반으로 테이블 병합; 데이터를 여러 시트로 분할; xls, xlsx 및 PDF 일괄 변환...
300개 이상의 강력한 기능. Office / Excel 2007-2019 및 365를 지원합니다. 모든 언어를 지원합니다. 기업 또는 조직에 쉽게 배포 할 수 있습니다. 전체 기능 30 일 무료 평가판. 60 일 환불 보장.

자세히보기 ... 무료 다운로드... 매수...

Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
생산성이 50% 증가하고 매일 수백 번의 마우스 클릭이 줄어듭니다!

자세히보기 ... 무료 다운로드... 매수...

18 Comments
Login

Sort by Newest
- Best
- Popular
- Newest
- Oldest

You are guest

or post as a guest, but your post won't be published automatically.

Loading comment... The comment will be refreshed after 00:00.

To post as a guest, your comment is unpublished.
shalim · 7 months ago
how to make flashing specific cell containing specific Text only ?
- Reply
To post as a guest, your comment is unpublished.
connie · 1 years ago
not working,

Please help
- Reply
To post as a guest, your comment is unpublished.
Shreenivas AK · 1 years ago
when protect the sheet this code not working
- Reply
To post as a guest, your comment is unpublished.
mekka · 2 years ago
hi, i need help in google sheets..

I need an entire row to blink if F3:F1001 contains the "STAT". the entire row should be in orange but also blinking until the the column W3:W1001's checkbox is ticked.

is it possible? can you help? pleaseeeeeeeeeeeeeee
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 2 years ago
  
  Hi mekka,
  Sorry can't help you with that. Thank you for your comment.
  
  Reply
To post as a guest, your comment is unpublished.
baburaj.sasco@gmail.com · 2 years ago
How can I put a condition to blink certain cells if its value is below a limit, say below 30, without using the button. Also, i will be using a protected sheet. Thanks in advance for your help.
- Reply
To post as a guest, your comment is unpublished.
Sam · 2 years ago
How do i change this to sheet 1?
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 2 years ago
  
  Hi Sam,
  If you want to make cell A1 in Sheet1 or other specific worksheet blinking, please add "Sheet1!" or other worksheet name before the cell address. See the below code line:
  
  Set xCell = Range("Sheet1!A1")
  
  Reply
To post as a guest, your comment is unpublished.
SUNARYANTO · 2 years ago
MANTEB GAN
- Reply
To post as a guest, your comment is unpublished.
alassail.survey@gmail.com · 3 years ago
Working. good
But after protecting my sheet LOCK & Hidden ( except blinking cell ) it's not working.
Anyone plz help me solve this issue.
- Reply
To post as a guest, your comment is unpublished.
Rashid Imam · 3 years ago
Hi,
it's working well but when I am protecting my sheet then blinking is not working showing debug msg.
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 2 years ago
  
  Good day,
  Please try the following code.
  
  Sub StartBlink()
  Dim xCell As Range
  Dim xTime As Variant
  On Error Resume Next
  Set xCell = Range("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
  
  Reply
To post as a guest, your comment is unpublished.
Dayle · 3 years ago
How do I include this code in the following so I don't need buttons but the blinking starts automatically on the workbook opening?

Private Sub Workbook_Open()

' code here

End Sub
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 3 years ago
  
  Hi Dayle,
  Please put this code into the ThisWorkbook window.
  
  'Put in“ThisWorkbook”window
  Private Sub Workbook_Open()
  StarBlink
  End Sub
  
  Put the below code into the Module window. And then save the workbook as an Excel Macro-enabled Workbook. Hope I can help. Thanks for your comment.
  
  'Start blinking
  Sub StarBlink()
  Dim xCell As Range
  Dim xTime As Variant
  Set xCell = Range("A1")
  With ThisWorkbook.Worksheets("Sheet1").Range("A1").Font
  If xCell.Font.Color = vbRed Then
  xCell.Font.Color = vbWhite
  Else
  xCell.Font.Color = vbRed
  End If
  End With
  xTime = Now + TimeSerial(0, 0, 1)
  Application.OnTime xTime, "" & ThisWorkbook.Name & "!StarBlink", , True
  End Sub
  'Stop blinking
  Sub StopBlink()
  xTime = Now + TimeSerial(0, 0, 1)
  Application.OnTime EarliestTime:=xTime, Procedure:="" & ThisWorkbook.Name & "!StarBlink", Schedule:=False
  End Sub
  
  Reply
To post as a guest, your comment is unpublished.
Rafi · 3 years ago
Working... Great
- Reply
To post as a guest, your comment is unpublished.
Hana · 4 years ago
How can it make a random cell blink in a certain range?
- Reply
To post as a guest, your comment is unpublished.
Geoff Culbertson · 4 years ago
Could this blinking text be applied to a condition. i.e. if a date is reached or is approaching on one worksheet, a cell on a cover/menu sheet flashes
- Reply
To post as a guest, your comment is unpublished.
Ken · 4 years ago
This code will not stop the blinking it get stuck. What am I doing wrong?
- Reply

귀하의 계정에 로그인

비밀번호 재설정