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

½Ð±Ð¤@­Ósheets³æ­Ó¥[±Kªº°ÝÃD, ·Ð½Ð¤j¤j½ç±Ð

½Ð±Ð¤@­Ósheets³æ­Ó¥[±Kªº°ÝÃD, ·Ð½Ð¤j¤j½ç±Ð

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-12-23 18:14 ½s¿è

¦bºô¤W§ä¤F¦n¦h¸ê®Æ
±o¨ì­Ó¸ò¦Û¤v®t¤£¦h·Q¹³ªºªF¦è

Private Sub Worksheet_Activate()
Sheets("sheet2").Cells.Interior.ColorIndex = 2
Sheets("sheet2").Cells.Font.ColorIndex = 2
If Application.InputBox("½Ð¿é¤J±K½X:") = 123 Then
Range("A1").Select
ActiveSheet.Cells.Font.ColorIndex = 56
Else
MsgBox "¿é¤J¿ù»~¡A½Ð±q·s¿ï¾Ü!!"
Sheets("Á`ªí").Select
End If
End Sub

¦ý¤p§Ìµo²{¹ê¨î¨Ï¥Î¤W¥X²{°ÝÃD:
¨Ò¦p¦b"sheet2"¤WÀx¦s°h¥X
¤U¦¸¦A¶}®Éª½±µÅã¥Ü"sheet2"ªº¤º®e
¨º¼Ë®Ú¥»¹F¤£¨ì¥[±Kªº¥Øªº
°£«D¨C¦¸³£¦b"Á`ªí"¤UÀx¦s°h¥X
¦³¤j¤j¥i¥HÀ°¦£­×§ï¶Ü?
¦p¤£ºÞ¦b¨º­Ósheet°h¥X³£¦Û°Ê¦^¨ì"Á`ªí"

¥t¥~ÁÙ·Q¥[¤J¤@­ÓºÞ²z­û±M¥Îªº±K½X¯à¥ô·N¥´¶}¨C­Ósheet


·Ð½Ð¤j¤j­Ì¥X¤â¬Û§U(ªþ¤W´ú¸Õ¤åÀÉ)

test.rar (8.46 KB)

¦^´_ 1# tata211

    ¦b¤U¹Ï¤¤ªº¦ì¸m¥[¤Jµ{¦¡½X~ ´N¥i¥H¦b¨C¦¸Àx¦s«á~ ¦A­«·s¥´¶}®É~ ·|¿ï¾ÜÁ`ªí
   
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

¦^´_ 2# hugh0620


·PÁ¤j¤jªº¦^ÂÐ
²×©ó±µªñ§Ú·Q­nªº±¡ªp¤F

¥i¬O¦A·Q½Ð°Ý
¯à¤£¯à³]©w¨â­Ó±K½X¦P®É¦¨¥ß?
¤@­Ó¬Oµ¹ºÞ²zªÌ¨Ï¥Î
¥t¤@­Ó¬O¥Î¤á?

¤S¦A³Â·Ð¤j¤j­Ì¤F

TOP

¥»©«³Ì«á¥Ñ tata211 ©ó 2011-10-24 15:05 ½s¿è

­è¤S§ä¤F¨Ç¸ê®Æ¬ã¨s¤@¤U
²×©ó¹F¨ì¥i¥H¥Î¨â²Õ¥H¤W±K½X¤F
µ{¦¡¥H¤U:

Private Sub Worksheet_Activate()
Sheets("sheet2").Cells.Interior.ColorIndex = 2
Sheets("sheet2").Cells.Font.ColorIndex = 2
pwd = Application.InputBox("½Ð¿é¤J±K½X:")
If pwd = 123 Or pwd = 456 Then
Range("A1").Select
ActiveSheet.Cells.Font.ColorIndex = 56
Else
MsgBox "¿é¤J¿ù»~¡A½Ð±q·s¿ï¾Ü!!"
Sheets("Á`ªí").Select
End If

End Sub




¦ý´ú¸Õ¥u¯à¥Î¼Æ¦r°µ±K½X
¥B¤£¯à¥H"0"¬°¶}ÀY
¦³¤èªk§ï§ï¦¨¦r¦ê§Î¦¡©O?
­^¤å+¼Æ¦r+²Å¸¹¨º§ó§¹¬ü¤F
±æ¤j¤j¥X¤â¬Û§U

TOP

¥»©«³Ì«á¥Ñ hugh0620 ©ó 2011-10-25 09:16 ½s¿è

¦^´_ 4# tata211

  
    ¨ä¹ê¤£¥Î·Qªº¤Ó½ÆÂø~  §A¥i¥H±N±K½XªºÀx¦s®æ®æ¦¡§ï¦¨¤å¦r®æ¦¡~
    ³o¼Ë¤£ºÞ¬O¼Æ¦r/­^¤å/.... ¥ô¦ó®æ¦¡³£¥i¥H~
    ¥u¬O¦b¼¶¼gµ{¦¡½X®É~ ­nµy¥[ª`·N¤@¤U~

    ¤U­±¬O§Ú¤§«e¥é¤@¦ì¤j¤j©Ò¼gªº¨Ï¥Î¤@­Ósheet¨ÓºÞ²z±b±K~´£¨Ñµ¹§A°Ñ¦Ò~
    §Æ±æ¹ï§A¦³À°§U~
   http://forum.twbts.com/viewthread.php?tid=2543&highlight=
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

¨þ~ ¬Ý¨Ó¤£¬O§Ú¯à´x´¤ªºªF¦è
¬Ý¤F¤@¤p®É³£¤£ª¾¦p¦ó¤J¤â

TOP

«D±`·PÁ¤j¤jªº¤À¨É¡A§Úª¦¤F¦n¦h¤å²×©ó§ä¨ì±z³o½g¤u§@ªí¥[±Kªº¤À¨É¡C
¤p©f§Ú¸Õ¥Î«á¡Aµo²{¦³­Ó¤p°ÝÃD¡G
§Úªºworkseet¦³¢²­Ó¡A³]¦n¤W­z¤§¢þ¢ê¢éµ{¦¡«á¡A«ösheet2·|¸õ¥Xµøµ¡­n¨D¿é¤J±K½X¡A
¦ý¦b¸Ó­n¨D¿é¤J±K½Xµøµ¡«áª½±µ«ö¨ìsheet3¡A´N·|Åã¥Ü¥Xsheet3©Ò¦³¸ê®Æ¡A¨ä¥L¸ê®Æªí¤º®e¤@¼ËÁÙ¬O³Q¬Ý¥ú¥ú

½Ð°Ý¦³µL¤èªk¥i¥H¸Ñ¨M¡H
Joy

TOP

¦^´_ 7# joychiangg
¤W¶Ç§AªºÀɮ׬ݬÝ

TOP

¦^´_ 7# joychiangg

§A¸Ó¤£·|¤@¶}©l¥u¦³sheet2¦³¤W¦â©M­n¨D±K½X§a¡H
¨ä¥L¤£·QÅý¤H¬Ý¨ìªº¤u§@ªí¤]­n°O±o¦b¤@¶}©l´N¤@¨Ö³]©w¦n³á¡C

TOP

score.zip (124.83 KB)
§Úªº¤å¥ó¦pªþ¡K
Joy

TOP

        ÀR«ä¦Û¦b : ¤Hªº¤ß¦a¬O¤@²¥¥Ð¡A¤g¦a¨S¦³¼½¤U¦nºØ¤l¡A¤]ªø¤£¥X¦nªºªG¹ê¡C -
ªð¦^¦Cªí ¤W¤@¥DÃD