Exel 7

Prlodsm - Microsoft Excel

Narzędzia główne Wstawianie

^Zarejestruj makro

Użyj odwołań wzglęonycn

N/isual Makra

Basic    Bezpieczeństwo makr

Kod

Układ strony

Formuły Dane Właściwości Wyświetl kod

Recenzja

Widok

-cn

Źródło

Deweloper Team

:!.• :::i n.z _j5Importuj

<•*>

Pakiety rozszerzenia

tyj

a\

Panel

dokumentu

Modyfikowanie

W

Wstaw Tryb

projektowania 3 Uruchom okno dialogowe

Formanty

*r ridśwner id ot

XML

d *
J15	▼	£	li

| Microsoft Visual Basic - Prlodsm		Hiltói
File Edit View Insert Format Debug Run Tools Ądd-Ins Window Help		Wpisz pytanie do Pomocy

Tool bo*

a

Controls

£P Prl.xlsm - UserForml (Codę)

□ ii © i- Ź3

^ A abl § 1 P f?

S U S ra

□

D! Piloclsm - UserForml (UserForm)

©

Zadanie-l

(General)

(Declarations)

1]

Label 1

Dim i As Inceęer

10

11

12

13

14

15

16

17

18

Project - VBAProject

Ol

Arkusz 1 (Arkusz 1) Arkusz2 (Arkusz2) Arkusz3 (Arkusz3) ThisWorkbook Ę-£ąi Forms

El UserForml Ś - Modules

Module 1

a

^r

- i

-i

|| UserForml UserForm
Alphabeoc )		Categorized |
	(Namej	| UserForml	+
	BackColor	□ &H8000000F&	U
	BorderColor	■ &H80000012&
	BorderStyle	0 - fmBorderStyleNone
	Captión	Zadanie-1
	Cyde	0 - fmCydeAllForms
	DrawBuffer	32000
	r- lit	-

CommandButton 1

Label 2

7TTTT

III

Prl.xlsm - Module! (Codę)

(General)

Sub a ()

UserForml.Show End Sub

	^1 = © ss
a	▼

Privace Sub Command3ucconl_CiicIc i = i + l If i = 1 Then

CommandBucconl.Capcion = "Police CommandBucconl.FoncSize = 14 ¹Commandl.Fonc = "Arial"

' Coirmandl. FoncBold = True CommandBucconl.BackColor = Q3Coi Texc3oxl.Visible = True Label2.Visible = True Label2.Fonc = "Arial"

Label2.FoncSize = 14 Label2.Capcion = "Wpisz Imię" Texc3oxl.FoncSize = 14 Texc3oxl.SeleccionMargm = False

Eiself i=2 Then Texc3oxl.Visible = False Label2.Visible = False CommandBucconl.Capcion = "Wicam CommandBucconl.BackColor = Q3Coi CommandBucconl.FoncSize = 24