[求助]跨列居中的快捷键怎么设置

anarchycn

看了置顶的帖子以后，我也开始习惯跨列居中了，但是每次从单元格格式中设置很麻烦，不知道这个功能如何能像合并居中一样放个图标到工具栏上呢？那样就省事多了

各位平时设置跨列居中最简单的方法是什么呢？

hxhgxy

建议你录制一个宏，录制的时候将其作成快捷键。

anarchycn

Sub Macro3() ' ' Macro3 Macro ' 宏由 Anarchycn录制，时间: 2004-7-9 '

' Range("A1:C1").Select With Selection .HorizontalAlignment = xlCenterAcrossSelection .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With End Sub

anarchycn

好像不行啊，这样的话每次选择的都是我录制时候选择的A1:C1区域，我想对其他区域用这个操作的话他还是会把A1:C1区域跨列居中，有办法解决吗？

gvntw

把第一句删除掉： Range("A1:C1").Select

ьαó㈡

anarchycn 发表于 2004-7-9 19:52
Sub Macro3()
'
' Macro3 Macro

我是菜鸟，从未用过宏，请问我该怎么做才能把“跨列居中”的宏录制好呢？

superkeyuser

关注学习一下

小鱼儿不想上班

亲测，录制宏有用。

Baiyssy

Sub 跨列居中()
    Selection.HorizontalAlignment = xlCenterAcrossSelection
End Sub

问题是用了VBA就没法撤消了。