حسونة حسين

ما هي اسم الصفحه

السلام عليكم ورحمه الله وبركاته وبها نبدأ اي موضوع يمكنك ذلك عن طريق كود vba كليك يمين على الصفحه (نسخة الزبون) والضغط على view code ثم نسخ هذا الكود ولصقه في حدث الشيت كما هو ولا تنسي يتم حفظ الملف بصيغه تقبل الماكرو xlsm او xlsb Private Sub Worksheet_Activate() Dim r As Range, i As Long Cells.EntireRow.Hidden = False For i = 7 To 34 If Cells(i, 2) = "" Then If r Is Nothing Then Set r = Cells(i, 2) Else Set r = Union(r, Cells(i, 2)) End If End If Next i If Not r Is Nothing Then r.EntireRow.Hidden = True End Sub

اخي احمد لتأكيد ان الملف لم يكن به مشكله في تشغيل الماكرو انما المشكله في اعدادات الماكرو لديك هذا فيديو يوضح هذا show.zip

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

اخى احمد حمل هذا الملف وشغله بدون اي تغيير للبيانات واخبرنا بالنتيجه هل النتائج صحيحه ام لا

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

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

ازل علامه الصح في هذه الصورة وان شاء الله تظبط معاك

وعليكم السلام ورحمة الله وبركاته حل مشكله اللغه العربيه

وعليكم السلام ورحمة الله وبركاته اين هى صورة الخطأ الذي يظهر لك

بارك الله فيك اخى @علي بطيخ سالم ابو عبدالرحمن وجزاكم الله خيرا على دعاؤكم الطيب

اخي محمود تم فصل المشاركه فعلا في موضوع جديد كل طلب يكون في موضوع منفصل

قم بفتح موجود خاص بك وسوف تجد الاجابه ان شاء الله

وعليكم السلام ورحمة الله وبركاته لطفا ارفق ملفك ليري الاخوة مشكله الملف

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

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

وعليكم السلام ورحمة الله وبركاته جرب هذا الكود بعد اضافه المراجع التاليه Microsoft OLE DB Service Component 1.0 Type Library Microsoft ActiveX Data Objects 6.0 Library Sub Test() Dim dl As MSDASC.DataLinks Dim cn As ADODB.Connection Set dl = New MSDASC.DataLinks Set cn = New ADODB.Connection Set cn = dl.PromptNew End Sub

الحمد لله الذي بنعمته تتم الصالحات

السلام عليكم ورحمة الله وبركاته وبها نبدأ اي موضوع لاستخدام ctrl+f استخدم هذا الامر Application.SendKeys "^f", True

اخى @بلانك ربنا يبارك في وقتك ووقتنا اخى هل قمت بتحميل الملفات التي وضعها اخونا @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 وايضا اخى كل طلب يكون له موضوع مستقل ليكون مرجع وللاستفادة المستقبليه للاعضاء

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