¦U¦ì¥ý¶i¦n¡A¤p§Ì³Ìªñ¸ÕµÛ¥ÎYESWIN°µ¤@ÓDDE³sµ²ªí¦pªþ¥ó
·Q½Ð°Ý¤@¤U¡A¸Ó¦p¦ó¥hקï»yªk¤º®e¡A¤~¯àÅý§Ú¦bÅܧó¤u§@ªí²Ä¤@¦CªºÄæ¦ì¼ÐÃDªº®ÉÔ¡A
¤U±ªº¤º®e¤]¥i¥H¸òµÛ°µ³s°ÊÅܤƩO¡H
°²³]§Ú¥»¨ÓBÄæ¼ÐÃD¬OªÑ¦W¡A§Úª½±µ§â"ªÑ¦W"§ï¦¨"Ãþ§O"¡A
¨º»ò¡uTarget.Offset(0, 1) = "=YES|DQ!'" & Target & ªÑ¦W ¡v³o¤@¥y¡A
´N·|¦Û¤vÅܦ¨¡uTarget.Offset(0, 1) = "=YES|DQ!'" & Target & Ãþ§O ¡v¡A¤u§@ªí¸ÌBÄæ´N¯à¥D°Ê±a¥X¸ÓªÑªºÃþ§O¡A
·Ð½Ð¦U¦ì°ª¤â¤£§[½ç±Ð¡AÁÂÁÂ~
µ{¦¡¥N½X¦p¤U- Private Sub Worksheet_Change(ByVal Target As Range)
- Dim ªÑ¦W, ¦¨¥æ»ù, ¶}½L, °ª, §C, º¦°±, ¶^°±, º¦¶^, Ãþ§O As String
- ªÑ¦W = ".Name'"
- ¦¨¥æ»ù = ".Price'"
- ¶}½L = ".Open'"
- °ª = ".High'"
- §C = ".Low'"
- º¦°± = ".Ceil'"
- ¶^°± = ".Floor'"
- º¦¶^ = ".Change'"
- Ãþ§O = ".GroupName'"
- If Target.Column = 1 And Target.Row > 1 Then
- On Error Resume Next
- If Target <> "" Then
- Target.Offset(0, 1) = "=YES|DQ!'" & Target & ªÑ¦W
- Target.Offset(0, 2) = "=YES|DQ!'" & Target & ¦¨¥æ»ù
- Target.Offset(0, 3) = "=YES|DQ!'" & Target & ¶}½L
- Target.Offset(0, 4) = "=YES|DQ!'" & Target & °ª
- Target.Offset(0, 5) = "=YES|DQ!'" & Target & §C
- Target.Offset(0, 6) = "=YES|DQ!'" & Target & º¦°±
- Target.Offset(0, 7) = "=YES|DQ!'" & Target & ¶^°±
- Else: Target.Offset(0, 1).Resize(1, 7) = ""
- End If
- End If
- End Sub
½Æ»s¥N½X |