VBA VAL | VBA VAL ఫంక్షన్‌ను ఎలా ఉపయోగించాలి? (ఉదాహరణలతో)

ఎక్సెల్ VBA వాల్ ఫంక్షన్

Vba లో విలువ ఫంక్షన్ స్ట్రింగ్ ఫంక్షన్ల క్రింద వస్తుంది, ఇది VBA లో అంతర్నిర్మిత ఫంక్షన్, ఇది డేటా వేరియబుల్ నుండి సంఖ్యా విలువలను పొందడానికి ఉపయోగించబడుతుంది, ఒక వేరియబుల్ A10 గా విలువను కలిగి ఉంటే, వాల్ ఫంక్షన్ మనకు 10 అవుట్‌పుట్‌గా ఇస్తుంది, అది స్ట్రింగ్ తీసుకుంటుంది ఒక వాదన మరియు స్ట్రింగ్‌లో ఉన్న సంఖ్యలను తిరిగి ఇస్తుంది.

VAL అంటే VBA పరిభాషలో VALUE. ఈ ఫంక్షన్ సంఖ్యలను కలిగి ఉన్న స్ట్రింగ్‌ను వాస్తవ సంఖ్యకు మారుస్తుంది. ఉదాహరణకు, మీరు “1234 గ్లోబల్” అనే టెక్స్ట్ స్ట్రింగ్‌ను సరఫరా చేస్తే అది సంఖ్యా భాగాన్ని మాత్రమే తిరిగి ఇస్తుంది, అంటే 1234.

తరచుగా, మేము వెబ్ నంబర్ల నుండి డేటాను డౌన్‌లోడ్ చేసినప్పుడు లేదా పొందినప్పుడు, సాధారణంగా స్ప్రెడ్‌షీట్‌లో టెక్స్ట్ విలువలుగా నిల్వ చేయబడతాయి. ఎక్సెల్ లో సరైన పనితీరు గురించి మీకు తెలియకపోతే వచనాన్ని సంఖ్యలకు మార్చడం కష్టతరమైన పని. సాధారణ వర్క్‌షీట్ ఫంక్షన్‌గా, మనకు VALUE అని పిలువబడే ఒక ఫంక్షన్ ఉంది, ఇది వర్క్‌షీట్‌లోని సరళమైన ఫంక్షన్‌తో సంఖ్యలను సూచించే అన్ని స్ట్రింగ్‌లను ఖచ్చితమైన సంఖ్యలకు మారుస్తుంది. ఈ వ్యాసంలో, VAL ఫంక్షన్‌ను ఉపయోగించి VBA లో దీన్ని ఎలా సాధించవచ్చో చూపిస్తాము.

సింటాక్స్

దీనికి ఒకే వాదన ఉంది అనగా స్ట్రింగ్.

  • స్ట్రింగ్: ఇది కేవలం స్ట్రింగ్ విలువ, దాని నుండి సంఖ్యా భాగాన్ని పొందడానికి మేము ప్రయత్నిస్తున్నాము.

కాబట్టి, VAL ఫంక్షన్ సరఫరా చేసిన స్ట్రింగ్‌ను సంఖ్యా విలువగా మారుస్తుంది.

గమనిక: VAL ఫంక్షన్ ఎల్లప్పుడూ స్పేస్ అక్షరాలను విస్మరిస్తుంది మరియు స్పేస్ క్యారెక్టర్ లేదా అక్షరాల తర్వాత సంఖ్యలను చదవడం కొనసాగిస్తుంది.

ఉదాహరణకు, సరఫరా చేసిన స్ట్రింగ్ “145 45 666 3” అయితే అది స్పేస్ అక్షరాలను విస్మరించి ఫలితాన్ని “145456663” గా అందిస్తుంది.

ఎక్సెల్ VBA లో VAL ఫంక్షన్ యొక్క ఉదాహరణలు

మీరు ఈ VBA Val ఫంక్షన్ ఎక్సెల్ మూసను ఇక్కడ డౌన్‌లోడ్ చేసుకోవచ్చు - VBA Val Function Excel Template

ఉదాహరణ # 1

మొదటి సంఖ్యను సాధారణ సంఖ్యతో ప్రయత్నిద్దాం, అనగా “14 56 47”

క్రింద కోడ్ మీ కోసం.

కోడ్:

 ఉప Val_Example1 () డిమ్ k గా వేరియంట్ k = Val ("14 56 47") 'పై వాటిని 145647 MsgBox k ఎండ్ సబ్ గా మార్చండి 

మీరు F5 కీని ఉపయోగించి లేదా మానవీయంగా VBA కోడ్‌ను అమలు చేసినప్పుడు, ఇది క్రింది చిత్రంలో చూపిన విధంగా అన్ని స్పేస్ అక్షరాలను విస్మరించడం ద్వారా ఫలితాన్ని “145647” గా అందిస్తుంది.

ఉదాహరణ # 2

ఈ ఉదాహరణలో, స్ట్రింగ్ యొక్క ఫలితం “+456” ఏమిటో చూద్దాం.

కోడ్:

 ఉప Val_Example2 () Dim k గా వేరియంట్ k = Val ("+ 456") 'పై వాటిని 456 MsgBox k ఎండ్ సబ్ గా మార్చండి 

+456 ను విస్మరించి విలువను 456 గా తిరిగి ఇవ్వడానికి మీరు ఈ కోడ్‌ను మాన్యువల్‌గా లేదా ఎఫ్ 5 కీ ద్వారా అమలు చేయవచ్చు.

ఉదాహరణ # 3

ఇప్పుడు అదే సంఖ్యను ప్రతికూల గుర్తుతో ప్రయత్నించండి.

కోడ్:

 ఉప Val_Example3 () డిమ్ k గా వేరియంట్ k = Val ("- 456") 'పై -456 MsgBox k ఎండ్ సబ్ గా మార్చండి 

ఈ కోడ్ విలువను -456 గా తిరిగి ఇస్తుంది ఎందుకంటే ఆపరేటర్ గుర్తుతో ఉన్న సంఖ్య చూపబడాలి.

ఉదాహరణ # 4

ఇప్పుడు ఈ స్ట్రింగ్ “100 కిలోలు” ప్రయత్నించండి.

కోడ్:

 ఉప Val_Example4 () డిమ్ k గా వేరియంట్ k = Val ("100 KG") 'KG ని విస్మరిస్తుంది మరియు 100 MsgBox k ఎండ్ సబ్ మాత్రమే తిరిగి ఇస్తుంది 

మీరు ఈ కోడ్‌ను మాన్యువల్‌గా నడుపుతుంటే లేదా ఎఫ్ 5 కీని ఉపయోగిస్తుంటే, ఈ పై కోడ్ “కెజి” ని విస్మరించి, VBA మెసేజ్ బాక్స్‌లో “100” ను మాత్రమే ఇస్తుంది.

ఉదాహరణ # 5

ఇప్పుడు తేదీ స్ట్రింగ్ ప్రయత్నించండి, అంటే “14-05-2018”.

కోడ్:

 ఉప Val_Example5 () Dim k As వేరియంట్ k = Val ("14-05-2019") 'ఫలితంగా 14 ని అందిస్తుంది. MsgBox k ఎండ్ సబ్ 

పై కోడ్ ఫలితంగా 14 ని అందిస్తుంది, ఎందుకంటే VAL ఫంక్షన్ సంఖ్యా విలువను కాకుండా వేరేదాన్ని కనుగొనే వరకు మాత్రమే సంఖ్యా విలువను పొందగలదు.

ఉదాహరణ # 6

ఇప్పుడు “7459Good456” స్ట్రింగ్ ప్రయత్నించండి.

కోడ్:

 ఉప Val_Example6 () డిమ్ k గా వేరియంట్ k = Val ("7459 గుడ్ 456") 'ఫలితంగా 7459 ని అందిస్తుంది. MsgBox k ఎండ్ సబ్ 

సంఖ్యా రహిత అక్షరాన్ని కనుగొనే వరకు ఇది సంఖ్యలను సంగ్రహిస్తుంది, అనగా ఫలితం 7459. సంఖ్యా రహిత విలువ “మంచి” తర్వాత సంఖ్యా విలువలు ఉన్నప్పటికీ, అది ఆ తర్వాత సంఖ్యలను పూర్తిగా విస్మరిస్తుంది.

ఉదాహరణ # 7

ఇప్పుడు స్ట్రింగ్ విలువ “H 12456” ను ప్రయత్నించండి.

కోడ్:

 ఉప Val_Example7 () Dim k As వేరియంట్ k = Val ("H 12456") 'ఫలితంగా 0 ని అందిస్తుంది. MsgBox k ఎండ్ సబ్ 

సత్వరమార్గం కీ F5 ను ఉపయోగించి పై కోడ్‌ను అమలు చేయండి లేదా మానవీయంగా అది ఫలితాన్ని సున్నాగా అందిస్తుంది. ఎందుకంటే మేము సరఫరా చేసిన స్ట్రింగ్ యొక్క మొదటి అక్షరం సంఖ్యా రహిత అక్షరం కాబట్టి, ఫలితం సున్నా.

ఉదాహరణ # 8

ఇప్పుడు ఈ స్ట్రింగ్ “24545 ను ప్రయత్నించండి. 2 ”.

కోడ్:

 ఉప Val_Example8 () Dim k As వేరియంట్ k = Val ("24545. 2") 'ఫలితంగా 24545.2 ను అందిస్తుంది. MsgBox k ఎండ్ సబ్ 

కోడ్ ఫలితాన్ని 24545.2 గా అందిస్తుంది ఎందుకంటే VBA VAL ఫంక్షన్ అక్షర చుక్క (.) ను దశాంశ అక్షరంగా పరిగణిస్తుంది మరియు తదనుగుణంగా ఫలితాన్ని ఇస్తుంది.