-
Posts
13,165 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
412
كل منشورات العضو ياسر خليل أبو البراء
-
التعديل على ملف صوتي داخل خليه ملف اكسل
ياسر خليل أبو البراء replied to دم الغزال's topic in منتدى الاكسيل Excel
ادخل لمحرر الأكواد عن طريق Alt + F11 ، ثم عدل السطر التالي الذي يحتوي الخلية الهدف WAVFile = ThisWorkbook.Path & "\" & Range("c2") & ".wav" -
بارك الله فيك أخي الكريم وائل الحمد لله أن تم المطلوب على خير .. بالنسبة لسؤالك : على حسب علمي لا يمكن التعامل بنفس الكود مع بقية الامتدادات التي ذكرتها .. ولا أعلم طرق للتعامل مع هذه الامتدادت (لم أجرب من قبل) .. ولكن إذا ثابرت في طرح موضوعات متتالية لكل امتداد ربما تحصل على كود لكل ملف أو امتداد وبعدها يمكن جمع هذه الأكواد كلها في ملف واحد شامل يلبي غرضك ، هذا والله أعلى وأعلم تقبل تحياتي
-
وعليكم السلام جرب استبدال السطر الأخير Range("A4").Select بهذا السطر Application.GoTo Range("A4"),True
-
طلب تعديل تلقائي للبيانات
ياسر خليل أبو البراء replied to أبو يحيى الجبلاوي's topic in منتدى الاكسيل Excel
حاول أن تقرأ أسطر الكود وستجد أن التعديل بسيط .. لو لم تستطع فأرجو من أحد الأخوة التعديل ليعمل الكود بشكل عكسي .. -
وعليكم السلام الخطأ قد يكون من نسخة الأوفيس التي لديك أو قد يكون لديك إضافة AddIn حدث معها تضارب أو ماشابه يرجى ذكر إصدار الأوفيس الذي تعمل عليه ..وجرب حذف الإضافات لديك ثم جرب الكود مرة أخرى Sub Test() Dim fName As String Dim Path As String fName = Range("A1").Value Path = ThisWorkbook.Path & "\" & fName Application.ActiveWorkbook.SaveAs Filename:=Path, FileFormat:=52 End Sub
-
ظهور رسالة عند مشاركة الملف على الشبكة
ياسر خليل أبو البراء replied to مهند الزيدي's topic in منتدى الاكسيل Excel
وعليكم السلام جرب إلغاء المشاركة الموجودة بالمصنف وسيفتح معك محرر الأكواد إن شاء المولى ..من خلال التبويب Review ثم Share Workbook على ما أتذكر -
طلب تعديل تلقائي للبيانات
ياسر خليل أبو البراء replied to أبو يحيى الجبلاوي's topic in منتدى الاكسيل Excel
جرب الكود التالي في حدث ورقة العمل Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Row > 1 And Target.Column = 3 Then Application.EnableEvents = False Range("Z1").Value = Target.Value Application.EnableEvents = True End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row > 1 And Target.Column = 3 Then Sheets("list").Columns(6).Replace What:=Range("Z1").Value, Replacement:=Target.Value, LookAt:=xlWhole End If End Sub -
وعليكم السلام قم بدراسة الموضوع التالي بتأني وسيحل لك إن شاء الله المشكلات كلها فيما يخص التعامل مع محرر الأكواد رابط الموضوع من هنا
-
استفسار عن طريق جلب بيانات عن طريق vb
ياسر خليل أبو البراء replied to saud133's topic in منتدى الاكسيل Excel
قم ببساطة بتسجييل ماكرو من خلال التبويب Developer ثم Record Macro .. ونفذ الخطوات .. وفي النهاية أوقف التسجيل -
السلام عليكم اريد نزع auto close
ياسر خليل أبو البراء replied to زاكي بوشلاغم's topic in منتدى الاكسيل Excel
تفضل أخي الكريم CNR.rar -
السلام عليكم اريد نزع auto close
ياسر خليل أبو البراء replied to زاكي بوشلاغم's topic in منتدى الاكسيل Excel
وعليكم السلام أخي الكريم زاكي أين الملف المرفق لمحاولة تقديم المساعدة المطلوبة؟ فك حماية محرر الأكواد أمر بسيط وميسور وإن شاء الله أي عضو ممكن يفيدك فيه ، فقط ارفق ملفك -
التعديل على ملف صوتي داخل خليه ملف اكسل
ياسر خليل أبو البراء replied to دم الغزال's topic in منتدى الاكسيل Excel
لا يمكنني التخمين في الموضوع بدون الإطلاع على الملف المرفق ..أعتذر وأترك غيري للمشاركة في الموضوع يمكن رفع الملف على موقع رفع خارجي ثم تضع الرابط هنا .. -
بصراحة الموضوع في هذه النقطة صعب إلى حدٍ ما ... ما المنطق فيما طلبت ...؟ هل هناك سطر فارغ بين الكتل التي تتحدث عنها ؟ الملف الأول المرفق كان يلبي طلبك في أن يضع كل النص الموجود في الملف النصي الواحد في خلية واحدة .. ربما من الأفضل أن تضع ملف نصي مرفق موضحاً شكل المخرجات مرة أخرى فلربما توصلنا لفكرة ...
-
التعديل على ملف صوتي داخل خليه ملف اكسل
ياسر خليل أبو البراء replied to دم الغزال's topic in منتدى الاكسيل Excel
وعليكم السلام أخي الكريم لم أفهم المطلوب بشكل واضح قم بأخذ نسخة من ملفك واحذف منها كل الصفوف ما عدا 10 صفوف كمثال .. لتتضح صورة المطلوب بشكل أفضل -
لا مجال إذاً إلا باستخدام الأكواد أو دالة معرفة لتوفر عليك العناء وبهذا لا يمكنك الاعتماد على ورقة العمل أو جدول يحتوي تلك البيانات ...
-
هل تريد الاعتماد في المعادلة على جدول بالمعطيات موجود مسبقاً أم أنك تريد كتابة المعادلة بكافة المعطيات داخلها؟ في الحالة الثانية ستكون المعادلة صعبة في كتابتها من حيث طول المعادلة لذا أقترح استخدام دالة معرفة تشتمل على كافة المعطيات بحيث يكون أيسر لك استخدامها ... وفي النهاية لك حرية القرار
-
تعديل كود او استبداله بما افضل واسهل منه
ياسر خليل أبو البراء replied to ابو حمادة's topic in منتدى الاكسيل Excel
الحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات قم بوضع الكود النهائي بعد أن قمت بالتعديلات ليستفيد منه الجميع تقبل تحياتي