按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！
个区域
CXXI
…………………………………………………………Page 122……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
在某空白单元格中，输入数字―1‖ 。选中该单元格，并在―编辑‖菜单上单击―复制‖命令。选取
需转换的存储为文本数字的单元格区域。在―编辑‖菜单上，单击―选择性粘贴‖ 。在―运算‖下，
单击―乘‖ 。单击―确定‖按钮。 3．处理特殊财务数字 一些财务程序显示负值时在该值右边带
有负号―…‖ 。要将此文本字符串转换为数值，必须返回除最右边字符（即负号）以外的所有文
本字符串字符，然后乘以 ―…1‖ 。例如，如果单元格A2 中的值为―156…‖ ，那么公式
―=LEFT（A2；LEN（A2）…1）*…1‖将文本转换为数值―…156‖，然后用上面的方法操作。
＇分享＇快速隐藏单元格所在位置的行与列 1。 按ctrl＋9 可隐藏选中单元格或区域所在的行 2。
按ctrl＋0 可隐藏选中单元格或区域所在的列 赫赫野兔 ： 恢复隐藏的行和列的快捷键是：
ctrl＋shift＋0 ctrl＋shift＋9
还有 隐藏当前工作表 格式…………工作表…………隐藏 隐藏当前工作薄 窗口…………隐藏
＇分享＇快速选择Excel工作表 在Excel中，要在一个有很多个工作表的工作簿中快速的选择某
一个工作表，只需将鼠标指针移到工作薄左下角的工作表滚动轴 （Sheet Tabs），然后点击右键，
在快捷菜单中选择你想要的工作表。
＇推荐＇用Excel和VBA轻松实现桌签批量打印 用Excel和VBA轻松实现桌签批量打印； 工作中有
需要的朋友可以试一下
用Excel来制作桌面标签（以下简称桌签）确实是一个比较新颖的方法，不过要是同时制作很
多桌签也还是比较费时的。那么今天笔者就介绍一种用VBA轻松实现桌签批量打印的方法。
一、 准备工作 ⒈启动Excel2003（其他单元格也可以），执行―工具→自定义‖命令，打开― 自定
义‖对话框。在―命令‖标签中，选中―类别‖下面的―工具‖选项，然后在―命令‖下面找到―照相机‖
选项，并将它拖到工具栏合适位置上。
⒉在Sheet1工作表中（最好将文档取名保存一下），仿照图1的样式，在B列相应的单元格中输入
需要打印桌签的名称，并在A1中输入一个名称。
CXXII
…………………………………………………………Page 123……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
图1
⒊在C1单元格 （也可以是其他单元格）中输入公式：=COUNTA（B：B），用于统计所要打印的桌签数
目。
⒋选中A1单元格，设置字符居中对齐，并设置一种适合用作桌签的字体 （如魏碑体）。
二、 制作桌签 ⒈选中A1单元格，单击一下工具栏上的―照相机‖按钮，再切换到―Sheet2‖工作
表中，单击一下鼠标，即可得到一张A1单元格的照片 （图2）。
图2
CXXIII
…………………………………………………………Page 124……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
小贴士：这种照片不同于普通图片，它与A1单元格中的数据建立了链接，随A1单元格中的字符
改变而改变。
⒉选中―照片‖，执行―格式→图片‖命令，打开―设置图片格式‖对话框，在―颜色与线条‖标签中，
将―线条‖设置为―无线条颜色‖，点击―确定‖返回。
⒊根据桌签底座的尺寸，将―照片‖调整至合适大小，并将它定位到页面合适位置上。
⒋将上述―照片‖复制一份，在―设置图片格式‖对话框的―大小‖标签中，将它―旋转→180°‖，
并将它定位到页面合适位置上（效果参见图2）。
三、 编制宏程序 ⒈按下―Alt＋F11‖组合键，打开―Visual Basic编辑器‖ （图3），在右侧的―工
程资源管理器‖区域中，选中―VBAProject（桌签。xls）‖选项，执行―插入→模块‖命令，插入一
个模块 （模块1）。
图4
⒉双击―模块1‖，展开右侧的代码编辑区，将下述代码输入其中：
Sub 桌签（） '建立一个名称为―桌签‖ 的宏。
For i = 1 To Sheet1。Cells（1； 3） '设立一个循环：开始值为1，结束值为Sheet1工作表C3单
元格内的值 （即桌签数目）。
CXXIV
…………………………………………………………Page 125……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
Sheet1。Select '选中Sheet1工作表。
Cells（1； 1）。Value = Cells（i； 2）。Value '依次将B列的桌签字符调入A1单元格中。
Columns（〃A：A〃）。Select '选中A列。
Selection。Columns。AutoFit '将A列设置为―最合适的列宽‖，这样让字符不同的桌签自动适应
―照片‖ 的大小。
Sheet2。Select '选中Sheet2工作表。
ActiveWindow。SelectedSheets。PrintOut'执行一下打印操作，打印出一张桌签。
Next '进入下一个循环。
Sheet1。Select '桌签全部打印完成后，选中Sheet1工作表。
Range（〃B1〃）。Select '选中B1单元格，等待下一次修改字符。
ActiveWorkbook。Save '保存当前工作簿文档。
Application。Quit '退出Excel。
End Sub '宏的结束符号。
小贴士：①上述代码中英文单引号及其后面的字符是对代码的注释，可以不输入。②宏的结束
符号上面的4行代码不输入不影响桌签的打印。
⒊输入完成后，关闭―Visual Basic编辑器‖窗口。
四、添加按钮 ⒈切换到Sheet1工作表中，执行―视图→工具栏→窗体‖命令，展开―窗体‖工具
栏，单击工具栏上的―按钮‖按钮，在工作表中拖拉出一个按钮，此时系统弹出―指定宏‖对话框
（图4），选中刚才编制的―桌签‖宏，确定返回。
CXXV
…………………………………………………………Page 126……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
图5
2。将按钮上的文字修改为―打印桌签‖，再调整好大小，并定位在工作表合适位置上 （参见图1）。
以后需要打印桌签时，只要将相应的字符输入到B列下面的单元格中，然后按下―打印桌签‖按
钮，就一切OK了。
用VBA实现用户口令及授权管理（源代码公开） 用VBA实现用户口令及授权管理 本人是一个VBA
初学者；初次发表自己首个VBA程序； 希望版主及各位前辈给予鼓励； 对予程序中的不足； 希
望各位前辈给我改进意见； 用户及口令都为‖111‖ 工程口令已清除 主要功能： 1。 如果用户
取消宏； 他就不会看到程序内主表； 在工作表隐藏中也取消不了（当然这只能对不懂VBA的
用户适用） 2。 系统要求用户定期更改密码 3。 可对不同用户进行不同的授权 （在用户表中；Y：
有权 ； N： 无权 4。 退出系统自动保存 5。 对密码表中的口令加密 （希望高手提供更强大的加
密算法）
===
Public Function EncodePassword（pw As String） As String
' 传递pw，并返回编码后的pw。
CXXVI
…………………………………………………………Page 127……………………………………………………………
Excel_word_ppt_使用技巧大全（