zoukankan      html  css  js  c++  java
  • 利用Excel表格中的宏,轻松提取首字母

    1. 1.启动Excel 2003(其它版本请仿照操作),打开相应的工作表;

    2. 2

      2.执行“工具→宏→Visual Basic编辑器”命令(或者直接按“Alt+F11”组合键),进入Visual Basic编辑状态;

    3. 3

      3.执行“插入→模块”命令,插入一个新模块。再双击插入的模块,进入模块代码编辑状态;

    4. 4

      4.将代码输入其中;

      Function pinyin(p As String) As String

      i = Asc(p)

      Select Case i

      Case -20319 To -20284: pinyin = "A"

      Case -20283 To -19776: pinyin = "B"

      Case -19775 To -19219: pinyin = "C"

      Case -19218 To -18711: pinyin = "D"

      Case -18710 To -18527: pinyin = "E"

      Case -18526 To -18240: pinyin = "F"

      Case -18239 To -17923: pinyin = "G"

      Case -17922 To -17418: pinyin = "H"

      Case -17417 To -16475: pinyin = "J"

      Case -16474 To -16213: pinyin = "K"

      Case -16212 To -15641: pinyin = "L"

      Case -15640 To -15166: pinyin = "M"

      Case -15165 To -14923: pinyin = "N"

      Case -14922 To -14915: pinyin = "O"

      Case -14914 To -14631: pinyin = "P"

      Case -14630 To -14150: pinyin = "Q"

      Case -14149 To -14091: pinyin = "R"

      Case -14090 To -13319: pinyin = "S"

      Case -13318 To -12839: pinyin = "T"

      Case -12838 To -12557: pinyin = "W"

      Case -12556 To -11848: pinyin = "X"

      Case -11847 To -11056: pinyin = "Y"

      Case -11055 To -2050: pinyin = "Z"

      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

    5. 5

      5.代码输入完成后,关闭Visual Basic编辑窗口,返回Excel编辑状态;

    6. 6

      6.自定义函数就可以用了,如:选中A2单元格,输入公式:=getpy(A2)。

  • 相关阅读:
    Windows共享作为公司文件服务器的案例
    关于限制域用户登陆计算机的几点总结
    防止加入域主机脱离域的控制(管理员权限)
    域组策略禁止执行指定软件
    域用户执行金蝶K/3报错解决方法
    WinXP/Win7/Win8本地用户配置文件迁移至域用户
    Windows批处理:请求远程协助
    浅谈JavaScript闭包
    新蛋那几月
    JavaScript 32位整型无符号操作
  • 原文地址:https://www.cnblogs.com/lbg280/p/5924039.html
Copyright © 2011-2022 走看看