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

السلام عليك و رحمة الله أخي هذا الكود يقوم بإخفاء التكست بوكس الموجودين في مثالك واحداً تلو الآخر عند كل ضغطه Private Sub CommandButton1_Click() Dim ctr As Control For Each ctr In Me.Controls If TypeName(ctr) = "TextBox" Then If ctr.Visible = True Then ctr.Visible = False Exit Sub End If End If Next ctr End Sub دمتم في حفظ الله

السلام عليكم الاخ الكريم / أبو محمد أشرف بارك الله فيك وتسلم يديك علي هذا العمل الجميل ويسعدني ان اكون اول المهنئين لك بهذا العمل وننتظرك باذن الله في ابداعات بعد ذلك اكثر واكثر ونراك ( ان شاء الله ) من تقدم الي تقدم جزاك الله خيرا

طريقة عمل شاشة ( فورم ) ادخال وترحيل واستعلام وتعديل !! خطوة خطوة السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل بالطبع هناك اكواد كثيرة لعمل شاشة الادخال وكذلك الاستعلام ولكني قصدت اختيار اسهل هذه الاكواد لعمل ذلك لتكون اسهل في توصيل المعلومة وكذلك اسهل عند التطبيق وارجو من الله ان اكون قد وفقت في عمل ذلك (((( الدرس الثالث )))) شاشة ( فورم ) لادخال بيانات والقيام بتسجيل وترحيل هذه البيانات الي صفحة الاكسيل و الاستعلام من خلالها عن طريق نفس الفورم والتعديل ايضا في البيانات في حالة ما اردنا التعديل في بيان قد سبق ادخاله وطبعاً والاكيد كله من علمكم اساتذتي الكرام الاجلاء في هذا الدرس سنتعرف علي طريقة عمل استعلام في نفس الفورم الذي قمنا بتصميمه عن البيانات السابق تسجيلها في صفحة البيانات وذلك عن طريق استخدام كومبوبكس لعمل ذلك ... مع وضع اكواده ... وشرح الكود سطر سطر كما تعودنا واي استفسار .... في الخدمة دائما ... واي شئ غير واضح في الشرح علي استعداد تام لشرحه مرة اخري ومرات اخري في الدرس القادم سنتعرف الطريقة لعمل التعديل في البيانات السابق تسجيلها وذلك عن طريق نفس الفورم ( ان شاء الله ) واليكم ايضا في المرفقات : 1- ملف اكسيل به الاكواد والشرح هذه المرة داخل الكود ( تم شرح الكود سطر سطر بطريقة وافية وبسيطة جدا داخل الكود نفسه ) 2- عدد ( 1 ) ملف فيديو يشرح طريقة التصميم واضافة الاكواد وكذلك مشاهدة النتيجة جزاكم الله خيرا اساتذتنا اكسيل ..طريقة عمل شاشة ادخال واستعلام 3.rar طريقة عمل استعلام في الشاشة عن طريق كومبوبكس3.rar

طريقة عمل شاشة ( فورم ) ادخال وترحيل واستعلام وتعديل !! خطوة خطوة السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل اعلم ان هذه الموضوعات قد قتلت بحثا وطلبا واجابة من الاعضاء وهناك امثلة كثيرة للاساتذة الافاضل الكبار والذي لايصل علمنا او ما لدينا كله الي ذرة واحدة من علمهم ولكني اردت ان اجعل المواضيع الاساسية في عمل اي برنامج في متناول الجميع بطريقة بسيطة وسهله اكثر ما يكون من خلال هذه السلسلة ( اعانني الله علي اكمالها كما ينبغي ) وقصدت ان يكون الموضوع بعنوان واضح ليستفيد منه الجميع عند البحث وسأقدم الشرح بطريقة الفيديو والاكسيل والورد احياناً (((( الدرس الاول )))) شاشة ( فورم ) لادخال بيانات والقيام بتسجيل وترحيل هذه البيانات الي صفحة الاكسيل و الاستعلام من خلالها عن طريق نفس الفورم والتعديل ايضا في البيانات في حالة ما اردنا التعديل في بيان قد سبق ادخاله وطبعاً والاكيد كله من علمكم اساتذتي الكرام الاجلاء وفي الدرس القادم سنتعرف علي بعض الاكواد المعاونة لشاشة الادخال او بمعني ادق اكواد نحتاجها مع شاشة الادخال مثل (تنسيق التكست بوكس ، الترقيم التلقائي في تكست معين ، تنسيق التاريخ في التكست بوكس .... ) واي استفسار .... في الخدمة دائما ... واي شئ غير واضح في الشرح علي استعداد تام لشرحه مرة اخري ومرات اخري واليكم ايضا في المرفقات : 1- ملف اكسيل به الاكواد والشرح هذه المرة داخل الكود ( تم شرح الكود سطر سطر بطريقة وافية وبسيطة جدا داخل الكود نفسه ) 2- عدد ( 3 ) ملف فيديو يشرح طريقة التصميم واضافة الاكواد وكذلك مشاهدة النتيجة جزاكم الله خيرا اساتذتنا اكسيل ..طريقة عمل شاشة ادخال 1.rar فيديو 1 .. طريقة عمل شاشة ادخال 1.rar الملف الفيديو الثاني والثالث في المشاركة التالية حيث لم يمكنني اضافتهم هنا

السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل اعلم ان هذا الموضوع قد قتل بحثا وطلبا واجابة من الاعضاء وهناك امثلة كثيرة للاساتذة الافاضل الكبار والذي لايصل علمنا او ما لدينا كله الي ذرة واحدة من علمهم ولكن هو طلب لأحد الاعضاء ( الاخ الكريم / alredha ) ولكني اردت ان اجعله موضوع بعنوان واضح ليستفيد من الجميع عند البحث وسأقدم الشرح بطريقة الفيديو والاكسيل والورد احياناً (((( الدرس الاول )))) شاشة افتتاحية باسم مستخدم ورقم سري ولايظهر الاكسيل الا بعد اعطاء الشاشة البيانات الصحيحة وطبعاً والاكيد كله من علمكم اساتذتي الكرام وفي الدرس القادم سنتعرف علي طريقة عمل اكواد الشاشة لتعمل معنا علي اي برنامج لدينا او اي برنامج سنقوم بتصميمه فيما بعد جزاكم الله خيرا اساتذتنا طريقة عمل الشاشة الافتتاحية شرح علي الورد1.rar شرح عمل شاشة افتتاحية فيديو1.rar طريقة عمل الشاشة الافتتاحية اكسيل1.rar

السلام عليكم اخواني الاعضاء والمشرفين ارجو عند كتابة رقم في نطاق وعند كتابة اي رقم ثاني في نفس النطاق تخرج رسالة تقول " لايمكن كتابة رقم ثاني " في نفس النطاق والشرح موضح في المرفق ومشكوريين Row1.rar

السلام عليكم ورحمة الله وبركاته هذا أول عمل من إنتاجي بعد الاطلاع على دروس العبقري الأخ الحبيب حمادة عمر فشكرا له على هذه الدروس وكذلك الشكر موصول لكل اعضاء المنتدي المحترمين الذين نتعلم منهم فورم إدخال وترحيل البيانات.rar

وأنا أشرف على إنهاء ملف لحساب معدلات و نتائج مدرسة ابتدائية صادفتني مشكلة : المستخدم يفتح الملف بشكل عادي و قد يصادف بعض الوظائف غير مفعلة بسبب عدم تمكين الماكروات .. فكرت في أن يتم تنبيه المستخدم مع بداية تشغيل الملف بحيث تظهر له النافذة التالية : فإذا فعَّلها فتح الملف و إذا لم يفعلها لا يشتغل . دلني الأخ الكريم حمادة عمر على موضوع الأخ المقتدر عبد الله ... فكان الملف مصمم لغرض آخر.. فهو يفتح بالطريقة المرغوب فيها و لكنه لا يطلب التحفيظ عند الإغلاق . بحثتت فوجدت في أحد المواقع الفرنسية اجتهادا و لكنني لا أعرف طريقة استعمال الأكواد .. لذلك سأضعها أمامكم ليستفيد من يرغب و يفيدنا من يستطيع جزاه الله خيرا . الوصف : ATTENTION L'UTILISATION DE CETTE SOURCE DEMANDE UNE BONNE MAÎTRISE DU VBA. Une mauvaise maîtrise vous interdiras l’accès à plusieurs fonctions d'excel. Ce fichier regroupe plusieurs petites ou grosses astuces pour améliorer la sécurité d’accès aux données et au code d'un fichier excel. Dans cette source je montre comment: - Interdire l’accès à certain bouton de la barre Visual basic. Sur ce point j'utilise une classe qui permet de détecter le clic sur les boutons de la barre visual basic. - Interdire l’accès à la boite à outils macro. - Interdire l'utilisation des raccourcis Alt+F11 et Alt+F8 qui permettent respectivement d'ouvrir l’éditeur VBE et la boite Lancer Macro - Interdire l'utilisation de la touche [Maj] à l'ouverture du fichier. Touche qui comme vous le savez déjà permet d'ouvrir un fichier excel en mode création ce qui a pour effet de désactiver les macros lors de l'ouverture. - Interdire l'accés au fichier donc aux feuilles si les macros non pas été activées. La methode utilisé ici est differente de la methode classic qui consiste à cacher les feuilles avec l'option XlVeryHidden. - Fermer l'editeur VBE automatiquement si celui-ci est ouvert au moment de l'ouverture du fichier excel. Ceci plus les interdits listés plus haut permettent d'interdire l'accés au VBE. Fonctionne pour Xl2002, Xl2003 à confirmer pour Xl2007.(Vous devrez télécharger le fichier pour voir la méthode mais n'est pas renseignées !) - Excel ne peut être fermé tant que le fichier est ouvert Touts ceci n'est valable que pour le fichier lui meme, mais peut ajouter quelques limitations aux autres fichiers tant que celui-ci est ouvert comme par exemple l'accés au macros via la barre visual basic ou les racourcis clavier. Il suffit de le fermer pour que tout rentre dans l'ordre. Il n'est apparemment pas possible d'interdire l'accés au code si les macros n'ont pas été activées sauf par mot de passe. Je ne suis pas utopiste, excel est une passoire et reste une passoire malgré tout, mais ici je donne des solutions pour renforcer la securité par rapport a un utilisateur de base voir un utilisateur deja bien initié. En tout cas ceci ajouté aux mots de passe peut en rebuter plus d'un. Mais attention ceci a sont revers en effet avec ce type de protection l'utilisateur n'a plus d'autre choix que d'activer les macros pour acceder au fichier. Autrement dit vous l'obligez à baisser sa garde donc à ce mettre en danger. الكود Dans le code du ThisWorkBook: 'Macro Créée par : BigFish (Philippe E) 'le :06-11-2008 'Mis à jour le : 03/09/2010 'V1.3 ' Option Explicit Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Cancel = True HideSheets WBkSave (SaveAsUI) End Sub Private Sub Workbook_Open() Dim CmdBs As CommandBar 'si les macros on ete activées les feuilles cachées seront affichées 'dans le cas contraire elle resteront cachées et un message d'erreur apparaitra. 'j'ai laissé cette option qui fonctionne si ce fichier n'est pas enregistré avec 'l'option IsAddin a vrai. Dans le cas contraire cela ne sert a rien Application.Run ("Opening") 'desactive la barre "Boîte à outils Contrôles" For Each CmdBs In Application.CommandBars Select Case CmdBs.Name Case "Control Toolbox", "Boîte à outils Contrôles" 'cas Anglais ou Français CmdBs.Enabled = False End Select Next 'initialisation de la classe Set XlAppli.XL = Excel.Application Call XlAppli.InitClass 'on interdit l'utilisation des racourcis Alt+F11 et Alt+F8 Application.OnKey "%{F11}", "MessageDeLimitation" Application.OnKey "%{F8}", "MessageDeLimitation" DoEvents 'ce fichier a été sauvé avec l'option IsAddin a vrai donc on le passe a false 'pour lui redonner toutes ses fonctions de Workbook classic If ThisWorkbook.IsAddin = True Then ThisWorkbook.IsAddin = False 'si le VBE est ouvert on le ferme mais pour que cela fonctionne l'option 'de securite "Faire confiance au projet Visual Basic" doit etre cochée. On Error Resume Next If Application.VBE.MainWindow.Visible = True Then Application.VBE.MainWindow.Visible = False MyFileIsOpen = True End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) 'une partie de ce qui suit ne sert qu'a gerer le passage IsAddin = True de ce fichier si 'l'utilisateur veut sauver avant de fermer 'Pour cela on vas substituer au message d'excel notre propre message ce qui 'permet de gerer le cas du bouton cancel If MyFileIsOpen = True Then Exit Sub Dim Reponse As VbMsgBoxResult If ThisWorkbook.Saved = True Then 'retour a la normale Defaut 'on vide la classe Call XlAppli.EmptyClass Else Cancel = True 'ici notre message perso: On Error Resume Next Reponse = MsgBox("Voulez-vous sauver les modifications effectuées dans '" & ActiveWorkbook.Name & "' ? ", vbExclamation + vbYesNoCancel) Select Case Reponse Case vbYes 'l'utilisateur veut sauver avant de fermer le fichier HideSheets Application.EnableEvents = False 'pour eviter de passer par l'evenement Workbook_BeforeSave ThisWorkbook.IsAddin = True ThisWorkbook.Save ThisWorkbook.Saved = True Application.EnableEvents = True Application.DisplayAlerts = True Application.ScreenUpdating = True Cancel = False Case vbNo 'l'utilisateur ne veut pas sauver. Pour cela: 'retour a la normale Defaut 'on vide la classe Call XlAppli.EmptyClass 'on laisse croire excel que le fichier a été sauvé ThisWorkbook.Saved = True 'on autorise la fermeture Cancel = False End Select ' si cancel rien ne ce passe End If End Sub ----------------------------------------------------------------------------------------- ----------------------------------------------------------------------------------------- Dans le module nomé module1 'Macro Créée par : BigFish (Philippe E) 'le :15-11-2008 'Mis à jour le : 03/09/2010 'V1.4 ' Option Explicit Public XlAppli As New ClasseAppli, MyFileIsOpen As Boolean Sub Defaut() Dim CmdBtn As office.CommandBarButton, CmdBs As CommandBar 'Retablit l'utilisation des raccourcis Alt+F11 et Alt+F8 Application.OnKey "%{F11}" Application.OnKey "%{F8}" 'Active la barre "Boîte à outils Contrôles" For Each CmdBs In Application.CommandBars Select Case CmdBs.Name Case "Control Toolbox", "Boîte à outils Contrôles" CmdBs.Enabled = True End Select Next End Sub Sub viderclass() Call XlAppli.EmptyClass End Sub Sub HideSheets() 'Cache toute les feuilles a l'exception de la feuille starting notice 'j'ai laissé cette option qui fonctionne si ce fichier n'est pas enregistré avec 'l'option IsAddin a vrai. Dans le cas contraire cela ne sert a rien Dim MySheet As Worksheet Application.ScreenUpdating = False Application.DisplayAlerts = False If Sheets("starting notice").Visible = xlVeryHidden Then Sheets("starting notice").Visible = True For Each MySheet In ThisWorkbook.Worksheets If Not MySheet.Name = "starting notice" Then MySheet.Visible = xlVeryHidden End If Next End Sub Sub Opening() Dim MySheet As Worksheet 'Affiche toute les feuilles a l'exception de la feuille starting notice Application.ScreenUpdating = False Application.DisplayAlerts = False ThisWorkbook.IsAddin = False For Each MySheet In ThisWorkbook.Worksheets If Not MySheet.Name = "starting notice" Then MySheet.Visible = True End If Next If Sheets("starting notice").Visible = True Then Sheets("starting notice").Visible = xlVeryHidden Application.ScreenUpdating = True Application.DisplayAlerts = True Application.EnableEvents = True ThisWorkbook.Saved = True End Sub Sub WBkSave(ByVal SaveAsUI As Boolean) 'ici on prend en charge les sauvegardes pour pouvoir gerer l'option IsAddin Dim FileSaveName As String, Reponse As VbMsgBoxResult Application.DisplayAlerts = False Application.EnableEvents = False If SaveAsUI = False Then 'sauvegarde direct ThisWorkbook.IsAddin = True ThisWorkbook.Save Else 'sauver sous FileSaveName = Application.GetSaveAsFilename(ThisWorkbook.Name) If Not FileSaveName = "False" Then 'si l'utilisateur n'a pas utilisé le bouton Cancel If Not Dir(FileSaveName) = "" Then 'si le fichier existe deja Reponse = MsgBox("le fichier '" & Dir(FileSaveName) & "' existe déjà. voulez-vous remplacer le fichier existant ? ", vbExclamation + vbYesNo) If Reponse = vbYes Then ThisWorkbook.IsAddin = True ThisWorkbook.SaveAs Filename:=FileSaveName, AddToMru:=True End If Else 'si le fichier n'existe pas ThisWorkbook.IsAddin = True ThisWorkbook.SaveAs Filename:=FileSaveName, AddToMru:=True End If End If End If Application.EnableEvents = True DoEvents 'on donne les moyens a excel de faire la sauvegarde avant de passer a la suite Opening End Sub Sub MessageDeLimitation() MsgBox "Vos droits sur ce fichier ne vous permettent pas d'acceder à ces fonctions !", vbExclamation End Sub Sub ClosingThisFile() MyFileIsOpen = False ThisWorkbook.Close End Sub ----------------------------------------------------------------------------------------- ----------------------------------------------------------------------------------------- Dans le module de classe nomé ClasseAppli 'Macro Créée par : BigFish (Philippe E) 'Macro Créée par : BigFish (Philippe E) 'le :15-11-2008 'Mis à jour le : 03/09/2010 'V1.2 ' Option Explicit Public WithEvents XL As Excel.Application Dim ClassCmdBrBtn() As ClasseCommandeBarBouton, NbButton As Integer 'Permet de vider la classe Public Sub EmptyClass() Dim i As Integer For i = 1 To NbButton On Error Resume Next Set ClassCmdBrBtn(i).BoutonBarre = Nothing Next End Sub 'Remplissage de la classe Public Sub InitClass() Dim i As Integer, MyCmdBar As CommandBar NbButton = Application.CommandBars("Visual Basic").Controls.Count 'on determine le nombre de bouton et on dimensionne la variable tableau ReDim Preserve ClassCmdBrBtn(NbButton) 'on Ajoute a la classe chaque bouton de la barre Visual Basic For i = 1 To NbButton Set ClassCmdBrBtn(i) = New ClasseCommandeBarBouton Set ClassCmdBrBtn(i).BoutonBarre = Application.CommandBars("Visual Basic").Controls(i) Next End Sub Private Sub XL_WorkbookBeforeClose(ByVal Wb As Workbook, Cancel As Boolean) 'interdit la fermeture de ce classeur ou d'excel tant qu'il est ouvert If Wb.Name = ThisWorkbook.Name And MyFileIsOpen = True Then Cancel = True End If End Sub ----------------------------------------------------------------------------------------- ----------------------------------------------------------------------------------------- Dans le module de classe nomé ClasseCommandeBarBouton 'Macro Créée par : BigFish (Philippe E) 'le :05-11-2008 'V1.1 ' Option Explicit Public WithEvents BoutonBarre As office.CommandBarButton Private Sub BoutonBarre_Click(ByVal Ctrl As office.CommandBarButton, CancelDefault As Boolean) Select Case Ctrl.Caption 'Version Anglaise jusqu'a Xl2003 Case "&Design Mode", "&Visual Basic Editor", "Control T&oolbox", "&Record New Macro...", "&Macros..." CancelDefault = True Action 'Version Française jusqu'a Xl2003 Case "Nouv&elle macro...", "&Visual Basic Editor", "&Boîte à outils Contrôles", "Mode &Création" CancelDefault = True Action 'Version Française A partir de Xl2007 Case "Mo&de Création" CancelDefault = True Action End Select End Sub Sub Action() MsgBox "Vos droits sur ce fichier ne vous permettent pas d'acceder à ces fonctions !", vbExclamation End Sub ----------------------------------------------------------------------------------------- ----------------------------------------------------------------------------------------- Dans le code de la feuille "Sheet1" 'Macro Créée par : BigFish (Philippe E) 'le 03/09/2010 'V1.0 ' 'Bouton [Fermer ce fichier] de la feuille "Sheet1" Private Sub CommandButton1_Click() ClosingThisFile End Sub و في المرفقات تجدون ملفا من نفس الموقع يطبق الطريقة أتمنى أن تكون هذه المشاركة مفيدة و جزى الله خيرا أخي الفاضل حمادة عمر الذي نصحني بفتح هذا الموضوع Limitation sur Command barreV1.6.rar

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

السلام عليكم الاخت الفاضلة المهندسة / سما محمد هنيئا لك الحل للرائعين العملاقين العملاق القدير / عبدالله باقشير العملاق القدير / يحيى حسين فالموضوع الذي يجمعهم يكن ذلك شرف للموضوع ذاته ياليتني صاحب هذا السؤال جزاكم الله خيرا

السلام عليكم نورت المنتدى اخي يحي تقبل تحياتي وشكري

الاخ ابو محمد اشرف عمل رائع وعلى رائ الاخ حمادة سننتظر ابدعاتك بعد كده مرسل اضافة ارجو تعجبك مع صورة لك على السريع فورم إدخال وترحيل البيانات.rar

السلام عليكم أخي العزيز ضع الكود التالي في حدث الورقة Private Sub Worksheet_SelectionChange(ByVal Target As Range) r = Target.Row: If r < 4 Then Exit Sub For Each cl In Range("A" & r - 1 & ":I" & r - 1) If IsEmpty(cl) Then GoTo 10 c = c + 1 10 Next If c < 9 Then Target.Offset(-1, 0).Select End Sub أو تفضل المرفق أخي العزيز /أحمد عبد الناصر عفوا لم أر مشاركتك إلا بعد أن شاركت ولكن هذا أفضل للإثراء عدم الذهاب للصف الذي يليه إذا لم تدخل كافة البيانات.zip

السلام عليكم هذا باستخدام datavalidation =COUNTA($A4:$I4)=9 تحياتي Book1+.rar

لتجنب خلو الحقول من القيم استخدم (في الاستعلام) Like "*" & [Forms]![FormTabItems]![SerchItemID] & "*" Or [Forms]![FormTabItems]![SerchItemID] Is Null

لاستعادة مصدر السجلات استخدم Private Sub Command10_Click() Me.SerchItemOriginal = Restor Me.SerchItemName = Restor Me.SerchItemID = Restor Me.RecordSource = "QueryTabItems" End Sub

السلام عليكم لا اعرف ان كنت فهمت المشكلة بشكل صحيح لكن جرب هذا Private Sub Command10_Click() Me.SerchItemOriginal = "" Me.SerchItemName = "" Me.SerchItemID = "" Me.Requery End Sub تحياتي

السلام عليكم و رحمة الله و بركاته الاخ العزيز الاستاذ الغالي / ابراهيم ابو ليله جعله الله في ميزان حسناتك جزاك الله كل خير و زادك الله من فضله و علمه و الله المستعان و السلام عليكم و رحمة الله و بركاته

السلام عليكم اليك الملف المرفق والخاص بترقيم الاذون كل اذن بترقيم منفردا وترقيم خاص به ولكن يتم ذلك باستخدام شيت 3 فلا يمكن حذفه اوتغير اسمه وجاري النظر في ملاحظاتك الاخيرة جزاك الله خيرا الايصالات 7.rar

الأستاذ والمبدع الكبير / يحيى حسين المنتدى نور بابداعات الأساتذة الكبار الذين علمونا وما زالوا جزاك الله كل خير

السلام عليكم الاخ الكريم / هاني مصطفي الكود المرسل من القدير / يحيي حسين ... جزاه الله خيرا يصلح لاي عدد موجود لديك بالفورم زاد اونقص جزاك الله خيرا شاهد المرفق سؤال1.rar

السلام عليكم و رحمة الله أخي إسلام شاهد اللف المرفق تلوين سطر بعد سطر .rar

السلام عليكم الاخ الكريم / احمد مجدى اليك اخي الملف المرفق به انهاء معظم ملاحظاتك 1- فورم البحث تم تشغيله بشكل رااائع 2- ايصال استلام نقدية ( تم فتح خانة المتبقي كما تريد ) .... ( وهل تم الوصول الى صافى المديونية للعميل اى انه عند دفع باقى المبلغ يكون المتبقى = صفر ) .... سأقوم باضافة ذلك اليوم ( ان شاء الله ) 3- بالنسبة ايصال صرف نقدية / شيكات تم تعديل الترحيل و تم تنفيذ رصيد الخزينة كما تريد ولكن ولكن بالنسبة لرقم الأذن احتاج لاستفسار هل كل ارقام الاذون الموجودة لديك تكمي بعضها اي متسلسلة وراء بعضها ام ان كل نوع له مسلسل يخصه هو فقط ... حيث لم نتطرق لهذه النقطة قبل ذلك 4- تم حل مشكلة اغلاق الشاة الرئيسية 5-تم عمل زر اسمه ترحيل وطباعة مع ترك الزرين طباعة - ترحيل ايضا 6- بالنسبة للنقطة الخاصة بعدم الكتابة في القائمة التي تقوم بالاختيار منها ( ان شاء الله اليوم ) جزاك الله خيرا الايصالات 6++ (version 2).rar

بسم الله الرحمن الرحيم الاساتذة الافاضل شكرا لكم جميعا ، منكم دائما نستفيد " هذة اول مشاركة لي في موقعكم المميز والاعضاء الرائعين بارك الله فيكم عندي كم استفسار وارجوا الرد عليها جزاكم الله الف خيرا سؤالي الاول: عند وضع كود في الاكسل تظهر لي هذة الرسالة لااعلم ما الحل مرفق صورة سؤالي الثاني كيف اقوم بعمل فورم بالاكسل 2007 مرتبط بالخلايا مثلا عندي اعمدة اريد ان اعمل فورم بة البيانات السابقة فعند ادخال مثلا الاسم في الفورم يظهر تلقائي في الجدول الي بالصورة السابقة وهكذا بشكل تسلسلي بازرار ادخال ومسح واخراج جدول ايضا الفورم مكون من عدة ازرارات وهي - ادخال - تعديل - طباعة جدول "الشيت1" - حذف - معينة-حفظ- وطبعا يكون كانة برنامج اي بمعنا مخفي شريط العنوان وشريط الادوات وشريط المهام - واقوم باظهارها بازرار فية رقم سري اي فقط للادمن يمكنة التعديل جزاكم الله خيرا ننتظركم شكرا لكم

السلام عليكم الاستاذ القدير الحبيب / يحيى حسين المعلم الاول لي والاستاذ الاساسي لي حيث تعلمت منك الكثير دون ان تدري جعله الله في ميزان حسناتك في منتداك وهنا ايضا والاروع والاجمل هو تواجدك بيننا الآن ... طالت غيبتك عنا وفعلا استاذنا / دغيدى لقد واجهتني هذه المشكلة ايضا ولكني قمت بتغيير النسخة ولكني مطمئن الآن بتدخل الكبيرين / يحيي حسين والاستاذ / عماد الحسامي جزاك الله خيرا

السلام عليكم الاخ الكريم / احمد مجدى اليك الملف تقريبا النهائي وبه زر للشاشة الرئيسية بها كل مكونات البرنامج برجاء مراجعتها وتحديد الملاحظات عليها بالنسبة لاكواد الترحيل تم انهاؤها كما طلبت ولكن في الايصال رقم 1 ------ اين ترحل خانة المتبقي وبالنسبة لكود البحث والاستدعاء والتعديل فلعمل ذلك علي هذه الفورم سيأخذ ذلك وقتا ولكني ارفقت للملف فورم بحث يقوم بعمل ذلك كله من تصميم واعداد الاستاذ / عبد الله باقشير ويصلح للاستخدام في ملفك بنفس الطريقة ولكنه يعطيني خطأ ما ؟؟ !! احاول الوصول اليه الآن واليك الملف لتحديد ملاحظاتك عليه ولكن وعن تجربة لا يمكنك البدء في اي برنامج وادخاله العمل الفعلي والاعتماد عليه الا قبل تجربته فترة لمدة ( شهر مثلا ) للتأكد من سلامة كل شئ واظهار العيوب الموجودة به او المتطلبات التي تستجد اثناء العمل وتصميمها وبذلك تكن متأكداً من صلاحية البرنامج للاعتماد عليه بشكل كامل جزاك الله خيرا الايصالات 6++ (version 1).rar

عوده مباركه استاذنا الحبيب نورت بيتك ومنتداك طمنا عليك

السلام عليكم الاخ الكريم / جوده اولا الف مليون شكر للاخ الكريم / جلال محمد ..... علي هذا الملف الجميل ... جزاه الله خيرا ثانيا اعمال القدير الرااائع / كيماس ... دائما لا تنتهي ... جزاه الله خيرا ولكن بخصوص طلبك الأخير طريقة اخري غير الكود ... فماذا تقصد بطريقة اخري ؟ فلو الفكرة غير ذلك برجاء توضيحها حيث ان الطريقة التي ارسلتها في الصورة المرفقة هي الطريقة الصحيحة لذلك وتطبق علي كل الصفحات اليك ملف فيديو يوضح ذلك جزاك الله خيرا طريقة عمل رأس وتذييل للصفحات في اكسيل 2003.rar

كود إنشاء رسالة تنبيه تحوي ثلاثة خيارات Yes و No و Cancel Select Case MsgBox("This is an exclemated normal Yes/No/Cancel Msgbox!", vbYesNoCancel Or vbDefaultButton1 Or vbExclamation, "Title: Click Yes, No Or Cancel!") Case vbYes MsgBox ("You pressed 'yes'!") Case vbNo MsgBox ("You pressed 'no'!") Case vbCancel MsgBox ("You pressed 'cancel'!") End Select ومكان رسالة التنبيه الفرعية بتوضيح الخيار يمكننا وضع كود يناسب الوضع الذي تم إختياره .

لنحصل على شريط متحرك بالعبارة التى نريدها بدلاً عن إسم النموذج ، نقوم بما يلي : في بداية صفحة الفيجوال Option Compare Database Private strText As String في حدث عند التحميل ​Private Sub Form_Load() strText = "النص الذي نود أن يظهر في الشريط المتحرك ...... 2013" strText = Space(110) & strText PutButtons Me End Sub في حدث عند التوقيت للنموذج Private Sub Form_Timer() strText = Mid(strText, 2) & left(strText, 1) Me.Caption = strText End Sub وفي خصائص النموذج نحدد الفاصل الزمني في Timet Interval ليكون 150 أو 200 أو غيرها وكفى ......

Form Size لتحديد حجم النموذج ، ارتفاع وعرض Private Sub Form_Load() Me.Form.InsideHeight = 6900 Me.Form.InsideWidth = 12700 End Sub ........

Capital letters للكتابة في الحقل باستخدام أحرف كبيرة Private Sub VinNo_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) End Sub