好久没写VBA方面的了文章，今天无聊打开excel折腾了下，这两天总是在做表格。先来看看这样的。 141 41 14 14 41 如果要把上面的数字从水平抬升到自定义角度，如何实现？ 那就是宏啦~代码如下： Sub setorientation() Dim intorient As Integer intorient = Application.InputB
标签： VBA
小解单元格函数
VBA中单元格函数有Cells、ActiveCell、Range、Areas。 Cells(row,column)代表单个单元格，其中row为行号，column为列号。如可以用Cells(1,1)、Cells(10,4)来引用"A1"、"D10" 单元格。ActiveCell代表活动工作表的活动单元格，或指定工作表的活动单元格。 Range代表工作表中的某一单元格、某一行、某一列、某一
VBA实现自动增加工作表
宏代码实现增加所需工作表数量！ 代码如下： Sub 自动增加工作表() Dim i&, userinto i = 0 userinto = InputBox("输入插入工作表数量：") If IsNumeric(userinto) = True
Select Case与IF的比较
在编写VBA条件过程中我想大多人多首选IF来执行！但是你先看看IF语句的代码！ If Range("A1") >=90 Then Msgbox "You got an A on the test!" ElseIf Range("A1"
利用Inputbox函数输入数据
通常在excel中输入数据都是一个个点击单元格依次输入，但是能不能采用别的方法呢？有！利用Inputbox函数输入数据。 输入如下代码： Sub myInputBox() Dim sInt As String Dim r As Integer  
VBA实现Excel打开其他应用程序
你见过打开Excel的同时打开QQ吗？或者打开其他应用程序或文件！怎么实现？Follow me！ 输入如下代码： Private Sub Workbook_Open() AppActivate (Shell("D:\Program Files\Tencent\QQ\Bin\QQ.exe")) ‘本例中QQ的安装位置！其他程序位置请自行修改~ End&
VBA实现打印前对工作簿重新计算
如果在处理表格数据时，计算方式设置成手动重算，表格数据是无法实时更新的~那么我们要定义在打印前来一次重新计算~ 输入如下代码： Private Sub Workbook_BeforePrint(Cancel As Boolean) For Each wk in Worksheets