[求助]如何根据条件自动执行宏？

hrbpkf · 发表于 2008-2-9 02:09

刚学会上传

hrbpkf · 发表于 2008-2-9 02:12

怎么搞的？

[此贴子已经被作者于2008-2-9 2:17:26编辑过]

hrbpkf · 发表于 2008-2-9 02:25

我要疯了，每次提示上传成功，为什么看不见附件？

suzm3VmC.rar (25.51 KB, 下载次数: 22)

[此贴子已经被作者于2008-2-10 0:12:18编辑过]

xiqian75 · 发表于 2008-2-9 12:09

先将文件压缩成rar格式或zip格式，再上传。

hrbpkf · 发表于 2008-2-10 00:16

NOiH5Qag.rar (25.51 KB, 下载次数: 9)

终于搞明白了，原来firefox不能上传文件。

lht7777兄，目的是这样的：如果E18<=1，则隐藏第20行，否则隐藏第19行。

[此贴子已经被作者于2008-2-10 0:18:55编辑过]

hrbpkf · 发表于 2008-2-10 21:12

lht7777兄，怎么没有回音？一直没来吗？

lht7777 · 发表于 2008-2-10 21:54

:)不好意思,一直没时间上线!

楼主的附件中,哪些单元格的值是手工维护的,只要把"Target.Address "指定为这些单元格的地址便可!

hrbpkf · 发表于 2008-2-11 00:26

lht7777兄，我还是没明白。我只能通过E18和1.0的关系判断是否执行宏，如果由其他单元格来触发并不能满足我的要求啊？我又发了一遍附件，你能帮我改改吗？其中粉色的单元格是手工维护的。你试试修改E18的数值，看看效果。我的目的是通过修改粉色单元格的数值达到相同的效果。：）

iXqVXOpc.rar (25.51 KB, 下载次数: 18)

[此贴子已经被作者于2008-2-11 0:31:56编辑过]

lht7777 · 发表于 2008-2-12 09:38

重复的帖子，我也没权限删的，要请版主帮忙了！

根据你的需求，我改了一下程序，和以前的思路大体相同，你看看是否与你的需求相同！

V76cDiXh.zip (31.94 KB, 下载次数: 229)

部分代码：

    If Range("e18") <> MyTemp_E18 Then
        If Range("e18") <= 1 Then
            Rows("19").Select
            Selection.EntireRow.Hidden = False
            Rows("20").Select
            Selection.EntireRow.Hidden = True
        Else
            Rows("20").Select
            Selection.EntireRow.Hidden = False
            Rows("19").Select
            Selection.EntireRow.Hidden = True
        End If
        MyTemp_E18 = ActiveWorkbook.Sheets("ÃÅ¿òÇ½").Range("e18")
        Range("e18").Select
    End If

[此贴子已经被作者于2008-2-12 9:39:55编辑过]

hrbpkf · 发表于 2008-2-12 17:36

lht7777兄，此诚我所欲也！多谢指教！

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

[求助] [求助]如何根据条件自动执行宏？

评分