如何每3列中同一行只允許一個(gè)單元格中能輸入數(shù)據(jù)？

如何每3列中同一行只允許一個(gè)單元格中能輸入數(shù)據(jù)？

問：工作表同一行中每三個(gè)單元格同時(shí)只能有一個(gè)單元格顯示數(shù)據(jù)。如下圖 1所示，在單元格區(qū)域 B6：D6中，如果在單元格 B6中輸入了數(shù)據(jù)，那么單元格 C6和 D6中的內(nèi)容就會(huì)被清除；如果在單元格 C6中輸入的數(shù)據(jù)，那么單元格 B6和 D6中的內(nèi)容會(huì)被清除；如果在單元格 D6中輸入的數(shù)據(jù)，那么單元格 B6和 C6中，內(nèi)容就會(huì)被清除。同樣，對(duì)于單元格區(qū)域 E6：G6也如此， H6：J6也如此 ……，依此類推。并且，下面的第 7行至第 20行也都是如此。該如何實(shí)現(xiàn)？

圖 1

甲：對(duì)照工作表分析一下列號(hào)的規(guī)律，列乙， ? ， d ， ê ， ?F ， G ^ ， … 對(duì)應(yīng)的列號(hào)為 2 ， 3 ， 4 ， 5 ， 6 ， 7 ， …… ，每個(gè)數(shù)字除以 3 ，依次以每 3 個(gè)為一組，它們的余數(shù)均為 2 ， 0 ， 1 ，這就好辦了！

如果當(dāng)前輸入的單元格所在列的列號(hào)除以 3 ，余數(shù)為 2 ，表明當(dāng)前單元格在該組 3 個(gè)單元格的第 1 個(gè)單元格，那么其相鄰的兩個(gè)單元格中的內(nèi)容就要清空。如果當(dāng)前單元格所在的列的列號(hào)除以 3 ，余數(shù)為 0 ，表明當(dāng)前單元格處在 3 個(gè)單元格的中間，那么其相鄰的垂直和頂部單元格中的內(nèi)容要清空。如果當(dāng)前單元格所在列的列號(hào)除以 3 ，余數(shù)為 1 ，表明當(dāng)前單元格處在 3 個(gè)單元格的最后一個(gè)單元格，那么其前面的兩個(gè)單元格中內(nèi)容要清空。

按照這個(gè)思路，在工作表所在的模塊中輸入事件過程代碼：

專用子Worksheet_SelectionChange（按目標(biāo)的ByVal目標(biāo)）

調(diào)光范圍

設(shè)置rng = Range（“ B6：S20”）

有目標(biāo)

如果不相交（目標(biāo)，rng）什么都沒有

如果（.Column Mod 3）= 2

.Offset（0,1）.ClearContents

.Offset（0,2）.ClearContents

ElseIf（.ColumnMod 3）= 0然后

.Offset（0，-1）.ClearContents

.Offset（0,1）.ClearContents

ElseIf（Target.Column Mod 3）= 1然后

.Offset（0，-2）.ClearContents

.Offset（0，-1）.ClearContents

萬(wàn)一

萬(wàn)一

結(jié)束于

結(jié)束子

如果工作簿中的所有工作表都要實(shí)現(xiàn)上述功能，那么可以將在工作簿模塊中編寫事件代碼：

私有子工作簿_SheetSelectionChange（ByVal Sh作為對(duì)象，ByVal目標(biāo)作為范圍）

調(diào)光范圍

設(shè)置rng = Range（“ B6：S20”）

有目標(biāo)

如果不相交（目標(biāo)，rng）什么都沒有

如果（.Column Mod 3）= 2

.Offset（0,1）.ClearContents

.Offset（0,2）.ClearContents

ElseIf（.ColumnMod 3）= 0然后

.Offset（0，-1）.ClearContents

.Offset（0,1）.ClearContents

ElseIf（Target.Column Mod 3）= 1然后

.Offset（0，-2）.ClearContents

.Offset（0，-1）.ClearContents

萬(wàn)一

萬(wàn)一

結(jié)束于

結(jié)束子

代碼的圖片版如下：

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。