第53讲-offsetResize 复习作业\旅行社收费作业

'作业1 第一问
'A1:H1 出发转换成黄色区域

Sub 作业1第一问()
    Dim area As Range
    Set area = Range("a1:h1").Offset(5, 0).Resize(7, 8)
    Debug.Print area.Address(0, 0)
End Sub

Sub 作业1第二问()
    Dim area As Range
    Set area = Cells(3, "k").Offset(5, -8).Resize(4, 5)
    Debug.Print area.Address(0, 0)
End Sub

Sub 作业2()
    [a5].Offset(1, 3).Resize(7, 5).Replace 100, "满分"
End Sub

’

'如果最后成团在15人及以下的，每人收取团费500元
'2、15以上的团，每增加1个人，就降低每人团费9元，但是团费最低每人320元，
'当降到320元/人之后无论再增加多少人，团费都是320元/人。
'
Sub 旅行社线路问题()
    Dim 人数 As Long, 团费 As Long, i As Long
    For i = 2 To [a1].CurrentRegion.Rows.Count
        团费 = 500
        人数 = 15
        If Range("a" & i) <= 人数 * 团费 Then
            If Range("a" & i) Mod 500 = 0 Then
                人数 = Range("a" & i) / 500
                Range("b" & i) = 人数
                Range("c" & i) = 团费
            Else
                Range("b" & i) = "非本线路数据"
            End If
        Else
            Do While 团费 > 320
                人数 = 人数 + 1
                团费 = 团费 - 9
                If 团费 * 人数 = Range("a" & i) Then
                    Range("b" & i) = 人数
                    Range("c" & i) = 团费
                    Exit Do
                ElseIf 团费 * 人数 > Range("a" & i) Then
                    Range("b" & i) = "非本线路数据"
                    Exit Do
                End If
            Loop
            If 团费 = 320 Then
                If Range("a" & i) Mod 320 = 0 Then
                    人数 = Range("a" & i) / 320
                    Range("b" & i) = 人数
                    Range("c" & i) = 团费
                Else
                    Range("b" & i) = "非本线路数据"
                
                End If
            End If
        End If
    Next
End Sub