Tag: 减法

时间从多个地点开始到具体时间结束: 我正在尝试创build一个Excell页面，该页面确定从多个位置开始的时间，从不同的时间距离到单个点。比方说，我有不同的地点15个起点试图达到一个目的地。我试图设置到达时间作为结束点，并使用目的地时间来工作后台语言。例如，我想协调一个多元化的单位在晚上11点汇合。我知道第一个单位需要5小时30分，第二个单位需要2小时45分钟才能同时到达同一个点。我将不得不为第一单元准备晚上11点 – 下午5点30分=下午5点30分，单元2下午11点 – 25点45分=晚上8点15分。我已经尝试使用[h]：mm军事脚本的subraction的时间subraction的desraction。所有的结果是两者之间的差异。即23:00至13:00 = 10:00。但是，如果destinatiin时间是08:30 – 1300我得到的是#######。第一次是收敛时间，第二次是游行时间。如果在00:01之前，comon会聚时间没有引起游行的时间，我就可以得到它的工作。那就是问题的症结所在，我不能在午夜前开始工作。有任何想法吗？

Excel VBA-从活动单元中减去variables: 代码如下： Sub Minus() Dim numsub As Integer If (D3 <> "") Then numsub = Worksheets("Inventario 31-12-2015 ").Range("D3").Value Dim FindString As Integer Dim Rng As Range FindString = ActiveWorkbook.Worksheets("Inventario 31-12-2015 ").Range("C3").Value With Sheets("Inventario 31-12-2015 ").Range("C25:C") Set Rng = .Find(What:=FindString, _ After:=.Cells(.Cells.Count), _ LookIn:=xlValues, _ LookAt:=xlWhole, _ SearchOrder:=xlByRows, _ SearchDirection:=xlNext, _ MatchCase:=False) End With If Not Rng […]

VBA不能从date中减去天数: 我想要比现在更早的4天。这是我的代码 Sub calcdate() Dim nDateTime, oDateTime As Date nDateTime = Format(Now, "YYMMDD") oDateTime = Format(DateAdd("d", -4, nDateTime), "YYMMDD") MsgBox ("Today is " & nDateTime & " And OldDate is " & oDateTime) End Sub 但是输出是'今天是170604和OldDate是02-10-3734' 我试图做到这一点没有DateAdd nDateTime = Format(Now, "YYMMDD") oDateTime = nDateTime – 4 *输出是'今天是170604和OldDate是170604' 我尝试了这些改变 nDateTime = Format(Now, "YYMMDD") oDateTime = DateAdd("d", […]

从date格式VBA减去整数: 以下是我开发的代码。目标是从数据中减去“1”或“2”，这取决于是星期六还是星期天。列3包含短date格式的date，列5包含相同的date，但转换为“dddd”格式。错误发生在该行的for循环中 if cells(i,5).Value = "Sat" Then 这里有趣的是，代码运行没有“错误”说，它只是跳过if语句完成，在该行。 Sub DataChange() Dim i Dim n n = Cells(Rows.Count, 3).End(xlUp).Row For i = 4 to n If Cells(i,5).Value = "Sat" Then Cells(i,3).Value = Cells(i,3).Value – 1 End If If Cells(i,5).Value = "Sun" Then Cells(i,3).Value = Cells(i,3).Value – 2 End If Next i End Sub

Excel VBA从另一列中减去一列，但不在单元格中: Sub TryAgain() Dim A As Range '~ I will put the result in this column, A Dim B As Range Dim C As Range '~ [BC] is the what I need Dim onecell As Range Dim twocell As Range Set B = Range("C2", Range("C2").End(xlDown)) 'log prices of Z over time Set C = Range("D2", Range("D2").End(xlDown)) […]