手把青秧插满田,低头便见水中天,心地清净方为道,退步原来是向前
该日志由 roczyl 发表于 2009-11-17
Sub my_print()
Dim pagestart, pageend As Integer
Dim pagecell As String
On Error GoTo errdeal
pagecell = "k3"
pagestart = Int(InputBox("请输入需打印的起始序号,如1", , "1"))
pageend = Int(InputBox("请输入需打印的结束序号,如50", , "1"))
For i = pagestart To pageend Step 1
Range(pagecell).Select
ActiveCell.FormulaR1C1 = i
ActiveSheet.Calculate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next i
Exit Sub
errdeal:
End
End Sub
该日志由 roczyl 发表于 2009-06-23
很好的 excel vba 技巧集锦,工作的好帮手。
第1章Range(单元格)对象
第2章Worksheet(工作表)对象
第3章Wordbook(工作簿)对象
第4章Shape(图形)、Chart(图表)对象
第5章Application对象
第6章使用对话框
第7章菜单和工具栏
第8章控件与用户窗体
该日志由 roczyl 发表于 2009-05-17
从身份证号码中提取性别
Q:A1单元格中是15位的身份证号码,要在B1中显示性别(这里忽略15位和18位身份证号码的判别)
B1=if(mod(right(A1,1),2)>0,"male","female")
请问这个公式有无问题,我试过没发现问题。但在某个网站看到作者所用的是如下公式:B1=if(mid(A1,15,1)/2=trunc(mid(A1,15,1)/2),"female","male")
提取性别(无论是15位还是18位)
=IF(LEN(A1)=15,IF(MOD(MID(A1,15,1),2)=1,"男","女"),IF(MOD(MID(A1,17,1),2)=1,"男","女"
该日志由 roczyl 发表于 2009-05-17
该日志由 roczyl 发表于 2009-05-16
这两天忙着给全镇小学六年级模拟考试算分数、统计,领导给的要求挺复杂,因本人过于追求完美,所以在excel中编了个小程序,解决了很多问题。提高了效率,也学到了很多vba的知识。平时可没动力学习,呵呵。才发现编程有时候确实是一件有趣的事。
今天学会了一招,就是不会的东西,可以通过录制宏,再看代码。真好!
该日志由 roczyl 发表于 2009-05-15
在excel中可以采用下拉列表的方式快速输入数据。创建下拉列表方法如下:
1、首先选中需要显示下拉列表的单元格或单元格区域。
2、单击菜单上“数据→有效性”命令。
弹出“数据有效性”窗口。
3、在弹出“数据有效性”窗口中,在窗口中选择“设置”选项卡,在“允许”下拉列表中选择“序列”选项。
4、弹出带有“来源”框的“数据有效性”新窗口。
5、在带有“来源”框的“数据有效性”新窗口中,举例如:在“来源”下框中输入“姓名,年龄,性别,出生年月”(请注意:逗号“,”为半角),然后点“确定”即可。
这样我们就可以看到原所选单元格中已经创建好了一个下拉列表。这样,用户今后在输入数据的时候就可以免去敲击键盘了,只需要用户用鼠标进行选择即可。
该日志由 roczyl 发表于 2009-03-18
可以在一篇文档中任意插入多段不同的连续的页码,选取“设置页码格式”,还可以指定从任意数字开始计页码。一般第一页是封面,第二页是目录,第三页是摘要,第四页往后是正文。正文要编上页码,而封面、目录和摘要可能不需要页码。以前没有过多地研究过这个问题,往往是用的笨办法,将封面,目录,摘要单独做个word文档。正文单独做一个,然后再插入页码打印,不再笨下去了!!