×

注意!页面内容来自https://www.mrexcel.com/board/threads/popup-calculator-in-a-cell.927317/,本站不储存任何内容,为了更好的阅读体验进行在线解析,若有广告出现,请及时反馈。若您觉得侵犯了您的利益,请通知我们进行删除,然后访问 原网页

You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an alternative browser.

popup Calculator in a cell ?

WERNER SLABBERT

Board Regular
Joined
Mar 32009
Messages
107
i have a sheet that does alot of mathevery time i want to change a cel number i have to open win calcis 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
[TABLE="class: gridwidth: 500"]
<tbody>[TR]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD]387[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]
 

Excel Facts

Control Word Wrap
Press Alt+Enter to move to a new row in a cell. Lets you control where the words wrap.
Hi,

Love "VeniVediVelcro ..." !!!! :laugh: :laugh: :laugh:

You can test following event macro in sheet module
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As RangeCancel 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(Program1)
    If Err <> 0 Then MsgBox "Can't start " & Program
  End If
Cancel = True
End Sub

HTH
 
Upvote 0
Hi,

Love "VeniVediVelcro ..." !!!! :laugh: :laugh: :laugh:

You can test following event macro in sheet module
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As RangeCancel 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(Program1)
    If Err <> 0 Then MsgBox "Can't start " & Program
  End If
Cancel = True
End Sub

HTH

Hi HTH

Thanx for the codecalls win calc and everything greatbut 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 manuallything isi 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,vedivelcro.... 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?
 
Last edited:
Upvote 0
Hi Againthanx for the calci have sort of got it working. but still have no way of getting the calc to enter the total in the selected cell automaticallyi will fiddle some more and let you know.
 
Upvote 0
Back
Top