由中国天气网提供
[不指定 2010/09/20 09:52 | by 白燕湾 ]

在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

从外包装的条形码怎么能看出商品的条形码

[不指定 2016/06/22 09:41 | by 吕进 | Via 本站原创 ]
外包装的条形码一般都是13位的,商品的条形码都是12位,我只记得外包装的条形码1打头的尾数加3  ,2打头的尾数加6,3打头的尾数减1,4打头的尾数加2,谁能给我个从0到9打头的尾数应该加几 就是商品的条形码?谢谢了!

商品条码有8位的,13位的,是EAN标准,还有12位的是美国的部分地区和加拿大使用的UPC标准。
外箱条码按照标准都应该是14位的,第一位叫包装指示符,除了第一位以外,后边的12位是商品代码,最后一位是校验码。对于8位的和12位的,去掉校验码后分别有7位和11位,变成外箱码时要在前面分别加5个0和1个0,变成12位,再加包装指示符。
外箱条码的最后一位校验码根据第一位的不同要重新计算,计算方法楼上已经给出了。由于外箱码与商品条码只是增加了第一位,所以也可以由下面的列表推算。
Tags:

Win7图片查看器无法查看Gif动图的解决办法

[不指定 2016/06/11 17:47 | by 吕进 | Via 本站原创 ]
Win7系统,在查看图片时,常遇到Gif动图无法正常查看的情况,

安装插件,重启后可以解决问题:

ImageViewerforWindows7(网上搜索)

运行VBA时出现 &H80040111错误

[不指定 2016/05/31 18:41 | by 白燕湾 | Via 本站原创 ]
在使用Excel VBA的时候,尤其是有设计的Form窗体并且上面有列表框等控件时,经常会碰到在某些电脑上打开出现“无法加载这个对象,因为它不适用于这台计算机”的问题。这个问题产生的主要原因是由于两台电脑上的MSCOMCTL.OCX版本不同。尤其是在高版本的Office里创建的窗体和控件,在低版本的Office或电脑上打开时就有可能出现这个问题。

或者出现:“&H80040111错误” 的提示,这些现象,基本都是因为版本不同造成的。

最终解决方案
1.取得MSCOMCTL.OCX最新版6.1.98.34(见附件)
2.到C:\WINDOWS\system32下找到文件MSCOMCTL.OCX
3.用新版本覆盖旧版本
4.点右键查看"属性"-"版本",看版本号是否更新为6.1.98.34
5.点"开始-运行"  输入:Regsvr32 MSCOMCTL.OCX
做到此步后,从新打开EXCEL,应该就可以了

分页: 1/134 第一页 1 2 3 4 5 6 7 8 9 10 下页 最后页 [ 显示模式: 摘要 | 列表 ]