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

الردود الموصى بها

قام بنشر

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

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

وشكرا لكم

قام بنشر (معدل)

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

يمكنك ذلك عن طريق توابع الـ 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