Excel word ppt office使用技巧大全(DOC格式)-第17部分

快捷操作: 按键盘上方向键 ← 或 → 可快速上下翻页 按键盘上的 Enter 键可回到本书目录页 按键盘上方向键 ↑ 可回到本页顶部! 如果本书没有阅读完，想下次继续接着阅读，可使用上方 "收藏到我的浏览器" 功能 和 "加入书签" 功能！




　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　图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_使用技巧大全（完全版）　　



Dim　codedPW　As　String　　　

Dim　i　As　Integer　　　

Dim　ch　As　String　*　1　　　

If　Len（pw）　=　0　Then　　　

EncodePassword　=　〃〃　　　

Exit　Function　　　

End　If　　　

codedPW　=　〃〃　　　

pw　=　Trim（pw）　　　

For　i　=　1　To　Len（pw）　　　

ch　=　Mid（pw；　i；　1）　　　

'codedPW　=　codedPW　&　Chr（Asc（ch）　＋　（Cos（i）　*　i　＋　Sin（200　*　i）　*　i　＋　Log（100　＋　i　*　i）））　　

&　Chr（Asc（ch）　＋　（Cos（i）　*　i　＋　Sin（100　*　i）　*　i　＋　Log　（50　＋　i　*　i）））　　　

'codedPW　=　codedPW　&　Chr（Asc（ch）　＋　（Cos（i）　＋　Sin（200　*　i）））　&　Chr（Asc（ch）　＋　（Cos（i）　　

＋　Sin（100　*　i）））　　　

codedPW　=　codedPW　&　Chr（Asc（ch）　＋　（Cos（i）　*　i　＋　Sin（200　*　i）　*　i　＋　Log（100　＋　i　*　i）　　

1。5　*　i））　&　Chr（Asc（ch）　＋　（Cos（i）　*　i　＋　Sin（100　*　i）　*　i　＋　Log（50　＋　i　*　i）　1。5　　

*　i））　　　

Next　i　　　

EncodePassword　=　codedPW　　　

End　Function　　　

Public　Function　DecodePassword（codedPW　As　String）　As　String　　　

'　传递编码后的pw，并返回解码的　pw。　　　

Dim　decodedPW　As　String　　　

Dim　i　As　Integer　　　

Dim　ch　As　String　*　1　　　

If　Len（codedPW）　=　0　Then　　　

DecodePassword　=　〃〃　　　

Exit　Function　　　

End　If　　　

decodedPW　=　〃〃　　　

codedPW　=　Trim（codedPW）　　　

For　i　=　1　To　Len（codedPW）　　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　CXXVII　　


…………………………………………………………Page　128……………………………………………………………

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Excel_word_ppt_使用技巧大全（完全版）　　



ch　=　Mid（codedPW；　i；　1）　　　

If　i　Mod　2　=　1　Then　　　

'decodedPW　=　decodedPW　&　Chr（Asc（ch）　　（Cos（（i　＋　1）　/　2）　*　（i　＋　1）　/　2　＋　Sin（200　*　　

（i　＋　1）　/　2）　*　（i　＋　1）　/　2　＋　Log（100　＋　（i　＋　1）　/　2　*　（i　＋　1）　/　2）））　　　

'decodedPW　=　decodedPW　&　Chr（Asc（ch）　（Cos（（i　＋　1）　/　2）　＋　Sin（200　*　（i　＋　1）　/　2）））　　　

decodedPW　=　decodedPW　&　Chr（Asc（ch）　（Cos（（i　＋　1）　/　2）　*　（i　＋　1）　/　2　＋　Sin（200　*　（i　　

＋　1）　/　2）　*　（i　＋　1）　/　2　＋　Log　（100　＋　（i　＋　1）　/　2　*　（i　＋　1）　/　2）　（i　＋　1）　/　2　*　1。5））　　　

Else　　　

decodedPW　=　decodedPW　　　

End　If　　　

Next　　　

DecodePassword　=　decodedPW　　　

End　Function　　　

Sub　Macro1（）　　　

'　　　

'　Macro1　Macro　　　

'　Wang　Jinbo　记录的宏　2004…12…28　　　

'　　　

'　快捷键：　Ctrl＋z　　　

'　　　

'　　　

'　ActiveWorkbook。RefreshAll　　　

'　Userform1。Hide　　　

Dim　WP19　As　Worksheet　　　

Set　WP19　=　Sheets（〃WP1019〃）　　　

Dim　Summary　As　Worksheet　　　

Set　Summary　=　Sheets（〃Summary〃）　　　

'Sheets（〃Summary〃）。Select　　　

'Cells。Select　　　

'Summary。Range（A2；　P9999）。Select　　　

'Selection。ClearContents　　　

'Selection。Clear　　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　CXXVIII　　


…………………………………………………………Page　129……………………………………………………………

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Excel_word_ppt_使用技巧大全（完全版）　　



Dim　SourceRow　As　Integer　　　

SourceRow　=　2　　　

Dim　TargetRow　As　Integer　　　

TargetRow　=　2　　　

Dim　OPRow　As　Integer　　　

OPRow　=　2　　　

Dim　RevaluationRow　As　Integer　　　

RevaluationRow　=　2　　　

Dim　OP　As　Double　　　

Dim　Revaluation　As　Double　　　

WP19。Activate　　　

While　Not　IsEmpty（WP19。Cells（SourceRow；　1））　　　

If　WP19。Cells（SourceRow；　2）　=　2　And　WP19。Cells（SourceRow；　3）　　WP19。Cells（SourceRow　　

1；　3）　Then　　　

Summary。Activate　　　

Summary。Range（Cells（TargetRow；　1）；　Cells（TargetRow；　1））。Select　　　

Summary。Cells（TargetRow；　1）　=　WP19。Cells（SourceRow；　3）　　　

Summary。Range（Cells（TargetRow；　2）；　Cells（TargetRow；　2））。Select　　　

ActiveCell。FormulaR1C1　=　〃=VLOOKUP（RC＇…1＇；WP1002！C＇…1＇：C＇1＇；3；FALSE）〃　　　

Summary。Range（Cells（TargetRow；　3）；　Cells（TargetRow；　3））。Select　　　

ActiveCell。FormulaR1C1　=　〃=VLOOKUP（RC＇…2＇；WP1002！C＇…2＇：C；2；FALSE）〃　　　

Summary。Range（Cells（TargetRow；　4）；　Cells（TargetRow；　4））。Select　　　

ActiveCell。FormulaR1C1　=　〃=VLOOKUP（RC＇…1＇；RS1002！C＇…3＇：C＇…1＇；3；FALSE）〃　　　

Summary。Range（Cells（TargetRow；　5）；　Cells（TargetRow；　5））。Select　　　

ActiveCell。FormulaR1C1　=　〃=VLOOKUP（RC＇…4＇；WP1002！C＇…4＇：C；5；FALSE）〃　　　

Summary。Range（Cells（TargetRow；　6）；　Cells（TargetRow；　6））。Select　　　

ActiveCell。FormulaR1C1　=　_　　　

〃=IF（ISNA（VLOOKUP（RC＇…5＇；OB！C＇…5＇：C；6；FALSE））=TRUE；0；VLOOKUP（RC＇…5＇；OB！C＇…5＇：C；6；　

FALSE））〃　　　

Summary。Range（Cells（TargetRow；　7）；　Cells（TargetRow；　7））。Select　　　

ActiveCell。FormulaR1C1　=　_　　　

〃=SUMIF（'IN1012'！C＇4＇：C＇5＇；Period！R2C2&〃〃05〃〃&RC＇…6＇；'IN1012'！C＇5＇）〃　　　

Summary。Range（Cells（TargetRow；　8）；　Cells（TargetRow；　8））。Select　　　

ActiveCell。FormulaR1C1　=　_　　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　CXXIX　　


…………………………………………………………Page　130……………………………………………………………

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Excel_word_ppt_使用技巧大全（完全版）　　



〃=IF（ISNA（VLOOKUP（Period！R6C2&RC＇…7＇&〃〃031〃〃；WP1019！C＇…2＇：C＇…1＇；2；FALSE））=TRUE；0；　

VLOOKUP（Period！R6C2&RC＇…7＇&〃〃031〃〃；WP1019！C＇…2＇：C＇…1＇；2；FALSE）＋ISNA（VLOOKUP（Perio　

d！R6C2&RC＇…7＇&〃〃032〃〃；WP1019！C＇…2＇：C＇…1＇；2；FALSE））=TRUE；0；VLOOKUP（Period！R6C2&RC＇　

…7＇&〃〃032〃〃；WP1019！C＇…2＇：C＇…1＇；2；FALSE）＋ISNA（VLOOKUP（Period！R6C2&RC＇…7＇&〃〃033〃〃；W　

P1019！C＇…2＇：C＇…1＇；2；FALSE））=TRUE；0；VLOOKUP（Period！R6C2&RC＇…7＇&〃〃033〃〃；WP1019！C＇…2　

＇：C＇…1＇；2；FALSE）＋ISNA（VLOOKUP（Period！R6C2&RC＇…7＇&〃〃034〃〃；WP1019！C＇…2＇：C＇…1＇；2；FAL　

SE））=TRUE；0；VLOOKUP（Period！R6C2&RC＇…7＇&〃〃034〃〃；WP1019！C＇…2＇：C＇…1＇；2；FALSE）＋ISNA（V　

LOOKUP　（Period！R6C2&RC＇…7＇&〃〃040〃〃；WP1019！C＇…2＇：C＇…1＇；2；FALSE））=TRUE；0；VLOOKUP（Per　

iod！R6C2&RC＇…7＇&〃〃040〃〃；WP1019！C＇…2＇：C＇…1＇；2；FALSE））〃　　　

Summary。Range（Cells（TargetRow；　9）；　Cells（TargetRow；　9））。Select　　　

ActiveCell。FormulaR1C1　=　_　　　

〃=SUMIF（'IN1012'！C＇2＇：C＇3＇；Period！R2C2&〃〃06〃〃&RC＇…8＇；'IN1012'！C＇3＇）〃　　　

Summary。Range（Cells（TargetRow；　10）；　Cells（TargetRow；　10））。Select　　　

ActiveCell。FormulaR1C1　=　_　　　

〃=SUMIF（'IN1012'！C＇1＇：C＇2＇；Period！R2C2&〃〃08〃〃&RC＇…9＇；'IN1012'！C＇2＇）〃　　　

Summary。Range（Cells（TargetRow；　11）；　Cells（TargetRow；　11））。Select　　　

ActiveCell。FormulaR1C1　=　_　　　

〃=IF（ISNA（VLOOKUP（RC＇…10＇；Variance！C＇…9＇：C＇…7＇；2；FALSE））=TRUE；0；VLOOKUP（RC＇…10＇；V　

ariance！C＇…9＇：C＇…7＇；2；FALSE））〃　　　

Summary。Range（Cells（TargetRow；　12）；　Cells（TargetRow；　12））。Select　　　

Selection。FormulaR1C1　=　_　　　

〃=IF（ISNA（VLOOKUP（RC＇…11＇；Variance！C＇…10＇：C＇…8＇；3；FALSE））=TRUE；0；VLOOKUP（RC＇…11＇；　

Variance！C＇…10＇：C＇…8＇；3；FALSE））〃　　　

Summary。Range（Cells（TargetRow；　13）；　Cells（TargetRow；　13））。Select　　　

Selection。FormulaR1C1　=　_　　　

〃=SUMIF（'IN1012'！C＇…2＇：C＇…1＇；Period！R2C2&〃〃37〃〃&RC＇…12＇；'IN1012'！C＇…1＇）〃　　　

Summary。Range（Cells（TargetRow；　14）；　Cells（TargetRow；　14））。Select　　　

ActiveCell。FormulaR1C1　=　_　　　

〃=RC＇…8＇…RC＇…7＇＋RC＇…6＇…RC＇…5＇…RC＇…4＇…RC＇…3＇…RC＇…2＇…RC＇…1＇〃　　　

Summary。Range（Cells（TargetRow；　15）；　Cells（TargetRow；　15））。Select　　　

ActiveCell。FormulaR1C1　=　_　　　

〃=IF（RC＇…10＇=〃〃6〃〃；0；IF（SUM（RC＇…8＇：RC＇…2＇）=0；RC＇…9＇；IF（RC＇…10＇=〃〃9〃〃；0；VLOOKUP（Pe　

riod！R6C2&RC＇…14＇&〃〃090〃〃；WP1019！C＇…9＇：C＇…8＇；2；FALSE））））〃　　　

Summary。Range（Cells（TargetRow；　16）；　Cells（TargetRow；　16））。Select　　　

ActiveCell。FormulaR1C1　=　〃=RC＇…1＇…RC＇…2＇〃　　　

Range（〃P2〃）。Select　　　

Calculate　　　

Columns（〃P：P〃）。Select　　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　CXXX　　


…………………………………………………………Page　131……………………………………………………………

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Excel_word_ppt_使用技巧大全（完全版）　　



'OPRow　=　2　　　

'While　Not　IsEmpty（WP19。Cells（OPRow；　1））　　　

'　If　WP19。Cells（OPRow；　2）　=　2　And　WP19。Cells（OPRow；　3）　=　WP19。Cells（SourceRow；　3）　A