ITPub博客

首先启用宏:文件>选项>信任中心>宏设置>启用所有宏+信任对VBA工程对象模型的访问在开发工具页签，插入一个ActiveX的按钮控件插入按钮到Sheet中右键按钮>查看代码，进入VB编辑器界面保存，关闭VB编辑器，退回到Excel界面，关闭“设计模式”，然后点按钮进一步，如果想给某个单元格赋值，可以使用下边的语句Range("A1").Value = "Hello World"我们把Hello World

Development Tools页签 > Visual Basic Editor (Alt+F11)，然后VB Editor界面下，Tools>VBAProject Properties设置后需保存并重新打开才能生效

1.定义一个测试Procedure,这个Procedure用于给临时表插入一条记录create sequence pt_debug_sequence INCREMENT BY 1 -- 每次加几个 START WITH 1 -- 从1开始计数 NOMAXVALUE -- 不设置最大值 NOCYCLE -- 一直累加，不循环 CACHE 10; --1. Create temp table. create table pt_debug_tab (seq INTEGER,text Varchar2(300),datetag Varchar2(30)); --2. Create procedure. create or replace procedure pt_debug(inStr Varchar2) as PRAGMA AUTONOMOUS_TRANSACTION; BEGIN INSERT INT

Message简单的弹出一个消息MsgBox ("Common Msg")  显示某个单元格的信息MsgBox "Cell A1 is " & Range("A1").Value  加入换行MsgBox "Line 1 Content" & vbNewLine & "Line 2 Content"  单元格赋值Range("A1").Value = "code placed here"orWorksheets(1).Range("A1").Value = \'value\'Sheet的数量Worksheets.Count增加SheetWorksheets.Add行的选择Worksheets(1).Rows(2).Select列

1.简单的弹出一个消息MsgBox ("Common Msg")2.显示某个单元格的信息MsgBox "Cell A1 is " & Range("A1").Value3.加入换行MsgBox "Line 1 Content" & vbNewLine & "Line 2 Content"