ಕರ್ಕಶದಲ್ಲಿ ಸುಮಾ

ಕೆಳಗೆ ನೀವು ಯಾವುದೇ ಸಂಖ್ಯೆಯನ್ನು ಭಾಷಾಂತರಿಸುವ VBA ಯಲ್ಲಿ ಸಿದ್ಧ-ನಿರ್ಮಿತ ಬಳಕೆದಾರ-ವ್ಯಾಖ್ಯಾನಿತ ಕಾರ್ಯವನ್ನು ಕಾಣಬಹುದು 0 ನಿಂದ 9 ಗೆ ಅದರ ಪಠ್ಯ ಪ್ರಾತಿನಿಧ್ಯಕ್ಕೆ, ಅಂದರೆ ಪದಗಳಲ್ಲಿನ ಮೊತ್ತದಲ್ಲಿ. ಬಳಕೆಗೆ ಮೊದಲು, ಈ ಕಾರ್ಯವನ್ನು ನಿಮ್ಮ ಪುಸ್ತಕಕ್ಕೆ ಸೇರಿಸಬೇಕು. ಇದಕ್ಕಾಗಿ:

1. ಕೀಬೋರ್ಡ್ ಶಾರ್ಟ್‌ಕಟ್ ಒತ್ತಿರಿ ALT + F11ವಿಷುಯಲ್ ಬೇಸಿಕ್ ಎಡಿಟರ್ ತೆರೆಯಲು
2. ಮೆನು ಮೂಲಕ ಹೊಸ ಖಾಲಿ ಮಾಡ್ಯೂಲ್ ಸೇರಿಸಿ ಸೇರಿಸಿ - ಮಾಡ್ಯೂಲ್
3. ಈ ಕಾರ್ಯದ ಪಠ್ಯವನ್ನು ಅಲ್ಲಿ ನಕಲಿಸಿ ಮತ್ತು ಅಂಟಿಸಿ:

ಫಂಕ್ಷನ್ SUM(n ದ್ವಿಗುಣ) ಸ್ಟ್ರಿಂಗ್ ಮಂದ ಸಂಖ್ಯೆಗಳು1, ಸಂಖ್ಯೆಗಳು2, ಸಂಖ್ಯೆಗಳು3, ಸಂಖ್ಯೆಗಳು4 ರೂಪಾಂತರ ಸಂಖ್ಯೆಗಳು1 = ಅರೇ("", "ಒಂದು", "ಎರಡು", "ಮೂರು", "ನಾಲ್ಕು", "ಐದು", "ಆರು", "ಏಳು", "ಎಂಟು", "ಒಂಬತ್ತು") ಸಂಖ್ಯೆಗಳು2 = ಅರೇ("", "ಹತ್ತು", "ಇಪ್ಪತ್ತು", "ಮೂವತ್ತು", "ನಲವತ್ತು", "ಐವತ್ತು", "ಅರವತ್ತು", "ಎಪ್ಪತ್ತು", _ "ಎಂಬತ್ತು ", "ತೊಂಬತ್ತು") ಸಂಖ್ಯೆಗಳು3 = ಅರೇ("", "ನೂರು", "ಇನ್ನೂರು", "ಮೂರು ನೂರು", "ನಾಲ್ಕು ನೂರು", "ಐದು ನೂರು", "ಆರು ನೂರು", "ಏಳು ನೂರು", _ " ಎಂಟು ನೂರು", "ಒಂಬತ್ತು ನೂರು") ಸಂಖ್ಯೆಗಳು 4 = ಅರೇ("", "ಒಂದು", "ಎರಡು", "ಮೂರು", "ನಾಲ್ಕು", "ಐದು", "ಆರು", "ಏಳು", "ಎಂಟು", "ಒಂಬತ್ತು" ") Nums5 = Array("ಹತ್ತು " , "ಹನ್ನೊಂದು", "ಹನ್ನೆರಡು", "ಹದಿಮೂರು", "ಹದಿನಾಲ್ಕು", _ "ಹದಿನೈದು", "ಹದಿನಾರು", "ಹದಿನೇಳು", "ಹದಿನೆಂಟು", "ಹತ್ತೊಂಬತ್ತು") ವೇಳೆ n < = 0 ನಂತರ SUMWRITE = "ಶೂನ್ಯ" ಎಕ್ಸಿಟ್ ಫಂಕ್ಷನ್ ಅಂತ್ಯ 'ಸಹಾಯಕ ಕಾರ್ಯವನ್ನು ಬಳಸಿಕೊಂಡು ಸಂಖ್ಯೆಯನ್ನು ಅಂಕೆಗಳಾಗಿ ವಿಂಗಡಿಸಿದರೆ ವರ್ಗ ed = ವರ್ಗ(n, 1) dec = Class(n, 2) sot = Class(n, 3) tys = ವರ್ಗ (n, 4) dectys = ವರ್ಗ(n, 5) sottys = ವರ್ಗ(n, 6) mil = ವರ್ಗ(n, 7) decmil= ವರ್ಗ(n, 8) 'ಮಿಲಿಯನ್‌ಗಳನ್ನು ಪರಿಶೀಲಿಸಿ ಕೇಸ್ decmil ಕೇಸ್ 1 mil_txt = Nums5(mil ) & "ಮಿಲಿಯನ್ " GoTo www ಕೇಸ್ 2 ರಿಂದ 9 decmil_txt = Nums2(decmil) ಅಂತ್ಯ ಆಯ್ಕೆಮಾಡಿ ಕೇಸ್ ಮಿಲ್ ಕೇಸ್ 1 mil_txt = Nums1(mil) & "million" ಕೇಸ್ 2, 3, 4 mil_txt = Nums1(mil) & "ಮಿಲಿಯನ್ " ಕೇಸ್ 5 ರಿಂದ 20 mil_txt = Nums1(mil) & "millions" ಎಂಡ್ ಆಯ್ಕೆ ಮಾಡಿ www: sottys_txt = Nums3(sottys) ' ಸಾವಿರಾರು ಪರಿಶೀಲಿಸಿ ಕೇಸ್ ಡೆಕ್ಟೀಸ್ ಆಯ್ಕೆಮಾಡಿ ಕೇಸ್ 1 tys_txt = Nums5(tys) & "ಸಾವಿರಾರು" GoTo eee Case 2 ರಿಂದ 9 dectyst(nuysdect =)2xt ಕೊನೆಗೆ ಆಯ್ಕೆಮಾಡಿ ಕೇಸ್ ಟೈಸ್ ಕೇಸ್ 0 ಅನ್ನು ಆಯ್ಕೆ ಮಾಡಿದರೆ > 0 ನಂತರ tys_txt = Nums4(tys) & "ಸಾವಿರಾರು" ಪ್ರಕರಣ 1 tys_txt = Nums4(tys) & "ಸಾವಿರ" ಪ್ರಕರಣ 2, 3, 4 tys_txt = Nums4(tys) & " ಕೇಸ್ 5 ರಿಂದ 9 tys_txt = Nums4(tys) & "ಸಾವಿರಾರು" ಅಂತ್ಯವನ್ನು ಆಯ್ಕೆ ಮಾಡಿದರೆ dectys = 0 ಮತ್ತು tys = 0 ಮತ್ತು sottys <> 0 ನಂತರ sottys_txt = sottys_txt & "ಸಾವಿರ" eee: sot_txt = Nums3(sot) ' dec ಕೇಸ್ 1 ed_txt = Nums5(ed) GoTo rrr ಕೇಸ್ 2 ರಿಂದ 9 dec_txt = Nums2(dec) ಅಂತ್ಯ ಆಯ್ಕೆಮಾಡಿ ed_txt = Nums1 (ed) rrr: 'SUM IN SPEECH = decmil_ txt & sottyst_ decmil_txt & sottyst_ tys_txt & sot_txt & dec_txt & ed_txt ಎಂಡ್ ಫೂ ಅಂಕೆಗಳ ಸಂಖ್ಯೆಯಿಂದ ಹೊರತೆಗೆಯಲು nction ' ಸಹಾಯಕ ಕಾರ್ಯ (M, I) ವರ್ಗ = Int(M - (10 ^ I) * Int(M / (10 ^ I)) / 10 ^ (I - 1)) ಅಂತಿಮ ಕಾರ್ಯ    

ಫೈಲ್ ಅನ್ನು ಉಳಿಸಿ (ನೀವು ಎಕ್ಸೆಲ್ 2007 ಅಥವಾ 2010 ಅನ್ನು ಹೊಂದಿದ್ದರೆ, ಫೈಲ್ ಪ್ರಕಾರವನ್ನು ಮ್ಯಾಕ್ರೋ-ಸಕ್ರಿಯಗೊಳಿಸಬೇಕು, ಅಂದರೆ xlsm ಫಾರ್ಮ್ಯಾಟ್!) ಮತ್ತು ಎಕ್ಸೆಲ್‌ಗೆ ಹಿಂತಿರುಗಿ. ಈಗ ನೀವು ರಚಿಸಿದ ಕಾರ್ಯವನ್ನು ವರ್ಕ್‌ಶೀಟ್‌ನ ಯಾವುದೇ ಕೋಶಕ್ಕೆ ಸಾಮಾನ್ಯ ರೀತಿಯಲ್ಲಿ ಸೇರಿಸಬಹುದು - ಫಂಕ್ಷನ್ ವಿಝಾರ್ಡ್ (ಬಟನ್) ಮೂಲಕ f_x ಫಾರ್ಮುಲಾ ಬಾರ್, ವರ್ಗದಲ್ಲಿ ಬಳಕೆದಾರ ವ್ಯಾಖ್ಯಾನಿಸಲಾಗಿದೆ) ಅಥವಾ ಅದನ್ನು ಸೆಲ್‌ನಲ್ಲಿ ಹಸ್ತಚಾಲಿತವಾಗಿ ಟೈಪ್ ಮಾಡುವ ಮೂಲಕ ಮತ್ತು ಸೆಲ್ ಅನ್ನು ಆರ್ಗ್ಯುಮೆಂಟ್‌ನಂತೆ ಮೊತ್ತದೊಂದಿಗೆ ನಿರ್ದಿಷ್ಟಪಡಿಸುವ ಮೂಲಕ:

ಸ್ವೀಕರಿಸಿದ ಪಠ್ಯಕ್ಕೆ ನೀವು ನಾಣ್ಯಗಳನ್ನು ಸೇರಿಸಬೇಕಾದರೆ, ನೀವು ಸ್ವಲ್ಪ ಹೆಚ್ಚು ಸಂಕೀರ್ಣವಾದ ನಿರ್ಮಾಣವನ್ನು ಬಳಸಬಹುದು:

 u3d SUM ಇನ್ ರೈಟ್ (A3) & ” ರಬ್. “&TEXT((A3-INTEGER(A100))*00;”XNUMX″)&”cop.” 

u3d SUM ಇನ್ ರೈಟ್ (A3) & ” ರಬ್. “&TEXT((A3-INT(A100))*00;”XNUMX″)&”ಕಾಪ್.”

ನಂತರ, ಉದಾಹರಣೆಗೆ, 35,15 ಸಂಖ್ಯೆಗೆ, ಕಾರ್ಯದ ಫಲಿತಾಂಶವು “ಮೂವತ್ತೈದು ರೂಬಲ್ಸ್‌ಗಳಂತೆ ಕಾಣುತ್ತದೆ. 15 ಕಾಪ್."

• PLEX ಆಡ್-ಆನ್‌ನಿಂದ / ಇಂಗ್ಲಿಷ್‌ನಲ್ಲಿ ರೂಬಲ್‌ಗಳು ಮತ್ತು ಕೊಪೆಕ್‌ಗಳೊಂದಿಗೆ ಕಾರ್ಯದ ಹೆಚ್ಚು ಶಕ್ತಿಯುತ ಆವೃತ್ತಿ
• ಮ್ಯಾಕ್ರೋಗಳು ಯಾವುವು, ಮ್ಯಾಕ್ರೋ ಕೋಡ್ ಅನ್ನು ಎಲ್ಲಿ ಸೇರಿಸಬೇಕು, ಅವುಗಳನ್ನು ಹೇಗೆ ಬಳಸುವುದು