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

¦b¤u§@ªí°õ¦æ¥t¤@®æ¤u§@ªíªº¥¨¶°

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2016-4-30 08:20 ½s¿è

¦^´_ 9# chairles59
B. ±N¡y·s¼WªÑ²¼¦WºÙ¡zµ{¦¡ (·s¼WªÑ²¼¦WºÙ())
   ©ñ¸m©ó ¡u¼Ò²Õ¡v(¦¹³B½d¨Ò¸m©ó Module3) ¤º

©I¥s¤è¦¡¤@  (³o«K¬O luhpro ¤j¤j±Ð§Aªº¤èªk)
  1. Sub ½Æ»s®æ¦¡¤u§@ªí()
  2.     ·s¼WªÑ²¼¦WºÙ
  3. End Sub
½Æ»s¥N½X
©I¥s¤è¦¡¤G
  1. Sub ½Æ»s®æ¦¡¤u§@ªí()
  2.     Call ·s¼WªÑ²¼¦WºÙ
  3. End Sub
½Æ»s¥N½X
©I¥s¤è¦¡¤T
  1. Sub ½Æ»s®æ¦¡¤u§@ªí()
  2.     Call Module3.·s¼WªÑ²¼¦WºÙ
  3. End Sub
½Æ»s¥N½X

TOP

  1. Sub ¤u§@ªí_·s¼WªÑ²¼¦WºÙ()
  2. Dim ShtN$, Sht As Worksheet
  3. Set uRng = ActiveCell
  4. If uRng.Column <> 3 Or uRng.Row < 5 Or uRng = "" Then MsgBox "¡°½Ð¥ý¿ï¨ú­ÓªÑ¥N¸¹¡I": Exit Sub
  5. ShtN = uRng.Value
  6. On Error Resume Next
  7. Set Sht = Sheets(ShtN)
  8. If Not Sht Is Nothing Then MsgBox "¤u§@ªí¦WºÙ¤w¦s¦b! ": Exit Sub
  9. Sheets("®æ¦¡").Copy after:=Sheets(2)
  10. With ActiveSheet
  11.     .Name = ShtN
  12.     .[B1] = ShtN
  13.     .[D1] = uRng(1, 2)
  14. End With
  15. End Sub


  16. Sub ¤u§@ªí_§R°£³Ì«á¤@­Ó()
  17. Application.DisplayAlerts = False
  18. With Sheets(Sheets.Count)
  19.     If .Name <> "§Y®É¸ê°T" And .Name <> "®æ¦¡" Then
  20.        If MsgBox("½T©w­n§R°£¡e" & .Name & "¡f¤u§@ªí¡H ", 1 + 32 + 256) = vbOK Then .Delete
  21.     End If
  22. End With
  23. End Sub
½Æ»s¥N½X
Xl0000354.rar (28.89 KB)

TOP

c_c_lai ¤j¤j:
ÁÂÁ±z¨º»ò¥Î¤ßªºÁ¿¸Ñ
Åý§Ú¾Çªº«Ü¦h
¤£¹L³oµ{¦¡¬O·Ç¤j¤j³]­pªº
Åý§Ú¥[¤F«Ü¦h«ö¶s
«Ü¤£¦n·N«ä,¦Ó¥B³o¨Ç«ö¶sµ{¦¡³£¬O½Ñ¦ì¤j¤j±Ðªº
michael

TOP

        ÀR«ä¦Û¦b : §g¤l¬°¥Ø¼Ð¡A¤p¤H¬°¥Øªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD