RCRG

　暱稱: RCRG滾奶滾企

帖子: 95
主題: 24
精華: 0
積分: 118
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2015-11-10
最後登錄: 2020-5-25

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-11-12 09:06 | 顯示全部帖子

如何利用VBA一鍵自動填入1或3呢?

一鍵自動填入1或3.rar (11.86 KB)

樓主熱帖

RCRG

　暱稱: RCRG滾奶滾企

中學生 Rank: 2

帖子: 95
主題: 24
精華: 0
積分: 118
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2015-11-10
最後登錄: 2020-5-25

2^#

發表於 2015-11-12 11:01 | 顯示全部帖子

謝謝兩位的回答，測試兩位的結果都是我要的答案，真的非常謝謝！自從知識+改版後，提出問題好像都石沉大海，索性讓我發現這個論壇，更讓我驚豔的是，以前曾經在舊版知識+幫我解答過的excel專家們竟然都在這兒，真的好讓我開心！希望日後還能獲得各位大大賜教與指導。

TOP

RCRG

　暱稱: RCRG滾奶滾企

中學生 Rank: 2

帖子: 95
主題: 24
精華: 0
積分: 118
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2015-11-10
最後登錄: 2020-5-25

3^#

發表於 2015-11-13 11:02 | 顯示全部帖子

回復 3# 准提部林

想請問一下准大相反做法，若符合號碼就填3，否則就填1，那公式要如何修改呢?

TOP

RCRG

　暱稱: RCRG滾奶滾企

中學生 Rank: 2

帖子: 95
主題: 24
精華: 0
積分: 118
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2015-11-10
最後登錄: 2020-5-25

4^#

發表於 2015-11-14 04:03 | 顯示全部帖子

回復 6# 准提部林

原來如此，下面三個都可以通用是吧！可是好像會出現錯誤，自己反覆測試後，應該是少了""，所以如容許我把正解再PO一次吧！
最後也再次謝謝准大囉！

=IF(C3="""","""",3^COUNT(MATCH(C3,AA$3:AA$500,)))
=IF(C3="""","""",IF(COUNT(MATCH(C3,AA$3:AA$500,)),3,1))
=IF(C3="""","""",IF(ISNA(MATCH(C3,AA$3:AA$500,)),1,3))

TOP

RCRG

　暱稱: RCRG滾奶滾企

中學生 Rank: 2

帖子: 95
主題: 24
精華: 0
積分: 118
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2015-11-10
最後登錄: 2020-5-25

5^#

發表於 2015-11-21 11:14 | 顯示全部帖子

本帖最後由 RCRG 於 2015-11-21 11:16 編輯

Sub TEST()
With
　　　.Formula = "=IF(C3="""","""",3^(1-COUNT(MATCH(C3,AA$2:AA$500,))))"
　　　. ...
准提部林發表於 2015-11-12 10:09

謝謝准大的解題！

我想了解另一種不必按鈕的做法，就是不用按鍵也會直接幫我填入，而觸發填入時間點為：每當Sheet2的C3:C200任何一欄內容有異動時，B3:B79就全部再重新填入一次。

有點龜毛，但還是先跟各位大大說聲抱歉，麻煩指教了！>"<

TOP

RCRG

　暱稱: RCRG滾奶滾企

中學生 Rank: 2

帖子: 95
主題: 24
精華: 0
積分: 118
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2015-11-10
最後登錄: 2020-5-25

6^#

發表於 2015-11-21 13:21 | 顯示全部帖子

回復 10# 准提部林

好怪，把您的VBA貼在Sheet2工作表後，在C欄裡一直修改內容，也沒見他自動填入呢?
是我貼錯位置還是需要甚麼其他動作嗎?

對了！我會觸發的 "自動填入" 的修改C欄的範圍有增加到C3:C200喔，因為有時使用者會異動到100多列，所以我乾脆把範圍增加到C200也會觸發。

TOP

RCRG

　暱稱: RCRG滾奶滾企

中學生 Rank: 2

帖子: 95
主題: 24
精華: 0
積分: 118
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2015-11-10
最後登錄: 2020-5-25

7^#

發表於 2015-11-21 18:31 | 顯示全部帖子

回復 10# 准提部林

謝謝准大的指正，測試的的結果，我好像找不到修改C欄位後就自動填入的，有一些都是我只是滑鼠點選C欄位，還沒修改就填入了，不知還有其他可以選嗎

TOP

RCRG

　暱稱: RCRG滾奶滾企

中學生 Rank: 2

帖子: 95
主題: 24
精華: 0
積分: 118
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2015-11-10
最後登錄: 2020-5-25

8^#

發表於 2015-11-22 04:12 | 顯示全部帖子

回復 14# 准提部林

謝謝准大解答，參照您的答案，我自己再變更一下手法，也算是可以自動觸發了，再一次感謝您多次的幫忙！

TOP

RCRG

　暱稱: RCRG滾奶滾企

中學生 Rank: 2

帖子: 95
主題: 24
精華: 0
積分: 118
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2015-11-10
最後登錄: 2020-5-25

9^#

發表於 2015-11-24 16:39 | 顯示全部帖子