前端之家

  1. 首页
  2. 问答

将值从一个工作簿复制并粘贴到另一个工作簿后，在我双击单元格之前，公式不适用于特定范围

• 问答

使用VBA，我打开一个工作簿，复制数据并将其粘贴到另一工作簿。在第二本工作簿中，我为自定义格式的特定范围值（dd / mm / yyyy hh：mm）设置了一个公式，但是该公式不起作用。值以自定义格式作为文本保留在单元格的左侧，直到我双击为止。两个工作簿（工作表）中的格式相同，我想保留它。

我一直在尝试使用以下方法修复它：

range.TextToColumns Destination:=range DataType:=xlFixedWidth FieldInfo:=Array(Array(0,9),Array(1,1),Array(16,9))

它在一半时间内起作用。日期适合单元格的右侧，但自定义日期起我的日期要少17天???：D当我省略Array（0,9）时，它会返回附加日期02/01/1990，而我的原始日期已移至下一篇专栏文章。

有人能解决吗？ .TextToColumns到底如何工作？如何为FieldInfo正确声明arg以接收原始日期并将其适合单元格的右侧？

lidongmei0530 回答：将值从一个工作簿复制并粘贴到另一个工作簿后，在我双击单元格之前，公式不适用于特定范围
下面的

是如何将文本格式的日期（单元格B1）转换为实际日期的示例。请注意，文本格式是左对齐的，日期格式是右对齐的。

请记住，日期是数字->整数部分是日期，小数部分是时间。

enter image description here 

Public Sub sTestDate()

  Dim v As Variant

  v = Sheet1.Range("B1").Value
  Sheet1.Range("B2").Value = CDbl(CDate(v))
  Sheet1.Range("B3").Value = CDbl(CDate(v))
  Sheet1.Range("B3").NumberFormat = "dd/mm/yyyy hh:mm"

End Sub
exceltext-to-columnvba
本文链接：https://www.f2er.com/3167284.html

大家都在问