In einem aktuellen Projekt bestätigte der Kunde, dass die Daten über Excel-Tabellen verarbeitet wurden. Beispielsweise ist Spalte A der Text und Spalte B der erste Buchstabe des Textes in Spalte A. Diese Anforderung kann auch durch das Schreiben von SQL erfüllt werden, es ist jedoch schneller, die Daten über Excel zu importieren. Die Verarbeitungsmethode lautet wie folgt: 1.
Starten Sie Excel und drücken Sie gleichzeitig die Tasten Alt+F11, um die VBE-Schnittstelle zu öffnen in der folgenden Abbildung dargestellt. Klicken Sie in der VBE-Oberfläche auf die leere Stelle in der oberen linken Ecke, wie im Bild gezeigt, und wählen Sie „Einfügen“, „Modul“ aus.
2. Zu diesem Zeitpunkt wird ein Modul eingefügt und der folgende Code muss in diesem Modul platziert werden. Stellen Sie sicher, dass der leere Bereich rechts der Bearbeitungsbereich des Modulcodes ist (am sichersten ist ein Doppelklick). des Moduls) und führen Sie dann den nächsten Schritt aus.
3. Kopieren Sie den gesamten folgenden Code und fügen Sie ihn in den leeren Bereich ein.
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
Dann Strg + S zum Speichern, er wird zum Speichern aufgefordert und wählt vollständig „Ja“.
4. Kehren Sie zur Excel-Tabelle zurück. Beispielsweise ist die Tabelle, die wir verarbeiten müssen, Spalte A und die zu generierende Tabelle ist Spalte B. Schreiben Sie dann die folgende Formel
=getpy(A2)
Das obige bedeutet, Zelle B2 auszuwählen. Geben Sie dann die Formel =getpy(A2) ein, b2 erhält den ersten Buchstaben des chinesischen Schriftzeichens von A2, wenn Sie mehr als einen möchten. Einfach die Strg-Taste plus das kleine +-Zeichen unter dem Tisch drücken und weiter drücken – fertig.