رفعت يسري حامد

سلمت يداك أخي الكريم. استفسر عن طريقة التنقل بين الخلايا مثلاً عندي فواتير اقوم بإدخال بياناتها والكتابة تكون في العامود الأول والثاني والسابع فقط وباقي الأعمدة لا اكتب فيها شيء اريد طريقة التنقل بين الخلايا بحيث اكتب في الخلية الأولى (ثم اضغط انتر) ينقلني إلى الخلية الثانية فاكتب فيها (ثم الضغط إنتر) يتخطى باقي الخلايا في هذا الصف إلى الخلية السابعة (ثم أضغط انتر) ينقلني إلى الخلية الأولى للصف الثاني وهكذا حتى انتهي من كتابة جميع بيانات الفواتير . هل هناك حل برمجي ؟

هذا الكود كمثال تقريبي فقط ولكنه غير صحيح من الناحية العملية اقصد بعد كتابة الشركة المكررة التي تنزل تلقائيًا يحدث الآتي: يترك الماكرو علامة في الخلية التي يقف عليها المؤشر وهي بجوار اسم الشركة المكررة . علامة هكذا مثلاً &^% ثم يتحرك الماكرو خلية واحدة لليمين ثم يقوم بعمل كوبي لاسم الشركة ويذهب إلى أعلى ثم يبحث عن اسم الشركة (الموجودة كوبي) وليس اسم شركة محدد ثم عندما يجدها يقوم بعمل نسخ للرقم الضريبي المجاور لهذه الشركة ثم يبحث عن علامته وهي &^% ويقوم بلصق الرقم الضريبي مكان هذه العلامة هل هذا من الممكن عمله في أكسل؟ أرجو من الأخوة الخبراء في الأكسل إفادتي إن أمكن ذلك. علمًا بأنه لا يمكنني عمل فرز للشركات كما اشار أخي الكريم (مهند حسن ) نظرًا لأن الملفات أتت على هذا الشكل وإذا قمت بفرزها سوف يصعب مراجعتها على الشخص الذي سوف يستلم بعدي نظرًا لتشتت أماكن الفواتير.

Sub Macro1() ' ' Macro1 ماكرو ' ' مفتاح الاختصار: Ctrl+ش ' ActiveCell.FormulaR1C1 = "&^%" Range("D103").Select Selection.Copy Range("A1").Select Cells.Find(What:="شركة الشرق الأوسط وشمال أفريقيا لصناعة المرطبات", After:= _ ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _ SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate Range("E19").Select Application.CutCopyMode = False Selection.Copy Cells.Find(What:="&^%", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ , SearchFormat:=False).Activate ActiveSheet.Paste Range("H103").Select End Sub

عندي فواتير بكتب بياناتها على الاكسل رقم الفاتورة- اسم الشركة - الرقم الضريبي احيانا اسم الشركة بيتكرر الطبيعي في اكسل ان لما اسم الشركة يتكرر بيظهر باقي الاسم تلقائي هل يوجد طريقة ان لما يظهر اسم الشركة المتكرر ينزل تلقائي وايضا ينزل معاه خانة الرقم الضريبي ؟ تــــم رفـــع المـــلــف ملف بالمطلوب.xlsx

جميع الطابعات التي نستخدمها فيها نفس المشكلة لا يمكن الطباعة على كامل الورقة الحواف النهائية للصفحة لا يمكن الطباعة عليها إلا في المطابع الكبيرة فقط التي تعتمد على ماكينات من نوع هايدلبرج. هذا حسب علمي والله أعلم .

مشكلة بحثت عنها كثيرًا لكن لم أجد لها حل. انتظر معك رد الأخوة الأعضاء

جزاك الله خيرًا استفسر من حضرتك . ما هو البرنامج المستخدم لعمل الإضافة

غالبًا يحدث ذلك إذا كان هناك تعارض في أنماط المستند (أي وجود نمط مكرر ) إذا وجدت نمط مكرر في خريطة أنماط المستند قم بحذفه. وأيضًا قد تجد في خريطة أنماط المستند . نمط له اسم char قم بحذفه أيضًا أو اي نمط بهذا المسمى. ثم قم بحفظ الملف باسم واختر docm وليس docx سوف يجعله أسرع وأكثر استيعابًا للصفحات مهما زادت عددها وخاصةً إذا كان بداخل المستند صور كثيرة أو معادلات . قم بالتجربة وأخبرنا بالنتيجة. وفقنا الله وإياك.

الأفضل تقوم بالتحويل ببرنامج خارجي مثل do pdf فسوف يعطيك نتيجة ممتازة.

قم بالتحديد على هذا المربع الذي يظهر ، ثم اضغط من لوحة المفاتيح كنترول + مسطرة

معذرة يا شباب. لقد نسيت ووضعت هذا السطر بالخطأ . لأني قمت بعمل حلقة for التكرارية فأدت المطلوب .

ممكن تكتب في المربع الحواري ٧ بدلا من ٥ كحل مؤقت ممكن حدث الخطأ لانك نسخت الكود مرتين بداخل المديول. اجعله واحدا فقط وقم بالتجربة مرة أخرى

Sub فهرس_الأحاديث() ' ' فهرس_الأحاديث Macro ' ' Dim refaat As Double refaat = InputBox("اكتب عدد الإشارات المرجعية") Dim x As Double x = 1 ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:= _ 2, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _ wdAutoFitFixed With Selection.Tables(1) If .Style <> "شبكة جدول" Then .Style = "شبكة جدول" End If .ApplyStyleHeadingRows = True .ApplyStyleLastRow = False .ApplyStyleFirstColumn = True .ApplyStyleLastColumn = False .ApplyStyleRowBands = True .ApplyStyleColumnBands = False End With Selection.TypeText Text:="الحديث" Selection.MoveRight Unit:=wdCell Selection.TypeText Text:="الصفحة" Selection.MoveRight Unit:=wdCell For x = 1 To refaat Selection.InsertCrossReference ReferenceType:="إشارة مرجعية", _ ReferenceKind:=wdContentText, ReferenceItem:="H" & x, InsertAsHyperlink:= _ True, IncludePosition:=False, SeparateNumbers:=False, SeparatorString:= _ " " Selection.MoveRight Unit:=wdCell Selection.InsertCrossReference ReferenceType:="إشارة مرجعية", _ ReferenceKind:=wdPageNumber, ReferenceItem:="H" & x, InsertAsHyperlink:=True _ , IncludePosition:=False, SeparateNumbers:=False, SeparatorString:=" " Selection.MoveRight Unit:=wdCell x = x + 1 Next End Sub

يشترط لتقوم بعمل ذلك برمجيًا أن يكون إدخال الإشارات المرجعية بهذا النمط فليكن هذا المثال على فهرس الأحاديث. سوف نرمز للحديث الذي تم التحديد عليه في البحث بالرمز H إذًا سوف يكون تسلسل إدخال الإشارات المرجعية للأحاديث هكذا H1, H2, H3, H4 .............. وهكذا حتى نتنهي من كامل البحث . ويجب أن تكون على علم بآخر إدخال مرجعي قمت بعمله فليكن على سبيل المثال إجمالي الإشارات المرجعية للأحاديث 10 أحاديث على سبيل المثال . (يعني انتهيت من آخر حديث H10). سوف تقوم بنسخ الكود ولصقه في ال vba كما تعلم. ثم بعد تشغيل الكود اكتب هذا الرقم 10 بداخل المربع الحواري الذي سوف يظهر. ودع الكود يقوم بتنزيل الإشارات المرجعية. وهذا هو الكود:

جدول.docx تقصد هكذا استبدال النقطة بفاصلة ام ماذا ؟

الإشارة المرجعية خليها للآيات والأحاديث والآثار لكن العنوان الرئيسي والفرعي اجعله بالفهرسة العادية إدراج (جدول محتويات).

هذا سوف يوضح لك بإذن الله تعالى example2.docx الطريقة السهلة هي: عن طريق إزالة علامة الصح من الارتباطات التشعبية. وطريقة التحديد لا بد أن تكون كما أشرت في الملف المرفق.

الغموض سوف يزول إذا علمت بأني لم أقم بعمل إدراج فهرسة من الأساس ولكن فقط قمت بنسخ التعليمة التي أشرت لك عليها الخاصة بحقول toc ثم عمل لصق لهذه التعليمة في أسفل المستند ثم عمل تحديث ليظهر لك جدول المحتويات مع إمكانية التعديل بإضافة أنماط أو حذف أنماط بداخل التعليمة نفسها التي تجدها بين علامتين هكذا {toc...} على سبيل المثال. الغموض كله سوف يزول إذا استطعت إظهار حقل ال TOC الخاص بالجدول الذي ارسلته لك عن طريق كليك يمين ثم ظهار * ان لم تستطع التطبيق ولا زال الغموض في هذه النقطة قائمًا سأحاول الوثيق بفيديو بإذن الله تعالى

تم إرسال النموذج مع الشرح 33.docx

لم أفهم ما المقصود. هل لا زالت المشكلة قائمة أم تم حلها بشكل مرضي ؟؟؟

الطريقة مشروحة في الملف السابق المرفق. تجد كلمة شعريمين وشعريسار هي الأنماط المستخدمة الشطر الأول من البيت والشطر الثاني من البيت وهكذا نفس لباقي الأنماط مثل عنوان1 وعنوان2 وهكذا كما في الصورة المرفقة الحالية. الطريقة مشروحة في الملف السابق المرفق. تجد كلمة شعريمين وشعريسار هي الأنماط المستخدمة الشطر الأول من البيت والشطر الثاني من البيت وهكذا نفس لباقي الأنماط مثل عنوان1 وعنوان2 وهكذا وبعد تجميع الأبيات الشعرية أو أي فهرس بشكل عام تقوم بالتحديد على الفهرس وتختار تحويل النص إلى جدول باختيار علامة الجدولة تجده يتحول إلى جدول مقسوم عمودين

الحل هو عملها يدويًا بحيث تنقل الشطر الثاني بجوار الشطر الأول بعد عمل إدراج جدول بجوار الشطر الأول من البيت بعض التفاصيل تجدهم في الملف المرفق. لكن المشكلة انه لا بد من عمل أنماط على ال 500 بيت . أو ابعتلي الملف وانا اعمله وارسله لك بإذن الله تعالى. هل غادر الشعراء من متردم.docx من عيوب هذه الطريقة انك لا تستطيع فهرسة الأبيات الشعرية الموجودة بالحواشي السفلية. اما لو أردت الفهرسة بشكل كامل فلا بد من طريقة الإشارة المرجعية .

هذا نموذج مبسط هل هذا هو المقصود أم ماذا ؟ النموذج في المرفقات. هل غادر الشعراء من متردم.docx

جزاك الله خيرًا عندي استفسار أريد البحث عن حرف كلمة أو كلمة أخرى في نفس الوقت بمعنى مثلاً أريد أن أبحث عن [محمد أو إبراهيم]

قم بتحميل برنامج dopdf ممكن يظبط معاك.