ינהאַלט
מאל עס נעמט אַ זייער לאַנג צייַט צו קומען אַרויף מיט עטלעכע זאכן. אבער ווען זיי זענען שוין ינווענטאַד, נאָך דעם פאַקט זיי ויסקומען קלאָר ווי דער טאָג און אפילו באַנאַל. פֿון דער סעריע "וואָס, עס איז מעגלעך?".
פֿון דער ערשטער ווערסיעס, די סטאַטוס באַר אין די דנאָ פון די Microsoft Excel פֿענצטער טראַדישאַנאַלי געוויזן טאָוטאַלז פֿאַר אויסגעקליבן סעלז:
אויב איר ווילט, עס איז אפילו מעגלעך צו רעכט-גיט אויף די רעזולטאַטן און סעלעקטירן פון די קאָנטעקסט מעניו פּונקט וואָס פאַנגקשאַנז מיר ווילן צו זען:
און לעצטנס, אין די לעצטע עקססעל דערהייַנטיקונגען, מייקראָסאָפֿט דעוועלאָפּערס צוגעגעבן אַ פּשוט אָבער ינדזשיניאַס שטריך - איצט ווען איר דריקט אויף די רעזולטאַטן, זיי זענען קאַפּיד צו די קליפּבאָרד!
שיינקייט.
אבער וואָס וועגן די וואס טאָן ניט נאָך (אָדער שוין?) האָבן אַזאַ אַ ווערסיע פון עקססעל? דאָס איז ווו פּשוט מאַקראָס קענען העלפן.
קאַפּיינג די סאַכאַקל פון אויסגעקליבן סעלז צו די קליפּבאָרד ניצן אַ מאַקראָו
עפענען אין קוויטל דעוועלאָפּער (דעוועלאָפּער) רעדאַקטאָר וויסואַל באַסיק אָדער נוצן דעם קלאַוויאַטור דורכוועג אַלט+פקסנומקס. אַרייַנלייגן נייַ ליידיק מאָדולע דורך מעניו אַרייַנלייגן - מאָדולע און קאָפּיע די פאלגענדע קאָד דאָרט:
Sub SumSelected() אויב טיפּנאַמע(סעלעקטיאָן) <> "ראַנגע" דעמאָלט אַרויסגאַנג סוב מיט GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") .סעטטעקסט וואָרקשעעטפונקטיאָן.סום(סעלעקציע) ענד מיט סובינק ליפּבאָרד זייַן לאָגיק איז פּשוט:
- ערשטער קומט די "שוץ פון די נאַר" - מיר קאָנטראָלירן וואָס פּונקט איז כיילייטיד. אויב ניט סעלז זענען אויסגעקליבן (אָבער, פֿאַר בייַשפּיל, אַ טשאַרט), דעמאָלט אַרויסגאַנג די מאַקראָו.
- דערנאָך ניצן די באַפֿעל געאָבדזשעקט מיר מאַכן אַ נייַע דאַטן כייפעץ ווו אונדזער סאַכאַקל פון סעלעקטעד סעלז וועט זיין סטאָרד שפּעטער. א לאַנג און ינגקאַמפּראַכענסיבאַל אַלפאַנומעריק קאָד איז, אין פאַקט, אַ לינק צו די Windows רעגיסטרי צווייַג ווו די ביבליאָטעק איז ליגן Microsoft Forms 2.0 אָבדזשעקט ביבליאָטעק, וואָס קענען מאַכן אַזאַ אַבדזשעקס. מאל דעם קונץ איז אויך גערופן ימפּליסאַט שפּעט ביינדינג. אויב איר טאָן ניט נוצן עס, איר זאָל מאַכן אַ לינק צו דעם ביבליאָטעק אין דער טעקע דורך די מעניו מכשירים - רעפערענצן.
- די סאַכאַקל פון די אויסגעקליבן סעלז איז געהאלטן אַ באַפֿעל WorksheetFunction.Sum(סעלעקציע), און דערנאָך די ריזאַלטינג סומע איז געשטעלט אויף די קליפּבאָרד מיט די באַפֿעל PutInClipboard
פֿאַר יז פון נוצן, איר קענען, פון קורס, באַשטימען דעם מאַקראָו צו אַ קלאַוויאַטור דורכוועג מיט דעם קנעפּל מאַקראָס קוויטל דעוועלאָפּער (דעוועלאָפּער - מאַקראָס).
און אויב איר ווילן צו זען וואָס פּונקט איז קאַפּיד נאָך פליסנדיק די מאַקראָו, איר קענען קער אויף די קליפּבאָרד טאַפליע מיט די קליין פייַל אין דער נידעריקער רעכט ווינקל פון די קאָראַספּאַנדינג גרופּע אויף די הויפּט (היים) קוויטל:
ניט בלויז די סומע
אויב, אין אַדישאַן צו די באַנאַל סומע, איר ווילן עפּעס אַנדערש, איר קענען נוצן קיין פון די פאַנגקשאַנז וואָס די כייפעץ גיט אונדז וואָרקשעעטפונקטיאָן:
פֿאַר בייַשפּיל, עס איז:
- סאַכאַקל - סאַכאַקל
- דורכשניטלעך - אַריטמעטיק מיינען
- ציילן - נומער פון סעלז מיט נומערן
- CountA - נומער פון אָנגעפילט סעלז
- CountBlank - נומער פון ליידיק סעלז
- מינימום - מינימום ווערט
- מאַקסימום - מאַקסימום ווערט
- מעדיאַן - מידיאַן (צענטראל ווערט)
- ... עטק.
וואָס אויב ראָוז אָדער שפאלטן זענען פאַרבאָרגן (מאַניואַלי אָדער דורך אַ פילטער) אין די אויסגעקליבן קייט? אין סדר נישט צו נעמען זיי אין חשבון אין די טאָוטאַלז, מיר דאַרפֿן צו אַ ביסל מאָדיפיצירן אונדזער קאָד דורך אַדינג צו די כייפעץ אָפּקלייַב פאַרמאָג ספּעציעלע סעללס(קסלסעללטיפּע קענטיק):
Sub SumVisible() אויב טיפּנאַמע(סעלעקציע) <> "ראַנגע" דעמאָלט אַרויסגאַנג סוב מיט GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") .SetText WorksheetFunction.Sum(Selection.VisibleTsell. PutInClipboard סוף מיט סוף סוב אין דעם פאַל, די כעזשבן פון קיין גאַנץ פונקציע וועט זיין געווענדט בלויז צו קענטיק סעלז.
אויב איר דאַרפֿן אַ לעבעדיק פאָרמולע
אויב איר חלום אַרויף, איר קענען קומען אַרויף מיט סינעריאָוז ווען עס איז בעסער צו נאָכמאַכן נישט אַ נומער (קונסטאַנט), אָבער אַ לעבעדיק פאָרמולע אין די באַפער, וואָס קאַלקיאַלייץ די טאָוטאַלז מיר דאַרפֿן פֿאַר די אויסגעקליבן סעלז. אין דעם פאַל, איר וועט האָבן צו קליי די פאָרמולע פון פראַגמאַנץ, אַדינג צו אים די באַזייַטיקונג פון דאָללאַר וואונדער און ריפּלייסינג די קאָמע (וואָס איז געניצט ווי אַ סעפּאַראַטאָר צווישן ווענדט פון עטלעכע אויסגעקליבן ריינדזשאַז אין וובאַ) מיט אַ סעמיקאָלאָן:
Sub SumFormula() אויב טיפּנאַמע (סעלעקציע) <> "ראַנגע" דעמאָלט אַרויסגאַנג סוב מיט GetObject ("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") .SetText "=СУММ(" & Replace(Selection. אַדרעס, ",", ";"), "$", "") & ")" .פּוטינקליפּבאָרד סוף מיט סוף סוב סאַמאַטיאָן מיט נאָך באדינגונגען
און, לעסאָף, פֿאַר גאָר מאַניאַקס, איר קענען שרייַבן אַ מאַקראָו וואָס וועט סאַכאַקל ניט אַלע די אויסגעקליבן סעלז, אָבער בלויז די וואָס באַפרידיקן די געגעבן טנאָים. אַזוי, פֿאַר בייַשפּיל, אַ מאַקראָו וועט קוקן ווי אַז לייגט די סאַכאַקל פון סעלעקטעד סעלז אין די באַפער, אויב זייער וואַלועס זענען גרעסער ווי 5 און אין דער זעלביקער צייט זיי זענען אָנגעפילט מיט קיין קאָליר:
Sub CustomCalc () דיק מיין ראַנגע ווי ראַנגע אויב טיפּנאַמע (סעלעקציע) <> "ראַנגע" דעמאָלט אַרויסגאַנג סוב פֿאַר יעדער צעל אין סעלעקציע אויב cell.value> 5 און cell.Interior.ColorIndex <> xlNone דעמאָלט אויב myRange איז גאָרנישט דעמאָלט שטעלן myRange = צעל אַנדערש באַשטעטיק מיראַנגע = יוניאַן (מיראַנגע, צעל) סוף אויב סוף אויב ווייַטער צעל מיט געאָבדזשעקט ("ניו:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") .סעטטעקסט וואָרקשעעטפונקטיאָן. ווי איר קענען לייכט ימאַדזשאַן, טנאָים קענען זיין באַשטימט לעגאַמרע קיין - אַרויף צו צעל פֿאָרמאַטירונגען - און אין קיין קוואַנטיטי (אַרייַנגערעכנט דורך פֿאַרבינדונג זיי צוזאַמען מיט לאַדזשיקאַל אָפּערייטערז אָדער אָדער און). עס איז אַ פּלאַץ פון פּלאַץ פֿאַר פאַנטאַזיע.
- גער פאָרמולאַס צו וואַלועס (6 וועגן)
- וואָס זענען מאַקראָס, ווי צו נוצן זיי, ווו צו אַרייַנלייגן די וויסואַל באַסיק קאָד
- נוציק אינפֿאָרמאַציע אין די סטאַטוס באַר פון Microsoft Excel