Tag: vba

将START和STOPbutton添加到现有的代码

在列A中input一个值。要开始,请双击列A中的值。要停止,请双击任何空白单元格。 停止监视在B2单元中运行。 Public stopMe As Boolean Public resetMe As Boolean Public myVal As Variant Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 1 Then If Target.Value = myVal And Target.Value <> "" Then 'Changed Dim startTime, finishTime, totalTime, timeRow startTime = Timer stopMe = False resetMe = False myTime = Target.Offset(, […]

error handling循环和用户input

For i = 1 To repNumber TryAgain: On Error GoTo ErrH: repName = InputBox("Enter rep name you want to exclude.", "Name of Rep") .PivotItems(repName).Visible = False Next i ErrH: MsgBox "Try Again" GoTo TryAgain: 它显示一个错误,如果我input数据透视表中不存在的副本名称。 所以我试图使用一个error handling程序让用户再次inputRep名称。 但是在第二次之后,我input了错误的代码,而不是去error handling程序,代码自行终止。 我不确定'On Error GoTo'是否在错误的行中。

自动将工作簿中的某些工作表保存为CSV文件

我find了一个体面的解决scheme将Excel工作表保存为CSV文件,使用VB将工作簿中的所有工作表保存为CSV文件。 不过,我希望能够修改这个代码,只保存表单名以_t结尾的工作表。 我正在使用下面的代码: Sub SaveWorksheetsAsCsv() Dim WS As Excel.Worksheet Dim SaveToDirectory As String Dim CurrentWorkbook As String Dim CurrentFormat As Long CurrentWorkbook = ThisWorkbook.FullName CurrentFormat = ThisWorkbook.FileFormat ' Store current details for the workbook SaveToDirectory = "H:\test\" For Each WS In ThisWorkbook.Worksheets Sheets(WS.Name).Copy ActiveWorkbook.SaveAs Filename:=SaveToDirectory & ThisWorkbook.Name & "-" & WS.Name & ".csv", FileFormat:=xlCSV ActiveWorkbook.Close […]

更新查询以在MS Access表中指定的范围内插入缺less的date

我有一个Access数据库跟踪滚动35周窗口的作业数据。 我有它自动化,所以一个月一次我运行一个脚本,生成一个电子邮件,并附加一个Excel工作表为适当的程序pipe理器,使他们可以更新他们的船员数量预测未来35周。 该程序保存了Excel工作表的一个副本,以便在工作表返回后可以运行比较。 我想要做的是在构build通过电子邮件发送的Excel工作表之前,从其数据集中添加缺失的date。 这样,我存储date的表格就会有一个自动生成的订单项编号,稍后我可以从Excel文件重新导入数据时参考。 我想我可以运行一个更新查询,将数据库中的所有工作logging展开到相同的结束date,并随后在滚动窗口消失时清除任何有零个工作人员数的东西,但有没有更好的方法接近这个?

与VBA合并单元格

我正在寻找合并3个水平单元格,但我这样做是在一个循环。 代码看起来像这样: myrange.Range(cells(3,i), cells(3,i+3)).mergecells = true 这不起作用。 我猜它是因为代码试图合并两个不相邻的单元格。 使用这种单元地址types合并一系列单元格的语法是什么? 任何帮助将不胜感激! 谢谢!

将高级公式插入到单元格中

使用Excel 2016我很努力地将一个公式粘贴到一个使用VBA(VBA执行数据导入)的单元格中。 我有两张表: Rapport SNN和Data 。 Sheets("Rapport SNN").[E4].Formula = "=SUMIFS(Data!S2:Data!S2000;Data!V2:Data!V2000;""BankAxept"";Data!M2:Data!M2000;C4)/100" 只是给我一个: 运行时错误“1004”:应用程序定义或对象定义的错误。 我做错了什么?

在00:08:15而不是00:08:00开始执行代码

在“ThisWorkbook”中,粘贴: Private Sub Workbook_BeforeClose(Cancel As Boolean) 'Stop execution when workbook closes On Error Resume Next Application.OnTime Heure, "Calcul", , False End Sub Private Sub Workbook_Open() 'start execution at 8 AM when workbook opens If Hour(Now()) < 8 & Minute(Now()) < 5 Then ' If it is before 8 AM Application.OnTime Int(Now()) + TimeSerial(8, 5, 0), […]

COUNTIF和VLOOKUPfunction跨多个页面

我想计算(计数)在多个工作表中出现在别人姓名右侧的条目的次数(名称将显示在不同工作表上的不同行上)。 我正在计算名单上的轮换。 我有十二张工作表 – 每个月一张。 在每个工作表B1到AF1是每月的几天。 在每个工作表上,A2到A10是人名(不同工作表上的这些更改顺序)。 在别人的名字右边(他们的月份)他们有名字,我们称他们为S1,S2,S3和S4。 在工作表13上,我需要计算一个人完成每个不同class次名称的次数。 所以所有人的名字都是按照字母顺序排列在页面上的,顶部是不同的class次名称,单元格需要从其他工作表中填充计数。 如果需要的话可以使用VBA,或者甚至可以使用公式。

运行时错误438,excel VBAmacros – AutoFilter

所以在过去的几天里我一直在做这个工作,而且我似乎无法做到这一点。 Sub Button3_Click() Dim DeleteValue As String Dim rng As Range Dim calcmode As Long With Application calcmode = .Calculation .Calculation = xlCalculationManual .ScreenUpdating = False End With 'Fill in the value that you want to delete 'Tip: use DeleteValue = "<>ron" to delete rows without ron DeleteValue = "<>assap" 'Sheet with the data, you […]

在Excel中致电Google Finance API

我想通过Excel中的Google Finance API获取股票价格。 资源: https://finance.google.com/finance/info : https://finance.google.com/finance/info 方法: GET 参数: 客户端= ig q = <exchange code>:<stock code> 例: https://finance.google.com/finance/info?client=ig&q=TPE:2330 这个要求会得到台积电的股价。 有没有解决scheme,无论是做一些工作表的设置或写一些VBA代码,以达到我的目标?