اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


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

تم تعديل بواسطه علي السحيب
رابط هذا التعليق
شارك

  • 3 months later...

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

كما يمكنك الاستعانة بالتعليمة 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

تم تعديل بواسطه علي السحيب
رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information