1299075935

23 Wł<ro?cft B«i< for Appk<*t»oro • KodP*dco^rnM*oJ3.1Q2.106jJwn • (Modutel (Cod*)) & £«lc £<Jrt ¥*w Insert Fficmat Qebog gun loofe Add-lns &indow Help

S S- J    W    ► « J tć $ 3 T? © ln1S.Co!5

Project • VBAProje<t    Xj

³ BI    _i

[(General)

~^| [KodPaskowy

O

X

(9 x

3]

Sub Kodh3kovyO

* 4$ alpvbae«.xk (ATPVBAtN J(l AM)

H Ś Sof^er (SOiVf RJCIAM)

R ^ VBAProJec1 (FUHCRFS.XIAM)

YBAProject (KodP<ł%kowy fTMkro.lX102.10^xKr

0 « i NWrosoft Excd Objects M] -Vfcu«l (Musi)

Arfx**2 (ub«(a_danxh)

Ten_5kof©wvt

§

0 -jjModJes

Modiiel •3 Mod*2

Propenie* • Module)

Module i ModJe

*Wwł*s< | CMegsmed

R

ModJeI

Breakpoint

Bookmark

Dis kodjPaskowy Aa String

kod_paakowy - Rangę("F2").Valuc

Dis zakres_tablicy As Rangę

Sec zakreSjtablicy - ActiveSheec .Rar.ge ("Al :D13")

•Tworzymy zmienne pomocnicze wyznaczające położenie kolejnych myślników •korzystając z szukaj.tekst O oraz sprawdzamy długość dł<)

Dis myśli, xysł2, mysi3, dl As Integer myśli - KorkshectFunctlon.Searcfc mysi2 ■ NorksfteetFunctlon.SetrclH*-"¹, mysi3 - KorksheetFunction.Search("--, dl - Len(kodjPaskowy)

kod_paskovy, 1) kodjpaskowy, myśli ♦ 1) kod_paskovy, mysi2 * 1)

• 3 ^foperties/MetJjods lijt Constants Quick Info Paraajeter Info Complete }Vc<d

im

A*

I I«9*

£bje<t Browie* Add Watek.. CefiMion

tasl PosiriOQ

•* s

limy ked na jego składowe używając lewy(), prawy()_v fragment.tekstu o Dis strLlczbai, strLiczfca2, strKr.oznlk, strTolerancja As Stnr.g strLiczbal - Left(kodjpaskowy, myśli - 1)

scrLiczba2 - Kid(kcd_paskowy, myśli ♦ 1, mysi2 - myśli - 1) strKnoznik - Mid(kod_paskowy, mysi2 ♦ 1, mys!3 - my*12 - i) strTolerancja - Right<kod_paskcwy, dl - mysl3>

ienlamy słowa na odpowiadające im wartości liczbowe }a słaba - Jeżeli(jeZcli(je2cli...(...))> ja lepsza - Przełącz(wartość;tablica)

:a dobra - Indeks (podaj.pozycje(>>

;a najlepsza - wyszukaj.pionowo()

Dis Liczbal, Liczba2, Mnożnik, Tolerancja As Double

Liczbal - Korksheetrunctlon.VLookup(strLlczbal, zakres_tablicy, 2, 0) Liczba2 - Korksheetfunction.VLcokup(strLlczba2, zakreSjtablicy, 2, 0) Mnożnik - KorksheetFur.ction.VL©okup (strKr.oznlk, zakreSjtablicy, 3, 0) Tolerancja - MorJcsheetFunctior..VLookup(strTolerancja, 2akres_tablicy, Ą, 0)

rymy wynik w całość Dis wynika As Integer

wynik - KorksheetFur.ction.Concat (Liczbal, Liczba2) • Kr.ozmk

•wpisujemy wynik do kcsćrfcl obok Rangę (T3-) .Value - wynik

•sprawdzenie czy to wartość z szeregu Z2i Dis szereg As Rangę

Set szereg - ActiveSfceec .Rar.ęe (*K3 :K26")

E3 poi

14J02016