5练习输出一个等腰三角形

Excel VBA知识分享单元格的交互取值与赋值

'1单元格直接赋值

'2单元格取值赋值

'3单元格取值赋值与数组

'4单元格FOR循环赋值

'5单元格FOR循环嵌套赋值

'6单元格FOR循环嵌套判断赋值

'7扩展练习输出等腰三角形

Sub test()

’Excel VBA知识分享取值与赋值

'1单元格直接赋值

'-------------------------------------

Cells(1, 1) = 11

Cells(1, 2) = 12

Cells(1, 3) = 13

Cells(2, 1) = 21

Range("A3") = "A3"

Range("B3") = "B3"

Range("B4") = "B4"

Range("D:D") = "D"

Range("5:5") = 55

Range("E7:F9") = "E7F9"

Range("E10:F11") = "E10F11"

'2单元格取值赋值

'-------------------------------------

get_11 = Cells(1, 1)

get_12 = Cells(1, 2)

Cells(1, 5) = get_11 + get_12

get_A3 = Range("A3")

Range("E3") = get_A3

'3单元格取值赋值与数组

'-------------------------------------

get_arr = Range("E7:F11")

Range("E17:F21") = get_arr

End Sub

Sub test_f()

'4单元格FOR循环赋值

'-------------------------------------

 For i = 1 To 100

   Cells(i, 7) = i

   Range("h" & i) = i

 Next

End Sub

Sub test_ff()

'5单元格FOR循环嵌套赋值

'-------------------------------------

 For i = 1 To 100

   For ii = 1 To 100

   Cells(i, ii) = i & "X" & ii

   Next

 Next

End Sub

Sub test_fff()

'6单元格FOR循环嵌套判断赋值

'-------------------------------------

 For i = 1 To 100

   For ii = 1 To 100

    If ii <= i Then

    Cells(i, ii) = i & "X" & ii & "=" & i * ii

    End If

   Next

 Next

End Sub

Sub test_tt()

'7扩展练习输出等腰三角形

'-------------------------------------

 m = 50

 For i = 1 To 50

 For ii = 1 To 100

   If ii >= m And ii < (i + m + (50 - m)) Then

   Cells(i, ii) = "▲"

   Else

   Cells(i, ii) = ""

   End If

 Next

    m = m - 1

 Next

End Sub