- ©«¤l
- 32
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 41
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN10
- ³nÅ骩¥»
- office2010
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¿Dªù
- µù¥U®É¶¡
- 2016-11-29
- ³Ì«áµn¿ý
- 2021-5-17
|
- Private Sub Worksheet_Change(ByVal Target As Range)
- If Target.Column = 1 And Target.Count = 1 Then
- If Target.Row Mod 2 = 0 Then
- Dim MyString
- If Left(Target.Value, 2) = "PB" Then MsgBox "Input data is error!", 4 or 256, "Error"
- If Response = vbYes Then
- MyString = "Yes"
- Else
- MyString = "No"
- End If
- End If
- End Sub
½Æ»s¥N½X |
|