popup Calculator in a cell ?

[WERNER SLABBERT]

i have a sheet that does alot of math, every time i want to change a cel number i have to open win calc, is there a way i can insert a popup calc that will do the math for that cell and then only display the result in said cell ?

eg: i click on b12 and *pop* it shows a popup calc. 20+67+300= *ting* B12 shows 387

	387

<tbody>
</tbody>

 

[James006]

Hi,

Love "Veni, Vedi, Velcro ..." !!!!

You can test following event macro in sheet module

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Program As String
Dim TaskID As Double


Program = "calc.exe"
On Error Resume Next
AppActivate "Calculator"
  If Err <> 0 Then
    Err = 0
    TaskID = Shell(Program, 1)
    If Err <> 0 Then MsgBox "Can't start " & Program
  End If
Cancel = True
End Sub

HTH

 

[WERNER SLABBERT]

Hi,

Love "Veni, Vedi, Velcro ..." !!!!

You can test following event macro in sheet module

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Program As String
Dim TaskID As Double


Program = "calc.exe"
On Error Resume Next
AppActivate "Calculator"
  If Err <> 0 Then
    Err = 0
    TaskID = Shell(Program, 1)
    If Err <> 0 Then MsgBox "Can't start " & Program
  End If
Cancel = True
End Sub

HTH

Hi HTH

Thanx for the code, calls win calc and everything great, but i might be nit picking here is there a way to get the result from calc without still having to insert it into the cell manually, thing is, i am working on a darts game scoreboard and as my friends always cheat in the game i want to eliminate the chances they have to do so. if you want i'll send you a copy so you can see what i mean.

ps: veni,vedi, velcro.... it made sence when i started working in excel...lol

Is there not maybe some way to embed a vb form into the workbook for this function, ?

 

[James006]

Hi,

For a userform which replicates Win Calc ...have a look at this solution:
Excel VBA - Calculator

HTH

 

[WERNER SLABBERT]

Hi Again, thanx for the calc, i have sort of got it working. but still have no way of getting the calc to enter the total in the selected cell automatically, i will fiddle some more and let you know.