مشكلة اعلان المتغيرات

[ياسر أحمد الشيخ]

السلام عليكم ورحمه الله وبركاته

اريد ضبط اعلان المتغيرات فى هذا الكود

هذا كود ليوزر فورم للعاملين:

أرجو ضبط المتغيرات به

لأنى حاولت ضبطها ولم أنجح

رجاء وضع أى تغييرات فى الكود باللون الأحمر

Private Sub CommandButton1_Click()

If ComboBox1.Value = "" Then

MsgBox "íÌÈ ÇÎÊíÇÑ Çáíæã", vbMsgBoxRight, "ÊíÐíÑ"

ComboBox1.SetFocus

ElseIf TextBox3.Value = "" Then

MsgBox "íÌÈ ßÊÇÈÉ ÚÏÏ ÇáÓÇÚÇÊ", vbMsgBoxRight, "ÊíÐíÑ"

TextBox3.SetFocus

Else

dd = Application.WorksheetFunction.VLookup(CDbl(ComboBox1.Value), Sheets("data_entry").Range("Am4:an35"), 2, False)

col = dd + 3

For m = 5 To 13

Sheets("data_entry").Cells(m, col).Value = CDbl(TextBox3)

Next m

For m = 17 To 61

Sheets("data_entry").Cells(m, col).Value = CDbl(TextBox3)

Next m

For m = 67 To 79

Sheets("data_entry").Cells(m, col).Value = CDbl(TextBox3)

Next m

For m = 83 To 117

Sheets("data_entry").Cells(m, col).Value = CDbl(TextBox3)

Next m

For m = 121 To 125

Sheets("data_entry").Cells(m, col).Value = CDbl(TextBox3)

Next m

MsgBox "Êã ÊíÖíÑ/ÊÛííÈ ÌãíÚ ÇáÚÇãáíä", vbMsgBoxRight, "ÇáíãÏ Çááå"

End If

End Sub

---------------------------------------------

Private Sub CommandButton2_Click()

End Sub

--------------------------------------------

Private Sub CommandButton3_Click()

ActiveWorkbook.Save

Me.Hide

End Sub

-----------------------------------------------

Private Sub hodorghyab()

If ComboBox1.Value = "" Then

MsgBox "íÌÈ ÇÎÊíÇÑ Çáíæã", vbMsgBoxRight, "ÊíÐíÑ"

ComboBox1.SetFocus

ElseIf TextBox2.Value = "" Then

MsgBox "íÌÈ ßÊÇÈÉ ÑÞã ÇáÚÇãá", vbMsgBoxRight, "ÊíÐíÑ"

TextBox2.SetFocus

ElseIf TextBox3.Value = "" Then

MsgBox "íÌÈ ßÊÇÈÉ ÚÏÏ ÇáÓÇÚÇÊ", vbMsgBoxRight, "ÊíÐíÑ"

TextBox3.SetFocus

Else

dd = Application.WorksheetFunction.VLookup(CDbl(ComboBox1.Value), Sheets("data_entry").Range("Am4:an35"), 2, False)

col = dd + 3

Sheets("data_entry").Cells(Label6.Caption, col).Value = CDbl(TextBox3)

'MsgBox "Êã ÊíÖíÑ/ÊÛííÈ ÇáÚÇãá ÇáãíÏÏ", vbMsgBoxRight, "ÇáíãÏ Çááå"

CreateObject("WScript.Shell").Popup "Êã ÊíÖíÑ/ÊÛííÈ ÇáÚÇãá ÇáãíÏÏ.", 2, "ÇáíãÏ Çááå", 0

TextBox3.SetFocus

TextBox3.Text = ""

TextBox2.SetFocus

TextBox3.Text = ""

End If

End Sub

-----------------------------------------------

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)

On Error Resume Next

Label4.Caption = Application.WorksheetFunction.VLookup(CInt(TextBox2), Sheets("data_entry").Range("A5:c177"), 3, False)

Label6.Caption = Application.WorksheetFunction.VLookup(CInt(TextBox2), Sheets("data_entry").Range("A5:c177"), 2, False)

End Sub

-----------------------------------------------

Private Sub TextBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If KeyAscii = 112 Then Call hodorghyab

If KeyAscii = 16 Then Call CommandButton1_Click

End Sub

أرجو الاهتمام

وشكمرا جزيلاً

تم تعديل ديسمبر 26, 2011 بواسطه leprince2007

[الـعيدروس]

السلام عليكم

جرب حط هذا السطر قبل الأكواد

Public DD, COL, M

ان شاء الله يزبط معاك

تحياتي

[ياسر أحمد الشيخ]

شكرا أخى على

ولكن تحدث مشكلة عندى

حيث بعد حفظ الملف وفتحه مرة أخرى

تظهر رسالة (Error in Loading DLL)

ولا يعمل الفورم (فى نافذة البرمجة) ولا يمكن التعديل على الكود الخاص به(حيث لا يمكن اظهار الكود أساساً)

ما السبب فى ذلك

تم تعديل ديسمبر 26, 2011 بواسطه leprince2007

[الـعيدروس]

ممكن ترفق الملف كي اتفحص مالمشكلة

وارفقة لك بعد التعديل اذا تكرمت

او مثال وعليه الفورم

[ياسر أحمد الشيخ]

ارفقت ملفين أخى الكريم

أرجو العمل على اصلاح المتغيرات بهما

وشكرا

وهل يمكن دمج الأكواد التى بالملفين (لأنها أكواد لفورم واحد)

Mas_Attendance_Roll_1.rar

Mas_Roll1.rar

تم تعديل ديسمبر 26, 2011 بواسطه leprince2007

[ياسر أحمد الشيخ]

للرفع أخى

[ياسر أحمد الشيخ]

للرفع

[الـعيدروس]

السلام عليكم

اتبع الشرح اذا مازبط معاك اخبرني

شرح.rar

تم تعديل ديسمبر 28, 2011 بواسطه alidroos

[ياسر أحمد الشيخ]

شكرا أخى الكريم

حل أكثر من رائع

10 على 10

تمت الاجابه

[الـعيدروس]

الحمد لله الذي بنعمته تتم الصالحات