mistery

¤½¦¡¦bªþ¥ó¼gªºVBA¸Ì

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target(1), Range("C1:IV1")) Is Nothing Then
    If Target(1) <> "" Then ½Æ»s
    End If
    If Not Intersect(Target(1), Range("C2:IV2")) Is Nothing Then
    If Target(1) <> "" Then §R°£
    End If
End Sub

---------------------------------------------------------------------------------------------------------
Sub ½Æ»s()
Again:
      ZZ = Application.InputBox("½Ð¿é¤J¦C¼Æ", "½Ð¿é¤J½Æ»s©Ò»ÝÄæ¼Æ", 10, Type:=2)
      If ZZ = "" Or ZZ = False Then End

      If ZZ <= 1 Then
        MsgBox "Äæ¼Æ¤£±o¤p©ó¢°¦C¡I¡I¡I", , "Äæ¼Æ¿ù»~½Ð­«·s¿é¤J ¡I¡I"
        GoTo Again
      End If
      [G1:P360].Copy Sheet2.Range("IV1").End(xlToLeft).Offset(0, 1)
End Sub

---------------------------------------------------------------------------------------------------------
Sub §R°£()
    Dim F
Again:
      ZZ = Application.InputBox("½Ð¿é¤J¦C¼Æ", "½Ð¿é¤J§R°£©Ò»ÝÄæ¼Æ", 10, Type:=2)
      If ZZ = "" Or ZZ = False Then End

      If ZZ <= 1 Then
        MsgBox "Äæ¼Æ¤£±o¤p©ó¢°¦C¡I¡I¡I", , "Äæ¼Æ¿ù»~½Ð­«·s¿é¤J ¡I¡I"
        GoTo Again
      End If
    If Sheet1.[C1] = "" Then Exit Sub
    Columns("D:M").Delete Shift:=xlToLefte
End Sub