vba

    3热度

    2回答

    早上好, 我试图找到一种方式来存储值的数组:通过一列 回路(B柱) 取值,商店他们在一个数组 遍历数组,并做一些文字处理 但是,我不能想办法来循环THROU gh列并将这些值存储在一个数组中。我已经通过堆栈溢出和谷歌,但还没有找到一个成功的解决方案(还)。 提前,谢谢你的帮助。 Sub collectNums() Dim eNumStorage() As String ' initial st

    0热度

    1回答

    我有一段简短的代码,在我发送电子邮件时运行。它会查看收件人地址和主题以查看它是否包含某些单词,然后弹出消息框提醒我们更新绘图版本控制。它适用于内部电子邮件地址,似乎在某些外部电子邮件地址上工作,但出于某种原因,它不喜欢我实际需要它留意的电子邮件地址。 Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

    2热度

    1回答

    我想在Word文档中找到ole对象,而且它似乎在InlineShapes(1).GroupItems。但不能访问组项目,因为它给我错误。 Sub findOle() Dim shp As GroupShapes Dim c As Integer Set shp = ActiveDocument.InlineShapes(1).GroupItems End Sub

    1热度

    2回答

    由于各种原因,我想在我的表单上设置一个自定义按钮以保存当前记录。我使用一个导航表单,并希望在保存条目时触发相同的过程(完整性检查,用户输入等),从而每当用户按下“保存”按钮或切换到另一个表单时。用户将被有条件地要求确认该过程并因此能够取消它。 一切都与一个非常奇怪和愤怒异常顺利运行:每当我点击“更新前”事件中节省一个新记录按钮和提示信息,我收到 RTE 3021( “没有当前记录”) 没有MsgB

    0热度

    2回答

    我有一个长的工作表,其中包括3列: 柱A =发票号码 列B =接收量 列C - 支付金额 在列中的每个号码A需要分割到两行:付款和接收。 对于收费将采取准数从列C 对于接收将准数从塔B

    0热度

    0回答

    在Control Panel> Printer and Faxes我的默认打印机,是HP LaserJet P2035 on Ne02: 我有连接到我的系统2台活跃打印机。 我想PrintOut与我的第二打印机,其是:HP LaserJet Pro MFP M127-M128 PCLmS on Ne01: 有这Sheet1 我PrintOut嵌入(作为图标)以上嵌入文档MS-Word文档。 我的代

    2热度

    1回答

    由于某些原因,我的VBA编辑器改变了行为,现在要查看模块中另一个子程序的代码,我必须使用下拉菜单导航到它们,从而可以看到一次只有一个。 如何更改视图以查看在同一时间的所有潜艇和职能,只能由水平线划分,像从前那样?

    0热度

    2回答

    我试图通过VBA代码将所有垃圾邮件移动到我的收件箱。不幸的是我得到这一行的“424对象所需”的错误: Item.Move (olFLD) 代码工作时,我尝试从收件箱邮件移动到另一个文件夹,但是当我尝试移动它不工作周围的其他方法从垃圾邮件到收件箱。 Dim OlNS As Outlook.NameSpace Dim olFLD As Outlook.Folder Dim olJunk As

    0热度

    2回答

    我有一个工作簿,其中包含客户端信息。每个客户都有一张工作表,每张工作表都标有客户的唯一ID。我想要启动一个UserForm,用户将从cobo box中选择一个客户端。然后,来自相应工作表最后一行的数据填充UserForm。 在同一工作簿中的其他代码中,我使用的是脚本字典,但这些字典都与特定工作表中的特定范围相关联。我不知道如何编写UserForm以在所有工作表中搜索与cobo_ClientID字段

    10热度

    2回答

    我已经写在VBA刮刀解析从洪流站点的某些影片信息退出浏览器。我用IE和queryselector完成任务。当我执行我的代码时,它会解析一切,并弹出一个错误。看起来这个错误似乎是无处不在,而不是继续。如果我取消错误框,那么我可以看到结果。我已经上传了两张图片,向您展示我遇到的错误。我如何成功执行代码而不会出现任何错误?提前致谢。 下面是完整的代码: Sub Torrent_Data() D