- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¦^´_ 35# ML089
¦^´_ 34# stillfish00
³Ì²¼ä§Ö³t¡B¥¿½Tªº¸Ñ¨M¤è¦¡¦p¤U¡A½Ð×¥¿¡G- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
- Dim StrVdFml As String
-
- On Error Resume Next
- CellValidation ' 2013/11/7 ¼W× by stillfish00
- StrVdFml = Replace(ActiveCell.Validation.Formula1, "=", "")
- ActiveCell.Validation.InCellDropdown = False
- On Error GoTo 0
½Æ»s¥N½X |
|