2. 程式人生 > >在excel中實現漢字轉換拼音首字母大寫

在excel中實現漢字轉換拼音首字母大寫

阿新 • • 發佈：2018-12-20
               

在excel 2003和2007中已經驗證成功。程式碼為網上收集，原作者已不可考。

[vb] view plain copy print?
  1. Function getpychar(char)  
  2. tmp = 65536 + Asc(char)  
  3. If (tmp >= 45217 And tmp <= 45252) Then
  4. getpychar = "A"
  5. ElseIf (tmp >= 45253 And tmp <= 45760) Then
  6. getpychar = "B"
  7. ElseIf (tmp >= 45761 And tmp <= 46317) Then
  8. getpychar = "C"
  9. ElseIf (tmp >= 46318 And tmp <= 46825) Then
  10. getpychar = "D"
  11. ElseIf (tmp >= 46826 And tmp <= 47009) Then
  12. getpychar = "E"
  13. ElseIf (tmp >= 47010 And tmp <= 47296) Then
  14. getpychar = "F"
  15. ElseIf (tmp >= 47297 And tmp <= 47613) Then
  16. getpychar = "G"
  17. ElseIf (tmp >= 47614 And tmp <= 48118) Then
  18. getpychar = "H"
  19. ElseIf (tmp >= 48119 And tmp <= 49061) Then
  20. getpychar = "J"
  21. ElseIf (tmp >= 49062 And tmp <= 49323) Then
  22. getpychar = "K"
  23. ElseIf (tmp >= 49324 And tmp <= 49895) Then
  24. getpychar = "L"
  25. ElseIf (tmp >= 49896 And tmp <= 50370) Then
  26. getpychar = "M"
  27. ElseIf (tmp >= 50371 And tmp <= 50613) 
    Then
  28. getpychar = "N"
  29. ElseIf (tmp >= 50614 And tmp <= 50621) Then
  30. getpychar = "O"
  31. ElseIf (tmp >= 50622 And tmp <= 50905) Then
  32. getpychar = "P"
  33. ElseIf (tmp >= 50906 And tmp <= 51386) Then
  34. getpychar = "Q"
  35. ElseIf (tmp >= 51387 And tmp <= 51445) Then
  36. getpychar = "R"
  37. ElseIf (tmp >= 51446 And tmp <= 52217) Then
  38. getpychar = "S"
  39. ElseIf (tmp >= 52218 And tmp <= 52697) Then
  40. getpychar = "T"
  41. ElseIf (tmp >= 52698 And tmp <= 52979) Then
  42. getpychar = "W"
  43. ElseIf (tmp >= 52980 And tmp <= 53640) Then
  44. getpychar = "X"
  45. ElseIf (tmp >= 53689 And tmp <= 54480) Then
  46. getpychar = "Y"
  47. ElseIf (tmp >= 54481 And tmp <= 62289) Then
  48. getpychar = "Z"
  49. Else'如果不是中文，則不處理
  50. getpychar = char  
  51. EndIf
  52. EndFunction
  53. Function getpy(str)  
  54. For i = 1 To Len(str)  
  55. getpy = getpy & getpychar(Mid(str, i, 1))  
  56. Next i  
  57. EndFunction
Function getpychar(char)tmp = 65536 + Asc(char)If (tmp >= 45217 And tmp <= 45252) Thengetpychar = "A"ElseIf (tmp >= 45253 And tmp <= 45760) Thengetpychar = "B"ElseIf (tmp >= 45761 And tmp <= 46317) Thengetpychar = "C"ElseIf (tmp >= 46318 And tmp <= 46825) Thengetpychar = "D"ElseIf (tmp >= 46826 And tmp <= 47009) Thengetpychar = "E"ElseIf (tmp >= 47010 And tmp <= 47296) Thengetpychar = "F"ElseIf (tmp >= 47297 And tmp <= 47613) Thengetpychar = "G"ElseIf (tmp >= 47614 And tmp <= 48118) Thengetpychar = "H"ElseIf (tmp >= 48119 And tmp <= 49061) Thengetpychar = "J"ElseIf (tmp >= 49062 And tmp <= 49323) Thengetpychar = "K"ElseIf (tmp >= 49324 And tmp <= 49895) Thengetpychar = "L"ElseIf (tmp >= 49896 And tmp <= 50370) Thengetpychar = "M"ElseIf (tmp >= 50371 And tmp <= 50613) Thengetpychar = "N"ElseIf (tmp >= 50614 And tmp <= 50621) Thengetpychar = "O"ElseIf (tmp >= 50622 And tmp <= 50905) Thengetpychar = "P"ElseIf (tmp >= 50906 And tmp <= 51386) Thengetpychar = "Q"ElseIf (tmp >= 51387 And tmp <= 51445) Thengetpychar = "R"ElseIf (tmp >= 51446 And tmp <= 52217) Thengetpychar = "S"ElseIf (tmp >= 52218 And tmp <= 52697) Thengetpychar = "T"ElseIf (tmp >= 52698 And tmp <= 52979) Thengetpychar = "W"ElseIf (tmp >= 52980 And tmp <= 53640) Thengetpychar = "X"ElseIf (tmp >= 53689 And tmp <= 54480) Thengetpychar = "Y"ElseIf (tmp >= 54481 And tmp <= 62289) Thengetpychar = "Z"Else '如果不是中文，則不處理getpychar = charEnd IfEnd FunctionFunction getpy(str)For i = 1 To Len(str)getpy = getpy & getpychar(Mid(str, i, 1))Next iEnd Function            

相關推薦

在excel中實現漢字轉換拼音首字母大寫

                在excel 2003和2007中已經驗證成功。程式碼為網上收集，原作者已不可考。[vb] view plain copy print?Function getpychar(char)  tmp = 65536 + Asc(char)  If (tmp >= 45217 

asp-姓名(漢字)轉換拼音(首字母)方法（原創）

前期準備工作： 1、需要編碼的資料庫表，本例為sql 6.5資料庫，表名為aa_u_personal ，姓名標題為P_name，儲存拼音列標題為BianMa; 2、拼音表（PinYinDatebase.mdb，需要者請提供E-mail）檔案。 以下為asp檔案原始碼 <

excel中把漢字轉換成拼音--首字母

Excel中把漢字轉換成拼音--首字母 1.啟動Excel 2003（其它版本請仿照操作），開啟相應的工作表； 2.執行“工具→巨集→Visual Basic編輯器”命令（或者直接按“Alt+

簡單測試--C#實現中文漢字轉拼音首字母

esp chart htm foreach ext ads linq 類庫 play 第一種： 這個是自己寫的比較簡單的實現方法，要做漢字轉拼音首字母，首先應該有一個存儲首字母的數組，然後將要轉拼音碼的漢字與每個首字母開頭的第一個漢字即“最小”的漢字作比較，這裏的最小指的是

mysql 查詢漢字的全拼音以及查詢各個漢字的拼音首字母

查查詢漢字的全拼音 -- 建立漢字拼音對照臨時表 CREATE TABLE IF NOT EXISTS `t_base_pinyin` ( `pin_yin_` varchar(255) CHARACTER SET gbk NOT NULL, `code_` int(11) NOT NUL

javascript 實現中文按照拼音首字母排序

js提供了sort()方法來對陣列內的資料進行排序，但是隻是對英文有作用，這個時候需要自定義排序的規則 ['張三','李四','王五'].sort((a, b) => a.localeCompare(b, 'zh-Hans-CN', {sensitivity: 'accent'})) 輸出 ['李

(轉)C# 獲取漢字的拼音首字母和全拼（含原始碼）[A]

  https://blog.csdn.net/younghaiqing/article/details/62417269   C# 獲取漢字的拼音首字母 一種是把所有中文字元集合起來組成一個對照表；另一種是依照漢字在Unicode編碼表中的排序來確定拼音的首字母

根據漢字得到拼音首字母方法

private string GetChineseSpell(string strText)    {        int len = strText.Length;        string myStr = "";        for (int i = 0; i &l

MySQL獲取漢字的拼音首字母

--獲取漢字拼音首字母的函式其一 DROP FUNCTION IF EXISTS `GET_FIRST_PINYIN_CHAR`; DELIMITER ;; CREATE FUNCTION `GET_F

delphi 漢字轉拼音首字母

function HZtoPY(HZStr: WideString): String; Var s, c: AnsiString; i: Integer; begin Result := ''; for i := 1 To Length(HZStr) do

Oracle提取中文字符串拼音首字母函數

oracl code 通過 sort target cti arch clas pinyin 通過oracle的NLSSORT函數對漢字按照拼音排序，然後根據漢字的區間返回對應的首字母。 效果1，獲取拼音簡碼： 效果2，獲取姓名首字母： 創建函數： /*

Java實現漢字轉換拼音功能

使用工具類： <dependency> <groupId>com.belerweb</groupId> <artifactId>pinyin4j</artifactId> <versio

PHP中文字串轉化為英文首拼音首字母大寫

效果： 中國 =>ZG 中文轉化為英文首字母 中國：ZG ；中2國：ZG；z國：ZG 1:省略了數字（不轉化） 用法： $result =Character::getEnByCnByString(‘i是中國人’,3);//這邊的3為

JAVA之字串轉換成首字母大寫，其餘小寫

package yu;public class Main {public static void main(String[] args) {String str="abcdefgHIJK";//定義一串字元String str1=str.substring(0, 1).toU

SQL將用戶表中已存在的數據所有姓名（漢字）轉換為拼音首字母

var 語句 ont htm bold varchar 實現 where into 實現方法： --函數 Create function [dbo].[fn_GetPy](@str nvarchar(4000)) returns nvarchar(4000) --

在Excel中如何獲取漢字拼音首字母?

轉自：https://jingyan.baidu.com/article/0a52e3f43c3f6abf63ed7259.html百度經驗 在Excel中如何獲取漢字拼音首字母?|      在工作中，為了方便查詢、排序或者編碼，需要生成漢字內容

java中漢字轉換成拼音首字母

方法一： 最近做的B2B商城的專案，有這樣的一個需求，要求獲取使用者輸入的商品推薦型別漢字轉換成每個漢字的拼音首字母存入資料庫，在網上搜索了下，之看到了返回所有漢字的拼音，我在這裡做了一下修改，程式碼如下： import java.io.Serializable;    

python3將漢字轉換為大寫拼音首字母

利用pypinyin包 實現 1 In [18]: from pypinyin import pinyin 2 In [19]: a = pinyin('你好世界') 3 In [20]: b = [] 4 In [21]: for i in range(len(a)): 5 ...:

java漢字轉換為拼音首字母

今天講講如何把中文的漢字轉換為拼音首字母，如"中國"轉換為“zg”，這裡要用到一個開源jar包【pinyin4j】 <span style="font-size:14px;">import net.sourceforge.pinyin4j.PinyinHelp

java實現中文漢字轉中文全拼和拼音首字母縮寫的方法

        使用者為新建產品命名時通常使用中文，而假如後臺需要根據使用者輸入的中文名稱進行欄位拼接時，就需要將中文漢字轉化為中文。所以就用到了pinyin4j這個java工具包(官方網站：http://pinyin4j.sourceforge.net/)。這個工具包是開源