ارجو المساعدة في ايجاد معادلة

[مامون دعيس]

بالملف المرفق يوجد خلايا مخفية 

اريد ادراج معادله بسيطه جدأ C112-20 
 لكن لا اريد ان تعمل المعادلة على الخلايا المخفية 

 

وجزاكم الله كل خير 

New Microsoft Excel Worksheet (5).xlsx

[lionheart]

Not clear at all

[مامون دعيس]

استادي الكريم 

 

المعنى انه في العمود c اريد ادراج معادلة بسيطة وهي =20-B112 
لكن يوجد صفوف مخفية  مثال رقم صف 113 الى الصف 116 يوجد صفوف مخفية 

لا اريد ان المعادلة اعلاة ان تمر بالصفوف المخفية 

 

 

[lionheart]

When you drag any formula it will be applied to all the cells in the column

What purpose of avoiding the hidden cells not to have the formula

[مامون دعيس]

نعم عند السحب تطبق على كامل الخلايا في العمود 

و المطلوب عدم تطبيقها على الخلايا المخفية 

الغرض هو احتساب مقاعد طيران ب ملفات اكسل اخرى 

ولك جزيل الشكر 

[مامون دعيس]

صباح الخير على جميع اعضاء المنتدى 

هل يمكن عمل ما طلبته في الاكسل او المسألة لا تحل  

المطلوب سحب معادلة معينة و تجاهل الخلايا المخفية 

 

وشكراااااااا 

 

[حسونة حسين]

السلام عليكم ورحمة الله وبركاته 

ممكن اخى عن طريق كود يضع لك المعادله التي تحتاجها ويستثني الخلايا المخفيه

[مامون دعيس]

استاذ حسونة حسين المحترم 

انا ما عندي خبرة بكتابة الكود 

هل من الممكن ان تساعدني في هذا الموضوع و جزاك الله كل خير 

[محمد يوسف ابو يوسف]

السلام عليكم ورحمة الله وبركاتة

كل عام وحضراتكم بخير 

رمضان كريم

 

بعد اذن اخي حسونة 

تفضل New Microsoft Excel Worksheet (5).xlsm

 

اخي مامون دعيس

يوجد شرط  ليتم تنفيز الكود ........ الشرط هو عندما تكتب في عمود المقاعد المباعة يتم ادراج الدالة المطلوبة

الكود المستخدم

 

Private Sub Workbook_SheetChange(ByVal SH As Object, ByVal Target As Range)
    If Target.Column = 2 Then
     M = Target.Row
        With Sheets("Sheet1")
     .Cells(M, 3) = "=RC[-1]-20"
    End With
   End If
   End Sub

 

تم تعديل أبريل 2, 2023 بواسطه محمد يوسف ابو يوسف

[مامون دعيس]

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

الكود لا يعمل بالشكل الصحيح 

عندما تفوم بفك الصفوف المخفية تكون المعادلة قد طبقت عليه 

علما بام المقاعد المباعة هي عبارة عن تجميع لملفات داخل الملف المرفق 

 

 

شرم الملكيه 2023.xlsx

[محمد يوسف ابو يوسف]

اخي

لبد من شرط لكي يعمل الكود بالشكل الصحيح

اختار عمود يكون هو الشرط اذا تحقق الشرط يتم وضع المعادلة
 

------------------------------------------------------------------------------

يوجد طريقة اخري لكتابة الكود

اخي لو  الفرق بين السطور المخفية ثابت يكن افضل

بمعني .... لو بين كل سطرين  نخفي سطرين او ثلاثة 

اكتب لك كود يعمل علي ذالك

 

[مامون دعيس]

شكرا جزيلا لك سيدي الكريم و جزاكم الله خير جزاء 
تم ايجاد الحل بطريقة شكرا لكم 

[حسونة حسين]

تفضل اخي كود بسيط 

Option Explicit

Sub Test()
    Dim cell As Range
    For Each cell In Range("C2:C" & Cells(Rows.Count, 1).End(xlUp).Row).SpecialCells(xlCellTypeVisible)
        cell.Formula = "=" & "B" & cell.Row & "-20"
    Next cell
End Sub

 

[محمد يوسف ابو يوسف]

38 دقائق مضت, مامون دعيس said:

شكرا جزيلا لك سيدي الكريم و جزاكم الله خير جزاء 
تم ايجاد الحل بطريقة شكرا لكم 

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

جزاك الله خيراً

تم تعديل أبريل 2, 2023 بواسطه محمد يوسف ابو يوسف

[مامون دعيس]

من تلك النافذة تم عمل اللازم