גאַנץ אָפט, אַ סיטואַציע ערייזאַז ווען מיר דאַרפֿן צו סאַכאַקל (אַקיומיאַלייט) עטלעכע וואַלועס סאַקווענטשאַלי אריין אין איין צעל:
יענע. אויב, פֿאַר בייַשפּיל, איר אַרייַן די נומער 1 אין צעל A5, די נומער 1 זאָל זיין געוויזן אין B15. אויב איר אַרייַן די נומער 1 אין A7, 1 זאָל זיין געוויזן אין צעל B22, און אַזוי אויף. אין אַלגעמיין, וואָס אַקאַונטאַנץ (און ניט בלויז זיי) רופן אַ קיומיאַלאַטיוו גאַנץ.
איר קענען ינסטרומענט אַזאַ אַ סטאָרידזש צעל אַקיומיאַלאַטאָר מיט אַ פּשוט מאַקראָו. רעכט גיט אויף די בלאַט קוויטל ווו סעלז A1 און B1 זענען ליגן און סעלעקטירן דעם קאָנטעקסט מעניו מקור טעקסט (מקור קאָד). אין די וויסואַל באַסיק רעדאַקטאָר פֿענצטער וואָס אָפּענס, נאָכמאַכן און פּאַפּ די פּשוט מאַקראָו קאָד:
פּריוואַט סאַב וואָרקשעעט_טשאַנגע(ביוואַל ציל ווי עקססעל.ראַנגע) מיט ציל אויב .אַדרעסס(פאַלש, פאַלש) = "אַ1" דעמאָלט אויב איזנומעריק(.וואַלוע) דעמאָלט אַפּפּליקאַטיאָן.ענאַבלעעווענטס = פאַלש ראַנגע("אַ2").וואַלוע = ראַנגע(" A2"). Value + .Value Application.EnableEvents = אמת סוף אויב סוף אויב סוף מיט סוף סוב די אַדרעסעס פון סעלז A1 און A2, פון קורס, קענען זיין ריפּלייסט מיט דיין אייגענע.
אויב איר דאַרפֿן צו שפּור דאַטן פּאָזיציע און סאַמערייז ניט יחיד סעלז, אָבער גאַנץ ריינדזשאַז, די מאַקראָו וועט זיין אַ ביסל טשיינדזשד:
פּריוואַט סאַב וואָרקשעעט_טשאַנגע(ביוואַל ציל ווי עקססעל.ראַנגע) אויב ניט ינטערסעקט(ציל, ראַנגע("אַ1:אַ10")) איז גאָרנישט דעמאָלט אויב איזנומעריק(טאַרגעט.וואַלוע) דעמאָלט Application.EnableEvents = False Target.Offset(0, 1) .וואַלוע = טאַרגעט.אָפסעט (0, 1). ווערט + טאַרגעט.וואַלוע אַפּפּליקאַטיאָן.ענאַבלעעווענטס = אמת סוף אויב סוף אויב סוף סוב עס איז אנגענומען אַז דאַטן זענען אריין אין די סעלז פון די קייט A1: A10, און די אריין נומערן זענען סאַמד אַרויף אין די שכייניש זייַל אויף די רעכט. אויב אין דיין פאַל עס איז נישט שכייניש, פאַרגרעסערן די יבעררוק צו די רעכט אין די אָפסעט אָפּעראַטאָר - פאַרבייַטן 1 מיט אַ גרעסערע נומער.
- וואָס זענען מאַקראָס, ווו צו אַרייַנלייגן מאַקראָו קאָד אין וובאַ, ווי צו נוצן זיי?