輸入值自動減去 1，由 VBA 實現

1. 開啟 Excel**。

2. 在相應的單元格中輸入資料，或開啟原始資料報告。

3. 將滑鼠懸停在空格上。

4. 在選單欄中選擇求和工具。

5.將出現以下公式，a1代表第一行，a2代表第二行，依此類推。

6.在標有紅線的單元格上方的長空格中將“：”改為“-”，即可以看到第三行標出的紅線也變成了“-”號。

7. 按 Enter 鍵獲取結果。

假設您需要按日期將工作表單元格 E1 增加 1：

1.在**中未使用的任何單元格中輸入此**的開始日期，然後在e1位置輸入公式：

today（）-l1+1 回車;

見圖12，此時E1位置以日期格式顯示，右鍵點選單元格，選擇：設定單元格格式;

見圖23，選擇彈出的“格式化單元格”左側的值，將右側的小數設定為：0，然後點選確認;

見圖3 4，設定後的顯示效果。

說明見圖4：如果有開始日期，那麼可以直接引用，如果覺得開始日期顯示會破壞整體效果，也可以將此單元格的字型設定為白色：參見圖5。

1.工具。

計算機，excel**。

2.方法論。 Excel 附帶公式 dateif

3. 步驟。 1.輸入公式 =datedif（"2016-4-6",today(),"d"（在本例中為 E1）。

2.將數字所在的單元格更改為“=number-e1”，就可以根據天數得到減去1的結果。

備註：datedif公式的第一項填寫開始日期，第二項填寫當天的日期，第三項填寫"d"表示計算兩者之間的天差。

加 1 可以實現，減去 1 現在似乎真的是不可能的。

目前無法實現現有功能。 VBA 也是無法實現的。

在任何單元格中輸入以下公式：

today()-40329

備註：顯示的是日期，選擇此單元格，將其設定為常規格式，即可。

輸入公式：

n(today())

例如，今天這個值是 40330，明天是 40331

您可以使用此值進行調整。

1. 首先輸入選項和問題。

2. 按住 alt+F11，將出現以下內容。

窗。 3. 開啟**視窗並將以下**複製到其中，私有子工作表 selectionchange（byval target as range） target = target + 1end sub。

4.儲存後關閉視窗。

5.最後，點選它，數字會加到乙個，然後按 alt+f11 得到後，刪除**，儲存。

點選檢視工具欄 表單選單開啟表單工具欄，選擇圖表區域後，點選表單工具欄上的 [滾動條] 按鈕，然後在圖表區域用滑鼠左鍵拖動滾動條。 接下來，右鍵單擊滾動條，在選單中選擇“格式控制”命令，在彈出視窗的“控制”選項卡下通過“最小”、“最大”、“步長”進行設定，在“單元格鏈結”列中輸入“$a$1”，[確定] 退出後，如果拖動滾動條，單元格 A1 中的資料將發生變化。

使用 VBA

函式實現。 private sub worksheet_selectionchange(byval target as range)

on error resume next

if = "$a$3" or = "$b$3" _

or = "$c$3" or = "$d$3" then

end if

end sub

說明：1開啟VBA後，在下圖左下角的列表中選擇要實現此功能的表; 在右側，選擇“selectionchange”功能，當相應的表格發生變化時（例如，單擊不同的單元格）會觸發該功能。

2.="$a$3"語句中的“$a$3”，也就是你想實現這個功能的單元格，只有當你點選單元格時，單元格中的資料才會自動加1。

3.單擊計數單元格後，您需要單擊一次其他單元格，然後再次單擊以新增 1，以防止錯誤。 截圖：

是的，需要程式設計。

這是什麼意思？ <>

為什麼不插入一行並用公式來做呢？ 在貼上中作為值完成。

此外，根據您的描述，A1 應顯示 215

可能不會，如果你這樣設定它，就會有乙個迴圈引用。

方法一、使用輔助柱：

例如，在 b 列中輸入每月加班時間，在 c2 中輸入公式 =if（b2=）"",""，b2*，複製公式。

方法二，如果想在原單元實現，需要使用巨集：

例如，如果在 b2：b100 中的區域中輸入每月加班時間，請右鍵單擊工作表的名稱，檢視並貼上以下內容：

private sub worksheet_selectionchange(byval target as range)

if = 2 and > 2 and <= 100 then '前 2 表示 B 列（第 2 列），後面的 2 和 100 代表第 2 行和第 100 行，可自行更改。

0) = , 0) *'您可以根據實際需要進行更改。

end if

end sub

返回Excel，在B列中輸入資料，按回車鍵跳轉到下乙個網格，觸發巨集實現功能。

此功能可以使用VBA進行程式設計，以對特定單元格的“離開”事件進行程式設計，即輸入單元格並輸入乙個數字，在離開單元格時觸發事件，將您剛剛輸入的數字乘以另乙個數字。 但是，除非長期大規模地定期使用此功能，否則實際上沒有必要編寫偵錯程式。

在 Excel 中，有很多方法可以在不程式設計的情況下做你想做的事。

型別 1：選擇性貼上。

複製“2”單元格。

選擇要處理的資料，右鍵單擊 - > Paste Specialty - > Paste Special ......

要處理的值將轉換為乘以 2 的結果。

第二種方法：新增輔助列。

在“處理的資料”單元格中，輸入公式，使其等於左側的單元格乘以固定數字。

在原始資料中輸入數字時，處理後的資料會自動成為原始資料乘以固定數字的結果。

複製處理後的資料，選擇原始資料->右鍵->貼上特殊->值，原始資料將成為固定數字相乘的結果。 此時，幫助程式列“已處理的資料”完成任務，我們可以將其刪除。

在空白處輸入處理因子值，然後複製單元格。

選擇要相乘的所有單元格 - 右鍵單擊“選擇性貼上”（Paste Special） - 相乘。

我們用乙個輔助的例子，乙個例子反映加班時間，另乙個例子是加班工資 加班工資=加班時間*正常操作只在加班時間操作，這樣加班金額就自動計算出來了。

很簡單，加我，我教你。

新增乙個具有以下函式的幫助程式列：

if(a1>10,a1-1,a1)

其他單元格可以自動填充。

1.放置在原來的位置，是公式2無法實現的它可以通過巨集實現，如果需要，您可以選擇任何區域。

巨集如下所示。

sub ff()

for i = to +

for j = to +

if cells(i, j).value > 10 thencells(i, j).value = cells(i, j).value - 1

end if

next j

next i

end sub

選擇要處理的區域並執行巨集。

它可以是中間的任何選定區域，而不需要整行或整列，也可以是一次多行或多列。

新增乙個按鈕，然後使用以下巨集實現它，在第二行 （） 的括號中更改區域的大小。"a1:b20")

private sub commandbutton1_click()for each cle in range("a1:b20")if cle > 10 then cells(, = cle - 1

nextend sub

首先，通過條件格式設定大於 10 的單元格的底紋，在單元格中輸入 -1，右鍵複製，然後點選： - 定位 - 定位 - 定位 - 選擇“條件格式”以選擇剛剛著色的所有大於 10 的單元格，右鍵單擊其中乙個單元格，單擊“選擇性貼上”，然後在其中選擇“新增”。 結束後，刪除所有單元格陰影並將其恢復到原始狀態。

例如，資料位於 A 列中。 在B列中輸入。

if(a1>10,a1-1,a1)

您可以插入一列，然後在使用公式計算後隱藏原始列。

定義乙個全域性變數 j，在 for 迴圈中將 for i=1 寫給 j，然後在 commandbutton click 事件程序中設定變數加 1，j=j+1