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

[­ì³Ð] ¤@­Ó¤£¿ùªº«OÅ@«O±K«äºû»Pºc·Q «OÅ@½d¨Ò-¥]¸Ëµ{¦¡¼g¦b¤u§@ªí¤WµM«á°õ¦æµ{¦¡

[­ì³Ð] ¤@­Ó¤£¿ùªº«OÅ@«O±K«äºû»Pºc·Q «OÅ@½d¨Ò-¥]¸Ëµ{¦¡¼g¦b¤u§@ªí¤WµM«á°õ¦æµ{¦¡

¥H«e½m²ßªºÀÉ®×
½m²ßªº­«ÂI¦b«OÅ@µ{¦¡
¨Ï¥Î³o­ÓÀÉ®×"«H¥ô¦s¨úVB±M®×"­n¤Ä¿ï
¥Ñ©óVBA±M®×¯}¸Ñµ{¦¡¤Ó¦h
³o¸Ì´£¨Ñ¤@­Ó«OÅ@«O±K«äºû»Pºc·Q
§âµ{¦¡¼g¦b¤u§@ªí¤WµM«á§â¤u§@ªí«OÅ@°_¨Ó¦Óvba±M®×¤º¥u©ñŪ¨úµ{¦¡
VBA±M®×´Nºâ¯}¸Ñ¤F¤]¬Ý¤£¨ì¥Dµ{¦¡¦]¬°¥Dµ{¦¡©ñ¦b§Oªº¦a¤è
·íµMÁÙ¬O·|³Q¯}¸Ñ§Ú²{¦b´N·Q¨ì¨â¤TºØ¯}¸Ñ¤è¦¡
·Pı¦n¹³¦³ÂI±Ëªñ¨D»·¦]¬°¤u§@ªí¯}¸Ñµ{¦¡§ó¦h
¤£¦h»¡¬Ý¤F½m²ß½d¨Ò´Nª¾¹D

·PÁÂxxlandbank«e½úªº¨ó§U»P´£¨ÑªºÅª¨úµ{¦¡
http://www.excelhelp.net/cgi-bin ... pic=4520&show=0
§Ú¦³­×¤F¤@¤Uµ{¦¡Åýµ{¦¡¯à¸ó¤u§@ªí¤]¯à°õ¦æ

¦pªG§A¯}¸Ñ¤F¬Û«H§A·|¾Ç¨ì«Ü¦hªF¦è

A18.rar (8.54 KB)

¤£ª¾¹D¬O¤£¬O§Ú¨S¦³§ä¨ì¯}¸ÑªºÃöÁä.

§Ú²q¦³¥i¯à¬O¦]¬°¤£ºÞ¦b­þ¸Ì³£¬Ý¤£¨ì Sheets("Sheet0")
©Ò¥H¨â­Óµ{¦¡¦b trace ®É³£·|ª½±µ¸õ¨ì error1: End Sub
¥H¦Ü©ó¤°»ò¨Æ³£¨Sµo¥Í©O?

TOP

¤£ª¾¹D¬O¤£¬O§Ú¨S¦³§ä¨ì¯}¸ÑªºÃöÁä.

§Ú²q¦³¥i¯à¬O¦]¬°¤£ºÞ¦b­þ¸Ì³£¬Ý¤£¨ì Sheets("Sheet0")
©Ò¥H¨â­Óµ{ ...
luhpro µoªí©ó 2010-5-6 05:39



    ThisWorkbook.Sheets("Sheet0")¬O­Ó4.0¥¨¶°ªí
°µ²`«×ÁôÂëᥲ¶·¥Hµ{¦¡¨ú®øÁôÂÃ
¥i»Pªü¦N¥t½g«O±K¨ç¼Æ°µ°Ñ¦Ò
´Nª¾¨ä¤¤ªº¬yµ{¬°¦ó
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

ThisWorkbook.Sheets("Sheet0")¬O­Ó4.0¥¨¶°ªí
°µ²`«×ÁôÂëᥲ¶·¥Hµ{¦¡¨ú®øÁôÂÃ
¥i»Pªü¦N¥t½g«O ...
Hsieh µoªí©ó 2010-5-6 12:04



    ª©¥D
½Ð°Ý
¦pªG³æ¯Â¬°¤FTEST1.TEST2(¥Î·N¬°¦ó?)
¥´¶}Àɮ׫á¬Ýªº¨ì¼Ò²Õ
¼gªºµ{¦¡¤]¬O¦³ÃöSHEET0ªº³¡¥÷
©Ò¥H¬O§_­n§âªü¦N¥S¥t½g«O±K¨ç¼Æª½±µ¶K¤W´N¯à¸Ñ¶Ü?
ÁÂÁÂ!

TOP

¦^´_ 5# PD961A


    §âªü¦N¥Sªº¤å³¹¥þ¬ÝÀ´¦A¸Ñ§a
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 1# HUNGCHILIN
¤U­±µ{§Ç¥i¶i¤J"SHEETM", "SHEET0".
­n¬Ý¤º®e,½Ð·j´MHUNGCHILINªº¯µÓD.
  1. Sub Ex()
  2.     Dim S As Worksheet, N As Name
  3.     With Workbooks("A18.XLS")
  4.         For Each S In .Sheets
  5.             S.Visible = True
  6.         Next
  7.         For Each N In .Names
  8.             .Names(N.NameLocal).Delete
  9.         Next
  10.         For Each S In .Sheets(Array("SHEETM", "SHEET0"))
  11.             .Unprotect  .Sheets("SHEETM").[B2]
  12.         Next
  13.     End With
  14. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ HUNGCHILIN ©ó 2010-12-11 15:16 ½s¿è

­º¥ý«Ü°ª¿³³o«h¦³¤Hµo¥X°T®§°Q½×

³o½g¥D­n¤¶²Ð¡A¦p¦ó±Nµ{¦¡¼g¦bSHEET¤W¨Ã¨Ï¥Î¡A§Ú­Ì¥i¥H§Q¥Î³o¤âªk§â¥Dµ{¦¡¤À³Î¥X¨Ó«OÅ@»P§Q¥Îµ{¦¡

²Ó¸`»P¤Þ¥Ó­«ÂI:
1.§Ú­Ì¥i¥H±Nµ{¦¡¤ÀSHEET¡A¤À§O¦s¦b¤£¦PSHEET¨Ï¥Î
2.¦b¦P¤@SHEET¡A§Ú­Ì¥i¥H±Nµ{¦¡¼g¦b¤£¦PÄæ
¥Î¥H¤W¤âªk¥i¥H°µµ{¦¡¤À°Ï

______________________________________________________________


Ū¨ú¦¹ÀÉ«á¡A­Y¤´¦³ºÃ´b¡A±z¥i¯à»Ý­n¥ý¬ã¨s»P¾Ç²ß¤U¦C¬ÛÃö«OÅ@«O±K§Þ¥©

Àɮפº©ÒÅã¥Üªº«OÅ@«O±K§Þ¥©½Æ¦X¤F
1.EXCEL4.0¥¨¶°ªí(§»ªí)¨ç¼Æ
2.SHEET«D±`ÁôÂçޥ©(¸û¯S§OªºÆ[©À»P§Þ¥©¬°EXCEL4.0¥¨¶°ªí¨Ã¤£¯à¦bVBE½s¿è¾¹¤¤Åã¥Ü)¡A»Ý­n¨Ï¥ÎVBAµ{¦¡©Î4.0¥¨¶°ªí¡A¤~¯àÅã¥Ü»PÁôÂÃEXCEL4.0¥¨¶°ªí
3.Äæ¦CÁôÂçޥ©


¤W­z¦U§Þ¥©­Y·Q§ó²`¤J¬ã°Q½Ð¨ìEXCEL«OÅ@«O±K§Þ¥©ÂI¿ï ¥Ø¿ý²Ó¶µ³sµ² µo°Ý°Q½×·|§óÁA¸Ñ

TOP

¤U¦Cµ{§Ç ±K½X¶i¤JSHEETM,¥B­×¥¿.EXCEL4.0¥¨¶°, ­nÆ[¬Ý¤º®e,½Ð¬ã¨sªü¦Nªº Äæ¦CÁôÂçޥ©.
  1. Sub Ex()
  2.     Dim Sh As Worksheet
  3.     With Workbooks("A18.XLS")
  4.         For Each Sh In .Sheets
  5.             Sh.Visible = xlSheetVisible
  6.         Next
  7.         With .Sheets("SHEETM")
  8.             .Unprotect .[B2]
  9.             .Range("A12, A17").Replace "=", "§R±¼³o¸Ì="
  10.         End With
  11.         .Save
  12.     End With
  13. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ HUNGCHILIN ©ó 2010-12-12 21:25 ½s¿è

¬Ý¨ì³o«h·Q°_¥H«e¦³¤@­Ó
·Qªk»P½m²ßÃDÁÙ¨S§¹¦¨

´N¬O¨Ï¥Î¦b»·ºÝ§ó·sVBAµ{¦¡ª©¥»ªºµ{¦¡...
·Qªk¬O¦b¤½¥q¤º³¡ºô¸ô¤¤¡A¨Ï¥Î¤èªk±NVBA§ó·s
¦Ó¤£Åܧó¨Ï¥Îªº¥DÀÉ

§Ú´X­ÓªB¤Í§@¹LÃþ¦ü³oºØVBA§ó·sª©¥»µ{¦¡¡A¶¢½Í¤§¶¡¡A§Ú¨S¦³»s§@¹L»P½m²ß¹L
§Úªº·Qªk¬O¹B¥Î TXTÀÉ·íÂश¡A©Ò¥H¶·­n¤@­Ó¡ATXTÂàVBA¾\Ū¾¹
.....
¦L¶H¤¤¦n¹³¦³¨º¥»®Ñ¦³¼g¹L³o½d¨Ò...

TOP

¥»½m²ß½d¨Ò§¹¦¨sheet0µ¥Åã¥Ü«á,¤´µMµLªk¬Ý¨ì¤u§@ªí¤º®e,½Ð¦h¥[«ü¾É.
Lin

TOP

        ÀR«ä¦Û¦b : ·O´d¨S¦³¼Ä¤H¡A´¼¼z¤£°_·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD