Vbasic kai functions

[faitas]

exw ena function kai 8elw otan ekteleite ena case, to keli pou ekteleite to funtion na pernei xrwma analoga me to apotelesma.

exw bale tin entoli

ActiveCell.Interior.Color = 3

alla den ekteleite, i toulaxiston den alla zei xroma to keli.

 

Yparxei kana trick na prosdiorisw to keli pou trexei to function?

 

thanx

[Dionisos]

H entolh pou ekteleis einai swsth. To provlhma einai oti mesa apo mia Function de mporeis na alla3eis th morfh twn keliwn sto Excel. Afto einai kai to provlhma sou. Sou proteinw na valeis ayth thn entolh mesa se ena sub kai na trexeis ayto to sub. Me ayton ton tropo de 8a exeis provlhma.

 

Filika

Dionisos

[faitas]

to ekana kai den egine tipota!!!

gia des ligo

 

Function HDD(max, min)

 

Dim AV

Dim base

base = 18

AV = (max + min) / 2

Select Case AV

Case Is < base

 

Call bold(3)

 

 

HDD = (base - AV) * 30

Case Is = base

HDD = 0

Case Else

HDD = 0

End Select

End Function

 

 

Sub bold(f As Integer)

With ActiveCell.Interior

.ColorIndex = f

.Pattern = xlSolid

End With

End Sub