您可以在EXCEL單元格中單擊滑鼠輸入固定數量的資料嗎？

使用以下方法，您幾乎無法應對。

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

用滑鼠按 a1，a1 將出現 2007

已經在 A1 上，再次按 A1 不再啟用。

單擊其他方塊後，按 A1 和 2007 將消失。

注意：當使用這種過於自動化的程式將檔案放在業務上時，使用者應該具有高度的VBA能力，並設定一些保護來處理不正確的操作，否則很容易發生錯誤。

這個絕對行不通。 如果像你說的那樣，你不能對細胞做任何其他事情。

這是乙個很好的問題！

方法：使用VB在單元格中製作乙個控制項，並對VB程式進行程式設計，以提示控制項啟用，即在單元格中顯示某個資料。

您已經按下了 shift 鍵。 預設情況下，如果連續單擊 shift 鍵 5 次，則會出現粘滯鍵。 如果按兩次 shift 或 ctrl 鍵，它們會在正常和粘性之間切換。

也就是說，如果你按兩次shift，你會回到正常狀態，如果你按兩次shift，你會回到你說的粘性狀態。

如果要取消粘滯鍵的使用，方法一：雙擊工作列視窗右下角的“粘滯鍵”圖示（如圖所示），出現乙個對話方塊，刪除“使用粘滯鍵”核取方塊，點選確定。

方法二：連續按shift鍵5次，出現粘滯鍵提示對話方塊，選擇“設定”，刪除“使用粘滯鍵”核取方塊中的核取方塊，點選確定。

方法3：開啟“控制面板-輔助功能選項-鍵盤”，從“使用粘滯鍵”中刪除核取方塊，然後單擊確定。

選擇要釋放的滑鼠。

它可以通過在 VBA 中寫入 ** 來實現。

具體步驟如下：

開啟VBA介面，雙擊左側Microsoft Excel物件下的“Sheet1”，並確保程式在Sheet1中執行。

2.單擊下圖中“常規”右側的下拉箭頭，然後選擇 Worksheet4新增一句話 **“range（.”）"h1")="

5.關閉VBA介面，返回Sheet1，單擊任意單元格，您將看到H1的值等於單擊的單元格的值。

將以下內容貼上到“巨集”區域中。

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

乙個簡單的 VBA** 就可以了。

公式做不到。