ਸੂਮਾ ਵਿਚ

ਹੇਠਾਂ ਤੁਹਾਨੂੰ VBA ਵਿੱਚ ਇੱਕ ਤਿਆਰ-ਬਣਾਇਆ ਉਪਭੋਗਤਾ-ਪ੍ਰਭਾਸ਼ਿਤ ਫੰਕਸ਼ਨ ਮਿਲੇਗਾ ਜੋ ਕਿਸੇ ਵੀ ਸੰਖਿਆ ਦਾ ਅਨੁਵਾਦ ਕਰਦਾ ਹੈ 0 ਤੱਕ 9 ਤੱਕ ਇਸ ਦੇ ਪਾਠਕ ਪ੍ਰਤੀਨਿਧਤਾ ਵਿੱਚ, ਭਾਵ ਸ਼ਬਦਾਂ ਵਿੱਚ ਮਾਤਰਾ ਵਿੱਚ। ਵਰਤਣ ਤੋਂ ਪਹਿਲਾਂ, ਇਸ ਫੰਕਸ਼ਨ ਨੂੰ ਤੁਹਾਡੀ ਕਿਤਾਬ ਵਿੱਚ ਸ਼ਾਮਲ ਕਰਨਾ ਲਾਜ਼ਮੀ ਹੈ। ਇਸ ਲਈ:

1. ਕੀਬੋਰਡ ਸ਼ਾਰਟਕੱਟ ਦਬਾਓ ALT + F11ਵਿਜ਼ੂਅਲ ਬੇਸਿਕ ਐਡੀਟਰ ਖੋਲ੍ਹਣ ਲਈ
2. ਮੀਨੂ ਰਾਹੀਂ ਨਵਾਂ ਖਾਲੀ ਮੋਡੀਊਲ ਸ਼ਾਮਲ ਕਰੋ ਸੰਮਿਲਿਤ ਕਰੋ - ਮੋਡੀਊਲ
3. ਇਸ ਫੰਕਸ਼ਨ ਦੇ ਟੈਕਸਟ ਨੂੰ ਕਾਪੀ ਅਤੇ ਪੇਸਟ ਕਰੋ:

ਫੰਕਸ਼ਨ SUM(n As Double) ਸਟਰਿੰਗ ਡਿਮ ਨੰਬਰ 1, ਸੰਖਿਆ 2, ਸੰਖਿਆ 3, ਸੰਖਿਆ 4 ਦੇ ਰੂਪ ਵਿੱਚ ਵੇਰੀਐਂਟ ਨੰਬਰ 1 = ਐਰੇ("", "ਇੱਕ", "ਦੋ", "ਤਿੰਨ", "ਚਾਰ", "ਪੰਜ", "ਛੇ", "ਸੱਤ", "ਅੱਠ", "ਨੌਂ") ਸੰਖਿਆ 2 = ਐਰੇ("", "ਦਸ", "ਵੀਹ", "ਤੀਹ", "ਚਾਲੀ", "ਪੰਜਾਹ", "ਸੱਠ", "ਸੱਤਰ", _ "ਅੱਠ" ", "ਨੱਬੇ") ਸੰਖਿਆ 3 = ਐਰੇ("", "ਇੱਕ ਸੌ", "ਦੋ ਸੌ", "ਤਿੰਨ ਸੌ", "ਚਾਰ ਸੌ", "ਪੰਜ ਸੌ", "ਛੇ ਸੌ", "ਸੱਤ ਸੌ", _" ਅੱਠ ਸੌ", "ਨੌਂ ਸੌ") ਸੰਖਿਆ 4 = ਐਰੇ("", "ਇੱਕ", "ਦੋ", "ਤਿੰਨ", "ਚਾਰ", "ਪੰਜ", "ਛੇ", "ਸੱਤ", "ਅੱਠ", "ਨੌ" ") ਸੰਖਿਆ 5 = ਐਰੇ ("ਦਸ" , "ਗਿਆਰਾਂ", "ਬਾਰ੍ਹਾਂ", "ਤੇਰ੍ਹਾਂ", "ਚੌਦਾਂ", _ "ਪੰਦਰਾਂ", "ਸੋਲ੍ਹਾਂ", "ਸਤਾਰਾਂ", "ਅਠਾਰਾਂ", "ਉਨੀਸ") ਜੇਕਰ n < = 0 ਫਿਰ SUMWRITE = "ਜ਼ੀਰੋ" ਐਗਜ਼ਿਟ ਫੰਕਸ਼ਨ ਐਂਡ ਜੇ ' ਸਹਾਇਕ ਫੰਕਸ਼ਨ ਦੀ ਵਰਤੋਂ ਕਰਕੇ ਸੰਖਿਆ ਨੂੰ ਅੰਕਾਂ ਵਿੱਚ ਵੰਡੋ Class ed = Class(n, 1) dec = Class(n, 2) sot = Class(n, 3) tys = ਕਲਾਸ (n, 4) dectys = Class(n , 5) sottys = Class(n, 6) mil = Class(n, 7) decmil= Class(n, 8) 'ਚੈੱਕ ਲੱਖਾਂ ਦੀ ਜਾਂਚ ਕਰੋ ਕੇਸ ਡੈਕਮਿਲ ਕੇਸ 1 mil_txt = ਸੰਖਿਆ 5(ਮਿਲੀ) ) & "ਮਿਲੀਅਨ" GoTo www ਕੇਸ 2 ਤੋਂ 9 decmil_txt = ਸੰਖਿਆ 2(decmil) End ਚੁਣੋ ਕੇਸ ਮਿਲ ਕੇਸ 1 mil_txt = ਸੰਖਿਆ 1(ਮਿਲ) ਅਤੇ "ਮਿਲੀਅਨ" ਕੇਸ 2, 3, 4 ਮਿਲ_ਟੀਐਕਸਟੀ = ਸੰਖਿਆ 1(ਮਿਲ) ਅਤੇ "ਮਿਲੀਅਨ" ਕੇਸ 5 ਤੋਂ 20 mil_txt = ਸੰਖਿਆ 1(ਮਿਲ) ਅਤੇ "ਮਿਲੀਅਨ" ਅੰਤ www ਦੀ ਚੋਣ ਕਰੋ: sottys_txt = Nums3(sottys) ' ਹਜ਼ਾਰਾਂ ਦੀ ਜਾਂਚ ਕਰੋ ਕੇਸ ਡੀਕਟਿਸ ਕੇਸ 1 tys_txt = Nums5(tys) & "ਹਜ਼ਾਰਾਂ" GoTo eee ਕੇਸ 2_ ਤੋਂ 9 = ਨੰਬਰ 2(ਡੈਕਟਿਸ) ਅੰਤ ਨੂੰ ਚੁਣੋ ਕੇਸ tys ਕੇਸ 0 ਚੁਣੋ ਜੇਕਰ dectys > 0 ਤਾਂ tys_txt = ਸੰਖਿਆ 4(tys) & "ਹਜ਼ਾਰ" ਕੇਸ 1 tys_txt = ਸੰਖਿਆ 4(tys) & "ਹਜ਼ਾਰ" ਕੇਸ 2, 3, 4 tys_txt = ਸੰਖਿਆ 4 & "ਹਜ਼ਾਰਾਂ" ਕੇਸ 5 ਤੋਂ 9 tys_txt = ਸੰਖਿਆ 4(tys) & "ਹਜ਼ਾਰਾਂ" ਅੰਤ ਦੀ ਚੋਣ ਕਰੋ ਜੇਕਰ dectys = 0 ਅਤੇ tys = 0 ਅਤੇ sottys <> 0 ਫਿਰ sottys_txt = sottys_txt & "ਹਜ਼ਾਰਾਂ" eee: sot_txt = nums3 ' ਦਸਾਂ ਦੀ ਜਾਂਚ ਕਰੋ ਕੇਸ dec ਕੇਸ 1 ed_txt = ਸੰਖਿਆ 5(ed) GoTo rrr ਕੇਸ 2 ਤੋਂ 9 dec_txt = ਸੰਖਿਆ 2(ਦਸੰਬਰ) ਅੰਤ ਚੁਣੋ ed_txt = ਸੰਖਿਆ 1 (ed) rrr: 'ਭਾਸ਼ਣ ਵਿੱਚ SUM = decmil_ txt & ਨਾਲ ਅੰਤਮ ਕਤਾਰ ਬਣਾਓ sottys_txt & dectys_txt & tys_txt & sot_txt & dec_txt & ed_txt ਅੰਤ ਫੰਕਸ਼ਨ ' ਸਹਾਇਕ ਫੰਕਸ਼ਨ ਅੰਕਾਂ ਦੀ ਸੰਖਿਆ ਤੋਂ ਐਕਸਟਰੈਕਟ ਕਰਨ ਲਈ ਪ੍ਰਾਈਵੇਟ ਫੰਕਸ਼ਨ ਕਲਾਸ(M, I) ਕਲਾਸ = Int(Int(M - (10 ^ I)) * Int(M / ( 10 ^ I))) / 10 ^ (I - 1)) ਅੰਤ ਫੰਕਸ਼ਨ    

ਫਾਈਲ ਨੂੰ ਸੇਵ ਕਰੋ (ਜੇ ਤੁਹਾਡੇ ਕੋਲ ਐਕਸਲ 2007 ਜਾਂ 2010 ਹੈ, ਤਾਂ ਫਾਈਲ ਦੀ ਕਿਸਮ ਮੈਕਰੋ-ਸਮਰੱਥ ਹੋਣੀ ਚਾਹੀਦੀ ਹੈ, ਭਾਵ xlsm ਫਾਰਮੈਟ!) ਅਤੇ ਐਕਸਲ 'ਤੇ ਵਾਪਸ ਜਾਓ। ਹੁਣ ਤੁਸੀਂ ਬਣਾਏ ਫੰਕਸ਼ਨ ਨੂੰ ਵਰਕਸ਼ੀਟ ਦੇ ਕਿਸੇ ਵੀ ਸੈੱਲ ਵਿੱਚ ਆਮ ਤਰੀਕੇ ਨਾਲ ਪਾ ਸਕਦੇ ਹੋ - ਫੰਕਸ਼ਨ ਵਿਜ਼ਾਰਡ (ਬਟਨ) ਰਾਹੀਂ f_x ਫਾਰਮੂਲਾ ਪੱਟੀ, ਸ਼੍ਰੇਣੀ ਵਿੱਚ ਉਪਭੋਗਤਾ ਪ੍ਰਭਾਸ਼ਿਤ) ਜਾਂ ਬਸ ਇਸ ਨੂੰ ਸੈਲ ਵਿੱਚ ਹੱਥੀਂ ਟਾਈਪ ਕਰਕੇ ਅਤੇ ਇੱਕ ਦਲੀਲ ਦੇ ਤੌਰ 'ਤੇ ਰਕਮ ਦੇ ਨਾਲ ਸੈੱਲ ਨੂੰ ਨਿਸ਼ਚਿਤ ਕਰਕੇ:

ਜੇ ਤੁਹਾਨੂੰ ਪ੍ਰਾਪਤ ਕੀਤੇ ਟੈਕਸਟ ਵਿੱਚ ਪੈਸੇ ਜੋੜਨ ਦੀ ਜ਼ਰੂਰਤ ਹੈ, ਤਾਂ ਤੁਸੀਂ ਥੋੜਾ ਹੋਰ ਗੁੰਝਲਦਾਰ ਨਿਰਮਾਣ ਵਰਤ ਸਕਦੇ ਹੋ:

 u3d SUM IN WRITE (A3) ਅਤੇ ”ਰੱਬ ਕਰੋ। "&TEXT((A3-ਪੂਰਨ ਅੰਕ(A100))*00;"XNUMX″)&"cop." 

u3d SUM IN WRITE (A3) ਅਤੇ ”ਰੱਬ ਕਰੋ। "&TEXT((A3-INT(A100))*00;"XNUMX″)&"cop."

ਫਿਰ, ਉਦਾਹਰਨ ਲਈ, 35,15 ਨੰਬਰ ਲਈ, ਫੰਕਸ਼ਨ ਦਾ ਨਤੀਜਾ “ਪੈਂਤੀ ਰੂਬਲ” ਵਰਗਾ ਦਿਖਾਈ ਦੇਵੇਗਾ। 15 ਕੋਪ।"

• PLEX ਐਡ-ਆਨ ਤੋਂ / ਅੰਗਰੇਜ਼ੀ ਵਿੱਚ ਰੂਬਲ ਅਤੇ ਕੋਪੇਕਸ ਦੇ ਨਾਲ ਫੰਕਸ਼ਨ ਦਾ ਇੱਕ ਵਧੇਰੇ ਸ਼ਕਤੀਸ਼ਾਲੀ ਸੰਸਕਰਣ
• ਮੈਕਰੋ ਕੀ ਹਨ, ਮੈਕਰੋ ਕੋਡ ਕਿੱਥੇ ਪਾਉਣਾ ਹੈ, ਉਹਨਾਂ ਦੀ ਵਰਤੋਂ ਕਿਵੇਂ ਕਰਨੀ ਹੈ