نجوم المشاركات

للأسف جدا صعب و الأصعب عنوان الموضوع

السلام عليكم هناك في بداية بيانات السيستم القديم حرف غير مرئي (رمزه 253) والدوال التي استعملتها لا تقوم بحذفه لذا استعملت دالة الاستبدال SUBSTITUATE بالمعادلة المطبقة في الملف (حيث تم استبدال هذا الحرف بفراغ)... أرجو أن تفيدك في عملك... بن علية حاجي ملف الفحص.xlsx

تفضي هذه المشاركة من قبلي الاصناف.rar

أهلا الجميع.. في الحقيقة مشاركات متنوعة وجميلة لاستخدام دوال ويندوز WIN32API .. -- مشاركة أ. @Khalf : مبنية على البحث عن النوافذ المفتوحة في شريط المهام بواسطة الدالة EnumWindows مع استخدام دالة التغذية الراجعة EnumWindowCallback.. (تستخدم هذه الدالة لتطبيق بعض الإجراءات التي يحددها المستخدم في دالة التغذية الراجعة على النوافذ المفتوحة). ولهذا هي طويلة بعض الشيء. -- مشاركة أ. @jjafferr : هي أيضا لها علاقة بالنوافذ المفتوحة في شريط المهام؛ ولكنه استخدم الطبقة الرئسية للنوافذ المفتوحة، وهي هنا shell_traywnd، ثم مررها إلى الدالة FindWindow، لتعيد له هذه الدالة رقم صحيحا يسمى مقبض النافذة HWND. ثم مرر هذا الرقم إلى وظيفة أخرى PostMessage لتقوم بإرسال رسائل للطبقة الرئيسية: بالتصغير، أو العودة إلى الوضع الطبيعي.. ولهذا هي قصيرة جدا! لأنها محددة المهام أما مشاركتي فلا علاقة لها بالإجابة عن السؤال! عند تمرير مؤشر الفارة على النوافذ المفتوحة يعيد أكسس البيانات التي سألت عنها في الاقتباس أدناه! إذا لم تظهر البيانات بالشكل الصحيح ثبت أكسس فوق النافذة وحرك الفارة.. Windows Information.accdb

وعليكم السلام ورحمة الله وبركاته اليك حل المشكلة بطريقتين 1 - الكود Private Sub تفصيل_Print(Cancel As Integer, PrintCount As Integer) If Me.num1.Value = Me.num2.Value Then Me.num1.BackColor = RGB(255, 0, 0) End If End Sub 2 - التنسيق الشرطي تحياتي sole2.rar

يا احي ارفع نموذج بسيط من صفحتين او ثلاثة (10 صفوف على الأكثر في كل جدول) لمعالجة الامر اذ ليس من المعقول ان اقوم بانشاء ملف كما تريد و العمل عليه

السلام عليكم تم عمل المطلوب بمعية عمود مساعد (في Sheet2) والمعادلات في الملف المرفق.... بن علية حاجي عدد المسددين اليوم.xls

السلام عليكم 🙂 اخي الفاضل alloui79 هذا المنتدى للتعلم وليس للتحدي ، وقبل كل هذا ، هناك قوانين في المنتدى يجب اتباعها : قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. اذا كنت جاد في التعلم ، فرجاء عمل موضوع جديد بشروط وقوانين المنتدى ، والجميع هنا يحب ان يمد يد العون 🙂 يُغلق جعفر

عليكم السلام تفضل التعديل ارجو ان يكون طلبك var-1.rar

اخي طاهر ، اخونا ابوعبدالله قائم بمساعدتك ، وسألك هذا السؤال : هل ادخلت بيانات في نموذج تفاصيل ؟ فرجاء الرد على استفساره ومتابعة الموضوع معاه 🙂 جعفر

بعد اذن الأخ أحمد وزيادة في اثراء الموضوع يمكن استعمال هذه المعادلة =SUMPRODUCT(0+(MOD(COLUMN($B$6:$V$6)-COLUMN($B$6)+1,3)=0),$B6:$V6) الملف مرفق Mhd_Ahm.xlsx

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

جزيت الخير ..

السلام عليكم 🙂 وجرب هذا المرفق. هذا المرفق ينزل جميع البرامج المفتوحة ، وبعدين يكبّر برنامج الاكسس بعد ثانية ، حصلت على الكود من الانترنت ، وتم عمل بعض التعديلات عليه وتضبيطه للعمل على النواتين 32 و 64 بت : Option Compare Database Option Explicit #If VBA7 Then Private Declare PtrSafe Function FindWindow Lib "USER32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr Private Declare PtrSafe Function PostMessage Lib "USER32" Alias "PostMessageA" (ByVal hwnd As LongPtr, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Dim DoIt As LongPtr #Else Private Declare Function FindWindow Lib "USER32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare PtrSafe Function PostMessage Lib "USER32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Dim DoIt As Long #End If 'Private Declare PtrSafe Function PostMessage Lib "USER32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Private Const WM_COMMAND As Long = &H111 Private Const MIN_ALL As Long = 419 Private Const MIN_ALL_UNDO As Long = 416 Private Const SW_RESTORE As Long = 9 ' Public Function Minimize_AllWindows() DoIt = FindWindow("shell_traywnd", vbNullString) 'to minimize them all Call PostMessage(DoIt, WM_COMMAND, MIN_ALL, 0&) Dim PauseTime, Start PauseTime = 1 ' Set duration. Start = Timer ' Set start time. Do While Timer < Start + PauseTime DoEvents ' Yield to other processes. Loop DoCmd.RunCommand acCmdAppMaximize End Function Public Function Restore_AllWindows() DoIt = FindWindow("shell_traywnd", vbNullString) 'to return them all to normal size Call PostMessage(DoIt, WM_COMMAND, MIN_ALL_UNDO, 0&) End Function . وطريقة العمل اننا ننادي الوحدة النمطية عند بدء البرنامج هكذا : call Minimize_AllWindows . وعند اغلاق البرنامج يمكننا ان ننادي الوحدة النمطية الاخرى لإرجاع جميع النوافد مثل ما كانت على قبل الانزال ، هكذا ، call Restore_AllWindows . اما انا ، فأفتح برنامجي عن طريق الماكرو autoexec والذي يعمل تلقائيا لما يفتح الاكسس ، واول امر فيه هو مناداة الوحدة النمطية لتصغير النوافد ، ثم يفتح لي النموذج الذي اريده ، هكذا : . ولما اغلق البرنامج ، اضع كود ارجاع البرامج الى وضعها السابق على حدث زر الخروج من البرنامج : . والكود : Call Restore_AllWindows DoCmd.Quit جعفر All_Minimize_Restore.zip

الأسياب في عدم الحصول على النتائج الصحيحة (الجدول يجب ان يجتوي معلومات فقط دون وجود خلايا مدمجة أو اشياء غريبة داخله) 1- وجود حلايا مدمجة داحل الجدول 2 - وجود Object غريبة (Lines ) بالاضافة الى تكست بوكس (السن في أول أكتوبر) الكود المطلوب بعد ازالة الدمج Sub from_sheet_to_other1() Dim B As Worksheet Dim MH As Worksheet Dim F_rg As Range Dim Cret$, Rot%, Rod%, m% Application.ScreenUpdating = False Set B = Sheets("البيانات") Set MH = Sheets("المحولين") If B.AutoFilterMode Then _ B.Range("A7").AutoFilter Rot = MH.Cells(Rows.Count, 1).End(3).Row Rot = IIf(Rot < 8, 11, Rot + 1) Rod = B.Cells(Rows.Count, 1).End(3).Row Set F_rg = B.Range("A7:k" & Rod) Cret = "حول" F_rg.AutoFilter 11, Cret On Error Resume Next B.Range("A8:K" & Rod).SpecialCells(12).Copy _ MH.Range("A" & Rot) B.Range("A8:K" & Rod).SpecialCells(12).EntireRow.Delete On Error GoTo 0 If B.AutoFilterMode Then _ B.Range("A7").AutoFilter Application.ScreenUpdating = True End Sub

اخي الكريم الواضح من كلامك انك تحتاج تحفظ مسار كل صورة في قاعدة البيانات اذا كان هذا قصدك اتفضل هذا الكود انشاء الله يفي بالغرض Dim Path As String Path = "ضع هنا مسار الملجد" Dim msg As String Dim objFSO As Object Dim objFolder As Object Dim objFile As Object Dim i As Integer Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(Path) For Each objFile In objFolder.files msg = msg & vbNewLine & objFile.Path ' ضع هنا عنصر التحكم الذي سيتم حفظ المسار اليه Next objFile

Try his file Code_Number.xlsx

الماكرو لهذه الغاية للزر Save كما في الصورة (يجب التعميم على كافة الأزراربهذا الشكل) الملف مرفق My_List.xlsm

مادام السؤال نظريا فالإجابة ايضا نظرية تعتمد الفكرة المطلوبة على: تسجيل ماكرو استبدال الحروف التي عليها همزة إلى حروف ليس عليها همزة واستبدال التاء المربوطة بالهاء واستبدال الياء المتطرفة بالألف المقصورة ثم بعد ذلك يتم تنفيذ الترتيب

جرب هذا data Validation.xlsx

على الرغم انى لا ارى اى جدوى او فائدة من ذلك , فحجم الخط بالقائمة المنسدلة الموجودة بملفك طبيعى ويرى بالعين المجردة فلا داعى لكل ذلك .... الا انه يمكنك استخدام هذا الكود بحدث الورقة واليك الملف مرة أخرى Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error GoTo xErr If Target.Validation.Type > -1 Then ActiveWindow.Zoom = 140 Exit Sub End If xErr: ActiveWindow.Zoom = 100 End Sub data Validation.xlsm

ممكن.. اعمل تنسيق معين من خلال ماذكره أخونا تومي .. ثم حفظ باسم ثم اختر حفظ كنواع Word Template اختر مكان الحفظ .. بعد ذلك استخدم هذه القالب في ملفاتك.. تجربة للطباعة.rar

جرب هذا الملف Gocondasty.xlsm