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

عبدالله باقشير

المشرفين السابقين
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    4796

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

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

  • Days Won

    57

 نوع المحتوي 

كل منشورات العضو عبدالله باقشير

  1. عبدالله باقشير
    وعليكم السلام ورحمة الله وبركاته جزاك الله خيرا واثابك بدعائك واعطاك بمثله اضعاف مضاعفة تقبل تحياتي وشكري
  2. عبدالله باقشير
    الكود عملته لاكسل 2003 الامتداد xls فانا اعمل عليه بشكل دائم
  3. عبدالله باقشير
    السلام عليكم تفضل الكود: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim s As Long Dim R As Long Dim Last As Long, LastRow As Long On Error GoTo 1 R = Target.Row If R >= 7 And Target.Column = 4 Then LastRow = Range("d" & Rows.Count).End(xlUp).Row If Not Application.Intersect(Target, Range("d7", Cells(LastRow, "d"))) Is Nothing Then Cancel = True Last = Range("j" & Rows.Count).End(xlUp).Row + 1 Range("j" & Last).Resize(1, 6).Value = Range("b" & R).Resize(1, 6).Value ''''''''''''''''''''''''''' 'اذا اردت حذف الصف المنقول Range("b" & R).Resize(1, 6).Delete xlUp ''''''''''''''''''''''''''''' End If End If 1: End Sub
  4. عبدالله باقشير
    السلام عليكم في الفورم 2 كود الترحيل حسب طلبك هذا استبد الكود هذا للزر: Private Sub CommandButton1_Click() Dim x As String Dim i As Integer, ii As Integer ii = Me.ListBox1.ListCount - 1 For i = 0 To ii x = x & CStr(Me.ListBox1.List(i)) & IIf(i = ii, "", Chr(10)) Next i With Sheets("DB") Endrow = .Range("A1").CurrentRegion.Rows.Count .Cells(Endrow + 1, 1).Value = Endrow .Cells(Endrow + 1, 2).Value = TextBox1.Value .Cells(Endrow + 1, 3).Value = TextBox2.Value .Cells(Endrow + 1, 4).Value = TextBox3.Value .Cells(Endrow + 1, 5).Value = x End With End Sub في امان الله
  5. عبدالله باقشير
    استخدم هذا السطر بداية الكود On Error Resume Next لتمرير هذا الخطا
  6. عبدالله باقشير
    السلام عليكم حسب ما فهمت ActiveCell.Value = Val(ActiveCell) * 0.07
  7. عبدالله باقشير
    اخي واستاذنا الكبير الغالي " عبد الله باقشير " لقد عبر اخونا سعد بما يجول بخاطري نشكرك ... دائما نستفيد من هذه الابداعات " وخاصة نحن المحاسبون " وفقك الله .... ابو الحارث وعليكم السلام ورحمة الله وبركاته جزاك الله خيرا واثابك بدعائك واعطاك بمثله اضعاف مضاعفة تقبل تحياتي وشكري
  8. عبدالله باقشير
    وعليكم السلام ورحمة الله وبركاته جزاك الله خيرا واثابك بدعائك واعطاك بمثله اضعاف مضاعفة ================================ رغم ان هذا السؤال ليس من اصل الموضوع ساجيبك باختصار -------------------------------------------------------- لا يهم عدد العملات المستخدمة ما دمت لديك عمود في البيانات لسعر العملة لان سعر العملة مضروبا في المبلغ المستخدم باي عملة يعطيك القيمة بسعر العملة الرئيسية وينضبط معاك ميزان المراجعة . ================================ تقبل تحياتي وشكري
  9. عبدالله باقشير
    وعليكم السلام ورحمة الله وبركاته جزاك الله خيرا واثابك بدعائك واعطاك بمثله اضعاف مضاعفة تقبل تحياتي وشكري
  10. عبدالله باقشير
    تقبل تحياتي وشكري
  11. عبدالله باقشير
    وعليكم السلام ورحمة الله وبركاته جزاك الله خيرا واثابك بدعائك واعطاك بمثله اضعاف مضاعفة تقبل تحياتي وشكري
  12. عبدالله باقشير
    وعليكم السلام ورحمة الله وبركاته جزاك الله خيرا واثابك بدعائك واعطاك بمثله اضعاف مضاعفة تقبل تحياتي وشكري
  13. عبدالله باقشير

    Version الاصدار الاول

    1423 تنزيل

    السلام عليكم اداة لتصوير وحفظ صورة من الشاشة مع اضافة شرح في مربع النص الظاهر معاك في الشاشة الاستخدام: شرح مدعوم بالصور معمولة بالفيجول بيسك متطلبات النظام: ويندوز اكس بي
  14. عبدالله باقشير
    السلام عليكم في كل الاوراق ليس بسبب الكود السبب المعادلات يجب ان تكون مرتبة النتائج في امان الله
  15. عبدالله باقشير
    السلام عليكم هذا شرح مبسط للموضوع معاك معادلات في ورقة معينة لجدول فرضا تبدا من الصف 5 وتنتهي بالصف 1000 متجاورة او غير متجاورة على الصف تنسخ هذه المعادلات وتضعها على صف في بداية الورقة مثلا 2 وتقوم باخفاء هذا الصف عمل الكود يتلخص في الاتي: يقوم بتشغيل هذه المعادلات في الصفوف التي عينتها في الكود ويبقي قيمتها فقط . وممكن تكرر هذا الاجراء على اي اوراق تريدها ويشغلها الكود دفعة واحده لكل الاوراق التي عينتها في الكود مثال kh_cFormula Range("ورقة1!$D$2:$G$2"), 5, 1000 Sub kh_cFormula(MyRng As Range, iRow As Integer, Lastrow As Long) ' MyRng : الصف المخفي الذي يحوي المعادلات ملحوق باسم الورقة ' iRow : اول صف للبيانات ' Lastrow : آخر صف للبيانات ارجوا ان يكون الشرح واضح موجود في المرفق في المشاركة 1 تطبيق الكود في امان الله
  16. عبدالله باقشير
    السلام عليكم اخي الفاضل ابو ياسر ------حفظكم الله نجح التصدير استخدمت الكود ادناه: ''''''''''''''''''''''''''''''''' Adr = Range(AdrRng).Offset(-1, 0).Resize(Last, ContColmn).Address(0, 0) Adr = ActiveSheet.Name & "$" & Adr Adr = ".[" & Adr & "]" ''''''''''''''''''''''''''''''''' scn = "[Excel 8.0;HDR=YES;DATABASE=" & ActiveWorkbook.FullName & "]" strSQL = "INSERT INTO kh " _ & "SELECT * FROM " & scn & Adr ''''''''''''''''''''''''''''''''' CN.Execute strSQL ''''''''''''''''''''''''''''''''' في الملف المرفق استيراد وتصدير من والى الاكسس لاكثر من 15000 سجل رابط التحميل:
  17. عبدالله باقشير
    السلام عليكم اخي الفاضل ابو ياسر ------حفظكم الله جاري التعلم وسارد عليكم جزاكم الله خيرا تقبل تحياتي وشكري
  18. عبدالله باقشير
    السلام عليكم هل بالامكان اضافة مجموعة سجلات دفعة واحدة بامر واحد مثل كود الحذف وليس بالدوارة ؟؟؟؟ منتظركم في امان الله
  19. عبدالله باقشير
    السلام عليكم اخي الفاضل ابو خليل ---------حفظكم الله كودكم قد نحتاجه في شي آخر جزاك الله خيرا اخي الفاضل ابو لميس ----------------حفظكم الله وصلت المعلومة جزاك الله خيرا تقلوا تحياتي وشكري
  20. عبدالله باقشير
    جرب المرفق فيه ملفين للفتح 2003-2007 فتح.rar
  21. عبدالله باقشير
    انت تفتح ملف الاكسل باي اصدار ؟ ملف فتح اصدار 2003
  22. عبدالله باقشير
    السلام عليكم اهلا وسهلا بيك بين اخوانك هل تقوم بضغط الملف قبل رفعه ؟ اذا كانت الاجابة لا قم بضغط الملف ثم قم برفعه
  23. عبدالله باقشير
    اذا كنت تريد النتيجة على خلية معينة في الشيت Sub kh_SumCellColor() Dim Cel As Range Dim v As Double ''''''''''''''''''''''''' For Each Cel In Range("b4:c20") If Cel.Interior.ColorIndex <> xlNone Then v = v + Val(Cel) End If Next ''''''''''''''''''''''''' Range("E2").Value = v End Sub
  24. عبدالله باقشير
    السلام عليكم اربط الكود هذا بزر Sub kh_SumCellColor() Dim Cel As Range Dim v As Double ''''''''''''''''''''''''' For Each Cel In Range("b4:c20") If Cel.Interior.ColorIndex <> xlNone Then v = v + Val(Cel) End If Next ''''''''''''''''''''''''' MsgBox v End Sub
  25. عبدالله باقشير
    جزاك الله خيرا واثابك بدعائك واعطاك بمثله اضعاف مضاعفة تقبل تحياتي وشكري
×
×
  • اضف...

Important Information

  I accept