سلام
من در کد زیر با مشکل پیغام Run time error مواجه شدم
همینطور که در عکس بالا میبینید مشکل در این قسمت کد هست
لطفا راهنماییم کنید
من در کد زیر با مشکل پیغام Run time error مواجه شدم
کد PHP:
Sub Reset() Dim iRow As Long
iRow = [Counta(Database!A:A)] ' شناسايي آخرين رديف
With frmForm
.txtID.Value = ""
.txtName.Value = ""
.optMale.Value = False
.optFemale.Value = False
'رنگ پيش فرض
.txtID.BackColor = vbWhite
.txtName.BackColor = vbWhite
.txtCity.BackColor = vbWhite
.txtCountry.BackColor = vbWhite
.cmbDepartment.BackColor = vbWhite
'--------------------------------
.cmbDepartment.Clear
' ايجاد نام پويا براي بخش
shSupport.Range("A2", shSupport.Range("A" & Application.Rows.Count).End(xlUp)).Name = "Dynamic"
.cmbDepartment.RowSource = "Dynamic"
.cmbDepartment.Value = ""
.txtRowNumber.Value = ""
.txtCity.Value = ""
.txtCountry.Value = ""
' کد زير با ويژگي جستجو - قسمت 3 مرتبط است
Call Add_SearchColumn
ThisWorkbook.Sheets("Database").AutoFilterMode = False
ThisWorkbook.Sheets("SearchData").AutoFilterMode = False
ThisWorkbook.Sheets("SearchData").Cells.Clear
'-----------------------------------------------
.lstDatabase.ColumnCount = 9
.lstDatabase.ColumnHeads = True
.lstDatabase.ColumnWidths = "30,60,75,40,60,45,55,90,70"
If iRow > 1 Then
.lstDatabase.RowSource = "Database!A2:I" & iRow
Else
.lstDatabase.RowSource = "Database!A2:I2"
End If
End With
End Sub
همینطور که در عکس بالا میبینید مشکل در این قسمت کد هست
کد PHP:
.cmbDepartment.Clear
' ايجاد نام پويا براي بخش
shSupport.Range("A2", shSupport.Range("A" & Application.Rows.Count).End(xlUp)).Name = "Dynamic"
.cmbDepartment.RowSource = "Dynamic"
کامنت