vba代码大全
@鲍昭3672：求VBA代码 -
虞沸18253727177…… 使用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 ＂完成＂
@鲍昭3672：求VBA实用代码 -
虞沸18253727177…… 简单代码实现滚动字幕效果 假设在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
@鲍昭3672：求vba代码
虞沸18253727177…… 1、在sheet2中输入数据 2、粘贴下面代码到模块中 Sub aaa() Sheet1.Range(＂a1＂) = Application.WorksheetFunction.Index(Sheet2.Columns(3), 1) End Sub 运行代码会将工作表sheet2的C1单元格的值复制到工作表A1单元格中
@鲍昭3672：用VBA写一段代码 -
虞沸18253727177…… 参考VBA代码:Option Explicit Private Function IsPass(ByVal InputScore As Single, _ Optional ByVal MinScore As Single = 60) As BooleanIsPass = (InputScore >= MinScore) End Function Sub ScoreDemo() Dim strCourse(1 To 2) As ...
@鲍昭3672：VBA 颜色代码大全? -
虞沸18253727177…… Sub VBA颜色代码() For i = 1 To 56 Cells(i, 1).Interior.ColorIndex = i Cells(i, 2) = Cells(i, 1).Interior.Color 'Color颜色 Cells(i, 3) = i 'ColorIndex索引号 Next End Sub
@鲍昭3672：excel的vba 代码 -
虞沸18253727177…… 看你数据还比较多,用数组给你写一段,这样运行速度会快些.而且你数据有增加或减少也一样通用.不管你是几行数据. 也不知道是否合你意,最好把你的表发过来看下是什么结构. Sub 是否有重复中奖() Dim i&, R&, g&, x& Dim arr, arr...
@鲍昭3672：求VBA代码 初学者,求基础简单的代码^ - ^ -
虞沸18253727177…… 代码如下. '计数代码 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
@鲍昭3672：求一段简单VBA代码 -
虞沸18253727177…… 这个应该是窗体上的代码,右键点击窗体上的文本框--“查看代码”,然后写入代码: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
@鲍昭3672：求一段vba的代码 -
虞沸18253727177…… 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 ...
@鲍昭3672：excel vba 代码 -
虞沸18253727177…… 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 ...
虞沸18253727177…… 使用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 ＂完成＂
@鲍昭3672：求VBA实用代码 -
虞沸18253727177…… 简单代码实现滚动字幕效果 假设在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
@鲍昭3672：求vba代码
虞沸18253727177…… 1、在sheet2中输入数据 2、粘贴下面代码到模块中 Sub aaa() Sheet1.Range(＂a1＂) = Application.WorksheetFunction.Index(Sheet2.Columns(3), 1) End Sub 运行代码会将工作表sheet2的C1单元格的值复制到工作表A1单元格中
@鲍昭3672：用VBA写一段代码 -
虞沸18253727177…… 参考VBA代码:Option Explicit Private Function IsPass(ByVal InputScore As Single, _ Optional ByVal MinScore As Single = 60) As BooleanIsPass = (InputScore >= MinScore) End Function Sub ScoreDemo() Dim strCourse(1 To 2) As ...
@鲍昭3672：VBA 颜色代码大全? -
虞沸18253727177…… Sub VBA颜色代码() For i = 1 To 56 Cells(i, 1).Interior.ColorIndex = i Cells(i, 2) = Cells(i, 1).Interior.Color 'Color颜色 Cells(i, 3) = i 'ColorIndex索引号 Next End Sub
@鲍昭3672：excel的vba 代码 -
虞沸18253727177…… 看你数据还比较多,用数组给你写一段,这样运行速度会快些.而且你数据有增加或减少也一样通用.不管你是几行数据. 也不知道是否合你意,最好把你的表发过来看下是什么结构. Sub 是否有重复中奖() Dim i&, R&, g&, x& Dim arr, arr...
@鲍昭3672：求VBA代码 初学者,求基础简单的代码^ - ^ -
虞沸18253727177…… 代码如下. '计数代码 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
@鲍昭3672：求一段简单VBA代码 -
虞沸18253727177…… 这个应该是窗体上的代码,右键点击窗体上的文本框--“查看代码”,然后写入代码: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
@鲍昭3672：求一段vba的代码 -
虞沸18253727177…… 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 ...
@鲍昭3672：excel vba 代码 -
虞沸18253727177…… 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 ...
