VBA சரம் ஒப்பீடு | இரண்டு சரம் மதிப்புகளை ஒப்பிடுவது எப்படி?

எக்செல் விபிஏ சரம் ஒப்பீடு

VBA இல் இரண்டு சரங்களை ஒப்பிடுவதற்கு எங்களிடம் உள்ளமைக்கப்பட்ட செயல்பாடு உள்ளது, அதாவது “StrComp”. இதை நாம் இதைப் படிக்கலாம் “சரம் ஒப்பீடு”, இந்த செயல்பாடு VBA உடன் மட்டுமே கிடைக்கிறது மற்றும் இது ஒரு பணித்தாள் செயல்பாடாக கிடைக்காது. இது எந்த இரண்டு சரங்களையும் ஒப்பிட்டு முடிவுகளை அளிக்கிறது “ஜீரோ (0)” இரண்டு சரங்களும் பொருந்தினால், வழங்கப்பட்ட இரண்டு சரங்களும் பொருந்தவில்லை என்றால் நாம் பெறுவோம் “ஒன்று (1)” அதனுடைய முடிவு.

VBA அல்லது Excel இல், இதுபோன்ற பல்வேறு காட்சிகள் “இரண்டு சரம் மதிப்புகளை ஒப்பிடுவது” என்பது போன்ற பல்வேறு காட்சிகளை நாங்கள் எதிர்கொள்கிறோம். ஒரு வழக்கமான பணித்தாளில், நாங்கள் இந்த பல வழிகளைச் செய்யலாம், ஆனால் VBA இல் இதை எவ்வாறு செய்வது?

கீழே “StrComp” செயல்பாட்டின் தொடரியல் உள்ளது.

முதலில், இரண்டு வாதங்கள் மிகவும் எளிமையானவை,

  • க்கு சரம் 1 நாம் ஒப்பிடும் முதல் மதிப்பை நாம் வழங்க வேண்டும்
  • க்கு சரம் 2 நாம் ஒப்பிடும் இரண்டாவது மதிப்பை வழங்க வேண்டும்.
  • [ஒப்பிடுக] இது StrComp செயல்பாட்டின் விருப்ப வாதம். வழக்கு உணர்திறன் ஒப்பீட்டை ஒப்பிட விரும்பும்போது இது உதவியாக இருக்கும். எடுத்துக்காட்டாக, இந்த வாதத்தில் “எக்செல்” “எக்செல்” க்கு சமமானதல்ல, ஏனெனில் இந்த இரண்டு சொற்களும் வழக்கு உணர்திறன் கொண்டவை.

நாம் இங்கே மூன்று மதிப்புகளை வழங்க முடியும்.

  • “க்கு பூஜ்ஜியம் (0)பைனரி ஒப்பிடு”அதாவது“ எக்செல் ”என்பது“ எக்செல் ”க்கு சமமானதல்ல. வழக்கு உணர்திறன் ஒப்பீட்டிற்கு நாம் 0 ஐ வழங்க முடியும்.
  • ஒன்று (1) க்கு “உரை ஒப்பிடு”அதாவது“ எக்செல் ”என்பது“ எக்செல் ”க்கு சமம். இது ஒரு வழக்கு அல்லாத உணர்திறன் ஒப்பீடு.
  • இரண்டு (2) இது தரவுத்தள ஒப்பீட்டுக்கு மட்டுமே.

“StrComp” செயல்பாட்டின் முடிவுகள் இயல்புநிலை உண்மை அல்லது பொய் அல்ல, ஆனால் மாறுபடும். “StrComp” செயல்பாட்டின் வெவ்வேறு முடிவுகள் கீழே.

  • நாங்கள் பெறுவோம் “0” வழங்கப்பட்ட சரங்கள் பொருந்தினால் இதன் விளைவாக.
  • நாங்கள் பெறுவோம் “1” வழங்கப்பட்ட சரங்கள் பொருந்தவில்லை மற்றும் எண் பொருத்தமாக இருந்தால், சரம் 1 சரம் 2 ஐ விட அதிகமாக இருந்தால் 1 ஐப் பெறுவோம்.
  • நாங்கள் பெறுவோம் “-1” சரம் 1 எண் சரம் 2 எண்ணை விட குறைவாக இருந்தால்.

VBA இல் சரம் ஒப்பீடு செய்வது எப்படி?

இந்த VBA சரம் ஒப்பீடு எக்செல் வார்ப்புருவை இங்கே பதிவிறக்கம் செய்யலாம் - VBA சரம் ஒப்பீடு எக்செல் வார்ப்புரு

எடுத்துக்காட்டு # 1

நாங்கள் பொருந்துவோம் “பெங்களூர்”சரத்திற்கு எதிராக“பெங்களூர்”.

முதலில், இரண்டு சரம் மதிப்புகளை சேமிக்க இரண்டு VBA மாறிகள் சரமாக அறிவிக்கவும்.

குறியீடு:

 துணை சரம்_ ஒப்பீடு_உதவி 1 () மங்கலான மதிப்பு 1 சரம் மங்கலான மதிப்பு 2 சரம் முடிவு துணை 

இந்த இரண்டு மாறிகள் இரண்டு சரம் மதிப்புகளை சேமிக்கின்றன.

குறியீடு:

 துணை சரம்_குறிப்பு_உதவி 1 () மங்கலான மதிப்பு 1 சரம் மங்கலான மதிப்பு 2 சரம் மதிப்பாக 1 = "பெங்களூர்" மதிப்பு 2 = "பெங்களூர்" முடிவு துணை 

இப்போது இதன் முடிவைச் சேமிக்க இன்னும் ஒரு மாறியை அறிவிக்கவும் “StrComp”செயல்பாடு.

குறியீடு:

 துணை சரம்_குறிப்பு_உதவி 1 () மங்கலான மதிப்பு 1 சரம் மங்கலான மதிப்பு 2 சரம் மதிப்பாக 1 = "பெங்களூர்" மதிப்பு 2 = "பெங்களூர்" மங்கலான இறுதி முடிவு சரம் முடிவு துணை 

இந்த மாறிக்கு “StrComp” செயல்பாட்டைத் திறக்கவும்.

குறியீடு:

துணை சரம்_குறிப்பு_உதவி 1 () மங்கலான மதிப்பு 1 சரம் மங்கலான மதிப்பு 2 சரம் மதிப்பாக 1 = "பெங்களூர்" மதிப்பு 2 = "பெங்களூர்" மங்கலான இறுதி முடிவு சரம் இறுதி முடிவு = ஸ்ட்ரகாம்ப் (முடிவு துணை 

“String1” & “String2” க்கு நாம் ஏற்கனவே மாறிகள் மூலம் மதிப்புகளை ஒதுக்கியுள்ளோம், எனவே முறையே மாறி பெயர்களை உள்ளிடவும்.

குறியீடு:

 துணை சரம்_குறிப்பு_உதவி 1 () மங்கலான மதிப்பு 1 சரம் மங்கலான மதிப்பு 2 என சரம் மதிப்பு 1 = "பெங்களூர்" மதிப்பு 2 = "பெங்களூர்" மங்கலான இறுதி முடிவு சரம் இறுதி விளைவாக = StrComp (மதிப்பு 1, மதிப்பு 2, இறுதி துணை 

இந்த தேர்வுக்கு செயல்பாட்டின் கடைசி பகுதி “ஒப்பிடு” “VbTextCompare”.

குறியீடு:

 துணை சரம்_குறிப்பு_உதவி 1 () மங்கலான மதிப்பு 1 சரம் மங்கலான மதிப்பு 2 என சரம் மதிப்பு 1 = "பெங்களூர்" மதிப்பு 2 = "பெங்களூர்" மங்கலான இறுதி முடிவு சரம் இறுதி விளைவாக = StrComp (மதிப்பு 1, மதிப்பு 2, vbTextCompare) முடிவு துணை 

இப்போது காட்டு “இறுதி முடிவு” VBA இல் உள்ள செய்தி பெட்டியில் மாறி.

குறியீடு:

 துணை சரம்_குறிப்பு_உதவி 1 () மங்கலான மதிப்பு 1 சரம் மங்கலான மதிப்பு 2 என சரம் மதிப்பு 1 = "பெங்களூர்" மதிப்பு 2 = "பெங்களூர்" மங்கலான இறுதி முடிவு சரம் இறுதி முடிவு = ஸ்ட்ர்காம்ப் (மதிப்பு 1, மதிப்பு 2, விபி டெக்ஸ்ட் காம்பேஸ் துணை) 

சரி, குறியீட்டை இயக்கி முடிவைப் பார்ப்போம்.

வெளியீடு:

“பெங்களூர்” மற்றும் “பெங்களூர்” ஆகிய இரண்டு சரங்களும் ஒரே மாதிரியாக இருப்பதால், இதன் விளைவாக 0 என கிடைத்தது. இரண்டு மதிப்புகளும் வழக்கு உணர்திறன் கொண்டவை, ஏனெனில் நாங்கள் வாதத்தை வழங்கியுள்ளோம் “VbTextCompare” இது வழக்கு உணர்திறன் பொருத்தத்தை புறக்கணித்து, மதிப்புகளை மட்டுமே பொருத்துகிறது, எனவே இரண்டு மதிப்புகளும் ஒரே மாதிரியானவை, இதன் விளைவாக 0 அதாவது உண்மை.

குறியீடு:

 துணை சரம்_குறிப்பு_உதவி 1 () மங்கலான மதிப்பு 1 சரம் மங்கலான மதிப்பு 2 என சரம் மதிப்பு 1 = "பெங்களூர்" மதிப்பு 2 = "பெங்களூர்" மங்கலான இறுதி முடிவு சரம் இறுதி முடிவு = ஸ்ட்ர்காம்ப் (மதிப்பு 1, மதிப்பு 2, விபி டெக்ஸ்ட் காம்பேஸ் துணை)

எடுத்துக்காட்டு # 2

அதே குறியீட்டைப் பொறுத்தவரை, ஒப்பீட்டு முறையை மாற்றுவோம் “VbTextCompare” க்கு “VbBinaryCompare”.

குறியீடு:

 துணை சரம்_குறிப்பு_உதவி 2 () மங்கலான மதிப்பு 1 சரம் மங்கலான மதிப்பு 2 என சரம் மதிப்பு 1 = "பெங்களூர்" மதிப்பு 2 = "பெங்களூர்" மங்கலான இறுதி முடிவு சரம் இறுதி விளைவாக = StrComp (மதிப்பு 1, மதிப்பு 2, vbBinaryCompare) MsgBox Subre 

இப்போது குறியீட்டை இயக்கி முடிவைப் பாருங்கள்.

வெளியீடு:

இரண்டு சரங்களும் ஒரே மாதிரியாக இருந்தாலும், இதன் விளைவாக 1 எனப் பெற்றோம், அதாவது பொருந்தவில்லை, ஏனெனில் ஒப்பீட்டு முறையைப் பயன்படுத்தினோம் “VbBinaryCompare” இது இரண்டு மதிப்புகளை வழக்கு உணர்திறன் என ஒப்பிடுகிறது.

எடுத்துக்காட்டு # 3

இப்போது எண் மதிப்புகளை எவ்வாறு ஒப்பிடுவது என்று பார்ப்போம். ஒரே குறியீட்டிற்கு, வெவ்வேறு மதிப்புகளை ஒதுக்குவோம்.

குறியீடு:

 துணை சரம்_குறிப்பு_உதவி 3 () மங்கலான மதிப்பு 1 சரம் மங்கலான மதிப்பு 2 சரம் மதிப்பாக 1 = 500 மதிப்பு 2 = 500 மங்கலான இறுதி முடிவு சரம் இறுதி முடிவு = StrComp (மதிப்பு 1, மதிப்பு 2, vbBinaryCompare) MsgBox FinalResult End Sub 

இரண்டு மதிப்புகளும் 500 ஆகும், இதன் விளைவாக 0 மதிப்பைப் பெறுவோம், ஏனெனில் இரு மதிப்புகளும் பொருந்துகின்றன.

வெளியீடு:

இப்போது நான் மதிப்பு 1 எண்ணை 500 முதல் 100 ஆக மாற்றுவேன்.

குறியீடு:

 துணை சரம்_குறிப்பு_உதவி 3 () மங்கலான மதிப்பு 1 சரம் மங்கலான மதிப்பு 2 சரம் மதிப்பாக 1 = 1000 மதிப்பு 2 = 500 மங்கலான இறுதி முடிவு சரம் இறுதி முடிவு = StrComp (மதிப்பு 1, மதிப்பு 2, vbBinaryCompare) MsgBox FinalResult End Sub 

குறியீட்டை இயக்கி முடிவைக் காண்க.

வெளியீடு:

மதிப்பு 1 & மதிப்பு 2 ஒரே மாதிரியானவை அல்ல என்பது எங்களுக்குத் தெரியும், ஆனால் இதன் விளைவாக 1 க்கு பதிலாக -1 ஆகும், ஏனெனில் சரம் 1 மதிப்பு சரம் 2 ஐ விட அதிகமாக இருக்கும்போது எண்ணியல் ஒப்பீட்டிற்கு இந்த -1 கிடைக்கும்.

குறியீடு:

 துணை சரம்_குறிப்பு_உதவி 3 () மங்கலான மதிப்பு 1 சரம் மங்கலான மதிப்பு 2 என சரம் மதிப்பு 1 = 1000 மதிப்பு 2 = 500 மங்கலான இறுதி முடிவு சரம் இறுதி முடிவு = StrComp (மதிப்பு 1, மதிப்பு 2, vbBinaryCompare) MsgBox FinalResult End Sub 

இப்போது நான் மதிப்புகளை மாற்றியமைப்பேன்.

குறியீடு:

 துணை சரம்_குறிப்பு_உதவி 3 () மங்கலான மதிப்பு 1 சரம் மங்கலான மதிப்பு 2 சரம் மதிப்பாக 1 = 500 மதிப்பு 2 = 1000 மங்கலான இறுதி முடிவு சரம் இறுதி முடிவு = StrComp (மதிப்பு 1, மதிப்பு 2, vbBinaryCompare) MsgBox FinalResult End Sub 

குறியீட்டை இயக்கி முடிவைக் காண்க.

வெளியீடு:

பொருந்தவில்லை என்றால் இது சிறப்பு அல்ல, நமக்கு 1 மட்டுமே கிடைக்கும்.

நினைவில் கொள்ள வேண்டிய விஷயங்கள் இங்கே

  • “ஒப்பிடுக]“ StrComp ”இன் வாதம் விருப்பமானது, ஆனால் வழக்கு உணர்திறன் பொருத்தமாக இருந்தால் இதைப் பயன்படுத்தலாம் மற்றும் விருப்பம் “VbBinaryCompare”.
  • சரம் 1 சரம் 2 ஐ விட அதிகமாக இருந்தால் எண் மதிப்புகளின் முடிவு சற்று வித்தியாசமானது மற்றும் இதன் விளைவாக -1 இருக்கும்.
  • பொருந்தினால் முடிவுகள் 0 மற்றும் பொருந்தவில்லை என்றால் 1 ஆகும்.