Tag: date格式的

使用Excel在一长串date中查找特定date

我使用了一个algorithm来生成一个事件列表,每个事件都表示为一个date(YYYY,MM,DD)。 为了validationalgorithm的准确性,我必须将生成的事件列表与手动validation的事件列表进行比较。 我希望使用Excel来做到这一点。 这是手动validation事件的列表。 他们是随机的。 2003 8 11 2012 11 19 2005 6 17 2007 8 26 2002 8 6 1999 10 11 2001 2 10 2012 9 16 1998 9 17 1997 9 21 2012 9 30 2002 9 21 2014 6 2 2002 7 21 2012 11 18 2008 11 7 2007 10 […]

Excel VBA Userform IIf(IsDate)不保存空白

早晨,我有一个工作簿,有许多用户窗体,允许input多种types的数据,包括文本,数字和大量的date字段。 所有似乎都工作正常,除非用户想要删除date,使用适当的用户窗体,它不会覆盖工作表中的值。 下面是我用来检查用户窗体中的值是否是date,然后填充工作表,但它什么都不做的代码。 任何帮助赞赏。 ws.Cells(lastRow, txtCollectionDate.Tag).Value = IIf(IsDate(txtCollectionDate), CDate(txtCollectionDate), "") 更新:txtCollectionDate是一个文本框,它的价值原来是09/01/2016,但用户想要删除这个,因为它是错误的input。 用户应该能够突出显示值,按删除(键盘),然后保存。

在VBA中比较时间

朋友们, 我试图扫描一列时间,如果时间戳在过去两分钟+7小时内,则复制/粘贴该行。 我的时间戳的date部分没有阵容,我需要将它们转换为相同的date,而不会改变时间。 这是我的代码: Sub Timecompare() Dim i As Integer Dim lRow As Integer Dim ws1 As Worksheet Dim ws2 As Worksheet Set ws1 = Sheets("Volm") Set ws2 = Sheets("Sheet2") 'goal: 'scan all rows in dataset 'if cell time > current time – 2 minutes 'copy pasta With ws1 'find the last row lRow = […]

HLookup()与date:已经尝试CLng()

以下是我的代码。 基本上我想在另一个工作簿(这里是“x”)中find单元格的行值,并使用匹配的date。 代码正在运行,但不返回值。 Cells(2,10)是一个date(写作为dic-13), Range("B8:J9")的第一行是dateRange (“dic-11”,“dic-12” dic-13“等等) Sub BuscarDatos() Dim y As Workbook Dim x As Workbook Set y = Application.ActiveWorkbook Set x = Application.Workbooks.Open("G:\Estudios\Biblioteca\Mercado Accionario _ Chileno\InsertarEmpresa.xlsm") y.Sheets("Información Financiera").Cells(Range("J3").Row, Range("J3").Column) = _ Application.HLookup(CLng(Cells(2, 10)), _ x.Sheets("Cencosud").Range("B8:J9"), 2, False) End Sub

VBA过去一个月到本月之后的两个月

我试图让VBA更多,因为它允许更多的自由。 我想弄清楚的是,我怎样才能做一个VBA过滤一列,只显示仅在上个月,当前月份和未来两个月内出现的值。 我知道我可以使用xlFilterLastMonth,但现在我仍然只是录制macros,然后改变它们以适合我的更具体的需求。 我可以find使用xlFilterNextMonth或xlFilterLastMonth的单数filter。 但是我找不到任何我想找的东西。 这是我目前的macros: Sub BASICPQS() ' ' BASICPQS Macro ' ' Sheets("PRODUCTION").Range("$A$1:$AA$146").AutoFilter Field:=9, Operator:= _ xlFilterValues, Criteria2:=Array(1, "3/31/2016", 1, "4/27/2016") ActiveWindow.SmallScroll Down:=-18 End Sub 任何帮助,将不胜感激。 谢谢。

VBAdate格式

我需要过滤一个包含date的列。 我需要获取date介于current date和current date + 15 days之间的所有行 这是我的VBA代码来做到这一点: Dim seuilDate As Date, currentDate As Date seuilDate = DateAdd("d", 15, Date) currentDate = Date MsgBox "Date seuil :" & seuilDate & " Current Date:" & currentDate With Workbooks("macro1.xlsm").Worksheets("Feuil1") If .FilterMode Then .ShowAllData '.range("C:C").AutoFilter Field:=3, Operator:=xlFilterValues .range("C:C").AutoFilter Field:=1, Criteria1:=">=" & currentDate, Criteria2:="<" & seuilDate, Operator:=xlAnd End With […]

查找date和范围之间的joindate和月份

我想查找date和月份之间的date范围,例如。 我想在任何给定年份只findjoin的date和月份,如果是,那么加20,如果没有,那么结果将是0.例如。 A1 B1 C1 D1(result) 20/03/2016 20/03/2016 24/04/1990(Dt.of joining) 0 10/04/2016 25/04/2016 24/04/1990(Dt.of joining) 20 在一个公式答案将是非常有益的。

excel匹配具有相同date和时间的行

我有两个大的Excel表,包含以下列: date时间值 大多数date对于两张表是常见的,但是有时在一张表中有比另一张多的date,使得行数不相同。 为了使它更具视觉效果,我有两张纸的小部分。 您可以看到第二张纸上缺less22:00的时间 表1 date时间值 2013.02.26 20:00 1714 2013.02.26 21:00 3121 2013.02.26 22:00 3485 2013.02.26 23:00 4501 2013.02.27 00:00 4407 2013.02.27 01:00 3359 2013.02.27 02:00 4455 Sheet2中 date开放值 2013.02.26 20:00 3106 2013.02.26 21:00 7330 2013.02.26 23:00 7297 2013.02.27 00:00 6469 2013.02.27 01:00 4833 2013.02.27 02:00 6841 我想以某种方式比较两个工作表中相同date和时间的值。 有谁知道如何处理这个?

无法在天数小于12时以适当的格式获取date从EXCEL在C#

我是新来的C#。 当我试图使用下面的代码导入Excel表: try { DateTime date = DateTime.FromOADate(w.Cells[i, index[j]].value2); string str = date.ToString("dM-yyyy"); dRow[j] = Convert.ToDateTime(str, ci); } catch (Exception) { try { String ss1 = (String)w.Cells[i, index[j]].value2; if (ss1 == null || ss1.Equals("NIL") || ss1.Equals(".")) { dRow[j] = DBNull.Value; } else if (ss1 != null) { DateTime dat = Convert.ToDateTime(ss1); ss1 = dat.ToString(ci.NumberFormat); dRow[j] […]

dynamic表格值filter中的date转换错误

使用excel-Access VBA环境。 excel页面中的vba代码将date单元格的值分配给datefilter。 由于我总是以巴拿马的语言环境工作dd / mm / yyyy格式,因此代码在12日以后的date(即指定月份没有歧义)的情况下工作正常,但是对于dateless于13的date,它将date转换为数字值,我收到一条错误消息,说42502(例如可能12,2016年)不是filter的有效值。 当一天过去12日,它工作正常。 我如何捕获这个错误并解决它? 代码: ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh ' Range R1 contains the value we desire to filter the date of dynamic table ' Range B1 contains the date filter of the dynamic table Range("B1").Select ActiveSheet.PivotTables("PivotTable1").PivotFields("fecha").ClearAllFilters Application.ScreenUpdating = False 'ActiveSheet.Range("B1") = Range("R1").Value ff = Range("R1").Value ActiveSheet.Range("B1") = Right("00" & Day(ff), 2) […]