W tym artykule dowiemy się, jak nagrywać makro, a następnie jak je modyfikować i ułatwiać naukę.
Jak napisać makro dla formuły Sum w VBE
Mamy dane Excela w zakresie A1:C14, w którym kolumna A zawiera nazwiska, kolumna B ze znakami z przedmiotu 1, a kolumna C ze znakami z przedmiotu 2. W kolumnie D chcę zwrócić sumę ocen.
Aby wstawić formułę sumy za pomocą VBA w programie Microsoft Excel, wykonaj poniższe czynności:-
- Otwórz dane Excela.
- Najpierw nagraj makro do zwracania całkowitych znaków w komórce D2.
- W zakładce „Programista” wybierz „Nagraj makro” z grupy „Kod”.
- Pojawi się okno dialogowe „Nagraj makro”.
- W polu „Nazwa makra” wpisz nazwę makra bez spacji i znaku specjalnego.
- Wpisz dowolny klawisz skrótu.
- I napisz opis makra w polu opisu.
- Nagrywanie rozpocznie się teraz.
- Wpisz formułę sumy w komórce D2.
- Wklej formułę w zakresie D3:D14.
- Kliknij „Zatrzymaj nagrywanie”
- Aby zobaczyć zarejestrowane makra, naciśnij klawisz „ALT+F11”.
- Nagrany kod wyglądałby tak:-
Sub SUM() ' 'Makro SUMA 'Uzyskano sumę znaków ' ' Skrót klawiaturowy: Ctrl+Shift+S ' Zakres("D2").Select ActiveCell.FormulaR1C1 = "=SUM(RC[-2]:RC[-1] )" Zaznaczenie.Zakres kopiowania("C2").Wybierz zaznaczenie.Koniec(xlDown).Wybierz zakres("D14").Wybierz zakres(Zaznaczenie,Wybór.Koniec(xlUp)).Wybierz ActiveSheet.Wklej zakres("D2" ).Wybierz Koniec Sub
Jak widać, powyższy kod VBA jest zbyt długi, aby zwrócić sumaryczne oceny, a także nie jest łatwy do zrozumienia. W ten sposób modyfikujemy kodowanie.
Sub SUM() Dim X As Integer X = Application.WorksheetFunction.CountA(Range("A:A")) Range("D2:D" & X).Value = "=Sum(B2:C2)" End Sub
Jak napisać makro dla formuły Średnia w VBE
Mamy dane Excela w zakresie A1:C14, w którym kolumna A zawiera nazwiska, kolumna B ze znakami z przedmiotu 1, a kolumna C ze znakami z przedmiotu 2. W kolumnie D chcę zwrócić średnie oceny.
Aby wstawić średnią formułę za pomocą VBA w Microsoft Excel 2010 i 2013, wykonaj poniższe czynności:-
- Otwórz dane Excela.
- Najpierw rejestrujesz makro do zwracania średnich ocen w komórce D2.
- W zakładce „Programista” wybierz „Nagraj makro” z grupy „Kod”.
- Pojawi się okno dialogowe „Nagraj makro”.
- W polu „Nazwa makra” wpisz nazwę makra bez spacji i znaku specjalnego.
- Wpisz skrót klawiszowy - cokolwiek chcesz.
- I napisz opis makra w polu opisu.
- Nagrywanie rozpocznie się teraz.
- Wpisz formułę „ŚREDNIA” w komórce D2.
- Wklej formułę w zakresie D3:D14.
- Kliknij „Zatrzymaj nagrywanie”.
- Aby zobaczyć zarejestrowane makra, naciśnij klawisz „ALT+F11”.
- Nagrany kod wyglądałby tak:-
Sub ŚREDNIA() ' 'ŚREDNIA Makro 'Łączna liczba znaków ' ' Skrót klawiaturowy: Ctrl+Shift+A 'ActiveCell.FormulaR1C1 = "=ŚREDNIA(RC[-3]:RC[-2])" Zaznaczenie.Zakres kopiowania(" E2").Wybierz zaznaczenie.Zakres kopiowania("D2").Wybierz zaznaczenie.Koniec(xlDown).Wybierz zakres("E14").Wybierz zakres(Zaznaczenie,Wybór.Koniec(xlUp)).Wybierz ActiveSheet.Wklej zakres( "E13").Wybierz Wybór.Koniec(xlUp).Wybierz Koniec Sub
Jak widać, powyższy kod VBA jest zbyt długi, aby zwracać sumę punktów, a także nie jest łatwy do zrozumienia; w ten sposób modyfikujemy kod.
Sub Average() Dim X As Integer X = Application.WorksheetFunction.CountA(Range("A:A")) Range("E2:E" & X).Value = "=Average(B2:C2)" End Sub
W ten sposób możemy nauczyć się nagrywać makro, a następnie je modyfikować.
Jeśli podobały Ci się nasze blogi, podziel się nimi ze znajomymi na Facebooku. A także możesz śledzić nas na Twitterze i Facebooku.
Chcielibyśmy usłyszeć od Ciebie, daj nam znać, jak możemy ulepszyć, uzupełnić lub unowocześnić naszą pracę i uczynić ją lepszą dla Ciebie. Napisz do nas na stronie e-mail