[發問] 請問如何讓表單關閉後不清除上次的資料呢?

　暱稱: 豪

帖子: 471
主題: 121
精華: 0
積分: 579
點名: 0
作業系統: WIN10
軟體版本: OFFICE2019
閱讀權限: 50
性別: 男
註冊時間: 2015-4-16
最後登錄: 2023-1-17

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-5-18 23:51 | 顯示全部帖子

[發問] 請問如何讓表單關閉後不清除上次的資料呢?

如標題所示....
另想請問如何設定可讓以下程式碼可指定合併儲存格呢? 使用.VALUE嗎?請問該如何套用

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$4" Then UserForm1.Show
End Sub

複製代碼

自訂表單-不清除上一次資料.zip (13.6 KB)

樓主熱帖

　暱稱: 豪

帖子: 471
主題: 121
精華: 0
積分: 579
點名: 0
作業系統: WIN10
軟體版本: OFFICE2019
閱讀權限: 50
性別: 男
註冊時間: 2015-4-16
最後登錄: 2023-1-17

2^#

發表於 2015-5-19 08:23 | 顯示全部帖子

回復 2# GBKEE

1.不好意思~是我沒表達清除是指這項代碼如何可指定合併過後的儲存格

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$4" Then UserForm1.Show
End Sub

複製代碼

如果指向合併儲存格的話就沒法秀出表單,

2.是的~是我要的功能,感謝版主

　暱稱: 豪

帖子: 471
主題: 121
精華: 0
積分: 579
點名: 0
作業系統: WIN10
軟體版本: OFFICE2019
閱讀權限: 50
性別: 男
註冊時間: 2015-4-16
最後登錄: 2023-1-17

3^#

發表於 2015-5-19 10:15 | 顯示全部帖子

回復 4# GBKEE

感謝！！！

　暱稱: 豪

帖子: 471
主題: 121
精華: 0
積分: 579
點名: 0
作業系統: WIN10
軟體版本: OFFICE2019
閱讀權限: 50
性別: 男
註冊時間: 2015-4-16
最後登錄: 2023-1-17

4^#

發表於 2015-5-19 13:42 | 顯示全部帖子

本帖最後由 starry1314 於 2015-5-19 13:55 編輯

回復 4# GBKEE

版主~不好意思！請問這功能是有限定數量嗎？
因我筆數增加到１百多筆之後，上次點選記錄就失效了

自訂表單-不清除上一次資料.rar (31.62 KB)

想另外請問自行輸入那邊要如何寫呢?
TextBox1.text = IIF(.RANGE("C99") = TEXTBOX1.text

　暱稱: 豪

帖子: 471
主題: 121
精華: 0
積分: 579
點名: 0
作業系統: WIN10
軟體版本: OFFICE2019
閱讀權限: 50
性別: 男
註冊時間: 2015-4-16
最後登錄: 2023-1-17

5^#

發表於 2015-5-19 14:02 | 顯示全部帖子

回復 6# starry1314

自行輸入已解決
Sheets("工作表1").Range("C227") = TextBox1.Text

　暱稱: 豪

帖子: 471
主題: 121
精華: 0
積分: 579
點名: 0
作業系統: WIN10
軟體版本: OFFICE2019
閱讀權限: 50
性別: 男
註冊時間: 2015-4-16
最後登錄: 2023-1-17

6^#

發表於 2015-5-19 14:53 | 顯示全部帖子

回復 8# GBKEE

不好意思~原來是我自己粗心了,
不過多的,是故意加的~剛發現原來是上一個程式碼少加, 不一致