פונקציית תכנית פשוטה | עמדת התחלה | אפס | רשום ואם | חיפוש ללא רגישות לאותיות
להשתמש Instr ב Excel VBA כדי למצוא את המיקום של מחרוזת משנה במחרוזת. פונקציית Instr היא תכליתית למדי.
הצב כפתור פקודה בגליון העבודה שלך והוסף את שורות הקוד למטה. כדי לבצע את שורות הקוד, לחץ על לחצן הפקודה בגיליון.
פונקציית Instr פשוט
כברירת מחדל, הפונקציה Instr מתחילה לחפש בתחילת המחרוזת (מיקום 1).
קוד:
מצב עמום כמחרוזת
מדינה = "וירג'יניה"
MsgBox InStr (מצב, "ג'ין")
תוֹצָאָה:
הערה: מחרוזת "ג'ין" נמצאה במיקום 4.
עמדת התחלה
פונקציית ה- Instr השנייה למטה מתחילה לחפש במיקום 7.
קוד:
מצב עמום כמחרוזת
מדינה = "דרום קרוליינה"
MsgBox InStr (מצב, "o")
MsgBox InStr (7, מצב, "o")
תוֹצָאָה:
הסבר: הפונקציה Instr הראשונה מוצאת את המחרוזת "o" במיקום 2. הפונקציה Instr השנייה מתחילה לחפש במיקום 7 ומוצאת את המחרוזת "o" במיקום 10.
אֶפֶס
הפונקציה Instr מחזירה 0 אם המחרוזת לא נמצאה (חשוב כפי שנראה בהמשך).
קוד:
מצב עמום כמחרוזת
מדינה = "פלורידה"
MsgBox InStr (מצב, "אנחנו")
תוֹצָאָה:
מסקנה: המחרוזת "אנחנו" לא נמצאה.
Instr ו- if
בואו ניצור תוכנית VBA פשוטה המשתמשת ב- פונקציית Instr.
קוד:
מצב עמום כמחרוזת, מחרוזת משנה כמחרוזת
state = טווח ("A2"). ערך
מחרוזת משנה = טווח ("B2"). ערך
אם InStr (מצב, מחרוזת משנה)> 0 אז
טווח ("C2"). ערך = "נמצא"
אַחֵר
טווח ("C2"). Value = "לא נמצא"
סוף אם
התוצאה כאשר אתה לוחץ על כפתור הפקודה בגיליון:
הסבר: מחרוזת "outh" נמצאה במיקום 2. הפונקציה Instr מחזירה 2. כתוצאה מכך, Excel VBA ממקם את המחרוזת "נמצא" בתא C2.
חיפוש חסר רגישות
כברירת מחדל, הפונקציה Instr מבצעת חיפוש תלוי רישיות. הזן את המחרוזת "dakota" לתא B2 ולחץ על כפתור הפקודה בגיליון.
הסבר: המחרוזת "דקוטה" לא נמצאה (האות הראשונה לא באותיות גדולות). הפונקציה Instr מחזירה 0. כתוצאה מכך, Excel VBA ממקם את המחרוזת "לא נמצא" בתא C2.
כדי לבצע חיפוש חסר רישיות, עדכן את הקוד באופן הבא:
מצב עמום כמחרוזת, מחרוזת משנה כמחרוזת
state = טווח ("A2"). ערך
מחרוזת משנה = טווח ("B2"). ערך
אם InStr (1, state, string, vbTextCompare)> 0 לאחר מכן
טווח ("C2"). ערך = "נמצא"
אַחֵר
טווח ("C2"). Value = "לא נמצא"
סוף אם
התוצאה כאשר אתה לוחץ על כפתור הפקודה בגיליון:
הסבר: לפונקציית Instr המוצגת למעלה יש 4 ארגומנטים. כדי לבצע חיפוש חסר רישיות, ציין תמיד מיקום התחלה (ארגומנט ראשון) והשתמש ב- vbTextCompare (ארגומנט רביעי).
