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

Ä檺ÁôÂäΫOÅ@°ÝÃD¡C

Ä檺ÁôÂäΫOÅ@°ÝÃD¡C

¦U¦ì®v¥S¤j®a¦n¡A¤p§Ì­è¾ÇEXCEL¤£¤[¡A·Q°Ý¤@¨Ç¤Ö¤Ö°ÝÃD¡C

³Ìªï¤½¥q­n§@¤@­Óªíµ¹¨ä¥L³¡ªù¬Ý¡A³o­Óªí§Ú­º¥ý¦³¨â­ÓVBA ¡A
²Ä¤@­ÓVAB´N¬O§âÄæB¤ÎCÁôÂáA¥uÅã¥ÜÄæA,D,E;
²Ä¤G­ÓVBA´N¬O§âÄæB,C,D,EÁôÂáA¥uÅã¥ÜÄæA;
¦Ü©óÄæF ¹ï©ó¤@¨Ç±Ó·P¼Æ¾Ú,©Ò¥H¤£¯àµ¹¨ä¥L³¡ªù¬Ý¡A©Ò¥Hªø´ÁÁôÂáC
¦ý¦pªG§Ú³æ³æ§âÄæFÁôÂ䧫á§âEXCELµ¹¨ä¥L³¡ªù¬Ý¡A¥L­Ì¥i¥H§âÄæF¨ú®øÁôÂÃ¥h¡Aµ²ªGÁôÂôN¨S¦³·N«ä¡C

³Ì«á§Ú·Q°µ¨ìªº®ÄªG´N¬O¥L­Ì¤£±o­×§ï¥ô¦óÀx¦s®æ¤º®e¡A¦ý¤S¥i¥H¥Î¨ì³o¨â­Ó«ö¶s¡A¤S¥i¥HCTRL+F·j´M(¦]¬°¼Æ¾Ú³£ºâ¦h)¡A¤S¸T¤î¥L­Ì¬Ý¨ìÄæF¥ô¦ó¼Æ¾Ú¡C

½Ð°Ý³o­Ó®ÄªG¯à°µ¨ì¶Ü?¥ý·P¿E¸U¤À¡C



A     B     C     D     E     F  ¡öªø´ÁÁôÂà            VBA1 ¡ö«ö¶s
1      1     1     1     1     1
2      2     2     2     2     2                                    VBA2¡ö«ö¶s
3      3     3     3     3     3

¦^´_ 3# ­ã´£³¡ªL


    ª©¤j§A¦n¡A³Ìªñ³£¨S®É¶¡¤W½u¡A³o­Óµ{¦¡¯u¬O¯«¡C¦³»¡©ú«D±`¦n,,,
¥i±¤§Ú¤@¥y¤]¤£©ú¥Õ..¤£¬O§ÚÃi..¦Ó¬O¯uªº¤Ó²`¶ø..
ª©¤j¤è«K¦³¤Ñ¥i¥H¸Ô²Ó¸ÑÄÀ¤@¤U¶Ü?
¦]¬°§Ú·Q§Q¥Î³o­Óµ{¦¡½X®M¥Î¨ä¥LEXCEL¥Î©ó¤u§@¤W¡A¦Ó¥B§Ú·Q¤F¸Ñ¤F¡A¦Ó¸ò¦P¨Æ­Ì¸ÑÄÀ¤@¤U¡A¤£·Q¥L­Ì¥u·|«ö¦Ó¤£¥h¾Ç¡C

ªÖ±Ðªº¯uªº·|¤Q¤À·P¿E!!!

TOP

·PÁ¤j¤j!!!¯uªº¥i¥H¥Î¤F~~¤S¾Ç·|¤F¤@½Ò~!¤Q¤À·P®¦!!¦hÁ§A=]

TOP

¢°¡D¤u§@ªí¥þ³¡Àx¦s®æ³£³]¬°¡eÂê©w¡f¡D¦A±N¢Ö¢°ªºÂê©w¨ú®ø
¡@
¢±¡D¦b¤u§@ªíµ{¦¡°Ï¡A©ñ¤J¥H¤Uµ{¦¡¡G
¡@¡@Private Sub Worksheet_Change(ByVal Target As Range)
¡@¡@With Target
¡@¡@¡@¡@¡@If .Address <> "$H$1" Then Exit Sub
¡@¡@¡@¡@¡@If .Value <> "12345" Then Exit Sub
¡@¡@¡@¡@¡@ActiveSheet.Unprotect "1111"
¡@¡@¡@¡@¡@[A:F].EntireColumn.Hidden = False
¡@¡@¡@¡@¡@[A1].Select
¡@¡@¡@¡@¡@[H1] = ""
¡@¡@End With
¡@¡@End Sub
¡@¡@¡Ä¡Ä¥Øªº¡G¦b¢Ö¢°¿é¤J"12345¡¨¡]¦¹±K½X¥i¦Û¦æ¨M©w¡^¡A¸Ñ°£¤u§@ªí«OÅ@¤ÎÅã¥Ü¥þ³¡Äæ¦ì¡A¥H§QÀɮ׺޲zªÌ¶i¦æ½s¿è¤u§@
¡@
¢²¡D¼Ò²Õ°Ï©ñ¥H¤Uµ{¦¡¡A¨Ã«ü©wµ¹«ö¶s¡G
¡@¡@Sub Åã¥Ü1()
¡@¡@With ActiveSheet
¡@¡@¡@¡@¡@.Unprotect "1111"
¡@¡@¡@¡@¡@.[A:F].EntireColumn.Hidden = True
¡@¡@¡@¡@¡@.[A1,D1,E1].EntireColumn.Hidden = False
¡@¡@¡@¡@¡@.Protect "1111"
¡@¡@¡@¡@¡@.[A1].Select
¡@¡@End With
¡@End Sub
¡@
¡@Sub Åã¥Ü2()
¡@With ActiveSheet
¡@¡@¡@¡@.Unprotect "1111"
¡@¡@¡@¡@.[A:F].EntireColumn.Hidden = True
¡@¡@¡@¡@.[A1].EntireColumn.Hidden = False
¡@¡@¡@¡@.Protect "1111"
¡@¡@¡@¡@.[A1].Select
¡@End With
¡@End Sub
¡@¡Ä¡Ä¥Øªº¡G¸Ñ°£¤u§@ªí«OÅ@¡]±K½X¥i¦Û¦æ³]©w¡^¡A½Õ¾ãÄæ¦ìÁôÂëá¡A«ì´_«OÅ@¡A§Y¥i¨¾¤î§ó§ï¡A¦ý¥i°õ¦æ·j´M
¡@
¢³¡Dµ{¦¡½X¥²¶·³]©w¡e±M®×«OÅ@¡f§_«h¨Ï¥ÎªÌÁÙ¬O¥i¥H¬Ý¨ìµ{¦¡°Ïªº±K½X¡A
¡@¡@¦ý¬O³o±M®×«OÅ@±K½X­n¦Û¤v°O±o¦í¡A§K±o¸Ñ¤£¶}¦ÓµLªk¶i¦æµ{¦¡ªº§ó§ï¡I
¡@¡@¡]µù¡G³o«OÅ@±K½X¨Ã«Dµ´¹ï¦w¥þ¡A¦³¤ß¤HÁÙ¬O¦³¿ìªk¯}¸Ñªº¡A¥u¯à¨¾§g¤l¡^

¦³ºÃ°Ý¡A¥iºô¤WÃöÁä¦r§ä¤@¤U¡A¦³«Ü¦h¤å³¹¥i¬Ý¡A´N¤£¥t§@»¡©ú¡I¡I

TOP

¼Ó¥D¦n¡A´£¥X¤@­Ó¤è¦¡¨Ñ¼Ó¥D°Ñ¦Ò¡A´N¬O°£¤F­ìÀÉ®×¥~¡A¦A½Æ»s¨â­Ó¦PÀɮסA¤´¥Î¨â­ÓVBA¡A¤@­Ó¬°§R°£B,C,FÄæ,¸ò¤@­Ó§R°£B,C,D,E,FÄæ¡A¦b­Ó§O´£¨Ñµ¹¥L³¡ªù¡C

TOP

        ÀR«ä¦Û¦b : ­×¦æ­nô½t­×¤ß¡AÂǨƽm¤ß¡AÀH³B¾i¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD