excel中汉字转成声母

linux_wolfelite linux_wolfelite 博客等级 墨衍会员 · AI 创作全网分发 墨衍智能分发 本文由作者通过墨衍一键同步至各平台 1分发平台 2.2k累计阅读 2.3k平均单平台 已同步平台 优快云 微信公众号 微博 知乎 掘金 百家号 博客园 抖音 小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网 我也要 码龄20年
关注
原创 最新推荐文章于 2026-07-04 11:22:45 发布 2.2k 阅读 AI 写同款· GEO 优化 ›
2021最新汉字学习资源合集及应用 汉字笔画数是指构成一个汉字的所有基本笔画数量。基本笔画包括点、横、竖、撇、捺等，而复合笔画则由两个或多个基本笔画组合而成。统计汉字笔画数时，必须明确每个笔画的种类和数量。具体操作步骤如下：确定基本笔画：先识别汉字中的所有基本笔画。分辨复合笔画：在基本笔画基础上，识别出复合笔画，并将其拆分为基本笔画。累加计数：对分离出的基本笔画进行累加，得出汉字的笔画总数。例如，汉字“中”由两个基本笔画组成：竖（一画）和竖折（两画），因此它的笔画总数为三画。 阅读详情

碰到这个业务,就是需要将数据库每个客户的名字转成声母放在excel中,看了下网上,一般都用到了gb2312sm.lib文件,实则自己也可写一个函数,然后封装在库里也可.

 

Private Function GetPY(ByVal strParmeter As String) As String
          Dim intTmp     As String, i       As Long
            
          For i = 1 To Len(strParmeter)
                  intTmp = Asc(Mid(strParmeter, i, 1))
    
                  If intTmp < Asc("啊") Then
                          GetPY = GetPY & "*"
                  ElseIf intTmp >= Asc("啊") And intTmp < Asc("芭") Then
                          GetPY = GetPY & "A"
                  ElseIf intTmp >= Asc("芭") And intTmp < Asc("擦") Then
                          GetPY = GetPY & "B"
                  ElseIf intTmp >= Asc("擦") And intTmp < Asc("搭") Then
                          GetPY = GetPY & "C"
                  ElseIf intTmp >= Asc("搭") And intTmp < Asc("蛾") Then
                          GetPY = GetPY & "D"
                  ElseIf intTmp >= Asc("蛾") And intTmp < Asc("发") Then
                          GetPY = GetPY & "E"
                  ElseIf intTmp >= Asc("发") And intTmp < Asc("噶") Then
                          GetPY = GetPY & "F"
                  ElseIf intTmp >= Asc("噶") And intTmp < Asc("哈") Then
                          GetPY = GetPY & "G"
                  ElseIf intTmp >= Asc("哈") And intTmp < Asc("击") Then
                          GetPY = GetPY & "H"
                  ElseIf intTmp >= Asc("击") And intTmp < Asc("喀") Then
                          GetPY = GetPY & "J"
                  ElseIf intTmp >= Asc("喀") And intTmp < Asc("垃") Then
                          GetPY = GetPY & "K"
                  ElseIf intTmp >= Asc("垃") And intTmp < Asc("妈") Then
                          GetPY = GetPY & "L"
                  ElseIf intTmp >= Asc("妈") And intTmp < Asc("拿") Then
                          GetPY = GetPY & "M"
                  ElseIf intTmp >= Asc("拿") And intTmp < Asc("哦") Then
                          GetPY = GetPY & "N"
                  ElseIf intTmp >= Asc("哦") And intTmp < Asc("啪") Then
                          GetPY = GetPY & "O"
                  ElseIf intTmp >= Asc("啪") And intTmp < Asc("期") Then
                          GetPY = GetPY & "P"
                  ElseIf intTmp >= Asc("期") And intTmp < Asc("然") Then
                          GetPY = GetPY & "Q"
                  ElseIf intTmp >= Asc("然") And intTmp < Asc("撒") Then
                          GetPY = GetPY & "R"
                  ElseIf intTmp >= Asc("撒") And intTmp < Asc("塌") Then
                          GetPY = GetPY & "S"
                  ElseIf intTmp >= Asc("塌") And intTmp < Asc("挖") Then
                          GetPY = GetPY & "T"
                  ElseIf intTmp >= Asc("挖") And intTmp < Asc("昔") Then
                          GetPY = GetPY & "W"
                  ElseIf intTmp >= Asc("昔") And intTmp < Asc("压") Then
                          GetPY = GetPY & "X"
                  ElseIf intTmp >= Asc("压") And intTmp < Asc("匝") Then
                          GetPY = GetPY & "Y"
                  ElseIf intTmp >= Asc("匝") And intTmp < 0 Then
                          GetPY = GetPY & "Z"
                  ElseIf (intTmp >= 65 And intTmp <= 91) Or (intTmp >= 97 And intTmp <= 123) Then
                          GetPY = GetPY & Mid(strParmeter, i, 1)
                  Else
                          GetPY = GetPY & "*"
                  End If
          Next
  End Function

 先用VBA写个宏函数,然后在单元格中调用,然后利用自动填充柄填充功能来实现余下的.

比如:对B1就可以直接在单元格中写=GetPy(A1),然后双击填充柄即可.然后再导入到数据库中去.

 

收录于
数据库系统

当前文章被收录于：

数据库系统
4 篇文章 0 人学习
订阅专栏 查看详情
标签
#excel #string #数据库 #vba #function
#c
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
汉字转拼音与自动生成助记码技术详解 助记码（Mnemonic Code）是一种通过语言简化、符号映射等方式，辅助人类记忆复杂信息的技术。其历史可追溯至古希腊时期的“记忆宫殿”法，随着信息技术的发展，助记码逐步演进为一种在编程命名、数据编码、语言学习等领域广泛应用的实用工具。其核心功能在于降低记忆负担、提升信息检索效率。在现代信息处理中，助记码不仅用于变量命名、命令缩写，还被广泛应用于拼音转换、编码系统设计等领域，成为连接人机交互与认知效率的重要桥梁。 阅读详情

相关推荐

基于Unicode的汉字拼音排序实现与文本处理实战

Unicode 官方文档中定义的 CJK 统一汉字区块起始于 U+4E00，终止于 U+9FFF，但并非所有码位都被赋予实际字符意义。国际标准化组织（ISO/IEC 10646）与 Unicode 联盟共同维护一份名为的公开数据文件，记录每个码位的属性信息。通过对该文件的解析，可以精确确定哪些码位对应有效汉字。例如，以下是中的部分条目：4E00;Lo;0;L;;;;N;;;;;4E01;Lo;0;L;;;;N;;;;;9FCB;Lo;0;L;;;;N;;;;;9FCC;Cc;0;

weixin_29940495的博客 986

VB 汉字字符串转换成拼音

以下这个函数可以将一个汉字字符串转换成拼音 Private Function Getpy(Txt)Dim d, TmpTxtDim wzcode, i, TmpWZ, a, b, iiSet d = CreateObject("Scripting.Dictionary")d.Add "a", -20319d.Add "ai", -20317d.Add "an",...

miaozk2006的专栏 1515

汉字拼音库完整数据资源与应用实战

汉字拼音库是将汉字映射为其对应汉语拼音（包括声母、韵母、声调）的结构化数据集合，是中文信息处理的核心基础资源。一个完整的拼音库通常包含单字拼音、多音字候选、声调标记及扩展属性（如词性、使用频率），其数据格式常见为JSON、SQLite或Excel表格，便于程序读取与集成。"汉": ["hàn", "hán"],"重": ["zhòng", "chóng"]示例：多音字在拼音库中的典型存储形式。

weixin_42608318的博客 545

Excel如何提取汉字拼音首字母

今天跟大家分享一下Excel如何提取汉字拼音首字母 1.我们想要将D列数据中的汉字拼音首字母提取出来。 2.首先我们选中D列数据单元格区域 3.然后点击DIY工具箱（Excel工具箱，百度即可了解详细下载安装信息，本文这里就不做详细解说。） 4.选择【拼音笔画】，点击【汉字转拼音】 5.点击【拼音首字母】，然后点击【确定】 6.最后选择E3单元格作为存放位置，然后点击【确定】即可完成 7.完成效果如下图所示

ffcell2016的博客 2万+

拼音学习资源的Excel模版创建与应用

为了进一步提升检索效率，我们可以在表格中添加自定义的排序和过滤规则。比如，我们可以根据学期来创建不同的排序规则，或者为特定的大型考试创建过滤规则，以便于快速获取相关的复习资料。在Excel中，我们可以设置多个排序条件，比如先按照相关科目排序，再按照上传时间排序，这样可以确保最新的资料总是出现在最前面。array：需要过滤的数据区域。include：定义哪些行或列应该被包含。[if_empty]：如果结果为空时显示的内容。

weixin_26805451的博客 829

汉字转拼音缩写的VBA宏

Dim i As Integer Dim j As Integer Dim sum As Integer Dim beginrow As Integer Dim str As String Dim GetPy As String sum = ActiveWindow.RangeSelection.Rows.Count For Each rng In ActiveWindow.RangeSelection.Areas For Each cel In rng str = cel.Value GetPy = "" For i = 0 To Len(str) - 1 GetPy = GetPy & GetPYChar(Mid(str, i + 1, 1)) Next ' Application.Cells(Application.ActiveCell.Row, Application.ActiveCell.Column + 1).value = GetPy Application.Cells(cel.Row, cel.Column + 1).Value = GetPy Next Next End Sub

Excel汉字转拼音并提取首字母

【代码】Excel汉字转拼音并提取首字母。

hzp666的博客 2598

汉字生成拼音程序

汉字生成拼音程序,可以生成拼音的。你输入汉字就行了。

excel提取声母函数

Function PinYin(Hz As String)Dim PinMa As StringDim MyPinMa As VariantDim Temp As Integer, i As Integer, j As IntegerPinMa = "a,20319,"PinMa = PinMa & "b,20283,"PinMa = PinMa & "c,19775,"

刘皓天的收藏夹 1883

smbios-lib：SMBIOS库

smbios-lib 在Rust中创建的SMBIOS库，用于读取和解析原始BIOS数据 目录 基本信息 该项目从设备或文件中读取原始数据，并将数据作为API提供。 支持 Unix系列 Windows家族 SMBIOS 3.4.0包含46种定义的结构类型，该库均覆盖了所有这些结构类型（类型0-43、126和127）。 对于类型128-255（保留给OEM使用）存在扩展性支持。 如果尚未针对最新的规范版本或预发布的规范对该库进行更新并且引入了新类型，则可扩展性也适用。 计划的支持 苹果系统 项目状态 在早期开发中。 当前的开发阶段是完成API设计。 依存关系 libc版本：0.2（仅在Windows系列中） 安全 该库设计遵循严格的安全性原则： “永不信任输入” 。 SMBIOS已经存在了数十年，并经历了许多版本和修订。 多年来，许多OEM供应商已经解释并实施了这些规范。 存在不正确的

VB6 汉字转拼音

汉字转拼音VB6源码,包含声母及韵母,可选择韵母返回方式,对于翘舌音可选择是否返回第2个字母,还可以选择是否只返回拼音首字母.可以包含英文及数字.

VB.NET汉字转声母模块

Module ModHztoSMModule ModHztoSM    Public Function hz2py()Function hz2py(ByVal hz As String) As String        Dim sarr As Byte() = System.Text.Encoding.Default.GetBytes(hz)        Dim len As Intege

994

多仓智能订单路由与动态优化方案设计

现在有很多商家会有多个仓库，并分布在不同的城市中，当用户下单后会根据商品库存及订单信息将订单分配到对应的仓库进行发货，如就近原则，本期基于多仓库设计一套订单路由方案，包含核心逻辑、规则优先级和实施方案，适用于多仓协同的订单自动分配场景

14年产品经理老兵，想把自己的经验及总结分享给大家，只讲思路及实操，不讲废话 2481

得到汉字拼音声母的函数

SET QUOTED_IDENTIFIER ON GO SET ANSI_NULLS ON GO ALTER function fGetPy(@str varchar(500)='') returns varchar(500) as begin declare @strlen int,@return varchar(500),@ii int declar...

Newhaven 346

嵌入式开发避坑指南：用DWT做延时函数，这几个细节不注意代码会跑飞

本文深入探讨了在Cortex-M嵌入式开发中使用DWT实现精确延时函数的关键技巧与常见陷阱。针对DWT_CYCCNT计数器应用中的内核兼容性、溢出处理、编译器优化等五大核心问题，提供了工业级稳健解决方案，帮助开发者避免代码跑飞风险，实现微秒级高精度延时控制。

weixin_42653691的博客 160

SpringCloudGateway网关高频20个面试题整理

Spring Cloud Gateway 是基于 Spring 5、Project Reactor 和 Spring Boot 2 构建的 API 网关，提供动态路由、监控、弹性、安全等核心功能。Spring Cloud Gateway 是 Spring Cloud 生态中的 API 网关，用于微服务架构中的请求路由、负载均衡、限流、鉴权等。实现@Component@Override// 逻辑处理。

u012024132的专栏 1114

excel函数提取计算机登录名,excel自定义函数之提取声母函数

Function PinYin(Hz As String)Dim PinMa As StringDim MyPinMa As VariantDim Temp As Integer, i As Integer, j As IntegerPinMa = "a,20319,"PinMa = PinMa & "b,20283,"PinMa = PinMa & "c,19775,"PinMa...

weixin_39847722的博客 377

[漏洞利用]利用五次Shift越权破解win7\win10开机密码

注：第一个学习和接触的Windows漏洞 文章目录本机实验环境前置知识漏洞原理漏洞介绍漏洞验证解决方法基本流程介绍详细步骤截图 本机实验环境 虚拟机：VMware Workstation 14 pro 操作系统：Windows10 前置知识 1、cmd工具路径 c:\windows\system32\cmd，按五次shift默认调用同目录下sethc文件,其路径为“c:\windows\system32\sethc.exe” 2、用户/账户密码存储位置 c:\windows\system32\config\

Y4tacker的博客 2万+

python使用jieba分词比对excel

import os from openpyxl import Workbook, load_workbook from openpyxl.styles import Alignment import jieba.posseg dirname, filename = os.path.split(os.path.abspath(__file__)) dirname = ''.join([dirname, '\\']) # 写Excel def write_excel(datalist, filename

u011394575的博客 2592

量化交易新手必看：如何用vnpy+Tushare轻松获取A股历史数据（附完整代码）

本文为量化交易新手提供了使用vnpy和Tushare构建A股历史数据获取系统的完整指南。通过详细的代码示例，手把手教你搭建环境、封装数据获取引擎，并实现日线等数据的格式转换与本地存储，为策略回测与分析奠定坚实的数据基础。

weixin_29098117的博客 378

链接文件及功能安全：英飞凌官方文档摘录 - 基于Tasking与AURIX TC3xx MCAL中Link文件解析以及代码变量定位方法详解

Data区域是用来存放带初始化值的全局变量，在link文件中，这个区域有两种类型，预先定义的区域和默认区域。预先定义的Data区域，例如.data.Ifx_Ssw_Tc1和.data.Cpu1_Main.*，在cpu1_main.c中如果定义了一个带初始化值的变量，则它会放在DSRAM1中的.data.Cpu1_Main.*段中。

梦想技术家 539

oracle中文到拼音转换

先建表，其实这个表只需要汉字和拼音两个字段，多出的字段是因为我找到的汉字库数据包含了这些个字段，为了方便把数据弄到数据库，就按照原来的汉字库表的结构建的表。创建函数，这里有个小插曲就是字符类型的问题，最终还是让ai帮我写的，字库表里是nvarchar，我的业务表都是varchar的。项目有一个需求，需要将姓名转换成拼音。就弄了一个汉字拼音表然后写了函数。1、纯文本文件，用制表符分隔的方式存储数据，适合于在PL/SQL等数据库环境中使用。然后导入汉字拼音对应表。2、sql文件，直接可以执行的sql文件。

bigger王的博客 174

华为OD机考双机位C卷 - 员工派遣 （Java & Python& JS & C/C++ & GO ）

华为OD机考双机位C卷 - 员工派遣 （OD上机考试双机位C卷）。提供在线OJ刷题。Java、C++、Python、GO语言、C语言、JavaScript题解，并提供完整思路讲解。

算法大师！ 1035

mssql 中文转拼音首字母

在做列车时刻表进行搜索时用到中文转拼音首字母时需要以下函数 Create function fun_getPY ( @str nvarchar(4000) ) returns nvarchar(4000) as begin declare @word nchar(1),@PY nvarchar(4000) set @PY='' while len(@str)&gt;0 begi...

dato0123 116

SAP MM模块后续借记、后续贷记、贷方凭证简介

在SAP系统中，后续借记、后续贷记和贷方凭证是处理供应商发票、采购和付款过程中常见的财务交易。

我小时候很黑的博客 3270

VB摄像头监控

该VB模块可对摄像头捕获的画面进行录像等，可在创建的窗口进行控制

教你如何将中文转换成全拼

在转换之前，我们先要判断输入的是否为中文，中文字符处于4e00与9fff之间，了解了这个知识之后，我们开始操作 　　　　/// <summary> /// 转化事件 /// </summary> /// <param name="sender"></param> /// ...

weixin_34380296的博客 352

Data-Structures-and-Algorithm-Analysis-in-Java.pdf

作者: Weiss, Mark A. 出版社: Addison Wesley Data Structures and Algorithm Analysis in Java is an “advanced algorithms” book that fits between traditional CS2 and Algorithms Analysis courses. In the old ACM Curriculum Guidelines, this course was known as CS7. This text is for readers who want to learn good programming and algorithm analysis skills simultaneously so that they can develop such programs with the maximum amo...
上一篇： 关于在VS2005开发环境下ACCESS数据库的连接相对路径问题
下一篇： 阻止魔兽争霸3-冰封王座运行
点赞 0
评论 0
书签 书签 0
linux_wolfelite
linux_wolfelite
博客等级 码龄20年 3粉丝 18原创
+ 关注 专栏目录 订阅专栏
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
表情包 插入表情
表情包 代码片
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值