自动输入

yalishangda

就想请老师帮忙写个VBA程序
过程很简单，A1中输入“甲”，然后B1中输入“优秀”，然后在C1中依次输入1、2、3……20；然后B1中输入“良好”，C1中再依次输入1、2、3……20；再然后B1输入合格，C1 输入1、2、3……20.
再回到A1中输入“乙”；重复B1、C1的输入步骤。
应该是一个比较简单的东西，无奈从未接触过VBA。所以请那位老师帮忙写一下，谢谢

vba.zip (6.96 KB, 下载次数: 3)

2017-6-26 21:30 上传

点击文件名下载附件

maditate

不明白楼主的意思。楼主说：“本来想用宏解决，运行时提示太大。就想请老师帮忙写个VBA程序”。这宏是什么东西，这VBA就是什么东西？

yalishangda

maditate 发表于 2017-6-26 21:35
不明白楼主的意思。楼主说：“本来想用宏解决，运行时提示太大。就想请老师帮忙写个VBA程序”。这宏是什么 ...

是这样的，比如说C1里面的输入，我是每输入一个数都是两行行代码，所以累积起来代码很多。据说VBA有比较简单的命令，实现1到N的顺序输入

蓝桥玄霜

请见代码。

yalishangda

蓝桥玄霜 发表于 2017-6-27 09:33
请见代码。

谢谢蓝桥玄霜版主，我再慢慢消化一下

yalishangda

蓝桥玄霜 发表于 2017-6-27 09:33
请见代码。

版主您好，不好意思啊。以前没接触过VBA，看不懂你写的程序。宏我是直接录制的，但数据太大从100到500，宏运行不了。缩减后是这样的
Sub 自动录入()
'
' 自动录入 宏
'
' 快捷键: Ctrl+z
'
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "甲"
    Range("EG1").Select
    ActiveCell.FormulaR1C1 = "优秀"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "101"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "102"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "103"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "104"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "105"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "106"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "107"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "108"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "109"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "110"
    Range("EG1").Select
    ActiveCell.FormulaR1C1 = "良好"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "101"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "102"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "103"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "104"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "105"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "106"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "107"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "108"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "109"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "110"
    Range("EG1").Select
    ActiveCell.FormulaR1C1 = "合格"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "101"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "102"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "103"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "104"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "105"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "106"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "107"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "108"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "109"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "110"
        Range("A1").Select
    ActiveCell.FormulaR1C1 = "乙"
    Range("EG1").Select
    ActiveCell.FormulaR1C1 = "优秀"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "101"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "102"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "103"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "104"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "105"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "106"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "107"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "108"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "109"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "110"
    Range("EG1").Select
    ActiveCell.FormulaR1C1 = "良好"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "101"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "102"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "103"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "104"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "105"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "106"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "107"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "108"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "109"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "110"
    Range("EG1").Select
    ActiveCell.FormulaR1C1 = "合格"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "101"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "102"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "103"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "104"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "105"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "106"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "107"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "108"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "109"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "110"
   
End Sub


从100~500重复输入过程有没什么类似于VBA中的  for i=100 to 500 这样的命令  谢谢啦