我有 2 张工作表和 1 个将值从一个粘贴到另一个的宏。 宏正在工作。 我复制了它并稍微改变了它。 但它不能运行 -

'运行时错误 9'

这是可见性问题。

所有工作表都在同一个excel文件中。

原始宏代码,它的工作原理:

Sub original()

For j = 18 To 28
        Worksheets("Express_vnzp").Select
        srok = Cells(26, j).Value
        stav = Cells(31, j).Value
        komis = Cells(28, j).Value
        stavka_privlech = Cells(29, j).Value

        For i = 10 To 12

            PD = Cells(i, 17).Value
            Worksheets("Ðàñ÷åòû").Select
            Cells(3, 2).Value = stav
            Cells(4, 2).Value = srok
            Cells(5, 2).Value = komis
            Cells(7, 2).Value = stavka_privlech
            Cells(15, 2).Value = PD
            marzha2 = Cells(23, 2).Value

            Worksheets("Express_vnzp").Select
            Cells(i, j).Value = marzha2

        Next
Next
End Sub

我复制并更改了 i,j - 不工作。

Sub erj()

    For j = 3 To 4
            Worksheets("creditcard").Select
            srok = Cells(26, j).Value
            stav = Cells(31, j).Value
            komis = Cells(28, j).Value
            stavka_privlech = Cells(29, j).Value

            For i = 5 To 6

                PD = Cells(i, 17).Value
                Worksheets("ras").Select
                Cells(3, 2).Value = stav
                Cells(4, 2).Value = srok
                Cells(5, 2).Value = komis
                Cells(7, 2).Value = stavka_privlech
                Cells(15, 2).Value = PD
                marzha2 = Cells(23, 2).Value

                Worksheets("creditcard").Select
                Cells(i, j).Value = marzha2

            Next
    Next
    End Sub

给出“运行时错误”,它的可见性问题。

  ask by ERJAN translate from so

本文未有回复,本站智能推荐:

1回复

运行时错误1004:保护工作表后宏不起作用

我为我的团队和我所在领域的其他代理创建了一个工作表,以帮助跟踪一年中每个月的销售和销售预测。 但是,每次我设置密码并保存文件时,都会收到一条错误消息,指出: 运行时错误 1004 应用程序定义或对象定义错误我的代码如下。 请帮忙。 我不想在不受保护的情况下共享此文件。 如何保护每个工作表并仍然启用
2回复

当工作表受保护时,宏不起作用。正在运行的宏返回运行时错误1004

我的工作簿中有三个可以正常工作的宏。 但是,当我保护任何工作表时,它们都停止工作,并且出现run-time error 1004 。 我尝试遵循在网上找到的两个建议: 在宏代码开始时取消保护,并在结束时进行保护; 仅限用户界面),但仍然存在运行时错误。 我需要保护我的工作簿
2回复

宏运行时错误

我有一小段代码,可以为零值过滤一列并返回行数。 我试图循环遍历不同的列。此宏在较小的输入下效果很好。 但是我有一个具有160106行的Excel工作表。 我想在此运行我的宏。 我遇到了运行1004错误。我找到了以下链接,该链接解释了该问题, 网址为http://support.micro
1回复

VBA宏上的运行时错误

我正在使用VBA代码从Outlook电子邮件中获取文本并将其放置在我设置的Excel工作表中。 我正在使用Excel2010。我的电子邮件包含以下信息: 公司:ABC公司 上课时间:2013-10-29至2014-10-22 我已经设置了一个For With循环来浏览电子邮件,并在
1回复

Excel宏运行时错误

我试图运行一个非常简单的宏,该宏从工作簿中删除许多列,但是运行它时,出现错误运行时错误“ 1004”:应用程序定义的错误或对象定义的错误。 这很奇怪,因为我从另一个宏复制并粘贴了这一行确切的代码,并且该代码行得很好。 作为excel工作表的补充说明,我插入了一个按钮,以在需要时设置宏
2回复

将启用宏的工作表从一个工作簿复制到另一个“运行时错误'1004”

我正在尝试创建一个宏,使我可以将这个非常常用的工作表直接放入我们需要的文件中。这是一个常用的工作表,我希望能够快速,轻松地放入要复制的现有文档中并经常使用。 我收到:运行时错误'1004':Excel无法访问'垃圾'。 该文档可以是只读的或加密的。 此代码是从堆栈溢出的另一种解决方案修
1回复

运行时错误1004无法运行工作表类的粘贴方法

您好,我制作的宏出现问题。 直到他开始给出此错误之前,它一直运行良好。 然后当我进入调试。 在以下字段中显示错误:我将在此处发布所有代码。
1回复

运行时错误1004:无法获取工作表类的数据透视表属性

我是Excel VBA的新手,我正尝试仅使用具有以下代码的行字段来创建数据透视表,但遇到错误1004,并且需要帮助进行调试。 我已经在注释后指出了代码上的错误// //'上面的宏创建了一个数据透视表缓存和地址以插入新的数据透视表//为了易于引用。 感谢对此的任何帮助。 Sub getpi