excel vba 选定一列中第一个空单元格
例如A列中有些单元格中有数字有些是空单元格,我设定了一个变量是date,用inputbox给其赋值,怎样能自动选中第一个空单元格并往里写入变量date的值?dimdate...
例如A列中有些单元格中有数字有些是空单元格,我设定了一个变量是date,用inputbox给其赋值,怎样能自动选中第一个空单元格并往里写入变量date的值?
dim date
date = inputbox("日期") 展开
dim date
date = inputbox("日期") 展开
3个回答
展开全部
date是VBA的日期函数,不符合变量的命名规则,所以用riqi来代替这个变量吧~
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count = 1 Then '判断选中的单元格数量是否为1个
riqi = InputBox("日期")
Target.Value = riqi '给该单元格赋值
End If
End Sub
这段代码的所实现的功能是,当你选中某个单元格的时候,会通过inputbox给该单元格赋值
你问的有点含糊,不知道是不是想实现这个功能~
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count = 1 Then '判断选中的单元格数量是否为1个
riqi = InputBox("日期")
Target.Value = riqi '给该单元格赋值
End If
End Sub
这段代码的所实现的功能是,当你选中某个单元格的时候,会通过inputbox给该单元格赋值
你问的有点含糊,不知道是不是想实现这个功能~
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
语句如下
do
i=i+1
if activesheet.cells(i,1)="" then
activesheet.cells(i,1)=date
exit do
end if
loop
do
i=i+1
if activesheet.cells(i,1)="" then
activesheet.cells(i,1)=date
exit do
end if
loop
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询