Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("O6")) Is Nothing Then
If Len(Cells(6, 15)) >= 1 Then
Application.OnTime Now + TimeValue("00:00:10"), "kko"
End If
End If
If Not Intersect(Target, Me.Range("O9")
我有下面的VBA代码,其中我正在将一个excel范围复制到Powerpoint。我已经尝试了添加各种延迟,以确保正确执行复制粘贴命令,但是,无论延迟如何,文件都会崩溃。
我目前有一个Do loop,文件仍然崩溃,没有退出循环。如果有人能提供一些指导,我将不胜感激。
rng.Copy
DoEvents
Do
On Error Resume Next
mySlide.Shapes.PasteSpecial ppPasteBitmap '2 = ppPasteEnhancedMetafile
Set myShape = mySlide.Shapes(mySlide
我对VBA编程非常陌生,并试图用excel编写VBA代码。这段代码将通过Criteria1:="=*001"过滤我的文件,并将所有唯一值复制到名为AV的新工作簿中,并保存它。现在,我还希望将Criteria1:="<>*001"中的所有值复制到名为LC的新工作簿中,并保存它。
下面是我在这个网站上找到的代码,并试图对其进行修改,但不确定如何将ELSE用于Criteria1:="<>*001"。
Sub sort()
On Error Resume Next
Application.DisplayAlerts = False
我浏览了许多Excel VBA主题,但是,我没有找到任何关于插入普通值的信息-在本例中是SUM()的结果-而不是公式。有一个方法,PasteSpecial xlPasteValues,但它似乎不是我要找的。
下面的代码示例插入公式,而不仅仅是值:
Sub test()
Range("A4").Value = "=SUM(A1:A3)"
End Sub
如何在Excel VBA中插入不带公式的普通值?
我有excel文件和几个excel表。我希望读取给定excel表的excel表中的所有数据,并将它们复制到不同的excel表中。一个excel工作表可能有几个表。
我是通过VBA做的。我想找到一个C#代码来实现它。这是我使用的VBA代码。
Dim tableObject As ListObject
Dim oLastRow As ListRow
Dim srcRow As Range
Set sheet = ThisWorkbook.Worksheets("Sheet1")
For Each tableObject In sheet.ListObjects
Set srcRo
我需要将数据从外部数据库程序(Simcorp维度)复制到Excel中。 当我使用ctrl c/v将外部数据复制到Excel中时,没有出现问题。 当我运行要从剪贴板粘贴的VBA代码时,数字"1,000000000“(来自外部数据库)被解析为"1000000000”(在Excel中)。 Sub CopyPaste()
With ThisWorkbook.Worksheets("Sheet1")
.Range("A5").PasteSpecial "Text"
End With
End Sub 我尝试将
我有一个VBA代码,它应该将过滤后的查询数据导出到。当我通过一个OnClick按钮激活代码时,我会得到错误:Method pastespecial of worksheet class failed。
我正在运行Access 2013在Windows 2012 r2计算机上。
VBA代码:
Private Sub cbExport_Click()
On Error GoTo Command13_Click_Err
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdCopy
Dim x
我编写了一个宏,用于复制一个图表对象的格式并将其粘贴到其他图表对象中。宏成功完成,新创建的图表对象被正确创建。它做了它应该做的事情!但是,Excel在保存或处理新图表对象后立即崩溃。它在Excel 2010和Excel 2016中都会崩溃。
我已经隔离了导致Excel崩溃的代码片段。在下面的代码片段中,如果注释掉了第8-9行,Excel不会崩溃:
For Each cht In sh_plots.ChartObjects
With cht.Chart
'copies master chart format
master_plot.Chart.ChartArea
我想将工作表的格式粘贴到excel中的其他选项卡中,但使用excel VBA选择的几个选项卡除外。由于我的标签每天都在变化,我希望我的代码将格式复制并粘贴到我选择的“格式”工作表的右侧。我该怎么做呢?我正在考虑做一个循环,但我不能绕着我的头去做。 Dim WshSrc As Worksheet
Dim WshTrg As Worksheet
Set WshSrc = ThisWorkbook.Worksheets("Format")
Set WshTrg = ThisWorkbook.Worksheets("02.09.19")
WshSrc.Ce
如何使用自动筛选功能复制excel VBA中的特定列?我有一个从A到E列的工作表中的数据。Criteria列是A,并且我只想将C和D列复制到另一个工作表。 下面的代码复制了所有列,但我只需要两列C&D Dim ob as range
Set ob = Worksheets("ob").Range("a3:e27")
ob.Parent.AutoFilter.Range.Copy
With Sheet3.Range("a9")
.PasteSpecial Paste:=8
.PasteSpecial xlPasteVa
我有一个带有几个表的Word文档,我需要抓取某些值并将它们放入Excel文件中。每天都会有新的Word文档更新Excel文件。这就是我到目前为止所知道的: Private Sub copyTable_Button()
Dim WrdApp As Word.Application
Dim wrddoc As Word.Document
Set WrdApp = GetObject(, "Word.Application")
WrdApp.Visible = True
Set wddoc = WrdApp.ActiveDocument
'Column 1'
我正在尝试编写一个VBA宏,它将转置Excel工作簿中每个工作表上的数据(将列转换为行,将行转换为列)。
我尝试过以下代码的不同版本,但PasteSpecial在循环中似乎会导致问题。
Dim WS_Count As Integer
Dim i As Integer
WS_Count = ActiveWorkbook.Worksheets.Count
For i = 1 To WS_Count
Worksheets(i).UsedRange.Copy
Worksheets(i).Cells.ClearContents
Worksheets(i).Range("
当我意外地运行VBA代码多次将数据从一个工作簿复制/粘贴到目标工作簿时,它将在目标工作表中创建多个具有相同数据的行。
我希望VBA代码识别前一行是相同的,以防止数据重复。
此外,我的VBA代码将把公式复制到目标Excel文件中。
我只想复制值,而不是公式。我不知道如何在我的VBA代码中使用PasteSpecial。
Sub Copy_Paste_Below_Last_Cell()
Dim wsDest As Worksheet
Dim lDestLastRow As Long
Set wsDest = Workbooks("Destin
目前,我正在使用此VBA代码将选定的excel范围复制到outlook中的新电子邮件中:
Sub SendSelectedCells_inOutlookEmail()
Dim objSelection As Excel.Range
Dim objTempWorkbook As Excel.Workbook
Dim objTempWorksheet As Excel.Worksheet
Dim strTempHTMLFile As String
Dim objTempHTMLFile As Object
Dim objFileSystem As Object
Dim objTextStream
我目前正在将一个大型Excel工具从VBA 6和Excel 32位迁移到带有Excel 64位的VBA 7。
kernel32函数"GetCurrentProcessID“导致excel崩溃。我可以用一行VBA代码在空的excel文件中重新创建错误。
Declare PtrSafe Function GetCurrentProcessId Lib "kernel32" () As Long
如果然后调用Excel中的函数,则会在工作表上填充该数字,但Excel在几秒钟后就会崩溃。我试图用
Declare PtrSafe Function GetCurrentProces
我正在尝试编写一个使用Visual Basic和Excel对象模型在Word中转置表格的方法。然而,我在对复制的Word对象使用特殊粘贴时遇到了问题,因为它不仅仅是纯文本。
是否有可能强制使用transpose进行纯文本粘贴?有没有更好的方法来做这件事?
我当前的代码如下:
Public Sub transposeTable()
Selection.Copy
Dim oXlApp As New Excel.Application
Dim oXlBook As Excel.Workbook
Set oXlApp = CreateObject(Class:="Excel.Applicat
我正在寻找VBA代码,以便每当我将文本从任何位置复制并粘贴到Excel中时,它都会与目标格式相匹配。我找到两个不同的代码来做这件事:
Sub PasteWithDestinationFormatting()
ActiveCell.PasteSpecial (xlPasteAll)
End Sub
和
Sub PasteWithDestinationFormatting()
ActiveSheet.PasteSpecial Format:="Unicode Text", Link:=False, DisplayAsIcon:=False
End Sub
它们都可以工作,但问题是它
我想将我的Excel图表粘贴到PowerPoint幻灯片中,使用VBA的“粘贴特殊”命令中的不同选项。
我没有任何选项可以“粘贴带有嵌入数据在工作表中的图表”
我使用了ppPasteOLEObject,但它嵌入了整个PowerPoint工作簿,因此PowerPoint文件的大小会增加。
Sub excltoppt()
Dim ppalApp As PowerPoint.Application
Dim ppalPres As PowerPoint.Presentation
Dim ppalSlide As PowerPoint.Slide
Set ppalApp = New PowerPoi
我正在尝试向下拖动一系列单元格的数组公式,然后复制/粘贴相应的值。然而,我的excel总是崩溃。基本上,公式转到特定的行,然后所有值都被硬粘贴到工作表中。我是VBA的新手,所以请随时剖析我的代码并给出建议。
Dim lastRow1 As Long
lastRow1 = 37
'change i to whatever your starting row is. Cells(i, #), the # indicates the column index
For i = 3 To lastRow1
Cells(i, 10).Value = Cells(i, 6)
Cells(i, 6)
我目前在运行vba时面临上述错误,如下所示(这里是vba新手)。你能看看是什么导致了这个错误吗?我使用这个脚本来解析excel中包含大约65000行的文本文件中的信息。当我单击“debug”时,它会突出显示此行
If Cells(i, 2).Value = "Type: Error" And Cells(i + 5, 2).Value = " STATUS : FAILURE" Then"
谢谢。
Sub color()
Dim i As Long
Dim j As Long
j = 0
ActiveSheet.Name = "
当使用我在stackoverflow上找到的所有不同的例子时,他们给了我一个复杂的任务,仍然需要点击鼠标来确认粘贴数据的ok。我也在努力让整个事情在一段VBA代码中运行。
Public Sub copySheets()
Dim wkb As Excel.Workbook
Dim newWkb As Excel.Workbook
Dim wks As Excel.Worksheet
Dim newWks As Excel.Worksheet
Dim sheets As Variant
Dim varName As Variant
'----------------------------
我想使用VBA将单行的信息和格式复制并粘贴到多个选定(活动)行中。
我当前的代码是:
Sub Breakers()
Worksheets("Temp").Range("A7:AJ7").Copy
ActiveCell.PasteSpecial xlPasteFormats
ActiveCell.PasteSpecial xlPasteValues
End Sub
我的问题是,当我运行代码时,单行被复制到所选多行中的第一行。
我正在将行从一个工作表复制到另一个工作表。
我是excel自动化世界的新手,我将非常感激并给予帮助。谢谢!
我希望使用VBA将Excel图表复制到Word中。 我使用书签来定位第一个图表,这很好用。我希望将下一个图表放在第一个图表的旁边(即在页面的中间),但我不知道如何做到这一点。 我在页面中间设置了一个书签,但VBA只是将图表粘贴到左边距。Word宏录制器不会为此操作生成可用的代码。 我没有在Word中使用VBA的经验。有人能帮上忙吗? 我已经尝试了各种选项,下面的选项适用于第一个图表 'The first chart copies OK to Bookmark "Change"
ws.ChartObjects(1).Copy
doc.Bookmarks("Ch
我对VBA非常陌生,所以到目前为止我想出的东西都是在网上找到的。我有一个工作簿,它是其他几个workbooks...so的顶点,它有很多到其他几个工作簿的链接。我需要基本上复制没有链接的工作簿数据发送到公司外部。我找到了执行此操作的代码,它工作正常。问题是,我希望每次保存工作簿时都会发生这种情况。我也找到了这方面的代码,但当我试图将两者结合起来时,excel崩溃了。以下是用于创建工作簿副本的代码:
Sub nowe_poprawione()
Dim Output As Workbook
Dim Current As String
Dim FileName As Str