CAN YOU ENTER A FIXED AMOUNT OF DATA WITH A MOUSE CLICK IN AN EXCEL CELL?

With the following methods, you can barely cope.

private sub worksheet_selectionchange(byval target as range)

if > 1 then end

if <>"$a$1" then endif isempty(target) thentarget = 2007

end if

end sub

Press a1 with the mouse, and a1 will appear 2007

Already on A1, pressing A1 again is no longer activating.

After clicking on the other squares, press A1 and 2007 will disappear.

Note: When using such an overly automated program to place a file on business, the user should have a high degree of VBA ability and set up some protection to deal with incorrect operations, otherwise errors can easily occur.

This one definitely won't work. If it's like you say, you can't do anything else with the cell.

That's a great question!

Method: Use VB to make a control in a cell and program a VB program to prompt the control to activate that is, to display a certain data in the cell.

You've touched the shift key. By default, if you click the shift key 5 times in a row, the sticky key will appear. If you press the shift or ctrl keys twice, they switch between normal and sticky.

That is, if you press shift twice, you will go back to the normal state, and if you press shift twice, you will return to the sticky state you said.

If you want to cancel the use of sticky keys, method 1: double-click the "sticky keys" icon in the bottom right corner of the taskbar window (as shown in the figure), a dialog box appears, remove the checkbox of "use sticky keys", and click OK.

Method 2: Click the shift key 5 times in a row, a sticky key prompt dialog box appears, select "Settings", remove the checkbox in the "Use sticky key" checkbox, and click OK.

Method 3: Open "Control Panel - Accessibility Options - Keyboard", remove the checkbox from "Use Sticky Keys", and click OK.

Select the mouse to be released.

It can be achieved by writing ** in VBA.

The detailed steps are as follows:

Open the VBA interface, double-click "Sheet1" under the Microsoft Excel object on the left, and make sure that the program is executed in Sheet1.

2.Click the drop-down arrow to the right of "General" in the image below and select Worksheet4Add a sentence **"range(.")"h1")="

5.Close the VBA interface, return to Sheet1, click any cell, and you will see that the value of H1 is equal to the value of the clicked cell.

Paste the following into the Macros area.

private sub worksheet_selectionchange(byval target as range)

if = 5 and = 7 then exit subif >= 7 and <= 10 and >= 2 and <= 7 then

range("g5") =

end if

end sub

A simple VBA** will do.

Formulas can't do it.