Maison  >  Article  >  Les sujets  >  Que dois-je faire si la fonction getpy ne peut pas être utilisée ?

Que dois-je faire si la fonction getpy ne peut pas être utilisée ?

藏色散人
藏色散人original
2019-11-06 16:40:2757318parcourir

Que dois-je faire si la fonction getpy ne peut pas être utilisée ?

la fonction getpy ne fonctionne pas ?

La fonction getpy ne peut pas être utilisée car Excel n'a pas été ajouté avec succès.

Tutoriel recommandé : Tutoriel Excel

Comment ajouter la fonction getpy à Excel :

1. Ouvrez Excel et appuyez simultanément sur les touches Alt+F11. il est temps d'ouvrir l'interface VBE, cliquez sur l'espace vide dans le coin supérieur gauche comme indiqué sur l'image, sélectionnez "Insérer", "Module"

Que dois-je faire si la fonction getpy ne peut pas être utilisée ?

2. fois, un module est inséré. Le code suivant doit être placé dans ce module, en s'assurant que la zone vide à droite est la zone d'édition du code du module (le moyen le plus sûr est de double-cliquer sur le module), puis passez à l'étape suivante ;

Que dois-je faire si la fonction getpy ne peut pas être utilisée ?

3. Copiez et collez tous les codes suivants dans la zone vide ;

Function pinyin(p As String) As String
i = Asc(p)
Select Case i
Case -20319 To -20284: pinyin = "A"
Case -20283 To -19776: pinyin = "B"
Case -19775 To -19219: pinyin = "C"
Case -19218 To -18711: pinyin = "D"
Case -18710 To -18527: pinyin = "E"
Case -18526 To -18240: pinyin = "F"
Case -18239 To -17923: pinyin = "G"
Case -17922 To -17418: pinyin = "H"
Case -17417 To -16475: pinyin = "J"
Case -16474 To -16213: pinyin = "K"
Case -16212 To -15641: pinyin = "L"
Case -15640 To -15166: pinyin = "M"
Case -15165 To -14923: pinyin = "N"
Case -14922 To -14915: pinyin = "O"
Case -14914 To -14631: pinyin = "P"
Case -14630 To -14150: pinyin = "Q"
Case -14149 To -14091: pinyin = "R"
Case -14090 To -13319: pinyin = "S"
Case -13318 To -12839: pinyin = "T"
Case -12838 To -12557: pinyin = "W"
Case -12556 To -11848: pinyin = "X"
Case -11847 To -11056: pinyin = "Y"
Case -11055 To -2050: pinyin = "Z"
Case Else: pinyin = p
End Select
End Function
Function getpy(str)
For i = 1 To Len(str)
getpy = getpy & pinyin(Mid(str, i, 1))
Next i
End Function

Que dois-je faire si la fonction getpy ne peut pas être utilisée ?

4. Fermez cette nouvelle interface, revenez à Excel, puis utilisez les fonctions fournies avec Excel. Utilisez la même fonction Getpy personnalisée. Elle n'a qu'un seul paramètre. Le paramètre peut spécifier directement la cellule ou saisir directement des caractères.

Que dois-je faire si la fonction getpy ne peut pas être utilisée ?

Ce qui précède est le contenu détaillé de. pour plus d'informations, suivez d'autres articles connexes sur le site Web de PHP en chinois!

Déclaration:
Le contenu de cet article est volontairement contribué par les internautes et les droits d'auteur appartiennent à l'auteur original. Ce site n'assume aucune responsabilité légale correspondante. Si vous trouvez un contenu suspecté de plagiat ou de contrefaçon, veuillez contacter admin@php.cn