岩

'微调按钮控件属性Sub SpinButtonAttribute1()'最大最小值Sheet2.SpinButton1.Min = 1Sheet2.SpinButton1.Max = 10End SubSub SpinButtonAttribute2()'返回值Sheet2.Range("A1") = Sheet2.SpinButton1.ValueEnd SubSub SpinButtonAttribute3()Sheet2.SpinButton1.Visible = TrueEn

'单选按钮属性Sub attribute1()Sheet2.OptionButton1.Caption = "男"Sheet2.OptionButton2.Caption = "女"End SubSub attribute2()Sheet2.OptionButton1.Enabled = TrueSheet2.OptionButton2.Enabled = TrueEnd Sub'组名Sub attribute3()Sheet2.OptionButton1.GroupName = "性

'标签属性Sub attribute1()Sheet2.Label1.Caption = "标签"End SubSub attribute2()Sheet2.Label1.Enabled = TrueEnd SubSub attribute3()Sheet2.Label1.Visible = TrueEnd Sub

'CommandButton的属性 Sub attribute1() '可用性：false不可用， true可用 Sheet2.CommandButton1.Enabled = True End SubSub attribute2() '标题 Sheet3.CommandButton1.Caption = "按钮"End SubSub attribute3() '可见性：false隐藏，true显示 Sheet2.Comm...

将工作表赋值给变量ShtSub ObjectToVariable()Dim i As IntegerDim sht As WorksheetFor i = 2 To 5Set sht = Sheets.Add(after:=Sheets(Sheets.Count))sht.Name = Sheet1.Range("a" & i)NextEnd Sub

'函数的基本定义01Function huilv(x as long)huilv = x / 6.03 - x * 0.03End FunctionFunction chenghu(sex as String)If sex = "男" Thenchenghu = "先生"Elsechenghu = "女士"End IfEnd Function'日期转换，截取Function rqtq(str as String)rqtq = DateSerial(Left(str, 4), Mi

Sub chuangjianbiao() Dim iCol Dim sht As Worksheet Dim i, j, k, f, s, iCol As Integer irow = Sheet1.Range("a65536").End(xlUp).Row f = 2 iCol = InputBox("根据第几列分表?") '判断输入信息是否正确 For s = 1 To f 'IsNumeric(iCol)判断检测变量是否...

使用countA、countif进行统计（sheet）Sub tongji()Dim i, k, l, m As IntegerFor i = 2 To Sheets.Countk = k + Application.WorksheetFunction.CountA(Sheets(i).Range("a:a")) - 1l = l + Application.WorksheetFunction.CountIf(Sheets(i).Range("f:f"), "男")m = m + Applic

'选区发生变化就调用某个方法--事件Private Sub Worksheet_SelectionChange(ByVal Target As Range)Call biaoshiEnd Sub'with的简单使用Sub withyuju()With Sheet2 .Range("A1") = 5 .Range("A2") = 6 .Range("A3") = 7 End WithEnd Sub'鼠标点击某行标识颜色Sub biaoshi()...

'新建表Sub xinjianbiao()Dim sht As WorksheetDim k As IntegerFor i = 1 To 3 k = 0 For Each sht In Sheets If sht.Name = Sheet1.Range("a" & i) Then '遍历所有表判断是否重复，重复标记1 k = 1 End If Next If k = 0 Then ...

'将表数据分别拆分到其他表中Sub chaifenbiao()Dim j, i As IntegerCall qingchu '调用清除表内容函数For i = 2 To Sheet1.Range("a56433").End(xlUp).Row '数据行j = Sheets(Sheet1.Range("d" & i).Value).Range("a56433").End(xlUp).Row + 1Sheet1.Range("d" & i).EntireRow.Copy S...

'拆分表中的数据到其他表Sub chaifenbiao()Dim i, j As IntegerFor i = 2 To Sheet1.Range("a56433").End(xlUp).Row j = Sheets(Sheet1.Range("d" & i).Value).Range("a56433").End(xlUp).Row + 1 Sheet1.Range("a" & i).EntireRow.Copy Sheets(Sheet1.Range("d" &am..

for循环Sub gzd() Range("A1:L1").Select Dim i As Integer For i = 1 To 10 ActiveCell.Range("A1:L1").Select Selection.Copy ActiveCell.Offset(2, 0).Rows("1:1").EntireRow.Select Selection.Insert Shift:=xlDown NextEnd SubSub gzt...