여러 색상으로 클릭하여 엑셀 상자를 교체 한 다음 지우십시오.

Question

인턴쉽을위한 프로젝트를 진행하고 있는데 파일의 요청 중 일부는 더블 클릭으로 Excel 상자의 색상을 변경할 수 있다는 것입니다.

예, 아니요 및 해당 없음 상자가 있습니다. 그래서 내가 원하는 것은 빨강, 초록, 회색, 그리고 다시 맑은 색으로 상자의 색을 바꿀 수 있다는 것입니다. 처음 두 번 클릭하면 클릭하면 변경됩니다. 지금까지 제가 가지고있는 것들이 저를 빨강에서 초록색으로 바꾸어 놓았습니다. 어떤 도움을 주셔서 감사합니다.

Private Sub Worksheet_BeforeDoubleClick(_ 
     ByVal Target As Range, Cancel As Boolean) 
' This macro is activated when you doubleclick 
' on a cell on a worksheet. 
' Purpose: color or decolor the cell when clicked on again 
     If Target.Interior.ColorIndex = 3 Then 
      ' if cell is already red, make the cell green 
      Target.Interior.ColorIndex = 4 
     Else 
      ' make the cell red: 
      Target.Interior.ColorIndex = 3 
     End If 
     ' true to cancel the 'editing' mode of a cell: 
     Cancel = True 
End Sub 

Answer 1

ColorIndex 값이 적절하지 않은 경우 필요에 따라 값을 변경하십시오. Case Else 색을 빈 셀에 추가했습니다.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 
    Select Case Target.Interior.ColorIndex 
     Case 3 
      Target.Interior.ColorIndex = 4 
     Case 4 
      Target.Interior.ColorIndex = 5 
     Case 5 
      Target.Interior.ColorIndex = 3 
     Case Else 
      Target.Interior.ColorIndex = 3 
    End Select 
    Cancel = True 
End Sub