حسونة حسين

اخى @بلانك ربنا يبارك في وقتك ووقتنا اخى هل قمت بتحميل الملفات التي وضعها اخونا @mn20 وهل قمت بتشغيل الكود منها بعد ان قمت بالتعديل عدل File1 = "File1.xlsx" File2 = "File2.xlsx" الى File1 = ThisWorkbook.Path & "\" & "File1.xlsx" File2 = ThisWorkbook.Path & "\" & "File2.xlsx" من الواضح من الصورة التي ارفقتها انك لم تفعل

هذا الموضوع مميز ويستحق التثبيت ××××××× مثبت ××××××× الإدارة

جرب هذا الكود اخى Option Explicit '//////////////////////////////////////////////////////////////////// 'Password masked inputbox 'Allows you to hide characters entered in a VBA Inputbox. ' 'Code written by Daniel Klann 'March 2003 'https://stackoverflow.com/questions/28189864/excel-vba-input-box '//////////////////////////////////////////////////////////////////// 'API functions to be used Private Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, _ ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" _ (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long Private Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long Private Declare Function SendDlgItemMessage Lib "user32" Alias "SendDlgItemMessageA" _ (ByVal hDlg As Long, ByVal nIDDlgItem As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, _ ByVal lpClassName As String, ByVal nMaxCount As Long) As Long Private Declare Function GetCurrentThreadId Lib "kernel32" () As Long 'Constants to be used in our API functions Private Const EM_SETPASSWORDCHAR = &HCC Private Const WH_CBT = 5 Private Const HCBT_ACTIVATE = 5 Private Const HC_ACTION = 0 Private hHook As Long Public Function NewProc(ByVal lngCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Dim RetVal Dim strClassName As String, lngBuffer As Long If lngCode < HC_ACTION Then NewProc = CallNextHookEx(hHook, lngCode, wParam, lParam) Exit Function End If strClassName = String$(256, " ") lngBuffer = 255 If lngCode = HCBT_ACTIVATE Then 'A window has been activated RetVal = GetClassName(wParam, strClassName, lngBuffer) If Left$(strClassName, RetVal) = "#32770" Then 'Class name of the Inputbox 'This changes the edit control so that it display the password character *. 'You can change the Asc("*") as you please. SendDlgItemMessage wParam, &H1324, EM_SETPASSWORDCHAR, Asc("*"), &H0 End If End If 'This line will ensure that any other hooks that may be in place are 'called correctly. CallNextHookEx hHook, lngCode, wParam, lParam End Function Function InputBoxDK(Prompt, Title) As String Dim lngModHwnd As Long, lngThreadID As Long lngThreadID = GetCurrentThreadId lngModHwnd = GetModuleHandle(vbNullString) hHook = SetWindowsHookEx(WH_CBT, AddressOf NewProc, lngModHwnd, lngThreadID) InputBoxDK = InputBox(Prompt, Title) UnhookWindowsHookEx hHook End Function ولكن من الاسهل كما قال لك اخى @عبدالفتاح في بي اكسيل استخدم userform قم بإنشاء userform يحتوي على مربع نص وزر في خصائص مربع النص ، أدخل * في مربع PasswordChar Box كما بالصورة وفي كود الزر ضع الكود الخاص بك في اول الموضوع

وعليكم السلام ورحمه الله وبركاته اخى @spyhearts ضع هذا في UserForm1 وجرب كتابه اي تاريخ ميلادي سوف يعطيك تاريخ اليوم هجرى اما ان كتبت التاريخ هجري سوف يكتبه لك كما كتبته Private Sub TextBox11_AfterUpdate() If Year(TextBox11.Value) > 1500 Then a = Format(TextBox11.Text, "0") TextBox11.Value = "" MsgBox "هذا ليس تاريخ هجري " VBA.Calendar = vbCalHijri TextBox11.Text = Format(a, "[$-1170000]yyyy-mm-dd;@") End If End Sub وايضا اخى كل طلب يكون له موضوع مستقل ليكون مرجع وللاستفادة المستقبليه للاعضاء

وعليكم السلام ورحمه الله وبركاته تفضل موضوع للعلامه عبدالله باقشير وكمان موضوع ايضا

وعليكم السلام ورحمة الله وبركاته اخى @أبوعيد يوجد موضوع هنا في المنتدى يتحدث عن طلبك هنا وهنا رابط خارجي وايضا هذا الفيديو لعله يفيدك

لا داعى ابدا للاعتذار اخى @عبدالفتاح في بي اكسيل فكلنا هنا نساعد بعضنا حتى نرتقي بانفسنا بالتعلم وبالمنتدى بمزيد من الارتقاء والتقدم لينفع اخواننا من بعدنا

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

السلام عليكم ورحمة الله وبركاته وبها نبدأ اي موضوع اخى @kassem_geo

وعليكم السلام ورحمة الله وبركاته بدون اعتذار اخى نحن نذكر بعضنا بعضا جرب المعادله بعد وضعها في مكانها الصحيح لكتابة الاكواد والمعادلات =IF(G7*0.1<250,250,IF((G7*0.1)>300,300,G7*0.1)) او هذه =IF(G7*0.1<250;250;IF((G7*0.1)>300;300;G7*0.1)) لاختلاف الفاصله والفاصله المنقوطه

السلام عليكم ورحمة الله وبركاته وبها نبدأ اي موضوع اخى @fady_dd

صلوا على النبي يا حبايب مش تزعلوا نفسكم هذه صورة توضح مكان الايقونة اخى @abdelfattahbadawy يتم كتابه الكود بعد الضغط الايقونه ليكون شكل الكود جميل وحلو ليسهل على الاساتذه المساعده اخى @عبدالفتاح في بي اكسيل ال ٥٠ مشاركه لم يكن بها غير عدد ٣ مشاركات وضع اخى @abdelfattahbadawy فيها كود نلتمس العذر لانفسنا اخوتى

اخى الكريم يمكنك اضافه الكود الخاص باخى @عبدالفتاح في بي اكسيل في اي موديل ثم تشغيله سوف يعدل لك ما انت محتاجه فقط وهو الاستبدال النقطة بالفاصلة وبعد ان ينتهى الكود وتجد النتائج كما تريد امسح الكود واحفظ الملف الكود لن يؤثر على الملف لن يعلم احد انك وضعت كود طالما انك مسحت الكود قبل حفظ الملف

السلام عليكم ورحمة الله وبركاته وبها نبدأ

اخى الكريم @عبدالفتاح في بي اكسيل الملف (الفصل الثاني ) الذي ارفقه اخونا @dodo222وضعت فيه الكود ويعمل بدون اي مشاكل مع ان الشيت محمى

اخى @dodo222 ممكن تشرح بالصور او فيديو لكى توضح لنا المطلوب

وعليكم السلام ورحمة الله وبركاته بارك الله فيك استاذنا الغالي

امين يارب العالمين وفيك بارك اخى الحمد لله الذي بنعمته تتم الصالحات

ويندوز 10 64 بت اوفيس 2021 ويندوز 10 64 بت اوفيس 2010 ويندوز 7 64 بت اوفيس 2016 ويندوز اكس بي اوفيس 2010

وعليكم السلام ورحمه الله وبركاته معادله المرتب تقوم بعمليه قسمه للراتب(5000) في الخليه a2 / عدد ايام الشهر (30) ثم ضرب في عدد ايام الحضور(18) في الخليه b2 فتكون المعادله في الخليه C2 كالتالي =A2/30*B2 بالنسبة للمكافئة لا يوجد معطيات حتى اعطيك نتائج

الشكر لله اخى الحمد لله تم المطلوب

انظر اخي ليس يوجد مشاكل بالنسخ @Khorsheed Omar

كيف تقوم بعمليه النسخ اخى @Khorsheed Omar

السلام عليكم ورحمه الله وبركاته وبها نبدأ اي موضوع اخى @Khorsheed Omar كيف تقوم بعمليه النسخ لانى جربت النسخ وتم النسخ وليس به مشاكل