أحمد بكر

https://youtu.be/X_hkw8MsiR4

رابط التحميل من هنا

تأكد من امتداد ملفات الاكسيل كما فى الصورة

'My Computer'. Browse 'Tools >> Folder Options >> File Types'

او جرب هذا البرنامج من هنا

2 ساعات مضت, اسد السنة said:

شكرا لك اخي احمد بكر وجميع الاعضاء لتجاوبهم

انا استخدم اوفيس 2010 ويبدو فيه اختلاف والتحديد يبقى بعد ترحيل بالبيانات فهل له حل ايضا 

اين المشكلة بالملف المرفق

aa.rar

المشكلة ليست فى الاصدار

الكود عبارة عن نسخ البيانات من Sheet1   اللى هو ادخال البيانات 

الى Sheet2 الى هو الفواتير 

الخطأ فى تسمية الشيت اضغط هنا لرؤية صورة توضيحية

لعدم تظليل الخلايا بعد الترحيل زود هذة الجزئية  ( بعد التنفيذ يقف في خلية E3 ويمسح ما بها وينتقل الى E4 )

 Range("E3").Select
    Selection.ClearContents
    Range("E4").Select

في 11/10/2012 at 12:02, althaer said:

بارك الله فيك أخى الكريم

إذا أردت عدم مسح البيانات و أردت إبقائها ؟ و ماذا لو أردت توسيع نطاق الترحيل ؟

عذرا" للسؤال فهو من مبتدىء

لعد م مسح البيانات احذف هذا الجزء من الكود 

Sheet1.Range("A3:C3") = ""

لتوسيع النطاق غير عمود C  الي اى عمود تريدة لزيادة عرض النطاق  ولطول النطاق هنا 50000 ممكن تزوده برده

azsh = Sheet2.Range("c50000").End(xlUp).Row + 1

9 ساعات مضت, اسد السنة said:

ياليت ترفع الشرح لان الرابط لا يعمل

يمكن عمل الكود بالطريقتين بموديل او بدون موديل 

لو بدون موديل 

ممكن تحط الكود داخل الزر  من المطور ,, ادراج ,,  زر   نوعه  activeXcontrol

دبل كليك على الزر وانت فى وضع المصمم 

مرفق الملف يعمل بدون موديل 

tr7eel.rar

 

 

 

 

 

افكار رائعه ولكن انا عايز اطوع الملف ده عشان يناسب العمل عندي

فمثلا الشاشه

اللي فيها الكود وارقام الموبايل والاسم عربي/انجليزي وغيرهم

الهيد ده بتاع البيلنات عايز اغيرهم لاني هستعمل الملف ده في تسجيل جوازات مسافرين في شركه سياحه كل بيانات الجواز يعني مع امكانيه البحث والتعديل والالغاء وطبع سيكتور معين

كنت فعلا بدور علي فكره زي اللي في الملف ده

ولكن ما اريده حاليا اني اعدل عليه

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

 

واى تعديل انا فى الخدمة 

 

 

 

 

الاستاذ احمد بكر

ماشاء الله عمل رائع وجزاك الله خيرا

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

 

شكرا لك 

نعم يمكن 

انظر المرفقات فى هذة المشاركة تمت الاضافة

emp_2.rar

اخى الفاضل

بعد نظرة على السريع

عمل جميل ما شاء الله عليه

تحياتى

ارجو مراجعة ملف البحث اعتقد انه لا يعطى نتائج

لو تقصد البحث برقم الموظف يعمل وتم التجربة مرة اخرى

ولو تقصد البحث فى التقارير (لابد من تسجيل تاريخ انتهاء الاقامة لان البحث بيتم بين التاريخين معتمد على تاريخ انتهاء الاقامة ) يعنى تاريخ انتهاء الاقامة لازم يكون بين التاريخين المحددين ليظهر بالنتائج

ممكن تعدل على الملف وتخلية تاريخ بدء العمل او ما شابة 

او تعدل على الفورم وتلغى بين تاريخين وتخلية بحث بناءا على المدخلات فقط 

وفورم البحث  من انجازات الاستاذعبد الله باقشير

 

 

متابعة شئون الموظفين

 

.---------------------------------------------------------------------------------------------------------------------------------------------------------------------.

-ادراج وحفظ وتعديل بيانات الموظفين وارقام الاقامات والجواز .

-امكانية البحث عن الموظف برقم الكمبيوتر الخاص بة .

-امكانية عمل كشف بالاقامات التى ستنتهى من تاريخ الى تاريخ - الكشف يظهر فى درايفر c .

-امكانية ادراج صورة الموظف (توضع الصورة بنفس رقم الكمبيوتر الخاص بالموظف ) .

وفى النهاية جميع الاكواد المستخدمة هى بالكامل من منتدى اوفسينا كتابها اعضاء ومشرفين  وانا فقط استخدمتها.

.---------------------------------------------------------------------------------------------------------------------------------------------------------------------.

 

تحديث جديد من هنا 

برنامج شئون الموظفين

يعمل بالتاريخين الهجرى والميلادى.

امكانية البحث برقم الموظف .

امكانية ربط الموظف بصورة الموظف من اى مكان من الحاسب (وليس وضع الصور بجانب الملف كما كان مسبقا).

امكانية حذف موظف او تعديل بيانات الموظف .

اصدار تقارير عن موظف واحد بطباعة بياناته فى صفحة مستقلة.

امكانية تصدير التقارير لملف اكسيل جديد باسم جديد.

البحث بين تاريخين .

امكانية طباعة عدد من الموظفين سواء (اسم الموظف - الراتب - الاقامات - الادارة التابع لها - او اى بيانات مدخلة ).

التحكم فى تغيير اسم الشركة .

نافذة امان قبل الدخول للبرنامج بكلمة مرور يمكن اظهار النافذة او اغلقها.

امكانية التحكم فى اعدادات  المظهر (خلفية البرنامج - لون الخط ).

للاطلاع عن المزيد من الصور والشرح للبرنامج من هنا 

او الاطلاع على دليل المستخدم من البرنامج

شكر خاص للأستاذ/ عبد الله باقشير حيث استخدمت الكثير من اكواده الاكثر من رائعه  وكذلك باقى الاعضاء الاخرين 

ملاحظة : باسورد نافذة الامان الافتراضى 12345

           باسورد vba وقاعدة البيانات وفتح الملف 12345

           لابد من تمكين الماكرو ليعمل الملف

فى النهاية نسألكم الدعاء بظهر الغيب 

emp.rar

الملف مرة تانية بالمرفقات 

ودا الكود المتسخدم بالشرح

On Error Resume Next
If Range("a3") = "" Or Range("b3") = "" Or Range("c3") = "" Then
MsgBox "bla bla1", vbDefaultButton1, "bla bla1 "
Else

azsh = Sheet2.Range("c50000").End(xlUp).Row + 1
Sheet1.Range("A3:C3").Copy
Sheet2.Cells(azsh, 1).PasteSpecial Paste:=xlPasteValues
MsgBox "bla bla2", vbDefaultButton1, "bla bla2 "
Sheet1.Range("A3:C3") = ""
End If

كود ترحيل البيانات- أوفيسنا.rar

مرفق الحل

ويمكن تعديل saudi riyal و halala 

Function SpellNumber(ByVal MyNumber, _
                  Optional pbNum As Boolean = True, _
                  Optional ptCur As String = "saudi riyal", _
                  Optional ptDec As String = "halala", _
                  Optional ptPlu As String = "")

Dim Curr, Decm, Temp
Dim DecimalPlace, Count
Dim vtPHolder As String

    ReDim Place(9) As String
    Place(2) = " Thousand "
    Place(3) = " Million "
    Place(4) = " Billion "
    Place(5) = " Trillion "

    '' String representation of amount
    MyNumber = Trim(Str(MyNumber))
 
    '' Position of decimal place 0 if none
    DecimalPlace = InStr(MyNumber, ".")
    '' Convert decimal part, and set MyNumber to currency amount
    If DecimalPlace > 0 Then
        vtPHolder = Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2)
        If pbNum = True Then
            Decm = GetTens(vtPHolder)
        Else
            Decm = vtPHolder
        End If
        MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
    End If
 
    Count = 1
    Do While MyNumber <> ""
       Temp = GetHundreds(Right(MyNumber, 3))
       If Temp <> "" Then Curr = Temp & Place(Count) & Curr
          If Len(MyNumber) > 3 Then
             MyNumber = Left(MyNumber, Len(MyNumber) - 3)
        Else
            MyNumber = ""
        End If
        Count = Count + 1
    Loop
 
    Select Case Curr
        Case ""
            Curr = "No " & ptCur & ""
        Case "One"
            Curr = "One " & ptCur
        Case Else
            Curr = Curr & " " & ptCur & ""
    End Select
 
    Select Case Decm
        Case ""
            Decm = " No " & ptDec & ptPlu
        Case "One", "01"
            Decm = " and " & Decm & " " & ptDec
        Case Else
            Decm = " and " & Decm & " " & ptDec & ptPlu
    End Select
 
    SpellNumber = Curr & Decm
End Function
 
'*******************************************
' Converts a number from 100-999 into text *
'*******************************************
Function GetHundreds(ByVal MyNumber)
    Dim Result As String
 
    If Val(MyNumber) = 0 Then Exit Function
    MyNumber = Right("000" & MyNumber, 3)
 
    'Convert the hundreds place
    If Mid(MyNumber, 1, 1) <> "0" Then
        Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
    End If
 
    'Convert the tens and ones place
    If Mid(MyNumber, 2, 1) <> "0" Then
        Result = Result & GetTens(Mid(MyNumber, 2))
    Else
        Result = Result & GetDigit(Mid(MyNumber, 3))
    End If
 
    GetHundreds = Result
End Function
 
'*********************************************
' Converts a number from 10 to 99 into text. *
'*********************************************
Function GetTens(TensText)
    Dim Result As String

    Result = ""                                         'null out the temporary function value
    If Val(Left(TensText, 1)) = 1 Then                  'If value between 10-19
        Select Case Val(TensText)
            Case 10: Result = "Ten"
            Case 11: Result = "Eleven"
            Case 12: Result = "Twelve"
            Case 13: Result = "Thirteen"
            Case 14: Result = "Fourteen"
            Case 15: Result = "Fifteen"
            Case 16: Result = "Sixteen"
            Case 17: Result = "Seventeen"
            Case 18: Result = "Eighteen"
            Case 19: Result = "Nineteen"
            Case Else
        End Select
      Else                                              'If value between 20-99
        Select Case Val(Left(TensText, 1))
            Case 2: Result = "Twenty "
            Case 3: Result = "Thirty "
            Case 4: Result = "Forty "
            Case 5: Result = "Fifty "
            Case 6: Result = "Sixty "
            Case 7: Result = "Seventy "
            Case 8: Result = "Eighty "
            Case 9: Result = "Ninety "
            Case Else
        End Select
         Result = Result & GetDigit(Right(TensText, 1)) 'Retrieve ones place
      End If
      GetTens = Result
End Function
 
'*******************************************
' Converts a number from 1 to 9 into text. *
'*******************************************
Function GetDigit(Digit)
    Select Case Val(Digit)
        Case 1: GetDigit = "One"
        Case 2: GetDigit = "Two"
        Case 3: GetDigit = "Three"
        Case 4: GetDigit = "Four"
        Case 5: GetDigit = "Five"
        Case 6: GetDigit = "Six"
        Case 7: GetDigit = "Seven"
        Case 8: GetDigit = "Eight"
        Case 9: GetDigit = "Nine"
        Case Else: GetDigit = ""
    End Select
End Function

تفقيط انجليزي.rar

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

رحم الله والدك وأدخلة فسيح جناته

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

ملف تجريبي ينتهى عند تاريخ معين مع طلب ترخيص

كود التفعيل عبارة عن رقم المسلسل مضروب فى 3 يطرح منة 6789 ويمكن تغيير المعادلة من Sheet1 خلية B2

باسورد قاعد البيانات 12345

reg.rar

جرب FoxitReader

تاريخ المشاركة اليوم, 12:44 م

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

تم التعديل

مساعدة.rar

كلك يمين على جهاز الكمبيوتر على سطح المكتب تظهر

كما يلي properties

اختار

advanced

اختار

environmant variabels

ثم

انشا جديد تحت عنوان

system varabiles

انشاء جديد

REPORTS_ARABIC_NUMERAL

وقيمته

HINDI

بالتوفيق

ممكن تستخدم جوجل(Google Drive) صمم فورم من هنا

ودا شرح

أقدم لكم كود لتصدير شيت أكسيل من ملف أكسيل

تمت التجربة على اصدارات 2003-2007-2010-2013

الملف مرفق

2003 اصدار.zip

2013-2010-2007 اصدارات.zip

جرب المرفق

تم دمج جميع الفورم فى فورم اللى هي userform1000

الان يمكن اضافة  تعديل بحث كلة من userform1000

اضافة مشترك جديد من اضافة  ادخال البيانات ثم تم التحديث

دفع اى شهر عن طريق  البحث    ثم   تعديل ثم تم التعديل

المرفقات لم تظهر فى المشاركة الاولى جرب  من هنا

جرب المرفق

تم دمج جميع الفورم فى فورم اللى هي userform1000

الان يمكن اضافة  تعديل بحث كلة من userform1000

اضافة مشترك جديد من اضافة  ادخال البيانات ثم تم التحديث

دفع اى شهر عن طريق  البحث    ثم   تعديل ثم تم التعديل

 

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

يوجد لدي قائمة باسماء الموظفيين ( الرقم الظيفي - الاسم - الجنسية - المهنة على الاقامة - المهنة الحالية - تاريخ المباشرة - رقم الاقامة - تاريخ الانتهاء - الخ .. ) طبعا ً القائمة تحتوي على سجلات اكثر من 5000 الف موظف .

 

المطلوب :-

اود معرفة كبفبة التعبئة التلقائية في الاكسل على سبيل المثال تم عمل واجهة على الاكسل تحتوي على  ( الرقم الظيفي - الاسم - الجنسية - المهنة على الاقامة - المهنة الحالية - تاريخ المباشرة - رقم الاقامة - تريخ الانتهاء - الخ .. ) اريد اثناء ادخال رقم الموظف يقوم الاكسل بتعبئة الحقول بشكل تلقائي الاسم - المهنة الخ...

 

وجزاكم الله خيراً

 

القى نظرة على هذا الموضوع  متابعة شئون الموظفين من الممكن يفيدك

متابعة شئون الموظفين

.---------------------------------------------------------------------------------------------------------------------------------------------------------------------.

-ادراج وحفظ وتعديل بيانات الموظفين وارقام الاقامات والجواز .

-امكانية البحث عن الموظف برقم الكمبيوتر الخاص بة .

-امكانية عمل كشف بالاقامات التى ستنتهى من تاريخ الى تاريخ - الكشف يظهر فى درايفر c .

-امكانية ادراج صورة الموظف (توضع الصورة بنفس رقم الكمبيوتر الخاص بالموظف ) .

وفى النهاية جميع الاكواد المستخدمة هى بالكامل من منتدى اوفسينا كتابها اعضاء ومشرفين  وانا فقط استخدمتها.

.---------------------------------------------------------------------------------------------------------------------------------------------------------------------.

شئون الموظفين.rar

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

مساعدة:رسالة تنبية قبل تاريخ معين تظهر فى فورم

الملف مرفوع على الميديا فاير لتخطيه الحج الاقصى للمرفقات

http://www.mediafire.com/?dvza3ci8q8d4v53

شكرا لك

الحماية غير مقصودة وتم تعديل المشاركة