ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

§R°£»P½Æ»s

§R°£»P½Æ»s

¦U¦ì«e½ú§A­Ì¦n!
         «e½ú!°ÝÃD¦pªþÀÉ»¡©ú
         ½Ðª¾¹Dªº«e½ú,¤£§[½ç±ÐÁÂÁ¦A¤T!!
         ¤p§Ì¦b¦¹¸Û¼°ªº¯¬¦U¦ì«e½ú!
           ·s¦~§Ö¼Ö!!¨Æ¨Æ¦p·N,..

Leov38.rar (18.92 KB)

¥»©«³Ì«á¥Ñ mistery ©ó 2011-1-3 17:01 ½s¿è

¤½¦¡¦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

TOP

¦^´_ 2# mistery
mistery«e½ú§A¦n!
       «e½ú!ÁÂÁÂ!!³o¬O½d¨Ò­ì¨Óªºµ{¦¡
       ¨Ã¤£¾A¥Îªº°Ú!¤£À´§Aªº¥Î·N
       ½Ðª¾¹Dªº«e½ú,¤£§[½ç±ÐÁÂÁ¦A¤T!!

TOP

¦^´_ 2# mistery
¦U¦ì«e½ú§A­Ì¦n!
         ³o­Ó°ÝÃDªºµ{¦¡²×©ó«÷´ê§¹¦¨
         Sub ½Æ»s()
            Dim F As Range, A As Range
         Again:
            ZZ = Application.InputBox("½Ð¿é¤J¦C¼Æ", "½Ð¿é¤J½Æ»s©Ò»ÝÄæ¼Æ", 10, Type:=2)
            If ZZ = "" Or ZZ = False Then End
            Range("B1") = ZZ
            If ZZ <= 1 Then
            MsgBox "Äæ¼Æ¤£±o¤p©ó¢°¦C¡I¡I¡I", , "Äæ¼Æ¿ù»~½Ð­«·s¿é¤J ¡I¡I"
            GoTo Again
          End If
          With ActiveSheet
            Set F = .Rows(1).Cells.Find(.Cells(1, ActiveCell.Column))
            Set F = .Range(F.Offset(0), F.Offset(0, ZZ).End(xlDown))
          End With
            Set A = Sheet2.[IV1].End(xlToLeft).Offset(, 1)
            F.Copy A
          End Sub
          Sub §R°£()
          Again:
             ZZ = Application.InputBox("½Ð¿é¤J¦C¼Æ", "½Ð¿é¤J½Æ»s©Ò»ÝÄæ¼Æ", 10, Type:=2)
             If ZZ = "" Or ZZ = False Then End
             Range("B1") = ZZ
             If ZZ <= 1 Then
             MsgBox "Äæ¼Æ¤£±o¤p©ó¢°¦C¡I¡I¡I", , "Äæ¼Æ¿ù»~½Ð­«·s¿é¤J ¡I¡I"
             GoTo Again
          End If
          With ActiveSheet
             Set F = .Rows(1).Cells.Find(.Cells(1, ActiveCell.Column))
             Set F = .Range(F.Offset(0), F.Offset(0, ZZ).End(xlDown))
          End With
             F.Delete
          End Sub
         ÁÂÁ¤j®a!!

TOP

        ÀR«ä¦Û¦b : ¤Hªº²´·úªø¦b«e­±¡A¥u¬Ý¨ì§O¤Hªº¯ÊÂI¡Aµ·²@¬Ý¤£¨ì¦Û¤vªº¯ÊÂI¡C
ªð¦^¦Cªí ¤W¤@¥DÃD