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

omhamzh

03 عضو مميز
  • Posts

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

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

كل منشورات العضو omhamzh

  1. احتاج تغير حدث الكود من تحريك الماوس الى عند حدوث تغير او بمجرد الكتابة Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) TextBox26.Value = Val(TextBox2) + Val(TextBox3) + Val(TextBox4) + Val(TextBox5) + Val(TextBox6) + Val(TextBox7) + Val(TextBox8) + Val(TextBox9) + Val(TextBox10) + Val(TextBox12) + Val(TextBox12) - Val(TextBox13) - Val(TextBox14) - Val(TextBox15) - Val(TextBox16) - Val(TextBox17) - Val(TextBox18) - Val(TextBox19) - Val(TextBox20) - Val(TextBox21) - Val(TextBox22) End Sub لان الكود يعمل عند تحريك الماوس فقط بارك الله فيكم
  2. وجدت الكود لتغير الليبل اخواتى الاساتذة وها هو للافادة للاخوة من تصميم الاستاذ ياسر خليل ابو البراء Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Intersect(Range("A4:V4"), Target) Is Nothing Then Exit Sub Else UserForm1.Label5.Caption = Range("A4").Value UserForm1.Label6.Caption = Range("b4").Value End If On Error GoTo 0 End Sub وبورقة العمل Private Sub UserForm_Initialize() Label5.Caption = Range("A4").Value و كود كود ل TextBox26 لكى تظهر ناتج طرح التكست بوكس من A:L-M:V للاستاذ حماده عمر Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) TextBox26.Value = Val(TextBox2) + Val(TextBox3) + Val(TextBox4) + Val(TextBox5) + Val(TextBox6) + Val(TextBox7) + Val(TextBox8) + Val(TextBox9) + Val(TextBox10) + Val(TextBox12) + Val(TextBox12) - Val(TextBox13) - Val(TextBox14) - Val(TextBox15) - Val(TextBox16) - Val(TextBox17) - Val(TextBox18) - Val(TextBox19) - Val(TextBox20) - Val(TextBox21) - Val(TextBox22) End Sub بارك الله فيكم
  3. السلام عليكم ورحمة الله وبركاته الاساتذة مشرفى المنتدى احتاج كودين للفورم الاول لجعل بدأ من Label7 caption = C4, ,Label6 caption = B4,,Label5 caption = a4 وهكذا حتى LABEL26 بحيث اذا تغير الاسم فى الخلية يتغير فى الليبل الكود الاخر كود ل TextBox26 لكى تظهر ناتج طرح التكست بوكس من A:L-M:V بارك الله فيكم وجزاكم كل الخير form1.xlsm
  4. بارك الله فيك اخى جزاك الله كل خير
  5. السلام عليكم لدى شيت به 3 اعمدة الرقم القومى والاسم والجهة وشيت اخر نفس الاعمدة اريد استخلاص الغير مكرر بينهم باستخدام الرقم القومى فى شيت اسمه M بارك الله فيكم استخلاص غ المكرر.xlsm
  6. الكود لمن يحتاجه ويعمل تمام بس عند تغير عدد الصفوف الى 15000 بياخد وقت طويل السادة الاساتذة حل للحلقة التكرارية لجعل الكود اسرع بارك الله فيكم مع الشكر Option Explicit Sub GetDataDemo() Dim FilePath$, Row&, Column&, Address$ Dim mpth Dim mfL 'change constants & FilePath below to suit '*************************************** Const FileName$ = "**" Const SheetName$ = "ورقة1" Const NumRows& = 10 Const NumColumns& = 10 Dir (mpth & "*xls*") mpth = ThisWorkbook.Path & "\do\" mfL = Dir(mpth & "*xls*") '*************************************** DoEvents Application.ScreenUpdating = False If Dir(mpth & mfL) = Empty Then MsgBox "The file " & FileName & " was not found", , "File Doesn't Exist" Exit Sub End If For Row = 1 To NumRows For Column = 1 To NumColumns Address = Cells(Row, Column).Address Cells(Row, Column) = GetData(mpth, mfL, SheetName, Address) Columns.AutoFit Next Column Next Row ActiveWindow.DisplayZeros = False End Sub Private Function GetData(Path, File, Sheet, Address) Dim Data$ Data = "'" & Path & "[" & File & "]" & Sheet & "'!" & _ Range(Address).Range("A1").Address(, , xlR1C1) GetData = ExecuteExcel4Macro(Data) End Function
  7. السلام عليكم اساتذة المنتدى احتاج على غرار ما قدمه استاذنا الفاضل الخبير حسين مامون فى هذا الموضوع احتاج الى عملية عكسية نقل البيانات من a2:f10000 من الملف من الموجود فى المجلدdoالى الملف الى الموجود خارجه لان به كود اخر ينقل العمودg من الملف الى بخارج المجلدdo الى الملف من نفس فكرة getdata الموجودة فى الاكسيل بس بالVBA حفظكم الله وبارك لنا فيكم خبراء المنتدى الاجلاء الافاضل من الى.rar
  8. رائع فعلا البرنامج كان بيغيب جدااا بارك الله فيك وزادك علما يارب بارك الله فيك استاذ سليم
  9. استاذ سليم حاصبيا انا حاولت فى الكود لاضافة ازالة الالوان ممكن حضرتك تشوف كده صح ولا غلط مشكور جدا Sub ClearData() With Sheets("Sheet1").Range("G2:L10000") .Borders.LineStyle = xlNone .ClearContents End With Range("g2:L10000").Select With Selection.Interior .Pattern = xlNone .TintAndShade = 0 .PatternTintAndShade = 0 End With بارك الله فيك
  10. زادك الله من فضله وبارك الله فيك استاذ سليم حاصبيا اشكرك
  11. هل بالامكان تصحيح كود مسح نطاق والغاء التحديد والالوان انا حاولت ولم ينجح Sub ClearData() Dim ws As Worksheet, Lr As Long Set ws = Sheets("Sheet1") ws.Range("g2:l0000").ClearContents Range("G2:L10000").Select Selection.Borders = .LineStyle = xlNone .Pattern = xlNone .PatternTintAndShade = 0 End Sub الكود كان للاستاذ ابراهيم الحداد وحاولت اعدل فيه ليناسب طلبى بارك الله فيكم
  12. بارك الله فيك حقا حفظك الله حضرتك فعلا======رائع استاذ حسين مامون بس بالتجربة اجد الكود يرحل الارقام ورا بعض ما احتاجه هو عملية نقل للارقم كما هى فى نفس اماكنها وليس ترحيل اسفل بعض كل ما اضغط على زر الترحيل يرحل اسفل القديم انا عايزة ارحل العمود كما هو اعتذر لك احتاج هذا التغير مع الشكر بارك الله فيك
  13. السلام عليكم ورحمة الله احتاج الى كود لترحيل المبالغ التى فى العمود g بالملف المسمى الترحيل من الى العمود g بالملف المسمى الترحيل الى بس يكون الملف المسمى الترحيل الى مغلق يتم الترحيل اليه وهو مغلق بارك الله فيكم ترحيل الى.xlsx ترحيل من.xlsm
  14. حضرتك مش ممكن رائع بارك الله فيك استاذ سليم حضرتك فعلا رجل عظيم اشكرك
  15. السلام عليكم ورحمة الله اريد كود يضاف لتكست فورم ليعرض ناتج طرح العمود c من العمود b قمت بعمل معادلة بالشيت والناتج يعرض بالتكست بس الناتج لو كان 0 كان بيعرض -100000000000000000000000 فما احتاجه هو ان ينفذ المعادلة بالكود لمنع التقريب واظهار الناتج بالتكست بمجرد ما افتح الفورم الناتج الفورمات بتاعه0.00 بارك الله فيكم معادلة للفورم.xlsm
  16. الله الله تسلم وتعيش اكثر الله مالك وعلمك وبارك لك فى اهل بيتك اللهم امين حفظك الله استاذ سليم
  17. السلام عليكم ورحمة الله اهل المنتدى ارجو مساعدتى المطلوب إخفاء السطور التي بين التاريخ فىA2,B2 اذا كان التاريخ فى العمود a يقع بين او يساوى التاريخ فى A2 وB2 يتم اخفاء وذلك حتى اتمكن من طباعة السطور وزر اخر لاظهارها مرة اخرى مع الشكر والدعاء المبلغ عن مدة اخفاء السطور.xlsm
  18. حفظك الله ورعاك تمام تسلم ايدك انا متأكدة انك بوقت قصير ستصبح برتبة خبير وانت تستاهل والله تسلم ايدك بارك الله فيك اخى اشكرك وادعوا لك بكل خير اختك
  19. استاذ ابو القاسم بارك الله فيك اخى المعادلة تعمل تمام مع الكل اما اذا اخترات اى اسم اخر لا تعمل انا اسفة اخى
  20. الف شكر لحضرتك استاذ ابو القاسم المعادلة تعمل بامتياز جزاك الله كل خير معادلة الكل بها مشكلة مع التاريخ استاذ ابو القاسم جرب تمسح التاريخ بردو هتجيب اجمالى مع الشكر اتمنى تعديل من حضرتك استاذ حسين للكود ليصبح الموضوع متكامل مع خالص الشكر
  21. الف شكر لحضرتك استاذ ابو القاسم الان تعمل اسعد الله اوقاتك يارب شكراا جدا
  22. معلش استاذ حسين مامون هل بالامكان اختيار ايضا الكل فى قائمة الاسم اذا اختارت الكل يحضر جميع المبالغ وجميع الديون لكل الاسماء مع الشكر الجزيل
×
×
  • اضف...

Important Information