2010版电子表格有没有这个函数公式,既将地名(北京)汉字拼音的两个首写字母显示在选定的单元格中.
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/11 00:44:12
2010版电子表格有没有这个函数公式,既将地名(北京)汉字拼音的两个首写字母显示在选定的单元格中.
可以
在EXECL中,按ALT+F11,插入---模块 复制下列代码:
Functionhztopy(hzpy As String) As String
Dimhzstring As String,pystring As String
Dimhzpysum As Integer,hzi As Integer,hzpyhex As Integer
hzstring= Trim(hzpy)
hzpysum= Len(Trim(hzstring))
pystring= ""
Forhzi = 1 To hzpysum
hzpyhex = "&H" +Hex(Asc(Mid(hzstring,hzi,1)))
Select Case hzpyhex
Case &HB0A1 To &HB0C4:pystring = pystring + "A"
Case &HB0C5 To &HB2C0:pystring = pystring + "B"
Case &HB2C1 To&HB4ED:pystring = pystring + "C"
Case &HB4EE To &HB6E9:pystring =pystring + "D"
Case &HB6EA To &HB7A1:pystring = pystring + "E"
Case &HB7A2 To &HB8C0:pystring = pystring + "F"
Case &HB8C1 To &HB9FD:pystring = pystring + "G"
Case &HB9FE To &HBBF6:pystring =pystring + "H"
Case &HBBF7 To &HBFA5:pystring =pystring + "J"
Case &HBFA6 To &HC0AB:pystring =pystring + "K"
Case &HC0AC To &HC2E7:pystring = pystring + "L"
Case &HC2E8 To &HC4C2:pystring = pystring + "M"
Case &HC4C3 To &HC5B5:pystring = pystring + "N"
Case &HC5B6 To &HC5BD:pystring =pystring + "O"
Case &HC5BE To &HC6D9:pystring =pystring + "P"
Case &HC6DA To &HC8BA:pystring =pystring + "Q"
Case &HC8BB To &HC8F5:pystring = pystring + "R"
Case &HC8F6 To &HCBF9:pystring = pystring + "S"
Case &HCBFA To &HCDD9:pystring =pystring + "T"
Case &HEDC5:pystring = pystring +"T"
Case &HCDDA To &HCEF3:pystring =pystring + "W"
Case &HCEF4 To &HD1B8:pystring =pystring + "X"
Case &HD1B9 To &HD4D0:pystring =pystring + "Y"
Case &HD4D1 To &HD7F9:pystring = pystring + "Z"
Case Else
pystring = pystring + Mid(hzstring,hzi,1)
End Select
Next
hztopy= pystring
EndFunction
比如数据在A列 则在其他空白单元格输入
=hztopy(A1)
回车下拉
再问: 谢谢你特别专业的回答!顺便再问一下,2010版中有没有现成的函数公式(能解决前述问题的)
再答: 只有自定义函数
在EXECL中,按ALT+F11,插入---模块 复制下列代码:
Functionhztopy(hzpy As String) As String
Dimhzstring As String,pystring As String
Dimhzpysum As Integer,hzi As Integer,hzpyhex As Integer
hzstring= Trim(hzpy)
hzpysum= Len(Trim(hzstring))
pystring= ""
Forhzi = 1 To hzpysum
hzpyhex = "&H" +Hex(Asc(Mid(hzstring,hzi,1)))
Select Case hzpyhex
Case &HB0A1 To &HB0C4:pystring = pystring + "A"
Case &HB0C5 To &HB2C0:pystring = pystring + "B"
Case &HB2C1 To&HB4ED:pystring = pystring + "C"
Case &HB4EE To &HB6E9:pystring =pystring + "D"
Case &HB6EA To &HB7A1:pystring = pystring + "E"
Case &HB7A2 To &HB8C0:pystring = pystring + "F"
Case &HB8C1 To &HB9FD:pystring = pystring + "G"
Case &HB9FE To &HBBF6:pystring =pystring + "H"
Case &HBBF7 To &HBFA5:pystring =pystring + "J"
Case &HBFA6 To &HC0AB:pystring =pystring + "K"
Case &HC0AC To &HC2E7:pystring = pystring + "L"
Case &HC2E8 To &HC4C2:pystring = pystring + "M"
Case &HC4C3 To &HC5B5:pystring = pystring + "N"
Case &HC5B6 To &HC5BD:pystring =pystring + "O"
Case &HC5BE To &HC6D9:pystring =pystring + "P"
Case &HC6DA To &HC8BA:pystring =pystring + "Q"
Case &HC8BB To &HC8F5:pystring = pystring + "R"
Case &HC8F6 To &HCBF9:pystring = pystring + "S"
Case &HCBFA To &HCDD9:pystring =pystring + "T"
Case &HEDC5:pystring = pystring +"T"
Case &HCDDA To &HCEF3:pystring =pystring + "W"
Case &HCEF4 To &HD1B8:pystring =pystring + "X"
Case &HD1B9 To &HD4D0:pystring =pystring + "Y"
Case &HD4D1 To &HD7F9:pystring = pystring + "Z"
Case Else
pystring = pystring + Mid(hzstring,hzi,1)
End Select
Next
hztopy= pystring
EndFunction
比如数据在A列 则在其他空白单元格输入
=hztopy(A1)
回车下拉
再问: 谢谢你特别专业的回答!顺便再问一下,2010版中有没有现成的函数公式(能解决前述问题的)
再答: 只有自定义函数
2010版电子表格有没有这个函数公式,既将地名(北京)汉字拼音的两个首写字母显示在选定的单元格中.
电子表格求函数:在E2显示B2,C2,D2单元格中大数的和.
我想在电子表格的单元格中输入公式,判断这个单元格的数值是否在某一区间,并排除个别数字,公式不会写,
在电子表格中:若一单元格为公式:3+2*5,另一单元格等于这个公式的值,怎样操作?
在电子表格中怎样利用countif函数统计总评为优秀的学生人数,并在单元格中显示优秀率
电子表格求函数:在E2显示B2,C2,D2单元格中给定条件的数的和.
如何在一个单元格中显示公式,另一个单元格中显示该公式的计算结果
电子表格求函数:在E2显示B2,C2,D2单元格中的奇数的和
在电子表格中,让a1、a2的和在a3显示,让a4、a5的和在a6显示,有公式没有?
电子表格中如何让B列各单元格依次显示符合A列各单元格特定数值的下一个单元格中的数值?求高手编公式.
函数公式法计算疑问在同一列电子表格中,计算和的,比如是第一个单元格加第二个单元格,第二个单元格加第三个单元格,以此类推,
EXCEL中,引用有公式的单元格,当单元格有数值的时候,则C1显示计算后实际数值,否则使这个单元格得0.