RejestrowanieMakra

.^Zarejestruj makro

llSj] Użyj odwołań względnych

Narzędzia główne Wstawianie Układ strony Formuły Dane

Recenzja

Widok Deweloper

Team

/z

Właściwości Wyświetl koci

a

<*>

%1ł/SpV

_j5 Importuj

Visual Makra Basic    _J\ Bezpieczeństwo makr

Kod

Wstaw Tryb

• projektowania £1 Uruchom okno dialogowe

Źródło

Pakiety rozszerzenia

^r< 0>

Formanty

‘^Oaswiez dane XML

Panel

dokumentu

Modyfikowanie

d

A1

B

D

H

Microsoft Visual Basic - cw02.xlsm

l a j- Cal |

1

2

3

4

5

6

7

8

9

10 11 12

13

14

15

16 17

18

19

20

21

22

23

24

25

26

Project - VBAProject

a

^ VBAProject (cw02.xlsm)

H] Arkusz! (Arkusz 1)

ŚP) Arkusz2 (Arkusz2)

ŚP) Arkusz 3 (Arkusz 3)

Module 1 ThisWorkbook

VBAProject (FUNCR£S.XLAM)

Properties - Modulel

Modulel Module Alphabetic j Categorized |

(Name)

Modulel

s

a

File Edit View Insert Format Debug Run lools Add-Ins Window Help

ii-a, , i .ja ■'    ► u J *£ %•. zr ‘y «

cw02.xlsm - Modulel (Codę)

IS

(General)

Makrol

|Sub Makrol ()

I

• Makrol Makro

27

w i ►

►i l Arkuszl / Arkusz2 Arkusz3 "J

Gotowy

J

Rar.ęe ("31") .Select

ActiveCeil.FormuIaRlCl = "Rejestrowanie Makra"

Rar.ęe ("El") .Select With Selection.Interior .Pattern = xiSolid . PatternColorIr.dex = xlAutomatic .Color = 65535 .TlntAr.dShade = 0 . PatternTintAr.dShade Er.d With

Rar.ęe ("Gl") .Select ActiveCell.FormuIaRlCl =

Rar.ęe ("G2 ") . Select ActiveCell.FormuIaRlCl =

Rar.ęe ("Gl: G2 ") . Select

Selection.AutoFill Destination:=Rar.ęe("Gl:G9"), Type:=xlFillDefault Rar.ęe ("G1:G9") .Select Application. Wrr.dowState = xlMinimized Application. Wrr.dowState = xlNormal Er.d Sub

rji_

= O

ni n

n 2 w