coafort

帖子: 156
主題: 31
精華: 0
積分: 235
點名: 0
作業系統: win7
軟體版本: excel 2003
閱讀權限: 20
註冊時間: 2018-1-5
最後登錄: 2024-3-8

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2023-2-16 10:00 | 顯示全部帖子

計算後自動刪除

舉例
A1數字100
A2輸入50按下enter後自動清空A2數字
A3等於A1+A2的結果150
請問該如何寫呢？

謝謝大大

樓主熱帖

coafort

中學生 Rank: 2

帖子: 156
主題: 31
精華: 0
積分: 235
點名: 0
作業系統: win7
軟體版本: excel 2003
閱讀權限: 20
註冊時間: 2018-1-5
最後登錄: 2024-3-8

2^#

發表於 2023-2-16 13:23 | 顯示全部帖子

回復 coafort

謝謝前輩發表此主題
後學建議vba觸發的方式

Option Explicit
Private Sub Wo ...
Andy2483 發表於 2023-2-16 11:42

報告大大
沒作用
謝謝

TOP

coafort

中學生 Rank: 2

帖子: 156
主題: 31
精華: 0
積分: 235
點名: 0
作業系統: win7
軟體版本: excel 2003
閱讀權限: 20
註冊時間: 2018-1-5
最後登錄: 2024-3-8

3^#

發表於 2023-2-16 14:59 | 顯示全部帖子

回復 coafort

謝謝前輩回復
上傳測試檔,請下載來試試看
Andy2483 發表於 2023-2-16 14:07

啊
我搞錯了
應該是這樣
A1 100
A2 輸入50
A1會變成150
A2消失
真是不好意思
麻煩大大
謝謝大大

TOP

coafort

中學生 Rank: 2

帖子: 156
主題: 31
精華: 0
積分: 235
點名: 0
作業系統: win7
軟體版本: excel 2003
閱讀權限: 20
註冊時間: 2018-1-5
最後登錄: 2024-3-8

4^#

發表於 2023-2-16 18:33 | 顯示全部帖子

回復 coafort

謝謝前輩再回復
請前輩將工作表模組下原來的程式碼換成下列程式碼,然後再操作試 ...
Andy2483 發表於 2023-2-16 15:22

可以了
非常感謝大大

TOP

coafort

中學生 Rank: 2

帖子: 156
主題: 31
精華: 0
積分: 235
點名: 0
作業系統: win7
軟體版本: excel 2003
閱讀權限: 20
註冊時間: 2018-1-5
最後登錄: 2024-3-8

5^#

發表於 2023-2-17 08:06 | 顯示全部帖子

回復 coafort

謝謝前輩回復
上傳測試檔,請下載來試試看
Andy2483 發表於 2023-2-16 14:07

請問大大
如果我有三個項目需要這種功能
請問要怎麼加入？
謝謝

TOP

coafort

中學生 Rank: 2

帖子: 156
主題: 31
精華: 0
積分: 235
點名: 0
作業系統: win7
軟體版本: excel 2003
閱讀權限: 20
註冊時間: 2018-1-5
最後登錄: 2024-3-8

6^#

發表於 2023-2-17 10:48 | 顯示全部帖子

回復 coafort

謝謝前輩繼續一起學習
以下是編輯觸發 $A$2 ,$B$2 $B$2 的測試碼,請前輩試改成所 ...
Andy2483 發表於 2023-2-17 09:15

非常感謝大大的幫忙
回應速度快速
程式精準
感恩

TOP

coafort

中學生 Rank: 2

帖子: 156
主題: 31
精華: 0
積分: 235
點名: 0
作業系統: win7
軟體版本: excel 2003
閱讀權限: 20
註冊時間: 2018-1-5
最後登錄: 2024-3-8

7^#

發表於 2023-2-21 16:49 | 顯示全部帖子

本帖最後由 coafort 於 2023-2-21 16:53 編輯

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Count > 1 Or .Item(1) = " ...
准提部林發表於 2023-2-17 10:48

真是太感謝大大了
請問大大
我實際位置是
AQ212~AQ218及AQ212~AW218及BB221是輸入數值欄(觸發)
AR212~AR218及AX212~AX218及BC221是儲存格
請問要怎麼改呢？
謝謝大大

TOP

coafort

中學生 Rank: 2

帖子: 156
主題: 31
精華: 0
積分: 235
點名: 0
作業系統: win7
軟體版本: excel 2003
閱讀權限: 20
註冊時間: 2018-1-5
最後登錄: 2024-3-8

8^#

發表於 2023-2-21 16:52 | 顯示全部帖子

回復 coafort

建議使用准提部林前輩的方法更方便擴充使用該功能的儲存格
在以下程式碼藍字部位 ...
Andy2483 發表於 2023-2-18 08:42

真是太感謝大大了
請問大大
我實際位置是
AQ212~AQ218及AQ212~AW218及BB221是輸入數值欄(觸發)
AR212~AR218及AX212~AX218及BC221是儲存格
請問要怎麼改呢？
謝謝大大

TOP

coafort

中學生 Rank: 2

帖子: 156
主題: 31
精華: 0
積分: 235
點名: 0
作業系統: win7
軟體版本: excel 2003
閱讀權限: 20
註冊時間: 2018-1-5
最後登錄: 2024-3-8

9^#

發表於 2023-2-21 19:34 | 顯示全部帖子

本帖最後由 coafort 於 2023-2-21 19:37 編輯

打錯了
是
真是太感謝大大了
請問兩位大大
我實際位置是
AQ212~AQ218及AW212~AW218及BB221是輸入數值欄(觸發)
AR212~AR218及AX212~AX218及BC221是儲存格

我改成這樣
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
   If .Count > 1 Or .Item(1) = "" Then Exit Sub
   If Not Intersect([AQ212:AQ218,AW212:AW218,BB221], .Cells) Is Nothing Then
      .Cells(0, 1) = Val(.Cells(0, 1)) + Val(.Value)
      .ClearContents
   End If
End With
End Sub
但是出錯了
請問要怎麼改呢？
謝謝大大

TOP

coafort

中學生 Rank: 2

帖子: 156
主題: 31
精華: 0
積分: 235
點名: 0
作業系統: win7
軟體版本: excel 2003
閱讀權限: 20
註冊時間: 2018-1-5
最後登錄: 2024-3-8

10^#

發表於 2023-2-22 14:27 | 顯示全部帖子

回復 coafort

謝謝前輩一起學習
請前輩再測試看看,謝謝
Option Explicit
Private Sub Worksh ...
Andy2483 發表於 2023-2-22 07:35

感謝大大
可以用了
對了
大大最後一行多了一個Option Explicit

TOP