在excel里 如何获取拼音汉字首字母

[juziE2006]

是这样的，有一个单元格中D5的下拉框中的数据是“汽车”，我读别人的代码，看到在另一个单元格里这样一段代码 if(D5=qc,1,0) （说明 qc是“汽车”拼音的首字母）这样能直接比较吗，我怀疑是还有其他数据在，但是在这个表里其他都找不到qc这个数据了，请问这里的代码是怎么理解。谢谢 急~~

[kris2010]

qc是变量吧，仔细看看变量的引用或者值

[djhell]

if len(Application.GetPhonetic(txt.value))>0 then
ss=left(Application.GetPhonetic(txt.value),1)
end if

[arong1234]

qc不是首字母，excel也不提供如此功能，qc显然是一个变量

[InTheRainbow]

Function pinyin(ByVal r As Range) As String
Const hanzi = "啊芭擦搭蛾发噶哈击喀垃妈拿哦啪期然撒塌挖昔压匝ABCDEFGHJKLMNOPQRSTWXYZZ"
Dim i As Long, j As Byte, temp As String
For i = 1 To Len(r.Text)
For j = 1 To 24
If Asc(Mid(r.Text, i, 1)) >= Asc(Mid(hanzi, j, 1)) Then temp = Mid(hanzi, 23 + j, 1)
Next
pinyin= pinyin & temp
Next
End Function

用法：输入公式 =pinyin(a1)

[knowledge_Is_Life]

接分是王道！