حمادة عمر

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

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

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

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

بارك الله فيك وزادك من فضله ومن علمه جزاك الله خيرا

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

لقد تم الاطلاع علي المشاركتين ولكن خبرتي قليلة بعض الشئ في الورد ولكني اعتقد بعد الاطلاع ان الرابط http://www.officena.net/ib/index.php?showtopic=35899 بعنوان ( الامر تجميع ) هو الصواب وفي انتظار ردك الرائع جزاك الله خيرا

جزاك الله خيرا

لاثراء الموضوع اليكم هذا الرابط الراائع http://www.officena.net/ib/index.php?showtopic=293#entry274163

الأخ الحبيب / محمد مصطفى نشاط وتميز غير عادى وهدايا مميزة للجميع ولكن عند فك الضغط عن الملف ظهر وجود خطأ به علي من الممكن رفع الملف رة اخري علي رابط آخر او رفعه علي اجزاء علي المنتدي مباشرة لزيادة الافادة للجميع جزاك الله كل خير

الاستاذ القدير / مجدي يونس ملف الاكسيل لا يحتاج الي رأي فهو اكثر من ممتااز ولكن عذرا ... فرحتنا بحفيدتك الجديدة انستنا الفرحة بملف الاكسيل الراائع مجهود ممتااز جزاك الله خيرا

جزاك الله خيرا استاذي العزيز / جمال اسماعيل - ابومحمود

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

جزاك الله خيرا اخي الكريم shakhawan

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

السلام عليكم الاخ الكريم / Ahmed Habiba بارك الله فيك وجزيل شكري علي كلماتك الرائعة جزاك الله خيرا

اخي الحبيب الاستاذ مجدي اسأل الكريم ذو الفضل العظيم ان يتم شفاء حفيدتكم ويجعلها وامها قرة عين لكم فهو ولي ذلك والقادر عليه اللهم امين

اللهم انا نسألك لابن اخينا شفاءا بلا سقم اللهم اشفه ...آمين ...آمين...آمين

السلام عليكم الاخ الكريم / Ahmed Habiba بارك الله فيك قم بوضع الكود التالي في حدث زر امر الطباعة كما يلي : Private Sub CommandButton27_Click() CommandButton25.Visible = False CommandButton27.Visible = False Me.PrintForm CommandButton25.Visible = True CommandButton27.Visible = True End Sub جزاك الله خيرا طباعة فورم1.rar

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

بارك الله فيك اخي الكريم / رائد جزاك الله خيرا

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

السلام عليكم الاخ الكريم / رائد بارك الله فيك هل تقصد هكذا الغاء علامة X من ترويسة الفورم.rar

السلام عليكم الاخ الكريم / رائد بارك الله فيك الحمد لله ان هداك لما تريد وتوصلت للمطلوب جزاك الله خيرا

السلام عليكم الاخ الكريم / رائد بارك الله فيك اولا : اخي الكريم لاظهار الفورم عند فتح الملف يجب عليك وضع الكود التالي في حدث ThisWorkbook Private Sub Workbook_Open() UserForm1.Show End Sub ثانيا : لاظهار الفورم عن طريق استخدام الزر في داخل الملف ... قم بوضع هذا الكود في مودل جديد مثلا Sub sama() UserForm1.Show End Sub ثالثا : للقيام بجعل الفورم يختفي تدريجيا نقوم بوضع الاكواد التاليه في اكواد الفورم نفسه ... وهي كالتالي Option Explicit Private Declare Function GetActiveWindow Lib "USER32" () As Long Private Declare Function SetWindowLong Lib "USER32" Alias "SetWindowLongA" _ (ByVal hWnd As Long, _ ByVal lngWinIdx As Long, _ ByVal dwNewLong As Long) As Long Private Declare Function GetWindowLong Lib "USER32" Alias "GetWindowLongA" _ (ByVal hWnd As Long, _ ByVal lngWinIdx As Long) As Long Private Declare Function SetLayeredWindowAttributes Lib "USER32" _ (ByVal hWnd As Long, _ ByVal crKey As Integer, _ ByVal bAlpha As Integer, _ ByVal dwFlags As Long) As Long Private Const WS_EX_LAYERED = &H80000 Private Const LWA_ALPHA = &H2 Private Const GWL_EXSTYLE = &HFFEC Dim hWnd As Long Dim Transparancy As Integer Dim Running As Boolean Private Sub CommandButton1_Click() Unload Me End Sub Private Sub UserForm_Activate() Running = True Call Transparency End Sub Private Sub Transparency() Dim MyTimer As Double DoEvents MyTimer = Timer Do Do Loop While Timer - MyTimer < 0.07 MyTimer = Timer Transparancy = Transparancy - 1 If Transparancy < 0 Then Unload Me Else Call SemiTransparent(Application.WorksheetFunction.Min(Transparancy, 100)) End If DoEvents Loop While Running End Sub Private Sub SemiTransparent(ByVal intLevel As Integer) Dim lngWinIdx As Long hWnd = GetActiveWindow lngWinIdx = GetWindowLong(hWnd, GWL_EXSTYLE) SetWindowLong hWnd, GWL_EXSTYLE, lngWinIdx Or WS_EX_LAYERED SetLayeredWindowAttributes hWnd, 0, (255 * intLevel) / 100, LWA_ALPHA End Sub Private Sub UserForm_Initialize() Transparancy = 120 Call SemiTransparent(100) DoEvents End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Running = False End Sub وبذلك سيعمل معك الفورم بالشكل الذي تريده ويظهر في بداية تشغيل الملف ثم يختفي تدريجيا وعند الضغط علي الزر بداخل الملف سيظهر الفورم ثم يختفي تدريجيا ايضا ارجو ان يكون هذا هو طلبك ... واليك الملف المرفق به الاكواد السابقة جزاك الله خيرا فورم يختفي بشكل تدريجي1.rar