這個學生的提問, 於是我就很好奇的寫了這個VBA , 請大家參考
請於工作表的選取進行下列程式指令 ,
1 清除全部儲存格的填色
2 重新設定欄列的填色與儲存格的填色
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = 0
For i = 1 To 100
Cells(i, ActiveCell.Column).Interior.ColorIndex = 33
Cells(ActiveCell.Row, i).Interior.ColorIndex = 33
Next i
ActiveCell.Interior.ColorIndex = 28
End Sub
文章標籤
<%:data.prev.title%>
<%/if%> <%if data.next%> 下一篇<%:data.next.title%>
<%/if%><%:data.author.ta_name%>
<%:data.author.ta_title%>
相關課程：<%:data.author.course_count%> 堂｜相關文章：<%:data.author.press_count%> 篇
<%:data.author.ta_intro%>
<%if data.isAuthor %> 管理訂閱 <%else%> <%if data.isSubscribe %> <%else%> <%/if%> <%/if%>文章標籤
<%:data.prev.title%>
<%/if%> <%if data.next%> 下一篇<%:data.next.title%>
<%/if%>
<%if data.isCollect%> 