FUNKCE IF - V�B�R Z EXCELU : Zdravím,Mám pravidlo které mi...

Wed, 17 Apr 2019 09:41:21 +0000

Autor: Luk� Z�ruba
P�edm�t: 28724
Zasl�no: 17.dub.2019 v 09:41

Zdrav�m,

M�m pravidlo kter� mi pomoc� funkce if, ElseIf zjist� jak� je pou�it� materi�l a podle toho vybere zkratku materi�lu a nap�e j� do Ivlastnost� - Custom "MAT". Pravidlo jen s p�r materi�ly p�ikl�d�m n�e. Je mo�n� toto pravidlo upravit tak aby se pod�valo do excelovsk� tabulky? z d�vodu jednodu��ho p�id�v�n� zkratek.

Dim oParams As ParametersDim oPartDoc As PartDocument = ThisDoc.DocumentDim oPartCompDef As PartComponentDefinition = oPartDoc.ComponentDefinitionoParams = oPartCompDef.ParametersDim oUserParams As UserParameters = oParams.UserParametersTry  p = Parameter("MAT")Catch  oUserParams.AddByValue("MAT","Neni", UnitsTypeEnum.kTextUnits)End TryIf iProperties.Material = "Hlin�k 6061" TheniProperties.Value("Custom", "MAT") = "AL"Parameter("MAT")=iProperties.Value("Custom", "MAT")ElseIf iProperties.Material = "Hlin�k 6061 - PROTISKLUZ" TheniProperties.Value("Custom", "MAT") = "AL-Pr."Parameter("MAT")=iProperties.Value("Custom", "MAT")ElseIf iProperties.Material = "Hlin�k 6061 - B�L� ( RAL 9010 )" TheniProperties.Value("Custom", "MAT") = "AL-(B)"Parameter("MAT")=iProperties.Value("Custom", "MAT")ElseIf iProperties.Material = "NEREZ (�sn 17 240 AISI 304 )" TheniProperties.Value("Custom", "MAT") = "NE"Parameter("MAT")=iProperties.Value("Custom", "MAT")End IfMultiValue.UpdateAfterChange = True'MessageBox.Show(Parameter("MAT"), "Kontrola Materi�lu", MessageBoxButtons.OK, MessageBoxIcon.Hand, MessageBoxDefaultButton.Button1)

Mysl�m t�m �e bych m�l materi�l ve sloupci A a zkratku ve sloupci B:

A B

Hlin�k 6061 AL

NEREZ NE

....

CAD Fórum : FUNKCE IF - V�B�R Z EXCELU

FUNKCE IF - V�B�R Z EXCELU : Zdravím,Mám pravidlo které mi...