代码之家 › 专栏 › 技术社区 › Erik A

将Excel单元格设置为包含不带前导撇号的日期的字符串

excel-vba vba excel

Erik A · 技术社区 · 6 年前

.CopyFromRecordset 将字符串写入Excel工作表。此记录集包含类似日期和数字的字符串,如和 2018年8月9日

我最近添加了一些额外的处理来调整一些单元格值。但是,当将值写回单元格时,我无法保留它们的当前状态(字符串,格式:常规,没有前导撇号)。

Public Sub MCVE()
    With Range("A1")
        Debug.Print .Value '09-08-2018
        Debug.Print .Value2 '09-08-2018
        Debug.Print VarType(.Value) = vbString 'True
        Debug.Print .NumberFormat 'General
        Debug.Print .PrefixCharacter 'Zero-length string
        .Value = .Value 'I want to manipulate the value here too
        '.Value2 = .Value2 'Yields the same result
        Debug.Print .Value '08-09-2018
        Debug.Print .Value2 '43351
        Debug.Print VarType(.Value) = vbString 'False
        Debug.Print .NumberFormat 'm/d/yyyy
        Debug.Print .PrefixCharacter 'Zero-length string
    End With
End Sub

.NumberFormat 到 @ 强迫它发短信,但是和 .PrefixCharacter 更改,当将其导入到另一个程序中时,这将导致进一步的麻烦。我也可以在指定字符串之前用撇号填充它,但这会改变 .前缀字符 我也是。

我试过用 .Value2 而不是 .Value ,没有区别。 .Text Application.Calculation = xlCalculationManual 也没有影响。

1 回复 | 直到 6 年前

BrakNicku 6 年前

以下代码:

Public Sub MCVE()
    Dim OldFormat As String
    With Range("A1")
        OldFormat = .NumberFormat
        .NumberFormat = "@"
        .Value = .Value 
        .NumberFormat = OldFormat
    End With
End Sub

PrefixCharacter 2016年改为撇号。

此版本似乎适用于所有版本:

Public Sub MCVE()
    With Range("A1")
        .NumberFormat = "@"
        .Value = .Value 
        .ClearFormats
    End With
End Sub

推荐文章

CPS · 当变量值为空时,在另一个变量中赋值

2 年前

xris23 · 通过VBA选择命名范围,让用户直接编辑单元格

2 年前

Stormer · 从Access格式化Excel单元格无效

2 年前

j johns · 通过VBA将ascii art添加到命令提示符

2 年前

BinaryCat · Excel-将单元格转换为具有成对数据的行

2 年前

Waleed · 以下拆分函数的(0)表示什么?

2 年前

judo_ürgens · vlookup和sumif(每个项目的总利润)

2 年前

Louay Alkhawam · 在任意多个列中计算包含子字符串*[橙色]*的行,而不重复计算?

2 年前

smrmodel78 · VBA创建表格未选择正确的范围

2 年前

HouÅ¡tí · 如何检测鼠标释放

2 年前