django 多线程 正则表达式 idea 常用快捷键 log4j dart canvas Movejs angularjs视频教程 matlab生成对角矩阵 vim跳到文件末尾 vue与html5 python配置 python编程教程 python文件操作 python使用正则表达式 python获取输入 java语言学习 java时间类 java时间戳转换日期格式 java基本数据结构 java获得当前日期 javaenum java定义字符串 linux磁盘管理 xp画图工具 乱码查看器 计算机操作系统第四版 渐变事件 backtrack3 超级力量2修改 网络文件服务器 服务器文件共享软件 hdcp是什么 联盟练级路线 商标查询软件 兽之祝福 语音转文字转换器 vbs代码表白 苹果x怎么用
当前位置: 首页 > 学习教程  > 编程语言

VBA代码学习for循环

2021/5/8 21:04:40 文章标签:

Option Explicit Sub 输入奇数()Dim i As Byte, a As ByteFor i 1 To 100 Step 2a a 1Range("I" & a).Value iNext i End Sub Application.CellsSub 输入3的倍数()Dim i As Byte, xrow As ByteFor i 3 To 100 Step 3xrow xrow 1Cells(xrow, "J"…

Option Explicit
Sub 输入奇数()
    Dim i As Byte, a As Byte
   
    For i = 1 To 100 Step 2
    a = a + 1
    Range("I" & a).Value = i
    
   
    Next i
End Sub
Application.Cells


Sub 输入3的倍数()
    Dim i As Byte, xrow As Byte
    For i = 3 To 100 Step 3
    xrow = xrow + 1
    Cells(xrow, "J").Value = i
    Next i
End Sub
 
Sub 输入3的倍数2()
    Dim i%, xrow%
    xrow = 1
    For i = 1 To 100 Step 1
    
    If i Mod 3 = 0 Then
    Cells(xrow, "H").Value = i
    xrow = xrow + 1 '这各xrow变量必须放在if循环里,否则不符合的条件也会增加1,最后导致隔3行才填入1个数据。
    End If
    
    Next i
    
End Sub

Sub 提取工资表名称()
    Dim sht As Worksheet, i As Integer '将sht声明为worksheet变量集合
    i = 1
    For Each sht In Worksheets      'worksheets为worksheet中集合体
    Cells(i, "k").Value = sht.Name 'sht.name是worksheet变量里的集合名称
    i = i + 1
    Next sht
End Sub

Sub 输入100()
    Dim arr(1 To 100) As Variant, i%
    i = 1
    For Each arr(1) In arr
    arr(i) = i
    Range("L" & i).Value = i
    i = i + 1
    Next arr
    
End Sub

Sub 输入100B()
    Dim c As Range, i%
    i = 1
    For Each c In Range("M1:M100")
    c.Value = i
    i = i + 1
    Next
End Sub

 


本文链接: http://www.dtmao.cc/news_show_995016.shtml

附件下载

上一篇:Java--String类

下一篇:哈夫曼编码的实现

相关教程

    暂无相关的数据...

共有条评论 网友评论

验证码: 看不清楚?