zine pef

<up>

شكرا أخي كمال على الرد لكن اتبعت نفس ما قلت و لكن خرجت نفس الصورة الثانية mémoire insufissante نا هو العمل و شكرا

السلام عليكم صدفتني مشكلة و لم اقدر عن حلها..ارجوا المساعدة و هي عند فتح ملف إكسال تظهر لي النافدتين و لكم الشكر الجزيل و المشكلة في الصور http://img683.imageshack.us/img683/8674/exc1.jpg http://img683.imageshack.us/img683/4638/exc2.jpg

شكرا اخي ملف رائع بعد التفكير تنسلى شكرا

اخي سالم مشكور على الفكرة لو سمحت اضافة سؤال للموضوع في حالة طباعة نصف الورقة على شكل A5 ممكن ان سمحت الطريقة و شكرا

بركة الله فيكم لغة البرمجة لغة واسعة تحتاج الى مبدعين وفقكم الله

شكرا اخي يوسف على الملاحظة لا تترك صغيرة او كبيرة تمر بدون التأكد عليها هدو هم الرجال بركة الله فيك

السلام عليكم شوف اخي هدا الكود و جربه Sub Archive() Dim chemin As String Dim nom As String chemin = "C:\" '<===== مكان الحفظ nom = "zine") & ".xls" ActiveWorkbook.SaveCopyAs chemin & nom MsgBox "الملف مسجل تحت اسم: " & nom & vbNewLine & "مسار الملف: " & chemin End Sub

ملف رائع اخي شكرا لك

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

الله يكون في عونك اخي سالم ملاحظة اصحاب الأبتدائي اعفية من الحراسة او في منطقتكم ما زالوا؟ عندنا منذ سانتين

شكرا على الفكرة اخي ســــــــــــــــالم افكار اساتذة و ليس تلميذ وفقك الله

السلام عليكم اخواني لطب الأخ يوسف عطا((لازلت بعد عدة محاولات لا أعرف طريقة وضع الكود فى الملف)) سوف اوضع شرح مبسط لهذه الفكرة بعد إذن***(( الأستاذ: ابو هاجر جزاه الله))*** 1) في الصفحة الأولة للحساب( اضغط على المفتاحين معا Alt+F11 تفتح لك صفحة محرر فيجوال بزيك 2) تختار الشكل رقم 1 userform 3)نأخذ زر كما في الصورة و بالسحب نوضعه في الفورم 4) بعد الضغط على الزر مرتين تظهر محرر الفيجوال بزيك 5) نكتب بين السطرين msgbox"اهلا و سهلا بيك" و اخيرا اضغط على مفتاح F5

مجهود كبير يا استاذ أبو هاجر(واصل) معاك حق اخي justice لبد وضع الكود في الأطار الخاص بيه لكن يلزم نقدر ثعب الأستاذ معدرى اخي ابو هاجر الكود بالطريقة الصحيحة Private Sub GuessAge() Dim userGuess As Integer Dim age As Integer age = 25 userGuess = Val(InputBox(“Guess a number between 20 and 30.”, “Guess Age”)) If (userGuess > age) Then MsgBox (“Too high!”) MsgBox (“The answer is “ & age) End If If (userGuess < age) Then MsgBox (“Too low!”) MsgBox (“The answer is “ & age) End If If (userGuess = age) Then MsgBox (“You got it!”) End Sub

السلام عليكم عمل رائع و ممتاز بالتوفيق يا ريت كان بالفورم.......

شكرا اخي علي بكل حرف حسنة بركة الله فيك

شكرا أخي على البرنامجين رائع واصل جزاك الله كل الخير

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

السلام علكم اتمنى ان يكون كل الأخوى بخير و على خير لاحظت ان الموضوع حلو و فيه تفاعل كثير فكرت اضافة فكرة اخرى و ارجوا ان تعجبكم كيفية استخراج السنة المطلوبة و طباعتها ...بالفجوال بزيك _____.rar

قم بالبحث عن برنامج convert xl to exe

فيك بركة اخي (أستيكا) و هذا من فضل ربي نتعلم و نعلم شكرا على المرور

الملف واضح و هو بيشرح نفسه يا اخي شوف العنوان

شكرا على البرنامج اخي سالم برنامج مفيد 100/100

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