王小涛_同學的专栏

'单元格合并Sub b1()Range("a1:g2").MergeEnd Sub'合并H列相同单元格Sub b2()Dim x As IntegerDim rg As rangeSet rg = range("h1")Application.DisplayAlerts = FalseFor x = 1 To 13    If range("h" & x +

'插入排序,从小到大Sub 插入排序()Dim arr, i, temp, yarr = Range("a1:a18")For i = 2 To UBound(arr) temp = Cells(i, 1) Range("a" & i).Interior.ColorIndex = 3 Range("a" & i).Interior.ColorI

Sub d1()Dim arr, arr1(1 To 1000, 4)arr = Range("a1:d10")Dim x, kFor x = 1 To UBound(arr) If arr(x, 1) = "B" Then k = k + 1 arr1(k, 1) = arr(x, 1) arr1(k, 2) = arr(x, 2)

'加入数据Sub 字典()Dim d, x, arrSet d = CreateObject("scripting.dictionary")For x = 2 To 4d.Add Cells(x, 1).Value, Cells(x, 2).ValueNext xMsgBox d("王五")End Sub转载请注明作者与出处：ht

Sub 属性赋值()Sheet1.Name = "工作表1"Sheet1.Range("a1").Value = "王小涛_同學"End Sub转载请注明作者与出处：http://blog.youkuaiyun.com/u013511642  王小涛_同學

Sub 选择方法()Range("a1:a10").Select '因为没有写工作表名,则默认为活动工作表End SubSub 复制方法()Sheet1.Range("a1:a10") = "王小涛_同學" '将值写入到a1----a10区域Sheet1.Range("a1:a10").Copy Sheet2.Range("a1") '将表一的a1---a

Sub do_loop循环判断()Dim cj%cj = 1Docj = cj + 1 If cj > 10 Then Exit Do '退出循环 Else If Cells(cj, 2) >= 90 Then Cells(cj, 3) = "优秀" If Cells(cj, 2) >= 80 An

Sub 颜色()Dim x As IntegerRange("a1:b60").ClearFor x = 1 To 56 Step 1Range("a" & x) = xRange("b" & x).Interior.ColorIndex = x   '填充颜色Range("a" & x).Font.ColorIndex = x   '字体颜色NextEnd Sub

'禁止关闭工作表Private Sub workbook_beforeclose(cancel As Boolean)MsgBox "本文档禁止关闭"cancel = TrueEnd Sub

'1.取工作表总个数 在工作表里输入 "=shcount()" 即可,以下同理Function shcount()shcount = Sheets.CountEnd Function'2.取得单元格显示的自定义函数Function getv(rg As Range)getv = rg.TextEnd Function'3.截取字符串的函数 page为源

Sub 常量()Const pi = 3.1415926End SubSub 变量()Dim a As Integera = 100a = 200End SubSub 应用()Const pi = 3.1415926 '常量a = 200 '变量,可不用声明Debug.Print pi * a '在立即窗口显示End Sub 转载请注明作者与出处：ht

Sub IF条件判断() If Sheet1.Range("a1") >= 90 Then Sheet1.Range("b1") = "优秀" ElseIf Sheet1.Range("a1") >= 80 Then Sheet1.Range("b1") = "良好" Else Sheet1.Range("b1") = "较差

Sub select多条件判断()Select Case Sheet1.[b1].ValueCase Is > 0MsgBox "大于0"Case ElseMsgBox "小于或等于0"End SelectEnd SubSub select多条件判断2()Select Case Sheet1.[b1].ValueCase "12"Sheet1.[a1] = "你输入的值

Sub 生成年历()y = InputBox("请指定一个年份:")'清除原有内容Range("1:1, 4:11,14:21,24:31,34:41").ClearContents'设置标题Cells(1, 1) = y & "年历"Dim dm As Variant'dm 下标从0开始dm = Array(31, 28, 31, 30, 31, 30, 31, 31, 30,