حسونة حسين

تم اضافه الملف المرفق في المشاركه الاولى عن طريق الرابط في هذه المشاركه لانه هو الملف الوحيد الذي به البرنامج كامل ملفين وليس ملف واحد فقط

الملف يعمل على ويندوز ١٠ سواء اوفيس ٢٠١٠ او اوفيس ٢٠٢١ انا جربت لك علي ويندوز ٧ ٦٤ بت اوفيس ٢٠١٠ ظهر الخطأ الذي تتحدث عنه ان شاء الله غدا هجرب لك على ويندوز ٧ اوفيس ٢٠١٦

اخى @فوزى فوزى ما هو نوع الويندوز ما هو نوع الاوفيس وهل الاوفيس ٣٢ بت ام ٦٤ بت

عند وضع الفولدر temp وبه الملف names في ال c الطبيعي ان الملف يفتح معك عادى مثل اي ملف اكسل معني انه تظهر لك هذه الصورة انك لم تضع الفولدر وبه الملف في الC ضع صورة لملف names وهو في الC

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

هذا الموضوع الاصلي للبرنامج للاستفاده من طريقه عمل البرنامج هنا

وعليكم السلام ورحمة الله وبركاته ضع الفولدر المسمي temp في بارتشن c وسوف يعمل معك الملف

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

وعليكم السلام ورحمة الله وبركاته هذا الكود كله يوضع في ال userform

اللهم اغفر له واعف عنه واكرم نزله ووسع مدخله واغسله بالماء والثلج والبرد ونقيه من الخطايا كما ينقى الثوب الابيض من الدنس اللهم ان كان محسنا فزد في احسانه وتجاوز عن سيئات اللهم آنس وحشته اللهم اجعل قبره روضة من رياض الجن اللهم ان عبدك الان بين يديك اللهم جازيه بالاحسان احسانا وبالسيئات عفوا ومغفرة ورضوانا اللهم ابدله دارا خيرا من داره واهلا خيرا من اهله اللهم اسكنه الفردوس الاعلى من الجنة

وعليكم السلام ورحمة الله وبركاته يمكنك الاستفادة من هذا الموضوع

وعليكم السلام ورحمة الله وبركاته يمكنك ذلك عن طريق خاصيه EnterFieldBehavior تحتاج فقط إلى ضبطها على fmEnterFieldBehaviorSelectAll هذه هي القيمة الافتراضية لهذه الخاصية ، لذا لن تحتاج إلى فعل أي شيء ما لم تقم بتغيير قيمة الخاصية بمجرد الضغط على الزر tab في الكيبورد كما يمكنك الاستفادة من هذا الموضوع ويمكنك ايضا عن طريق هذا الكود Dim boolEnter As Boolean Private Sub TextBox1_Enter() boolEnter = True End Sub Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, _ ByVal X As Single, ByVal Y As Single) If boolEnter = True Then With TextBox1 .SelStart = 0 .SelLength = Len(.Text) End With boolEnter = False End If End Sub

السلام عليكم ورحمة الله وبركاته المشكله ليست في الملف المشكله في لغه الجهاز حل مشكله اللغه العربيه

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

اخى الكريم @احمد غانم ارفق ملف ليري الاخوة اين المشكله في جهازك ام في الملف

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

وعليكم السلام ورحمة الله وبركاته يمكنك الاستفادة من هذا الموضوع

وعليكم السلام ورحمة الله وبركاته جرب هذا التعديل Private Sub CommandButton9_Click() ActiveSheet.Range("A1:M29").ExportAsFixedFormat Type:=xlTypePDF,Filename:="D:\تقارير قسم الحركة\" & range("C6") & ".pdf"

وعليكم السلام ورحمة الله وبركاته يمكن ذلك عن طريق اتباع الخطوات التالية: حدد الخلية التي تريد إدراج ملفك فيها انقر فوق علامة التبويب "إدراج" انقر فوق "كائن" ضمن مجموعة "نص" حدد "إنشاء من ملف" تصفح ملفك حدد خانة الاختيار "عرض كرمز" إذا كنت تريد إدراج رمز يرتبط بالملفات انقر فوق "موافق" ويمكنك الاستفاده من هذا الرابط https://www.rowshare.com/blog/tips/how-to-insert-attachments-in-excel/

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

بارك الله فيك استاذ ضاحى جعله الله في ميزان حسناتك يوم القيامه

السلام عليكم ورحمة الله وبركاته تصميم جميل وفقك الله لما يحبه ويرضاه

بارك الله فيكم اخوانى واساتذتى جميعا وفقنا الله جميعا واياكم لما يحبه ويرضي

وعليكم السلام ورحمه الله وبركاته بارك الله فيك اخى AbuuAhmed بارك الله فيك اخى ابويوسف محمد حسن المحمد بارك الله فيك اخى المشرفي بارك الله فيك اخى ابراهيم الحداد بارك الله فيكم اخوانى واساتذتى جميعا واسأل الله تعالى أن يجعلنا جميعا في خدمة العلم النافع ، وأن يجعله بميزان حسناتنا جميعاً يوم القيامة آمين يارب العالمين

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