[已解决]自动提醒过期函数

远远65

参照附件，有入库，出库  库存。  入库那一栏定时不定时的入库，而库存那一栏是根据：库存、入库、出库、 再而得到的库存！ 能否，根据C栏的保质期，和入库那一栏，在库存那一栏，自动提醒过期的函数呢？  
如果不明白可以加扣扣 413574722   
定而感激！...

最佳答案

月排行榜 / 总排行榜

菜鸟锐

2011-12-15 14:20

远远65 发表于 2011-12-15 13:59
如果把提醒函数设在保质期前面，就需要及时根据生产入库更改的，否则就像你说的，不知道具体把公式套在哪 ...

(, 下载次数: 7)

上传

点击文件名下载附件
需要增加一个辅助列，用来手动选择实际入库时间，实际入库时间通过下拉菜单选择。
如图：由于你的附件中，只有三天，所以下拉菜单中也只能有三天。如果你每天每天不断地在表格右侧补充新的一天的记录
此菜单会自动增加可选择的天数，由于你的表头日期中是合并单元格的，所以下拉菜单会出现空值。我懒得去剔除了。因为还要再加辅助项，很麻烦。这样就可以根据你自己手动选择的实际入库时间，来判断是否过期
判断逻辑
<保质期。提示 保质期内
=保质期。提示 即将过期
>保质期。提示 已经过期
如果判断逻辑和你的实际工作要求不符合，你再反馈给我！
(, 下载次数: 300)

上传

点击文件名下载附件

跳转到最佳答案楼层

菜鸟锐

看了附件，有点晕~~~

远远65

菜鸟锐 发表于 2011-12-14 20:44
看了附件，有点晕~~~

高手在哪里啊  急需噢！

fjmxwrs

确实看得很晕，保质期与生产日期有关，跟入库日期也有关吗？你是厂家？就你的表而言，个人感觉设计不合理，应该转置过来才方便使用
等高手答案

hytsky

建议你把表重新整理一下,你的表版面设得不合理,看得人累做得人更累

雄鹰

抛砖引玉了。
这个代码可以解决一部分，但是你的表格内容不统一，如保持期里有：
1、’7天
2、常温
等导致出错。



Sub 改变()
Dim 序号列(1 To 46) As Double
a = 1
b = Format(Now(), "0.0")
Dim rng As Range
  Dim what As String
  what = "天"
  For i = 1 To [c65536].End(xlUp).Row
         Cells(i, 3).Replace "天", ""
  Next
  what = "'"
  For i = 1 To [c65536].End(xlUp).Row
         Cells(i, 3).Replace "'", ""
  Next

For i = 3 To Cells.Find("*", , , , 2, 2).Column
  If Cells(2, i) = "库存" Then
    序号列(a) = i
    a = a + 1
  End If
Next
a = 1
Do
    j = 序号列(a)
    For i = 3 To [i65536].End(xlUp).Row
      k = j - 2
100:
      c = Format(Cells(i, 3) + Cells(1, k), "0.0")
      If c > b Then
        Cells(i, j).Interior.ColorIndex = 4 '单元格值等于6时，该单元格填充红色
      Else
        Cells(i, j).Interior.ColorIndex = 3 '单元格值等于6时，该单元格填充红色
      End If
    Next
   a = a + 1
Loop
End Sub

远远65

fjmxwrs 发表于 2011-12-14 21:39
确实看得很晕，保质期与生产日期有关，跟入库日期也有关吗？你是厂家？就你的表而言，个人感觉设计不合理， ...

入库那一栏，就是生产日期！ 生产入库了，就会填写在入库那一栏！这个是固定的！

入库是不定时的，根据库存量而决定入库不入库！

雄鹰

还有点问题，每天运行一次就可以。
Sub 改变()
Dim 序号列(1 To 46) As Double
a = 1
b = Format(Now(), "0.0")
Dim rng As Range
  Dim what As String
  what = "天"
  For i = 1 To [c65536].End(xlUp).Row
         Cells(i, 3).Replace "天", ""
  Next

  what = "'"
  For i = 1 To [c65536].End(xlUp).Row
         Cells(i, 3).Replace "'", ""
  Next


For i = 3 To Cells.Find("*", , , , 2, 2).Column
  If Cells(2, i) = "库存" Then
    序号列(a) = i
    a = a + 1
  End If
Next

a = 1
Do
    j = 序号列(a)
    For i = 3 To [i65536].End(xlUp).Row
      k = j - 2
100:
      c = Format(Cells(i, 3) + Cells(1, k), "0.0")
      If c > b Then
        Cells(i, j).Interior.ColorIndex = 4 '单元格值等于6时，该单元格填充红色
      Else
        Cells(i, j).Interior.ColorIndex = 3 '单元格值等于6时，该单元格填充红色
      End If
    Next
   a = a + 1
Loop
End Sub

二品牌库存管理 12自动提醒.zip (76.37 KB, 下载次数: 11)

2011-12-15 08:59 上传

点击文件名下载附件

远远65

雄鹰 发表于 2011-12-14 22:52
抛砖引玉了。
这个代码可以解决一部分，但是你的表格内容不统一，如保持期里有：
1、’7天

常温的可以抛开不计！

我重新整合了一下附件。

远远65

各位好，快救救我吧！  我又整合了一下附件，大家看能否看的懂~