[已解决]设置当前单元格的前一个单元格和后一个单元格的值

mqr66

Sub SetCellValue()
MsgBox "将当前单元格中前面的单元格值设为""我前面的单元格""" & vbCrLf _
& "后面的单元格值设为""我后面的单元格"""
ActiveCell.Previous.Value = "我前面的单元格"
ActiveCell.Next.Value = "我后面的单元格"
End Sub

最佳答案

月排行榜 / 总排行榜

mxg825

2011-9-24 14:14

补充一下！


Sub SetCellValue()
MsgBox "将当前单元格中" & vbCrLf _
     & "前面的单元格值设为""我前面的单元格""" & vbCrLf _
     & "后面的单元格值设为""我后面的单元格"""
If ActiveCell.Address <> "$A$1" Then ActiveCell.Previous.Value = "我前面的单元格"
If ActiveCell.Address <> "$IV$65536" Then ActiveCell.Next.Value = "我后面的单元格"
End Sub

跳转到最佳答案楼层

mxg825

补充一下！


Sub SetCellValue()
MsgBox "将当前单元格中" & vbCrLf _
     & "前面的单元格值设为""我前面的单元格""" & vbCrLf _
     & "后面的单元格值设为""我后面的单元格"""
If ActiveCell.Address <> "$A$1" Then ActiveCell.Previous.Value = "我前面的单元格"
If ActiveCell.Address <> "$IV$65536" Then ActiveCell.Next.Value = "我后面的单元格"
End Sub

mqr66

2楼补充得太好了