Excel VBA中使用VLOOKUP函数

Function VBVlookup(code As Integer) As String
    On Error Resume Next
    
    Dim result As String
    Dim sheet As Worksheet
    Set sheet = ActiveWorkbook.Sheets("维修人员表")
    
    result = Application.WorksheetFunction.VLookup(code, sheet.Range("A:B"), 2, False)
    VBVlookup = result
End Function

另外附上VLOOKUP,查找不到不显示N/A的函数

=IF(ISERROR(VLOOKUP(A5,项目代码表!A:E,2,FALSE)),"",(VLOOKUP(A5,项目代码表!A:E,2,FALSE)))

Excel中如何找出两列数据中不重复的记录

需求:现在有两列数据,要在 A 列中找出 B 列中没有的记录,在 B 列中找出 A 列中没有的记录。现在和大家分享一下这个方法。
我们先用一个简单的例子看一下。现在有两列数据,可以是分别在不同的数据单(sheet)中。我们先来做个简单的眼力测验,看下面图中左侧,两列数据中不重复的部分把它找出来。

收起这个图片展开这个图片

01

这里数据比较少,我们很容易发现:(左) 列的的“周”、“郑”、“王”是 (右) 列没有的。(右) 列的“李”、“吴”是 (左) 列没有的。
现在我们看一下在 Excel 中如何用公式来实现这里功能。稍微有点难度,但是我们每步都会讲解得尽可能清晰,请不要担心。

  1. 我们先需要把两列数据定义到“数据块”中,并且分别为它们起个名字。分别叫“左边”和“右边”。相当于上面图中的 (左) 列和 (右) 列。
  2. 我们选中 (左) 列中所有的数据(这里位于第一张数据单的 A 列),然后选公式选项卡 -> 定义名称 -> 名称中填上“左边”-> 按确定退出。

    收起这个图片展开这个图片

    02

  3. 用同样的方法,选中 (右) 列数据(这里位于另一张数据单的 A 列),把它定义成“右边”。
  4. 然后在你数据列右边的那列头一个单元格,点中后在公式栏中输入

    =IF(ISNA(VLOOKUP(

    收起这个图片展开这个图片

    03

    注意公式要以等号开始。括号要用英文括号。

  5. 然后点左侧中对应的单元格,这里我们点 A1 单元格。

    收起这个图片展开这个图片

    04

  6. 然后在 A1 后面打个逗号(要用英文逗号),然后打右边

    收起这个图片展开这个图片

    05

  7. 然后再打个逗号,再打 1,再打个逗号,然后选 FALSE。

    收起这个图片展开这个图片

    06

  8. 选完 FALSE 后打上

    )),"新","")

    括号引号注意全要英文的。

  9. 完整公式是这样的,打完公式后按回车。

    收起这个图片展开这个图片

    07

  10. 我们看一下完整的公式。

    =IF(ISNA(VLOOKUP(A1,右边,1,FALSE)),"新","")

    如果你的数据在 A 这一列,如果按照前面一模一样的方法定义了“左边”和“右边”两个数据块。那么你可以干脆把这个公式原封不动贴进去。
    下面是是对几个重要参数的解释。

    收起这个图片展开这个图片

    08

  11. 接下去,我们要把公式拖到整列。把鼠标放到选中那个单元格右下角的那个小十字上,按住十字上往下拖。一直拖到这一列的末尾。

    收起这个图片展开这个图片

    09

  12. 我们看到“周”、“郑”、“王”右边出现了“新”,表示他们在另一块数据中是没有的。
  13. 我们在 (A) 列中找出了 (B) 列中没有的记录,用同样的方法在 (B) 列中找出了 (A) 列中没有的记录。用的公式是

    =IF(ISNA(VLOOKUP(A1,左边,1,FALSE)),"新","")

    收起这个图片展开这个图片

    10

    “周”、“郑”、“王”右边出现了“新”。“李”、“吴”右边出现了“新”。这些记录都是在另一列中没有的记录。

  14. 现在我们用这个方法找出了两列数据种中不同的项。

如何将 Visio 绘图粘贴或插入到其他 Office 程序

简介
本文介绍了多种方法,可用来复制 Microsoft Visio 绘图的对象并将它们粘贴到其他程序中。
要将 Visio 中的对象复制到其他程序,请根据您的环境使用以下方法之一。
方法 1:使用“按类型选择”命令或“特殊选定”命令
在Microsoft Office Visio 2007、Microsoft Office Visio 2003 和 Microsoft Visio 2002 中,可以使用“按类型选择”命令。在 Microsoft Visio 2000 中,可以使用“特殊选定”命令。要使用“按类型选择”命令或者“特殊选定”命令,请按照下列步骤操作:
  1. 启动 Visio,然后打开您的绘图。
  2. 在Visio 2007、Visio 2003 或 Visio 2002 中的“编辑”菜单上单击“按类型选择”。或者,在 Visio 2000 中单击“特殊选定”。
  3. 在“按类型选择”对话框或者“特殊选定”对话框中,执行以下步骤之一:
    • 单击“形状类型”。然后,单击选中或者清除下面的一个或多个复选框:
      • 形状
      • 组合
      • 参考线
      • OLE 对象
      • 图元文件
      • 位图
      此外,Visio 2003 中还提供以下形状类型:
      • 墨迹对象
    • 单击“图层”,然后单击选中所需图层旁边的复选框。
  4. 单击“确定”。
  5. 在“编辑”菜单上,单击“复制”。
  6. 切换到要粘贴 Visio 对象的目标文件。
    例如,如果要将 Visio 对象粘贴到 Microsoft Word 文档,则启动 Word 并打开要粘贴 Visio 对象的文档。
  7. 在“编辑”菜单上单击“粘贴”或“选择性粘贴”插入 Visio 对象。
方法 2:使用“全选”命令
要使用“全选”命令,请按照下列步骤操作:
  1. 启动 Visio,然后打开您的绘图。
  2. 在“编辑”菜单上,单击“全选”。
  3. 切换到要粘贴 Visio 对象的目标文件。
    例如,如果要将 Visio 对象粘贴到 Word 文档,则启动 Word 并打开要粘贴 Visio 对象的文档。
  4. 在“编辑”菜单上单击“粘贴”或“选择性粘贴”插入 Visio 对象。
方法 3:使用“复制绘图”命令
要使用“复制绘图”命令,请按照下列步骤操作:
  1. 启动 Visio,然后打开您的绘图。
  2. 确保在 Visio 中未选择任何内容。
  3. 在“编辑”菜单上,单击“复制绘图”。
    此命令将复制您正在查看的绘图页。
  4. 切换到要粘贴 Visio 对象的目标文件。
    例如,如果要将 Visio 对象粘贴到 Word 文档,则启动 Word 并打开要粘贴 Visio 对象的文档。
  5. 在“编辑”菜单上单击“粘贴”或“选择性粘贴”插入 Visio 对象。
方法 4:将 Visio 绘图另存为图形文件
要将 Visio 绘图另存为图形文件,请按照下列步骤操作:
  1. 启动 Visio,然后打开您的绘图。
  2. 选择要复制的对象。
    注意:如果想复制整个绘图页,请确保未选择 Visio 绘图中的任何对象。如果选择绘图中的对象,则只有选择的对象会出现在最终的图形文件中。
  3. 在“文件”菜单上,单击“另存为”。
  4. 在“保存类型”列表中,单击所需的图形文件类型,然后单击“保存”。下面的图形文件类型在Visio 2007、Visio 2003、Visio 2002 和 Visio 2000 中是共有的。这些共有图形文件类型在“保存类型”框中列出:
    • 增强型图元文件 (*.emf)
    • 图形交换格式 (*.gif)
    • JPEG 文件交换格式 (*.jpg)
    • 可移植网络图形 (*.png)
    • Tag 图像文件格式 (*.tif)
    • 压缩的增强型图元文件 (*.emz)
    • Windows 位图 (*.bmp; *.dib)
    • Windows 图元文件 (*.wmf)
    在Visio 2007 和Visio 2003 中,除列出上述共有图形文件类型外,还列出了下列图形文件类型:
    • 可缩放的向量图形 - 已压缩 (*.svgz)
    • 可缩放的向量图形 (*.svg)
    在 Visio 2002 和 Visio 2000 中,除列出上述共有图形文件类型外,还列出了下列图形文件类型:
    • Macintosh PICT 格式 (*.pct)
    • Zsoft PC Paintbrush Bitmap (*.pcx)
    • Adobe Illustrator 文件 (*.ai)
    • 计算机图形图元文件 (*.cgm)
    • 封装的 PostScript 文件 (.eps)
    • Postscript 文件 (*.ps)
    • IGES 图形文件格式 (*.igs)
    注意:当您使用“另存为”对话框导出形状或绘图时,可能会显示“输出选项”对话框,您可以在其中为导出文件指定所需的设置。“输出选项”对话框中显示的选项取决于您使用的图形文件格式。
  5. 切换到要粘贴 Visio 对象的目标文件。
    例如,如果要将 Visio 对象粘贴到 Word 文档,则启动 Word 并打开要粘贴 Visio 对象的文档。
  6. 在“插入”菜单上,指向“图片”,然后单击“来自文件”。
  7. 选择在 Visio 中保存的图形文件,然后单击“插入”。
    注意:此方法保留了形状、文本和填充的格式设置。但未保留图层属性。例如,如果某个形状位于隐藏层,则在插入图形文件后该形状不可见。
方法 5:在 Visio 2000 中使用“插入 Visio 绘图”按钮
此方法只适用于 Visio 2000。要安装和使用“插入 Visio 绘图”按钮,请按照下列步骤操作:
  1. 要在 Word、Microsoft Excel 和 Microsoft PowerPoint 中的工具栏上安装“插入 Visio 绘图”按钮,请运行“插入 Visio 按钮”程序。通常此程序位于下面的文件夹中:

    C:\Program Files\Microsoft Visio\System\Custom

  2. 要使用此按钮,请单击“插入 Visio 绘图”,然后单击“选择绘图类型”对话框中的“浏览模板”。
  3. 在“选择绘图模板”对话框中,单击“文件类型”下的“绘图 (*.vsd)”。单击要导入的绘图,然后单击“打开”。
    注意:如果图层处于锁定或隐藏状态,则必须先对图层取消隐藏和取消锁定,以便包括绘图中的所有元素。

Excel身份证相关信息提取公式

1、根据身份证号码自动提取出生年月

=MID(B2,7,4)&"年"&MID(B2,11,2)&"月"&MID(B2,13,2)&"日"

2、根据身份证号码自动提取性别

=IF(MOD(RIGHT(LEFT(B2,17)),2),"男","女")

3、根据身份证号码自动提取年龄

=DATEDIF(TEXT(MID(B2,7,6+2*(LEN(B2)=18)),"#-00-00"),NOW(),"y")

Excel计算两个时间相差的分钟数

需求:

以9点32分为基准,在这时间之后打开的都算作迟到,并计算出时间差(分钟)

公式:

=IF(A2<=TIME(9,32,0),"未迟到",(A2-TIME(9,32,0))*1440)

演示 & 下载:

Excel奇偶页打印宏

右击工作表标签—查看代码—插入—模块—粘贴代码—关闭VBE编辑器,回到工作表,工具—宏—宏,选择Print_双面,单击执行。

Sub Print_双面()

Dim pageTotal As Integer
Dim jPage As Integer
Dim OK

pageTotal = Application.ExecuteExcel4Macro("get.document(50)")

For jPage = pageTotal - IIf(pageTotal Mod 2 = 0, 1, 0) To 1 Step -2
ActiveSheet.PrintOut from:=jPage, To:=jPage
Next

OK = MsgBox("请把纸张装入打印机,打印偶数页", vbOKCancel, "双面打印")

If OK = vbOK Then
For jPage = 2 To pageTotal Step 2
ActiveSheet.PrintOut from:=jPage, To:=jPage
Next
End If

End Sub

Excel将价钱小写转换大写

1、打开一个Excel工作表

2、按ALT+F11

3、新建一个模块

4、粘贴以下代码:

Public Function Daxie(M)
    Y = Int(Round(100 * Abs(M)) / 100)
    J = Round(100 * Abs(M) + 0.00001) - Y * 100
    F = (J / 10 - Int(J / 10)) * 10
    A = IIf(Y < 1, "", Application.Text(Y, "[DBNum2]") & "元")
    B = IIf(J > 9.5, Application.Text(Int(J / 10), "[DBNum2]") & "角", IIf(Y < 1, "", IIf(F > 1, "零", "")))
    C = IIf(F < 1, "整", Application.Text(Round(F, 0), "[DBNum2]") & "分")
    Daxie = IIf(Abs(M) < 0.005, "", IIf(M < 0, "负" & A & B & C, A & B & C))
End Function
5、在单元格中输入 =daxie(A1) 即可调用

Word中出现乱码: {CONTROL Forms.CheckBox.1 \s}

问题:

Word使用中出现乱码: {CONTROL Forms.CheckBox.1 \s}

解决办法:

  1. 显示或者隐藏指定的域代码:首先单击需要实现域代码的域或其结果,然后按下“SHIFT+F9”组合键。
  2. 显示或者隐藏文档中所有域代码:按下“ALT+F9”组合键。