快来参加 Excel VBA 秘笈接龙

lotustower · 发表于 2006-8-10 16:07

yigepure: 因為網絡已經有我不覺是[原创],

[此贴子已经被作者于2006-8-11 23:56:37编辑过]

lotustower · 发表于 2006-8-10 16:12

例 2：确定是否工作表被保护

Tested OK

WinXp SP2 + Office 2003

yigepure · 发表于 2006-8-10 21:26

确定工作表是否保护，经过我测试只有ProtectContents才能真正起作用，因为在2003里的保护选项，如果你选中了允许编辑方案等，你会发现其它两个的返回值是FALSE，从真正意义上来说，它不可靠。关于里面的第三个方法，应该没有人用过吧！

清风_ll · 发表于 2006-8-10 22:05

关于宏表取值的函数很早就看到了,不过最早却是在一个国外的E文网站中看到的,而不是从chijianzen先生那里得来的,在论坛中也有不少了吧,记得我就回过一个这贴子.当然应该还是有其它方法可以实现的.大家慢慢挖掘吧.不过到了2007版就应该很容易得到了吧

紫蝶儿菲菲 · 发表于 2006-8-11 10:08

lotustower 大姐，你39楼的那个链接打不开呀。

[此贴子已经被作者于2006-8-11 10:10:29编辑过]

紫蝶儿菲菲 · 发表于 2006-8-11 11:01

知道了。另外39楼的代码好像不能正常运行的？

Private Function GetValue(path, file, sheet, range_ref)
    Dim arg As String
    If Right(path, 1) <> "" Then path = path & "\"
    If Dir(path & file) = "" Then
        GetValue = "File Not Found"
        Exit Function
    End If
    arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
            Range(range_ref).Range("A1").Address(, , xlR1C1)
    GetValue = ExecuteExcel4Macro(arg)
End Function
是不是少了那个红色的 \ 符号呀？

lotustower · 发表于 2006-8-11 11:07

To 紫蝶儿菲菲:

ODLtSHq9.rar (19.83 KB, 下载次数: 75)

[此贴子已经被作者于2006-8-11 23:20:55编辑过]

紫蝶儿菲菲 · 发表于 2006-8-11 12:06

嗯，在此，俺感谢lotustower大姐了。

[em26]

qee用 · 发表于 2006-8-11 16:47

To: yigepure兄,lotustower大姐
呵呵,个人觉得原创还是原创,是不是首创谁也无法保证的.
按清风兄的规则,还得说点什么的.
说一下学习6楼的体会,虽然AutoSize属性就排在前面,但却从未注意过它.从根本上就是喜欢自己画.窗体上一堆textbox,combox,label...长度倒好说,高度却难把握,显示的字上不上下不下,一直将就着,偶尔耐心做出个好点的,复制,粘贴,再粘贴...有了它AutoSize,就好办了,先随便画,然后全选,属性统一AutoSize设为True,再改回False,在这中间,高度就不用担心了,至于长度,用鼠标拉长还是省事多.有兴趣的朋友试试看.
补充一句：同一行/列对齐的问题，清风兄其实已经提到了，选定同一行/列，右键里自己找找吧。

[此贴子已经被作者于2006-8-11 20:14:01编辑过]

雪兰君 · 发表于 2006-8-13 01:29

嗷~~

我也来一个 ,如果这个不成立, 我还是菜鸟

有一个小东西! 是一个":"符号 ,有时非常好用

拿if 语句说, 它有多种省略方法

如果if 语句要执行的语句超过2个,好象必须分段,然后多写一个 end if, 比较占地方.

其实用一个":"符号, 就不必要再写end if了

具体就是 if 条件then 执行1: 执行2:执行3: 执行4

比如: If [a1] >= 0 Then [c1] = 0: [c2] = 1: [c3] = 2: [c4] = 3

它会依次执行, 程序1行写完!

菜鸟我跑了~~

[此贴子已经被作者于2006-8-13 1:34:06编辑过]

用户名		自动登录	找回密码
密码			免费注册