博文
用VBA列出excel的所有按钮(2006-05-29 11:50:00)
摘要：新建一个EXCEL文件，按“Alt”+"F11"，在出现的树状菜单中点击“ThisWorkBook”，在弹出的空白窗口中输入以下代码：
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.CommandBars("ttt").Delete
End Sub
Private Sub Workbook_Open()
Set cbr = Application.CommandBars.Add(Name:="ttt", Position:=msoBarTop, Temporary:=True)
cbr.Visible = True
For k = 1 To 4000
On Error Resume Next
cbr.Controls.Add ID:=k
Next
On Error GoTo 0
End Sub
保存后，退出EXCEL.
重新打开这个EXCEL文件，点击"启用宏".......
通过VBA制造EXCEL的菜单(2006-05-26 16:37:00)
摘要：通过EXCEL的宏制造菜单的测试。
1。新建一个EXCEL文件，点菜单“工具”－“宏”—“VB编辑器”。
2。点击树状菜单中的“ThisWorkBook”。
3。在弹出的窗口中输入以下代码：
Dim butt0, butt1, butt2, butt3, butt4, butt5, butt6, butt7, butt8, butt9
Dim butt10, butt11, butt12, butt13, butt14, butt15, butt16, butt17, butt18, butt19
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("菜单1").Delete
Application.CommandBars("菜单2").Delete
Application.CommandBars("菜单3").Delete
Application.CommandBars("菜单4").Delete
Application.CommandBars("菜单5").Delete
Application.CommandBars("菜单6").Delete
Application.CommandBars("菜单7").Delete
Application.CommandBars("菜单8").Delete
Application.CommandBars("菜单9").Delete
Application.CommandBars("菜单10").Delete
Application.CommandBars("菜单11").Delete
Application.CommandBars("菜单12").Delete
End Sub
Private Sub Workbook_Open()
Set tbar1 = Application.CommandBars.Add(Name:="菜单1", Position:=msoBarBottom)
Set tbar2 = Application.CommandBars.Add(Name:="菜单2", Position:=msoBarB......
在EXCEL中将数字转换为人民币大写的三种方式(2006-05-18 10:21:00)
摘要：鉴于EXCEL本身提供将数字转换为大写表示的功能根本不能正常应用在实际投标或财务应用之中，所以要自己建设，暂时找到了三种实现途径，经过测试均功能正常，还有一种是在书上找到的，懒得KEYIN进来了，反正也差不多了。
方法1，通过在EXCEL表格框（例如在“B1”单元）中直接输入以下公式：
=IF(A1<0,"金额为负无效",
(IF(OR(A1=0,A1=""),"(人民币)零元",
IF(A1<1,"(人民币)",
TEXT(INT(A1),"[dbnum2](人民币)G/通用格式")&"元"))))&
IF(
(INT(A1*10)-INT(A1)*10)=0,
IF(INT(A1*100)-INT(A1*10)*10=0,"","零"),
(TEXT(INT(A1*10)-INT(A1)*10,"[dbnum2]")&"角"))
&IF(
(INT(A1*100)-INT(A1*10)*10)=0,
"整",
TEXT((INT(A1*100)-INT(A1*10)*10),"[dbnum2]")&"分")
然后在“A1”中输入数字，就可看到效果。
方法2，通过VBA（宏）输入转换公式: 点击菜单“工具”->“宏”->“VisualBasic编辑器”,在编辑器窗口中，点击菜单“插入”->“模块”，在出现的窗口中输入以下内容：
Function daxie(ByVal Num) ' 人民币中文大写函数
Application.Volatile True
Place = "分角元拾佰仟万拾佰仟亿拾佰仟万"
Dn = "壹贰叁肆伍陆柒捌玖"
D1 = "整零元零零零万零零零亿零零零万"
If Num < 0 Then FuHao = "（负）"
Num = Format(Abs(Num)......
微风日记本(2006-05-15 10:33:00)
摘要：用ASP的网上个人日记本。可以自定义不同的墙纸背景文字样色，带有隐藏功能，留言功能。
http://jsnetcom.onlinedown.com/soft/31842.htm......
以含有输入内容的文本坐标为基准，插入指定的图块(2006-05-15 10:29:00)
摘要：;;以含有输入内容的文本坐标为基准，插入指定的图块
;;主要语句取材chtext.lsp
(defun c:Tb (/ last_o tot_o ent o_str n_str st s_temp n_slen o_slen si chf chm cont ans class ename sta_x sta_y pt name1 x_offset y_offset)
;; Select objects if running standalone
(setq name1 nil)
(if obj_block
(progn
(princ "\n请点选将要插入的块(默认块为<")
(princ obj_block )
(princ ">):") )
(print "请点选将要插入的块:"))
(while (= name1 nil)
(progn
(setq p1 (getpoint ))
(if p1
(progn
(setq name1 (ssname (ssget p1) 0))
(setq ent (entget name1))
(setq obj_block_temp (cdr (assoc 2 en......
通过鼠标操作统计块的数量(2006-05-15 10:27:00)
摘要：(defun c:nn(/ p1 name1 objs ent a ss no)
(setq p1 (getpoint "请点选将统计的块:"))
(setq name1 (ssname (ssget p1) 0))
(setq ent (entget name1))
;;(princ ent)
(setq a (cdr (assoc 2 ent))) ;将目标的块名字提取出来
(princ "\n框住需要统计的范围：")
(setq ss (ssget (list(cons 0 "INSERT")(cons 2 a)))) ;框选范围内的同名字块
(if (= ss nil) ;;
(setq no 0)
(setq no (sslength ss))
) ;;
(princ "\n 图块《")
(princ a)(princ "》数量为: ")
(princ no)(princ " 只")(princ)
)
(princ "\n\t 统计图块命令，设计者：刘珽锋 欢迎使用!")
(princ "\n\t 请输入命令：NN ")
(princ)......
对ACAD图中文本内容的批修改(2006-05-15 10:25:00)
摘要：;;本文件用于批处理AUTOCAD中的文本内容修改，是chtext.lsp的简化。
;;主要语句取材chtext.lsp(在R14版本中测试通过)
(defun c:ct (/ last_o tot_o ent o_str n_str st s_temp n_slen o_slen si chf chm cont ans class)
;; Select objects if running standalone
(setq objs (ssget))
(setq chm 0) ;统计修改次数
(if objs
(progn ;; If any objects selected
(if (= (type objs) 'ENAME) ;如果objs为一个实体名
&nb......
文字画廊(2006-05-15 10:14:00)
摘要：基于ASP的留言本程序,配合文字画板(文字反斗星)使用,用于将文字画板制作的作品发布到网上,形成作品展示区.。
......
文字画秀(2006-05-15 10:13:00)
摘要：
使用delphi 制作，文字画作品浏览转换器，可以浏览的文本文件，“文字画”文件，带ANSI控制码的ASCII文字作品文件（早期的BBS流行的一种彩色字符画），以及HTML网页。可以轻松实现不同格式的文字作品之间的转换，如将文本文字画变成彩色网页格式，将网页、文本转换成图片格式等。
http://www.programfan.com/wysoft/showwysoft.asp?id=1741......
特别记事本(2006-05-15 10:12:00)
摘要：使用DELPHI制作，在windows自带的记事本程序功能基础上，增加一些特别的批处理功能：如插入空行或和空列（空格），清除空行或和空格字符，镜像文
本，将横读的文本转为竖读的文本，以及一个将文字顺序打乱的“文本加密”功能。......