lzth.net
当前位置:首页 >> 在ExCEl中如何用VBA对指定单元格区域打印,求具体代码 >>

在ExCEl中如何用VBA对指定单元格区域打印,求具体代码

方法1:先用printarea 设置打印区域,然后再打印.这种设置将会保存到excel文件中.比如:worksheets("sheet1").pagesetup.printarea = "$a$1:$c$5" worksheets("sheet1").printout 方法2:直接打印指定区域,而不修改打印区域设置.比如 worksheets("sheet1").range("$a$1:$c$5").printout

方法1:先用PrintArea 设置打印区域,然后再打印.这种设置将会保存到EXCEL文件中.比如:Worksheets("Sheet1").PageSetup.PrintArea = "$A$1:$C$5" Worksheets("Sheet1").PrintOut 方法2:直接打印指定区域,而不修改打印区域设置.比如 Worksheets("Sheet1").Range("$A$1:$C$5").PrintOut

试试将 Range("a1:k12").Select 改为:ActiveSheet.PageSetup.PrintArea = "A1:K12"

首先要知道,要保护一个单元格不能编辑,需要满足两个条件,第一个是设置单元格格式->保护->锁定要勾选,然后整个表要锁定.解决思路如下:1. 定义目标表 Set sh = Sheets("sheet1"),可以修改表格名称2. 先解锁整个表sh.Unprotect3.

a = activecell.Row - 3 b = activecell.Column - 2 i=activecell.Row - 3 里面的数值2、3 是根据B3指定的 i 跟a的含义应该是一样的吧

不知道 你具体要做什么 为什么要 两个表的 打印内容 放到 一个预览页面中………… 你可以使用如下方式 进行打印预览…… 按住 ctrl 键 然后 用鼠标 选择工作表 标签上 的sheet1 和sheet2 然后 打印预览……这样 就可以 在一个预览界面 预览两个表的内容了 (当然 你需要翻页)excel 打印预览是 单页显示的…… 如果 你一定 要用 按钮 那么 你就顺着这个思路 来设置 你的代码 同时选中 这个两个 sheet 然后 打印预览……

sub tt()dim adim myr as rangea = cells(1, 1)range(a).selectselection.offset(0, 0).resize(1000, 2).selectselection.copyrange("b1").selectactivesheet.pasteend subvba 是这样的我就简单的写一下你看看 你可以改成click事件或其他事件~ 函数 也可以2列的你选择你的b1:b1000输入=offset(indirect(a1),0,0,1000,2)输入好ctrl+shift+回车数组形式就好了

使用for each遍历所选择的单元格即可.如下代码将选择区域的单元格输出在立即窗口.Sub Get_Data()Dim myRange As RangeDim myCell As RangeSet myRange = Application.InputBox("选择区域", Type:=8)For Each myCell In myRangeDebug.Print myCell.ValueNextEnd Sub

不知道你具体遇到了什么问题,你写的术语有点混淆,看不很明白.系统进行另存为的肯定是“工作簿”,也就是一个EXCEL文件成为一个“工作簿”,里面可以包含一个或者多个“工作表”,“工作表”里面有许多单元格.去掉公式、保留数

ActiveSheet.PageSetup.PrintArea = "$C$7:$F$20"

wwgt.net | krfs.net | xmjp.net | gsyw.net | rjps.net | 网站首页 | 网站地图
All rights reserved Powered by www.lzth.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com