Question

EXCEL中如何用VBA实现在B列输入字符的时候 自动在A列中插入时间和日期?

并且可不可以打开网页搜索B列的内容 比如打开www.baidu.com/s?wd=B列内容

Answer 1

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target <> "" Then
Target.Offset(0, -1) = Now
End If
End Sub
你用这个看看
我用的是不等于空 就是有数据时候执行

追问

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Dim xx As String
xx = Target.Row
Range("A" + xx) = Now
End If
End Sub

我用这个已经搞定了 关键是能不能打开网页搜索B列的内容 比如打开www.baidu.com/s?wd=B列内容

追答

自动搜索我也没弄过 我帮你找了看看

Answer 2

请参考：搜索B列每个单元格值
Sub test()
dim i,r as long
r =sheets(1).range[B65536].end(xlup).row
for i = 1 to r
ActiveWorkbook.FollowHyperlink Address:="http://www.baidu.com/s?wd=" & Sheets(1).cells(i,2), NewWindow:=True
next
End Sub

追问

第三行提示语法不对

追答

ActiveWorkbook.FollowHyperlink Address:="http://www.baidu.com/s?wd=" & Sheets(1).cells(i,2),NewWindow:=True 这个是一行的 一句代码

Answer 3

EXCEL中如何用VBA实现在B列输入字符的时候 自动在A列中插入时间和日期?
这个问题可以直接在A1中加公式：=IF(B1<>"",NOW(),"")，然后用鼠标往下拖就可以