摘要:'打印过的文档自动删除在Thisworkbook中写如下代码:View Code 1 Public m As Integer 2 3 Private Sub Workbook_BeforeClose(Cancel As Boolean) 4 On Error Resume Next 5 If m = 1 Then 6 Application.DisplayAlerts = False 7 ActiveWorkbook.ChangeFileAccess xlReadOnly 8 Kill ActiveWorkbook.FullName 9 ThisWorkbook.Close False 阅读全文
posted @ 2011-07-08 16:46 Statmoon 阅读(270) 评论(0) 推荐(0) 编辑
摘要:如果在一列中存入不规则的海量数据,数字和字符串混合,现在需要提取数字,总共总结出下面四中方法,依据运行速度快慢依次排列,推荐使用前三种方法:第一种:数组方法,速度最快 1 Sub y3231057_1() 2 t = Timer 3 Dim Arr, i&, j%, k&, S$, SS$, Str$ 4 Dim Arr1() As Single 5 Arr = Range("A1:A" & [a65536].End(xlUp).Row) 6 k = UBound(Arr) 7 ReDim Arr1(1 To k, 1 To 1) 8 For i = 阅读全文
posted @ 2011-07-08 16:44 Statmoon 阅读(886) 评论(0) 推荐(0) 编辑
摘要:用VBA录制的查找Cells.Find(What:="想查找的数据", After:=ActiveCell,LookIn:=xlValues, LookAt:= xlPart, SearchOrder:=xlByColumns,SearchDirection:=xlNext, MatchCase:=False).ActivateFind 方法 在区域内查找特定信息,并返回Range对象,该对象代表所找到的第一个包含所查找信息的单元格。如果未发现匹配单元格,就返回 Nothing。本方法不影响选定区域或活动单元格。 关于在Visual Basic中使用Find工作表函数的详细 阅读全文
posted @ 2011-07-08 16:36 Statmoon 阅读(24930) 评论(0) 推荐(0) 编辑
摘要:SPFieldLookupValue对象即为查阅项的值,它有两个属性,分别是LookupId和LookupValue,LookupId为此查阅项的值在数据源List中的ItemID,LookupValue为此查阅项的值在数据源List中所对应的值,一般构造语句为SPFieldLookupValue myValue = new SPFieldLookupValue(LookupId, LookupValue),其默认Display出来的值得格式为“LookupId,#;LookupValue” 阅读全文
posted @ 2011-07-08 16:26 Statmoon 阅读(1047) 评论(0) 推荐(0) 编辑
摘要:条件 明细Eq EqualsNeq Not equalGt Greater thanGeqGreater than or equalLt Lower thanLeqLower thanIsNull Is nullBeginsWith Begins withContainsContains 阅读全文
posted @ 2011-07-08 16:24 Statmoon 阅读(357) 评论(0) 推荐(0) 编辑
摘要:今天碰到了在MOSS中判断一个日期是一年之中的第几周的问题,由于以前对Excel比较熟悉的缘故,开始直接想了一个函数用WeekNum()来判断,但是写进去发现MOSS不能识别它,于是用上了最古老的方法,函数如下:=INT((A7-DATE(YEAR(A7),1,1)+(TEXT(WEEKDAY(DATE(YEAR(A7),1,1)),"d")))/7)+1使用时只需将A7改为MOSS中的字段即可。 阅读全文
posted @ 2011-07-08 16:20 Statmoon 阅读(195) 评论(0) 推荐(0) 编辑
摘要:I want to add a footer to the v4.master(which is the default master page in Sharepoint server 2010).There are a few ways you could go when creating afooter that goes with v4.master. One simple method would be to add a div right before the DeveloperDashboard line in v4.master. Add the bolded line bel 阅读全文
posted @ 2011-07-08 16:15 Statmoon 阅读(235) 评论(0) 推荐(0) 编辑
摘要:场景:有一台MOSS测试服务器,上面部署测试好了两个应用程序。两台MOSS生产服务器。需要把测试环境中的两个站点完整的迁移到生产环境。迁移步骤: 1)在测试服务器上运行以下命令,备份数据: "C:\Program Files\Common Files\Microsoft Shared\Web Server Extensions\12\bin\stsadm" -o backup -url http://localhost:81 -filename c:\sps-backup-81.bak"C:\Program Files\Common Files\Microsoft 阅读全文
posted @ 2011-07-08 16:11 Statmoon 阅读(319) 评论(0) 推荐(0) 编辑
摘要:今天遇到了一件很奇怪的事,MOSS列表的宽度突然变的只有正常宽度的一半,并且是整个子站点的列表都这样,粗略的分析了一下原因,可能是样式的问题,拿着样式表寻找修改了半天,发现不起任何效果,遂想想可能是母板页的问题,找了一下,发现<div id="s4-leftpanel" class="s4-notdlg" style width="155px">里面有个style width="155px",这个是控制左边快速启动栏的宽度的,可能是这个造成的问题,把这个删除,保存,刷新一下页面,OK!列表的宽度正常了。 阅读全文
posted @ 2011-07-08 16:04 Statmoon 阅读(161) 评论(0) 推荐(0) 编辑
摘要:更改MOSS所有列表的标题底色需要更改两个地方: 一个是前面的全选框,找到相应的CSS文件(打开站点的页面,按F12看看用到了哪些CSS,然后找到正确的CSS),打开,然后找到.ms-vh-icon,在里面加上蓝色的部分.ms-vh-icon{vertical-align:middle;background-color:#D3D3D3;/*加这句*/} 另外一个是后面所有列的标题的底色,在刚刚打开的CSS文件中,找到.ms-vh,.ms-vh2,在里面加上蓝色的部分.ms-vh,.ms-vh2{height:21px;background-color:#D3D3D3;/*这里加一句改list标 阅读全文
posted @ 2011-07-08 16:02 Statmoon 阅读(215) 评论(0) 推荐(0) 编辑
摘要:在博客园注册了快一年了,一直潜水学习,今天终于开通了博客,将以前写的博客也一块搬过来。 阅读全文
posted @ 2011-07-08 16:01 Statmoon 阅读(133) 评论(0) 推荐(0) 编辑
摘要:通过下面方法就可以直接在出错页面查看错误信息。修改Web应用程序根目录上的Web.config文件中的两个地方:一、MaxControls="200" CallStack="false" 改为 MaxControls="200" CallStack="true"二、customErrors mode="On" 改为 customErrors mode="Off" 阅读全文
posted @ 2011-07-08 15:58 Statmoon 阅读(178) 评论(0) 推荐(0) 编辑
摘要:一直做Moss开发,最近比较多用到Infopath,今天用VSTA在Infopath表单内写了一些代码,然后预览时报了如下的错误:InfoPath 无法打开所选表单,因为表单的代码中存在错误。策略设置阻止打开具有托管代码的 Internet 表单。若要解决此问题,请与系统管理员联系。分析了一下,肯定是权限或设置的问题,后选择高级表单选项,选择安全与信任,将安全级别设置为完全信任,确定,然后预览,OK! 阅读全文
posted @ 2011-07-08 15:49 Statmoon 阅读(600) 评论(0) 推荐(0) 编辑