Office2010日历控件
[
2017/07/14 14:51 | by 吕进 | Via 本站原创 ]

Office2010是不自带日历控件的,如何执行通过Office2003或Office2007编写的VB日历控件?
1、下载附件,解压后按说明执行相关操作;
2、进行VBA编辑器,附加日历控件;
3、关闭Excel文件后重新打开即可。
下载文件
1、下载附件,解压后按说明执行相关操作;
2、进行VBA编辑器,附加日历控件;
3、关闭Excel文件后重新打开即可。

潘漠华:问美丽的姑娘
[
2017/03/06 21:38 | by 吕进 | Via 本站原创 ]

我常抱怨日子过得不称心。我知道这么想没有什么可指责之处,人朝高处走,水往低处流嘛。但是怎么算过得好?应该和谁比?我不能说不模糊。前些日子我出了一趟远门,对这个问题好像有了一点感悟。
我从北京出发到云南元谋县,进入川滇边界,车窗外目之所及,都是荒山野岭。火车在沙窝站只停两分钟,窗外一群约十二三岁破衣烂衫的男孩和女孩,都背着背篓拚命朝车上挤,身上那巨大的背篓妨碍着他们。
我所在的车厢里挤上来一个女孩,很瘦,背篓里是满满一篓核桃。她好不容易地把背篓放下来,然后满巴掌擦着脸上的汗水,把散乱的头发抹到后面,露出俊俏的脸蛋儿,却带着菜色。半袖的土布小褂前后都是补丁,破裤子裤脚一长一短, 也满是补丁,显然是山里的一个穷苦女娃。
在ACCESS中用VBA设置EXCEL单元格的格式
[
2016/09/25 09:29 | by 吕进 | Via 本站原创 ]

在ACCESS中用VBA更改EXCEL单格元格的格式可用以下代码:
Private Sub test5() 'EXCEL单元格格式设置
Dim excelapplication As Object
Dim str As String
str = Application.CurrentProject.Path & "\book1.xls"
Set excelapplication = GetObject(str) '获取指定的EXCEL文件
With excelapplication.sheets(1)
.Range(.Cells(1, 1), .Cells(3, 4)).Borders.LineStyle = xlContinuous '设置单元格的边框
.Range(.Cells(1, 1), .Cells(3, 4)).Borders.ColorIndex = xlAutomatic '设置单元格边框的颜色,可用1~56间的数字设置不同的颜色
.Range(.Cells(1, 1), .Cells(3, 4)).NumberFormat = "0.00%" '设置单元格的值以百分比的形式显示
.Range(.Cells(1, 1), .Cells(3, 4)).interior.ColorIndex = 24 '设置单元格的颜色
.Range(.Cells(1, 1), .Cells(3, 4)).Font.Bold = True '字体加粗
End With
End Sub
Private Sub test5() 'EXCEL单元格格式设置
Dim excelapplication As Object
Dim str As String
str = Application.CurrentProject.Path & "\book1.xls"
Set excelapplication = GetObject(str) '获取指定的EXCEL文件
With excelapplication.sheets(1)
.Range(.Cells(1, 1), .Cells(3, 4)).Borders.LineStyle = xlContinuous '设置单元格的边框
.Range(.Cells(1, 1), .Cells(3, 4)).Borders.ColorIndex = xlAutomatic '设置单元格边框的颜色,可用1~56间的数字设置不同的颜色
.Range(.Cells(1, 1), .Cells(3, 4)).NumberFormat = "0.00%" '设置单元格的值以百分比的形式显示
.Range(.Cells(1, 1), .Cells(3, 4)).interior.ColorIndex = 24 '设置单元格的颜色
.Range(.Cells(1, 1), .Cells(3, 4)).Font.Bold = True '字体加粗
End With
End Sub