اذهب الي المحتوي
أوفيسنا

أبو عبد الملك السوفي

04 عضو فضي
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    600

  • تاريخ الانضمام

  • تاريخ اخر زياره

 نوع المحتوي 

مشاركات المكتوبه بواسطه أبو عبد الملك السوفي

    ثبات مؤشر الكتابة

    في منتدى الاكسيل Excel

    قام بنشر · تم تعديل بواسطه أبو عبد الملك السوفي

    السلام عليكم

     

    أساتذتنا الكرام كيف اجعل مؤشر الكتابة ثابت في TEXTBOX2 بعد عملية الترحيل اي بعد عملية الترحيل يرجع المؤشر ل TEXTBOX2 

     Sub DOKOL1()
 

Dim lr As Long
Dim dat As Date
dat = UserForm2.TextBox1
cou = Application.WorksheetFunction.CountIfs(range("A2:A100000"), UserForm2.TextBox1, range("b2:b100000"), UserForm2.TextBox2)
If cou = 1 Then
lr = MATCHAlsqr(Sheet2.range("A2:b10000"), dat, 1, UserForm2.TextBox2, 2, 1) + 1
Else
lr = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row + 1
End If
If Sheet2.Cells(lr, 5) <> "" Then Call KOROG11: Exit Sub

Sheet2.Cells(lr, 1) = Format(UserForm2.TextBox1.Value, "yyyy/mm/dd")
Sheet2.Cells(lr, 2) = UserForm2.TextBox2.Value
Sheet2.Cells(lr, 3) = Sheet1.Cells(Application.WorksheetFunction.Match(UserForm2.TextBox2.Value + 0, Sheet1.range("a:a"), 0), 2)
Sheet2.Cells(lr, 4) = UserForm2.TextBox3.Value
Sheet2.Cells(lr, 5) = Format(Now, "hh:mm")
Sheet2.Cells(lr, 9).FormulaR1C1 = "=IF(NOT(OR(COUNTA(RC[-4]:RC[-3])=1,COUNTA(RC[-2]:RC[-1])=1)),IF(RC[-3]<RC[-4],RC[-3]+1-RC[-4],RC[-3]-RC[-4])+IF(RC[-1]<RC[-2],RC[-1]+1-RC[-2],RC[-1]-RC[-2]),"""")"
Sheet2.Cells(lr, 10).FormulaR1C1 = "=VLOOKUP(RC[-8],Sheet1!R2C1:R10000C4,4,0)"
Sheet2.Cells(lr, 11).FormulaR1C1 = "=IF(RC[-2]="""","""",IF((RC[-1]/24)<RC[-2],ABS(RC[-2]-(RC[-1]/24)),ABS(RC[-2]-(RC[-1]/24))))"
Sheet2.Cells(lr, 12).FormulaR1C1 = "=IF(RC[-3]="""","""",IF((RC[-2]/24)<RC[-3],RC[-3]-(RC[-2]/24),(RC[-2]/24)-RC[-3]))"
Sheet2.range(Cells(lr, 9), Cells(lr, 12)).Value = Sheet2.range(Cells(lr, 9), Cells(lr, 12)).Value


UserForm2.TextBox2.Value = ""

Call WindowsMediaPlayer1_OpenStateChange


End Sub

     

    برنامج الحضور والغياب

    في منتدى الاكسيل Excel

    قام بنشر

    السلام عليكم اساتذتنا الكرام

    في موضوع سايق طرحت طلب المساعدة في برنامج البصمة لكن يبدوا ان المطلوب لم يكن واضح رغم لا يعتمد الا على دالة if متعددة الشروط

    وساوضح المطلوب من جديد لدينا

    لدينا ملف به صفحاتان الاولى دخول العمال لادخل رقم البطاقة  في الخلية a3

    فيقوم الكود بالترحيل المجال من a3  الى d3  الى صفحة دخول 1

    اذا كان رقم البطاقة غير مكرر يرحل  المجال من a3  الى d3 في صفحة دخول العمال  الى صفحة دخول 1 الى اخر سطر فارغ .

    اذا وجد الرقم مكرر يرحل فقط الخلية d3 من صفحة دخول العمال الى العمود f في صفحة دخول 1

    هذا الجزء الاول من المطلوب هل اجد مساعده من فضلكم

    برنامج البصمة2.rar

    • Like 1

    برنامج البصمة

    في منتدى الاكسيل Excel

    قام بنشر

    السلام عليكم

     

    أساتذتنا الكرام أرجوا أن أوفق في شرح المطلوب 

    المعطيات

    عند إدخال 13 رقم مثلا 1111111111111 في الخلية A3 من شيت دخول العمال يتم الترحيل مباشرة إلى صفحة تجميع دخول العمال

    المطلوب1:

    عند إدخال الرقم 1111111111111 مرة ثانية في الخلية A3 من شيت دخول العمال أريد من الكود أن يرحل إلى نفس السطر في العمود F  في صفحة تجميع دخول العمال ويأخذها من الخلية D3 في صفحة دخول العمال

     

    Classeur8_2(1).rar

    ربط جهاز البصمة بملف اكسل

    في منتدى الاكسيل Excel

    قام بنشر

    اخواني الافاضل الامر لا يحتاج ملف لرفعه

    والسؤال المطلوب هو.... هل يمكن او هل يوجد كود يستطيع استخراج حركات الموظفين من جهاز البصمة مباشرة دون استخدام برامج اخرى وسيطه .....فنحن نعلم ان جهاز البصمة يخزن الحركات داخله .فهل هناك طريقة لربط الجهاز بالاكسل مباشرة

    ربط جهاز البصمة بملف اكسل

    في منتدى الاكسيل Excel

    قام بنشر · تم تعديل بواسطه أبو عبد الملك السوفي

    السلام عليكم

    اساتذتنا الكرام 

    هل يمكن ربط جهاز البصمة  بالاكسل والتعامل مع جهاز بالصمة مباشرة من الاكسل ....اولي اهمية لهذا المضوع ...فلو تكرمت اساتذتنا لا تبخلو علي بالاجابة

     

    تعديل كود تعديل

    في منتدى الاكسيل Excel

    قام بنشر

    السلام عليكم

    اساتذتنا الكرام  كيف يمكن تعديل هذا الكود للتعرف على الصفحة المراد حفظ  التعديل فيها لان اليوزرفورم الموضوع فيه هذا الكود في يفتح في صفحة أخرى 

    Private Sub CommandButton6_Click()

ActiveCell.Offset(0, 0).Value = TextBox12
ActiveCell.Offset(0, 1).Value = TextBox2
ActiveCell.Offset(0, 2).Value = TextBox3
ActiveCell.Offset(0, 3).Value = TextBox4
ActiveCell.Offset(0, 4).Value = TextBox5
ActiveCell.Offset(0, 5).Value = TextBox6
ActiveCell.Offset(0, 7).Value = TextBox7
ActiveCell.Offset(0, 8).Value = TextBox8
ActiveCell.Offset(0, 9).Value = TextBox9
ActiveCell.Offset(0, 10).Value = TextBox10
ActiveCell.Offset(0, 11).Value = TextBox13
MsgBox "Êã ÊÓÌíá ÇáÊÚÏíáÇÊ"

End Sub

     

    كود طباعة شيت مخفي

    في منتدى الاكسيل Excel

    قام بنشر

    السلام عليكم

    استاذ

    ali mohamed ali

      جزاك الله خيرا

    لكن بقيت هناك مشكلة في الكود فهو غير مستقر بين الحين والاخر يحدث مشكلة في الملف ويتم غلق الاكسل ككل

    فمبدأ عمل الكود انه يظهر الصفحة المراد طباعتها ثم الطباعة ثم اخفاءالصفحة مرة اخرى

    هل هناك كود آخر  يعمل نفس العمل ولا يحدث مشكلة في الملف

×
×
  • اضف...

Important Information

  I accept