כיצד להשתמש ב"ממצא "במקרו VBA מצטיינים?

תלמד להשתמש ב- "מצא" עבור פקודות המאקרו שלך שנכתבו ב- Excel Visual Basic for Applications (VBA).

צעדים

1
למד את מושגי המפתח הבאים בפקודה FIND:
- התחביר של. מצא הוא:
  - expression.Find (מה, אחרי, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SearchFormat)
  - ביטוי (חובה): הוא כל אובייקט טווח חוקי. אז אם ניקח דוגמא אז הטווח יהיה טווח ("A1: A" & lastRow) שבו lastRow הוגדל כ- long ארוך ויש הצהרה: lastRow = oSht.Range ("A" & Rows.Count). End (xlUp). שורה (או משהו דומה) שקדם לשימוש בו. מצא את הביטוי הנדרש.
  - מה (משתנה אופציונלי): הוא "ערך החיפוש"
  - אחרי (Variant Optional): התא שאחריו ברצונך שהחיפוש יתחיל.
  - LookIn (משתנה אופציונלי): סוג המידע. (xlValues או xlFormulas)
  - LookAt (משתנה אופציונלי): יכול להיות אחד מהקבועים הבאים של XlLookAt: xlWhole או xlPart.
  - הזמנת חיפוש (וריאנט אופציונלי): יכול להיות אחד מהקבועים הבאים של ** ** חיפוש סדר: xlByRows או xlByColumns.
  - SearchDirection: יכול להיות אחד מקבועי ה- XlSearchDirection האלה. xl הבא ברירת מחדל xl קודמת
  - MatchCase (וריאנט אופציונלי): נכון כדי להפוך את החיפוש לרגש באותיות רישיות. ערך ברירת המחדל הוא False.
  - MatchByte (Variant Optional): משמש רק אם בחרת או התקנת תמיכה בשפה כפולה בתים. נכון שיש תווים של בתים כפולים שתואמים לתווים של בתים כפולים בלבד. לא נכון שיש תווים של בתים כפולים התואמים לשווי המקביל שלהם.
  - SearchFormat (משתנה אופציונלי): פורמט החיפוש.
2

אתה יכול להתאים את הקוד הבא לשימושים שלך על ידי העתקתו (עד למקום בו כתוב # ** סוף משנה) בעריכה מתקדמת והדבקתו למעבד תמלילים ולעשות החלפת הכל עבור "# **" (ללא הציטוטים אבל עם הרווח הנגרר בבקשה). לאחר מכן, בהעדפות Excel, הגדר את סטטוס מפתח הרצועה למצב מסומן או מופעל כדי שתוכל לעבוד עם פקודות מאקרו. ברצועת הכלים, לחץ על מפתח ואז על סמל ההקלטה ופשוט לחץ בתא A1 ואז בצע עצור הקלטה (של מאקרו הדמה שלך). לחץ על כפתור סמל העורך והעתק את החלף (ד) כל הטקסט ממעבד התמלילים שלך מכאן ממש מעל המאקרו ושמור את חוברת העבודה.

LookAt (משתנה אופציונלי): יכול להיות אחד מהקבועים הבאים של XlLookAt: xlWhole או xlPart.
3

פתח חוברת Excel חדשה. שמור את חוברת העבודה כ"סטטוס כולל "וגיליון 1 כ"תצוגות מאמרים ואחרות".
4

בדפדפן שלך, עבור אל: chris-garthwaite ועשה (הצג עוד) תחת מאמרים שהתחילו, ובחר ממש משמאל לראשונה הראשונה למטה, ממש מימין לתצוגות התחתון והעתק אותה. ודא שלא תקבל מידע עודף, רק המאמרים ומספר הצפיות. ואז הדבק את הנתונים בגליון העבודה "תצוגות מאמרים ואחרים" בתא C17. לאחר מכן, בדפדפן שלך, עבור אל: Xhohx והעתק את כל 100 המאמרים והתצוגות המורחבים (הצג עוד) משם בבקשה, והדבק את אלה בתא ממש מתחת לאלה שעשית קודם.
5
לאחר מכן. בסרגל הכלים שלך, בחר פקודות מאקרו, פקודות מאקרו והפעל את המאקרו המודבק הבא החלף (ד) הכל כדי לבדוק אותו.
- - משנה Macro2_FindArticle ()
  - 'מוצא מחרוזת מאמר, מחזיר את כתובת התא ועובר לתא מאמר
  - 'מאקרו 2_FindArticle
  - עמעום כגיליון עבודה
  - עמום סטרפינדר כמחרוזת
  - עמום lastRow כטווח
  - עמום תא כמו טווח
  - הגדר oSht = גיליונות ("תצוגות מאמר ואחרות")
  - הגדר lastRow = ActiveWorkbook.Sheets ("תצוגות מאמר ואחרות"). טווח ("C17: C217")
  - Application.ScreenUpdating = נכון
  - עשה עד שסטרפינדר <> ""
  - StrFinder = Application.InputBox _
  - (בקשה: = "שם המאמר או המחרוזת לחיפוש:", _
  - כותרת: = "חיפוש מאמרים", _
  - סוג: = 2)
  - הגדר aCell = lastRow.Find (מה: = StrFinder, LookIn: = xlValues, _
  - LookAt: = xlPart, SearchOrder: = xlByRows, SearchDirection: = xlNext, _
  - MatchCase: = False)
  - אם לא תא אינו כלום אז
  - MsgBox "ערך נמצא בתא" & aCell.Adresse
  - סיום אם
  - aCell. בחר
  - Application.ScreenUpdating = שקר
  - צא משנה
  - לולאה
  - סיום משנה
  - אתה אמור לקבל רשימת מאמרים בערך כמו התמונה המחודשת הזו, כנראה ללא הרקע הצבעוני.
לאחר מכן, בהעדפות Excel, הגדר את סטטוס מפתח הרצועה למצב מסומן או מופעל כדי שתוכל לעבוד עם פקודות מאקרו.
6

שים לב שאם היית משתמש בפקודת ה- Find מונחה בתפריט של excel, היא תחזיר בפינה השמאלית העליונה (משמאל לסרגל הנוסחה) את הפניה לתא שמצאה, אם בכלל, עבור המחרוזת שחיפשת בטווח הנתון. של תאים, אך יהיה עליכם להכות את החץ הימני ואת החץ השמאלי (או שילוב כזה) כדי לבחור את התא בפועל כתא הפעיל היחיד, אני מאמין. לפחות, כך אקסל מתפקד בחוויה של המחבר הזה - לא ברור שמאירים לי את התא או ברור שהוא בוחר, כפי שהיה עושה בגרסאות ישנות יותר של אקסל.
7

שים לב כי קו התחתון המשמש בקצה הימני של שורות הקוד הוא הארכת השורה לשורה הבאה למטה, כך שהשורה הבאה היא למעשה חלק מכל הליך המשנה או הביטוי.
8

אתה יכול להתאים את הקוד הזה בקלות על ידי שינוי התייחסות לשם הגיליון וההפניה לטווח התא, ואם זה לא מאמר שאתה מחפש, אתה בהחלט יכול לשנות את זה גם בכל מקום.

הזמנת חיפוש (וריאנט אופציונלי): יכול להיות אחד מהקבועים הבאים של ** ** חיפוש סדר: xlByRows או xlByColumns.
9
להלן שני פקודות מאקרו נוספות שעובדות יחד לעדכון מדריכים קשורים:
- - תת מקרו 10 ()
  - 'מאקרו 10 מאקרו
  - ' לוח מקשי קיצור: Option + Cmd + N
  - חלונות ("סטטוס כולל. Xlsm"). הפעל
  - גיליונות ("קשורים קשורים"). בחר
  - Application.Goto הפניה: = "TopRow"
  - Application.CutCopyMode = שקר
  - Selection. מחק Shift: = xlUp
  - ActiveWorkbook.Names.Add Name: = "TopRow", RefersToR1C1: = "= קשורים! R166"
  - טווח ("B166"). בחר
  - בחירה. העתק
  - Application.Goto הפניה: = "מחפש"
  - 'מחפש הוא משתנה שם מוגדר המורכב משמות המאמרים
  - 'ו צפיות הודבקו AS משורבב שורות לעמודות בשורת 1.
  - Macro3_FindRelated
  - סיום משנה
  - Sub Macro3_FindRelated ()
  - "מוצא מדריך קשור מחרוזת ועובר לתא מאמר,
  - 'שם המשתמש ואז מקשי החצים למטה ומקלידים 1,
  - "המציין כי המאמר העמודי הוא קשור למאמר השורה.
  - יש שני סיכומי שורות וסכומים עמודים כדי לעקוב אחר סך הכל / מאמרים קשורים
  - וכמה מאמרים המאמר העמודי קשור אליו.
  - 'משתמש בטווח המשתנים ששמו, "מחפש", בגליון העבודה "קשורים" כאובייקט טווח
  - 'מאקרו 3_Find מקרו קשור
  - עמעום כגיליון עבודה
  - עמום סטרפינדר כמחרוזת
  - עמום תא כמו טווח
  - עמעום כטווח
  - הגדר oSht = גיליונות ("קשורים")
  - חלונות ("סטטוס כולל. Xlsm"). הפעל
  - גיליונות ("קשורים קשורים"). בחר
  - הגדר rng = גליונות עבודה ("קשורים"). טווח ("מחפש")
  - Application.ScreenUpdating = נכון
  - עשה עד שסטרפינדר <> ""
  - StrFinder = Application.InputBox _
  - (בקשה: = "שם המאמר או המחרוזת לחיפוש:", _
  - כותרת: = "חיפוש מאמרים", _
  - סוג: = 2)
  - הגדר aCell = rng.Find (מה: = StrFinder, LookIn: = xlValues, _
  - LookAt: = xlPart, SearchOrder: = xlByRows, SearchDirection: = xlNext, _
  - MatchCase: = False)
  - aCell. בחר
  - Application.ScreenUpdating = שקר
  - צא משנה
  - לולאה
  - סיום משנה
  - בתא H1 הוא xxxxxxxxxxxxxxxxxx ו- I1 ריק. בין J1 ל- ET1 הם כותרות המאמרים וב- EU1 הוא אחר - חשבון מתאם לעתים רחוקות. מ J4 ל- EW4 הן תצוגות המאמר וסכומן הכולל. מ- J6 ל- ET6 הם מאמרים מס '141 למטה ל- 1 (האחרונים בקצה השמאלי, הישן ביותר בקצה הימני). כל זה הודבק כשיוחזר מטווח התאים B10: G153.
  - בתא A166 הוא [xxxxxxxxxxxxxxxxxxx | וזה מועתק הרבה למטה, מכיוון שהוא נמחק עם המשך השימוש.
  - בתא B166 הנוסחה = IF (ISERR (MID (A166, D166 + 2, (E166-D166) -2)), "", MID (A166, D166 + 2, (E166-D166) -2)) אשר מחזירה את הערך, xxxxxxxxxxxxxxxxxx.
  - בתא D166 הנוסחה = IF (ISERR (FIND ("[", A166)), "", FIND ("[", A166)), שמחזירה את הערך 1.
  - בתא E166 הנוסחה = IF (ISERR (FIND ("|", A166)), "", FIND ("|", A166)), שמחזירה 21.
  - בתא A9 נמצאת הנוסחה = "* [[" & B9 & "| כיצד" & B9 & "]]"
  - כאשר הנוסחה ב- A9 מועתקת ל- A10, ושם המאמר מצא את האלכסון של ריבוע המשתמש בשטחו נמצא ב- B10, A10 מחזיר את הערך, * [[מצא את האלכסון של הריבוע באמצעות שטחו | כיצד למצוא את האלכסון של כיכר שימוש שטחו]]
  - בין אם הועתק מהגיליון הראשון בחוברת העבודה, תצוגות מאמרים ואחרים, או מגליון זה, קשורים, הערכים המעוצבים המוכנים להיות קשורים לעמודה בעמודה A מודבקים ואז, אם הם מתאימים כיצד לבצע את המאמר עודכן, לתא B167 ומטה לפני הפעלת המאקרו הבא והדבקת פקודה v מתבצעת בתיבת הקלט כדי לאתר את המאמר באזור החיפוש העליון כדי להקיש על מקש החץ למטה ולעדכן את השורה המתאימה (מאמר) עם 1 עד.

טיפים

קוד הסוג: = 2 ביישום. פרק InputBox פירושו שהוא מחרוזת. סוג 0 הוא נוסחה; סוג 1 הוא מספר; סוג 4 הוא ערך לוגי (נכון או לא נכון); סוג 8 הוא הפניה לתא, כאובייקט טווח; סוג 16 הוא ערך שגיאה, כגון # N / A; וסוג 64 הוא מערך ערכים.

קרא גם: כיצד להתקין מחשבי מקינטוש במחשב Windows?