澳门新浦京娱乐场网站-www.146.net-新浦京娱乐场官网
做最好的网站

澳门新浦京娱乐场网站:EXCEL如何自动将姓名调换

问题:EXCEL如何自动将姓名转换为拼音?

O EASY EXCEL

问题:word和Excel怎样超速入门?

目录

目录

回答:

4.excel文件的保存

  • 保存格式

    Xlsx xl:excel s: 复数 x: 2007版

    宏:macro

    保存为模板:另存为-excel工作簿 – 保存类型选带模板的 位置要在templates下面

    新建的时候在我的模板中找

  • 自动保存

    开始- excel选项(右下角) - 保存 – …

  • 保存工具选项

    另存为 – (右下角)工具 - 常规选项 设置打开密码(只读密码)和修改密码(能改吗)

  • 打开方式

    开始 – 打开 – 可以选打开的方式(只读/副本…)

  • 文件属性

    开始 – 准备 – 属性…权限…

Excel本质是一个rar文件/zip

回答:

澳门新浦京娱乐场网站 1 AutoFilter
澳门新浦京娱乐场网站 2 Binding
澳门新浦京娱乐场网站 3 Cell Comments
澳门新浦京娱乐场网站 4 Cell Copy
澳门新浦京娱乐场网站 5 Cell Format
澳门新浦京娱乐场网站 6 Cell Number Format
澳门新浦京娱乐场网站 7 Cell Value
澳门新浦京娱乐场网站 8 Cell

澳门新浦京娱乐场网站 9 Column
澳门新浦京娱乐场网站 10 ComboBox
澳门新浦京娱乐场网站 11 Copy Paste
澳门新浦京娱乐场网站 12 CountA
澳门新浦京娱乐场网站 13 Evaluate
澳门新浦京娱乐场网站 14 Excel to XML
澳门新浦京娱乐场网站 15 Excel ADO
澳门新浦京娱乐场网站 16 Excel to Text File
澳门新浦京娱乐场网站 17 Excel Toolbar

感谢今日头条的邀请,大家好,我是Excel奇妙之旅,专注于Excel知识和技能的分享

5.worksheet管理工作表

操作都是 在sheet 1 …处右键操作

  • 给sheet1(工作表)重命名 – 在左下方右键选中 重命名(双击sheet1也可以改)

  • 工作表的插入,删除

  • 工作表的复制,移动

  • 工作表的颜色设置

  • 工作表的选择

  • 隐藏和取消隐藏

  • 工作表保护

这个必须系统的学一下才能入门,而且入了门还有很长的路要走,Excel的博大精深没几个人说全部会用的,我发表的文章里面有一套系列视频,非常经典,总24讲Excel视频教程集齐,播放超10万,好评如潮,从入门到精通这套教程自发布以来大家一致叫好,从入门到精通,讲的通俗易懂,并有附有课件,不管是Excel初学者还是有一定基础的人,都符合!点击链接即可学习,私信回复“24”获取课件。

AutoFilter

Column

EXCEL如何自动将姓名转换为拼音?以下是我的解决方法,不是用VBA,而是借助word来操作

6.单元格操作

Book工作簿 由 sheet 工作表组成 sheet由行列组成

  • 选择

  • pagedn 整页翻 Ctrl pagedn 回到最上面 ctrl 下 到最下一行 ctrl 上回到最上 ctrl 右 到

    最右一列XFD

    某一个单元格的名字 C8:第8行C列

    4R×3C选中4行3列

    输入A1:C4选择区域

    A1, B2选中两个单元格

    A:A 选择整列 1:1选择整行 点击某行/列的名字(ABCD…)也可以选中整行/列

    选择一个区域可以定义一个名字,在下拉列表里可以载入选择

  • 设置行列高宽

    在两个行/列的名字之间拖动可以设置行高列宽

  • 插入,删除

右键选中某一个单元格 删除某行/列 

整行、整列、右侧左移、下方上移

右键插入 整行 活动单元格右/上移
  • 隐藏和取消隐藏

  • 移动与复制行列,单元格

复制一个区域,黏贴后在左下角有一个智能标记

开始(菜单右边)里面有一个粘贴

澳门新浦京娱乐场网站 18

    1. 确认当前工作表是否开启了自动筛选功能 Sub filter()
           If ActiveSheet.AutoFilterMode Then
              MsgBox "Turned on"
           End If
      End Sub

    当工作表中有单元格使用了自动筛选功能,工作表的AutoFilterMode的值将为True,否则为False。

    1. 使用Range.AutoFilter方法
      Sub Test()
      Worksheets("Sheet1").Range("A1").AutoFilter _
          field:=1, _
          Criteria1:="Otis"
          VisibleDropDown:=False
      End Sub

    以上是一段来源于Excel帮助文档的例子,它从A1单元格开始筛选出值为Otis的单元格。Range.AutoFilter方法可以带参数也可以不带参数。当不带参数时,表示在Range对象所指定的区域内执行“筛选”菜单命令,即仅显示一个自动筛选下拉箭头,这种情况下如果再次执行Range.AutoFilter方法则可以取消自动筛选;当带参数时,可根据给定的参数在Range对象所指定的区域内进行数据筛选,只显示符合筛选条件的数据。参数Field为筛选基准字段的整型偏移量,Criterial1、Operator和Criterial2三个参数一起组成了筛选条件,最后一个参数VisibleDropDown用来指定是否显示自动筛选下拉箭头。
    其中Field参数可能不太好理解,这里给一下说明:

  1. 1. 选择整列 Sub SelectEntireColumn()
        Selection.EntireColumn.Select
    End Sub

  2. 2. 将指定的列序号转换为列名 Function GetColumnRef(columnIndex As Integer) As String
        Dim firstLetter As String
        Dim secondLetter As String
        Dim remainder As Integer

        Select Case columnIndex / 26
            Case Is <= 1      'Column ref is between A and Z
                firstLetter = Chr(columnIndex   64)
                GetColumnRef = firstLetter
            Case Else      'Column ref has two letters
                remainder = columnIndex - 26 * (columnIndex  26)
                If remainder = 0 Then
                    firstLetter = Chr(64   (columnIndex  26) - 1)
                    secondLetter = "Z"
                    GetColumnRef = firstLetter & secondLetter
                Else
                    firstLetter = Chr(64   (columnIndex  26))
                    secondLetter = Chr(64   remainder)
                    GetColumnRef = firstLetter & secondLetter
                End If
        End Select
    End Function

    如columnIndex为11则转换后的列名为K,columnIndex为111则转换后的列名为DG。 

    1. 将数组直接赋值给Columns Private Sub CommandButton1_Click()
          Dim MyArray(5)
          For i = 1 To 5
              MyArray(i - 1) = i
          Next i
          Cells.Clear
          Range(Cells(1, 1), Cells(1, 5)) = MyArray
      End Sub
    1. 指定Column的宽度 Sub colDemo()
           ActiveCell.ColumnWidth = 20
      End Sub

    又如Range("C1").ColumnWidth = Range("A1").ColumnWidth

    1. 清除Columns的内容 Sub clear()
          Columns.clear
      End Sub

    这将导致当前Sheet中所有的内容被清除,等同于Cells.Clear,如果要清除特定列中的内容,可以给Columns加上参数。其它相关的还有Columns.ClearContents,Columns.ClearFormats,Columns.AutoFit,Columns.NumberFormat = "0.00%"等,与Cells对象中提供的诸多方法相似。

操作思路:

7.单元格类型 为学习公式做铺垫

  • 数据类型
  • 文本型
  • 数字型
  • 小数、分数、科学计数法
  • 日期和时间
  • 自定义格式
’009527 文本型单元格

输入身份证号 ’51070…… (否则是科学计数法)

输入2008/08/08 --- 显示2008/8/8

右键 – 设置单元格格式可以查看单元格类型 (还能改日期的显示方法)(同样东西的不同表达格式)

里面有个“自定义”在里面可以查看数字代码 

遇到全是###说明被挤住了,就拖动行宽,或者在两列中间双击一下

在开始里面可以设置数字单位,
1m2 --- 在字体里(右下角的小箭头)可以设置“上标” ---  1m2

发布一天推荐35万,评论700多条,收藏1.3万,转发5000多,私信回复好几千,好评如潮:

澳门新浦京娱乐场网站 19

澳门新浦京娱乐场网站 20 返回目录

第一:把excel中的姓名粘贴到word中,借助word添加拼音,再把word中添加拼音的结果粘贴到excel中

8. 单元格格式

  • 现成格式
  • 表格样式与单元格格式
  • 自己设定
  • 对齐、字体、边框、填充、保护
  • 条件格式
选中一个区域,右键 设置单元格格式  对齐、字体、填充、边框…

格式刷刷格式

开始 – 样式 – 单元格样式 里面可以设置配色和其他等
          单元格样式里下面新建样式可以自己设置样式 

页面布局 – 主题 – 设置颜色 字体 效果 之后可以保存主题

设计表格样式 - 样式 – 表格样式 样式由主题组成,根据主题的颜色生成

新建表格样式可以自定义表格样式

手动换行 alt   enter 

文字方向 设置单元格格式 

保护:审阅 – 更改 – 保护工作表

锁定 之后 就不能改了 

可以设置密码 

澳门新浦京娱乐场网站 21

用上面的代码结合这个截图,如果从A1单元格开始进行数据筛选,如果Field的值为1,则表示取列表中的第一个字段即B列,以此类推,如果Field的值为2则表示C列…不过前提是所有的待筛选列表是连续的,就是说中间不能有空列。当然也可以这样,使用Range(“A1:E17”).AutoFilter,这样即使待筛选列表中有空列也可以,因为已经指定了一个待筛选区域。Field的值表示的就是将筛选条件应用到所表示的列上。下面是一些使用AutoFilter的例子。

 ComboBox

第二:用PHONETIC函数取得拼音

9.条件格式

先选中 开始 – 样式 – 条件格式 – 管理规则(新建规则,删除规则)--- 每条都可以管理 – 双击之后来编辑

如果条件有互斥,默认排在最上面的条件来设置

满足某条件,则显示某格式(边框,填充…)

给大家其中两个视频先看看,喜欢的话直接点击我的头像学习。

Sub SimpleOrFilter()
    Worksheets("SalesReport").Select
    Range("A1").AutoFilter
    Range("A1").AutoFilter Field:=4,Criteria1:="=A", Operator:=xlOr, Criteria2:="=B"
End Sub

    1. 填充数据到ComboBox Private Sub Workbook_Open()
          Dim vMonths As Variant
          Dim vYears As Variant
          Dim i As Integer

        'Create date arrays
        vMonths = Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", _
                            "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")
        vYears = Array(2006, 2007)

        'Populate months using AddItem method
        For i = LBound(vMonths) To UBound(vMonths)
            Sheet1.ComboBox1.AddItem vMonths(i)
        Next i

        'Populate years using List property
        Sheet1.ComboBox2.List = WorksheetFunction.Transpose(vYears)
    End Sub

    LBound和UBound分别表示了数组的下标和上标,该示例采用了两种不同的方法填充ComboBox,一种是在循环中采用AddItem方法,一种是使用Excel的系统函数Transpose。通过ComboBox.Value可以得到ComboBox的当前值。

第三:用substitute函数将拼音声调去掉(这一步视需求,如不需要删除声调可以忽略)

10.编辑

  • 查找
  • 替换
  • 定位
查找 CTRL   F 

里面有个选项可以做一些设置(范围,顺序按行还是列,)

比如,要查找“子”,勾选“单元格匹配”,那么找出来的就只有子,否则可以找出老子,孔子…

通配符

  1. “*”任意个字符

  2. “?(英文的)”代表一个任意字符

    替换 CTRL H

    找到一个东西然后替换成XXX

    还可以设置替换后的各式

    定位

    开始 – 望远镜 – 定位条件

第7讲:Excel公式与函数基础教程,打牢你的函数基础

n

{!-- PGC_VIDEO:{"thumb_fingerprint": 18298708731158615091, "vid": "766ce5768d584a7e8dcdfdcaf7bb0e01", "vu": "766ce5768d584a7e8dcdfdcaf7bb0e01", "duration": 4036, "thumb_height": 360, "thumb_neardup_id": 14988692255000604236, "neardup_id": 12391547131577395280, "video_size": {"high": {"duration": 4036.6, "h": 480, "subjective_score": 0, "w": 640, "file_size": 52306523}, "ultra": {"duration": 4036.6, "h": 720, "subjective_score": 0, "w": 960, "file_size": 69844194}, "normal": {"duration": 4036.6, "h": 360, "subjective_score": 0, "w": 480, "file_size": 46216393}}, "vname": "\u89c6\u9891\uff1a\u7b2c\u4e03\u8bb2.wmv", "hash_id": 12391547131577395280, "status": 0, "media_id": 1579335960823821, "thumb_width": 480, "external_covers": [{"mimetype": "webp", "source": "dynpost", "thumb_height": 360, "thumb_url": "5c1300135740f2bd90c6", "thumb_width": 480}], "item_id": 6514914330356482564, "user_id": 6278328253, "thumb_url": "5c120013164b3e5ce917", "thumb_uri": "5c120013164b3e5ce917", "md5": "ebfb888fbd1df8cb94f28e3124f49180", "vposter": "", "src_thumb_uri": "5c120013164b3e5ce917", "sp": "toutiao", "group_id": 6514914330356482564} --}

 

澳门新浦京娱乐场网站 22 返回目录

澳门新浦京娱乐场网站 23

11. 填充序列

  • 自动填充功能
  • 自定义序列
点击一个单元格,在这个单元格右下角有个黑点,将鼠标放在上面变成一个黑色十字架,拖动后再右下角选择填充序列

在开始 – 编辑 – 填充 可以自定义设置系列

在office 按钮 – excel选项 – 编辑自定义列表

可以自己设计序列 输入一个点一下enter 然后 点击 添加

第2讲:对齐、边框、字体、填充、分列,Excel单元格格式设置全知道

n

{!-- PGC_VIDEO:{"thumb_fingerprint": 11895885056774183450, "vid": "fd17ed913c8f487f8bbddcbb41ae7883", "vu": "fd17ed913c8f487f8bbddcbb41ae7883", "duration": 4482, "thumb_height": 360, "thumb_neardup_id": 11643195644685472679, "neardup_id": 7076460939689712814, "video_size": {"high": {"duration": 4482.6, "h": 480, "subjective_score": 0, "w": 800, "file_size": 66209532}, "ultra": {"duration": 4482.6, "h": 720, "subjective_score": 0, "w": 1200, "file_size": 91652748}, "normal": {"duration": 4482.6, "h": 360, "subjective_score": 0, "w": 600, "file_size": 56075083}}, "vname": "Excel\u7b2c2\u8bb2 .wmv", "hash_id": 7076460939689712814, "status": 0, "media_id": 1579335960823821, "thumb_width": 600, "external_covers": [{"mimetype": "webp", "source": "dynpost", "thumb_height": 360, "thumb_url": "5c12001287ad1518d661", "thumb_width": 600}]澳门新浦京娱乐场网站:EXCEL如何自动将姓名调换为拼音,VBA在Excel中的应用。, "item_id": 6514912542484070926, "user_id": 6278328253, "thumb_url": "5c160001971257e273cc", "thumb_uri": "5c160001971257e273cc", "md5": "952388e0ab7d1dd4f4a02595a342792b", "vposter": "", "src_thumb_uri": "5c12001161b3ded6661a", "sp": "toutiao", "group_id": 6514912542484070926} --}

Sub SimpleAndFilter()
    Worksheets("SalesReport").Select
    Range("A1").AutoFilter
    Range("A1").AutoFilter Field:=4, _
        Criteria1:=">=A", _
        Operator:=xlAnd, Criteria2:="<=EZZ"
End Sub

 Copy Paste

接下来详细介绍操作方法:

12.插入对象 (PPT的插入比较详细)

插入

特殊图像

符号

插入表之后 – 点击表格里的一个地方会出现

上下文菜单“设计”

调整文本框中

CTRL 按住一个图像 可以复制一个

Ctrl >/< 符号 可以调整文本框中字体大小

插入 对象 公式

点击我的头像,左下角有个"经典合集"菜单,点开后点击“24讲Excel”即可找到文章,点击文章内链接即可学习。

 

  1. 1. 利用VBA复制粘贴单元格 1 Private Sub CommandButton1_Click()
    2     Range("A1").Copy
    3     Range("A10").Select
    4     ActiveSheet.Paste
    5     Application.CutCopyMode = False
    6 End Sub

    示例将A1单元格复制到A10单元格中,Application.CutCopyMode = False用来告诉Excel退出Copy模式,此时被复制的单元格周围活动的虚线将消失。还有一种较为简单的粘贴方式,用ActiveSheet.Paste Destination := Range("A10")代替上例中的3、4行,或者直接用Range("A1").Copy Destination := Range("A10")代替上例中的2、3、4行。

    1. 使用VBA进行单元格复制粘贴的一个例子 Public Sub CopyAreas()
        Dim aRange As Range
        Dim Destination As Range
        
        Set Destination = Worksheets("Sheet3").Range("A1")
        For Each aRange In Cells.SpecialCells(xlCellTypeConstants, xlNumbers).Areas
      澳门新浦京娱乐场网站:EXCEL如何自动将姓名调换为拼音,VBA在Excel中的应用。    aRange.Copy Destination:=Destination
          Set Destination = Destination.Offset(aRange.Rows.Count   1)
        Next aRange
      End Sub

1)第一:把excel中的姓名粘贴到word中,借助word添加拼音,注意粘贴的时候选择只保留文本那个选项,添加拼音后再粘贴回Excel

13.打印

主题

页面设置

调整为合适大小

打印预览

页面视图

选中一个区域后 – 在 页面布局 可以设置为打印区域

页面布局 右下角箭头 打印预览

分隔符 可以移动

打印标题 : 在顶端标题行那里点一下 然后在excel中选中标题行

          左端标题行………………………………………………….左边的标题行

在excel左上方A 和 1 之间的三角 那是全选

私信回复“24”可获取课件边看边练

word的教程以后更新!

回答:

这个都是微软家的OFFICE里的分支,Excel主要用于数据处理,Word主要用于为文字处理。

本人有亲身体味,从一个完全不懂excel的人,通过一个星期的努力,基本掌握了常用的Excel技巧,然后逐渐深入学习,渐渐成为同事眼中的“大神”,下面就这方面阐述一下吧,希望可以对有需要的人士有所帮助。

首先,我们来说说怎么入门:

第一次接触Excel,您看到的画面是这样的:

除去上面的工具栏,下面的状态栏,中间白色的有网格线的部分就是您数据处理的地方。您可以输入任何想要输入、您键盘可以打出的字符。当然,如果你的数据是需要后期处理的,那么每一个格子里就只应该输入一个数字,然后,Excel内置有计算函数,就是常说的“公式”,通过公式您可以对您输入的数据做快速的数学计算、汇总、分类等等处理。

Excel2000以上版本兼容VBA编程模式,利用VBA代码,基本可以做任何您想要做的事情。点击键盘上的ALT F11键,就会弹出VBE编辑器,在那里您可以编写自己的代码。

那么,如何入门呢?

1、多接触、多运用,多交流

尽可能多地使用Excel,有需要数据处理时,可以盲人摸象般的开始,不懂得地方,可以百度,减少一个专业的,很不错的论坛“ExcelHome论坛”,里面有各种OFFICE软件的板块,可以提问求助。待有人帮您送上答案后,切记要自己去弄懂别人提供给你的答案,知道别人为什么可以完成,为什么要那么完成,很快您就可以逐渐胜任日常的办需要了。

2、进阶

我的经验是,只有自己有了兴趣,你才会主动去学习和钻研。当你用1分钟的时间,完成别人1小时才可以完成的数据处理时,您就会有很大的成就感。但是,您需要了解的是,通用的帮软件,只是您日常工作的助手,不要奢求利用“高深的Excel技术”就能得到好的报酬。

回答:

首先我想让大家知道的是,任何可以被称得上为大神的人,都不是朝夕之间就能够学好一门技术的。

WORD和EXCEL也是这样。

但如果只是想入门的话倒也很简单,对于有电脑基础的朋友来说,一个小时就能够入门,学会基础的操作。

下面想给大家讲一下想要快速入门需要注意的问题:

1. 能够新建文档并保存文档,对于有的人来说就叫入门了,但对于大多数人来说,是需要学一点基础技巧的。比如excel里面的排序,筛选,求和,求平均值等,word里面的字体字号首行缩进等,这些都很简单却非常实用。

  1. 如果是想快速学习用来应付考试,一定要切记不能浮躁,心平气和的去学。

  2. 有很多可以学习的网站,百度搜索一大堆,这里就不再赘述。

  3. 如果遇到问题也可以直接私信我。

总的说来,想学一些简单基础的操作还是挺容易的。有志者,事竟成嘛!每个人都可以成为word和excel大神!

有任何操作上的问题大家都可以评论哦,我会一一解答的哈!

回答:

经常会看到有人问“怎么快速学会excel”“怎么快速称为word高手”。看似简单的问题,但是又有哪位大神能轻松回答呢。

俗语说的好“不积跬步,无以至千里,不积小流,无以成江河”。任何成功都不是一朝一夕就能完成的。没有快速通道,但是可以走捷径,我说的捷径就是指正确的方法和持之以恒的努力。掌握的正确的学习方法,坚持下去,就能成功。

就像我们工作一样,有好的导师指点的话,工作就轻松,能提前完成。所以在学习word和excel中我们要找到合适的“老师”,offfice办公软件可以分为新手、初级、中级和高级。对于新手,网上找一些入门视频看看,基本2天就能上手,有人问需要参加电脑初级班吗?个人认为没必要,网络时代,各样的入门基础教程满天飞。

看一些基础视频,office软件的各种菜单功能都了解了。然后就是中级,大部分人都停留在中级阶段,对于word而言,就是各种排版、页面设置、页眉、打印等。对于excel,光是函数一项,就千变万化,没有人敢说全部掌握,很多东西只有在应用中才能学会,平时可以看一些论坛或者公众号,现在手机看新闻很方便,每天坚持看半个小时相关资料,循序渐进,学以致用,不要等到用的时候在去学,长期坚持就会发现自己的office水平默默的比周围人提高了。

回答:

Sub Top10Filter()
    ' Top 12 Revenue Records
    Worksheets("SalesReport").Select
    Range("A1").AutoFilter
    Range("A1").AutoFilter Field:=6, Criteria1:="12",Operator:=xlTop10Items
End Sub

澳门新浦京娱乐场网站 24 返回目录

澳门新浦京娱乐场网站 25

14.分类汇总

先选中一个区域 - 数据 – 分级显示中的组合

………………………………………………………………………组合 – 自动建立分级显示

数据 – 分类汇总

office学习不是一朝一夕就能成高手的,不过入门的话可以在一个月内入门

建议还是报网络培训班来学习,比如网易云课堂、腾讯课堂等,里面都有非常系统的课程,再通过工作中的应该来提高技能,相信只要有兴趣或者工作需要,每个人都可以成为office应用高手的。

澳门新浦京娱乐场网站 26

回答:

系统学习固然好,但是我认为多实践才是硬道理。系统学习了,不经常用的功能很快就忘记了。

常用的功能几天就可以学会,不会的可以搜索引擎搜索一下。基本的应用在网上都能找到,遇到什么问题查什么问题,这样才能记得牢固。

希望可以帮到你,有什么问题可以在再问我。

回答:

只要功夫深铁杵磨成针,每一项技能,想要达到熟练的技巧,肯定是在多次反复的练习中学习到的,多找找练习,看一些大手的视频,肯定会很快入门的。

 

 CountA

注意粘贴到Word的时候选择只保留文本那个选项,不然word无法添加拼音

15.数据

获取外部数据

排序和筛选

数据工具

分类汇总

排序筛选

要先变成一个数据清单或者data table

插入 表 选中区域

数据清单 = 数据表

这时出现 上下文菜单

然后就可以排序了 在标题栏旁边有个三角 可以选择如何排序

选中区域 数据 排序

次序里有个自定义序列 可以自己设置排序方法

排序后会在小箭头旁边出现一个向上或者向下的箭头

筛选
在小箭头里面有 筛选 这是 小箭头旁边出现沙漏

数字筛选 中 可以自定义筛选的数字的范围

没有被筛选出的部分 被隐藏了 选不中

文本筛选 自定义筛选 需要搭配通配符 (*/?)

转意符号~假如想在筛选中有问号 需要写成~?

高级筛选

数据 高级 列表区域点一下然后在表中选中区域 条件区域 点一下然后 在表中选中写了条件的区域
比如说

年龄 年龄 年龄 武力

<=60 >=50 >=98

                   <=40

同一行之间是 不同行是

Sub MultiSelectFilter()
    Worksheets("SalesReport").Select
    Range("A1").AutoFilter
    Range("A1").AutoFilter Field:=4, Criteria1:=Array("A", "C", "E","F", "H"),Operator:=xlFilterValues
End Sub

  1. 1. 返回当前所选区域中非空单元格的数量 Sub CountNonBlankCells()              
        Dim myCount As Integer                  
        myCount = Application.CountA(Selection)
        MsgBox "The number of non-blank cell(s) in this selection is :  " & myCount, vbInformation, "Count Cells"
    End Sub

    Count函数返回当前所选区域中的所有单元格数量,而CountA函数则返回当前所选区域中非空单元格的数量。 

澳门新浦京娱乐场网站 27

16.数据工具与数据有效性

数据 分列 有两类 1.分隔符号2.固定宽度

选 分隔符号 下一步

勾选 空格 完成

选中分隔好的 ctrl c 然后 在 开始 粘贴下面的箭头点 选择性粘贴 转置

或者 选固定宽度 然后 自己设置多宽

然后 隐藏原始数据

然后 对转置好的 再来分列

分隔符号 设置为- OK

数据有效性

数据 - 数据有效性 输错了 停止/警告/提示

选择

数据有效性 允许- 序列 然后输入想要选的信息

 

澳门新浦京娱乐场网站 28 返回目录

第二:用PHONETIC函数取得拼音

17. 引用外部数据

数据 - 获取外部数据

比如 自网站 就把一个URL复制过去

数据来自网络 只要 数据刷新 就会更新网络上的数据

视图 窗口 冻结窗格

Sub DynamicAutoFilter()
    Worksheets("SalesReport").Select
    Range("A1").AutoFilter
    Range("A1").AutoFilter Field:=3,Criteria1:=xlFilterNextYear,Operator:=xlFilterDynamic
End Sub

 Evaluate

在C3单元格输入公式= =PHONETIC(B3),然后下拉公式,得到所有姓名拼音

18. 公式

“=” 表示是一个公式

组合公式 按 F9就可以换回数字

^指数符号

1 2&3 = 33 &是字符串运算符

1 (2&3)= 24

跨表引用 多维引用

跨工作簿引用

 

  1. 1. 使用Evaluate函数执行一个公式 Public Sub ConcatenateExample1()
       Dim X As String, Y As String
       X = "Jack "
       Y = "Smith"
       MsgBox Evaluate("CONCATENATE(""" & X & """,""" & Y & """)")
    End Sub

    Evaluate函数对给定的表达式进行公式运算,如果表达式匹配公式失败则抛出异常。示例中对公式Concatenate进行运算,该公式将给定的多个字符串连接起来。如下面这个例子用来判断当前单元格是否为空: Sub IsActiveCellEmpty()
       Dim stFunctionName As String
       Dim stCellReference As String
       stFunctionName = "ISBLANK"
       stCellReference = ActiveCell.Address
       MsgBox Evaluate(stFunctionName & "(" & stCellReference & ")")
    End Sub

澳门新浦京娱乐场网站 29

19. 公式 --- 绝对引用 相对引用

比如说 选中公式中的一部分(eg C5)然后按F4可以改成 “$C$5” 这就是 绝对引用 (后面的计算都不会随着填充的改变而改变)

制作九九乘法表

要定住哪个部分就在哪个部分前面加上绝对引用符号 $

=B$1*$A2

=B$1&""&$A2&"="&B$1$A2 显示出 1*1=1 双引号代表字符串

Sub FilterByIcon()
    Worksheets("SalesReport").Select
    Range("A1").AutoFilter
    Range("A1").AutoFilter Field:=6, _
        Criteria1:=ActiveWorkbook.IconSets(xl5ArrowsGray).Item(5),Operator:=xlFilterIcon
End Sub

澳门新浦京娱乐场网站 30 返回目录

第三:用substitute函数将拼音声调去掉(这一步视需求,如不需要删除声调可以忽略

20.函数基本 MAX SUM AVERAGE MIN

SUM(D6:G6) 函数名字(求和) 参数列表 D6到G6

一个含有公式的单元格可以粘贴到另外一个单元格 会自动计算

定义一个区域:选中一个区域后,在左上角可以设名字【也可以在公式,定义的名称 中设置】

区域的计算

区域分交集和并集

逗号是并集 空格是交集

 

 Excel to XML

在D3单元格输入公式=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(C3,"ā","a"),"á","a"),"ǎ","a"),"à","a"),"ē","e"),"é","e"),"ě","e"),"è","e"),"ī","i"),"í","i"),"ǐ","i"),"ì","i"),"ō","o"),"ó","o"),"ǒ","o"),"ò","o"),"ū","u"),"ú","u"),"ǔ","u"),"ù","u"),"ǖ","ü"),"ǘ","ü"),"ǚ","ü"),"ǜ","ü")

21.计数

COUNT 纯数数 COUNTA count文本

公式 - 自动求和 - 其他函数 countblank计算空白 countif(范围,条件) 计算满足条件的单元格数

去掉一个最高分 去掉一个最低分求平均 trimmmean(范围,去掉的比例)

选中函数的名字按F1 可以查看 该函数的帮助

Sub FilterByFillColor()
    Worksheets("SalesReport").Select
    Range("A1").AutoFilter
    Range("A1").AutoFilter Field:=6, Criteria1:=RGB(255, 0, 0), Operator:=xlFilterCellColor
End Sub

    1. 导入XML文件到Excel的一个例子 Sub OpenAdoFile() 
          Dim myRecordset As ADODB.Recordset 
          Dim objExcel As Excel.Application 
          Dim myWorkbook As Excel.Workbook 
          Dim myWorksheet As Excel.Worksheet 
          Dim StartRange As Excel.Range 
          Dim h as Integer 

        Set myRecordset = New ADODB.Recordset 

        myRecordset.Open "C:data.xml", "Provider=MSPersist" 

        Set objExcel = New Excel.Application 
        Set myWorkbook = objExcel.Workbooks.Add 
        Set myWorksheet = myWorkbook.ActiveSheet 
        objExcel.Visible = True 
            For h = 1 To myRecordset.Fields.Count 
                myWorksheet.Cells(1, h).Value = myRecordset.Fields(h - 1).Name 
            Next 
        Set StartRange = myWorksheet.Cells(2, 1) 
        StartRange.CopyFromRecordset myRecordset 
        myWorksheet.Range("A1").CurrentRegion.Select 
        myWorksheet.Columns.AutoFit 
        myWorkbook.SaveAs "C:ExcelReport.xls" 

        Set objExcel = Nothing 
        Set myRecordset = Nothing 
    End Sub

这个公式利用substitute函数把拼音中的字母为韵母的声调都替换成了不带声调的韵母,也就让拼音的声调去除了

22. 逻辑函数

逻辑关系 TRUE FALSE

公式 - 函数库中的插入函数 类别选择逻辑

and(2>1,3>2) flase

or(1<2,3>2) TURE

not(not(2>1)) true

IF 基本逻辑

if(logical test,value if true, value if false)

if(2>1,"Jige","bujige") --- jige

嵌套判断 =IF(A2>=60,IF(A2>=85,"优秀","及格"),"不及格")

IF配合计算

=IF("某单元格满足某条件",...,...)

IF配合公式

IF条件格式

开始 - 样式 - 条件格式 - 新建 使用公式确定...在编辑规则里写公式 下面格式设置格式

下面的程序是通过Excel的AutoFilter功能快速删除行的方法,供参考:

澳门新浦京娱乐场网站 31 返回目录

澳门新浦京娱乐场网站 32

23.文本函数

公式 - 文本函数 - LEN(返回字符串字符个数)

LEFT 从一个文本字符串的第一个字符开始返回指定个数的字符

LEFT(A1,1)

=LEFT(A1,1)&"老板" 字符串相加要用"&"

=IF(LEN(A1)=4,LEFT(A1,2)&"老板",LEFT(A1,1)&"老板")

截取身份证中的年龄

  • =RIGHT(LEFT(身份证号,10),4) 从左取10个再从右边取4个,截取出出身年龄

    = YEAR(NOW()) 然后单元格格式设置为常规 截取现在的年

    然后两者相减

  • 或者:=MID(身份证,从第几个开始取,取几个)

姓鲁,名肃,字子敬 / 复姓诸葛名瑾字子瑜

鲁 =IF(LEFT(A1,1)="复",MID(A1,3,2),MID(A1,2,1))

肃 =IF(LEFT(SUBSTITUTE(A16,",",""),1)="复",MID(SUBSTITUTE(A16,",",""),6,1),MID(SUBSTITUTE(A16,",",""),4,1))

子敬 =RIGHT(A16,2)

小写数字换成大写数字

123 设置单元格格式 特殊 中文大写数字

把左边的复制到右边 - 然后填充 - 复制单元格格式

Sub DeleteRows3()
    Dim lLastRow As Long       'Last row
    Dim rng As range
    Dim rngDelete As range
    'Freeze screen
    Application.ScreenUpdating = False
    'Insert dummy row for dummy field name
    Rows(1).Insert
    'Insert dummy field name
    range("C1").value = "Temp"
    With ActiveSheet
        .UsedRange
        lLastRow = .cells.SpecialCells(xlCellTypeLastCell).row
        Set rng = range("C1", cells(lLastRow, "C"))
        rng.AutoFilter Field:=1, Criteria1:="Mangoes"
        Set rngDelete = rng.SpecialCells(xlCellTypeVisible)
        rng.AutoFilter
        rngDelete.EntireRow.delete
        .UsedRange
    End With
End Sub

 Excel ADO

我是Excel奇妙之旅,专注于Excel知识和技能的分享,关注Excel奇妙之旅,带给你更多的实战技巧

24. 日期和时间

=TEXT(DATE(MID(B5,7,4),MID(B5,11,2),MID(B5,13,2)),"[DBNum1][$-804]yyyy年m月d日;@") --- 一九九四年十月十四日

TEXT函数的格式(文本,格式) 格式可以在设置单元格格式中自定义格式里复制

WEEKDAY 函数 returntype 为 2

取余函数 MOD(被除数,除数)

根据身份证后倒数第二个数 判断 男女 :如果是奇数则男,否则女

=IF(MOD(MID(B2,17,1),2)=1,"男","女")

根据身份证号判断是否闰年

=IF(OR(MOD(D2,400)=0,AND(MOD(D2,4)=0,MOD(D2,100)<>0)),"闰年","平年")

澳门新浦京娱乐场网站 33 返回目录

    1. 使用ADO打开Excel Sub Open_ExcelSpread()
         Dim conn As ADODB.Connection
         Set conn = New ADODB.Connection
         conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
             "Data Source=" & CurrentProject.Path & _
             "Report.xls;" & _
             "Extended Properties=Excel 8.0;"
         conn.Close
         Set conn = Nothing
      End Sub
    1. 使用SQL语句在用ADO打开的Excel中插入一行数据 Public Sub WorksheetInsert()
        Dim Connection As ADODB.Connection
        Dim ConnectionString As String
        ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "Sales.xls;" & _
          "Extended Properties=Excel 8.0;"
          
        Dim SQL As String
          
        SQL = "INSERT INTO [Sales$] VALUES('VA', 'On', 'Computers', 'Mid', 30)"

      Set Connection = New ADODB.Connection
      Call Connection.Open(ConnectionString)
        
      Call Connection.Execute(SQL, , CommandTypeEnum.adCmdText Or ExecuteOptionEnum.adExecuteNoRecords)
      Connection.Close
      Set Connection = Nothing
    End Sub

    1. 使用ADO从Access读取数据到Excel Public Sub SavedQuery()
          
        Dim Field As ADODB.Field
        Dim Recordset As ADODB.Recordset
        Dim Offset As Long
          
        Const ConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:mydb.mdb;Persist Security Info=False"
          
        Set Recordset = New ADODB.Recordset
        Call Recordset.Open("[Sales By Category]", ConnectionString, _
          CursorTypeEnum.adOpenForwardOnly, LockTypeEnum.adLockReadOnly, _
          CommandTypeEnum.adCmdTable)

      If Not Recordset.EOF Then
        With Sheet1.Range("A1")
          For Each Field In Recordset.Fields
            .Offset(0, Offset).Value = Field.Name
            Offset = Offset   1
          Next Field
          .Resize(1, Recordset.Fields.Count).Font.Bold = True
        End With
        Call Sheet1.Range("A2").CopyFromRecordset(Recordset)
        Sheet1.UsedRange.EntireColumn.AutoFit
      Else
        Debug.Print "Error: No records returned."
      End If
      Recordset.Close
      Set Recordset = Nothing
    End Sub

    注意其中的CopyFromRecordSet方法,它可以从RecordSet中将数据直接读取到Excel的Range中,这比自己编写代码通过循环去填充Cell值要方便很多。如下面的方法就是通过循环读取值,然后通过Debug语句将读取到的值打印在Immediate窗口中。 Sub openWorksheet()
       Dim myConnection As New ADODB.Connection
       Dim myRecordset As ADODB.Recordset
       
       myConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
          "Data Source=C:myCustomers.xls;" & _
          "Extended Properties=Excel 8.0;"

          Set myRecordset = New ADODB.Recordset
          myRecordset.Open "customers", myConnection, , , adCmdTable

          Do Until myRecordset.EOF
             Debug.Print myRecordset("txtNumber"), myRecordset("txtBookPurchased")
             myRecordset.MoveNext
          Loop
    End Sub

    1. 将Access中的数据读取到Excel的一个例子 Sub ExcelExample()
          Dim r As Integer, f As Integer
          Dim vrecs As Variant
          Dim rs As ADODB.Recordset
          Dim cn As ADODB.Connection
          Dim fld As ADODB.Field
          Set cn = New ADODB.Connection
          cn.Provider = "Microsoft OLE DB Provider for ODBC Drivers"
          cn.ConnectionString = "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=C:mydb.mdb;"
          cn.Open
          Debug.Print cn.ConnectionString
          Set rs = New ADODB.Recordset
          rs.CursorLocation = adUseClient
          rs.Open "SELECT * FROM Employees", cn, adOpenDynamic, adLockOptimistic
          For Each fld In rs.Fields
              Debug.Print fld.Name,
          Next
          Debug.Print
          vrecs = rs.GetRows(6)
          For r = 0 To UBound(vrecs, 1)
              For f = 0 To UBound(vrecs, 2)
                  Debug.Print vrecs(f, r),
              Next
              Debug.Print
          Next
          Debug.Print "adAddNew: " & rs.Supports(adAddNew)
          Debug.Print "adBookmark: " & rs.Supports(adBookmark)
          Debug.Print "adDelete: " & rs.Supports(adDelete)
          Debug.Print "adFind: " & rs.Supports(adFind)
          Debug.Print "adUpdate: " & rs.Supports(adUpdate)
          Debug.Print "adMovePrevious: " & rs.Supports(adMovePrevious)
          
          rs.Close
          cn.Close
          
      End Sub

    读者可以自行创建测试环境运行这段代码(可根据需要做适当修改),其中程序将各种值打印到Immediate窗口中了。

回答:

25.VLOOKUP函数 查找

公式 查找和引用

VLOOKUP 列查找 HLOOKUP行查找

VLOOKUP 待查找的值所在的单元格---在什么区域查找---在所选中的区域中第几列,列代码---是否需要精确匹配(TRUE或不填近似匹配,FLASE精确匹配

出现问题到区域里面去查找 ,注意区域是否要绝对引用

=VLOOKUP(E18,F5:G10,2,FLASE)

  • 根据身份证号判断男女

    =IF(MOD(LEFT(RIGHT(身份证,2),1),2)=0,"女","男")

  • 根据身份证算年龄

    =IF(LEN(D19)=18,YEAR(NOW())-MID(D19,7,4),YEAR(NOW())-MID(D19,7,2)-1900)

模糊查找

 Binding

澳门新浦京娱乐场网站 34 返回目录

EXCEL如何自动将姓名转换为拼音?

感谢悟空小秘的邀请!

EXCEL如何自动将姓名转换为拼音,由于EXCEL中没有汉字自动转换拼音的功能,所以要在VBA中自定义一个转换函数。

具体操作步骤

第一步,要把EXCEL文档转换为 XLSM格式,启用宏。

澳门新浦京娱乐场网站 35

第二步,在文件,设置,自定义功能区中勾选开发工具。

澳门新浦京娱乐场网站 36

第三步,打开VBA编辑器。

澳门新浦京娱乐场网站 37

第四步,插入模块。

澳门新浦京娱乐场网站 38

第五步,在模块中输入如下代码:

Function pinyin(p As String) As String

i = Asc(p)

Select Case i

Case -20319 To -20318: pinyin = "a "

Case -20317 To -20305: pinyin = "ai "

Case -20304 To -20296: pinyin = "an "

Case -20295 To -20293: pinyin = "ang "

Case -20292 To -20284: pinyin = "ao "

Case -20283 To -20266: pinyin = "ba "

Case -20265 To -20258: pinyin = "bai "

Case -20257 To -20243: pinyin = "ban "

Case -20242 To -20231: pinyin = "bang "

Case -20230 To -20052: pinyin = "bao "

Case -20051 To -20037: pinyin = "bei "

Case -20036 To -20033: pinyin = "ben "

Case -20032 To -20027: pinyin = "beng "

Case -20026 To -20003: pinyin = "bi "

Case -20002 To -19991: pinyin = "bian "

Case -19990 To -19987: pinyin = "biao "

Case -19986 To -19983: pinyin = "bie "

Case -19982 To -19977: pinyin = "bin "

Case -19976 To -19806: pinyin = "bing "

Case -19805 To -19785: pinyin = "bo "

Case -19784 To -19776: pinyin = "bu "

Case -19775 To -19775: pinyin = "ca "

Case -19774 To -19764: pinyin = "cai "

Case -19763 To -19757: pinyin = "can "

Case -19756 To -19752: pinyin = "cang "

Case -19751 To -19747: pinyin = "cao "

Case -19746 To -19742: pinyin = "ce "

Case -19741 To -19740: pinyin = "ceng "

Case -19739 To -19729: pinyin = "cha "

Case -19728 To -19726: pinyin = "chai "

Case -19725 To -19716: pinyin = "chan "

Case -19715 To -19541: pinyin = "chang "

Case -19540 To -19532: pinyin = "chao "

Case -19531 To -19526: pinyin = "che "

Case -19525 To -19516: pinyin = "chen "

Case -19515 To -19501: pinyin = "cheng "

Case -19500 To -19485: pinyin = "chi "

Case -19484 To -19480: pinyin = "chong "

Case -19479 To -19468: pinyin = "chou "

Case -19467 To -19290: pinyin = "chu "

Case -19289 To -19289: pinyin = "chuai "

Case -19288 To -19282: pinyin = "chuan "

Case -19281 To -19276: pinyin = "chuang "

Case -19275 To -19271: pinyin = "chui "

Case -19270 To -19264: pinyin = "chun "

Case -19263 To -19262: pinyin = "chuo "

Case -19261 To -19250: pinyin = "ci "

Case -19249 To -19244: pinyin = "cong "

Case -19243 To -19243: pinyin = "cou "

Case -19242 To -19239: pinyin = "cu "

Case -19238 To -19236: pinyin = "cuan "

Case -19235 To -19228: pinyin = "cui "

Case -19227 To -19225: pinyin = "cun "

Case -19224 To -19219: pinyin = "cuo "

Case -19218 To -19213: pinyin = "da "

Case -19212 To -19039: pinyin = "dai "

Case -19038 To -19024: pinyin = "dan "

Case -19023 To -19019: pinyin = "dang "

Case -19018 To -19007: pinyin = "dao "

Case -19006 To -19004: pinyin = "de "

Case -19003 To -18997: pinyin = "deng "

Case -18996 To -18978: pinyin = "di "

Case -18977 To -18962: pinyin = "dian "

Case -18961 To -18953: pinyin = "diao "

Case -18952 To -18784: pinyin = "die "

Case -18783 To -18775: pinyin = "ding "

Case -18774 To -18774: pinyin = "diu "

Case -18773 To -18527: pinyin = "dong "

Case -18526 To -18519: pinyin = "fa "

Case -18518 To -18502: pinyin = "fan "

Case -18501 To -18491: pinyin = "fang "

Case -18490 To -18479: pinyin = "fei "

Case -18478 To -18464: pinyin = "fen "

Case -18463 To -18449: pinyin = "feng "

Case -18448 To -18448: pinyin = "fo "

Case -18447 To -18447: pinyin = "fou "

Case -18446 To -18240: pinyin = "fu "

Case -18239 To -18238: pinyin = "ga "

Case -18237 To -18232: pinyin = "gai "

Case -18231 To -18221: pinyin = "gan "

Case -18220 To -18212: pinyin = "gang "

Case -18211 To -18202: pinyin = "gao "

Case -18201 To -18185: pinyin = "ge "

Case -18184 To -18184: pinyin = "gei "

Case -18183 To -18182: pinyin = "gen "

Case -18181 To -18013: pinyin = "geng "

Case -18012 To -17998: pinyin = "gong "

Case -17997 To -17989: pinyin = "gou "

Case -17988 To -17971: pinyin = "gu "

Case -17970 To -17965: pinyin = "gua "

Case -17964 To -17962: pinyin = "guai "

Case -17961 To -17951: pinyin = "guan "

Case -17950 To -17948: pinyin = "guang "

Case -17947 To -17932: pinyin = "gui "

Case -17931 To -17929: pinyin = "gun "

Case -17928 To -17923: pinyin = "guo "

Case -17922 To -17760: pinyin = "ha "

Case -17759 To -17753: pinyin = "hai "

Case -17752 To -17734: pinyin = "han "

Case -17733 To -17731: pinyin = "hang "

Case -17730 To -17722: pinyin = "hao "

Case -17721 To -17704: pinyin = "he "

Case -17703 To -17702: pinyin = "hei "

Case -17701 To -17698: pinyin = "hen "

Case -17697 To -17693: pinyin = "heng "

Case -17692 To -17684: pinyin = "hong "

Case -17683 To -17677: pinyin = "hou "

Case -17676 To -17497: pinyin = "hu "

Case -17496 To -17488: pinyin = "hua "

Case -17487 To -17483: pinyin = "huai "

Case -17482 To -17469: pinyin = "huan "

Case -17468 To -17455: pinyin = "huang "

Case -17454 To -17434: pinyin = "hui "

Case -17433 To -17428: pinyin = "hun "

Case -17427 To -17418: pinyin = "huo "

Case -17417 To -17203: pinyin = "ji "

Case -17202 To -17186: pinyin = "jia "

Case -17185 To -16984: pinyin = "jian "

Case -16983 To -16971: pinyin = "jiang "

Case -16970 To -16943: pinyin = "jiao "

Case -16942 To -16916: pinyin = "jie "

Case -16915 To -16734: pinyin = "jin "

Case -16733 To -16709: pinyin = "jing "

Case -16708 To -16707: pinyin = "jiong "

Case -16706 To -16690: pinyin = "jiu "

Case -16689 To -16665: pinyin = "ju "

Case -16664 To -16658: pinyin = "juan "

Case -16657 To -16648: pinyin = "jue "

Case -16647 To -16475: pinyin = "jun "

Case -16474 To -16471: pinyin = "ka "

Case -16470 To -16466: pinyin = "kai "

Case -16465 To -16460: pinyin = "kan "

Case -16459 To -16453: pinyin = "kang "

Case -16452 To -16449: pinyin = "kao "

Case -16448 To -16434: pinyin = "ke "

Case -16433 To -16430: pinyin = "ken "

Case -16429 To -16428: pinyin = "keng "

Case -16427 To -16424: pinyin = "kong "

Case -16423 To -16420: pinyin = "kou "

Case -16419 To -16413: pinyin = "ku "

Case -16412 To -16408: pinyin = "kua "

Case -16407 To -16404: pinyin = "kuai "

Case -16403 To -16402: pinyin = "kuan "

Case -16401 To -16394: pinyin = "kuang "

Case -16393 To -16221: pinyin = "kui "

Case -16220 To -16217: pinyin = "kun "

Case -16216 To -16213: pinyin = "kuo "

Case -16212 To -16206: pinyin = "la "

Case -16205 To -16203: pinyin = "lai "

Case -16202 To -16188: pinyin = "lan "

Case -16187 To -16181: pinyin = "lang "

Case -16180 To -16172: pinyin = "lao "

Case -16171 To -16170: pinyin = "le "

Case -16169 To -16159: pinyin = "lei "

Case -16158 To -16156: pinyin = "leng "

Case -16155 To -15960: pinyin = "li "

Case -15959 To -15959: pinyin = "lia "

Case -15958 To -15945: pinyin = "lian "

Case -15944 To -15934: pinyin = "liang "

Case -15933 To -15921: pinyin = "liao "

Case -15920 To -15916: pinyin = "lie "

Case -15915 To -15904: pinyin = "lin "

Case -15903 To -15890: pinyin = "ling "

Case -15889 To -15879: pinyin = "liu "

Case -15878 To -15708: pinyin = "long "

Case -15707 To -15702: pinyin = "lou "

Case -15701 To -15682: pinyin = "lu "

Case -15681 To -15668: pinyin = "lv "

Case -15667 To -15662: pinyin = "luan "

Case -15661 To -15660: pinyin = "lue "

Case -15659 To -15653: pinyin = "lun "

Case -15652 To -15641: pinyin = "luo "

Case -15640 To -15632: pinyin = "ma "

Case -15631 To -15626: pinyin = "mai "

Case -15625 To -15455: pinyin = "man "

Case -15454 To -15449: pinyin = "mang "

Case -15448 To -15437: pinyin = "mao "

Case -15436 To -15436: pinyin = "me "

Case -15435 To -15420: pinyin = "mei "

Case -15419 To -15417: pinyin = "men "

Case -15416 To -15409: pinyin = "meng "

Case -15408 To -15395: pinyin = "mi "

Case -15394 To -15386: pinyin = "mian "

Case -15385 To -15378: pinyin = "miao "

Case -15377 To -15376: pinyin = "mie "

Case -15375 To -15370: pinyin = "min "

Case -15369 To -15364: pinyin = "ming "

Case -15363 To -15363: pinyin = "miu "

Case -15362 To -15184: pinyin = "mo "

Case -15183 To -15181: pinyin = "mou "

Case -15180 To -15166: pinyin = "mu "

Case -15165 To -15159: pinyin = "na "

Case -15158 To -15154: pinyin = "nai "

Case -15153 To -15151: pinyin = "nan "

Case -15150 To -15150: pinyin = "nang "

Case -15149 To -15145: pinyin = "nao "

Case -15144 To -15144: pinyin = "ne "

Case -15143 To -15142: pinyin = "nei "

Case -15141 To -15141: pinyin = "nen "

Case -15140 To -15140: pinyin = "neng "

Case -15139 To -15129: pinyin = "ni "

Case -15128 To -15122: pinyin = "nian "

Case -15121 To -15120: pinyin = "niang "

Case -15119 To -15118: pinyin = "niao "

Case -15117 To -15111: pinyin = "nie "

Case -15110 To -15110: pinyin = "nin "

Case -15109 To -14942: pinyin = "ning "

Case -14941 To -14938: pinyin = "niu "

Case -14937 To -14934: pinyin = "nong "

Case -14933 To -14931: pinyin = "nu "

Case -14930 To -14930: pinyin = "nv "

Case -14929 To -14929: pinyin = "nuan "

Case -14928 To -14927: pinyin = "nue "

Case -14926 To -14923: pinyin = "nuo "

Case -14922 To -14922: pinyin = "o "

Case -14921 To -14915: pinyin = "ou "

Case -14914 To -14909: pinyin = "pa "

Case -14908 To -14903: pinyin = "pai "

Case -14902 To -14895: pinyin = "pan "

Case -14894 To -14890: pinyin = "pang "

Case -14889 To -14883: pinyin = "pao "

Case -14882 To -14874: pinyin = "pei "

Case -14873 To -14872: pinyin = "pen "

Case -14871 To -14858: pinyin = "peng "

Case -14857 To -14679: pinyin = "pi "

Case -14678 To -14675: pinyin = "pian "

Case -14674 To -14671: pinyin = "piao "

Case -14670 To -14669: pinyin = "pie "

Case -14668 To -14664: pinyin = "pin "

Case -14663 To -14655: pinyin = "ping "

Case -14654 To -14646: pinyin = "po "

Case -14645 To -14631: pinyin = "pu "

Case -14630 To -14595: pinyin = "qi "

Case -14594 To -14430: pinyin = "qia "

Case -14429 To -14408: pinyin = "qian "

Case -14407 To -14400: pinyin = "qiang "

Case -14399 To -14385: pinyin = "qiao "

Case -14384 To -14380: pinyin = "qie "

Case -14379 To -14369: pinyin = "qin "

Case -14368 To -14356: pinyin = "qing "

Case -14355 To -14354: pinyin = "qiong "

Case -14353 To -14346: pinyin = "qiu "

Case -14345 To -14171: pinyin = "qu "

Case -14170 To -14160: pinyin = "quan "

Case -14159 To -14152: pinyin = "que "

Case -14151 To -14150: pinyin = "qun "

Case -14149 To -14146: pinyin = "ran "

Case -14145 To -14141: pinyin = "rang "

Case -14140 To -14138: pinyin = "rao "

Case -14137 To -14136: pinyin = "re "

Case -14135 To -14126: pinyin = "ren "

Case -14125 To -14124: pinyin = "reng "

Case -14123 To -14123: pinyin = "ri "

Case -14122 To -14113: pinyin = "rong "

Case -14112 To -14110: pinyin = "rou "

Case -14109 To -14100: pinyin = "ru "

Case -14099 To -14098: pinyin = "ruan "

Case -14097 To -14095: pinyin = "rui "

Case -14094 To -14093: pinyin = "run "

Case -14092 To -14091: pinyin = "ruo "

Case -14090 To -14088: pinyin = "sa "

Case -14087 To -14084: pinyin = "sai "

Case -14083 To -13918: pinyin = "san "

Case -13917 To -13915: pinyin = "sang "

Case -13914 To -13911: pinyin = "sao "

Case -13910 To -13908: pinyin = "se "

Case -13907 To -13907: pinyin = "sen "

Case -13906 To -13906: pinyin = "seng "

Case -13905 To -13897: pinyin = "sha "

Case -13896 To -13895: pinyin = "shai "

Case -13894 To -13879: pinyin = "shan "

Case -13878 To -13871: pinyin = "shang "

Case -13870 To -13860: pinyin = "shao "

Case -13859 To -13848: pinyin = "she "

Case -13847 To -13832: pinyin = "shen "

Case -13831 To -13659: pinyin = "sheng "

Case -13658 To -13612: pinyin = "shi "

Case -13611 To -13602: pinyin = "shou "

Case -13601 To -13407: pinyin = "shu "

Case -13406 To -13405: pinyin = "shua "

Case -13404 To -13401: pinyin = "shuai "

Case -13400 To -13399: pinyin = "shuan "

Case -13398 To -13396: pinyin = "shuang "

Case -13395 To -13392: pinyin = "shui "

Case -13391 To -13388: pinyin = "shun "

Case -13387 To -13384: pinyin = "shuo "

Case -13383 To -13368: pinyin = "si "

Case -13367 To -13360: pinyin = "song "

Case -13359 To -13357: pinyin = "sou "

Case -13356 To -13344: pinyin = "su "

Case -13343 To -13341: pinyin = "suan "

Case -13340 To -13330: pinyin = "sui "

Case -13329 To -13327: pinyin = "sun "

Case -13326 To -13319: pinyin = "suo "

Case -13318 To -13148: pinyin = "ta "

Case -13147 To -13139: pinyin = "tai "

Case -13138 To -13121: pinyin = "tan "

Case -13120 To -13108: pinyin = "tang "

Case -13107 To -13097: pinyin = "tao "

Case -13096 To -13096: pinyin = "te "

Case -13095 To -13092: pinyin = "teng "

Case -13091 To -13077: pinyin = "ti "

Case -13076 To -13069: pinyin = "tian "

Case -13068 To -13064: pinyin = "tiao "

Case -13063 To -13061: pinyin = "tie "

Case -13060 To -12889: pinyin = "ting "

Case -12888 To -12876: pinyin = "tong "

Case -12875 To -12872: pinyin = "tou "

Case -12871 To -12861: pinyin = "tu "

Case -12860 To -12859: pinyin = "tuan "

Case -12858 To -12853: pinyin = "tui "

Case -12852 To -12850: pinyin = "tun "

Case -12849 To -12839: pinyin = "tuo "

Case -12838 To -12832: pinyin = "wa "

Case -12831 To -12830: pinyin = "wai "

Case -12829 To -12813: pinyin = "wan "

Case -12812 To -12803: pinyin = "wang "

Case -12802 To -12608: pinyin = "wei "

Case -12607 To -12598: pinyin = "wen "

Case -12597 To -12595: pinyin = "weng "

Case -12594 To -12586: pinyin = "wo "

Case -12585 To -12557: pinyin = "wu "

Case -12556 To -12360: pinyin = "xi "

Case -12359 To -12347: pinyin = "xia "

Case -12346 To -12321: pinyin = "xian "

Case -12320 To -12301: pinyin = "xiang "

Case -12300 To -12121: pinyin = "xiao "

Case -12120 To -12100: pinyin = "xie "

Case -12099 To -12090: pinyin = "xin "

Case -12089 To -12075: pinyin = "xing "

Case -12074 To -12068: pinyin = "xiong "

Case -12067 To -12059: pinyin = "xiu "

Case -12058 To -12040: pinyin = "xu "

Case -12039 To -11868: pinyin = "xuan "

Case -11867 To -11862: pinyin = "xue "

Case -11861 To -11848: pinyin = "xun "

Case -11847 To -11832: pinyin = "ya "

Case -11831 To -11799: pinyin = "yan "

Case -11798 To -11782: pinyin = "yang "

Case -11781 To -11605: pinyin = "yao "

Case -11604 To -11590: pinyin = "ye "

Case -11589 To -11537: pinyin = "yi "

Case -11536 To -11359: pinyin = "yin "

Case -11358 To -11341: pinyin = "ying "

Case -11340 To -11340: pinyin = "yo "

Case -11339 To -11325: pinyin = "yong "

Case -11324 To -11304: pinyin = "you "

Case -11303 To -11098: pinyin = "yu "

Case -11097 To -11078: pinyin = "yuan "

Case -11077 To -11068: pinyin = "yue "

Case -11067 To -11056: pinyin = "yun "

Case -11055 To -11053: pinyin = "za "

Case -11052 To -11046: pinyin = "zai "

Case -11045 To -11042: pinyin = "zan "

Case -11041 To -11039: pinyin = "zang "

Case -11038 To -11025: pinyin = "zao "

Case -11024 To -11021: pinyin = "ze "

Case -11020 To -11020: pinyin = "zei "

Case -11019 To -11019: pinyin = "zen "

Case -11018 To -11015: pinyin = "zeng "

Case -11014 To -10839: pinyin = "zha "

Case -10838 To -10833: pinyin = "zhai "

Case -10832 To -10816: pinyin = "zhan "

Case -10815 To -10801: pinyin = "zhang "

Case -10800 To -10791: pinyin = "zhao "

Case -10790 To -10781: pinyin = "zhe "

Case -10780 To -10765: pinyin = "zhen "

Case -10764 To -10588: pinyin = "zheng "

Case -10587 To -10545: pinyin = "zhi "

Case -10544 To -10534: pinyin = "zhong "

Case -10533 To -10520: pinyin = "zhou "

Case -10519 To -10332: pinyin = "zhu "

Case -10331 To -10330: pinyin = "zhua "

Case -10329 To -10329: pinyin = "zhuai "

Case -10328 To -10323: pinyin = "zhuan "

Case -10322 To -10316: pinyin = "zhuang "

Case -10315 To -10310: pinyin = "zhui "

Case -10309 To -10308: pinyin = "zhun "

Case -10307 To -10297: pinyin = "zhuo "

Case -10296 To -10282: pinyin = "zi "

Case -10281 To -10275: pinyin = "zong "

Case -10274 To -10271: pinyin = "zou "

Case -10270 To -10263: pinyin = "zu "

Case -10262 To -10261: pinyin = "zuan "

Case -10260 To -10257: pinyin = "zui "

Case -10256 To -10255: pinyin = "zun "

Case -10254 To -10254: pinyin = "zuo "

Case Else: pinyin = p

End Select

End Function

Function getpy(str)

For i = 1 To Len(str)

getpy = getpy & pinyin(Mid(str, i, 1))

Next i

End Function

澳门新浦京娱乐场网站 39

第六步,输入拼音转换函数。

澳门新浦京娱乐场网站 40

快速复制函数完成转换。

澳门新浦京娱乐场网站 41

EXCEL如何自动将姓名转换为拼音操作演示完成。

26.引用函数

index 在矩阵里找

INDEX(区域,行数,列数) --- =INDEX(A1:C7,1,1)

offset 函数 移位

=OFFSET(某单元格移动起点做为,移动几行,移动几列,(height),(width)) 默认是没有后面两个参数的

eg. =SUM(OFFSET(B13,1,3,2,2) 向下移动1行,3列,然后是一个2*2的矩阵

数据有效性 - 序列 可以设置下拉式列表

MATCH函数

=MATCH(查找的某单元格,列区域,matchtype(0精确匹配,1小于,-1大于))

    1. 一个使用早期Binging的例子 Sub EarlyBinding()
          Dim objExcel As Excel.Application
          Set objExcel = New Excel.Application
          With objExcel
              .Visible = True
              .Workbooks.Add
              .Range("A1") = "Hello World"
          End With
      End Sub
    1. 使用CreateObject创建Excel实例 Sub LateBinding()

        'Declare a generic object variable
        Dim objExcel As Object

        'Point the object variable at an Excel application object
        Set objExcel = CreateObject("Excel.Application")

        'Set properties and execute methods of the object
        With objExcel
            .Visible = True
            .Workbooks.Add
            .Range("A1") = "Hello World"
        End With

    End Sub

    1. 使用CreateObject创建指定版本的Excel实例 Sub mate()
          Dim objExcel As Object

        Set objExcel = CreateObject("Excel.Application.8")
    End Sub

 Excel to Text File

李老师简介:创办电脑学校,专职从事电脑教学二十余年。

27.数组函数

新技巧

选中一个区域,然后输入一个数字 , 然后按住ctrl 再按回车,这个区域就全部都是这个数了

类似的,先把某列第一个单元格的公式复制了,然后选中这列其余的单元格,在上面讲公式复制后,按住CTRL ENTER,那么其余的就填充好了

FREQUENCY函数在公式 - 其他函数 - 统计 -FREQUENCY

=FREQUENCY(用来计算频率的数组,区间即分段点)【ctrl shift enter获得结果】

注意绝对引用

返回值是数组

              当Create对象实例之后,就可以使用该对象的所有属性和方法了,如SaveAs方法、Open方法、Application属性等。

    1. 使用TextToColumns方法  Private Sub CommandButton1_Click()
          Dim rg As Range
          Set rg = ThisWorkbook.Worksheets("Sheet3").Range("a20").CurrentRegion
          CSVTextToColumns rg, rg.Offset(0, 2)
          'CSVTextToColumns rg
          Set rg = Nothing
      End Sub

    Sub CSVTextToColumns(rg As Range, Optional rgDestination As Range)
        If IsMissing(rgDestination) Or rgDestination Is Nothing Then
            rg.TextToColumns , xlDelimited, , , , , True
        Else
            rg.TextToColumns rgDestination, xlDelimited, , , , , True
        End If
    End Sub

    Range.TextToColumns方法用于将包含文本的一列单元格分解为若干列,有关该方法的详细介绍,读者可以参考Excel的帮助信息,在Excel的帮助信息中搜索TextToColumns即可。示例中的代码将Sheet3中A20单元格所在的当前区域(可以简单地理解为A1:A20的区域)的内容通过TextToColumns方法复制到第三列中,这个由Offset的值决定。如果要演示该示例,读者可以在Excel中创建一个名称为Sheet3的工作表,然后在A1至A20的单元格中输入值,复制代码到Excel VBA工程中,通过按钮触发Click事件。

    1. 导出Range中的数据到文本文件 Sub ExportRange()
          FirstCol = 1
          LastCol = 3
          FirstRow = 1
          LastRow = 3
          
          Open ThisWorkbook.Path & "textfile.txt" For Output As #1
              For r = FirstRow To LastRow
                  For c = FirstCol To LastCol
                      Dim vData As Variant
                      vData = Cells(r, c).value
                      If IsNumeric(vData) Then vData = Val(vData)
                      If c <> LastCol Then
                          Write #1, vData;
                      Else
                          Write #1, vData
                      End If
                  Next c
              Next r
          Close #1
      End Sub
    1. 从文本文件导入数据到Excel Private Sub CommandButton1_Click()
          Set ImpRng = ActiveCell
          Open "c:textfile.txt" For Input As #1
          txt = ""
          Application.ScreenUpdating = False
          Do While Not EOF(1)
              Line Input #1, vData
              ImpRng.Value = vData
              Set ImpRng = ImpRng.Offset(1, 0)
          Loop
          Close #1
          Application.ScreenUpdating = True
      End Sub

    示例从c:textfile.txt文件中按行读取数据并依次显示到当前Sheet的单元格中。

头条号:李老师电脑教学课堂,简单实用,清晰明了,专门系统讲解电脑知识,软件使用技巧,欢迎关注。

回答:

目前用Excel需要使用VBA来实现,操作过于复杂,在小白不懂的情况下,也可能会有安全性问题。

建议换一种思路,那就是利用网站来完成拼音转换后,再粘贴回Excel中。操作步骤如下:

28. rank函数

公式 - 其他函数 - 统计 - rank

=rank(哪一格,在哪一个区域,0或不填降序/1升序)

注意绝对引用

澳门新浦京娱乐场网站 42 返回目录

澳门新浦京娱乐场网站 43 返回目录

打开转换网址

29.RANK函数

=RANK(LOOKUP(B2,$D$11:$E$12),$C$2:$C$7,1) 【注意绝对】引用

 Cell Comments

 Excel Toolbar

操作步骤如下

澳门新浦京娱乐场网站 44

回答:

网上有不少用VBA制成的自定义函数,搜索下姓名转拼音可以找到好多的。然后可以像使用普通工作表函数那样使用,生僻字保证不了,但3000常用汉字准确率还是非常高的

30. 图表 柱形图

选中区域 插入 图表

点一下 是选中所有同一颜色的 再点一下就是选中某一个 柱子

在图标上 右键 选择数据可以改行名称/列名称 、删除行列、 增加行列、 编辑行列

右键 移动图标 、 三维旋转、 更改图表类型 设置图表区格式

选择网格线 右键 可以设置网格线的格式

还可以设置 绘图区 背景墙 地板 数据点 图例 坐标轴 的格式

布局

    1. 获取单元格的备注

    Private Sub CommandButton1_Click()
        Dim strGotIt As String
        strGotIt = WorksheetFunction.Clean(Range("A1").Comment.Text)
        MsgBox strGotIt
    End Sub

    Range.Comment.Text用于得到单元格的备注文本,如果当前单元格没有添加备注,则会引发异常。注意代码中使用了WorksheetFunction对象,该对象是Excel的系统对象,它提供了很多系统函数,这里用到的Clean函数用于清楚指定文本中的所有关键字(特殊字符),具体信息可以查阅Excel自带的帮助文档,里面提供的函数非常多。下面是一个使用Application.WorksheetFunction.Substitute函数的例子,其中第一个Substitute将给定的字符串中的author:替换为空字符串,第二个Substitute将给定的字符串中的空格替换为空字符串。

    Private Function CleanComment(author As String, cmt As String) As String
        Dim tmp As String

        tmp = Application.WorksheetFunction.Substitute(cmt, author & ":", "")
        tmp = Application.WorksheetFunction.Substitute(tmp, Chr(10), "")

        CleanComment = tmp
    End Function

    1. 修改Excel单元格内容时自动给单元格添加Comments信息 Private Sub Worksheet_Change(ByVal Target As Excel.Range)
          Dim newText As String
          Dim oldText As String
          
          For Each cell In Target
              With cell
                  On Error Resume Next
                  oldText = .Comment.Text
                  If Err <> 0 Then .AddComment
                  newText = oldText & " Changed by " & Application.UserName & " at " & Now & vbLf
                  MsgBox newText
                  .Comment.Text newText
                  .Comment.Visible = True
                  .Comment.Shape.Select
                   Selection.AutoSize = True
                  .Comment.Visible = False
              End With
          Next cell
      End Sub

    Comments内容可以根据需要自己修改,Worksheet_Change方法在Worksheet单元格内容被修改时执行。

    1. 改变Comment标签的显示状态 Sub ToggleComments()
          If Application.DisplayCommentIndicator = xlCommentAndIndicator Then
              Application.DisplayCommentIndicator = xlCommentIndicatorOnly
          Else
              Application.DisplayCommentIndicator = xlCommentAndIndicator
          End If
      End Sub

    Application.DisplayCommentIndicator有三种状态:xlCommentAndIndicator-始终显示Comment标签、xlCommentIndicatorOnly-当鼠标指向单元格的Comment pointer时显示Comment标签、xlNoIndicator-隐藏Comment标签和单元格的Comment pointer。

    1. 改变Comment标签的默认大小 Sub CommentFitter1()
          With Range("A1").Comment
              .Shape.Width = 150
              .Shape.Height = 300
          End With
      End Sub

    注意:旧版本中的Range.NoteText方法同样可以返回单元格中的Comment,按照Excel的帮助文档中的介绍,建议在新版本中统一使用Range.Comment方法。

  1. 通过VBA隐藏Excel中的Toolbars Sub HideAllToolbars()
        Dim TB As CommandBar
        Dim TBNum As Integer
        Dim mySheet As Worksheet
        Set mySheet = Sheets("mySheet")
        Application.ScreenUpdating = False

        mySheet.Cells.Clear
        
        TBNum = 0
        For Each TB In CommandBars
            If TB.Type = msoBarTypeNormal Then
                If TB.Visible Then
                    TBNum = TBNum   1
                    TB.Visible = False
                    mySheet.Cells(TBNum, 1) = TB.Name
                End If
            End If
        Next TB
        Application.ScreenUpdating = True
    End Sub

    1. 通过VBA恢复Excel中的Toolbars Sub RestoreToolbars()
          Dim mySheet As Worksheet
          Set mySheet = Sheets("mySheet")
          Application.ScreenUpdating = False

        On Error Resume Next
        For Each cell In mySheet.Range("A:A").SpecialCells(xlCellTypeConstants)
            CommandBars(cell.Value).Visible = True
        Next cell
        Application.ScreenUpdating = True
    End Sub

31. 饼图和折线图和雷达图

选择数据区域 - 可以设置饼图的相关格式 学会使用切换行列

雷达图

=VLOOKUP($A$7,$A$2:$G$4,COLUMN(B7),FALSE)

设置为下拉列表可以 显示每个人的雷达图

澳门新浦京娱乐场网站 45 返回目录

澳门新浦京娱乐场网站 46 返回目录

32. 动态图表

序列 和 图表结合在一起

=OFFSET($A$2,MATCH(G2,$A$2:$A$6,0)-1,MATCH($H$1,$B$1:$C$1,0))

 Cell Copy

33.数据透视图

选中区域 插入 数据透视表/数据透视图

透过一些数据找出规律

    1. 从一个Sheet中的Range拷贝数据到另一个Sheet中的Range Private Sub CommandButton1_Click()
          Dim myWorksheet As Worksheet
          Dim myWorksheetName As String
          
          myWorksheetName = "MyName"
          Sheets.Add.Name = myWorksheetName
          Sheets(myWorksheetName).Move After:=Sheets(Sheets.Count)
          Sheets("Sheet1").Range("A1:A5").Copy Sheets(myWorksheetName).Range("A1")
      End Sub

    Sheets.Add.Name = myWorksheetName用于在Sheets集合中添加名称为myWorksheetName的Sheet,Sheets(myWorksheetName).Move After:=Sheets(Sheets.Count)将刚刚添加的这个Sheet移到Sheets集合中最后一个元素的后面,最后Range.Copy方法将数据拷贝到新表中对应的单元格中。

34. 窗体

审阅 - 批注 拼写检查 繁体简体转换

**窗体 **

开发工具 - 插入 - 按钮

按住ctrl shift 再按每个按钮可以选中所有

然后右键 - 设置控件格式 - 控制 - 已选择 - 选一个单元格

开发工具 插入 复选框checkbox

澳门新浦京娱乐场网站 47 返回目录

35. VBA入门 - 自定义函数

VB 一种编程语言( = C# / C sharp)

VBA visual basic for application

VBS

扩展名必须是XLSM (另存为 - 启用宏的工作簿)

开发工具 visual basic - 插入 - 模块

Function AddOne(x As Range) 【As Double 参数列表 函数名字 返回值 】

'把单元格里面的内容取出来加一然后返回

AddOne = Val(x)   1  

End Function

在 VBA 的编辑页面 双击 一个函数 右键 - 定义 - 可以 看到函数的属性和相关介绍

Function getDelta(a As Range, b As Range, c As Range) As Double

'通过一元二次方程的一般式得到delta

getDelta = Val(b) * Val(b) - 4 * Val(a) * Val(c)

End Function

设置断点 和 添加监视

设置断点 - 在 VBA编辑页面 在代码的左边的竖线那里点一下 就出现一个红点

添加监视 双击想要监视的东西 右键 - 添加监视 / 删除监视

在下面的监视窗口 还可以 修改 表达式

调试 逐语句

 Cell Format

36.VBA条件结构

在VBA编辑页面 插入 模块

Function GetLevel(scroe As Double) As String

If score < 60 Then

    GetLevel = "不及格"

Else

    GetLevel = "及格"

End If

End Function


Function GetLevel(scroe As Double) As String

If score < 60 Then

    GetLevel = "不及格"

Else

    If score < 85 Then

        GetLevel = "合格"

    Else

        GetLevel = "优秀"

End If

End Function


    1. 设置单元格文字的颜色 Sub fontColor()
          Cells.Font.Color = vbRed
      End Sub

    Color的值可以通过RGB(0,225,0)这种方式获取,也可以使用Color常数:

    常数

    描述

    vbBlack 0x0 黑色
    vbRed 0xFF 红色
    vbGreen 0xFF00 绿色
    vbYellow 0xFFFF 黄色
    vbBlue 0xFF0000 蓝色
    vbMagenta 0xFF00FF 紫红色
    vbCyan 0xFFFF00 青色
    vbWhite 0xFFFFFF 白色
    1. 通过ColorIndex属性修改单元格字体的颜色
      通过上面的方法外,还可以通过指定Range.Font.ColorIndex属性来修改单元格字体的颜色,该属性表示了调色板中颜色的索引值,也可以指定一个常量,xlColorIndexAutomatic(-4105)为自动配色,xlColorIndexNone(-4142)表示无色。
    1. 一个Format单元格的例子 Sub cmd()
          Cells(1, "D").Value = "Text"
          Cells(1, "D").Select
          
          With Selection
              .Font.Bold = True
              .Font.Name = "Arial"
              .Font.Size = 72
              .Font.Color = RGB(0, 0, 255)  'Dark blue
              .Columns.AutoFit
              .Interior.Color = RGB(0, 255, 255) 'Cyan
              .Borders.Weight = xlThick
              .Borders.Color = RGB(0, 0, 255)  'Dark Blue
          End With
      End Sub
    1. 指定单元格的边框样式 Sub UpdateBorder
          range("A1").Borders(xlRight).LineStyle = xlLineStyleNone
          range("A1").Borders(xlLeft).LineStyle = xlContinuous
          range("A1").Borders(xlBottom).LineStyle = xlDashDot
          range("A1").Borders(xlTop).LineStyle = xlDashDotDot    
      End Sub

    如果要为Range的四个边框设置同样的样式,可以直接设置Range.Borders.LineStyle的值,该值为一个常数:

    名称

    描述

    xlContinuous 1 实线
    xlDash -4115 虚线
    xlDashDot 4 点划相间线
    xlDashDotDot 5 划线后跟两个点
    xlDot -4118 点式线
    xlDouble -4119 双线
    xlLineStyleNone -4142 无线
    xlSlantDashDot 13 倾斜的划线

37. 循环结构

Function Getsum() As Double

For i = 1 To 10

    Getsum = Getsum   i

Next

End Function


澳门新浦京娱乐场网站 48 返回目录

38. VBA 相关属性

开发工具 - 插入 - 按钮 - 新建 - 然后就有了一个新的模块


 Cell Number Format

让EXCEL飞

#N/A表示没有找到

在VLOOKUP中,第四个参数是否精确查找不要忽略

开启手动计算: 公式 - 计算 - 计算选项 - 手动 。使用完后调回自动

  1. 改变单元格数值的格式 Sub FormatCell()
        Dim myVar As Range
        Set myVar = Selection
        With myVar
            .NumberFormat = "#,##0.00_);[Red](#,##0.00)"
            .Columns.AutoFit
        End With

    End Sub

    单元格数值的格式有很多种,如数值、货币、日期等,具体的格式指定样式可以通过录制Excel宏得知,在Excel的Sheet中选中一个单元格,然后单击右键,选择“设置单元格格式”,在“数字”选项卡中进行选择。

使用真正的日期和时间来进行计算

  • 数据 - 数据工具 - 分列 - 分隔符号 - 取消勾选所有的分隔符号复选框 - 在列数据格式处选择“日期”

澳门新浦京娱乐场网站 49 返回目录

DATEIF函数

  • 用于计算两个日期之间间隔的年、月、天

  • =DATEIF(开始日期,结束日期,日期间隔单位)

    • 日期间隔单位:Y:年 M:月 D:日

选择不连续的单元格

按住ctrl,选择不连续的单元格

给文本或者数值命名

公式 - 定义的名称 - 定义名称 - 确定

Inferror函数

=IFERROR(C2/B2," ")

---如果公式计算出现错误,则返回空字符

VLOOKUP函数

=VLOOKUP(要查的内容, 表格区域,第几列,精确查找还是近似查找)

注意:VLOOKUP函数的第二个参数所对应的表格必须按照要查找的内容所对应的列升序排列,否则会返回不正确的结果

INDEX & MATCH函数

INDEX函数就是 - 确定 : 某行某列交叉点所在的单元格中是什么内容,可以用INDEX取出这个内容

= INDEX(单元格区域的引用地址,第几行,第几列)

MATCH函数就是 - 如果在表中有一行或者一列数值,那么给定一个数值,就可以使用MATCH函数得到该数值在这行或这列中的位置是什么,返回值是个数字

=MATCH(要找的值,区域,匹配类型)

总结: 简单来说,INDEX就是确定某个位置上是什么值,MATCH函数是确定一个值在区域中的位置

CHOOSE函数

=CHOOSE(2,"A","B","C") 得到的值是第二个,B

RANDBETWEEN函数用来得到介于指定两个数之间的随机整数

OFFSET函数

=OFFSET(参照点,返回区域相对于参照点偏移的行数,返回区域相对于参照点偏移的列数,返回区域行高,返回区域列宽)

INDERECT函数

有点像C语言中的指针,作用是把字符串形式的单元格地址引用转化为正真的单元格地址引用

 Cell Value

    1. 使用STRConv函数转换Cell中的Value值

    Sub STRConvDemo()
        Cells(3, "A").Value = STRConv("ALL LOWERCASE ", vbLowerCase)
    End Sub

    STRConv是一个功能很强的系统函数,它可以按照指定的转换类型转换字符串值,如大小写转换、将字符串中的首字母大写、单双字节字符转换、平假名片假名转换、Unicode字符集转换等。具体的使用规则和参数类型读者可以查阅一下Excel自带的帮助文档,在帮助中输入STRConv,查看搜索结果中的第一项。

    1. 使用Format函数进行字符串的大小写转换 Sub callLower()
          Cells(2, "A").Value = Format("ALL LOWERCASE ", "<")
      End Sub

    Format也是一个非常常用的系统函数,它用于格式化输出字符串,有关Format的使用读者可以查看Excel自带的帮助文档。Format函数有很多的使用技巧,如本例给出的<可以将字符串转换为小写形式,相应地,>则可以将字符串转换为大写形式。

    1. 一种引用单元格的快捷方法 Sub GetSum()                    ' using the shortcut approach
          [A1].Value = Application.Sum([E1:E15])
      End Sub

    [A1]即等效于Range("A1"),这是一种引用单元格的快捷方法,在公式中同样也可以使用。

    1. 计算单元格中的公式 Sub CalcCell()
            Worksheets("Sheet1").range("A1").Calculate
      End Sub

    示例中的代码将计算Sheet1工作表中A1单元格的公式,相应地,Application.Calculate可以计算所有打开的工作簿中的公式。

    1. 一个用于检查单元格数据类型的例子 Function CellType(Rng)
          Application.Volatile
          Set Rng = Rng.Range("A1")
          Select Case True
              Case IsEmpty(Rng)
                  CellType = "Blank"
              Case WorksheetFunction.IsText(Rng)
                  CellType = "Text"
              Case WorksheetFunction.IsLogical(Rng)
                  CellType = "Logical"
              Case WorksheetFunction.IsErr(Rng)
                  CellType = "Error"
              Case IsDate(Rng)
                  CellType = "Date"
              Case InStr(1, Rng.Text, ":") <> 0
                  CellType = "Time"
              Case IsNumeric(Rng)
                  CellType = "Value"
          End Select
      End Function

    Application.Volatile用于将用户自定义函数标记为易失性函数,有关该方法的具体应用,读者可以查阅Excel自带的帮助文档。

    1. 一个Excel单元格行列变换的例子 Public Sub Transpose()
          Dim I As Integer
          Dim J As Integer
          Dim transArray(9, 2) As Integer
          For I = 1 To 3
              For J = 1 To 10
                  transArray(J - 1, I - 1) = Cells(J, Chr(I  64)).Value
              Next J
          Next I
          Range("A1:C10").ClearContents
          For I = 1 To 3
              For J = 1 To 10
                  Cells(I, Chr(J  64)).Value = transArray(J - 1, I - 1)
              Next J
          Next I
      End Sub

    该示例将A1:C10矩阵中的数据进行行列转换。
    转换前:澳门新浦京娱乐场网站 50
    转换后:澳门新浦京娱乐场网站 51

    1. VBA中冒泡排序示例 Public Sub BubbleSort2()
          Dim tempVar As Integer
          Dim anotherIteration As Boolean
          Dim I As Integer
          Dim myArray(10) As Integer
          For I = 1 To 10
              myArray(I - 1) = Cells(I, "A").Value
          Next I
          Do
              anotherIteration = False
              For I = 0 To 8
                  If myArray(I) > myArray(I  1) Then
                      tempVar = myArray(I)
                      myArray(I) = myArray(I  1)
                      myArray(I  1) = tempVar
                      anotherIteration = True
                  End If
              Next I
          Loop While anotherIteration = True
          For I = 1 To 10
              Cells(I, "B").Value = myArray(I - 1)
          Next I
      End Sub

    该实例将A1:A10中的数值按从小到大的顺序进行并,并输出到B1:B10的单元格中。
    澳门新浦京娱乐场网站 52

    1. 一个验证Excel单元格数据输入规范的例子 Private Sub Worksheet_Change(ByVal Target As Range)
          Dim cellContents As String
          Dim valLength As Integer
          cellContents = Trim(Str(Val(Target.Value)))
          valLength = Len(cellContents)
          If valLength <> 3 Then
              MsgBox ("Please enter a 3 digit area code.")
              Cells(9, "C").Select
          Else
              Cells(9, "C").Value = cellContents
              Cells(9, "D").Select
          End If
      End Sub

    重点看一下Val函数,该函数返回给定的字符串中的数字,数字之外的字符将被忽略掉,该示例用于检测用户单元格的输入值,如果输入值中包含的数字个数不等于3,则提示用户,否则就将其中的数字赋值给另一个单元格。

澳门新浦京娱乐场网站 53 返回目录

 Cell

    1. 查找最后一个单元格 Sub GetLastCell()
         Dim RealLastRow As Long
         Dim RealLastColumn As Long
         
         Range("A1").Select
         On Error Resume Next
         RealLastRow = Cells.Find("*", Range("A1"), xlFormulas, , xlByRows, xlPrevious).Row
         RealLastColumn = Cells.Find("*", Range("A1"), xlFormulas, , xlByColumns, xlPrevious).Column
         Cells(RealLastRow, RealLastColumn).Select
      End Sub

    该示例用来查找出当前工作表中的最后单元,并将其选中,主要使用了Cells对象的Find方法,有关该方法的详细说明读者可以参考Excel自带的帮助文档,搜索Cells.Find,见Range.Find方法的说明。

    1. 判断一个单元格是否为空 Sub ShadeEveryRowWithNotEmpty()
        Dim i As Integer
        i = 1
        Do Until IsEmpty(Cells(i, 1))
          Cells(i, 1).EntireRow.Interior.ColorIndex = 15
          i = i   1
        Loop
      End Sub

    IsEmpty函数本是用来判断变量是否已经初始化的,它也可以被用来判断单元格是否为空,该示例从A1单元格开始向下检查单元格,将其所在行的背景色设置成灰色,直到下一个单元格的内容为空。

    1. 判断当前单元格是否为空的另外一种方法 Sub IsActiveCellEmpty()
          Dim sFunctionName As String, sCellReference As String
          sFunctionName = "ISBLANK"
          sCellReference = ActiveCell.Address
          MsgBox Evaluate(sFunctionName & "(" & sCellReference & ")")
      End Sub

    Evaluate方法用来计算给定的表达式,如计算一个公式Evaluate("Sin(45)"),该示例使用Evaluate方法计算ISBLANK表达式,该表达式用来判断指定的单元格是否为空,如Evaluate(ISBLANK(A1))。

    1. 一个在给定的区域中找出数值最大的单元格的例子 Sub GoToMax()
          Dim WorkRange As range

        If TypeName(Selection) <> "Range" Then Exit Sub

        If Selection.Count = 1 Then
            Set WorkRange = Cells
        Else
            Set WorkRange = Selection
        End If
        MaxVal = Application.Max(WorkRange)
        On Error Resume Next
        WorkRange.Find(What:=MaxVal, _
            After:=WorkRange.range("A1"), _
            LookIn:=xlValues, _
            LookAt:=xlPart, _
            SearchOrder:=xlByRows, _
            SearchDirection:=xlNext, MatchCase:=False _
            ).Select
        If Err <> 0 Then MsgBox "Max value was not found: " _
         & MaxVal
    End Sub

    1. 使用数组更快地填充单元格区域 Sub ArrayFillRange()
          Dim TempArray() As Integer
          Dim TheRange As range

        CellsDown = 3
        CellsAcross = 4
        StartTime = timer

        ReDim TempArray(1 To CellsDown, 1 To CellsAcross)
        Set TheRange = ActiveCell.range(Cells(1, 1), Cells(CellsDown, CellsAcross))
        CurrVal = 0
        Application.ScreenUpdating = False
        For I = 1 To CellsDown
            For J = 1 To CellsAcross
                TempArray(I, J) = CurrVal   1
                CurrVal = CurrVal   1
            Next J
        Next I

        TheRange.value = TempArray
        Application.ScreenUpdating = True
        MsgBox Format(timer - StartTime, "00.00") & " seconds"
    End Sub

    该示例展示了将一个二维数组直接赋值给一个“等效”单元格区域的方法,利用该方法可以使用数组直接填充单元格区域,结合下面这个直接在循环中填充单元格区域的方法,读者可以自己验证两种方法在效率上的差别。 Sub LoopFillRange()
        Dim CurrRow As Long, CurrCol As Integer
        Dim CurrVal As Long

        CellsDown = 3
        CellsAcross = 4
        StartTime = timer
        CurrVal = 1
        Application.ScreenUpdating = False
        For CurrRow = 1 To CellsDown
            For CurrCol = 1 To CellsAcross
                ActiveCell.Offset(CurrRow - 1, _
                CurrCol - 1).value = CurrVal
                CurrVal = CurrVal   1
            Next CurrCol
        Next CurrRow

    '   Display elapsed time
        Application.ScreenUpdating = True
        MsgBox Format(timer - StartTime, "00.00") & " seconds"
    End Sub

澳门新浦京娱乐场网站 54 返回目录

 

本文由澳门新浦京娱乐场网站发布于办公软件,转载请注明出处:澳门新浦京娱乐场网站:EXCEL如何自动将姓名调换