在EXCEL中怎样自动产生商品名的首字母简码

在代码编辑框中输入：

Option Explicit

Function PY(TT As String) As Variant

Dim i%, temp$

PY = ""

For i = 1 To Len(TT)

temp = Asc(Mid$(TT, i, 1))

If temp >255 Or temp <0 Then

PY = PY &pinyin(Mid$(TT, i, 1))

Else

PY = PY &LCase(Mid$(TT, i, 1))

End If

Next i

End Function

Function pinyin(myStr As String) As Variant

On Error Resume Next

myStr = StrConv(myStr, vbNarrow)

If Asc(myStr) >0 Or Err.Number = 1004 Then pinyin = ""

pinyin = Application.WorksheetFunction.VLookup(myStr, [{"吖","A""八","B""嚓","C""搭","D""蛾","E""发","F""噶","G""铪","H""击","J""咔","K""垃","L""妈","M""拿","N""噢","O""啪","P""七","Q""然","R""仨","S""他","T""挖","W""夕","X""压","Y""座","Z"}], 2)

End Function

关闭VB窗口。

EXCEL技巧——导出汉字姓名首字母

http://jingyan.baidu.com/article/19192ad831396ae53f57075d.html

打开开票软件,“系统参数设置——参数设置——运行参数”中,设置使用“商品分类编码使用模式”的“使用自定义分类编码模式”。

打开原有的商品编码:系统设置—商品编码—增值税类商品编码(机动车或货物运输类则分别选择机动车产品编码和货物运输类商品编码)

先添加大类别:点击商品信息类别 —“+”—输入类别名称如0

添加商品然后赋码:点击增加按钮---输入商品名称

五笔字型将常用汉字设置成三级简码，其原则是一级简码、二级简码和三级简码只需键入该汉字的前一个字根、前两个字根、前三个字根，再加空格键即可输入。1.一级简码 根据汉字字根的形态特征和使用汉字的频率，在五个区的25个键位上，每个键位安排一个使用频率最高的汉字，称为“高频字”，即“一级简码”。一级简码分布的规律是按第一笔画来分类的，分为五个区，即横开始的放在一区，竖开始的放在二区，撇开始的放在三区，捺开始的放在四区，折开始的放在五区。一级简码的输入方法是：单击该字所在的键，再按一下空格键即可完成一个“高频字”的输入。　2.二级简码 在汉字中较常用，出现频率极高的字筛选为二级简码。共有588个二级简码汉字。二级简码的输入方法：取汉字前两个字根的编码，再按空格键输入。二级简码中成字字根汉字的输入法：先输入成字字根对应的键，然后再输入该汉字第一笔对应的键。 3.三级简码 三级简码是指汉字输入时只需输入前三个字根的编码。三级简码汉字是由三个以上字根组成的，不包括识别码。五笔字型输入法中，三级简码有4000多个。三级简码汉字的输入方法是：输入汉字前三个字根对应的字母，再按空格键输入

---