|
示例文件下載： 鏈接：https://pan.baidu.com/s/1MNpaolbVyD4EQwl7x1NPaQ 昨天,，有小伙伴給小編留言，問聚光燈怎么制作,，不知道是不是小編理解錯(cuò),，今天就做了一個(gè) 做普通的聚光燈有很多方法，條件格式,，工作簿事件等,，這里小編使用工作簿事件Workbook_SheetSelectionChange 代碼需要寫在ThisWorkbook模塊中 如果不想整個(gè)工作簿都包含該事件，可以復(fù)制該代碼到工作表模塊中 Worksheet_SelectionChange 代碼如下: Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) On Error Resume Next Dim Rng As Range Application.ScreenUpdating = False Set Rng = Intersect(ActiveSheet.UsedRange.Offset(1), ActiveSheet.UsedRange) Rng.Interior.ColorIndex = 0 Intersect(Rows(Target.Row), Rng).Interior.ColorIndex = 35 Intersect(Columns(Target.Column), Rng).Interior.ColorIndex = 35 Application.ScreenUpdating = TrueEnd Sub
由于需要保留表頭,，使用了Set Rng = Intersect(ActiveSheet.UsedRange.Offset(1), ActiveSheet.UsedRange)排除表頭區(qū)域 聚光燈在查看數(shù)據(jù)時(shí)比較有用，可以提高閱讀以及數(shù)據(jù)輸入的精準(zhǔn)度 但是,，這里的代碼會(huì)取消掉原有的填充色（Rng.Interior.ColorIndex = 0） 同時(shí)也會(huì)失去撤銷功能,，這個(gè)是比較不友好的 為此，小編在網(wǎng)上找了個(gè)使用VB.NET開發(fā)的聚光燈代碼,，修修補(bǔ)補(bǔ),，也可以做到不破壞填充色同時(shí)保留了撤銷功能
由于這個(gè)功能是使用VB.NET開發(fā)的，已經(jīng)脫離了VBA,，代碼就不貼了 如果有小伙伴知道怎么使用VBA制作這種效果的聚光燈,，可以的話發(fā)給小編學(xué)習(xí)下 網(wǎng)上有很多插件都包含了聚光燈這個(gè)功能，比如方方格子,、劉萬祥老師的 tusimple BI 插件等,，小編就覺得挺不錯(cuò)的
周末，字碼少點(diǎn),。,。。 明天見 |
|
|
