如果选中复选框,我将尝试在特定时间在excel中运行宏。它正常工作,唯一的问题是只有当工作簿被设置为自动计算时,它才能工作,而我需要将工作簿设置为手动计算。
下面是我在该文件中使用的VBA代码: sheet1:
Private Sub Worksheet_Calculate()
Dim time_dt As Date
time_dt = Cells(1, 7)
If Range("C1").Value = "YES" Then
Application.OnTime TimeValue(time_dt), "FillFirstColumn"
En
目前,我已经在工作表1 "Sheet1“中创建了VBA代码,作为
Private Sub Worksheet_Activate ()
所以每次我打开工作表时,VBA代码都会自动运行。
但我现在面临的问题是每次打开Excel工作簿时,即使我在ThisWorkbook中添加了代码,
Private Sub Workbook_Open()
Worksheets("Sheet1").Activate
End Sub
工作表将首先出现,但VBA代码不会自动运行。每次我需要转移另一个工作表,然后再移回来,然后只有VBA代码才会运行,这是非常恼人的,有什么解决方
我有一个Excel工作簿,其中嵌入了另一个Excel工作簿。我可以用VBA打开它,但是我不知道如何在嵌入式工作簿中引用和编辑一些单元格。知道怎么做吗?提前谢谢。
Sub openembeddedXL2()
Sheets("sheet1").OLEObjects("SalesFile").Activate
End Sub
我先道歉..。
我是一个热心的Excel用户,但不熟练的VBA。任何帮助都是非常感谢的。
我需要用户以的格式输入日期。
根据该ddmmyyyy信息打开工作簿(用文件名连接它)。
从该工作簿中的特定范围复制单元格(AN1:AS1)。
将复制的单元格粘贴到另一个工作簿中。它应该粘贴在用户输入的日期旁边。
下面是我迄今为止尝试过的代码:
dim input as string
input = inputbox("Insert date in format ddmmyyyy")
Workbooks.open (""\\vmp-avayaacc\r
我有这样的vba代码,它将所有工作簿的sheet1作为一个工作簿中的工作表放在文件夹中。一切都很好。
我要做的是更改复制到我的工作簿中的每个工作表的名称。然后,我想覆盖工作簿中已经存在的文件。
希望有人能帮我解决问题。
Sub CombineFilesInSheets()
Dim Path As String
Dim FileName As String
Dim Wkb As Workbook
Dim WS As Worksheet
Applic
这里是VBA的新手。在工作中,我正在创建一个宏,它可以编译和格式化我们每月收到的报告中的数据,并且文件名会发生变化。由于名称更改了,而不是必须进入VBE并从那里更改名称,我是否可以创建一个用户表单,允许我键入工作簿的名称,它将能够将其插入到脚本中? 到目前为止,我所拥有的: Sub tester()
Dim wbName As String
wbName = Application.InputBox("What is the workbook name?")
If Right(wbName, 4) <> ".xls" Then wbName =
当我意外地运行VBA代码多次将数据从一个工作簿复制/粘贴到目标工作簿时,它将在目标工作表中创建多个具有相同数据的行。
我希望VBA代码识别前一行是相同的,以防止数据重复。
此外,我的VBA代码将把公式复制到目标Excel文件中。
我只想复制值,而不是公式。我不知道如何在我的VBA代码中使用PasteSpecial。
Sub Copy_Paste_Below_Last_Cell()
Dim wsDest As Worksheet
Dim lDestLastRow As Long
Set wsDest = Workbooks("Destin
我在Outlook中有一个宏,用于从打开的Excel工作簿("Workbook1")中获取数据。
我参考工作簿如下:
Dim objApp As Excel.Application
Set objApp = GetObject(, "Excel.Application")
Set wb = objApp.Workbooks("Workbook1.xlsx")
我经常得到运行时错误9,即VBA找不到工作簿。
由于我打开了多个Excel实例,所以VBA正在错误的实例中查找我的工作簿。
如何在运行多个实例时引用工作簿
随着其他自动化的成功,我希望看看是否有可能根据Column A中与ComboBox1中的值相匹配的值,将excel工作簿中的数据行移动到新的工作簿中。
我有一个Sheet1,它有我的数据,一个包含ComboBox1的UserForm。
我认为我要寻找的是,当ComboBox1值等于Column A of Sheet1中的值时,我希望包含该值的所有行都导出到新工作表。我想通过CommandButton1激活这个。
所有的帮助都是有意义的,因为我期望这将建立一个循环的方式,超出了我对VBA的理解!
这是我约会的尝试..。我得到了一个运行时错误,我假设我变得活跃和源代码工作簿都混淆了?
Dim ro
我是Excel VBA的新手。
我正在尝试将工作表输出中的一系列数据复制到新的excel工作簿中,并使用E3中的值保存新工作簿。
另外,我还希望能够将数据复制到wordpad中并另存为E3.xml
这是我到目前为止所拥有的VBA:
Sub CopyOutput()
Dim myname As String
mystring = E3
Dim myselection As Range
myselection = Sheets("Output").Columns("F").Select
Set NewBook = Workbooks.Add
With Ne
在编写VBA代码时,如果您知道要在同一个工作簿和某个工作表上操作,那么应该为代码中的工作簿对象指定ActiveWorkbook吗?示例:
ActiveWorkbook.Sheets("Sheet1").Range("$A$1")
vs
Range("$A$1")
以上代码假设您正在通过本地宏(在VBA中的Sheet1对象下)处理Sheet1。
我正在尝试将一个范围从一个工作簿复制到另一个工作簿中的表,以捕获生产数据。我能够复制正确的范围,并成功地打开工作簿与表。但是,当它试图将信息粘贴到表中的下一个可用行时,我会得到错误13。我对vba非常陌生,似乎无法找到解决方案,任何帮助都是非常感谢的。
Dim wbTime As Workbook
Set wbTime = ThisWorkbook
Dim wbData As Workbook
Dim N As Long
N = Cells(Rows.Count, "A").End(xlUp).Row + 1
Dim UsdRws As Lo
在一个工作表中使用一个VBA CommandButton,可以在另一个工作表中调用另一个vba模块。此VBA连接在工作表内,而不是与工作簿连接。当我在第一个工作表中运行CommandButton时,会得到以下错误。
Public Sub CommandButton3_Click()
PriceChange.FilterColorToRed
End Sub
嗨,马克和我是VBA的新人。
我有两个工作簿,其中包含需要比较的数据。我目前正在使用这段代码来进行比较。它起作用了,给出了我所需要的结果。
我想要添加的是在我的第二个工作簿范围D:D中的描述中搜索并将匹配带回到活动工作簿中的单元格单元格(rw,4)。此信息将放置在单元(rw,29)中。
我已经研究过查找函数,但无法让它跨两个工作簿工作。这里的挑战是,我搜索的工作簿或活动的工作簿名称会发生变化。
Sub VlookUpExampleDifferBooks()
'This example look up table in different book and sheet (TABLE 1
我正在使用下面的代码将表从另一个工作簿复制到我的“提取”工作簿中。
这段代码可以工作,但我需要指定要查找的表。我希望使用一个程序,可以在指定的工作表中找到表格,或者找到包含数据的所有单元格,并复制这些单元格。
Sub SelectingTable()
Set Extract = Workbooks("Test1")
Set Pastdue = Workbooks("Past Due Data")
'Look for Past Due table
Pastdue.Activate
Pastdue.Worksheets("Sheet1
我想用vba运行循环对数据(2010,2011) (2011,2012) (2012,2013)...to逐一创建新的工作簿。
但是这里有一个问题,当我们输入参数Current:和Previous:时,我们需要等待一段时间来计算公式(它在彭博终端上),如果我们立即在工作表中创建或复制数据,它可能是空的或(数据请求)。那么我该如何解决这个问题呢?
Sub Copy()
For i = 2015 To 2017
ThisWorkbook.Activate
Range("C8") = i
Range("C9") = i +
我曾尝试使用VBA帮助将Excel表单中的值抓取到另一个工作簿(目前该工作簿内为空白),下面是我使用的VBA代码:
Sub RunMe()
Dim lRow, lCol As Integer
Sheets("Sheet1").Select
lRow = Range("A" & Rows.Count).End(xlUp).Row
lCol = Cells(1, Columns.Count).End(xlToLeft).Column
For Each cell In Range(Cells(1, "B