اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

أبو وليد

03 عضو مميز
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    325

  • تاريخ الانضمام

  • تاريخ اخر زياره

 نوع المحتوي 

مشاركات المكتوبه بواسطه أبو وليد

    تطبيق المعادلة على كامل العمود

    في منتدى الاكسيل Excel

    قام بنشر

    منذ ساعه, عبد العزيز البسكري said:

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

    أخي الكريم من الأفضل أن تطرح سؤالك بقسم " الأكسس "

    فائق إحتراماتي

    اسف جدا

    اقصد اكسيل

     

    تم التعديل

    منذ ساعه, سليم حاصبيا said:

    نموذج بسيط عما تريد يمكن تعميمة بمعادلات اخرى

     

    fill_formulas.zip

    يعطيك العافية

    مافي خيار غير الكود

     

    تطبيق المعادلة على كامل العمود

    في منتدى الاكسيل Excel

    قام بنشر · تم تعديل بواسطه أبو وليد

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

    مساء الخير

     

    لدي عمود الخلية الأولى بها معادلة

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

     

    ثانيا

    في اكسيل 2007 تثبيت قيمة خلية يكون ب F4

    في اكسيل 2010 ما هو الاختصار

     

    بارك الله فيكم

    نسخ بيانات من ورقه لمجموعة اوراق

    في منتدى الاكسيل Excel

    قام بنشر

    صباح الخير استاذي الفاضل

     

    بعد أن طبقت الكود على ملفي الرئيسي

    يعمل الكود بصورة رائعة جدا وحسب المطلوب

    الا انه عند الانتهاء يعطيني رساله مفاده

    run time error 13

    type mismatch

    ويحولني على صفحة الكود

    ويعلم على السطر التالي باللون الأصفر 

    If Evaluate("=ISREF('" & Cel.Value & "'!A1)") Then

     

    جلب البيانات من أكثر من شيت بدلالة اسم الشيت

    في منتدى الاكسيل Excel

    قام بنشر

    20 ساعات مضت, الـعيدروس said:

    السلام عليكم

    اسعد الله اوقاتك اخي ابو تميم

    ان شاء الله تكون بأحسن حال

     

    الكود الاول لاستخراج اسماء الاوراق عدا الورقة الحاليه

    مع اضافة هيبرلينك 

    
Sub Ali_Ad_H()
Dim W As Worksheet
r = 2
For Each W In Sheets
 If Not W.Name = ActiveSheet.Name Then
  With ActiveSheet
    .Cells(r, 1) = W.Name
    .Cells(r, 4) = W.Cells(4, 6)
    .Cells(r, 1).Hyperlinks.Add Anchor:=.Cells(r, 1), _
     Address:="", SubAddress:="'" & W.Name & "'!F4", TextToDisplay:=W.Name
    r = r + 1
  End With
 End If
Next W
Set W = Nothing
End Sub

     

    وهذا كود اخر اخذ اسماء الاوراق حسب العمود A 

    
Sub Ali_Ad_H1()
Dim W As Worksheet
r = 2
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
 Set W = Sheets(CStr(Trim(Cells(i, 1))))
  With ActiveSheet
    .Cells(r, 4) = W.Cells(4, 6)
    .Cells(r, 1).Hyperlinks.Add Anchor:=.Cells(r, 1), _
     Address:="", SubAddress:="'" & W.Name & "'!F4", TextToDisplay:=W.Name
    r = r + 1
  End With
Next i
Set W = Nothing
End Sub

     

    رائع هل من الممكن أن يكون الكود لمره واحده

    أي يضيف عملية الربط الى الخلايا وتكون بعد ذلك تحدث تلقائيا

×
×
  • اضف...

Important Information

  I accept