ªð¦^¦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)

¸ÕµÛ±N¦¹µ{¦¡¤À¬q¶]®Éµo²{ªº¡A½Ð±Ð¦U¦ì«e½ú¦³¿ìªk§JªA¶Ü?

¦bWith ThisWorkbook.VBProject.VBComponents¥[¤W¤¤Â_ÂI«á°õ¦æ¡A
·|¥X²{"¦¹®ÉµLªk¶i¤J¤¤Â_¼Ò¦¡"¡A
¦¹®É«öµ²§ô¡A«h·s¼WªºModule2¥H¤Îµ{¦¡½X³£·|¯d¤U¨Ó¡C

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-4-16 13:43 ½s¿è

¦^´_ 13# lin
[µLªk¥Îkeyboard and mouse] ¬OÄæ»P¦C¥þ³¡ÁôÂäF ,¿ï¨ú¤u§@ªí ¥ª¤W¨¤©¹¥k ±NÄæ©Ô¥X¨Ó  ¥ª¤W¨¤©¹¤U±N¦C©Ô¥X¨Ó.
[¤u§@ªí¤´µM¬O¦Ç¦â] ¬Oªü¦N¥S±NÀx¦s®æªº¹Ï¼Ë¤Î¦r«¬ÃC¦â¦P³]¬°¦Ç¦â.
§A¥i¥H­×§ï Àx¦s®æªº ¹Ï¼ËÃC¦â¬°µL¦â±m ,¦r«¬ÃC¦â¬°¦Û°Ê.

TOP

¤u§@ªí«ü¥O ¤u¨ã ->¿ï¶µ ->À˵ø->¤Ä¿ï [¤½¦¡]  
¤u§@ªí¤´µM¬O¦Ç¦â,¥BµLªk¥Îkeyboard and mouse
Lin

TOP

¦^´_ 11# lin
¤u§@ªí«ü¥O ¤u¨ã ->¿ï¶µ ->À˵ø->¤Ä¿ï [¤½¦¡]

TOP

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

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

¤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-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

¦^´_ 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

        ÀR«ä¦Û¦b : ¡i¬°µ½Ävª§¡j¤H¥Í­n¬°µ½Ävª§¡A¤À¬í¥²ª§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD