Http://www.cnng.net  首页 原创软件   VB文挡  VB资源   乱舞人生  资源   Tags  给我留言 
用户登陆
用户:
密码:
 

站点日历
73 2020 - 11 48
1234567
891011121314
15161718192021
22232425262728
2930


站点统计

最热日志

最新评论

日志搜索

 

友情链接
|< [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] ... [13]>| 显示模式: 普通模式 | 列表模式 
晴天 blog升级   [ 2015-11-15  |  本站原创 ]
2015/11/16  今日,在二哥的帮住下,把blog升级了。。。
感谢万能的二哥



晴天 vba 调用excel内置公式   [ 2015-03-14  |  本站原创 ]
前段时间为公司实验室编制测试数据库,其中遇到一个问题,怎样在VBA中使用Excel自带的一些函数呢?如min,max,average等等。 
本以为能在Excel表格中直接使用的函数也能直接移植到VBA中,结果发现根本行不通,程序报错。后来通过多方查询发现,虽然不能直接引用,但是我们可以曲线救国,excel中表格可以用max函数,在VBA中也可以用,只需通过WorksheetFunction对象就可以引用,后面加函数名称,然后加range来引用单元格。举个例子: Application.WorksheetFunction.Max(range("A1:C5")) 下面就是能在VBA中使用excel自带函数:



对不起,本日志为隐藏日志,只有管理员或者作者可以查看!
晴天 奇怪的思路   [ 2015-03-03  |  本站原创 ]
function MoveFileEx(
  lpExistingFileName: PChar;  // 来源文件名,指向一个以零结尾的字符串的指针。
  lpNewFileName: PChar;       // 目标文件名,指向一个以零结尾的字符串的指针。
  dwFlags: DWORD              // 移动标记,见定义
  ): BOOL; stdcall;           // 返回执行结果,成果或失败



阅读全文……
Sub SaveAsSheet() 
    
    Dim AtAPP As Excel.Application
    Dim AtBook As Excel.Workbook
    Dim AtSheet As Excel.Worksheet



阅读全文……
string GetExtendedScreenInfo()

{

  object temp;



阅读全文……
定义块方法:

Set blocksobj=ThisDrawing.Blocks.Add(基点, 块名)
把选择集加入块中的方法:
ThisDrawing.CopyObjects(选择集,块)



阅读全文……
Sub gettext()
  Dim sset As AcadSelectionSet  '声明定义选择集
  Dim ent As AcadEntity         '声明实体

  



阅读全文……
|< [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] ... [13]>|