作者：绿色风
分类：
时间：2022-08-18
浏览：163
楼主
wqfzqgk |
- Sub 加入代码1()
- Dim wk As Workbook
- Set wk = Workbooks.Add
- 代码 = "Sub Workbook_Open()" & Chr(13) & "range(""b4"")=15" & Chr(13) & "range(""b4"").font.size=10" & Chr(13) & "end sub"
- With wk
- .VBProject.VBComponents.Add vbext_ct_StdModule
- .VBProject.VBComponents("thisworkbook").CodeModule.AddFromString 代码
- End With
- End Sub
- Sub 加入代码()
- Dim wk As Workbook
- Set wk = Workbooks.Add
- With wk.VBProject.VBComponents("thisworkbook").CodeModule
- .InsertLines 1, "sub workbook_open()"
- .InsertLines 2, "[b4].font.size=10"
- .InsertLines 3, "[b4]=123"
- .InsertLines 4, "end sub"
- End With
- End Sub
|
2楼
水星钓鱼 |
这个果然酷，啥都没解释。 |
3楼
纵鹤擒龙水中月 |
学习了 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一