البحث في الموقع

السلام عليكم دالة الصفيف kh_MatchArray لارجاع ارقام صفوف سجلات حسب شروط الوسائط: عبارة عن صفيف يحقق (شرط / شروط) في عمود معين من قاعدة البيانات ادخل الشروط التي تريدها من 1 الى 30 الاستخدام : كشوفات الحساب التقارير بانواعها الميزة : لا ترهق الجهاز في المثال المرفق استخدمتها لقاعدة بيانات عدد سجلاتها اكثر من 15000 سجل والسبب انها معادلة وحدة نتائجها صفيف لهذا توضع على اكثر من خلية ولكن مكان تعديلها الخلية الاولى لوضعها مع تحديد باقي الصفوف الموضوعة فيها . اضغط F2 لتحرير الصيغة ثم اضغط CTRL+SHIFT+ENTER اذا حاولت تعدل اي خلية موضوعه فيها الدالة (جزء من صفيف الدالة) تظهر لك رسالة ( لا يمكنك تعديل جزء من صفيف) استخدم حينها ESC لانهاء تحرير الدالة . طبعا نتائجها ارقام الصفوف التي تحقق الشرط اعلى نطاق الدالة والاخرى رقم صفر بمعنى لا يحقق الشرط وهي اسفل النطاق تضعها في عمود يمين او يسار الكشف المتبقي علينا نستخدم دالة INDEX لاظهار الاعمدة الت نريدها من قاعدة البيانات كود الدالة: Option Explicit '============================================= '============================================= Function kh_MatchArray(ParamArray Array1() As Variant) Dim Ar() As Long Dim x As Integer, xx As Integer, xxx As Integer Dim iCont As Long, i As Long, ii As Long xx = UBound(Array1) If xx = -1 Then GoTo kh_Err iCont = UBound(Array1(0), 1) ReDim Ar(1 To iCont, 1 To 1) For i = 1 To iCont xxx = 1 For x = 0 To xx xxx = xxx * IIf(CBool(Array1(x)(i, 1)), 1, 0) Next If xxx Then ii = ii + 1: Ar(ii, 1) = i Next kh_MatchArray = Ar kh_Err: Erase Ar End Function المرفق 2003-2007 kh_MatchArray.rar

لقد وجدت موضوع بأن هناك 67 دالة ولكن لم اجد لها شرح وهل هناك دالات غير الموجودة داخل برنامج الاكسل حالياً وهذا رابط الموضوع http://www.mouwazaf-dz.com/t5073-topic فمن لدية معرفه بها فليزودنا بها وله الشكر morefunc شرح نقوم بتنصيب الملف بعد تحميله من الرابط التالي (برنامج إكسيل يجب أن يكون مغلقا ونختار أثناء التنصيب اللغة التي تكون بها هذه الدوال (الفرنسية أو الإنجليزيةوبعد التنصيب يفتح برنامج إكسيل ورقة نجد فيها مساعدات حول هذه الدوال... نغلق الملف المفتوح (ملف المساعدة) إذا لم نكن بحاجة إليه... وسنجد هذه الدوال الجديدة (67 دالة جديدة) بعد فتح أي ملف جديد أو قديم في قائمة الدوال تحت عنوان morefunc... Morefunc est une macro complémentaire proposant 67 nouvelles fonctions de feuille de calcul pour Excel. Ces fonctions sont compatibles avec Excel 95 à 2007. Elles ne sont pas portables sur d'autres plate-formes que Windows, ni sur d'autres tableurs. Ce complément est écrit en C++ et contenu dans un fichier XLL, c'est à dire une DLL capable de s'interfacer avec Excel. La rapidité du code compilé permet d'obtenir une vitesse de calcul souvent comparable à celle des fonctions intégrées d'Excel. Morefunc est distribué en tant que Freeware et son installation est entièrement automatisée. Fonctions : Date et heure DIFFDATE : Renvoie la durée écoulée entre deux dates en nombre d'années, mois et jours DIMPAQUE : Renvoie la date du dimanche de Pâques pour une année donnée NUM.SEMAINE : Calcule le numéro de semaine d'une date (conforme à la norme ISO) Information EVA : Evalue une expression donnée sous forme de texte INDIRECT.EXT : Renvoie le contenu d'une cellule ou d'une plage contenue dans un classeur fermé MRFVERSION : Renvoie le numéro de version de Morefunc NOMCLASSEUR : Renvoie le nom du classeur courant NOMFEUILLE : Renvoie le nom d'une feuille dans le classeur en cours NUMPAGE : Renvoie le numéro de page d'une cellule TEXTEFORMULE : Renvoie la formule d'une cellule XLM.LIRE.CELLULE : Renvoie des informations sur la mise en forme, la position ou le contenu d'une cellule XLM.LIRE.CLASSEUR : Renvoie des informations sur le classeur courant XLM.LIRE.DOCUMENT : Renvoie des informations sur une feuille ou le classeur courant XLM.LIRE.ENV : Renvoie des informations sur l'environnement Mathématiques ALEAS : Renvoie une série d'entiers à partir de 0 ou 1 arrangés aléatoirement sans répétition ARRONDI.MAT : Renvoie un tableau d'arrondis équilibrés CHBASE : Convertit une valeur d'une base numérique à une autre DETERMAT.EXT : Renvoie le déterminant d'une matrice de grande taille HEX.AND : Effectue un ET logique sur des nombres hexadécimaux HEX.FORMAT : Formate un nombre hexadécimal en fonction du nombre de bits indiqué HEX.NEG : Inverse le signe d'un nombre hexadécimal HEX.NOT : Inverse les bits d'un nombre hexadécimal (NON logique) HEX.OR : Effectue un OU logique sur des nombres hexadécimaux HEX.SOMME : Renvoie la somme de nombres hexadécimaux INVERSEMAT.EXT : Inverse une matrice de grande taille MOYENNE.GEO.EXT : Moyenne géométrique supportant des calculs de grande capacité MOYPOND : Renvoie une moyenne pondérée NP.ESTPREMIER : Teste si un nombre est premier (méthode probabiliste) NP.SUIVANT : Renvoie le plus petit nombre premier supérieur ou égal au nombre indiqué PRODUITMAT.EXT : Effectue un produit matriciel entre des tableaux de grande taille Statistiques ECARTYPE.GROUPE : Evalue l'écart-type d'une population groupée en classes ECARTYPEP.GROUPE : Calcule l'écart-type d'une population groupée en classes MMAX : Renvoie les N plus grandes valeurs d'une table MMIN : Renvoie les N plus petites valeurs d'une table NB.DIFF : Renvoie le nombre de valeurs distinctes d'une plage NB.SI.3D : Dénombrement conditionnel sur une plage 3D VAR.GROUPE : Evalue la variance d'une population groupée en classes VARP.GROUPE : Calcule la variance d'une population groupée en classes Texte ANSI128 : Enlève les accents d'une chaîne de caractères MCONCAT : Concatène l'ensemble des valeurs d'une plage ou d'un tableau NB.MOTS : Renvoie le nombre de mots contenus dans un texte NBTEXTE : Transcrit un nombre en toutes lettres (13 langues supportées) REGEX.COMP : Teste la présence d'une expression régulière dans un texte REGEX.NBCAR : Renvoie le nombre de caractères d'une expression régulière trouvée dans un texte REGEX.NOMBRE : Compte le nombre d'occurences d'une expression régulière dans un texte REGEX.STXT : Extrait une sous-chaîne de caractères en utilisant les expressions régulières REGEX.SUBSTITUE : Remplace des caractères dans un texte en utilisant une expression régulière REGEX.TROUVE : Renvoie la position d'une expression régulière dans un texte STEXTE : Renvoie un mot ou groupe de mots situé à une certaine position dans un texte TEXTEINVERSE : Inverse l'ordre des caractères d'un texte Tri automatique TRIH : Trie les colonnes d'une plage ou un tableau (jusqu'à 14 clés de tri) TRIH.IDX : Renvoie les index d'un tri horizontal TRIV : Trie les lignes d'une plage ou un tableau (jusqu'à 14 clés de tri) TRIV.IDX : Renvoie les index d'un tri vertical VALEURS.UNIQUES : Renvoie les valeurs uniques d'un ensemble de données Autres fonctions DECALERFEUILLE : Renvoie une plage décalée d'une ou plusieurs feuilles DERCELL : Renvoie la dernière cellule ou ligne non vide d'une plage DVAR : Sauvegarde une valeur dans une variable temporaire LVAR : Récupère la valeur d'une variable temporaire RAPPEL : Renvoie le dernier contenu de la cellule appelante REGION : Renvoie la région d'une cellule (similaire à la méthode CurrentRegion en VBA) SUITE : Génère une suite d'entiers croissants TAB.FILTRE : Renvoie uniquement les cellules visibles d'une plage TAB.JOINDRE : Assemble des éléments épars dans un tableau TAB3D : Assemble les valeurs d'une référence 3D dans un seul tableau UNION.DECALER : Effectue un décalage sur une union de plages disjointes

السلام عليكم ورحمة الله وبركاته كل عام وانتم بخير دالة kh_ShowImage دالة تمكنك من وضع صورة داخل شكل تلقائي اتوماتيكيا يمكنك تغيير اسم او مسار مجلد الصور من داخل كود الدالة وسائط الدالة NameImag اسم الصورة افتراضي ImagRng خلية وضع الصورة افتراضي MyWidth عرض الصورة اختياري MyHeight طول الصورة اختياري ـ اذا لم تحدد طول او عرض معين للصورة تاخذ الصورة عرض وطول الخلية الموضوعة فيها ImagRng ـ اذا قمت بتحريك الصورة يدويا تفقد الصورة ارتباطها بالدالة وعند تحديث الدالة تقوم باضافة الصورة مرة اخرى في مكانها المحدد في الدالة كود الدالة: Option Explicit Option Compare Text '============================================= ' عرض صورة في الخليةِ ' Showing an image in cell '============================================= ' اسم مجلد الصور ' اذا كان مجلد الصور في نفس مجلد ملف الاكسل ' اكتب اسمه فقط ' والا اكتب المسار كاملا ' "D:\MyDocument\MyFunction\photo" Private Const kh_pic As String = "MyImeg" '============================================= ' امكانية تحرير اي نوع من الصور لديك ادناه Private Const MyTyp As String = ".jpg,.bmp,.gif,.png,.tif" '============================================= '============================================= Function kh_ShowImage(ByVal NameImag, ByVal ImagRng As Range, Optional ByVal MyWidth As Single, Optional ByVal MyHeight As Single) Dim Tp Dim shp As Shape Dim ibo As Boolean Dim MyTop As Single, MyLeft As Single Dim MyFile As String, MyPath As String '---------------------------------- On Error GoTo 1 '---------------------------------- MyTop = ImagRng.Top: MyLeft = ImagRng.Left With ImagRng.Worksheet For Each shp In .Shapes If shp.Top = MyTop And shp.Left = MyLeft Then shp.Delete: Exit For End If Next shp End With '----------------------------------- If IsEmpty(NameImag) Then GoTo 1 '----------------------------------- If MyWidth = 0 Then MyWidth = ImagRng.Width If MyHeight = 0 Then MyHeight = ImagRng.Height '----------------------------------- If Not InStr(kh_pic, ":") Then MyPath = ThisWorkbook.path & "\" MyFile = MyPath & kh_pic & "\" & CStr(NameImag) '----------------------------------- For Each Tp In Split(MyTyp, ",") If Not Dir(MyFile & Trim(Tp), vbDirectory) = vbNullString Then With ImagRng.Worksheet.Shapes.AddShape(msoShapeRectangle, MyLeft, MyTop, MyWidth, MyHeight) .Fill.UserPicture MyFile & Trim(Tp) End With ibo = True Exit For End If Next 1 kh_ShowImage = ibo End Function المرفق 2003-2010 دالة عرض صورة في خلية بطول وعرض اختياري.rar

المطلوب : اذا كانت الخلية A3 او الخلية B3 = "المبيعات" في صفحة " اليومية " ; فإن "A3" في صفحة المبيعات = الخلية "C3" التي في صفحة اليومية =IF(اليومية!A3="المبيعات";اليومية!C3;"") مطلوب تعديل هذة الدالة المطلوب : اذا كانت الخلية A3 او الخلية B3 = "المبيعات" في صفحة " اليومية " ; فإن "B3" في صفحة المبيعات = الخلية "D3" التي في صفحة اليومية =IF(اليومية!A3="المبيعات";اليومية!D3;"") مطلوب تعديل هذة الدالة طلب اضافة دالة.rar

السلام عليكم دالة استخراج اسم ولي الامر كاملا او الاسم الاول مفردا Option Explicit ' بسم الله الرحمن الرحيم " ' ******************** " ' دالة استخراج اسم ولي الأمر " '========================================" ' True = kh_First اذا كان " ' او اي رقم غير الصفر " ' تقوم باستخراج الاسم الاول " '========================================" ' يامكانية معالجة الاسم المركب الاول " ' تلقائياً حسب معايير معرفة لديها " ' Kh_Father_Replace في الدالة " ' ويمكنك اضافة اي معيار آخر " ' بجانب المعايير الموجودة " ' MyArray في المتغير " ' مع مراعاة وجود فراغ بداية ' او نهاية المعيار '========================================" '----------------------------------------------------------------- Function Kh_Father_Name(ByVal Name As String, Optional kh_First As Boolean) As String Dim KhString As String, Kh_Mid As String, Kh_Rep As String Dim KhMyNo As Integer On Error GoTo Err_Kh_Father_Name If IsEmpty(Name) Then GoTo Err_Kh_Father_Name KhString = Kh_Father_Replace(Trim(Name)) & " " KhMyNo = InStr(1, KhString, " ", 1) If kh_First Then Kh_Mid = Trim(Mid(KhString, 1, KhMyNo)) Else _ Kh_Mid = Trim(Mid(KhString, KhMyNo, Len(KhString))) Kh_Rep = Replace(Kh_Mid, "^", " ") Kh_Father_Name = Kh_Rep Exit Function Err_Kh_Father_Name: Kh_Father_Name = "" End Function Private Function Kh_Father_Replace(ByVal Kh_Sub As String) As String Dim MyArray, Ar Dim Sn As String, Re As String '==================================================== ' يمكنك اضافة اي معيار آخر هنا بجانب المعايير الموجودة MyArray = Array("عبد ", "أبو ", "ابو ", "آل ", " الله" _ , " الدين", " الإسلام", " الاسلام", " الحق") '==================================================== Sn = Kh_Sub For Each Ar In MyArray Re = Replace(Ar, " ", "^") Sn = Replace(Sn, Ar, Re) Next Kh_Father_Replace = Sn End Function خبور خير استخراج اسم ولي الامر كاملا او الاسم الاول مفردا.rar

اخواني الكرام كل عام وانتم جميعا بخير لدي هذا الفورم والذي اقوم فيه برصد درجات الطلبة وفيه وحدة نمطية بها كود ونظرا لاني احتاج الى تكرار هذا الكود مرات عديدة اريد : اولا كيفية تحويله الى دالة وكيفية استدعائها في كل حدث ثانيا كيفية تحديث كل سجلات الجدول حسب المعطيات الجديدة مرة واحدة وذلك عن طريق زر امر لتحديث كل البيانات وهذا الزر يحتوي على الكود الموجود في الوحدة النمطية اليكم المثال المرفق students.rar

السلام عليكم Option Explicit ' بسم الله الرحمن الرحيم " ' ********************* " ' دالة استخراج النص او الارقام " '==============================================" ' False = مهمل او Kh_Number اذا كان " ' تقوم باستخراج النص " ' True = Kh_Number اذا كان " ' تقوم باستخراج الارقام " '==============================================" '----------------------------------------------------------------- Function Kh_Replace_Text(ByVal Kh_Sub As String, Optional Kh_Number As Boolean) Dim Num As Byte, C As Integer Dim Sn As String, Re As String, Md As String Sn = Trim(Kh_Sub) For Num = 0 To 9 Sn = Replace(Sn, Num, "") Next Num If Kh_Number Then Re = Trim(Kh_Sub) Do While C < Len(Trim(Sn)) C = C + 1 Md = Mid(Sn, C, 1) Re = Replace(Re, Md, "") Loop Kh_Replace_Text = CDbl(Re) Else Kh_Replace_Text = Trim(Sn) End If End Function دالة استخراج النص او الارقام.rar

السلام عليكم Option Explicit ' بسم الله الرحمن الرحيم " '======================================" ' دالة استخراج الاسماء من اسم مركب طويل ' kh_index بدلالة ترتيب الاسم '======================================" ' kh_index ' اذا كانت مهملة او نصاً او صفرا ' تقوم باستخراج الاسم الاول '======================================" ' وهي تقوم بإستخراج الاسماء المركبة ' للاسم الواجد ' تلقائياً حسب معايير معرفة لديها ' MyArray في متغير الجدول ' ويمكنك اضافة اي معيار آخر ' بجانب المعايير الموجودة ' مع مراعاة وجود فراغ بداية ' او نهاية المعيار '======================================" '----------------------------------------------------------------- Function kh_Name(Name As String, Optional kh_index = 1) As String Dim kh_ind As Integer Dim kh_Split, MyArray, Ar Dim Kh_String As String, Sn As String, Re As String, kh_Split_index As String, Kh_Rep As String On Error GoTo Err_Kh_Name kh_ind = Val(kh_index) If kh_ind = 0 Then kh_ind = 1 '====================================== MyArray = Array("عبد ", "أبو ", "ابو ", "آل " _ , " الله", " الدين", " الإسلام", " الاسلام", " الحق") '====================================== Sn = Application.WorksheetFunction.Trim(Name) For Each Ar In MyArray Re = Replace(Ar, " ", "^") Sn = Replace(Sn, Ar, Re) Next '====================================== Kh_String = Sn kh_Split = Split(Kh_String, " ", , vbTextCompare) kh_Split_index = kh_Split(kh_ind - 1) Kh_Rep = Replace(kh_Split_index, "^", " ") kh_Name = Kh_Rep Exit Function Err_Kh_Name: kh_Name = "" End Function تجزئة الاسماء من اسم طويل.rar