VBA锁定条件区域

今天看到一个锁定的例子,很不错,所以就折腾了下。 特定区域的锁定。比如将A列~D列的范围锁定起来~ 写个宏! 代码如下:   Sub 锁定()    Dim a As Long    a = Sheets(1).[b65536].End(xlUp).Row        ActiveSheet.Unprotect  &

VBA调整文本的方向

  好久没写VBA方面的了文章,今天无聊打开excel折腾了下,这两天总是在做表格。先来看看这样的。 141 41 14 14 41 如果要把上面的数字从水平抬升到自定义角度,如何实现? 那就是宏啦~代码如下:   Sub setorientation()    Dim intorient As Integer    intorient = Application.InputB