网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
excel吧 关注：280,973贴子：1,544,875
  • 12回复贴，共1页

VBA小白再求助，各路大神走过路过请帮忙！

作为一个以前只懂得sum函数的小白，最近因工作迫不得已开始接触了VBA，奈何天分不够，请各位大神帮忙看看怎么实现以下功能：
1）A列中实现下拉，下拉项目为黄色区域内容，
2）A列选择下拉选项后，对于的B列自动记录当前时间，且不会互相更新，如A1选择后B1记录当前时间。。。
3）C1记录A列中选择1#故障的次数，C2记录A列中选择2#故障的次数，以此类推。。。
尝试过自己写了点（如下），而且好像还有bug，一删除A或者B列的数据会出现调试错误，真心求助！
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target <> "" Then
Cells(Target.Row, 2) = Now
End If
End Sub



各位大大，暖暖小白的心吧，现在混口饭吃不容易，十八般武艺都要齐全了。


说的可怜兮兮的


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Target.Column = 1 And Target <> "" Then
Cells(Target.Row, 2) = Now
End If
End If
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [A:A]) Is Nothing Then
Application.EnableEvents = False
Set a = Intersect(Target, [A:A])
arr = a
Application.Undo
brr = a
If a.Count = 1 Then
If arr <> brr Then a.Offset(, 1) = Now
Else
For i = 1 To a.Count
If arr(i, 1) <> brr(i, 1) Then Cells(a.Row + i - 1, 2) = Now
Next
End If
a.Value = arr
End If
Application.EnableEvents = True
End Sub


扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！
  • 12回复贴，共1页
分享到: