友情提示:如果本网页打开太慢或显示不完整,请尝试鼠标右键“刷新”本网页!
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
快捷操作: 按键盘上方向键 ← 或 → 可快速上下翻页 按键盘上的 Enter 键可回到本书目录页 按键盘上方向键 ↑ 可回到本页顶部!
温馨提示: 温看小说的同时发表评论,说出自己的看法和其它小伙伴们分享也不错哦!发表书评还可以获得积分和经验奖励,认真写原创书评 被采纳为精评可以获得大量金币、积分和经验奖励哦!