☰

如果单元格为绿色，则添加日期

tag-icon • tag-icon microsoft-excel
如果单元格为绿色，则添加日期

我希望M4当我将或更改为绿色填充时J4，单元格能够填充。K4L4

例如：如果我输入日期12-14并将K4背景填充更改为绿色，则我想要M4填充日期12-14。

在此处输入图片描述

答案1

为了解决您的问题，我想建议一些宏。

宏1：

Private Sub Worksheet_Change(ByVal Target As Range)

 Set w = ActiveSheet.Range("J4:L4")

 For Each C In w

 If C.Value <> "" And Not IsDate(C) Then
 C.ClearContents

 MsgBox "Only a Date is permitted in this cell."
 End If

 If C.Value = "" And Not IsDate(C) Then
 C.Interior.ColorIndex = 0
 Else
 C.Interior.ColorIndex = 4
 End If

 Next C

End Sub

宏2：

Sub CopyLastCell()
Range("J4").End(xlToRight).Copy
Range("M4").PasteSpecial

Application.CutCopyMode = False
End Sub

宏的工作原理：

  • 在活动工作表中ALT+F11按打开VBA Editor。
  • 复制粘贴宏都是标准模块。
  • 这第一个微距如果找到值，将只允许DATE在单元格中输入J4:L4并以绿色突出显示单元格。DATE
  • 跑步这宏 2当你想复制最后一个单元格的值从J4:L4到 单元格M4。

注意：

  • 我用过LAST 细胞方法到复制到M4 因为您很有可能在所有单元格或少数单元格中输入 DATE。
  • 数据范围J4:L4、目标单元格M4和Color Index值均可编辑。

相关内容