VBA&Excel

[abc3000]

这样的 在EXCEL中，如果操作员在XX单元格中按了下回车，那么在XX单元格的下面一格显示XX单元格中内容的大写形式：例如XX=abc 则按了下回车后下方一格显示为ABC.

怎么做？

[abc3000]

每次重新开EXCEL 都要重新输入次以上这些 代码

有什么办法可以方便点?

[abc3000]

up

[Arqui]

Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Column = 1) Then
Cells(2, 1) = StrConv(Cells(1, 1).Value, vbUpperCase)
End If
End Sub

[Arqui]

Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Column = 1) Then
Cells(2, 1) = StrConv(Target.Value, vbUpperCase)
End If
End Sub
哦~ 把Cells(1, 1)改成Target更好点

[沐NeMo]

把那些代码保存为一个常用宏，或共用的模块。为后要用就设置一下就可以了。

[abc3000]

怎么设置成公用的模块？