excel自定义功能时会出现两个窗口，两者显示的内容不一样-_星空见康网
excel自定义功能时会出现两个窗口，两者显示的内容不一样
excel自定义功能时会出现两个窗口，两者显示的内容不一样
相关说明：
是同一个工作表。拆分窗口是为了方便查看。想输入不同内容，建议建立两个工作表
方法1:使用Office2010自带功能,不是很好用:1.1方法:点击【文件】——【选项】——【高级...
打印的效果与打印预览的效果一致,而与页面显示效果不同。
一般情况下,我们先打开一个xls文件,再开另一个,屏幕上只会显示最后一个xls文件,而状态栏却显示的...
从图片看来 数据来源(你复制的内容) 那张表 是用2003版制作的——而你要粘贴到2007版中 所以...
有的地址有两个“市”,例如“福建省泉州市南安市。。”请问这样怎么样去获取是获取前者还是后者,还是都要...
　1、先后打开两个工作表。 　2、打开第二个工作表后,点击菜单栏“窗口”。可看到在弹出菜单下部显示两...
1.更改程序窗口排列方式 双击打开多个Excel文档,切换到“视图”工具栏,在“窗口”部分,单击 “...
你看看打印出来是不是一样大的,一样大的话 就是你电脑里的页面一个放大了 一个缩小了
你可以点左上角“文件”/选项,在excel选项中添加“视图”进入主选项卡,在自定义功能区中的视图前勾...
当你打开两个ppt窗口之后,点击窗口,选择层叠,你的问题就解决了啊,呵呵。不说不知道,一说特简单!还...
你可能想看的相关专题比如设计一个编号为A2这样子，然后在对话框里输入A2就跳出代码为123456的数字。-EXCEL如何去掉单元格中的数字_经验分享网
你正在浏览： &>&
比如设计一个编号为A2这样子，然后在对话框里输入A2就跳出代码为123456的数字。
比如设计一个编号为A2这样子，然后在对话框里输入A2就跳出代码为123456的数字。
如设计一个编号为A2这样子，然后在对话框里输入A2就跳出代码为123456的数字？这个只是一个快捷输入比较方便一点。请问那位大神知道是什么软件吗，不用每次都按那么多数字键
确定后保存。还可以导出字库，就可以实现当你输入a时，显示的可以是任何键盘可输入的内容，输入的不能是大写字母数字特殊符号等，特别适合财务采购等重复性语言输入多的用户使用，在属性设置里有词库，很方便用微软拼音输入法打字，只能是小写字母，比如编辑a，把导出字库另存到别的电脑还可以共享，也可以登录用户共享资源，请你点个采纳再离开，显示，输入法里有属性设置。不知你要的是不是这个。最多一次可以显示50个字符，在词库里可以自己编辑词库。但是，自动跳出，如果是
确定后保存。还可以导出字库，就可以实现当你输入a时，显示的可以是任何键盘可输入的内容，输入的不能是大写字母数字特殊符号等，特别适合财务采购等重复性语言输入多的用户使用，在属性设置里有词库，很方便用微软拼音输入法打字，只能是小写字母，比如编辑a，把导出字库另存到别的电脑还可以共享，也可以登录用户共享资源，请你点个采纳再离开，显示，输入法里有属性设置。不知你要的是不是这个。最多一次可以显示50个字符，在词库里可以自己编辑词库。但是，自动跳出，如果是
设计一个编码方案……
五个区分别abcde25所学校01 02 03·······25六十名学生就 0102 03····...比如设计一个编号为A2这样子,然后在对话框里输入A2就跳出代码为123456的数字。……
用微软拼音输入法打字,输入法里有属性设置,在属性设置里有词库,在词库里可以自己编辑词库,比如编辑a,...名片设计的公众号比较的好推荐一两个,比如像名片设计欣赏这种的~……
?招写手嘛?我是专业写手名片设计的公众号比较的好推荐一两个,比如像名片设计欣赏这种的~……
千图网,昵图网等设计一个编学号的方案……
年级-班级-学号-男或女(可有可无) 如:607071 代表的就是六年级7班学号是07的男同学 这个...一般公司员工是怎么编号的……
一般来说,最简单的就是给员工做一个顺序编号,比如:001,002,……,007(邦德...方法很多的...框架梁确定编号的方法,比如KL1和KL2之间怎样区分?……
这个编号只是对楼层框架梁的一个数字编码,并没有统一的标准,一般依设计者个人喜好而定。一般的编号次序是...vb软件编写问题 怎么制作一个比如把“1”转换成我想要的文字的程序,求编码 而且我需要连续,比如把……
可以写个csv以这种格式: 1,&我& 2,&是& 然后遍历即可比如Excel里预先设计好一个表格,我们只选择日前后这个表格怎么按日期保存下来,写什么代码……
ActiveWorkbook.SaveAs Filename:= _ &C:\Documents a...Excel里,我有一个总表格,里面有比如姓名,序号,年龄,性别等等许多内容,现在我想制作一个分表格……
里面只要序号,姓名和剩下的其中一项 没明白什么意思, 肯定不是全部了,那样直接复制就好了,那就是有条...
你可能感兴趣的内容？查看: 2381|回复: 15
这两个代码合在一起该怎么写？求教！！！！！！！！
阅读权限20
在线时间 小时
Private Sub Workbook_Open()
&&Application.Visible = False
登录窗口.Show
Private Sub Workbook_Open()
& & Applicatin.ScreenUpdating = False
& & Application.Cursor = xlDefault
& & Application.Caption = &巴江中学学生成绩管理系统&
& & ActiveWindow.Caption = &&
& & mandBars(&Toolbar list&).Enabled = False '屏蔽右键工具栏
& & mandBars(&Standard&).Visible = False
& & mandBars(&Formatting&).Visible = False
& & Application.DisplayFormulaBar = False
& & Application.DisplayStatusBar = True
& & ActiveWindow.DisplayWorkbookTabs = False& &'隐藏工作表标签
& & HideBar
& & MyBar_Menu
& & Sheets(&主界面&).ScrollArea = &A1:M38&
& & Sheets(&主界面&).Activate
& & Application.ScreenUpdating = True
Private Sub Workbook_BeforeClose(Cancel As Boolean)
& & Application.Caption = &Microsoft Excel&
& & MyBarDelete
& & ShowBar
& & mandBars(&Toolbar list&).Enabled = True
& & Me.save
阅读权限95
在线时间 小时
& & & & & & & &
事件不一样，但这两个事件都是写在thisworkbook下的，这样不算在一起？
[ 本帖最后由 交叉点 于
14:42 编辑 ]
阅读权限20
在线时间 小时
?怎么做才能使这两个事件都能体现在工作表中?????????????????
怎么做才能使这两个事件都能体现在工作表中?????????????????我做的只能看到一种效果！！！！！！！！！！求教了，我不懂代码::$
阅读权限95
在线时间 小时
你要如何体现？
Workbook_Open事件的作用是打开工作簿后将界面改成自己的界面。
Workbook_BeforeClose事件的作用是关闭工作簿时恢复原来的界面。
阅读权限20
在线时间 小时
??????????????
要求打开工作表时要有个登录窗口.就是在workbook下同时执行上面的两个事件。谢谢你的帮助。Thank you！！
阅读权限95
在线时间 小时
不会同时执行。
Workbook_Open在打开时执行。
Workbook_BeforeClose在关闭时执行。
阅读权限20
在线时间 小时
????????????????
楼上的理解错了，我要的要的是，打开工作表时，登陆界面后，自己的“自定义菜单”还在，可是我做的登录窗口后，“自定义菜单”就不见了！！！！！！！！！
阅读权限20
在线时间 小时
[local]1[/local][local]1[/local][local]2[/local]我是拿别人做得来用，只是想多加个登录窗口::[local]1[/local]
阅读权限95
在线时间 小时
16:20 发表
[local]1[/local][local]1[/local][local]2[/local]我是拿别人做得来用，只是想多加个登录窗口::[local]1[/local]
楼主是指把这两段代码吗??
Private Sub Workbook_Open()
&&Application.Visible = False
登录窗口.Show
Private Sub Workbook_Open()
& & Applicatin.ScreenUpdating = False
& & Application.Cursor = xlDefault
& & Application.Caption = &巴江中学学生成绩管理系统&
& & ActiveWindow.Caption = &&
& & mandBars(&Toolbar list&).Enabled = False '屏蔽右键工具栏
& & mandBars(&Standard&).Visible = False
& & mandBars(&Formatting&).Visible = False
& & Application.DisplayFormulaBar = False
& & Application.DisplayStatusBar = True
& & ActiveWindow.DisplayWorkbookTabs = False& &'隐藏工作表标签
& & HideBar
& & MyBar_Menu
& & Sheets(&主界面&).ScrollArea = &A1:M38&
& & Sheets(&主界面&).Activate
& & Application.ScreenUpdating = True
阅读权限95
在线时间 小时
这就要求你将你的文件传上来，只这样说没用的。
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师本篇文章是一篇关于代码控件的帖子
&&&&打开excel应用程序
&&&&右键sheet1-&查看代码
&&&&右键空白处-&插入-&用户窗体
&&&&弹出下图
&&&&向面板上放4个复选框也就是checkbox，两个button就是按钮，就是工具箱中的下图两个红线圈出来的
&&&&直接拖拽到userform1上即可，拖完如下
&&&&给添加的这些控件改名字：选中checkbox1过两秒之后再点击checkbox1，删除原来的名字&checkbox1& 输入&A&
&&&&剩下的几个一样改完名字之后如下图
&&&&接下来就开始写代码了
&&&&双击肯定按钮弹出如下图
&我们要实现的目标就是实现多选，点击肯定后被勾选的内容表现到单元格中
&&&&那么用代码来实现就是点击肯定之后，
&&&&&&&& 用代码来检查四个checkbox，将被勾选的选项内容连起来，我们用容器j来装勾选的内容，发现是被勾选的就加到j中
&&&&一共有四个复选框，它先检查第一个，如果为空的话说明没被勾选那么j就还是j，如果不为空的话将复选中的名字A或B或C或D存到j中，四个都检查完之后最后放到单元格内，关闭控件
&&&&具要写的代码
&&&&新增代码如下图
&&&&（点击取消的目标就是不想选了，关闭对话框
&&&&这里当点击取消时先弹出提示&肯定取消？&
&&&&点击&是&，就完全关闭控件，点击&否&，控件保留）
&&&&每日一道理
岭上娇艳的鲜花，怎敌她美丽的容颜？山间清澈的小溪，怎比她纯洁的心灵？
&&&&开始写代码了：再双击&取消&按钮，先表现如下代码
&&&&增长代码后如下
&&&&（接下来还有代码要写
&&&&就是选中国哪些单元格它才弹出多选对话框呢，而且只有单元格为空时我们才触发控件，单元格中有值就不触发了这是放在单元格上的条件
&&&&假如我们想在sheet1表中的第一列实现这个功能
&&&&也就是如果我们选中sheet1中的第一列中的某个单元格，如果这个单元格为空那么就触发多选控件，供我们选择）
&&&&开始写代码了：右键sheet1表，选择查看代码
&&&&表现空白代码区
&&&&点击通用下拉框，选择worksheet
&&&&主动变成如下
&&&&增长代码后变成
& 这时我们回到sheet1中，任选第一列的任意单元格就是弹出多选控件如下图：
&&&&勾选ABC后点击&肯定&，ABC被选到单元格中
&&&&功败垂成
&最后我们在保存文件时一定要保存成如下格式的
文章结束给大家分享下程序员的一些笑话语录：
PC软件体积大，是因为一个PC软件功能往往较多，能够满足你一个方面的需求，而一个iphone软件往往没几行代码，干一件很小的事情，自然需要的软件就多。就像吃西瓜和吃瓜子的来比数目，单位不同啊。
---------------------------------
原创文章 By
对话框和取消---------------------------------
阅读(...) 评论()查看: 2381|回复: 15
这两个代码合在一起该怎么写？求教！！！！！！！！
阅读权限20
在线时间 小时
Private Sub Workbook_Open()
&&Application.Visible = False
登录窗口.Show
Private Sub Workbook_Open()
& & Applicatin.ScreenUpdating = False
& & Application.Cursor = xlDefault
& & Application.Caption = &巴江中学学生成绩管理系统&
& & ActiveWindow.Caption = &&
& & mandBars(&Toolbar list&).Enabled = False '屏蔽右键工具栏
& & mandBars(&Standard&).Visible = False
& & mandBars(&Formatting&).Visible = False
& & Application.DisplayFormulaBar = False
& & Application.DisplayStatusBar = True
& & ActiveWindow.DisplayWorkbookTabs = False& &'隐藏工作表标签
& & HideBar
& & MyBar_Menu
& & Sheets(&主界面&).ScrollArea = &A1:M38&
& & Sheets(&主界面&).Activate
& & Application.ScreenUpdating = True
Private Sub Workbook_BeforeClose(Cancel As Boolean)
& & Application.Caption = &Microsoft Excel&
& & MyBarDelete
& & ShowBar
& & mandBars(&Toolbar list&).Enabled = True
& & Me.save
阅读权限95
在线时间 小时
& & & & & & & &
事件不一样，但这两个事件都是写在thisworkbook下的，这样不算在一起？
[ 本帖最后由 交叉点 于
14:42 编辑 ]
阅读权限20
在线时间 小时
?怎么做才能使这两个事件都能体现在工作表中?????????????????
怎么做才能使这两个事件都能体现在工作表中?????????????????我做的只能看到一种效果！！！！！！！！！！求教了，我不懂代码::$
阅读权限95
在线时间 小时
你要如何体现？
Workbook_Open事件的作用是打开工作簿后将界面改成自己的界面。
Workbook_BeforeClose事件的作用是关闭工作簿时恢复原来的界面。
阅读权限20
在线时间 小时
??????????????
要求打开工作表时要有个登录窗口.就是在workbook下同时执行上面的两个事件。谢谢你的帮助。Thank you！！
阅读权限95
在线时间 小时
不会同时执行。
Workbook_Open在打开时执行。
Workbook_BeforeClose在关闭时执行。
阅读权限20
在线时间 小时
????????????????
楼上的理解错了，我要的要的是，打开工作表时，登陆界面后，自己的“自定义菜单”还在，可是我做的登录窗口后，“自定义菜单”就不见了！！！！！！！！！
阅读权限20
在线时间 小时
[local]1[/local][local]1[/local][local]2[/local]我是拿别人做得来用，只是想多加个登录窗口::[local]1[/local]
阅读权限95
在线时间 小时
16:20 发表
[local]1[/local][local]1[/local][local]2[/local]我是拿别人做得来用，只是想多加个登录窗口::[local]1[/local]
楼主是指把这两段代码吗??
Private Sub Workbook_Open()
&&Application.Visible = False
登录窗口.Show
Private Sub Workbook_Open()
& & Applicatin.ScreenUpdating = False
& & Application.Cursor = xlDefault
& & Application.Caption = &巴江中学学生成绩管理系统&
& & ActiveWindow.Caption = &&
& & mandBars(&Toolbar list&).Enabled = False '屏蔽右键工具栏
& & mandBars(&Standard&).Visible = False
& & mandBars(&Formatting&).Visible = False
& & Application.DisplayFormulaBar = False
& & Application.DisplayStatusBar = True
& & ActiveWindow.DisplayWorkbookTabs = False& &'隐藏工作表标签
& & HideBar
& & MyBar_Menu
& & Sheets(&主界面&).ScrollArea = &A1:M38&
& & Sheets(&主界面&).Activate
& & Application.ScreenUpdating = True
阅读权限95
在线时间 小时
这就要求你将你的文件传上来，只这样说没用的。
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师