ナレッジベース

Private Sub Sheet1_Scroll(ByVal sender As Object, _
　　ByVal e As System.EventArgs) Handles Sheet1.Scroll

　　Dim intTopRow As Integer = Sheet1.TopLeft.Row
　　Dim intBottomRow As Integer = Sheet1.BottomRight.Row
　　Dim intPageRows As Integer = intBottomRow - intTopRow

　　'1ページ先読みして処理する
　　If (intBottomRow + intPageRows) < Sheet1.MaxRows - 1 Then
　　　　intBottomRow = intBottomRow + intPageRows
　　Else
　　　　intBottomRow = Sheet1.MaxRows - 1
　　End If

　　Sheet1.Redraw = False
　　For i As Integer = intTopRow To intBottomRow
　　　　Sheet1.AutofitRowHeight(i)
　　Next
　　Sheet1.Redraw = True

End Sub

private void Sheet1_Scroll(object sender, System.EventArgs e)
{
　　int intTopRow = Sheet1.TopLeft.Row;
　　int intBottomRow = Sheet1.BottomRight.Row;
　　int intPageRows = intBottomRow - intTopRow;
　　if ((intBottomRow + intPageRows) < Sheet1.MaxRows - 1) {
　　　　intBottomRow = intBottomRow + intPageRows;
　　} else {
　　　　intBottomRow = Sheet1.MaxRows - 1;
　　}
　　Sheet1.Redraw = false;
　　for (int i = intTopRow; i <= intBottomRow; i++) {
　　　　Sheet1.AutofitRowHeight(i);
　　}
　　Sheet1.Redraw = true;
}