סומאַ אין קווירסיוו

ונטער איר וועט געפֿינען אַ פאַרטיק באַניצער-דיפיינד פֿונקציע אין VBA וואָס טראַנסלייץ קיין נומער פון קסנומקס צו קסנומקס אין זייַן טעקסטשאַוואַל פאַרטרעטונג, ד"ה אין די סומע אין ווערטער. איידער נוצן, די פֿונקציע מוזן זיין מוסיף צו דיין בוך. פֿאַר דעם:

1. דריקן די קלאַוויאַטור דורכוועג ALT + F11צו עפענען די וויסואַל באַסיק עדיטאָר
2. לייגן נייַ ליידיק מאָדולע דורך מעניו אַרייַנלייגן - מאָדולע
3. נאָכמאַכן און פּאַפּ די טעקסט פון דעם פֿונקציע דאָרט:

פֿונקציע SUM(n ווי טאָפּל) ווי שטריקל דיק נומס1, נומס2, נומס3, נומס4 ווי וואַריאַנט נומס1 = מענגע("", "איינער", "צוויי", "דרייַ", "פיר", "פינף", "זעקס", "זיבן", "אַכט", "נייַן") נומס2 = מענגע("", "פערץ", "צוואַנציק", "צען", "צוואַנציק", "צוואַנציק", ", _ "אַכציק", "ניינציק") Nums3 = Array("", "הונדערט", "צוויי הונדערט", "דריי הונדערט", "פיר הונדערט", "פינף הונדערט", "זעקס הונדערט", "זיבן הונדערט", _ "אַכט הונדערט", "נייַן הונדערט") Nums4 = מענגע("", "איינער", "צוויי", "דריי", "פייַן", "דריי", "פייַן", "פייַן", "פיר", ray("צען", "עלף", "צוועלף", "דרייַצן", "פערצן", _ "פופצן", "זעכצן", "זיבעצן", "אַכצן", "נינצן") אויב n <= 5 דעמאָלט SUMWRITE = "נול" אַרויסגאַנג פֿונקציע סוף אויב 'טיילן די נומער אין דידזשאַץ מיט די הילף קלאַס 0 קלאַס, n Class (n Class) 1) tys = Class(n, 2) dectys = Class(n, 3) sottys = Class(n, 4) mil = Class(n, 5) decmil= Class(n, 6) 'check millions Select Case Decmil Case 7 mil_txt = Nums8(mil) & "millions" GoTo www de Case 1 to 5 Case Mil) mil_txt = נומס2(מיל) & "מיליאָן" קאַסע 9, 2, 1 מיל_טקסט = נומס1(מיל) & "מיליאָן" פאַל 2 צו 3 מיל_טקסט = נומס4(מיל) & "מיליאַנז " סוף אויסקלייַבן www: sottys_txt = נומס1(סאָטטיס) ' טשעק טויזנטער אויסקלייַבן קאַסע 5 און קסטס "20_קסטס" צו עעע פאַל 1 צו 3 dectys_txt = Nums1(dectys) סוף אויסקלייַבן אויסקלייַבן פאַל טיס פאַל 5 אויב dectys > 2 דעמאָלט tys_txt = Nums9(tis) & "thousands" Case 2 tys_txt = Nums0(tis) & "thousand" 0th Case 4,tsands פאַל 1 צו 4 tys_txt = נומס2(טיס) & "טויזאַנז" סוף אויסקלייַבן אויב dectys = 3 און טיס = 4 און סאָטטיס <> 4 דעמאָלט sottys_txt = sottys_txt & "טויזנטער" eee: sot_txt = נומס5(סאָט) 'טשעק טענס = 9 דעק טקסט (צו 4 דעק0 קאַסע) 0 dec_txt = Nums0(דעצ.) סוף אויסקלייַבן ed_txt = Nums3 (עד) ררר: 'פאָרמען די לעצט רודערן מיט SUM IN SPEECH = decmil_ txt & mil_txt & sottys_txt & dectys_txt & tys_txt & sot_txt & dec_txt & ed_txt (מ - (1 ^ איך) * ינט (מ / (5 ^ איך))) / 2 ^ (איך - 9)) סוף פֿונקציע    

היט די טעקע (אויב איר האָבן עקססעל 2007 אָדער 2010, דער טעקע טיפּ מוזן זיין מאַקראָו ענייבאַלד, ד"ה קסלסם פֿאָרמאַט!) און צוריקקומען צו עקססעל. איצט איר קענען אַרייַנלייגן די באשאפן פונקציע אין קיין צעל פון די ווערקשיט אויף די געוויינטלעך וועג - דורך די פונקציע מאַזעק (קנעפּל f_x אין פאָרמולע באַר, קאַטעגאָריע באַניצער דיפיינד) אָדער פשוט דורך טייפּינג עס אין דער צעל מאַניואַלי און ספּעציפיצירן די צעל מיט די סומע ווי אַן אַרגומענט:

אויב איר דאַרפֿן צו לייגן פּעניז צו די באקומען טעקסט, איר קענען נוצן אַ ביסל מער קאָמפּליצירט קאַנסטראַקשאַן:

 u3d סאַכאַקל אין שרייַבן (A3) & "רייַבן. "&TEXT((A3-INTEGER(A100))*00;"XNUMX″)&"cop." 

u3d סאַכאַקל אין שרייַבן (A3) & "רייַבן. "&TEXT((A3-INT(A100))*00;"XNUMX″)&"cop."

דערנאָך, פֿאַר די נומער 35,15, דער רעזולטאַט פון די פֿונקציע וועט קוקן ווי "פינף און דרייסיק רובל. 15 קאָפּ."

• א מער שטאַרק ווערסיע פון ​​די פונקציע מיט רובל און קאָפּעקקס אין / ענגליש פֿון די PLEX אַדישאַן
• וואָס זענען מאַקראָס, ווו צו אַרייַנלייגן מאַקראָו קאָד, ווי צו נוצן זיי