셀에서 색 구성표를 가져 와서 매크로에 적용

Question

메모 표시기 (일반적으로 빨간색)를 덮을 수 있도록 매크로를 배치하여 셀의 색과 혼합합니다. 이 매크로 대신 매크로에서 색 구성표를 가져 와서 해당 색을 참조하고 색 구성표의 값을 배치 할 때 필요한 추가 사항이 궁금합니다.

Option Explicit 

Sub CoverCommentIndicator() 
Dim ws As Worksheet 
Dim cmt As Comment 
Dim rngCmt As Range 
Dim shpCmt As Shape 
Dim shpW As Double 'shape width 
Dim shpH As Double 'shape height 

Set ws = ActiveSheet 
shpW = 6 
shpH = 4 

For Each cmt In ws.Comments 
    Set rngCmt = cmt.Parent 
    With rngCmt 
    Set shpCmt = ws.Shapes.AddShape(msoShapeRightTriangle, _ 
     rngCmt.Offset(0, 1).Left - shpW, .Top, shpW, shpH) 
    End With 
    With shpCmt 
    .Flip msoFlipVertical 
    .Flip msoFlipHorizontal 
    .Fill.ForeColor.SchemeColor = 10 
    .Fill.Visible = msoTrue 
    .Fill.Solid 
    .Line.Visible = msoFalse 
    End With 
Next cmt 

Answer 1

셀에 도형을 추가하고 셀 색상을 일치시키는 대신 데이터 유효성 검사에서 입력 메시지로 의견을 추가하십시오. 셀을 선택했지만 셀에 표시기가없는 경우 주석이 나타납니다.

매크로를 사용하여이 작업을 수행해야하는 경우 셀의 .Validation.InputMessage 속성을 사용하여 입력 메시지를 설정할 수 있습니다. 매크로 레코더로 한번 시도한 다음 필요에 맞게 코드를 수정하십시오.

Answer 2

이 그것을 커버해야

.Fill.ForeColor.SchemeColor = cmt.Parent.Interior.ColorIndex + 2 ' + 2 just a number to let the color be different from the color index in the cell 

은 또한, 나는 당신이 이것에 대한 정의 할 수 있습니다 enum the colors에 좋은 생각 인 것 같아요.