Excel Tricks:自用Macro

虽然做了Auditor,但不能荒废我计算机专业的底子。做了这么多项目了,编了几个常用的宏,放上来分享。如果你不知道如何自定义按钮并绑定宏的话,基本上就可以忽略此篇文章了……不过要是想用下面的宏的话,我可以帮忙免费安装~看~我人多好~
(由于WP的问题,所有的引号都被自动转换为中文格式,请需要者自行修改)

1.将所选单元格标定为绿色,一般做Highlight用。当然了,可以定义多种颜色来区别不同属性的单元格,就比如我,自定义了五种颜色:黄,红,蓝,橙,蓝……

Sub 单元格染成绿色()
With Selection.Interior
.ColorIndex = 43
.Pattern = xlSolid
End With
End Sub

2.将所选单元格的格式在`General`和`底稿专用格式`之间切换。这里的`底稿专用格式`指不保留小数位,标记千分位,负数用括弧红字表示的格式,例如(43,672,135)。这种格式标记贷方数非常合适,非常Pro~

Sub 单元格显示格式()
If Selection.NumberFormat <> “General” Then
With Selection
.NumberFormat = “General”
End With
ElseIf Selection.NumberFormat = “General” Then
With Selection
.NumberFormat = “_(* #,##0_);[Red]_(* (#,##0);_(* “”-“”??_)”
End With
ElseIf Selection.NumberFormat = “_(* #,##0_);[Red]_(* (#,##0);_(* “”-“”??_)” Then
With Selection
.NumberFormat = “General”
End With
End If
End Sub

3.让所选单元格中的文字自动适应定义的单元格的宽,也就是自动换行。这个省去了为选定`Format Cells`中`Wrap text`的若干次点击。

Sub 自动换行()
If TypeName(Selection) = “Range” Then
Selection.WrapText = Not ActiveCell.WrapText
Selection.VerticalAlignment = xlTop
End If
End Sub

下面三个宏都是从KP开发的强大的Excel插件EQUXI中提取的精华:

4.将所选单元格中的数字的符号进行变换。这个很有用了,就是正变负,负变正了,说Pro一点就是,借变贷,贷变借了。再配合第2个宏使用,那简直是完美~

Sub 正负号转换()
On Error GoTo ErrorHandler
Dim my_cell As Range, s As String, r As Range
Set r = Application.Intersect(ActiveSheet.Cells.SpecialCells(xlCellTypeConstants), Selection)
If Not r Is Nothing Then
For Each my_cell In r
If IsNumeric(my_cell.Value) Then my_cell.Value = -my_cell.Value
Next my_cell
End If
ErrorHandler:
End Sub

5.将所选单元格中的数字加总后粘贴到粘贴板。有时候需要加总不连续单元格中的数,这个宏就省去了若干麻烦的过程,只需一次点击就能完成多步,直接粘贴数值就好了~

Sub 所选区域加总后复制到粘贴板()
On Error Resume Next
Dim my_range As Range
Dim i As Double
Dim Clipbrd As New DataObject
Set myRange = Selection.Cells.SpecialCells(xlCellTypeVisible)
i = Application.Sum(myRange)
Clipbrd.SetText i
Clipbrd.PutInClipboard
Set myRange = Nothing
End Sub

6.打开当前文件所在文件夹

Sub 打开当前文件所在文件夹()
Const PROC_NAME As String = “OpenExplorerDirectory”
On Error Resume Next
Shell “explorer.exe /n,/e,” & Application.Substitute(ActiveWorkbook.FullName, ActiveWorkbook.Name, “”), vbMaximizedFocus
On Error GoTo 0
End Sub

Excel Tricks:自用Macro》有1个想法

发表回复

您的电子邮箱地址不会被公开。