زر ماكرو لإظهار الآلة الحاسبة لصفحة االاكسل

[skyblue]

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

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

وشكرا لكم

[محمد حجازي]

السلام عليكم ...

يمكنك ذلك عن طريق توابع الـ API ، الكود :

Private Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long
Sub TurnOn()
WinExec "C:\WINDOWS\system32\calc.exe", 10
End Sub

تم تعديل سبتمبر 27, 2006 بواسطه علي السحيب

[محمد حجازي]

السلام عليكم ...

كما يمكنك الاستعانة بالتعليمة Shell لأداء نفس المهمة :

Sub TurnOn()
  Dim RetVal As Double
  RetVal = Shell("C:\WINDOWS\system32\calc.exe", 1)
End Sub

أما بالنسبة للرقم الموجود في المدخل الثاني للتعليمة Shell فهو يخص الهيئة التي ستكون عليها نافذة البرنامج المفتوح (الأرقام وما يقابلها من ثوابت) :

الرقم (0) : vbHide

الرقم (1) : vbNormalFocus

الرقم (2) : vbMinimizedFocus

الرقم (3) : vbMaximizedFocus

الرقم (4) : vbNormalNoFocus

الرقم (6) : vbMinimizedNoFocus

تم تعديل سبتمبر 27, 2006 بواسطه علي السحيب