VBA 서브 사이의 패스 값

Question

서브 사이에서 값을 앞뒤로 전달하는 방법을 배우려고합니다. 나는 궁극적으로 동일한 코드 라인을 반복적으로 사용하는 매크로 서브를 몇 개 만들었습니다. 시작하려면 열과 행 수를 조회/계산할 수 있어야합니다. 이것은 내가 지금까지 가지고 있지만 작동하지 않습니다.

또한 행을 넘어서 확장하고 싶습니다.

Public Sub main() 
Dim lCols As Integer 
Dim lRows As Integer 

    lCols = countCols(Sheet1) 

    Sheet1.Range("M2").Value = lCols 

End Sub 

Public Function countCols(sheetValue As Worksheet) As Variant 
     countCols = sheetValue.Cells(Rows.Count, 1).End(x1Up).Row 
    Exit Function 
End Function 

는 지금 그것이 sheetValue에 "시트 1"을 통과하지 않는 나타납니다 ... 함수 내 달려 있습니다.

Answer 1

몇 가지 포인트 :

1. 그것은 긴으로 행과 열 변수를 선언하는 것이 좋습니다. this을 참조하십시오. Integer로
2. 당신이 선언 한 변수는 lCols, lRows 다음 기능의 유형도 Integer
3. 귀하의 경우 Exit Function를 사용 할 필요가 없어야합니다 돌아갑니다. Exit Function은 함수를 종료하고 함수 호출 다음의 명령문을 실행하는 데 사용됩니다. 그러나 귀하의 경우에는 기능 자체가 종료되므로 출구가 필요하지 않습니다.

다음 시도

Public Sub main() 
    Dim lCols As Long, lRows As Long 'declared as long 
    Dim ws As Worksheet 

    Set ws = ThisWorkbook.Sheets("Sheet2") 'change Sheet2 to your data sheet 

    lCols = countCols(ws) 
    lRows = countRows(ws) 

    ws.Range("M2").Value = lCols 
    ws.Range("N2").Value = lRows 

End Sub 

Public Function countCols(sheetValue As Worksheet) As Long 'should return long 
     countCols = sheetValue.Cells(1, sheetValue.Columns.Count).End(xlToLeft).Column 
End Function 

Public Function countRows(sheetValue As Worksheet) As Long 'should return long 
     countRows = sheetValue.Cells(sheetValue.Rows.Count, 1).End(xlUp).Row 
End Function