DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub karesi()
On Error Resume Next
x = InputBox("Karesi Alınacak Sayıyı Girin")
y = x * x
MsgBox "Karesi " & y
End Sub
Sub karesi_hücre()
x = ActiveCell.Value
ActiveCell.Value = x * x
End Sub
Sub Auto_Open()
Application.OnKey "{F5}", "karesi_hücre"
End Sub
Sub Auto_Close()
Application.OnKey "{F5}"
End Sub
Sub karesi_hücre()
On Error Resume Next
x = ActiveCell.Value
If x = "" Then
MsgBox "Hücrede Karesi Alınacak Değer Yok"
Else
ActiveCell.Value = x * x
End If
End Sub