서식 Word 2016 표 셀

Word에서 계획 도구를 개발하면서 교육 과정의 각 세션마다 테이블을 사용합니다. 각 열에 따라 개별 셀의 서식을 지정하고 싶습니다 (각각에 대해 두 가지 색상 옵션). 레이아웃 목적을 위해 일부 제목 행 셀이 병합됩니다. 내 사용자가 "P"아래의 셀을 마우스 오른쪽 버튼으로 클릭 한 다음 셀 배경 음영으로 색으로 구분되는 활동 유형을 선택하기를 원합니다. 내가 열 번호를 설립 한 후서식 Word 2016 표 셀

따라서처럼 내 Range 객체를 반환 런타임 오류 5992은

Sub Makro2() 
    Dim minCelle As Range 
    Selection.SelectCell 
    Set minCelle = Selection.Range 
    minCelle.Text = minCelle.Columns.First.Index 
    ' Here the error occurs. As a starting point, I want VBA to insert col# 
End Sub

"테이블이 컬럼의 다른 번호를 가지고,이 컬렉션의 개별 컬럼에 대한 액세스를 제공하지 않습니다" , 나는 조건부 채색으로 작업 할 수 있습니다.

저는 Word 2016에서 작동하지만 가능한 경우 이전 버전과의 호환성을 원합니다. 위의 코드를 사용하여 두 행을 병합 한 두 행, 세 열 표가 포함 된 Word 2016 .docm 문서를 살펴 보았습니다.

출처

2017-01-27 Engelsmann

약간 혼란 스럽습니다. 개별 셀을 포맷해야하나요? 빠른 테스트에서 다음은 셀이 첫 번째 행에 병합 된 경우에도 나를위한 오른쪽 열을 반환합니다. Selection.Cells (1) .ColumnIndex –

지금은 확인할 수 없지만 아침에 할 것입니다. 감사. – Engelsmann

아래의 @CindyMeister에서 수정을 구현하면 실제 열 번호가 표시됩니다.

Sub Makro2() 
    Dim minCelle As Range 
    Selection.SelectCell 
    Set minCelle = Selection.Range 
    minCelle.Text = Selection.Cells(1).ColumnIndex 
End Sub

출처

2017-03-26 13:42:15 Engelsmann

서식 Word 2016 표 셀

답변

관련 문제