★一些宏文件小工具★

古豆

不错不错，味道不错

jimolr

谢谢

收下了

luohaojun

hao

nicehunnt

谢了,收藏学习!

nhaofan

good!!!

yanx55

下载了，谢谢提供。

LangQueS

推荐内容

反选单元的宏：（15楼）

http://club.excelhome.net/dispbbs.asp?boardid=2&replyid=58183&id=11321&page=1&skin=0&Star=2

另存文件的宏（4楼）

http://club.excelhome.net/viewthread.php?tid=208622&replyID=&skin=0

[此贴子已经被作者于2006-12-22 2:12:08编辑过]

笨七

谢谢！！！学习！[em17][em17][em17]

LangQueS

宏文件（本论坛的资料）

Sub 打开全部隐藏工作表()

Dim i As Integer

For i = 1 To Sheets.Count

Sheets(i).Visible = True

Next i

End Sub

Sub 单元反选()

Application.DisplayAlerts = False

Application.ScreenUpdating = False

Dim raddress As String, taddress As String

raddress = Selection.Address

taddress = ActiveSheet.UsedRange.Address

With Sheets.Add

.Range(taddress) = 0

.Range(raddress) = "=0"

raddress = .Range(taddress).SpecialCells(xlCellTypeConstants, 1).Address

.Delete

End With

ActiveSheet.Range(raddress).Select

Application.ScreenUpdating = True

End Sub

zts1001

太好了，谢谢阿！！！！

[em02][em02][em02]