hesap makinesini açma kapama Hazır Excel Makroları (VBA) | Excel Programları

Makroyu Kopyala

'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz. 
 
Option Explicit
'// Declare the Required API's

'// these handle the Calculator Menu
Private Declare Function GetSystemMenu _
    Lib "user32" ( _
    ByVal hWnd As Long, _
    ByVal bRevert As Long) _
As Long

Private Declare Function DeleteMenu _
    Lib "user32" ( _
    ByVal hMenu As Long, _
    ByVal nPosition As Long, _
    ByVal wFlags As Long) _
As Long

'// used to get the Windows Dir
Private Declare Function GetWindowsDirectory _
    Lib "kernel32" _
    Alias "GetWindowsDirectoryA" ( _
    ByVal lpBuffer As String, _
    ByVal nSize As Long) _
As Long

'// used to find the calculator Window
Private Declare Function FindWindow _
    Lib "user32" _
    Alias "FindWindowA" ( _
    ByVal lpClassName As String, _
    ByVal lpWindowName As String) _
As Long

'// used to CLOSE the calcul7ator
Private Declare Function PostMessage _
    Lib "user32" _
    Alias "PostMessageA" ( _
    ByVal hWnd As Long, _
    ByVal wMsg As Long, _
    ByVal wParam As Long, _
    lParam As Any) _
As Long

'// Used to set the Windows Style
Private Declare Function SetWindowPos _
    Lib "user32" ( _
    ByVal hWnd As Long, _
    ByVal hWndInsertAfter As Long, _
    ByVal x As Long, _
    ByVal y As Long, _
    ByVal cx As Long, _
    ByVal cy As Long, _
    ByVal wFlags As Long) _
As Long

'// Positions
Private Const HWND_TOPMOST = -1

Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOACTIVATE = &H10
Private Const SWP_SHOWWINDOW = &H40

Private Const WM_CLOSE = &H10

Private Const MF_BYCOMMAND As Long = &H0

Private Const SC_CLOSE = &HF060

Dim HoldVar As New Class1

Sub WinCalculator_Open()
'// Need to consider International Versions
Dim strSysDir1 As String
Dim strSysDir2 As String
Dim Fso As Object
Dim Ret As Long
Dim strTmp1 As String
Dim strTmp2 As String

'// make sure only ONE instance of Calc is open
'// Unless you want more? then just remove this code.
If HoldVar.hdlCalc Then Exit Sub

'//
On Error Resume Next
'// get users [System Dir] > Typical location of Calculator
Set Fso = CreateObject("Scripting.FileSystemObject")
strSysDir1 = Fso.GetSpecialFolder(1)

'// get users [Windows Dir]
strTmp2 = String(256, Chr(0))
strSysDir2 = Left(strTmp2, GetWindowsDirectory(strTmp2, Len(strTmp2)))

'// Calculator is typically in the [System Dir] or [Windows]
'// lets see!
Ret = Shell(strSysDir1 & "calc.exe", 1)
If Ret = 0 Then Ret = Shell(strSysDir2 & "calc.exe", 1)
If Ret = 0 Then GoTo NoGo
On Error GoTo 0

'// Lets Keep these variable to reference later
'// This is done via Class variable
HoldVar.hdlCalc = FindWindow(vbNullString, "calculator")

'// Disable the CLOSE button > so that we only close
'// the instance of the calculator via Code
WinCalculator_RemoveCloseMenu HoldVar.hdlCalc

'// Make calculator Applet stay ONTOP
SetWindowPos HoldVar.hdlCalc, _
    HWND_TOPMOST, _
    0, 0, 0, 0, _
    SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE

Exit Sub

NoGo:
MsgBox "Couldn't find Calc.exe file!... " & _
    "In either............" & vbCrLf & vbCrLf & _
    strSysDir1 & vbCrLf & " OR " & vbCrLf & _
    strSysDir2, vbCritical, "Better check!"

End Sub

Sub WinCalculator_Close()
    '//
    If HoldVar.hdlCalc Then PostMessage HoldVar.hdlCalc, WM_CLOSE, 0&, 0&
    '// Reset the Windowhandle variable
    HoldVar.hdlCalc = 0
End Sub

Sub WinCalculator_RemoveCloseMenu(hWnd As Long)
'// Removes the CLOSE button on calculator
Dim hMenu As Long

hMenu = GetSystemMenu(hWnd, 0)
    Call DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND)
End Sub

‘classmodüle
Option Explicit

Public hdlCalc As Double
Public strCalcCaption As String

Benzer Sonuçlar
No	Makro Adı
1	hesap makinesini açma kapama
2	menü çubuğunun silinmesi ve özel bir menünün oluşturulması
3	hesap makinesi açma
4	hesap makinesi çağırır
5	listboxla dosya açma kapama silme
6	Hesap Makinesi Aç: Pencerede belirli bir hesap makinesi bulunur ve bu makro kodunu kullanarak hesaplamayı doğrudan Excel kullanımıyla hesaplamalarınız için açabilirsiniz.
7	hesap makinesi çağırma
8	kitabı açma-kopyalama-kapama
9	not defterini açma ve kapama
10	butonu kullanıma açma-kapama
11	cd açma kapama
12	numlock u açma, kapama
13	cd açma kapama 2
14	excel'de kopyalama makrosu nasıl yazılır?
15	a sütunundan g sütununa (g hariç) kadar olan hesaplamalar açık , diğer sütunlar butona basınca hesaplasın
16	Kare Kök Hesaplama: Bir formül uygulamadan karekök hesaplamak için bu kodu kullanabilirsiniz. seçilen tüm hücreleri kontrol eder ve sayıları kareköre dönüştürür.
17	Küp Kökünü Hesapla: Bir formül uygulamadan küp kökünü hesaplamak için bu kodu kullanabilirsiniz. Seçilen tüm hücreleri kontrol eder ve sayıları küp köklerine dönüştürür.
18	ders ortalamalarını hesaplamak
19	Hesaplanamayan formülleri hesaplatmak (Eğer formül yazdığınız halde formülü hesaplamıyorsa bunu kullanın)
20	textboxa rakam girmeye zorlamak

Benzer Sonuçlar

Makro Adı

hesap makinesini açma kapama

menü çubuğunun silinmesi ve özel bir menünün oluşturulması

hesap makinesi açma

hesap makinesi çağırır

listboxla dosya açma kapama silme

Hesap Makinesi Aç: Pencerede belirli bir hesap makinesi bulunur ve bu makro kodunu kullanarak hesaplamayı doğrudan Excel kullanımıyla hesaplamalarınız için açabilirsiniz.

hesap makinesi çağırma

kitabı açma-kopyalama-kapama

not defterini açma ve kapama

butonu kullanıma açma-kapama