有时我们需要在Excel的页眉页脚中调用某个单元格内容,例如让用户在A1单元格中填入月份,如“一月”,在页眉处自动生成“一月报表”,可以用VBA代码来实现,步骤如下:
1.按Alt F11,打开VBA编辑器。
2.在“工程”窗口中,双击“ThisWorkbook”,在右侧的代码窗口中输入下列代码:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftHeader = Range("A1").Value & "报表"
End Sub
excel利用VBA播放WAV声音文件
如果用VBA代码播放WAV声音文件,可以用下面的代码:PrivateDeclareFunctionsndPlaySound32_Libwinmm.dll_AliassndPlaySoundA(_ByVallpszSoundNameAsString,_ByValuFlagsAsLong)AsLongSubPlayWavFile()sndPlaySound32C:
这样,每次在打印工作表时,会自动在页眉左侧调用A1单元格中的内容,如A1单元格内容为“一月”,左侧页眉中显示“一月报表”。
如果要在页脚中调用单元格内容,将上述代码改为:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftFooter = Range("A1").Value & "报表"
End Sub
同样,如果需要在页眉或页脚的中部、右侧调用单元格内容,只须将“LeftHeader”更换成“CenterHeader”、“CenterFooter”、“RightHeader” 和 “RightFooter”。
excel如何将长时间工作的宏置于后台运行
有时需要在Excel中运行一个工作时间较长的宏,当宏在运行时,消耗了一定的系统资源,并且似乎不能在Excel中做其他事情了。如果此时急需处理其他一些Excel表格,可以按Ctrl Pause暂停宏的运行