سلام
من نام کارمندان را در ستون "A" تحت عنوان cboName و شماره کارمندی انها را در ستون "B" در sheet1 دارم. حالا میخوام وقتی در فرم اسم کارمندی رو از cboName انتخاب کردم شماره کارمندی اون شخص در txtEmployeeNumber نمایش داده شود.
اگر کد زیر رو در UserForm Module قرار بدم کارنمیکنه اما دکمه های کنترل مثل OK,Clear و Close کارمی کنند.
کد:
Private Sub cboName_Change()
Dim EName As String
Dim Row As Integer
EName = cboName.Value
With Application.WorksheetFunction
Row = .Match(EName, Sheets("sheet1").Range("A2:A100"), 0)
txtEmployeeNumber.Text = .Index(Sheets("sheet1").Range("B2:B100"), Row)
txtShift.Text = .Index(Sheets("sheet1").Range("C2:C100"), Row)
End With
End Sub
ام اگر این کد رو با دبل کلیک کردن فرم در قسمت مخصوص کد نویسی قرار بدم، کد کار خودشو انجام میده ولی کنترل ها دیگه کار نمی کنند و از خط زیر اشکال می گیره
Run Time Error 1004
Unable to get the match property of worksheet function class
کد:
Row = .Match(EName, Sheets("sheet1").Range("A2:A100"), 0)
|
اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید. |
|
علاقه مندی ها (Bookmarks)