对应的单元格后面插入响应的日期

刘海亮

我现在需要在钢筋跟踪台账里输入领用日期，其中报审编号为ZTPC-A11-T-001 的领用日期为2010.08.27；报审编号为ZTPC-A11-T-003 的领用日期为2010.10.26；报审编号为ZTPC-A11-T-004 的领用日期为2010.11.21，即同一个报审表编号后面对应相同的领用日期。
可否使用公式或函数实现自动输入。请高手帮忙，谢谢！

jsfngf

其他的日期呢？

jsfngf

钢筋跟踪-按照部位.rar (44.48 KB, 下载次数: 12)

2011-8-27 10:27 上传

点击文件名下载附件

高绪山

我看了你的所有表单，都比较统一。从第6行开始是数据，第“I” 列是日期，其前一列是“审批编号”。所以，做了个小程序。在模块1中。在第一个表单中加入一个“按条件添加日期”命令按钮，。单击此按钮就可以完成你的任务。
程序代码如下：
Sub InsertDate()
Dim Book As Worksheet
Dim i, iCount As Integer
Dim TmpDate As String
For Each Book In ActiveWorkbook.Sheets
  iCount = Book.Range("H" & Rows.Count).End(xlUp).Row
  For i = 6 To iCount
    Select Case Book.Cells(i, "I").Offset(0, -1)
    Case Is = "ZTPC-A11-T-001"
        TmpDate = "2010.08.27"
    Case Is = "ZTPC-A11-T-003"
        TmpDate = "2010.10.26"
    Case Is = "ZTPC-A11-T-004"
        TmpDate = "2010.11.21"
    Rem 其他在后边加入
    Case Else
       TmpDate = ""
    End Select
    Book.Cells(i, "I") = TmpDate
  Next i
Next Book

End Sub

文件见附件。

刘海亮

谢谢你，这儿程序看上去挺难的，我只是想在报审表编号后面填上相应的日期，来回重复输入显麻烦，看你能不能教我一个稍微简单点的办法。多谢高手

高绪山

用3楼的函数：=IF(H6="","",LOOKUP(H6,{"ZTPC-A11-T-001";"ZTPC-A11-T-003";"ZTPC-A11-T-004"},{"2010-8-27";"2010-10-26";"2010-11-21"}))。需要在日期单元格中逐个输入此函数；
2.我已经在你的第一个表中加入了一个命令“按条件插入日期”，你下载打开后，点击此按钮，所有表单都操作了。

xabc147741cbax

都是高手呀。我怎么也学不会