★一些宏文件小工具★

LangQueS

在本论坛qee用版主和northwolves版主的直接指导下出炉的宏：

msoaXnz0.rar (18.17 KB, 下载次数: 28)

2007-1-6 01:01 上传

点击文件名下载附件
★一些宏文件小工具★

黑雨滴

[em02][em02]

LangQueS

Sub 指定单元的行高和列宽与A1单元相同()
  Range("A1:F1").ColumnWidth = Range("A1").ColumnWidth  '指定列宽
  Range("A2:A10").RowHeight = Range("A1").RowHeight   '指定行高
End Sub

Sub 选择光标或选区所在行()
    Selection.EntireRow.Select
End Sub

Sub 选择光标或选区所在列()
    Selection.EntireColumn.Select
End Sub

Sub 有条件执行不同的宏()
 If [b1].Value = "A" Then
  Application.Run "宏1"
ElseIf [b1].Value = "B" Then
  Application.Run "宏2"
End If
End Sub

leexj0416

先收下,我是初学VBA,回去研究研究,辛苦啦

LangQueS

Sub 根据A1内容选择执行宏()
    Select Case Sheet1.[A1]
    Case "A"
        宏1
    Case "B"
        宏2
    Case "C"
        宏3
    Case Else
    End Select
End Sub

pepco811

谢谢楼主~~~~

[em17]

hlyjy2008

厉害，但是还是不知道这些咚咚怎么来的。谢谢了。

hq421

辛苦了，感谢分享，下载制作工作表名称索引的宏

sihao

非常感谢啊!不少都常用的

LangQueS

本论坛的资料：

Sub 奇偶页分别打印()

Dim i%, Ps%

Ps = ExecuteExcel4Macro("GET.DOCUMENT(50)") '总页数

MsgBox "现在打印奇数页,按确定开始."

For i = 1 To Ps Step 2

ActiveSheet.PrintOut from:=i, To:=i

Next i

MsgBox "现在打印偶数页,按确定开始."

For i = 2 To Ps Step 2

ActiveSheet.PrintOut from:=i, To:=i

Next i

End Sub

[此贴子已经被作者于2007-4-22 23:51:24编辑过]