اذهب الي المحتوي
أوفيسنا

omhamzh

03 عضو مميز
  • Posts

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

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

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

23 Excellent

عن العضو omhamzh

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

  • Gender (Ar)
    أنثي
  • Job Title
    home

اخر الزوار

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

  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. حضرتك مش ممكن رائع بارك الله فيك استاذ سليم حضرتك فعلا رجل عظيم اشكرك
×
×
  • اضف...

Important Information