GUAITANG.COM

pkxi.com

VBA文件操作 | Pkxi

http://pkxi.com/2014/08/12/140.html

Open [path] For [mode] as #1. Dim wb As Workbook. Dim i As Long. With Application.FileSearch ‘调用fileserch对象. LookIn = ThisWorkbook.path ‘设置搜索的路径. SearchSubFolders = True ‘搜索范围包括 LookIn 属性指定的文件夹中的所有子文件夹. Filename = “*.xls” ‘设置搜索的文件类型. 8216; .FileType = msoFileTypeExcelWorkbooks. If Execute() 0 Then ‘如果找到文件. For i = 1 To .FoundFiles.Count. 8216;On Error Resume Next. Cells(i, 1) = .FoundFiles(i) ‘把找到的文件放在单元格里. MsgBox “没找到文件”. MsgBox Timer – t. 构建 and Theme Y-say.

pkxi.com

VBA选中目标工作表以对其操作 | Pkxi

http://pkxi.com/2014/07/10/133.html

Sheets(“list”).Activate ‘选中当前表以对其操作. 构建 and Theme Y-say. 豫ICP备13000422号 15 queries. 0.449 seconds.

pkxi.com

VBA利用字典去重数组中的数据 | Pkxi

http://pkxi.com/2014/09/23/160.html

8216;利用字典去重,下面是示例代码,去除第一列的重复项. Sub Test() ‘利用字典去重,字典的特性是key值不能重复. Dim Dic, Arr. Dim i As Integer, r As Integer. Dim Str As String. R = Sheet1.Range(“A65536″).End(xlUp).Row. If r = 1 Then Exit Sub ‘如果第一列没有数据那么退出程序. Set Dic = CreateObject(“scripting.dictionary”) ‘创建字典对象. For i = 1 To r ‘将第一列数据添加到字典的key值中. Dic(CStr(Cells(i, 1) ) = “”. Arr = Dic.keys ‘返回字典key的数组. Set Dic = Nothing ‘销毁对象. Str = Join(Arr, “,”) ‘将数组中的内容显示为一字符串. 构建 and Theme Y-say. 豫ICP备13000422号 15 queries. 0.458 seconds.

pkxi.com

大步向前走 | Pkxi

http://pkxi.com/f/go

构建 and Theme Y-say. 豫ICP备13000422号 15 queries. 1.674 seconds.

pkxi.com

Pkxi

http://pkxi.com/page/2

添加书签: “Ctrl D”. 为所有标签页添加书签: “Shift Ctrl D”. 清除浏览器数据: “Shift Ctrl Del”. 关闭当前标签: “Ctrl F4″”Ctrl W”. 关闭所有标签: “Shift Ctrl W”. 当前页查找: “Ctrl F”"Ctrl G”. 编辑地址栏: “Alt D”"Ctrl L”. 新建标签页: “Ctrl T”. 新建窗口: “Ctrl N”. 打开本地网页: “Ctrl O”. 打印当前页: “Ctrl P”. 切换标签: “Ctrl Tab”. 上一个标签: “Ctrl PgDn”. 下一个标签: “Ctrl PgUp”. 显示/隐藏收藏栏: “Shift Ctrl B”. 打开下载: “Ctrl J”. 打开历史记录: “Ctrl H”. 打开主菜单: “Alt F”. 查看源代码: “Ctrl U”. Range(“A1″).Clear ‘清除单元格全部，包含内容、格式、批注. Range(“A2″).ClearComments ‘清除单元格批注. COUNTIF range，” 0″. 构建 and Theme Y-say.

pkxi.com

SVN安装错误解决 | Pkxi

http://pkxi.com/2014/09/15/157.html

SVN the error code is 2503. 2输入以下命令 msiexec /package 你的安装文件的全路径. 构建 and Theme Y-say. 豫ICP备13000422号 15 queries. 1.637 seconds.

pkxi.com

张小龙演讲全文：如何把产品做简单 | Pkxi

http://pkxi.com/2014/07/17/135.html

原文链接 http:/ content.businessvalue.com.cn/post/7171.html. 上次在分享的时候 Martin 腾讯总裁刘炽平，编者注 也在，他认为是因为这一个按钮很容易坏掉，所以用户要不停去换新的手机。 为什么只有一个按钮 你再看一下为什么是白色的 其实白色的比黑的更酷一些，对不对 白色的其实是苹果最想做的，当时是供应商做不到，所以就做了黑的先来应付一下大家，后来才做出了白色的。 白色的手机，再加上一个按钮，你会想到什么 一个白色的东西加一个按钮在上面，并且一按就会有 奇迹 发生。 在iPhone发布时，他说我们领先其它手机5年，这个5年领先在什么地方 iOS的设计理念是什么 它的哲学是什么 这其实很值得去思考。 这句话大家都听了很多 少就是多 ，为什么少就是多 为什么简单就是美 为什么复杂就不美了. 我们内部开发这个功能时把它叫做 录一录 音译，怀疑应为 撸一撸 ，编者注 ，服务器上开发的代码叫 Lusefor。 我们回忆一下在Windows时代，多任务是怎么体现出来的 我们要摁 ALT Tab 键。 什么是产品体验 总结一个字就是 爽 ，两个字是 好玩。

pkxi.com

Pkxi

http://pkxi.com/page/3

摘自果壳，原文链接 http:/ www.guokr.com/article/4589/. 很多来澳门的游客除了会花些时间光顾一下澳门的几个标志性景点 大三巴牌坊 、 妈阁庙 以外，剩余的时间都会一头钻进各个赌场里。 鼠标选中多行，按下 Ctrl Shift L (Command Shift L) 即可同时编辑这些行. 鼠标选中文本，反复按 CTRL D (Command D) 即可继续向下同时选中下一个相同的文本进行同时编辑. 鼠标选中文本，按下 Alt F3 (Win) 或 Ctrl Command G(Mac) 即可一次性选择全部的相同文本进行同时编辑. Shift 鼠标右键 (Win) 或 Option 鼠标左键 (Mac) 或使用鼠标中键可以用鼠标进行竖向多行选择. Ctrl 鼠标左键(Win) 或 Command 鼠标左键(Mac) 可以手动选择同时要编辑的多处文本. Ctrl P(Win) 或 Shift Command P(Mac) 即可调出文件切换面板，接着你只需输入文件名，回车后即可瞬间切换过去. Ctrl P，然后输入 heip@vi 回车，前面是文件，后面是函数。

pkxi.com

数据库错误记录 | Pkxi

http://pkxi.com/2014/12/23/163.html

Can’t create database ‘%s’ database exists. 构建 and Theme Y-say. 豫ICP备13000422号 14 queries. 1.061 seconds.

pkxi.com

Pkxi

http://pkxi.com/page/4

原文链接 http:/ www.zhihu.com/question/21158572. Dim i&, temp. On Error Resume Next. For i = Len(rng) To 1 Step -1. Temp = –(Right(rng, i). If Err.Number 0 Then. ISERR 值为任意错误值 除去 #N/A。 ISNA 值为错误值 #N/A 值不存在。 ISNONTEXT 值为不是文本的任意项 注意此函数在值为空白单元格时返回 TRUE。 IRows=activesheet.usedrange.rows.count. IColumns=activesheet.usedrange.Columns.count. IEndRow=.rows.count .row-1. IEndColumn=.Columns.count .column-1. Iendrow= Sheets(“sheet1″).Range(“a65535″).End(xlUp).Row. 构建 and Theme Y-say.