بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
-
Posts
936 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
25
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه حسونة حسين
-
-
اخى الكريم لتشغيل الكود
اضغط
Alt+F11
ستجد modules
ستجد module1
اضغط في اي سطر بها
ثم اضغط
F5
او يمكنك عمل ذر وربطه بالكود
-
29 دقائق مضت, ssbnd said:
الحقيقه هذه ليس هذا هو العمل حقيقة انما هذا مثال لما اريد عمله و انا اقوم بمثل هذا المثال اقوم بعمل فاتورة cover لكل فاتورة استلمها لذا عملت هذا المثال
قد قمت بعمل كثير من الاضافات لتسهيل العمل و لكن ما زال العمل يحتاج إلى كثير من الجهد
ما هو طبيعه العمل
هل هذه الفواتير موجوده في شيتات اكسل ولا لا
ان كانت غير موجوده وانت تكتبها فاتورة فاتورة
فنصيحه منى
كل الفواتير تكون في شيت واحد (فقط)
ويكون يوجد شيت لشكل الفاتورة
ويكون شيت لملخص الفواتير
-
20 دقائق مضت, ssbnd said:
فهمت انه اقوم بعمل الفواتير في مجلد الفواتير و اترك ملف الملخص خارج هذا المجلد
تمام كده مظبوط
20 دقائق مضت, ssbnd said:قمت بعمل فاتورة ثالثه و لكن لم تتم اضافتها في ملف الملخص
هل وضعت هذه الفاتورة الثالثه في نفس الفولدر الذي ارسلته لك في الملف المضغوط أم ماذا صنعت
21 دقائق مضت, ssbnd said:ايضا قمت بتعديل على الفاتورة الأولى و لكن لم يتم التعديل.
هل هذه الفاتورة ضمن الفولدر الذي في ملف المضغوط ام في مكان اخر
اخى الكريم
الكود به اسم الفولدر هو ( فواتير )
كما بالصورة التاليه
كل ما هو بفولدر فواتير بمجرد تشغيل الكود سوف يجلبه لك اخى الكريم
-
- 2
-
اخى الكريم جرب هذا المعادله
=IFERROR(INDEX(BLF!$B$2:$B$7684;SMALL(IF(BLF!$A$2:$A$7684=$C$7;IF(BLF!$D$2:$D$7684=$F$10;IF(BLF!$F$2:$F$7684="P";(ROW($A$2:$A$300)-ROW($A$2)+1);"what is the value you want for false")));ROWS($C$13:C13)));"")
ضع مكان هذه العباره
"what is the value you want for false"
ضع جواب الشرط لو كانت النتيجة false
ولو مش عايز تكتب فيها شرط
تفضل هذه المعادله
=IFERROR(INDEX(BLF!$B$2:$B$7684;SMALL(IF(BLF!$A$2:$A$7684=$C$7;IF(BLF!$D$2:$D$7684=$F$10;IF(BLF!$F$2:$F$7684="P";(ROW($A$2:$A$300)-ROW($A$2)+1))));ROWS($C$13:C13)));"")
-
وعليكم السلام ورحمة الله وبركاته
الملف يفتح بدون طلب رقم سري
-
اقفل الملف اللى انت شايف كتابته غريبه (ملف pdf ) بدون حفظ
واستخدم هذا الكود
Private Sub Command1_Click() Dim strFile As String strFile = Application.GetOpenFilename() Textbox5.txt = strFile End Sub
-
- 1
-
وعليكم السلام ورحمة الله وبركاته
جرب هذا الكود اخى الكريم
Private Sub Command1_Click() Dim strFile As String strFile = Application.GetOpenFilename() Workbooks.Open (strFile) Textbox5.txt = strFile End Sub
- 1
-
وعليكم السلام ورحمة الله وبركاته
استبدل هذه الجمله
ThisWorkbook.Path & "\"
الى
"E:\"
- 1
-
وعليكم السلام ورحمة الله وبركاته
لا تدعم جداول بيانات في جوجل vba
ما يدعمه تطبيق "جداول البيانات" هو عمل وظائف جافا سكريبت مثل وحدات الماكرو.
تحقق من ذلك لمزيد من المعلومات حول وحدات ماكرو جافا سكريبت هنا
-
اخى الكريم هذا الفيديو للاستاذة ساجده يوضح لك كيف وضع علامه مائيه في الاكسل
رابط الفيديو هنا
والعلامه المائيه الخاصه بالملف pdf
-
السلام عليكم ورحمة الله وبركاته
يمكنك الاستفادة من هذا الموضوع
- 1
-
Birth as variant
حضرتك كاتبها خطأ veriant
- 1
-
الحمد لله الذي بنعمته تتم الصالحات
وفيك بارك اخى الكريم
-
تم التحويل عن طريق موقع اسمه ilovepdf
-
الشكر لله والحمد لله الذي بنعمته تتم الصالحات
-
وجزاكم مثله اخى الكريم
الحمد لله الذي بنعمته تتم الصالحات
-
خطوة ١ ازاله الفلتر من الخليه N6
خطوة عمل تحديد لجميع خلايا الشيت
مثل مكان الماوس في هذه الصورة
ثم كليك يمين واختيار row height
ثم كتابه الرقم وليكن ٢٣ وهو ارتفاع الصف عندك في الصفوف السابقه
-
- 1
-
الحمد لله الذي بنعمته تتم الصالحات
- 1
-
تفضل اخى الكريم لعله ما تريد
- 1
-
الحمد لله الذي بنعمته تتم الصالحات
بالتوفيق ان شاء الله
-
هذه المتغيرات كانت في كودك ليس لها بالنسبه لي استخدام في الكود بهذا الشكل
- 1
عمل ملخص في ملف اكسل من مجموعة كبيره من ملفات اكسل
في منتدى الاكسيل Excel
قام بنشر
ملف الاكسل سوف يكون به ٣ شيتات فقط
كل هذه ال ٦٠٠٠ فاتورة نكون في شيت واحد
هذا الشيت الواحد اسمه (data)
يكون السطر البيان الاول من ببانات الفاتورة
والسطر الثاني يكون البيان الثانى من الفاتورة
وهكذا الى انتهاء الفاتورة
ثم الفاتورة التاليه في السطر الذي يليه
وهكذا الى انتهاء الفواتير
ويكون شيت ثانى باسم search
يكون به شكل الفاتورة التى صممتها وهذا التصميم ياخذ بيانته من صفحه (data) اوتوماتيكى
وشيت ثالث يكون به ملخص الفواتير