اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

السلام عليكم

قمت بعمل فورم ادخال وبحث بسيط

يتكون من رقم وظيفي واسم موظف والوظيفة

عند ادخال البيانات والعودة الى صفحة اكسل فإن الارقام تحفظ على انها رقم تم تخزينه كنص

وعندما احولها لرقم من جديد لا يمكن لفورم البحث من ايجادها

هل بالامكان ان يقوم الفورم بحفظ الارقام على انها ارقام وهل يمكن له البحث عن ارقام ايضا ام يتعامل مع نصوص فقط

وشكرا

  • أفضل إجابة
قام بنشر

اخى خالد

قم بكتابة كود التيكست على النحو الاتى

وجرب الكود

ME.TEXTBOX1.VALUE

اذا لم تفلح معك هذه الطريقه

يرجى ارفاق ملف للعمل عليه

تقبل تحياتى

  • Like 1
قام بنشر (معدل)

هذا هو الملف اخوتي المطلوب عند ادخال بيانات في الفورم ان يقوم بحفظ الارقام كأرقام والتاريخ كتاريخ والنص كنص لمذا يقوم بحفظها جميعا كنص وشكرا

المصنف1.rar

المصنف1.rar

تم تعديل بواسطه خالد مقداد
قام بنشر

اخى خالد

جرب تغير الكود

الاتى

Private Sub CommandButton1_Click()
If t1 = "" Then
MsgBox "íÌÈ Úáíß ÇÏÎÇá ÑÞã"
t1.SetFocus
Else
On Error Resume Next
If Application.VLookup(t1, Range("A:a"), 1, 0) = Error Then
lr = Range("a" & Rows.Count).End(xlUp).Row + 1
Cells(lr, 1) = t1
Cells(lr, 2) = t2
Cells(lr, 3) = t3
t1 = ""
t2 = ""
t3 = ""
t1.SetFocus
Else
MsgBox "åÐÇ ÇáÑÞã ãæÌæÏ ãä ÞÈá", vbOKOnly, "ÊäÈíå"
t1 = ""
t1.SetFocus
End If
End If
End Sub

الى الكود الاتى

Private Sub CommandButton1_Click()
If t1 = "" Then
MsgBox "íÌÈ Úáíß ÇÏÎÇá ÑÞã"
t1.SetFocus
Else
On Error Resume Next
If Application.VLookup(t1, Range("A:a"), 1, 0) = Error Then
lr = Range("a" & Rows.Count).End(xlUp).Row + 1
Cells(lr, 1) = t1.Value
Cells(lr, 2) = t2.Text
Cells(lr, 3) = t3.Text
t1 = ""
t2 = ""
t3 = ""
t1.SetFocus
Else
MsgBox "åÐÇ ÇáÑÞã ãæÌæÏ ãä ÞÈá", vbOKOnly, "ÊäÈíå"
t1 = ""
t1.SetFocus
End If
End If
End Sub

تقبل تحياتى

قام بنشر

ولكن ظهرت مشكلة جديدة ارجو المعذرة عند القيام بالبحث لا يقوم بإيجاد القيم

لان المشكلة كانت قسمين

القسم الاول موضوع الادخال كرقم

والموضوع الثاني البحث عن القيم

وشكرا لك ولمجهودك ومتابعتك للموضوع

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information