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

M.NHAKAMI

02 الأعضاء
  • Content Count

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

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

السمعه بالموقع

2 Neutral

عن العضو M.NHAKAMI

  • الإسم الفعلي
    الإســم

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    معلم

اخر الزوار

بلوك اخر الزوار معطل ولن يظهر للاعضاء

  1. أخ علي انا هدفي من المؤقت انه يكون ثواني وجزء من الثانيه ويكوون العد سريع
  2. عملت موقت زمني ثانيه وجزء من الثانيه ببرمجة حلقات التكرار لكن اريد اضافة ايقاف واستمرار له مؤقت1.xlsm
  3. السلام عليكم عندي الكود التالي يصدر الشيت النشط لمصنف اخر وانا اريد تصدير جميع شيتات المصنف لمصنف اخر ايش التعديل المطلوب ThisWorkbook.ActiveSheet.copy _ before:=Workbooks.Add.Worksheets(1) Worksheets(1).Name = "current balance" & Format(Date, "dd-mm-yyyy") نسخ الشيتات.xlsm
  4. السلام عليكم هذا عداد تنازلي مبرمج في الاكسس اذا تكرمتم اريده يكون نفس العداد تصاعدي بفورم بالاكسل عداد تنازلي.mdb
  5. عملت فورم وعملت له كود تكبير لملئ الشاشه لكن المشكله الفورم يكون ملئ الشاشه والمحتويات ثابته اريد تكبير الفورم مع المحتويات ملئ.xlsm
  6. السلام عليكم ممكن كود تغير لون label الى لون الخلفيه يعني بدون لون اريد وضع label فوق صوره واريد يكون بدون لون المصنف1.xlsm
  7. عندي الكود التالي بالفيجوال 2012 مكتوب اضن لا خطأ فيه والمكتبه نزلتها لكن مايعمل مايستورد لي بيانات الخلايا المحدده ممكن اعرف الخطأ اين Imports Microsoft.Office.Interop Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim xl As New Excel.Application Dim xlw As Excel.Workbook xlw = xl.Workbooks.Open(My.Application.Info.DirectoryPath & "\Test.xls") xlw.Sheets("sheet1").select() TextBox1.Text = xlw.Application.Cells(1, 1).value TextBox2.Text = xlw.Application.Cells(1, 2).value TextBox3.Text = xlw.Application.Cells(1, 3).value xlw.Close() xlw = Nothing xl = Nothing End Sub End Class screen.rar Microsoft.Office.Interop.Excel.rar
  8. هل يوحد طريقه لتصدير بيانات اكسل من شيت محدد الى فورم معد بالفيجوال استديو ٢٠١٠ انا استخدم الخاصيه Datagridview لربط الفيجوال بالاكسل لكن غي هذه الحاله يكون زر استيراد البيانات في فورم الفيجوال انا اريد زر تصدير البيانات في فورم الاكسل باستخدام محرر فيجوال الاكسل بحيث اتحكم في تصدير البيانات من الاكسل فورم الفيجوال يستخدم فقط كداتا شوب لعرض البيانات هل في طريقه لذالك
  9. السلام عليكم اساتذتى الكرام- لا اتوقع ان اجد الحل الا هنا السؤال عندي تصميم بالاكسل فورمات وشيتات هل بالامكان اعمل صفحه بالمفكره تكون html فيها بعض المتغيرات مرتبطه بالاكسل عند تغيير البيانات بالاكسل تتغير بالمفكره الموضوع باختصار انا اريدها كشاشه للجمهور اصمم الصفحه كما اريد وفيها بعض المتغيرات تتغير من تغير البيانات بالاكسل عمل ربط للاكسل مع البوربوينت لكن اتوقع انه لو يوجد طريقه للربط مع html يكون ذا مفعوليه افضل
  10. السلام عليكم يا يا اخواان عندي الكود التالي هل ممكن استطيع مسميات الازرار في msgbox تظهر عندي بالعربي ( نعم , لا , الغاء الامر ) اريد تغيرها الى (ارسال , استبدال, مسح) If Sheets("diff").Range("a23") = 1 Then x = MsgBox("يوجد بيانات فرسان سابقين هل تود ترحيل الفرسان التاليين ", vbYesNoCancel + vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading, "تنبيه") If x = vbYes Then MsgBox "تم الارسال" ElseIf x = vbNo Then MsgBox "تم الاستبدال" ElseIf x = vbCancel Then MsgBox "تم المسح" End If Else MsgBox "" End If
  11. شكرا لك الكود يعمل بشكل جيد جدا
  12. السلام عليكم عندي الكود التالي للطباعه ' بداية كود الطباعة If Sheets("print").Range("a15").Value = 1 Then Dim ID As String Sheets("الأسماء").Visible = False Sheets("print").Visible = True ID = Sheets("print").Range("E1").Text & " " & Sheets("print").Range("B7").Text & " " & Sheets("print").Range("B8").Text & " " & Sheets("print").Range("B9").Text ActiveSheet.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:="C:\m2020\" + ID + ".Pdf", _ IgnorePrintAreas:=False, _ Openafterpublish:=False Else MsgBox "لا توجد بيانات لطباعتها" End If Application.Visible = False End Sub الكود في مشكله انا جاعل المسار مجلد M2020 ينشئه المستخدم في C وبالتعليمات كاتب للمستخدم اذا اراد الطباعه بنشئ هذا المجلد اولا المشكله اذا تم الضغط ولم ينشئ المجلد الاكسل يحدث خطأ ويغلق البرنامج اتمنى لو فيه طريقه تحسن الكود بانه اذا لم يجد المسار مايخرج من البرنامج بل ينبه المستخدم بان المسار غير موجود او تكون الطباعه في سطح المكتب بشرط انه يكون متوافق مع اي جهاز حيث ان مسار سءح المكتب يختلف من جهاز لجهاز الطلب الثاني كود نسخ مبين داخل بالبرنامج تصحيح اكواد.xlsm
  13. السلام عليكم عملت تطبيق بالاكسل كبير نوعا ما وانتهيت من اكواده وابياناته واريد ان ارفعه للنشر وعملت من اجل حمايته حماية الشيتات برقم وحماية المصنف واكواد الدخول عالفورم مباشره بمجرد فتح الملف واكواد اخفاء الشيتات بمجرد تنشيط الفورمات وعملت اكواد تعطيل زر x في الفورم واستبدلته بازرار لاغلاق الفورم مع الاكسل كامل سؤالي هل يوجد طريقه لتحويل الاكسيل لتطبيق exe او لحمايته باكثر مما عملت او طريقه لمنع المستخدم من الدخول على محرر الفيجوال لتعديل الاكواد يعني اريد استخدام البرنامج دون التعديل عليه
×
×
  • اضف...