RejestrowanieMakra

Zarejestruj makro iCl Użyj odwołań względnych

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

Recenzja

Widok Deweloper

Team

mmm

Visual Makra Basic    _f\ Bezpieczeństwo makr

Kod

Wstaw

Tryb

_j5 Importuj

&

ujga • j*

^a" Pakiety rozszerzenia -• J E*    • t*_)i ,

_a    Źródło    Panel

projektowania 51 Uruchom okno dialogowe    3svw:dane    dokumentu

Fortnanty    XMl    Modyfikowanie

Właściwości Cpi Wyświetl kod

<e>

A1	A-l				-J	^1 Microsoft Visuai Basic - cw02oclsm ^1-^1 1 .		LarJSl 1.
A	B l C l D_I	E	F	I o I	H J		A A	\ -^1 1—' I

File Edit View Insert Format Debug Run Tools Ądd-Ins Window Help

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 27

Project - VBAPro;ect

a

a

VBAProject (cw02.xlsm)

i§] Arkusz 1 (Arkusz 1)

H] ArkuszZ (Arkusz2)

B] Arkusz 3 (Arkusz 3)

<#Ą, Module 1 ^ ThisWorkbook VBAProject (FUNCR£S.XLAM)

Properties - Modulel

Modulel Module Alphabetic j Categorized |

(Name)

Modulel

*<<►►» Arkuszl / Arkusz2 Arkusz3 J

s

*■

a

i

- a _<» - o* ► .ud a tó. i ai ar s #

cw02.xlsm - Modulel (Codę)

(General)

Run Sub/UserForm (F5)k_ --■*] )MgKTOT-

EM

Sub Makro! ()

• Makrel Makrc

I

Rar.ęe ("31") .Select

ActiveCell.FormuIaRlCl = "Rejestrowanie Makra"

Rar.ęe ("El") .Select With Selection.Interior .Pattern = xiSolid . PatternColorIndex = xlAutomatic .Color = 65535 .TintAndShade = 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 Destrnation:=Rar.ęe("Gl:G9"), Type:=xlFillDefault Rar.ęe ("G1:G9") .Select Application. Wir.dowState = xlMinimized Application. Wrr.dowState = xlNormal Er.d Sub

r=J_I

= 0

ni n

n 2 w

if¹