photosdematures.com

எக்செல் VBA MsgBox (ஆம் / இல்லை)

இல் வி.பி.ஏ., செய்தி பெட்டியைப் பயன்படுத்தி நாம் உருவாக்க முடியும் ஆம் இல்லை msgbox ஆம் அல்லது இல்லை என்பதைக் கிளிக் செய்வதன் அடிப்படையில் பயனர் உள்ளீட்டைப் பதிவுசெய்ய இது பயன்படுகிறது, ஆம் இல்லை செய்தி பெட்டியை உருவாக்குவதற்கான தொடரியல் பின்வருமாறு மாறி = MsgBox (“உரை”, vbQuestion + vbYesNo + vbDefaultButton2, “செய்தி பெட்டி தலைப்பு”) மாறக்கூடியது ஒரு முழு எண்ணாக அறிவிக்கப்பட வேண்டும்.

பெரும்பாலும் VBA குறியீட்டில், பயனர்களிடமிருந்து உள்ளீட்டு மதிப்புகளை சில பணிகளைச் செய்ய வேண்டும் மற்றும் பயனர்களிடமிருந்து ஆம் அல்லது இல்லை பதிலைச் சேகரிக்க இதுபோன்ற ஒரு பணியைச் சேகரிக்க வேண்டும். VBA MsgBox ஐப் பயன்படுத்துவதன் மூலம் ஆம் எந்த முறையும் குறியீட்டில் மேலும் தொடர குறியீட்டை எழுத முடியாது.

சில சூழ்நிலைகளில், பயனரின் பதிலைக் கொடுக்க ஆம் அல்லது இல்லை என்ற விருப்பத்தை நாம் முன்வைக்க வேண்டியிருக்கலாம், அந்த பதிலின் அடிப்படையில் நாம் உண்மையில் VBA குறியீட்டை இயக்க முடியும்.

எடுத்துக்காட்டாக, VBA இல் உள்ள MsgBox இன் கீழே உள்ள படத்தைப் பாருங்கள்.

பயனர் ஆம் என்று சொன்னால் “குறிப்பிட்ட பணியைச் செய்ய நாம் குறியீட்டை எழுதலாம்”, பயனர் “இல்லை” என்று சொன்னால், மற்றொரு பணியைச் செய்ய குறியீட்டை எழுதலாம்.

MsgBox உடன் வேலை செய்வது எப்படி / இல்லை பதில்?

இந்த விபிஏ செய்தி பெட்டியை ஆம் அல்லது எக்செல் வார்ப்புரு இங்கே பதிவிறக்கம் செய்யலாம் - விபிஏ செய்தி பெட்டி ஆம் அல்லது எக்செல் வார்ப்புரு இல்லை

எடுத்துக்காட்டு # 1 - பதிலின் அடிப்படையில் நகலெடுத்து ஒட்டவும்

எடுத்துக்காட்டாக, கீழே உள்ள குறியீட்டைப் பாருங்கள்.

குறியீடு:

 துணை செய்தி பாக்ஸ்_ஒய்ஸ்_என்_எக்சாம்பிள் 1 () மங்கலான பதில்கள் சரம் மங்கலான பதில் இல்லை சரம் பதில்களாக இல்லை = MsgBox ("நீங்கள் நகலெடுக்க விரும்புகிறீர்களா?", VbQuestion + vbYesNo, "பயனர் பதில்") பதில் என்றால் = vbYes பின்னர் வரம்பு ("A1: ("சி 1") வேறு வரம்பு ("ஏ 1: ஏ 2"). வரம்பை நகலெடுக்கவும் ("இ 1") முடிவு துணை என்றால் முடிவு 

விளக்கம்:

மேலே உள்ளவை மாறியை சரம் என அறிவித்துள்ளன.

 மங்கலான பதில் சரம் 

அடுத்த வரியில், “நீங்கள் நகலெடுக்க விரும்புகிறீர்களா?” என்று கேட்டு செய்தி பெட்டியின் மூலம் மதிப்பை ஒதுக்கியுள்ளோம்.

AnswerYes = MsgBox ("நீங்கள் நகலெடுக்க விரும்புகிறீர்களா?", VbQuestion + vbYesNo, "பயனர் மறுமொழி")

இப்போது IF அறிக்கை செய்தி பெட்டியின் மூலம் கொடுக்கப்பட்ட பதிலை மதிப்பீடு செய்கிறது. செய்தி பெட்டி முடிவு என்றால் vbYes பின்னர் அது A1 வரம்பை A2 க்கு நகலெடுத்து C1 கலத்தில் ஒட்டும்.

  AnswerYes = vbYes என்றால் வரம்பு ("A1: A2"). வரம்பை நகலெடுக்கவும் ("C1")

செய்தி பெட்டியின் பதில் இல்லை எனில், அது A1 வரம்பை A2 க்கு நகலெடுத்து E1 கலத்தில் ஒட்டும்.

 வேறு வரம்பு ("A1: A2"). வரம்பை நகலெடுக்கவும் ("E1") முடிவு என்றால் 

சரி, நான் இப்போது செல் A1 மற்றும் A2 இல் சில மதிப்புகளை உள்ளிட்டுள்ளேன்.

இப்போது நான் F5 விசையைப் பயன்படுத்தி அல்லது ரன் விருப்பத்தின் மூலம் குறியீட்டை இயக்குவேன், ஒரு செய்தி பெட்டி எனக்கு முன்னால் தோன்றும் மற்றும் எனது பதிலைக் கேட்கும்.

நான் ஆம் என்பதைக் கிளிக் செய்தால், அது A1 வரம்பை A2 க்கு நகலெடுத்து C1 கலத்தில் ஒட்டும். இப்போது நான் ஆம் என்பதைக் கிளிக் செய்து முடிவைப் பார்ப்பேன்.

எனவே பதில் ஆம் எனில் அது ஒதுக்கப்பட்ட பணியைச் செய்துள்ளது.

இப்போது மீண்டும் நான் குறியீட்டை இயக்குவேன்.

இந்த நேரத்தில் நான் இல்லை என்பதைத் தேர்ந்தெடுத்து என்ன நடக்கிறது என்று பார்ப்பேன்.

ஆம் அது குறியீட்டில் ஒதுக்கப்பட்ட பணியைச் செய்தது.

 வேறு வரம்பு ("A1: A2"). வரம்பை நகலெடுக்கவும் ("E1")

எடுத்துக்காட்டு # 2 - பதிலின் அடிப்படையில் தாள்களை மறை & மறை

பதில் ஆம் எனில், கீழே உள்ள குறியீடு செயலில் உள்ள தாளைத் தவிர அனைத்து தாள்களையும் மறைக்கும்.

குறியீடு:

 துணை மறை மறை () மங்கலான பதில் சரம் மங்கலான Ws என பணித்தாள் பதில் = MsgBox ("நீங்கள் அனைத்தையும் மறைக்க விரும்புகிறீர்களா?", VbQuestion + vbYesNo, "மறைக்க") பதில் என்றால் = vbYes ஆக்டிவ் வொர்க் புத்தகத்தில் ஒவ்வொரு Ws க்கும். Ws.Name என்றால் ActiveSheet.Name பின்னர் Ws.Visible = xlSheetVeryHidden அடுத்த Ws வேறு பதில் = vbNo பின்னர் MsgBox "நீங்கள் தாள்களை மறைக்க வேண்டாம் என்று தேர்ந்தெடுத்துள்ளீர்கள்", vbInformation, "மறைக்க வேண்டாம்" முடிவுக்கு வந்தால் முடிவு 

செய்தி பெட்டியிலிருந்து பதில் ஆம் எனில், மேலே உள்ள குறியீடு இப்போது இருக்கும் தாளைத் தவிர அனைத்து பணித்தாள்களையும் மறைக்கும்.

செய்தி பெட்டியிலிருந்து பதில் இல்லை என்றால் அது செய்தி பெட்டியைக் காண்பிக்கும் “தாள்களை மறைக்க வேண்டாம் என்று தேர்ந்தெடுத்துள்ளீர்கள்”.

இதேபோல், பதில் ஆம் எனில் கீழே உள்ள குறியீடு தாளை மறைக்கும்.

குறியீடு:

 சப் அன்ஹைட்அல் () மங்கலான பதில் சரம் மங்கலான Ws என பணித்தாள் பதில் = MsgBox ("நீங்கள் அனைத்தையும் மறைக்க விரும்புகிறீர்களா?", VbQuestion + vbYesNo, "மறை") என்றால் பதில் = vbYes ஆக இருந்தால் செயலில் உள்ள ஒவ்வொரு புத்தகத்திற்கும் செயலில் உள்ள பணிப்புத்தகங்கள் Ws.Visible = xlSheetVeryHidden அடுத்த Ws ElseIf Answer = vbNo பின்னர் MsgBox "தாள்களை மறைக்க வேண்டாம் என்று நீங்கள் தேர்ந்தெடுத்துள்ளீர்கள்", vbInformation, "மறைக்க வேண்டாம்" முடிவு துணை என்றால் முடிவு 

இது மறை தாள் குறியீட்டைப் போலவே செயல்படுகிறது, ஆம் என்றால் அது மறைக்கப்படும், இல்லை என்றால் அது மறைக்காது.