ابن الملك قام بنشر يناير 17, 2016 مشاركة قام بنشر يناير 17, 2016 أساتذتى الكرام قمت برفع الملف المرفق من قبل ولكن اخبرنى أحد زملائى بأن الملف لايعمل معه وعندما سألته أخبرنى بأنه يعمل على أوفيس 2013 X64 وعندما دخلت الكود وجدته كالتالى Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long ف هل كلمه User 32 لها علاقه بالموضوع أم لا ........؟؟؟ Convert Numbers to Letters By Excel Ver. 3.rar رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يناير 17, 2016 مشاركة قام بنشر يناير 17, 2016 أخي الكريم ابن الملك استبدال الأسطر التي في أول الموديول في قسم الإعلانات العامة بهذه الأسطر بحيث يعمل الملف على كلا النظامين 32 بت و64 بت #If VBA7 Then Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long) As Long Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare PtrSafe Function DrawMenuBar Lib "user32" (ByVal hwnd As LongPtr) As Long Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hwnd As LongPtr, ByVal nCmdShow As Long) As Long #Else Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long #End If وإليك الملف المرفق بعد التعديل Convert Numbers to Letters By Excel Ver. 3.rar 1 رابط هذا التعليق شارك More sharing options...
ابن الملك قام بنشر يناير 17, 2016 الكاتب مشاركة قام بنشر يناير 17, 2016 1 ساعه مضت, ياسر خليل أبو البراء said: أخي الكريم ابن الملك استبدال الأسطر التي في أول الموديول في قسم الإعلانات العامة بهذه الأسطر بحيث يعمل الملف على كلا النظامين 32 بت و64 بت #If VBA7 Then Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long) As Long Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare PtrSafe Function DrawMenuBar Lib "user32" (ByVal hwnd As LongPtr) As Long Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hwnd As LongPtr, ByVal nCmdShow As Long) As Long #Else Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long #End If وإليك الملف المرفق بعد التعديل Convert Numbers to Letters By Excel Ver. 3.rar استاذى الاستاذ / ياسر خليل شكرا لمساعده حضرتك .... هو ليه مفيش كومنت صورة فيها حكمه النهارده ؟؟؟؟؟؟؟ وفى سؤال تانى بس أنا هسأله فى موضوع تانى هو فى تعريف للمتغيرات لكل نسخ الاوفيس 97 و 2003 و 2007 و 2010 و ........ بس أنا هسأل السؤال ده فى موضوع تانى رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يناير 18, 2016 مشاركة قام بنشر يناير 18, 2016 أخي الكريم البرنس (ابن الملك) بالنسبة للكومنت ..كل الحكاية إني مشغول شوية وبحاول أرد بسرعة على الموضوعات اللي عندي بيها علم ..فدا بياخد وقت مني ، لكن طالما طلبت يبقا على عيني وراسي بالنسبة للسؤال الآخر إنت عارف النظام ..روح للموضوع واطرحه وإن شاء الله تجد إجابات مني أو من غيري 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.