Insert increase number button

[George24]

Hi


I am quite new to VBA and haven't had much luck finding a solution to this online.

For context: I have created a 25 by 4 (x,y) table with headers in the first row and first column. The column lists specific products, while the row has different categories. I have to write down the amount of delivered products in their respective row/column.



Is it possible for me to insert an invisible button in each cell (that will pop up when I hover over it) with an option to increase the amount? The base number being <empty> instead of "0", as empty rows will need to be removed by a macros I created.


And to be greedy, can I add a shortcut key to each cell that I want to increase in amount? E.g. Apple - Thomas would be CTRL + 1 + 2 as Apple is the first product and Thomas is the second category. This would increase the cell to "1", and if I use the shortcut key again, it'll increase to 2 etc...

Thank you in advance for your help.



Greetings



Just an example:

[gmaxey]

The answer to your basic question is no. However, you can add a plain text content control to your cells and use something like the following in the VB Project ThisDocument module:

Option Explicit
Dim oCCTarget As ContentControl
Private Sub Document_ContentControlOnEnter(ByVal ContentControl As ContentControl)
  Set oCCTarget = ContentControl
End Sub
Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
  Set oCCTarget = Nothing
End Sub
Sub Increment()
  If Not oCCTarget Is Nothing Then
   Select Case oCCTarget.Range.Text
     Case Is = vbNullString
       oCCTarget.Range.Text = 1
     Case Else
       If IsNumeric(oCCTarget.Range.Text) Then
         oCCTarget.Range.Text = Val(oCCTarget.Range.Text) + 1
       Else
         oCCTarget.Range.Text = 1
       End If
  End Select
 End If
lbl_Exit:
  Exit Sub
End Sub