在线等，请问如何在文字前面自动增加当前日期

huaianz

在线等

如整列：03-06:销售单价

faliming7

=TEXT(TODAY(),"mm-dd")&A1

huaianz

是在一个格输入文字后，自动填上日期

zjcat35

那只能VBA啦！  
    或者日期固定，用自定义格式

hrpotter

huaianz 发表于 2012-3-6 20:55
是在一个格输入文字后，自动填上日期

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Column <> 1 Then Exit Sub
   
3.     Application.EnableEvents = False
   
4.     Target = Format(Now, "mm-dd") & ":" & Target
   
5.     Application.EnableEvents = True
   
6. End Sub

复制代码

放在你要输入数据的工作表的工作表事件里，里面的1代表你需要这样设置格式的列，如果不在第一列，可以把1改成其他数字！

huaianz

VBA
不是无法用一整列，一用下去就是整张表都是这样模式

huaianz

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    On Error Resume Next
    Application.EnableEvents = False
    With Target
        .Value = .Value & Format(Now, " mm-dd")
    End With
    Application.EnableEvents = True
End Sub

我想用在谋一列，要如何修改呢

huaianz

hrpotter 发表于 2012-3-6 21:06
放在你要输入数据的工作表的工作表事件里，里面的1代表你需要这样设置格式的列，如果不在第一列，可以把1 ...

谢谢你，高手就是高手，呵，一下子就完成咯，

shi1628

{:35:}{:35:}

高

用什么vba,如果不用辅助列，也可以。（我觉得日期不用更新）
设置单元格格式为自定义"03-06:"@