VBA UBound ఫంక్షన్ | ఎక్సెల్ VBA లో UBound ను ఎలా ఉపయోగించాలి?
UBOUND లేదా ఎగువ బౌండ్ అని కూడా పిలుస్తారు, VBA లోని ఈ ఫంక్షన్ దాని వ్యతిరేక ఫంక్షన్‌తో ఉపయోగించబడుతుంది, ఇది LBOUND లేదా లోయర్ బౌండ్ ఫంక్షన్ అని కూడా పిలుస్తారు, ఈ ఫంక్షన్ యొక్క ఉపయోగం ఒక కోడ్‌లోని శ్రేణి యొక్క పొడవును నిర్వచించడం మరియు పేరు UBOUND శ్రేణి యొక్క ఎగువ పరిమితిని నిర్వచించడానికి ఉపయోగిస్తారు.
VBA UBOUND ఫంక్షన్
ఎక్సెల్ లో శ్రేణి యొక్క గరిష్ట పొడవును మీరు ఎలా చెబుతారు? అవును, మేము శ్రేణి యొక్క గరిష్ట పొడవును మాన్యువల్‌గా చూడవచ్చు మరియు అప్‌డేట్ చేయవచ్చు, అయితే మీరు ఇవన్నీ చేస్తుంటే ఈ రోజు దాని ముగింపు ఎందుకంటే శ్రేణి యొక్క గరిష్ట పొడవును నిర్ణయించడానికి మాకు UBOUND అనే ఫంక్షన్ ఉంది. ఎక్సెల్ VBA లో UBOUND ఫంక్షన్ గురించి మరింత అవగాహన పొందడానికి ఈ కథనాన్ని అనుసరించండి.
UBOUND అంటే ఎగువ బౌండ్. కోడింగ్‌లో తరచుగా సార్లు మేము శ్రేణి యొక్క గరిష్ట పొడవును కనుగొనవలసి ఉంటుంది. ఉదాహరణకి, MyResult (24) అంటే అర్రే పేరు MyResult దీనికి 25 విలువలు ఉన్నాయి, ఎందుకంటే శ్రేణి ఒకటి నుండి కాకుండా సున్నా నుండి మొదలవుతుంది. కాబట్టి 24 అంటే +1 అంటే పూర్తిగా 25 విలువలు.
ఇక్కడ శ్రేణి యొక్క గరిష్ట పొడవు 24, శ్రేణి పొడవును మాన్యువల్‌గా సరఫరా చేయడానికి బదులుగా, శ్రేణి యొక్క గరిష్ట పొడవును పొందడానికి అంతర్నిర్మిత ఫంక్షన్ UBOUND ను ఉపయోగించవచ్చు.
కోడ్:UBOUND (MyResult)అనగా ఉబౌండ్ (24)
కాబట్టి ఎక్సెల్ VBA UBOUND ఫంక్షన్ శ్రేణి పరిమాణం యొక్క ఎగువ సరిహద్దును సూచిస్తుంది.
ఎక్సెల్ లో VBA UBound ఫంక్షన్‌ను ఎలా ఉపయోగించాలి?
VBA UBOUND యొక్క సూత్రం చాలా సులభం ఎందుకంటే దీనికి రెండు పారామితులు మాత్రమే ఉన్నాయి.
UBound (శ్రేణి పేరు [, పరిమాణం])
- శ్రేణి పేరు: ఇది మేము నిర్వచించిన శ్రేణి పేరు. ఉదాహరణకు, పై ఉదాహరణలో, MyResult శ్రేణి పేరు.
- [పరిమాణం]: శ్రేణికి ఒకటి కంటే ఎక్కువ కొలతలు ఉంటే, అప్పుడు మేము శ్రేణి యొక్క పరిమాణాన్ని పేర్కొనాలి. మీరు విస్మరిస్తే అది మొదటి కోణాన్ని అప్రమేయంగా పరిగణిస్తుంది.
ఉచ్చులను నడుపుతున్నప్పుడు ఉచ్చుల పొడవును నిర్ణయించడానికి ఎక్సెల్ VBA UBOUND ఫంక్షన్ చాలా ఉపయోగపడుతుంది.
ఎక్సెల్ VBA లో UBOUND ఫంక్షన్ యొక్క ఉదాహరణలు
VBA UBound ఫంక్షన్ యొక్క ఆచరణాత్మక ఉదాహరణలు క్రింద ఉన్నాయి.
మీరు ఈ VBA UBound ఫంక్షన్ మూసను ఇక్కడ డౌన్‌లోడ్ చేసుకోవచ్చు - VBA UBound Function Template
ఉదాహరణ # 1
కార్యకలాపాలను ప్రారంభించడానికి నేను సాధారణ కోడ్‌ను వ్రాస్తాను. VBA UBOUND ఫంక్షన్‌ను వర్తింపచేయడానికి క్రింది దశలను అనుసరించండి.
దశ 1: ఎక్సెల్ మాక్రోను ప్రారంభించండి మరియు వేరియబుల్ పేరును నిర్వచించండి.
కోడ్:
ఉప ఉబౌండ్_ఎక్సాంపుల్ 1 () డిమ్ అర్రే పొడవు (0 నుండి 4) స్ట్రింగ్‌గా
దశ 2: నేను ఈ శ్రేణి పేరుకు విలువలను కేటాయిస్తాను.
కోడ్:
ఉప Ubound_Example1 () మసక శ్రేణి పొడవు (0 నుండి 4) స్ట్రింగ్ శ్రేణి పొడవు (0) = "హాయ్" శ్రేణి పొడవు (1) = "స్నేహితుడు" శ్రేణి పొడవు (2) = "స్వాగతం" శ్రేణి పొడవు (3) = "నుండి" శ్రేణి పొడవు (4) = "VBA క్లాస్" ఎండ్ సబ్
దశ 3: ఇప్పుడు UBOUND ఫంక్షన్‌తో సందేశ పెట్టెను ఉపయోగించి శ్రేణి యొక్క గరిష్ట పొడవును చూస్తాము.
కోడ్:
ఉప Ubound_Example1 () మసక శ్రేణి పొడవు (0 నుండి 4) స్ట్రింగ్ శ్రేణి పొడవు (0) = "హాయ్" శ్రేణి పొడవు (1) = "స్నేహితుడు" శ్రేణి పొడవు (2) = "స్వాగతం" శ్రేణి పొడవు (3) = "నుండి" శ్రేణి పొడవు (4) = "VBA క్లాస్" MsgBox "ఎగువ బౌండ్ పొడవు:" & UBound (ArrayLength) ఎండ్ సబ్
దశ 4: F5 కీని నొక్కడం ద్వారా ఈ కోడ్‌ను అమలు చేయండి లేదా దిగువ స్క్రీన్‌షాట్‌లో చూపిన విధంగా మీరు కోడ్‌ను మానవీయంగా అమలు చేయవచ్చు.
సందేశ పెట్టె మీకు శ్రేణి యొక్క ఎగువ బౌండ్ సంఖ్య సందేశ పెట్టెలో చూపబడుతుంది.
ఎక్సెల్ VBA UBOUND ఫంక్షన్‌ను ఉపయోగించి ఇలా, మేము శ్రేణి యొక్క ఎగువ బౌండ్ పొడవును పొందవచ్చు.
ఉదాహరణ # 2 - డేటాను కాపీ చేయడానికి ఎక్సెల్ VBA UBOUND ఫంక్షన్‌ను ఉపయోగించడం
దిగువ ఉన్న ఒక ఎక్సెల్ షీట్లో మీకు డేటా జాబితా ఉందని అనుకోండి.
ఈ డేటా ప్రతిరోజూ అప్‌డేట్ కానుంది మరియు మీరు ఈ డేటాను అప్‌డేట్ చేసిన ప్రతిసారీ కొత్త షీట్‌కు కాపీ చేయాలి. దీన్ని మాన్యువల్‌గా అప్‌డేట్ చేయడం వల్ల మీ కార్యాలయంలో గణనీయమైన సమయం పడుతుంది, అయితే దీన్ని ఆటోమేట్ చేయడానికి సాధారణ మాక్రో కోడ్‌ను మీకు చూపిస్తాను.
దశ 1: స్థూల సృష్టించి, శ్రేణి వేరియబుల్‌ను నిర్వచించండి.
కోడ్:
సబ్ ఉబౌండ్_ఎక్సాంపుల్ 2 () డిమ్ డేటారేంజ్ () వేరియంట్ ఎండ్ సబ్ గా
దశ 2: ఇప్పుడు డేటాషీట్ పేరుకు రిఫరీ చేయడం ద్వారా సక్రియం చేయండి.
కోడ్:
ఉప ఉబౌండ్_ఎక్సాంపుల్ 2 () డిమ్ డేటారేంజ్ () వేరియంట్ షీట్లుగా ("డేటా షీట్"). ఎండ్ సబ్‌ను సక్రియం చేయండి 
దశ 3: ఇప్పుడు దిగువ కోడ్‌ను ఉపయోగించి డేటా పరిధిని నిర్వచించిన వేరియబుల్‌కు కేటాయించండి.
కోడ్:
ఉప ఉబౌండ్_ఎక్సాంపుల్ 2 () డిమ్ డేటారేంజ్ () వేరియంట్ షీట్లుగా ("డేటా షీట్") .డేట్రేంజ్ = రేంజ్ ("A2", రేంజ్ ("A1") ను సక్రియం చేయండి. ముగింపు (xlDown) .ఎండ్ (xlToRight)) ముగింపు ఉప 
దశ 4: ఇప్పుడు వర్క్‌బుక్‌కు కొత్త వర్క్‌షీట్ జోడించండి.
కోడ్:
ఉప ఉబౌండ్_ఎక్సాంపుల్ 2 () డిమ్ డేటారేంజ్ () వేరియంట్ షీట్లుగా ("డేటా షీట్") .డేట్రేంజ్ = రేంజ్ ("A2", రేంజ్ ("A1") ను సక్రియం చేయండి. ముగింపు (xlDown) .మరియు (xlToRight)) వర్క్‌షీట్‌లు. 
దశ 5: ఇప్పుడు దిగువ కోడ్ రూపంలో ఎక్సెల్ VBA UBOUND ఫంక్షన్‌ను ఉపయోగించి కొత్తగా జోడించిన షీట్‌కు డేటాను జోడించండి.
కోడ్:
ఉప ఉబౌండ్_ఎక్సాంపుల్ 2 () డిమ్ డేటారేంజ్ () వేరియంట్ షీట్లుగా ("డేటా షీట్") .డేట్రేంజ్ = రేంజ్ ("A2", రేంజ్ ("A1") ను సక్రియం చేయండి. ముగింపు (xlDown) .మరియు (xlToRight)) వర్క్‌షీట్‌లు. , ActiveCell.Offset (UBound (DataRange, 1) - 1, UBound (DataRange, 2) - 1%) = DataRange End Sub 
పై కోడ్ UBOUND ఫంక్షన్ ద్వారా తిరిగి వచ్చే గరిష్ట పొడవు ద్వారా కణాలను ఆఫ్‌సెట్ చేస్తుంది మరియు ఈ పరిధి శ్రేణి పేరు విలువకు సమానంగా ఉంటుంది “డేటారేంజ్”
దశ 6: ఇప్పుడు ఈ కోడ్‌ను అమలు చేయండి అది విలువను కొత్త షీట్‌కు అతికించండి.
ఈ కోడ్ డైనమిక్ ఒకటి ఎందుకంటే డేటా అడ్డంగా మరియు నిలువుగా పెరిగినప్పుడు కూడా అది స్వయంచాలకంగా పరిధిని తీసుకుంటుంది. ఇప్పుడు నేను డేటాకు కొన్ని డమ్మీ లైన్లను జోడిస్తాను.
ఇప్పుడు నేను మరోసారి ఈ కోడ్‌ను అమలు చేస్తాను, ఇది ఇప్పుడు కొత్తగా జోడించిన పంక్తులను కూడా జోడిస్తుంది.
కోడ్:
ఉప ఉబౌండ్_ఎక్సాంపుల్ 2 () డిమ్ డేటారేంజ్ () వేరియంట్ షీట్లుగా ("డేటా షీట్") .డేట్రేంజ్ = రేంజ్ ("A2", రేంజ్ ("A1") ను సక్రియం చేయండి. ముగింపు (xlDown) .మరియు (xlToRight)) వర్క్‌షీట్‌లు. , ActiveCell.Offset (UBound (DataRange, 1) - 1, UBound (DataRange, 2) - 1)) = DataRange Erase DataRange End Sub 
గుర్తుంచుకోవలసిన విషయాలు
- శ్రేణి యొక్క గరిష్ట పొడవును UBOUND అందిస్తుంది.
- శ్రేణి 1 నుండి కాకుండా 0 నుండి మొదలవుతుంది.
- మీరు శ్రేణి యొక్క తక్కువ విలువను కోరుకుంటే, మీరు VBA LBOUND ని ఉపయోగించాలి.
- శ్రేణికి ఒకటి కంటే ఎక్కువ కొలతలు ఉంటే, మీరు డైమెన్షన్ సంఖ్యను కూడా పేర్కొనాలి.
