一些基本问题 各种求~~

wang6822763

excel中如何取当前文件地址？？
如下
If (ComboBox1.Value = "123") Then
   Image1.Picture = LoadPicture("C:\Documents and Settings\wower\桌面\X.jpg")
   qxbz = 0 '审核
    Else
    Image1.Picture = LoadPicture("C:\Documents and Settings\wower\桌面\Y.jpg")
    qxbz = 1 '财务
我要换了文件夹位置貌似就不对了 我祥把图片和表放一文件夹 文件夹移动不影响

chury11

请上传附件

wang6822763

好的 等 另外我非法关闭时候 貌似 表依然运行 没办法压缩是为什么呢

wang6822763

2楼的同志看了吗 就是文件夹里的俩张 我的路径是固定的 想问下怎么换

chury11

原帖由 wang6822763 于 2011-2-10 13:36 发表
好的 等 另外我非法关闭时候 貌似 表依然运行 没办法压缩是为什么呢

Private Sub ComboBox1_Change()
Dim path As String
path = ThisWorkbook.path
If (ComboBox1.Value = "待遇审核科") Then
   Image1.Picture = LoadPicture(path & "\新建文件夹\登陆男.jpg")   登录窗口.Caption = "待遇发放 - 欢迎待遇审核使用"
   qxbz = 0 '审核
    Else
    Image1.Picture = LoadPicture(path & "\新建文件夹\登陆女.jpg")   
qxbz = 1 '财务
    登录窗口.Caption = "待遇发放 - 欢迎待遇发放使用"
End If

End Sub

[ 本帖最后由 chury11 于 2011-2-10 14:02 编辑 ]

sqhsqhli

绝对路径改相对路径

wang6822763

一个很简单的例子解决VBA大问题
Private Sub UserForm_Activate()
ss = Application.ActiveWorkbook.Path ’获得当前OFFICE文件（*.xls,*.mdb,*.ppt,*.doc等文件）的绝对路径
Image1.Picture = LoadPicture(ss & "\" & "彩照5.jpg") ‘给出需要插入窗体的图片文件的路径
End Sub

当然，图片文件和你所使用的某个OFFICE文件（*.xls,*.mdb,*.ppt,*.doc等文件）是在同一子目录下了。
这可是目前为止VBA中最简单的相对路径实现办法啦！

wang6822763

谢谢哇 谢谢2楼 嘎嘎
另外我想求教下 怎么能实现
qxbz = 0 时候
锁定A列 B列并隐藏B列 能修改 C D列
当 qxbz = 1时
锁定C列并隐藏D列 能修改A B列

wang6822763

另外还有 能直接删除列 删除时候是一列的全部数据都 删除 而不是只是删除能修改的

wang6822763

高手 你还在吗