日记首页
|
列表
|
添加日记
|
管理登陆
标题:VBA 单元格,颜色,代码显示
<span style="color: rgb(68, 68, 68); font-family: Tahoma, "Microsoft Yahei", Simsun;">sub tt()</span><br style="overflow-wrap: break-word; color: rgb(68, 68, 68); font-family: Tahoma, "Microsoft Yahei", Simsun;"><span style="color: rgb(68, 68, 68); font-family: Tahoma, "Microsoft Yahei", Simsun;">If Selection.Count = 1 Then</span><br style="overflow-wrap: break-word; color: rgb(68, 68, 68); font-family: Tahoma, "Microsoft Yahei", Simsun;"><span style="color: rgb(68, 68, 68); font-family: Tahoma, "Microsoft Yahei", Simsun;"> MsgBox Selection.Interior.ColorIndex</span><br style="overflow-wrap: break-word; color: rgb(68, 68, 68); font-family: Tahoma, "Microsoft Yahei", Simsun;"><span style="color: rgb(68, 68, 68); font-family: Tahoma, "Microsoft Yahei", Simsun;">End If</span><br style="overflow-wrap: break-word; color: rgb(68, 68, 68); font-family: Tahoma, "Microsoft Yahei", Simsun;"><span style="color: rgb(68, 68, 68); font-family: Tahoma, "Microsoft Yahei", Simsun;">end sub</span><div><span style="color: rgb(68, 68, 68); font-family: Tahoma, "Microsoft Yahei", Simsun;"><br></span></div><div><span style="color: rgb(68, 68, 68); font-family: Tahoma, "Microsoft Yahei", Simsun;">单元格,颜色,代码显示</span></div>