'作业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