스포이드 내놔
내가 보유한 엑셀 버전에는 파워포인트처럼 스포이드 모양의 컬러피커가 없다. 아주아주아주 가끔(거의 대부분 파워포인트 표를 복사했을때) 색을 맞추고 싶을 때가 있는데, 아래 VBA로 간단하게 처리할 수 있겠다.
Sub colorpick()
'''
'선택한 셀의 컬러값이 복사되며
'inputbox에서 지정된 영역으로 컬러값이 복사됩니다.
'''
Dim 붙여넣을영역 As Range
선택한색상 = ActiveCell.Interior.Color
On Error Resume Next
Set 붙여넣을영역 = Application.InputBox("색상을 붙여넣을 영역을 선택하세요", , , , , , , 8)
With 붙여넣을영역
.Activate
.Interior.Color = 선택한색상
End With
End Sub
추가기능에 넣어놓고 사용하면 나쁘지 않을 듯하다.
