Excel應(yīng)用的聚光燈效果，如何實現(xiàn)？條件格式和VBA都可以實現(xiàn)聚光燈效果。很多回答都給出了方法，所以我贏了 不要重復(fù)?；蛘吣阒绬幔科鋵嵾€有一個更簡單的方法:插件。聚光燈是方形網(wǎng)格插件中的功能之一。

Excel應(yīng)用的聚光燈效果，如何實現(xiàn)？

條件格式和VBA都可以實現(xiàn)聚光燈效果。

很多回答都給出了方法，所以我贏了 不要重復(fù)。

或者你知道嗎？其實還有一個更簡單的方法:插件。

聚光燈是方形網(wǎng)格插件中的功能之一。您還可以設(shè)置聚光燈顏色，高亮顯示行或列。先看效果:

學(xué)習(xí)條件格式和VBA當(dāng)然沒有壞處。

It 只是有時有些人研究條件格式或咀嚼VBA只是為了實現(xiàn)這樣一個小功能，所以門檻有點高。

這里只是給朋友們多一個選擇。

這個插件可以從官網(wǎng)下載，也可以直接私信我的 "ffcell "來自動獲取插件的下載鏈接。

我是MCT微軟認(rèn)證講師。關(guān)注我，一起玩Offic

用VB編寫CAD繪圖插件？

操作步驟:

首先，創(chuàng)建一個ACTIVEX DLL cadPro項目。其次，添加一個名為ModCad的模塊。代碼如下:public acad app as object public acad doc as object(這里新建一個塊主要是為了以后在多個窗體、類或者項目中調(diào)用)。其次，添加一個類ClsTest代碼，如下所示:

公共函數(shù)menu main (menuindex為整數(shù))# 39在VB中測試時可以使用以下判斷。生成DLL后VBA調(diào)用時可以注釋if is nothing或者is nothing，然后連接到ToCAD setapp set doc end if select case menu index case 1 AutoCAD test case 2 end select end func。Ion公共函數(shù)connecttoacad()on error resume next Set getobject(，# # 34) # 3916.2是cad的版本If Err Then Set CreateObject(# 34。

)End If If Err然后設(shè)置GetObject(，##34

)如果Err，則設(shè)置CreateObject(# 34

)End If If Err然后卸載Me End If End If True Set Function public Function setApps(acad obj As acad applicamotion)set acad obj set Function # 39vb私有函數(shù)AutoCAD test()Dim CAD line as acad line Dim CAD point as variant CAD point(，#34請選擇一個插入點:#34) cadPoint，5End Function 3 .如果想在VB中調(diào)試，添加一個EXE項目，引用ACTIVEX項目，添加一個表單，在表單上添加一個按鈕，private子命令1 _ click () dim rec as new 1 end sub 4。生成一個DLL文件并在VBA中調(diào)用它。將生成的DLL添加到工具-設(shè)置引用項目中。代碼如下:

option explicit private CLS GRE as new sub CAD test()on error resume next 1 end sub按照以上四個步驟，就可以實現(xiàn)VB和AutoCAD的連接了。上述程序通過了本機的測試。ose CHO 2-@ . com win XP SP2 chtAuotCAD版本