کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

به اشتراک گذاری اطلاعات کسب شده در اکسس از سایت آفیس و سایت های تخصصی خارجی
کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

به اشتراک گذاری اطلاعات کسب شده در اکسس از سایت آفیس و سایت های تخصصی خارجی

Unique Value ComboBox

        A1     A                           B

تجربی             1001          

ریاضی            1002          

انسانی            1003          

تجربی             1001          

تجربی             1004         

In Sheet 1 
Create Named Name Range
Name Range : StuId
,OFFSET(Sheet1!$A$2, 0, 0=
 ((COUNTA(Sheet1!$A$2:$A$1000

Name Range : Course
,OFFSET(Sheet1!$B$2, 0, 0=
(( COUNTA(Sheet1!$B$2:$B$1000


 Sheet 2

 :Create Unique Value In Sheet2 

In Cell A2 
,IFERROR(INDEX(StuId, MATCH(0=
("",(COUNTIF($A$1:A,StuId), 0
Press Ctrl + Shift + Enter

In Cell B2

,IFERROR(INDEX(Course,MATCH(0=
+( COUNTIF($B$1:B1,Course)
("",0(StuId<>INDEX(Sheet2!$A$2:$A$1000,Sheet3!$B$1)
 
Press Ctrl + Shift + Enter


Create Named Range : UniqueStuId


,OFFSET(Sheet2!$A$2,  0,  0=
 (COUNT(IF(Sheet2!$A$2:$A$1000="", "",  1)), 1


Create Named Range : UniqueCourse


,OFFSET(Sheet2!$B$2,  0,  0,=
( COUNT(IF(Sheet2!$B$2:$B$1000="",  "",  1)),  1


 : In Sheet3 

( Create Combo box 1  ( Form Controls 
Input Range : UniqueStuId
( Cell Link : B2  ( Sheet 3  

 ( Create Combo Box2  ( Form Controls 
Input Range : UniqueCourse
Cell Link : C2