xubo8219-CSDN博客

原创新聞社　日本支社

东京分社（日本）【字体：大中小】【打印本稿】地址：日本国东京都涩谷区惠比寿3丁目35番地23号　XINHUA NEWS AGENCY TOKYO BUREAU 　35-23, EBISU 3-CHOME,SHIBUYA-KU, 　TOKYO

2008-10-30 08:17:00 363

原创エクセルvba　参考

http://www.geocities.jp/happy_ngi/YNxv9cz55.html http://www.red.oit-net.jp/tatsuya/vb/Excel.htm

2008-10-24 16:35:00 349

原创 Excel Print

Private Sub 印刷_Click() On Error GoTo Err_Handler sheetを作る Dim xl As Object Set xl = CreateObject("Excel.Sheet") Dim strSelsql As String Dim intNo As Integer Dim db As D

2008-10-24 09:58:00 704

原创终于解决了：在vba中，使用api打开文件保存对话框

苍天啊！不容易啊！几代人的心血，终于让我拼在一起了。以下代码，请写入标准模块中在aceess 2007中测试通过。希望，对大家有帮助 Option Explicit Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA

2008-10-07 00:11:00 3100

原创用API实现调用保存文件对话框

用API实现调用保存文件对话框作者：不详　来源于：中国VB网　发布时间：2004-10-23用API实现调用保存文件对话框　　保存文件（另存为）对话框同样可以不使用ＶＢ的控件来实现，那就是ＡＰＩ函数GetSaveFileName。　　首先需要将下面的ＡＰＩ函数声明写入一个模块中。 Option ExplicitDeclare Function Get

2008-10-06 23:16:00 933

原创使用保存文件对话框获取文件名的问题

http://www.qqgb.com/program/vb/vbjq/program_176529.html 使用API调用保存文件对话框，使用 ofn.lpstrFile="TR.bmp" 初始化文件名为 "TR.bmp" 但当在对话框中修改文件名后若长度不是11就会有问题，如修改为“TR1.bmp” 后获得的文件名为"TR1.bm" 修改为“T.bmp”后获得的文件名为“T.b

2008-10-06 23:07:00 870

原创 msoFiledialogSaveAs 类型文件框如何使用？

http://club.excelhome.net/dispbbs.asp?boardid=2&id=33219

2008-10-06 22:56:00 1861

原创 CommonDialog1

VB中的对话框控件不论是，打开还是保存都需要一个完整的操作过程，按了保存而没有完成了保存的操作，就会出现错误，有两种方法可以不出错（我只知道两种） CommonDialog1.Filter = "文档文件(*.txt)|*.txt|所有文件(*.*)|*.*" CommonDialog1.ShowSave if commondialog1.filename="" then exit sub Op

2008-10-06 22:52:00 855

原创 vba 设置txt文件只读，隐藏属性

SetAttr 语句为一个文件设置属性信息。语法 SetAttr pathname, attributes SetAttr 语句的语法含有以下这些命名参数：部分描述 pathname 必要参数。用来指定一个文件名的字符串表达式，可能包含目

2008-10-06 09:37:00 4026

原创 vba checkbox全选

Private Sub CommandButton1_Click() Dim A1 As Object For Each A1 In UserForm1.Controls If TypeName(A1) = "CheckBox" Then A1.Value = 1 全部取消就赋值 0 End If NextEnd Sub http://topic

2008-10-02 12:33:00 2729

原创 vba中，判断checkbox是否已经选中

check1.value=true

2008-09-30 10:38:00 9882

原创 vba 验证文本框中只输入数字

http://topic.csdn.net/t/20010914/16/286973.htmlhttp://topic.csdn.net/t/20050128/13/3760581.html

2008-09-29 22:32:00 1788

原创续：求出组合后，打印到文件中

Option ExplicitDim sValue() As Long, sSeiban() As String, fValue() As Long, bUsed() As Boolean, strResults As StringSub Initialize() strResults = "" Dim iLoop As Integer ReDi

2008-09-28 22:11:00 401

转载组合的算法（二）

组合算法的另外一种实现：Option ExplicitDim sValue() As String, fValue() As Integer, bUsed() As BooleanSub Initialize() Dim iLoop As Integer ReDim fValue(UBound(sValue))

2008-09-28 12:19:00 299

原创组合的算法

题目：数组中有 1，1，2，2，3，4，5 分别放在a(0)至a(6)位置从这7个数字中找出相加后和等于 5 的或者自身等于 5 的值的所有组合比如 112 a(0)a(1),a(2) 112 a(0)a(1),a(3) 23 a(2),a(3) 23 a(2),a(4) 14 a(0),a(5) 14 a(1),a(5) 5 a(6)

2008-09-28 12:16:00 286

xubo8219的专栏