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

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

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

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

或者你知道嗎？其實(shí)還有一個(gè)更簡單的方法:插件。

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

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

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

這里只是給朋友們多一個(gè)選擇。

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

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

用VB編寫CAD繪圖插件？

操作步驟:

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

公共函數(shù)menu main (menuindex為整數(shù))# 39在VB中測試時(shí)可以使用以下判斷。生成DLL后VBA調(diào)用時(shí)可以注釋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請選擇一個(gè)插入點(diǎn):#34) cadPoint，5End Function 3 .如果想在VB中調(diào)試，添加一個(gè)EXE項(xiàng)目，引用ACTIVEX項(xiàng)目，添加一個(gè)表單，在表單上添加一個(gè)按鈕，private子命令1 _ click () dim rec as new 1 end sub 4。生成一個(gè)DLL文件并在VBA中調(diào)用它。將生成的DLL添加到工具-設(shè)置引用項(xiàng)目中。代碼如下:

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