zdly.net
当前位置:首页 >> ExCEl VBA窗体中,如何在点击某个按钮时,预览其中的一个工作表?谢谢。 >>

ExCEl VBA窗体中,如何在点击某个按钮时,预览其中的一个工作表?谢谢。

新建个按钮,指定宏为下面的宏即可.Sub AA()Sheet2.Activate '将Sheet2改为要预览的表,这里不是表名,而是VBA窗口中的名称ActiveWindow.SelectedSheets.PrintPreviewEnd Sub

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

在sheet1插入一个activex按钮控件双击按钮输入以下代码 private sub commandbutton1_click() sheets("sheet2").select end sub

Private Sub CommandButton1_Click() UserForm2.Show '调窗口 ActiveWorkbook.Sheets("Sheet2").Select '调表,选当前工作簿表名为“Sheet2”为当前表 End Sub

Private Sub OptionButton1_Click() Sheet1.ActivateEnd SubPrivate Sub OptionButton2_Click() Sheet2.ActivateEnd SubPrivate Sub OptionButton3_Click() Sheet3.ActivateEnd Sub

展开全部1、ALT + F112、工具附加控件 勾选 Microsot Listciew Control,version 6.03、在工具箱窗体上点击刚才附加的Listview控件,在的设计窗体按需要画出表格大小4、双击Listview1,根据需要写入代码

可以在 窗体内添加一个Microsoft Office PivotTable 10.0或者11.0可以连接不同数据源 展示 类似透视表的功能只要字段全展开 就可工作表相当

把附件中的AB俩文件下载后解压缩到同一个文件夹打开B.xls,点击按钮即可.如果A文件需要改名,请自定义常量ABook

在菜单栏上右击,在弹出的快捷菜单中选择“自定义”,在弹出的“自定义”对话框中选择“命令”选项卡.在“类别”下的区域中选择“宏”,然后在右侧“命令”下方的区域中单击“自定义按钮”,这时光标变成一个带加号的箭头并单击按钮的形状,拖动鼠标到工具栏中的某个位置.

方法1:Private Sub CommandButton1_Click()With Sheets(1) Row = .Range("A65536").End(xlUp).Row If Row = 1 And .Range("A" & Row) = "" Then Row = 0 .Range("A" & Row + 1).Value = TextBox1.ValueEnd WithEnd Sub方法2:Dim N As LongPrivate Sub CommandButton1_Click()N = N + 1Sheets(1).Range("A" & N).Value = TextBox1.ValueEnd Sub

相关文档
qwrx.net | yhkn.net | tfsf.net | qwfc.net | jmfs.net | 网站首页 | 网站地图
All rights reserved Powered by www.zdly.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com