PasteSpecial不起作用
我总是疯狂地发现这个错误：运行时错误1004 - 此对象的粘贴特殊方法无法执行 这是我的代码： 如果 TypeName（cb）赞 “ CheckBox” 然后 如果 cb.Value = True 那么 工作表（ReiternameAttribute）.Cells（标题 - 1 ， 3 ）。复制 Selection.Offset（ 0 ， 1 ）。选择 使用选择
..
VBA相关内容
运行时错误1004应用程序定义或对象定义错误
我正在尝试添加vlookup的第一行代码上收到运行时错误1004应用程序定义或对象定义错误。从底部约5行。我很欣赏任何有关驱动它的信息。我的截止时间很短。 Sub Karen（） 工作表（“ 在此处粘贴数据”）。选择 Dim Colnum 作为 整数 Dim 前缀作为 字符串 Dim 后缀作为 字符串 Dim x 作为 长 对于 x =
..
VBA范围/数组问题。无法选择多个范围。
大家好， 编辑：它崩溃的部分是我更新的地方 ar =范围（“ C14：C19”）' 购买 Var =范围（” D14：D19“）' 价格 这是我选择数字范围的地方 ' 不工作 ' ar =范围（“C”& startRow，范围（“C”& endRow）.End（xlUp））'购买 ' Var = Range（“D”& startRow
..
如何使用customUI编辑器工具向ms outlook 2007添加功能区
请告诉我如何使用customUI编辑器工具在ms outlook 2007中添加功能区。请给我一些步骤。 解决方案 看看这里： Outlook 2007：在功能区上创建一个按钮 [
..
使用vba将ppt转换为pdf
我无法将ppt转换成pdf格式。请帮助找到方法。 Sub ppttopdf（control As IRibbonControl） Dim lngFirst 作为 长 Dim lngSecond 作为 长 Dim strPath 作为 字符串 Dim ipos 作为 整数 如果 ActivePresentation.path = “ ” 然后 Ms
..
使用VBA代码将ppt保存为pdf
这里我试图将ppt保存到pdf。这是我试过的代码。但我得到的错误就像“没有安装pdf转换器”。但我已经在我的系统中安装了pdf。请解决这个问题。 /> Sub ppttopdf（control 正如 IRibbonControl） Dim 路径 As 字符串 path = ” D：\ power“ Save_PowerPoint_Slide_as_Images路径
..
使用VBA在excel 2007中使用自定义Tab
我已经在ms excel 2007中创建了自定义选项卡。它对于那个excel文件很有用。但是我想将所有自定义选项卡用于所有excel打开文件。请告诉我该怎么做。 这是我的代码： i将此代码放在VBA项目的Module1中。 Sub save（control As IRibbonControl） Dim OrigName As String Ori
..
如何制作所有用户使用的Excel自定义标签。
我已经使用customUI工具创建了customTab，并在该选项卡中我放置了带有1个按钮的功能区。我正在将导出Excel工作表发送到硬盘。它工作正常但现在我想要自定义选项卡可用于所有excel文件。怎么样才能帮到我。 Sub 导出（control As IRibbonControl） Dim OrigName As String OrigName = Act
..
excel vba中的现有公式
我正在尝试在vba宏中实现下面的excel公式，但它不起作用，请建议我正确的方法。 我的问题是我试图找到相同列中的重复条目并标记它是重复的，但不满足条件。 如何使用这个公式制作正确的vba条件？ 公式为 = IF（ISERROR（MATCH（C2，C $ 2：C $ 16， 0 ）），“ “，” 重复“） 和我在vb中的条件如下： 如果 WorksheetFu
..
Vba代码检查我在代码中给出的电子邮件ID集
您好， 我有一组电子邮件地址用于那些电子邮件地址我不应该发送任何邮件，即使我在“收件人”字段中输入邮件在新邮件中，当我点击发送密钥时，它通过弹出如XXXX邮件ID匹配在联系人列表中我在代码中提到它。 任何人都可以请提供代码来检查“TO”字段中的邮件ID和代码。 i尝试下面的代码。 私有 Sub Application_ItemSend（ ByVal 项目作为 对象，取消
..
向邮件项添加右键单击选项
我有一个宏来做一些任务是将打开的mailitem转移到我的硬盘中的特定文件夹。代码如下： 公开 Sub export1（） Const OLTXT = 0 Dim currentExplorer 作为资源管理器 Dim 选择作为选择 Dim oMail As Outlook.MailItem Dim obj 作为 对象 Dim sPath
..
如何在vba中使用发送密钥到文本框？
嗨， 我正在自动化网页。更新文本框时，会在该文本框中按下某个键。但我正在通过vba中的代码直接处理文本框中的值。所以值得注意更新。 我试过sendkeys。但它不起作用。给出错误。代码如下： iItems.SendKeys“{L}” 错误：对象没有这个属性或方法。 请给我一些解决方案。 谢谢 解决方案 无论 iItems 对象是什么，它没有SendKeys方
..
将一组行和列从一个工作表复制到另一个工作表
您好 我是excel宏编程的新手。我想要一个简单的宏，我可以将一组行和列从一个工作表复制到另一个工作表，而无需预先知道源表中存在的行数或列数。 提前致谢。 解决方案 开始此处 [
..
RUNTIME ERROR 1004 ..定义
SUB显示（） 设置fnd =范围（“a：a”）。查找（“Br”） 如果fnd为Nothing则退出Sub 设置第一个= fnd 设置prev = fnd 确定 设置fnd =范围（“a：a”） .Find（“Br”，fnd） 如果fnd Is Nothing或fnd.Address = first.Address然后退出Do 如果离开（fnd，3）
..
如何纠正VBA
我正在尝试将计费保存在单独的工作簿中。应该保存并在清除之前将信息发布在我的注册表中。 Sub SaveStatementWithNewName（） Dim NewFN As 变体 “ 将发票复制到新工作簿 ActiveSheet.Copy NewFN = ” C：\ Users \iaquino \Documents \Billing Statements& Ra
..
如何在Ms word 2016中运行MS Word 2010 vba代码？
我有用MS Word 2010编写的VBA代码，但我的代码不适用于MS word 2016.我选择了与MS word 2010相同的所有必要参考文献（库）。但是没有工作。 代码在Office Office 2010版本14.0.6023.1000（32位）上工作 代码不能用于Ms office 2016版本16.0.6326.1000（32位） 此代码用于检查文档中的相关单词并提
..
它没有显示输出，这个VBA程序的任何一个帮助
Sub orderParagraph1（） Dim oParagraph As Word.Paragraph Dim vParagraphText 正如 变体 对于 每个 oParagraph 在 ActiveDocument.Paragraphs If Len（Trim（oParagraph.Range.text））> 0 然后 vPar
..
如何在visual basic access 2007中对memo数据类型应用distinct
你好， 我正在使用Visual Basic access 2007创建一个Tool.Now我卡住了，因为我必须在Memo数据类型上应用distinct。但是我收到错误 “该字段太小，无法接受您尝试添加访问2010备忘录字段的数据量。请尝试插入或粘贴较少的数据” 请帮我解决这个问题。 谢谢， Naveen 我的尝试： 我尝试了下面提到的查询来从备忘录字段中获
..
这是什么意思？它会做什么？
子收据（） Dim N As String Dim D As Date Dim Q As整数 Dim P As Currency Dim TC as Currency Dim Disc As String Q =范围（“C4”）。值 P =范围（“C5”）。值 TC = Q * P Cells（7,3）.Value = TC 如果P
..
这是关于批处理的另一个问题：这是如何工作的？
Sub ClueBatch（） Dim name As String Dim room As String Dim 武器作为 字符串 Dim myrow 作为 整数 单元格（ 1 ， 1 ）。激活 myrow = 1 执行直到IsEmpty（ActiveCell） DoEvents name = ActiveCell
..