بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
-
Posts
8,486 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
36
Community Answers
-
محمد طاهر عرفه's post in من أين نحصل على ملفات add in للأكسل was marked as the answer
ان ملفات ال add-in هي اضافات تم برمجتها من قبل آخرين
و تحويلها الي add-in لتكون جاهزة للاستخدام
و من الافضل أن نحاول تعلم الكود نفسه و عمل ال add-in بأنفسنا ، و تحويلها بعد ذلك ال add-in اذا أردنا
و طبعا لا مانع من عرض ما هو جاهز لنستفيد منه ، و لكنه فى الغالب لا يكون متاحا فى صورة ملفات مفتوحة
-
محمد طاهر عرفه's post in حماية أكواد الvba من العبث was marked as the answer
افتح محرر البيزيك ALT+F11
اختار
Tools
vba project properties
protection
lock project from viweing
و اكتب كلمة السر
و هذا كافي للحماية من غالبية المستخدمين
اللهم الا من سيحاولون العبث ببعض ادوات كسر كلمات السر
و لذلك يستحسن أن تجعل كلمة السر مزيج من الاحرف و الكلمات و أن تجعل بعضها كابيتال و ذلك من أجل تصعيب المهمة علي برامج الاختراق وأن تجعلها كلمة طويلة
-
محمد طاهر عرفه's post in مستند ثابت و لبيانات متغيرة حسب الطلب was marked as the answer
قم بوضع بيانات الطلبة فى ورقة عمل
و قم بتصميم الشهادة فى الاخري
ثم قم باستدعاء البيانات بناء علي رقم الطالب
باستخدام الدالة vlookup
و يوجد عليها فى قسم خلاصة المشاركات عدة أمثلة
و مرفق مثال علي ما تريد
و بصفة عامة
فان الدالة تحوي 3 أجزاء أساسية و واحد خياري
الاول للقيمة التي تبحث عنها
و الثاني لمجال البحث
و الثالث لرقم العمود المطلوب اعادته من مجال البحث
و الرابع خياري
و هو يعبر عن تصرف الدالة فى حالة عدم وجود القيمة التي نبحث عنها فى المجال ، هل تعيد البيانات المناظرة أقرب قيمة لها أم لا ، و هنا فى المثال سيكون المطلوب هو "لا" طبعا
و لذلك وضعنا الجزء الرابع = False
و القيمة الافتراضية لها هي True أي ما تعتبره الدالة عند عدم تسجيل الجزء الرابع فى المعادلة
vlookup4.rar
-
محمد طاهر عرفه's post in عد الخلايا التي تحوي حرف معين was marked as the answer
هل المقصود حرف واحد أم ستضع أكثر من حرف فى الخلية
اذا كان حرف واحد أيا كان
فيمكنك استخدام الدالة counta لعد الخلايا التي بها بيانات فى مجال محدد
-
محمد طاهر عرفه's post in شباب لماذا لا تظهر الخطوط في الاكسل was marked as the answer
السلام عليكم
مرفق ملف مسجل به الماكرو
و الان اضف قاءمة جديدة الي القوائم الموجود بجوار التعليمات كما تريد
Toold
Customize
command
new menu
ثم أضف اليها زر
custom button مثلا
من مجموعة ماكرو ( الخيار الثاني )
ثم بعد اضافته الي القائمة و مربع الحوار مازال مفتوحا
اختاره و بالزر الايمن اختار
assign macro
و اختار ماكرو المسمي Tohama
و بالنقر علي الزر اثناء التشغيل سيتم تحويل اي خط فى الخلايا المختارة الي تهامة
لا تنسي تعديل مستوي أمان الماكرو لي يعمل الكود
Tools
Macro
security
medium
or
low
Font_Tohama.rar
-
محمد طاهر عرفه's post in ممكن تساعدوني في تعريف الدوال التالية was marked as the answer
الموضوع ليس اكسيل فقط و لكنه مليء بالمصطلحات الرياضية
و سافتح المجال لمن لديه المام أكثر بالموضوع :
هذا ما فهمته من التعليمات :
الدالة Trend
تعطيها مجال البيانات المتاح من س و ص و تستنتج لك القيمة ص المناظرة ل س جديدة بناء علي المعطيات
س = x
ص = y
بناء علي امتداد معادلة خطية يتم استنتاجها من القيم المتاحة باستخدام طريقة رياضية تسمي Least square
الدالة FORECAST
تقوم بنفس المهمة للمعادلة
y=mx+b
أي يمكن تعربف ثابت اضافي فيها
و في النهاية تستنتج Y المناظرة ل x و b
ايضا الاستنتاج يتم بما يسمي Linear regression
و مرفق مثال يوضح حالة trend و حالة Forecast بثابت و بدون
أما عن الفارق ببين الزيادة الخطية و الاسية
فهذا لا يخص الدوال و لكنه يخص أمر
Edit
Fill
Series
فمثلا
1
2
يكملها اكسيل
3
4
لو الزيادة خطية
و يكملها
4
8
16
لو الزيادة أسية
Trend.rar
-
محمد طاهر عرفه's post in هل يوجد موقع متخصص في الأكسل was marked as the answer
http:/www.officena.net :lol:
http://www.lacher.com/toc.htm
http://www.usd.edu/trio/tut/excel/
http://www.baycongroup.com/el0.htm
http://www.cpearson.com/excel.htm
http://www.xl-logic.com/menu.html
-
محمد طاهر عرفه's post in اريد شرح بسيط لهذا الكود was marked as the answer
يبدو لي أن هذا الكود خاص بالاكسس و ليس الاكسيل
فاذا كان فيرجي طرح الموضوع فى قسم الاكسس
اما عن الدوال ، فهي واحدة فى كل ال vba في مختلف تطبيقاته
trim
تزيل الفراغات الموجودة قبل و بعد النص
تعبيرات
Like *m* Like m* Like *m عن شرط أن النص : به m يبدأ ب m و يليه أي حاجة ينتهي ب m و قبلها أي حاجة send keys تقوم بمحل الكتابة علي ازرار محددة مثلا SendKeys "%{F4}", True
كانك كتبت
علي لوحة المفاتيح
ALT+F4
و بالنسبة لتعريف المتغيرات ، يوجد فى ارشيف قسم الاكسس شرح متميز للاخ حارث ، لاساسيات كتابة الاكواد
-
محمد طاهر عرفه's post in اريد معرفة طريقة الجمع والطرح في الآكسل في وقت واح was marked as the answer
لنفرض أن لديك قيم فى الخلايات من a1:a10 تريد جمعها
و كل القيم بها = 20 فيما عدا الخلية a4 بها القيمة = 10
للجمع الكامل
=SUM(A1:A10) النتيجة 190 للجمع الكامل ثم طرح a4 =SUM(A1:A10)-A4 النتيجة 180 للجمع بدون a4 ثم طرح a4 =SUM(A1:A3;-A4;A5:A10) أو =SUM(A1:A3;A5:A10)-A4
النتيجة 170
و لسهولة كتابة Sum مع مجال متعدد نختار اول جزء ثم نضغط ctr و نختار التالي
-
محمد طاهر عرفه's post in كيف نجمع عمود للأرقام الموجبه فقط ؟ was marked as the answer
و عليكم السلام و رحمة الله و بركاته
من هنا
-
محمد طاهر عرفه's post in إعداد الصفحة was marked as the answer
يمكن ذلك و يمكن ادخال البيانات فيها جميعا أو فى اكثر من شيت
و ذلك باختيارها من التبويب Tab السفلي الذي فيه اسم الشيت
ثم تطبيق التنسيق أو الادخال
و لاختيار اكثر من شيت متباعد نضغط CTR
و متتالي نضغط Shift
و لاختيار الكل نختار اسم احد الشيتات بالزر الايمن ثم
Select all sheets
-
محمد طاهر عرفه's post in عرض خاص لأعضاء منتدى أوفيسنا - ينتهي العرض بتاريخ 5 نوفمبر 2022 was marked as the answer
بالتعاون مع موقع إدارة.كوم www.edara.com عرض خاص و حصري لأعضاء منتدى أوفيسنا
العرض ساري فقط حتى 5 نوفمبر 2022
وهذه هي الوصلات المباشرة للاستفادة الحصرية من العرض :
عرض منتدى أوفيسنا - اشتراك المدير الشامل 12 شهر
عرض منتدى أوفيسنا - اشتراك المدير الشامل 30 شهر
عرض منتدى أوفيسنا - اشتراك المدير الشامل 12 شهر
عرض منتدى أوفيسنا - اشتراك المدير الشامل 30 شهر
-
محمد طاهر عرفه's post in الانتقال للسطر الثاني في نفس الخلية بالاكسيل was marked as the answer
أو لتحديد مكان النزول لسطر جديد
استخدم
ALT+Enter
-
محمد طاهر عرفه's post in كيف يمكن أن يكون نتتج طرح الوقت بالدقائق فقط was marked as the answer
بالنسبة للدقائق
فاختار التنسيق [mm] ليكون بالدقائق فقط
و لاختيار التنسيق الخاص
اختار تنسيق
ثم آخر الخيارات و هي Custom فى التسخة الانجليزية و ربما تكون تخصيص او مخصص فى العربية و ضع فيها [mm]
المثال
TimeDiff.zip
-
محمد طاهر عرفه's post in الاكمال التلقائي للكتابة was marked as the answer
و أضاف الاستفسار التالي :
كما أسأل عن معنى Autocorrect :
==================================
الاجابة :
Autocorrect = التصحيح التلقائي أو التصحيح الآلي
هذا من ناحية المعني
و هي من قائمة
Tools = ادوات
و الخيار اسمه autocorrect options
-
محمد طاهر عرفه's post in الأستهداف Goal Seek was marked as the answer
بعد إذن الأخ أحمد
استغليت نفس المثال لاضافة الطريقة بالكود
اختار الخلية الهدف ( الصفراء )
ثم شغل الماكرو ( ALT+F8 )
ثم اختار الماكرو و اضغط Run
سيسألك عن القيمة المستهدف الوصول اليها ، و يغير أصل الراتب ليصل الصافي الي القيمة التي ستحددها
Sub GoolSeekit() Dim x As Double x = InputBox("Please Choose the Value", "Goal Seek Example ", 900) ActiveCell.GoalSeek Goal:=x, ChangingCell:=Range("b4") End Sub
-
محمد طاهر عرفه's post in معادلة لحساب مجموع الساعات بشكل عدد صحيح was marked as the answer
استخدم الدالة الآتية :
Function Mytimediff(t1, t2) tdif = Abs(Hour(t2) - Hour(t1) + Minute(t2) / 60 - Minute(t1) / 60) Mytimediff = tdif End Function
أدرجها فى موديول جديد
و استدعها كما تتستدعي الدوال و لكن من مجموعة
user defined functions
مرفق المثال
تم تعديل المثال باضافة الطريقة المباشرة فى مشاركة أبو هادي
Timediffhours.zip
-
محمد طاهر عرفه's post in أين يوضع الكود و كيف أفعل الكود ؟؟ was marked as the answer
لتشغيل الكود فى الاكسيل
اما تشغيله عند حدث معين
مثل :
فتح ملف
تغيير فى ورقة عمل
ضغط علي زر
و للتعرف علي الاحداث المرتبطة بالكائنات
اضغط alt+F11
ثم انقر مرتين علي اكائن سواء كان الملف أو ورقة العمل
ستجد فى اليمين مربعي سرد COMBO BOX من أحدها تختار الكائن و من الاخر تختار الحدث
فيكتب لك بداية الروتين الفرعي المرتبط بالحدث
و الذي تضع الكود داخله
مثل
Private Sub Workbook_Open() هنا يكتب الكود End Sub أو اذا كان مكتوب فى Sub Routine لها اسم مخصص غير مرتبط بحدث مثل Sub IBNSINA1() هنا يكتب الكود End Sub سيظهر فى قائمة الماكرو و يمكن تشغيله من القائمة أو بضغط ALT+F8 و اختياره ثم تشغيله و اذا كان فى دالة Function Function IBNSINA() هنا يكتب الكود End Function
فيمكن استدعاء الدالة مثل باقي الدوال الموجودة فى الاكسيل
و ذلك من القسم المسمي User Defined Functions
من مجموعات الدوال
و توجد مقدمة عن الكود و استخدامه فى الاكسيل هنا
( اضغط هنا )
-
محمد طاهر عرفه's post in بيانات الانترنت was marked as the answer
دع الصفحة المرتبطة بالنت كما هي
اختار و رقة عمل جديدة و نسقها كما تشاء
و اربط الخلايا بها ، بورقة العمل المربوطة بالنت
-
محمد طاهر عرفه's post in كيف أمنع تسجيل قيمة فى خلية مع وجود قيمة فى أخرى was marked as the answer
جرب ادخال قيمة فى نفس السطر فى العمودين
a,b
فى الملف المرفق
PreventinsameRaw.rar
-
محمد طاهر عرفه's post in معادله نسبة مئوية was marked as the answer
أهلا بك
=+IF(B3<5000;B3*0.00125;(B3-50000)*0.001+50000*0.00125)
-
محمد طاهر عرفه's post in وضع أكثر من كود بورقة عمل واحده ؟ was marked as the answer
Private Sub Worksheet_Change(ByVal Target As Range) If Range("B" & Target.Row).Value > 0 And Range("A" & Target.Row).Value > 0 Then MsgBox "لا يمكن الإيداع والسحب في نفس العملية", , "عفوا" Target.Value = "" Exit Sub End If If Target.Value <> "" Then If Target.Column = 1 Then MsgBox "تمت أضافة المبلغ", , "تهانينا" End If If Target.Column = 2 Then MsgBox "تم خصم المبلغ ", , "أحسن الله عزاك" End If End If End Sub
ملاحظة : الكود مجمع للأخ أبو أحمد مشكورا
-
محمد طاهر عرفه's post in اضافة خيارات عند اضافة كود was marked as the answer
السلام عليكم
للاسف هذا الخيار غير موجود بالمحرر
و الحل المتاحة هو التعامل مع الكود كصورة و اضافة الاشارات اليها بدلا من محرر الاكواد
-
محمد طاهر عرفه's post in المساعدة في استرجاع الحساب was marked as the answer
السلام عليكم
هل مازال لديك امكانية للدخول على بريد الياهو المسجل بالحساب الاصلي ؟
ارسلت لك رسالة على الخاص
-
محمد طاهر عرفه's post in تغيير مكان الروت تلقائيا بالملفات المرتبطة was marked as the answer
أبسط الحلول هي أن تكون الملفات كلها فى مجلد واحد و بالتالي لا تتأثر بنقل المجلد بالكامل
و اذا كان هناك ملف به معادلات مرتبط بملفات أخري بها مصدر للبيانات فى مجلد معين و تغير مكان هذا المجلد يمكنك استبدال المسار باستخدام خاصية الاستبدال CTR+H
مثلا اذا كان المجلد الذي به البيانات سابقا فى المسار
C:\Users\mtara\Desktop\@risk\4\ ز كان اسم الملف على سبيل المثال b.xlsx
و كانت احدى المعادلات فى الملف الذي به المعادلات على سبيل المثال
C:\Users\mtara\Desktop\@risk\4\[b.xlsx]bb'!$A$1 و تم نقل الملف b.xlsx الذي يمثل مصدر البيانات الي المسار
C:\Users\mtara\Desktop\1\ فتصبح المعادلة
='C:\Users\mtara\Desktop\1\[b.xlsx]bb'!$A$1 فيتم تنفيذ الاستبدال كالتالي مرة واحدة فى ورقة العمل بالملف الذي به المعادلات فتتحدث كل المعادلات لتقرأ من الملفات التي هي فى المسار الجديد :
و تتغير كل الملفات