(1)Execl 基础练习 内容 循环

Sub a()
Const I = 11                  '常量
Sheet1.Name = "2"                      '工作表的名字
Sheet1.Range("A1").Value = "内容"      '工作表单元格 A1 的名字
Sheet1.Range("A1:A10").Select          '选择 A1-A10 单元格
Sheet1.Range("A1:A10").Value = 1       ' A1-A10 单元格值为 1
Sheets(3).Delete                       '单元格删除
Range("A1,B6:B10,D9").Select           '不连续单元格 选中
End Sub

Sub s()
Dim rs As Integer
Dim a As Integer

'循环判断
rs = 1
Do While Sheet1.Cells(rs, 1) <> ""    '单元格 （rs,1） 不为空时
If Sheet1.Cells(rs, 1).Value >= 90 Then    '单元格 （rs,1） 的值>90
Sheet1.Cells(rs, 2) = "优秀"               '单位格（rs,2） 的值就为优秀
ElseIf Sheet1.Cells(rs, 1).Value >= 70 Then
Sheet1.Cells(rs, 2) = "不错"
Else
Sheet1.Cells(rs, 2) = "错错错错"
End If
rs = rs + 1
Loop
'隔行换色
a = 2
Do While Sheet1.Range("a" & a) <> ""   '工作表sheet1 的单元格 range（"A?"） 不为空则
Sheet1.Range("A" & a & ": C" & a).Interior.ColorIndex = 7  
 '将单元格范围 A?-C? 的底色填充为 颜色索引号为7 的颜色
a = a + 2
Loop
End Sub
---------------------

Do

i = i + 1
If i > 3 Then
Exit Do
End If
 ps = InputBox("请输入密码")
Loop While ps = "1"       '满足条件执行 ,,当输入的值 =1 的时候该循环一直执行

Do

i = i + 1
If i > 3 Then
Exit Do
End If
 ps = InputBox("请输入密码")
Loop Until ps = "123"       '不满足条件执行,,,,当输入的值 <>'123"时候该循环一直执行

Sub d()
Dim rng As Range   '申明 rng 为对象 一个单元格  each 每个
For Each rng In Sheet1.Range("A1:b10")   '  在A1-B10单元格区域中取出 每个单元格
If rng.Value = "A1" Then        '对每个单元格判断, 如果这个单元格 ="A1"
rng.Interior.ColorIndex = 3     '则 设置这个 单元格的 底层颜色为 红色
End If
Next
End Sub

Sub e()
Dim wsh As Worksheet     '申明成 工作表对象
Dim i As Integer
Dim name As String
For Each wsh In Worksheets    ' 在当前所有工作表中取出 每个工作表
name = wsh.name              '工作表的名字 赋值给name
n = n + 1
Sheet1.Range("G" & n).Value = name   '将 name 赋值给  AX 单元格
Sheet1.Cells(20, n) = name   '将 name 赋值给  10行,X列
Next

End Sub

 

Sub f()  'For  next       exit for 语句随时退出循环
Dim i As Integer
Dim s As Integer
For i = 1 To 20           '活动单元格相加    第 i 行 4列 ===第 i 行 2列,+ 第 i 行 列
ActiveSheet.Cells(i, 7) = ActiveSheet.Cells(i, 5) + ActiveSheet.Cells(i, 6)
Next
'--------  for next      Exit For
For s = 13 To 17
If Sheet1.Cells(s, 1) = "5班" Then
Sheet1.Range("B" & s).Value = "当单元格为5班时退出循环"
Exit For
End If
Next
 
'-------统计 1班 数量
s = 0
i = 0
For s = 1 To 12
If Sheet1.Cells(s, 9) <> "" Then
   If Sheet1.Cells(s, 9) = "1班" Then
   i = i + 1
   End If
Else
Exit For
End If
Next
MsgBox i
'---------'1 制作9*9乘法表
Dim a, b As Integer
For a = 1 To 9
   For b = 1 To 9   '列固定 循环行
    
    
    If b < a Then
    Sheet1.Cells(b, a) = ""
    Else
     Sheet1.Cells(b, a) = b & "×" & a & "=" & b * a
    End If
   Next
Next

'---------'2 制作9*9乘法表
 
a = 0: b = 0
For a = 1 To 9
   For b = 1 To 9    '行固定 ,循环列
      
  If b > a Then
  Sheet1.Cells(a, b) = ""
  Else
  Sheet1.Cells(a, b) = a & "×" & b & "=" & a * b
  End If
   Next
Next
End Sub