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

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

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

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 تقصد هكذا استبدال النقطة بفاصلة ام ماذا ؟