UC知道请excel宏高手帮忙
来源：百度知道 编辑：UC知道 时间：2024/06/02 00:11:28
我想在EXCEL中编写一个宏，在当前单元格(此单元格是可以在范围内所选的任意单元格填入的)中填入“CHS700”在此单元格右侧相邻的单元格中填入“19 C 60”。
我研究了好几天，选任意单元格这个程序不知道怎么写，请高手帮忙。
感谢楼上快速，我按照上面的方法编宏
Sub Macro1()
'
' Macro1 Macro
'
'
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Value = "CHS700" Then Cells(Target.Row, Target.Column + 1) = "19 C 60"
End Sub
可他显示“编译错误：缺少 End Sub ”
请予以批评、指教
我研究了好几天，选任意单元格这个程序不知道怎么写，请高手帮忙。
感谢楼上快速，我按照上面的方法编宏
Sub Macro1()
'
' Macro1 Macro
'
'
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Value = "CHS700" Then Cells(Target.Row, Target.Column + 1) = "19 C 60"
End Sub
可他显示“编译错误：缺少 End Sub ”
请予以批评、指教
单张工作表起作用:(贴在sheet1的代码中)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = "CHS700" Then Cells(Target.Row, Target.Column + 1) = "19 C 60"
End Sub
整个工作薄起作用:(贴在This workbook)
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Value = "CHS700" Then Cells(Target.Row, Target.Column + 1) = "19 C 60"
End Sub