طارق مساد

<> ( معناها لا يساوي )

ترجع قيمة true or false

شكرا جزيلا

السيد ياسر المحترم:

تحية طيبة وبعد

اذا تكرمت كيف يمكنني ان اغير الكلمة  REPORT        لخلية مرجعية على سبيل المثال d3 في المعادلة ادناه

مع الشكر

في ٢٦‏/٩‏/٢٠١٥ at 23:59, م / ياسر فتحى البنا said:

=COUNTIF(C2:C10,"REPORT*")

 

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

السادة المحترمين:

تحية طيبة وبعد:

هل من الممكن عمل معادلة sumif حسب اللون

مع الشكر.

لقد قمت بحل المشكلة وكانت مشكلة في معادلة do -----   loop

وساتعلم منكم كل ما هو جديد ان شاء الله

لكن الساعة لم تظهر!

مبيعات المحطات 2.rar

احد اليوزر 

القسطل

الباسوورد

862

السادة الكرام 

يوجد في الملف المرفق ملف يحتوي  يوزر فورم  للمستخدمين مع رقم سري

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

ارجو مساعدتي في حل المشكلة 

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

Private Sub Workbook_Open()
Application.EnableCancelKey = xlDisabled
Application.Visible = False
UserForm1.Show
End Sub

Dim b As Integer
Dim c As Integer
Private Sub CommandButton1_Click()
b = 1
Dim Ws As Worksheet
    
    strpass = "Secret"
Dim oWs As Worksheet
For Each Ws In ThisWorkbook.Worksheets
If Ws.Name <> "1" Then Ws.Visible = xlSheetVeryHidden
Next Ws

      If ComboBox1.Value = "ÇáÞÓØá" And TextBox2.Value = "862" Then
            Worksheets("ÇáÞÓØá").Visible = xlSheetVisible

        Sheets("ÇáÞÓØá").Select

       
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
      
           ElseIf ComboBox1.Value = "ÇáÒÑÞÇÁ" And TextBox2.Value = "911" Then
            Worksheets("ÇáÒÑÞÇÁ").Visible = xlSheetVisible
        Sheets("ÇáÒÑÞÇÁ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
           
           
             ElseIf ComboBox1.Value = "'ØÈÑÈæÑ" And TextBox2.Value = "526" Then
            Worksheets("ØÈÑÈæÑ").Visible = xlSheetVisible
        Sheets("ØÈÑÈæÑ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "æÇÏí Ñã - ÇáÚÞÈÉ" And TextBox2.Value = 467 Then
            Worksheets("æÇÏí Ñã - ÇáÚÞÈÉ").Visible = xlSheetVisible
        Sheets("æÇÏí Ñã - ÇáÚÞÈÉ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÇáÈíÇÏÑ" And TextBox2.Value = 149 Then
            Worksheets("ÇáÈíÇÏÑ").Visible = xlSheetVisible
        Sheets("ÇáÈíÇÏÑ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÇáãØÇÑ 1" And TextBox2.Value = 877 Then
            Worksheets("ÇáãØÇÑ 1").Visible = xlSheetVisible
        Sheets("ÇáãØÇÑ 1").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÇáÚÞÈÉ ÇáÎáÝí" And TextBox2.Value = 477 Then
            Worksheets("ÇáÚÞÈÉ ÇáÎáÝí").Visible = xlSheetVisible
        Sheets("ÇáÚÞÈÉ ÇáÎáÝí").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÇáãÝÑÞ" And TextBox2.Value = 880 Then
            Worksheets("ÇáãÝÑÞ").Visible = xlSheetVisible
        Sheets("ÇáãÝÑÞ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÇáÓÑæ" And TextBox2.Value = 520 Then
            Worksheets("ÇáÓÑæ").Visible = xlSheetVisible
        Sheets("ÇáÓÑæ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÇáÔÑíÝ ÍÓíä - ÇáÚÞÈÉ" And 462 Then
            Worksheets("ÇáÔÑíÝ ÍÓíä - ÇáÚÞÈÉ").Visible = xlSheetVisible
        Sheets("ÇáÔÑíÝ ÍÓíä - ÇáÚÞÈÉ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ãÇÏÈÇ" And TextBox2.Value = 357 Then
            Worksheets("ãÇÏÈÇ").Visible = xlSheetVisible
        Sheets("ãÇÏÈÇ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ãÇÑßÇ" And TextBox2.Value = 176 Then
            Worksheets("ãÇÑßÇ").Visible = xlSheetVisible
        Sheets("ãÇÑßÇ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÇáÌæíÏÉ" And TextBox2.Value = 260 Then
            Worksheets("ÇáÌæíÏÉ").Visible = xlSheetVisible
        Sheets("ÇáÌæíÏÉ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "äÇÚæÑ" And TextBox2.Value = 425 Then
            Worksheets("äÇÚæÑ").Visible = xlSheetVisible
        Sheets("äÇÚæÑ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÇÑÈÏ" And TextBox2.Value = 144 Then
            Worksheets("ÇÑÈÏ").Visible = xlSheetVisible
        Sheets("ÇÑÈÏ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÇáÌÇãÚÉ ÇáÇÑÏäíÉ" And TextBox2.Value = 854 Then
            Worksheets("ÇáÌÇãÚÉ ÇáÇÑÏäíÉ").Visible = xlSheetVisible
        Sheets("ÇáÌÇãÚÉ ÇáÇÑÏäíÉ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÇáÚÞÈå ÇáÕäÇÚíå" And TextBox2.Value = 503 Then
            Worksheets("ÇáÚÞÈå ÇáÕäÇÚíå").Visible = xlSheetVisible
        Sheets("ÇáÚÞÈå ÇáÕäÇÚíå").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÇáÓÑæ 2" And TextBox2.Value = 906 Then
            Worksheets("ÇáÓÑæ 2").Visible = xlSheetVisible
        Sheets("ÇáÓÑæ 2").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÌÇÈÑ" And TextBox2.Value = 691 Then
            Worksheets("ÌÇÈÑ").Visible = xlSheetVisible
        Sheets("ÌÇÈÑ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÇáÞØÑÇäå" And TextBox2.Value = 509 Then
            Worksheets("ÇáÞØÑÇäå").Visible = xlSheetVisible
        Sheets("ÇáÞØÑÇäå").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÇáÔíÏíÉ" And TextBox2.Value = 679 Then
            Worksheets("ÇáÔíÏíÉ").Visible = xlSheetVisible
        Sheets("ÇáÔíÏíÉ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÇÑÈÏ - ÇáäÚíãÉ" And TextBox2.Value = 328 Then
            Worksheets("ÇÑÈÏ - ÇáäÚíãÉ").Visible = xlSheetVisible
        Sheets("ÇÑÈÏ - ÇáäÚíãÉ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ãÍØÉ ÇáãØÇÑ 2" And TextBox2.Value = 311 Then
            Worksheets("ãÍØÉ ÇáãØÇÑ 2").Visible = xlSheetVisible
        Sheets("ãÍØÉ ÇáãØÇÑ 2").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÌÑÝ ÇáÏÑÇæíÔ" And TextBox2.Value = 256 Then
            Worksheets("ÌÑÝ ÇáÏÑÇæíÔ").Visible = xlSheetVisible
        Sheets("ÌÑÝ ÇáÏÑÇæíÔ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÇáÍÒÇã 1" And TextBox2.Value = 511 Then
            Worksheets("ÇáÍÒÇã 1").Visible = xlSheetVisible
        Sheets("ÇáÍÒÇã 1").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÇáÌíÒÉ" And TextBox2.Value = 546 Then
            Worksheets("ÇáÌíÒÉ").Visible = xlSheetVisible
        Sheets("ÇáÌíÒÉ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÇáÔãíÓÇäí" And TextBox2.Value = 568 Then
            Worksheets("ÇáÔãíÓÇäí").Visible = xlSheetVisible
        Sheets("ÇáÔãíÓÇäí").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
       
             ElseIf ComboBox1.Value = "ÇáÍÑíÉ" And TextBox2.Value = 247 Then
            Worksheets("ÇáÍÑíÉ").Visible = xlSheetVisible
        Sheets("ÇáÍÑíÉ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÔÇÑÚ ãßÉ" And TextBox2.Value = 803 Then
            Worksheets("ÔÇÑÚ ãßÉ").Visible = xlSheetVisible
        Sheets("ÔÇÑÚ ãßÉ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÔÇÑÚ ÚÈÏ Çááå ÛæÔÉ" And TextBox2.Value = 838 Then
            Worksheets("ÔÇÑÚ ÚÈÏ Çááå ÛæÔÉ").Visible = xlSheetVisible
        Sheets("ÔÇÑÚ ÚÈÏ Çááå ÛæÔÉ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÇáÈÞÚÉ" And TextBox2.Value = 975 Then
            Worksheets("ÇáÈÞÚÉ").Visible = xlSheetVisible
        Sheets("ÇáÈÞÚÉ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÇáãÑßÒ ÇáËÞÇÝí Çáãáßí" And TextBox2.Value = 190 Then
            Worksheets("ÇáãÑßÒ ÇáËÞÇÝí Çáãáßí").Visible = xlSheetVisible
        Sheets("ÇáãÑßÒ ÇáËÞÇÝí Çáãáßí").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ãÇÑßÇ 2" And TextBox2.Value = 367 Then
            Worksheets("ãÇÑßÇ 2").Visible = xlSheetVisible
        Sheets("ãÇÑßÇ 2").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÇáØÝíáÉ - ÇáÈáÏ - Ñæíã" And TextBox2.Value = 631 Then
            Worksheets("ÇáØÝíáÉ - ÇáÈáÏ - Ñæíã").Visible = xlSheetVisible
        Sheets("ÇáØÝíáÉ - ÇáÈáÏ - Ñæíã").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÌÑÔ-ÈÇÈ ÚãÇä" And TextBox2.Value = 659 Then
            Worksheets("ÌÑÔ-ÈÇÈ ÚãÇä").Visible = xlSheetVisible
        Sheets("ÌÑÔ-ÈÇÈ ÚãÇä").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
            ElseIf ComboBox1.Value = "ÇáÒÑÞÇÁ-Îæ" And TextBox2.Value = 235 Then
            Worksheets("ÇáÒÑÞÇÁ-Îæ").Visible = xlSheetVisible
        Sheets("ÇáÒÑÞÇÁ-Îæ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÇÊæÓÊÑÇÏ ÇáÒÑÞÇÁ- ãÇÑßÇ 3" And TextBox2.Value = 989 Then
            Worksheets("ÇÊæÓÊÑÇÏ ÇáÒÑÞÇÁ- ãÇÑßÇ 3").Visible = xlSheetVisible
        Sheets("ÇÊæÓÊÑÇÏ ÇáÒÑÞÇÁ- ãÇÑßÇ 3").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÈáíáÇ" And TextBox2.Value = 153 Then
            Worksheets("ÈáíáÇ").Visible = xlSheetVisible
        Sheets("ÈáíáÇ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÕæíáÍ" And TextBox2.Value = 404 Then
            Worksheets("ÕæíáÍ").Visible = xlSheetVisible
        Sheets("ÕæíáÍ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÇáØÝíáÉ ÇáÚíÕ" And TextBox2.Value = 429 Then
            Worksheets("ÇáØÝíáÉ ÇáÚíÕ").Visible = xlSheetVisible
        Sheets("ÇáØÝíáÉ ÇáÚíÕ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÇÑÈÏ.ÇáÍÕä" And TextBox2.Value = 688 Then
            Worksheets("ÇÑÈÏ.ÇáÍÕä").Visible = xlSheetVisible
        Sheets("ÇÑÈÏ.ÇáÍÕä").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÇáíÇÏæÏÉ" And TextBox2.Value = 922 Then
            Worksheets("ÇáíÇÏæÏÉ").Visible = xlSheetVisible
        Sheets("ÇáíÇÏæÏÉ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÇáÍÒÇã 2" And TextBox2.Value = 378 Then
            Worksheets("ÇáÍÒÇã 2").Visible = xlSheetVisible
        Sheets("ÇáÍÒÇã 2").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÇáÍÑÉ" And TextBox2.Value = 857 Then
            Worksheets("ÇáÍÑÉ").Visible = xlSheetVisible
        Sheets("ÇáÍÑÉ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ãÑßÒ ÊæÒíÚ" And TextBox2.Value = 999 Then
            Worksheets("ãÑßÒ ÊæÒíÚ").Visible = xlSheetVisible
        Sheets("ãÑßÒ ÊæÒíÚ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
             ElseIf ComboBox1.Value = "ÇáßÑß - ÇáËäíÉ" And TextBox2.Value = 666 Then
            Worksheets("ÇáßÑß - ÇáËäíÉ").Visible = xlSheetVisible
        Sheets("ÇáßÑß - ÇáËäíÉ").Select
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
         ElseIf ComboBox1.Value = "ÌãíÚ ÇáÕÝÍÇÊ" And TextBox2.Value = 39661822 Then
            
            For Each Ws In Worksheets
            Ws.Visible = True
            Ws.Visible = xlSheetVisible
            
             Next
        

        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        Else
           MsgBox "ßáãÉ ÇáãÑæÑ ÛíÑ ÕÍíÍÉ", vbCritical, "DVB Software"
        ActiveWorkbook.Close
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            End If
            
        'MsgBox "ßáãÉ ÇáãÑæÑ ÛíÑ ÕÍíÍÉ", vbCritical, "DVB Software"
    UserForm1.Hide
    Application.Visible = True
End Sub

Private Sub TextBox1_Change()

End Sub




Private Sub Frame1_Click()

End Sub

Private Sub Label1_Click()

End Sub

Private Sub l5_Click()

End Sub

Private Sub l6_Click()

End Sub

Private Sub UserForm_Activate()
c = 0
For i = 1 To 10000000000#

If c = 1 Then Exit Sub
DoEvents

l6.Left = l6.Left - 0.04

If l6.Left = -250 Then
l6.Left = 210
End If
Next i
b = 0
Do
If b = 1 Then Exit Sub

l5.Caption = Time
DoEvents
Loop
End Sub

Private Sub UserForm_Initialize()
    Me.ComboBox1.List = Worksheets("ÇáãÍØÇÊ").Range("W3:W52").Value
     
End Sub

مبيعات المحطات 2.rar

5 ساعات مضت, ياسر خليل أبو البراء said:

أخي الكريم طارق أين الملف المرفق وأين الكود الذي تتحدث عنه وأين أنت الآن ؟؟

للرفع

مبيعات المحطات 2.rar

منذ ساعه, طارق مساد said:

ارجو المساعدة في هذه المشكلة

للرفع

السادة المحترمين في الملف المرفق 

ملف يحتوي العديد من الصفحات صفحة لكل مستخدم يدخل من خلال يوزر فورم ولكنني اجد مشكلة بان الشيت الذي ادخل عليه نت خلال الفورم لا يكون فعال اي لا استطيع ادخال البيانات عليه

مثال مستخدم القسطل الباسوورد 862

ما هو الكود الناقص للعمل

ارجو المساعدة في هذه المشكلة

 

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

 

وهنا تبسيط للمعادلات حيث تم الاستغناء تماما عن الشرط (0<.............) في كل معادلة، واعتماد أعمدة المواد مع عمود السعر فقط... أرجو أن ينال إعجابك...

 

أخوك بن علية

بارك الله فيك اخي على الاهتمام بالموضوع

وشكرا على المساعدة وجعلها الله في ميزان حسناتك يوم القيامة

 

الملف الجديد : اجمالي طلبات المشترى المحلي.rar

 

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

 

وهنا تبسيط للمعادلات حيث تم الاستغناء تماما عن الشرط (0<.............) في كل معادلة، واعتماد أعمدة المواد مع عمود السعر فقط... أرجو أن ينال إعجابك...

 

أخوك بن علية

بارك الله فيك اخي على الاهتمام بالموضوع

وشكرا على المساعدة وجعلها الله في ميزان حزناتك يوم القيامة

 

الملف الجديد : اجمالي طلبات المشترى المحلي.rar

ارجو المساعدة في تجميع القيم المفلترة بشرط المادة

وحسب الملف المرفق

وشكرا لمن يدلني على المعادلات المستخدمة في مثل هذه الحالة

اجمالي طلبات المشترى المحلي.rar

استاذى العزيز

للاسف هذا الاختيار غير مفعل - وهو بالفعل امامة علامة صح بس غير مفعل

شكرا لسرعة الاستجابة والرد - جزاك الله خيرا

وشكرا

اخي

من قائمة view

ضع علامة صح على

ruler

استفسار هل يمكن اجراء عمليات على رقم الصف في معادلة معينة

مثال

=a20+b15

اريد ان اضيف رقم ثابت لرقم الصف مع ال

b15

مثل 3 في كل مرة

وان اضيف على رقم الصف في

a20

رقم ثابت مثل 2

هل يمكن عمل ذلك

وشكرا

اخي اليك هذا الحل

Book1.rar

اخواني الافاضل  ما هو كود المجال للترحيل من ملف الى اخر

اذا اردت نسخ مجال من صفحة الى صفحة(في ملف اسمه نموذج ادخال manaseer رقم 1.xlsm) استخدمت هذه الصيغة

 Range("a2:k" & LR).Copy

Sheets("ارشيف").Range("a" & Sheets("ارشيف").[a1000].End(xlUp).Row + 1).PasteSpecial xlPasteValues

ماهي الصيغة في حال كنت في ملف اسمه

اجمالي القيود.xlsx

واردت ان انسخ الناتج عليه على

SHEET اسمه manaseer

المرفق الثاني

حالة رقم .21.rar

السادة المحترمين :

لمن يحب المساعدة :

عندي ملف اجمالي وملفات ادخال من نوعين ملفات ادخال مسمية باسم MANASEER  واخرى باسم omc

اريد ان يتم ترحيل ملفات الادخال من النوعين الى ملف الاجمالي كل الى صفحته فهناك في الملف الاجمالي صفحة باسم

MANASEER  واخرى باسم omc وان يتم ترحيل نسخة اخرى في نفس الملفات في صفحة مسمية باسم الارشيف

الملفات مرفقة وهناك ملفات اخرى سارفقها في الاسفل

جزاه الله خير الذي عنده وقت ويحب المساعدة .

مع ارشادي الى طريقة كودات الترحيل ان امكن

اجمالي القيود.rar

ملفات manaseer.rar

أخي الفاضل المعادلة في المشاركة الأولى غير مرفقة في الملف ..

وفي الملف معادلة أخرى ..وهي ليست معادلة مركبة بل معادلة بسيطة ..هي الدالة Round ولها بارمتران الأول هو Number أي الرقم المراد تقريبه وهو في الملف ناتج ضرب خليتين

(E4*F4)

أما البارامتر الثاني خاص بعدد أرقام التقريب وهو في مثالك 3 أرقام ..

وتمت إضافة شرط إذا كانت خلية من الخليتين فارغة يكون الناتج فا

 

 

المقصود تعريف المعدلات  اطلبها من ضمن الدوال اي المعادلات في الشريط الاعلى اسميها  باسم معين

مع الشكر

 

ارفق مثال أخي الحبيب لنفهم المطلوب..

هل تريد تحويل مثل تلك المعادلة إلى UDF أي معادلة معرفة بواسطة المستخدم ..؟ ليتم استخدامها بهذا الشكل مثلاً

=mydate(B2)

اخي العزيز ارجو ان تخبرني عن هذه الطريقة فانا استطيع ان اسمي خلية او مجموعة خلايا لكن لا استطيع ان اعرف معادلة

هذا مثال يوضح المطلوب

تحويل دالة مركبة الى دالة تظهر ضمن الدوال.rar