는 B5에서 시작하여 아래로

Question

에 특정 행에서 엑셀 열을 포맷하는 방법, C5는, D5는 ... 나는 다음과 같은 엑셀 파일이 일부 제목 및 첫 번째 3 행의 제목 텍스트 그래서 매크로를 행의 제목을 기반으로 5 행에서 각 열의 유형을 설정할 수 있습니다 (제목은 필수 유형을 언급하기위한 것입니다). Excel VBA에서이 작업을 수행 할 수 있습니까?

감사합니다.

Answer 1

이게 당신이하려는 겁니까? Column B의 예를 보여주고 있습니다. 나머지를 위해 그것을하십시오.

논리 :

1. 이 열에서 마지막 행을 찾습니다. THIS
2. 범위를 구성하십시오.
3. 범위를 필요한대로 형식을 지정하십시오.

코드 : 제가 나머지를 할 수있는 방법을 알고 코멘트

감사하지만 그냥 B5 셀을 서식, 당신은 알려 주시기 바랍니다 수 있습니다 FROM

Private Sub Sample() 
    Dim ws As Worksheet 
    Dim LastRow As Long, Header As Long 

    Header = 5 '<~~ Start row for formatting 

    Set ws = ThisWorkbook.Sheets("Sheet1") 
    With ws 
     LastRow = .Range("B" & .Rows.Count).End(xlUp).Row 

     With .Range("B" & Header & ":B" & LastRow) 
      ' 
      '~~> Change format here 
      ' 
      '~~> Number with 5 decimal places. 
      .NumberFormat = "0.00000" 
     End With 
    End With 
End Sub 

후속 행 수가 5에서 1,000까지 - 행 아웃이 11 시간 전

,451,515,

아 그래서이 5 행 이후에는 값이 없습니다 당신은 마지막 행은 다음 헤더가 행

Private Sub Sample() 
    Dim ws As Worksheet 
    Dim LastRow As Long, Header As Long 

    Header = 5  '<~~ Start row for formatting 
    LastRow = 1000 '<~~ Last Row 

    Set ws = ThisWorkbook.Sheets("Sheet1") 

    With ws 
     With .Range("B" & Header & ":B" & LastRow) 
      ' 
      '~~> Change format here 
      ' 
      '~~> Number with 5 decimal places. 
      .NumberFormat = "0.00000" 
     End With 
    End With 
End Sub