vba入门必学代码
@夏忠1692：求VBA代码 初学者,求基础简单的代码^ - ^ -
潘冰13595574244…… 代码如下. '计数代码 Private Sub CommandButton1_Click() Range(＂F6＂).Value = Application.WorksheetFunction.Count(Range(＂A:A＂)) End Sub '求和代码 Private Sub CommandButton2_Click() Range(＂G6＂).Value = Application.WorksheetFunction.Sum(Range(＂A:A＂)) End Sub
@夏忠1692：求一段vba代码,很简单,但实用 -
潘冰13595574244…… Sub BeFile() Set fs = CreateObject(＂Scripting.FileSystemObject＂) 'Set a = fs.CreateTextFile(＂C:\a.txt＂, True) If fs.FileExists(＂C:\a.txt＂) = False Then Dim strPath As String strPath = Application.ActiveWorkbook.FullName Application....
@夏忠1692：VBA常用技巧代码解析 -
潘冰13595574244…… 在VBA中,可以利用Range对象的Comment属性判断单元格是否存在批注,如下e69da5e887aae799bee5baa6e79fa5e9819331333332616461面的代码所示. 复制内容到剪贴板 代码:#001 Sub HasComment()#002 If Range(＂A1＂)....
@夏忠1692：VBA简单的程序语句 -
潘冰13595574244…… 改成下面的代码试试 Sub test() Dim cj As Double cj = Val(InputBox(＂请输入分数＂, ＂数据采集--＂, 60)) If cj >= 90 Then MsgBox ＂优＂ ElseIf cj >= 80 Then MsgBox ＂良＂ ElseIf cj >= 60 Then MsgBox ＂中＂ Else MsgBox ＂差＂ End If End Sub
@夏忠1692：求VBA实用代码 -
潘冰13595574244…… 简单代码实现滚动字幕效果 假设在sheet1中用标签label1实现滚动字幕 Private Sub Worksheet_Activate() dim m as integer,j as long m=1 Do If m=100 then exit sub for j=1 to 600 Do Events Next j with label1 .left=.left-1 if .lefe<=-.width then .left=me.width end with loop until date>#12/31/2030# end sub Private Sub Worksheet_Deactivate() m=100 End Sub
@夏忠1692：求一段简单VBA代码 -
潘冰13595574244…… 这个应该是窗体上的代码,右键点击窗体上的文本框--“查看代码”,然后写入代码:Private Sub TextBox6_Change() If TextBox6.Value = 5 Or TextBox6.Value = 9 Then Me.TextBox7.value = 0 elseif TextBox6.Value = 18 Then Me.TextBox7.value = 10 End If End Sub
@夏忠1692：求VBA代码 -
潘冰13595574244…… 使用EXCEL,在[1,1]中存放n,在[1,2]中存放结果s.代码如下: n = Sheet1.cell(1, 1) s = 0 For i = 1 To n s = s + 1 / n Next i Sheet1.Cells(1, 2) = Round(s, 3) MsgBox ＂完成＂
@夏忠1692：VBA代码怎么用?我是初学的 -
潘冰13595574244…… VBA代码有很多种的,关键是你要用哪种代码,例如你要判断A1单元格是否为空,可以下载判断语句:if sheet1.range(＂A1＂).value=＂＂ then '判断sheet1工作表的A1单元格是否空白,如果是空,那么就执行下面代码 msgbox＂A1单元格是空白的＂ end if 又例如要用代码给A1单元格填上＂我是中国人＂,那么就这样写:sheet1.range(＂A1＂).value=＂我是中国人＂ '切记,要在两边加上＂＂,否则输入会提示错误,因为这是一个文本,如果不加上＂＂,那么代码运行就会出错 明白了吗?代码是多种多样的,选择对你有用处的代码就行了,不一定要全学会
@夏忠1692：vba操作Excel有什么通用代码? -
潘冰13595574244…… MyColumn=Target.Column 获取活动单元格所在的列号 MyRow=Target.Row 获取活动单元格所在的行号 工作表名.UsedRange.Rows.Count 指定工作表已使用的行的总数 工作表名.UsedRange.Columns.Count 指定工作表已使用的列的总数 工作表...
@夏忠1692：新手学VBA,如何编代码?最近买了本VBA精粹,可是我到现在还是
潘冰13595574244…… 我是个新手,刚接触VBA不久,买了赵老师的两本书学习了几天,但看不太明白这些代码,主要是不清楚思路和代码的运行规则.自己编个东西花了N长时间,收效甚微,...
潘冰13595574244…… 代码如下. '计数代码 Private Sub CommandButton1_Click() Range(＂F6＂).Value = Application.WorksheetFunction.Count(Range(＂A:A＂)) End Sub '求和代码 Private Sub CommandButton2_Click() Range(＂G6＂).Value = Application.WorksheetFunction.Sum(Range(＂A:A＂)) End Sub
@夏忠1692：求一段vba代码,很简单,但实用 -
潘冰13595574244…… Sub BeFile() Set fs = CreateObject(＂Scripting.FileSystemObject＂) 'Set a = fs.CreateTextFile(＂C:\a.txt＂, True) If fs.FileExists(＂C:\a.txt＂) = False Then Dim strPath As String strPath = Application.ActiveWorkbook.FullName Application....
@夏忠1692：VBA常用技巧代码解析 -
潘冰13595574244…… 在VBA中,可以利用Range对象的Comment属性判断单元格是否存在批注,如下e69da5e887aae799bee5baa6e79fa5e9819331333332616461面的代码所示. 复制内容到剪贴板 代码:#001 Sub HasComment()#002 If Range(＂A1＂)....
@夏忠1692：VBA简单的程序语句 -
潘冰13595574244…… 改成下面的代码试试 Sub test() Dim cj As Double cj = Val(InputBox(＂请输入分数＂, ＂数据采集--＂, 60)) If cj >= 90 Then MsgBox ＂优＂ ElseIf cj >= 80 Then MsgBox ＂良＂ ElseIf cj >= 60 Then MsgBox ＂中＂ Else MsgBox ＂差＂ End If End Sub
@夏忠1692：求VBA实用代码 -
潘冰13595574244…… 简单代码实现滚动字幕效果 假设在sheet1中用标签label1实现滚动字幕 Private Sub Worksheet_Activate() dim m as integer,j as long m=1 Do If m=100 then exit sub for j=1 to 600 Do Events Next j with label1 .left=.left-1 if .lefe<=-.width then .left=me.width end with loop until date>#12/31/2030# end sub Private Sub Worksheet_Deactivate() m=100 End Sub
@夏忠1692：求一段简单VBA代码 -
潘冰13595574244…… 这个应该是窗体上的代码,右键点击窗体上的文本框--“查看代码”,然后写入代码:Private Sub TextBox6_Change() If TextBox6.Value = 5 Or TextBox6.Value = 9 Then Me.TextBox7.value = 0 elseif TextBox6.Value = 18 Then Me.TextBox7.value = 10 End If End Sub
@夏忠1692：求VBA代码 -
潘冰13595574244…… 使用EXCEL,在[1,1]中存放n,在[1,2]中存放结果s.代码如下: n = Sheet1.cell(1, 1) s = 0 For i = 1 To n s = s + 1 / n Next i Sheet1.Cells(1, 2) = Round(s, 3) MsgBox ＂完成＂
@夏忠1692：VBA代码怎么用?我是初学的 -
潘冰13595574244…… VBA代码有很多种的,关键是你要用哪种代码,例如你要判断A1单元格是否为空,可以下载判断语句:if sheet1.range(＂A1＂).value=＂＂ then '判断sheet1工作表的A1单元格是否空白,如果是空,那么就执行下面代码 msgbox＂A1单元格是空白的＂ end if 又例如要用代码给A1单元格填上＂我是中国人＂,那么就这样写:sheet1.range(＂A1＂).value=＂我是中国人＂ '切记,要在两边加上＂＂,否则输入会提示错误,因为这是一个文本,如果不加上＂＂,那么代码运行就会出错 明白了吗?代码是多种多样的,选择对你有用处的代码就行了,不一定要全学会
@夏忠1692：vba操作Excel有什么通用代码? -
潘冰13595574244…… MyColumn=Target.Column 获取活动单元格所在的列号 MyRow=Target.Row 获取活动单元格所在的行号 工作表名.UsedRange.Rows.Count 指定工作表已使用的行的总数 工作表名.UsedRange.Columns.Count 指定工作表已使用的列的总数 工作表...
@夏忠1692：新手学VBA,如何编代码?最近买了本VBA精粹,可是我到现在还是
潘冰13595574244…… 我是个新手,刚接触VBA不久,买了赵老师的两本书学习了几天,但看不太明白这些代码,主要是不清楚思路和代码的运行规则.自己编个东西花了N长时间,收效甚微,...
