عبدالله باقشير

السلام عليكم استخدم النموذج الاحدث في الرابط ادناه http://www.officena.net/ib/index.php?showtopic=48811 تحياتي

السلام عليكم شاهد المرفق مع ملاحظة ان الملفات الناتجة من الكود ملفات اوفيس 2003 بشكل ثابت حتى لو استبدل ملف الكود الى اوفيس احدث المرفق 2003 مستخدمي المدارس الابتدائية++.rar

السلام عليكم جزاكم الله خير تقبلوا تحياتي وشكري

السلام عليكم جزاكم الله خيرا تقبلوا تحياتي وشكري

السلام عليكم كل عام وانتم بخير جزاكم الله خيرا تقبلوا تحياتي وشكري

السلام عليكم الف مبروك والى الامام دوما تقبلوا تحياتي

السلام عليكم اخي الحبيب / شوقي ربيع............حفظكم الله .اكرمكم الله في الدارين وجزاكم خيرا وبارك فيكم تقبلوا تحياتي وشكري

السلام عليكم في الملف كود قد عملته سابقا لاحدهم قد يناسبك المرفق 2003 مستخدمي المدارس الابتدائية++.rar

السلام عليكم اخي الحبيب / ضاحي الغريب............حفظكم الله ما اجمل هداياك ............اكرمكم الله وجزاكم خيرا وبارك فيكم تقبلوا تحياتي وشكري

هل ميادين العطاء = ميادن العطاء

السلام عليكم اولا هذا شرح الدالة OFFSET من تعليمات الاكسل تصف هذه المقالة بناء جملة صيغة الدالة (الدالة: هي صيغة تمت كتابتها مسبقاً بحيث تقبل قيمة أو قيم أو تؤدي إلى إجراء إحدى العمليات أو إرجاع قيمة أو قيم. ُتستخدم الدالات لتبسيط الصيغ وتقليلها بورقة العمل خصوصاً الصيغ التي تؤدي إلى إجراء حسابات مطولة أو معقدة.) OFFSET وطريقة استخدامها في Microsoft Excel. الوصف إرجاع مرجع إلى نطاق عبارة عن رقم معين من الصفوف والأعمدة من خلية أو نطاق خلايا. من الممكن أن يكون المرجع الذي يتم إرجاعه عبارة عن خلية مفردة أو نطاق من الخلايا، يمكنك تحديد عدد الصفوف وعدد الأعمدة التي سيتم إرجاعها. بناء الجملة ‎OFFSET(reference, rows, cols, [height], [width])‎ يحتوي بناء جملة الدالة OFFSET على الوسيطات (وسيطة: قيمة توفّر معلومات لإجراء ما، أو حدث، أو أسلوب، أو خاصية، أو دالة، أو برنامج جزئي.) التالية: Reference (المرجع) مطلوبة. المرجع الذي تريد أن تستند إليه الإزاحة. يجب أن يكون المرجع مرجعًا لخلية أو نطاق من الخلايا المتجاورة؛ بخلاف ذلك، ستُرجع OFFSET قيمة الخطأ #VALUE!. (الصفوف) Rows مطلوبة. عدد الصفوف، لأعلى أو لأسفل، التي تريد أن تشير إليها الخلية العلوية اليمنى. يؤدي استخدام 5 كوسيطة الصفوف إلى أن تكون الخلية العلوية اليمنى في المرجع أسفل المرجع بخمسة صفوف. من الممكن أن تكون Rows موجبة (أي أسفل مرجع البدء) أو سالبة (أي أعلى مرجع البدء). Cols (الأعمدة) مطلوبة. عدد الأعمدة، إلى اليمين أو اليسار، التي تريد أن تشير الخلية العلوية اليمنى من النتيجة إليها. يؤدي استخدام 5 كوسيطة الأعمدة إلى أن تكون الخلية العلوية اليمنى في المرجع موجودة إلى يسار المرجع بخمسة أعمدة. من الممكن أن تكون Cols موجبة (أي إلى يسار مرجع البدء) أو سالبة (أي إلى يمين مرجع البدء). Height (الارتفاع) اختيارية. الارتفاع في عدد من الصفوف، الذي تريد للمرجع الذي يتم إرجاعه أن يكون به. يجب أن تكون Height رقماً موجباً. Width (العرض) ============================================================== الآن نشرح المعادلة لموضوعنا هذا لقد سمينا نطاق الرموز وهو الخلايا =ورقة1!$K$3:$K$70 بالاسم RngCode والسبب انه هو الذي سنعتمد عليه في دالة MATCH ودالة COUNTIF =OFFSET(RngCode;MATCH(B2;RngCode;0)-1;-1;COUNTIF(RngCode;B2)) OFFSET(reference, rows, cols, [height], [width])‎ Reference استخدمنا النطاق RngCode وازحناه قدر عمود واحد الى اليمين باستخدام القيمة -1 في Cols الان اصبح النطاق الذي سيرجع من الدالة في العمود J واول صف سيستخدم للنطاق هي القيمة المرجعة من الدالة ادناه في rows MATCH(B2;RngCode;0)-1 وعدد الصفوف للنطاق هي القيمة المرجعة من الدالة في [width] COUNTIF(RngCode;B2) تحياتي

كود الفلترة وتحديد نطاق الطباعة Sub kh_Filter() Dim LR As Long With ورقة1 LR = .Cells(.Rows.Count, "A").End(xlUp).Row .Range("A1:N" & LR).AdvancedFilter xlFilterCopy, Range("O1:O2"), Range("B10:K10") End With Range("B11").Select LR = Cells(Rows.Count, "B").End(xlUp).Row ActiveSheet.PageSetup.PrintArea = Range("B10:K" & LR).Address End Sub كود المعاينة Sub kh_PrintPreview() ActiveSheet.PrintPreview End Sub تحياتي

بالنسبة للمعادلة في العمود H عدلها الى =IF(ISNUMBER(MATCH(A2;الشريط!$A$2:$A$3000;0));"معتمد";"رفع رقم السيارة من قائمة الموافقة الشهرية") لمعادلة في العمود I =IF(ISERROR(VLOOKUP(A2;الشريط!$A$2:$C$1000;3;0));"";IF(VLOOKUP(A2;الشريط!$A$2:$C$1000;3;0)=G2;"(مطابق)";"(غير مطابق)")) جرب واشعرني بالنتيجة

لناخذ الرقم 571 هذا الرقم ليس موجود في العمود A من الورقة الموافقة وهذه المعادلة تؤكد ذلك ضعها في خلية =MATCH(571;الموافقة!$A$2:$A$3000;0) وانما موجود في ورقة الشريط لذلك اخبرتك ان تفصل الحالات كامل

السلام عليكم اولا خلينا في المعادلة المطلوبة في العمود H ضع المعادلة في الخلية H2 واسحبها على الصفوف =IF(ISNUMBER(MATCH(A2;الموافقة!$A$2:$A$3000;0)*MATCH(A2;الشريط!$A$2:$A$3000;0));"(معتمد)";"(رفع رقم السيارة من قائمة الموافقة الشهرية)") اذا كان رقم السيارة موجود في الورقتين ( الموافقة + الشريط) يكتب معتمد وغيره يكتب (رفع رقم السيارة من قائمة الموافقة الشهرية) هل هذا المطلوب والا عليك توضيح جميع الحالات تحياتي

تحتاج الى تسمية نطاق الرموز مثلا انا سميته RngCode وهذه معادلة البحث لقاعدة التحقق من الصحة =OFFSET(RngCode;MATCH(B2;RngCode;0)-1;-1;COUNTIF(RngCode;B2)) المرفق 2003 قائمة منسدلة مفلترة3.rar

السلام عليكم اريدك ان تعملها انت بنفسك لان الحل موجود في الكود الاول حاول وانا ان شاء الله معاك تحياتي

هذ لاكسل 2003 Sub Macro_print() Dim Lr As Long With ActiveSheet.PageSetup .PrintTitleRows = "$1:$9" .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = False End With Lr = Cells(Rows.Count, "B").End(xlUp).Row Lr = WorksheetFunction.Count(Range("B10:B" & Lr)) If Lr Then Range("B10").Resize(Lr, 51).PrintPreview End If End Sub تحياتي

تفضل : Sub kh_Filter() Dim LR As Long With ورقة1 LR = .Cells(.Rows.Count, "A").End(xlUp).Row .Range("A1:N" & LR).AdvancedFilter xlFilterCopy, Range("O1:O2"), Range("B10:K10") End With LR = Cells(Rows.Count, "B").End(xlUp).Row If LR > 10 Then Range("B10:K" & LR).PrintPreview End If End Sub تحياتي

السلام عليكم جرب هذا الكود Sub kh_Replace() Dim NamOld As String, NamNew As String Dim Lr As Long NamOld = "hseen" NamNew = "khboorkheer" Lr = Cells(Rows.Count, "A").End(xlUp).Row Range("A2:A" & Lr).Replace _ What:=NamOld, Replacement:=NamNew, _ SearchOrder:=xlByColumns, MatchCase:=True End Sub تحياتي

السلام عليكم جزاكم الله خيرا تقبلوا تحياتي وشكري

جرب الكود التالي Sub Macro1() Dim Lr As Long Application.PrintCommunication = False With ActiveSheet.PageSetup .PrintTitleRows = "$1:$9" .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = False End With Application.PrintCommunication = True Lr = Cells(Rows.Count, "B").End(xlUp).Row Lr = WorksheetFunction.Count(Range("B10:B" & Lr)) If Lr Then Range("B10").Resize(Lr, 51).PrintPreview End If End Sub تحياتي

السلام عليكم جزاكم الله خيرا تقبلوا تحياتي وشكري

السلام عليكم معادلة البحث لقاعدة التحقق من الصحة =OFFSET($J$3;MATCH(B2;$K$3:$K$70;0)-1;;COUNTIF($K$3:$K$70;B2);1) شاهد المرفق 2003 قائمة منسدلة مفلترة2.rar

السلام عليكم اذا كانت طريقة البحث اسم مطابق لماذا يحتاج تكرارها في عمود للنتائج ؟ اظن يكفي عددها فقط اما اذا كان شي ثاني فارجوا التوضيح تفضل الكود التالي Sub Macro1() Dim Lr As Long Dim txt As String With Range("C2") Range(.Cells, .Cells.End(xlDown)).ClearContents End With txt = [B2] Lr = Cells(Rows.Count, "A").End(xlUp).Row Lr = WorksheetFunction.CountIf(Range("A2:A" & Lr), txt) If Lr Then Range("C2").Resize(Lr).Value = txt Range("D2").Value = Lr End If End Sub تحياتي