¦b¤u§@ªí°õ¦æ¥t¤@®æ¤u§@ªíªº¥¨¶°
- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¥»©«³Ì«á¥Ñ 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)- Sub ½Æ»s®æ¦¡¤u§@ªí()
- ·s¼WªÑ²¼¦WºÙ
- End Sub
½Æ»s¥N½X ©I¥s¤è¦¡¤G- Sub ½Æ»s®æ¦¡¤u§@ªí()
- Call ·s¼WªÑ²¼¦WºÙ
- End Sub
½Æ»s¥N½X ©I¥s¤è¦¡¤T- Sub ½Æ»s®æ¦¡¤u§@ªí()
- Call Module3.·s¼WªÑ²¼¦WºÙ
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 2834
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2890
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-11-25
|
- Sub ¤u§@ªí_·s¼WªÑ²¼¦WºÙ()
- Dim ShtN$, Sht As Worksheet
- Set uRng = ActiveCell
- If uRng.Column <> 3 Or uRng.Row < 5 Or uRng = "" Then MsgBox "¡°½Ð¥ý¿ï¨úӪѥN¸¹¡I": Exit Sub
- ShtN = uRng.Value
- On Error Resume Next
- Set Sht = Sheets(ShtN)
- If Not Sht Is Nothing Then MsgBox "¤u§@ªí¦WºÙ¤w¦s¦b! ": Exit Sub
- Sheets("®æ¦¡").Copy after:=Sheets(2)
- With ActiveSheet
- .Name = ShtN
- .[B1] = ShtN
- .[D1] = uRng(1, 2)
- End With
- End Sub
- Sub ¤u§@ªí_§R°£³Ì«á¤@Ó()
- Application.DisplayAlerts = False
- With Sheets(Sheets.Count)
- If .Name <> "§Y®É¸ê°T" And .Name <> "®æ¦¡" Then
- If MsgBox("½T©wn§R°£¡e" & .Name & "¡f¤u§@ªí¡H ", 1 + 32 + 256) = vbOK Then .Delete
- End If
- End With
- End Sub
½Æ»s¥N½X
Xl0000354.rar (28.89 KB)
|
|
|
|
|
|
|
- ©«¤l
- 43
- ¥DÃD
- 12
- ºëµØ
- 0
- ¿n¤À
- 72
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- win 8.0
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2016-2-9
- ³Ì«áµn¿ý
- 2020-4-13
|
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
|
|
|
|
|