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

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

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

¤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

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

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

        ÀR«ä¦Û¦b : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD