Are you fucking kindding?
原文地址:
http://comment2.news.sohu.com/viewdebate.action?id=125151287&topicId=264756496
Hello and welcome to beautiful 津津有味Jjuv Blog.
原文地址:
http://comment2.news.sohu.com/viewdebate.action?id=125151287&topicId=264756496
Posted on 26 June '09 by 味小精, under 撇嗒. No Comments.
页面已转至:http://blog.jjuv.com/excel-vba
作为一个非IT专业人士,VBA的代码在不停的Google中忘记,为了方便自己查询,特作此笔记用以详细记录在代码中碰到的问题。
如果以下内容侵犯了您的版权,请来信告知,我会立刻删除。如无特殊说明,本笔记遵循《署名-非商业性使用-相同方式共享 2.5 中国大陆》方式进行共享
更新时间:Jul 02, 2009@10:30
Q1.Excel 中命名过的名称在vba中怎么使用
A1. 若某单元格或区域被命名为”aa”,则VBA中引用这个区域,range("aa")
Q2.VBA定义名称
A1.Sheets("工作表名称").range("单元格区域").Name="定义的名称"
Q3.如何在可以运行窗体的同时可以操作EXCEL工作簿(如何在工作表和窗体间切换)
A3.userform1.show vbmodeless
增加一个vbmodeless即可。
来源:http://club.excelhome.net/thread-348925-1-1.html
作者:tonyibm
Q4.获取人名拼音首字母的excel函数
A4.http://blog.jjuv.com/2009/04/19/first-letter-of-the-chinese-names-excel-function.html
Q5.Excel工作簿中工作表分别保存为文件
A5.http://blog.jjuv.com/2009/03/13/excel-worksheet-saved-as-files-separately.html
Q6.如何将excel工作薄中的单列数据复制到不同的新工作簿中
A6.http://blog.jjuv.com/2009/03/10/how-to-excel-in-a-separate-job-thin-data-replication-to-a-different-new-workbook.html
Q7.VBA中获取文件名的方法
A7.http://blog.jjuv.com/2008/03/02/vba-in-the-way-of-access-to-documents.html
Q8.选择性粘贴数值
A8.
ar=ActiveWorkbook.Sheets(1).Columns("L:L")
ThisWorkbook.Sheets("汇总").Columns("E:E")=ar
Q9.如何修改单元格触发宏运行;
A9.例子如下:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim mo As String
If Target.Count > 1 Then Exit Sub
If Target.Address <> "$D$3" Then Exit Sub '(此处地址需用大写)
mo = Target.Value
If mo = 6 Or mo = 12 Then
MsgBox mo & "月需要填写相关资料"
Rows("29:56").Hidden = False
Else
Rows("29:56").Hidden = True
End If
End Sub
Q10.如何取消筛选
A10.AutoFilterMode = False
Q11.判断EXCEL表格中已使用的行数
A11.Sheets("sheet1").UsedRange.Rows.Count
Q12.向单元格中写入公式
A12.普通公式:range("a1")="=sum(a2:a4")"
数组公式:Range("g18").FormulaArray = "=SUM((fa_cat='28-AC1-5'!A18)*(RIGHT(fa_change,2)=""折旧"")*(fa_depr))"
Posted on 25 June '09 by 味小精, under 撇嗒. No Comments.
Posted on 19 June '09 by 味小精, under 挨踢. No Comments.
封者,封也。
第一个封,是《辞海》中的第六个释义,限制
第二个封,是下面这个意思
而五人者亦得以加其土封。——明·张溥《五人墓碑记》
Flickr, bing无法访问, 而verycd在检修中,这个夏天!
Scratch Card, I hope you like it.
We don’t or can’t know the truth twenty years ago.
Posted on 4 June '09 by 味小精, under 撇嗒. No Comments.
一周年,时间过的是那么的快 ,对于有些人来说真个是度日如年。

上回书说到,解决出现stdole32.tlb需要通过提权或者是关闭UAC的方式来解决,其实还有一个更简单的办法,那就是升级OFFICE2007到SP2,也可以解决。
Posted on 11 May '09 by 味小精, under 挨踢. No Comments.
安装了Acrobat Pro后,发现系统没有中并没有增加相应的虚拟打印机,那么除了重装以外,是否还有办法安装Acrobat PDF虚拟打印机呢?答案是肯定。
1)在控制面板添加打印机,端口选择与Adobe关联的”Adobe PDF Port”,如果找不到这个端口,那您不用往下看了,只有重装一条路可言。
2)选择从磁盘安装,目录指向Acrobat文件夹下的Xtras子目录下的AdobePDF目录,找到AdobePDF.inf文件
X:\Program Files\Adobe\Acrobat 9.0\Acrobat\Xtras\AdobePDF
3)选择安装
4)将重命名为“Adobe PDF”,否则右键菜单及Office中用转换指令的时候还是会有错误。
—————————————————————————
how-to-install-the-acrobat-pdf-virtual-printer
1) Open the control panel, add printer..
2) Add a local printer
3) choose a printer port about Acrobat PDF named “Adobe PDF Port”,If you can’t find this port, you have to uninstall the software ,and reinstall the acrobat pro.
4) Hard DISK install form such as “X:\Program Files\Adobe\Acrobat 9.0\Acrobat\Xtras\AdobePDF”
5) rename the printer name as “Adobe PDF”
Posted on 28 April '09 by 味小精, under 蹴鞠. No Comments.
用途:Palm通讯录中直接通过键盘字母调用联系人;
用法:
1.将palm软件同步到系统中,将通讯录到处成CSV文件;
2.在Excel中新建一个模块,将下面的代码复制进去,在excel界面调用HYPY函数即可。
Function HYPY(myStr As String) As String
Dim L As Integer, i As Integer
Dim GetPY As String, N As String
On Error Resume Next
myStr = StrConv(myStr, vbNarrow)
L = Len(myStr)
For i = 1 To L
If Asc(Mid(myStr, i, 1)) > 0 Or Err.Number = 1004 Then N = ""
N = Application.WorksheetFunction.VLookup(Mid(myStr, i, 1), _
[{"吖","A";"八","B";"嚓","C";"咑","D";"鵽","E";"发","F";"猤","G";"铪","H";"夻","J";"咔","K";"垃","L";"嘸","M";"旀","N";"噢","O";"妑","P";"七","Q";"囕","R";"仨","S";"他","T";"屲","W";"夕","X";"丫","Y";"帀","Z"}], 2)
GetPY = GetPY & N
Next i
HYPY = GetPY
End Function
你知道我不能没有钱,因为钱能帮我给你买蛋糕送你;
你也知道,我不能没有蛋糕,因为今天是你的生日,我不能乜有你;
因为乜有你,我要钱有何用?

好吧,甜言蜜语时间结束了,来点实惠的,今天晚上我的时间由你来支配,你叫我往西,我不敢往东;你叫我吃饭,我不敢喝水;叫我拖地,我不敢擦桌子……
via:赵大小姐博客
Posted on 9 April '09 by 味小精, under 撇嗒. No Comments.
从playnb的马丁手里收了一台OP960,三年保,3600元包运费,配置如下:
CPU:E7300 4G 320G DVDRW Q45 三年保 Vista XP 双系统
intel 5300 无线套 OP960专用
贝尔金 displayport 转 HDMI 线
以下照片借用卖家滴。。



没想到会买DELL的品牌机。
现在有个问题,感觉电源风扇的噪音比较大,莫非还要自己改造一番?
Posted on 21 March '09 by 味小精, under 挨踢. 4 Comments.
Design by Igor Penjivrag. Background by Squid Fingers.