录入vba必背代码大全
@汤荔6114:excel vba 代码 -
汲竹19864883782…… Dim OldRng Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 4 And Target.Count = 1 Then OldRng = ActiveCell End SubPrivate Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 4 Then If ...
@汤荔6114:求VBA代码 -
汲竹19864883782…… 使用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 "完成"
@汤荔6114:求VBA实用代码 -
汲竹19864883782…… 简单代码实现滚动字幕效果 假设在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
@汤荔6114:求一段vba代码,很简单,但实用 -
汲竹19864883782…… 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....
@汤荔6114:求VBA代码 初学者,求基础简单的代码^ - ^ -
汲竹19864883782…… 代码如下. '计数代码 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
@汤荔6114:求一段简单VBA代码 -
汲竹19864883782…… 这个应该是窗体上的代码,右键点击窗体上的文本框--“查看代码”,然后写入代码: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
@汤荔6114:Excel VBA代码
汲竹19864883782…… 提示: 插入模块,编辑一个宏: 1、用 GetObject 函数,将 D:\My Documents\数据备份.xls 文件读取到内存. 2、用语句 Range("A1000").End(xlUp).Row 读取最后一行行号n,假若超过1000行,只要改变1000即可. 3、判断A5单元格是否为...
@汤荔6114:vba操作Excel有什么通用代码? -
汲竹19864883782…… MyColumn=Target.Column 获取活动单元格所在的列号 MyRow=Target.Row 获取活动单元格所在的行号 工作表名.UsedRange.Rows.Count 指定工作表已使用的行的总数 工作表名.UsedRange.Columns.Count 指定工作表已使用的列的总数 工作表...
@汤荔6114:求EXCEL中用VBA查找并录入的代码 -
汲竹19864883782…… Private Sub CommandButton2_Click() For i = 1 To [A65536].End(xlUp).Row Cells.Find(What:=TextBox1.Text, After:=ActiveCell).Activate ActiveCell.Offset(0, 5).Activate If ActiveCell.FormulaR1C1 = TextBox2.Text Then Exit For ActiveCell.FormulaR1C1 = TextBox2.Text Next End Sub
@汤荔6114:求一段vba的代码 -
汲竹19864883782…… d2公式=sum(d1,a2*6) 公式下拉完成 如果一定要用VBA处理,可用单元格事件完成 即A列输入倍数,得到后面的结果 代码如下 Private Sub Worksheet_Change(ByVal Target As Range) Dim r& If Target.Row > 1 And Target.Column = 1 And ...
汲竹19864883782…… Dim OldRng Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 4 And Target.Count = 1 Then OldRng = ActiveCell End SubPrivate Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 4 Then If ...
@汤荔6114:求VBA代码 -
汲竹19864883782…… 使用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 "完成"
@汤荔6114:求VBA实用代码 -
汲竹19864883782…… 简单代码实现滚动字幕效果 假设在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
@汤荔6114:求一段vba代码,很简单,但实用 -
汲竹19864883782…… 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....
@汤荔6114:求VBA代码 初学者,求基础简单的代码^ - ^ -
汲竹19864883782…… 代码如下. '计数代码 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
@汤荔6114:求一段简单VBA代码 -
汲竹19864883782…… 这个应该是窗体上的代码,右键点击窗体上的文本框--“查看代码”,然后写入代码: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
@汤荔6114:Excel VBA代码
汲竹19864883782…… 提示: 插入模块,编辑一个宏: 1、用 GetObject 函数,将 D:\My Documents\数据备份.xls 文件读取到内存. 2、用语句 Range("A1000").End(xlUp).Row 读取最后一行行号n,假若超过1000行,只要改变1000即可. 3、判断A5单元格是否为...
@汤荔6114:vba操作Excel有什么通用代码? -
汲竹19864883782…… MyColumn=Target.Column 获取活动单元格所在的列号 MyRow=Target.Row 获取活动单元格所在的行号 工作表名.UsedRange.Rows.Count 指定工作表已使用的行的总数 工作表名.UsedRange.Columns.Count 指定工作表已使用的列的总数 工作表...
@汤荔6114:求EXCEL中用VBA查找并录入的代码 -
汲竹19864883782…… Private Sub CommandButton2_Click() For i = 1 To [A65536].End(xlUp).Row Cells.Find(What:=TextBox1.Text, After:=ActiveCell).Activate ActiveCell.Offset(0, 5).Activate If ActiveCell.FormulaR1C1 = TextBox2.Text Then Exit For ActiveCell.FormulaR1C1 = TextBox2.Text Next End Sub
@汤荔6114:求一段vba的代码 -
汲竹19864883782…… d2公式=sum(d1,a2*6) 公式下拉完成 如果一定要用VBA处理,可用单元格事件完成 即A列输入倍数,得到后面的结果 代码如下 Private Sub Worksheet_Change(ByVal Target As Range) Dim r& If Target.Row > 1 And Target.Column = 1 And ...