Question

excel中VBA窗体代码，哪位高手帮解答一下！谢谢！

这是一个窗体的代码 我想再加一个窗体 该怎么写呢？哪位高手帮帮忙！在线等！
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
Dim myStr As String
With Target
If .Column <> 1 Or .Count > 1 Then Exit Sub
If WorksheetFunction.CountIf(Sheet2.Range("A:A"), .Value) > 1 Then
.Value = ""
MsgBox "不能输入重复的产品名称!", 64
Exit Sub
End If
For i = 1 To Len(.Value)
If Asc(Mid$(.Value, i, 1)) > 255 Or Asc(Mid$(.Value, i, 1)) < 0 Then
myStr = myStr & LChin(Mid$(.Value, i, 1))
Else
myStr = myStr & LCase(Mid$(.Value, i, 1))
End If
Next
.Offset(, 1).Value = myStr
End With
End Sub
呵呵 这个我也不懂啊！我就说一下我想要的吧！这个只能是说A：A列 我想要E列也达到同样的效果！

Answer 1

这个不是窗体代码吧，应该是sheet里面的代码吧
ATL+F11打开编辑器，比如要把这个代码给sheet2用就点到sheet2的代码窗口里加入代码就可以了
，直接复制粘贴就可以了。
你的这段代码应该是sheet内容发生变化的时候会触发一定的事件。