티스토리 뷰
반응형
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Column = 1 Then
Range("M" & ActiveCell.Row).Value = "F"
End If
If ActiveCell.Column = 13 Then
Range("M" & ActiveCell.Row).Value = ""
End If
End Sub
반응형
'엑셀' 카테고리의 다른 글
| 엑셀 vba 프린터 설정 (0) | 2018.11.29 |
|---|---|
| 엑셀 vba GetDesktop_Folder (0) | 2018.11.29 |
| 엑셀 vba Desktop_Folder_Make (0) | 2018.11.29 |
| 엑셀 vba Create_Folder (0) | 2018.11.28 |
| 엑셀 vba 시트_선택_없으면_만들기 (0) | 2018.11.28 |
댓글