ÁÖ¼® ºÎŹÇÕ´Ï´Ù.
ÆÄÀÏ Ã·ºÎÇÕ´Ï´Ù.
Private Sub ¹öÆ°_Á¾·á_Click()
Me.Hide
End Sub
Private Sub ¹öÆ°_Ãâ·Â_Click()
Application.ScreenUpdating = 0
If Me.´ë»ó_Á¶È¸ÀÚ·á Then
Á¶È¸ÀÚ·á_Ãâ·Â
Else
ÁÖ¼Ò·Ï_ÀüüÃâ·Â
End If
Me.Hide
Application.ScreenUpdating = 1
End Sub
Sub ÁÖ¼Ò·Ï_ÀüüÃâ·Â()
If Me.Çü½Ä_¿¢¼¿ÆÄÀÏ Then
ÁÖ¼Ò·Ï_¿¢¼¿_°³º°_¾ç½ÄÃâ·Â
Else
End If
End Sub
Sub Á¶È¸ÀÚ·á_Ãâ·Â()
If Me.Çü½Ä_¿¢¼¿ÆÄÀÏ Then
Á¶È¸_¿¢¼¿_°³º°_¾ç½ÄÃâ·Â
Else
End If
End Sub
Sub Á¶È¸_¿¢¼¿_°³º°_¾ç½ÄÃâ·Â()
With Á¶È¸.Range("a4").CurrentRegion
For r = 2 To .Rows.Count
¿¢¼¿_°³º°_¾ç½ÄÃâ·Â .Cells(r, "a")
Next
End With
End Sub
Sub ÁÖ¼Ò·Ï_¿¢¼¿_°³º°_¾ç½ÄÃâ·Â()
With ÀÚ·á.Range("a1").CurrentRegion
For r = 2 To .Rows.Count
¿¢¼¿_°³º°_¾ç½ÄÃâ·Â .Cells(r, "a")
Next
End With
End Sub
Sub ¿¢¼¿_°³º°_¾ç½ÄÃâ·Â(ByVal a As Range)
¾ç½Ä.Range("a5") = a(1, "a")
¾ç½Ä.Copy
With ActiveSheet.UsedRange
.Value = .Value
End With
Dim sPath$
sPath = ThisWorkbook.Path & "\°³º°¿¢¼¿\"
If Dir(sPath, vbDirectory) = Empty Then
MkDir sPath
End If
With ActiveWorkbook
.SaveAs sPath & a(1, 2)
.Close
End With
End Sub
![](skin/nzeo_bbs1/t.gif)
|