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

[µo°Ý] ½Ð°Ý¦p¦ó¦bexcel¤¤³]©w±b¸¹±K½X??(¥H¸Ñ¨M)

[µo°Ý] ½Ð°Ý¦p¦ó¦bexcel¤¤³]©w±b¸¹±K½X??(¥H¸Ñ¨M)

¥»©«³Ì«á¥Ñ ´Ñ»y³¾»ï ©ó 2011-7-11 21:25 ½s¿è

½Ð°Ý:¦pªG§Ú·Q¥HSheet1¤§B¡BCÄ欰±b¸¹±K½Xªº±ø¥ó¡A¤@¶}±ÒEXCELÀɮɡA«h¥X²{¿é¤J±b¸¹±K½X¡A¥u¦³¦bSheet1¤§B¡BCÄæÅã¥Üªº20²Õ±b¸¹±K½X¤~¯à¶}±Ò¦¹ÀɮסA½Ð°Ý¦¹¥¨¶°­n¦p¦ó³]©w??
±b±K³]©w.rar (7.36 KB)


¥Ñ°J·PÁÂ"GBKEE"ª©¥D¡A¬°¥»©«¤l²Ó¤ßªº¦^µª¡A¥»©«¥H´ú¸ÕµL»~~

¦^´_ 1# ´Ñ»y³¾»ï
¸Õ¸Õ¬Ý


    ±b±K³]©w..rar (11.04 KB)

TOP

¦^´_ 2# GBKEE
´ú¸ÕOK.....¦ý¬O¦b½Ð°Ý¤@¤U!¦pªG§Ú·Q§â"Sheet1" ÁôÂð_¨Ó¡A­n¦p¦ó­×§ïªí³æ±K½X¤¤ªº¥¨¶°©O??

TOP

¦^´_ 3# ´Ñ»y³¾»ï
Sheet1.Visible = xlSheetVeryHidden   '§¹¥þÁôÂà ¥u¥i¥Î VBA ¨ú®øÁôÂÃ
Sheet1.Visible = xlSheetHidden           'ÁôÂà ¥i¦b¤u§@ªí«ü¥O->®æ¦¡->¤u§@ªí-> ¨ú®øÁôÂÃ
Sheet1.Visible = xlSheetVisible             '¨ú®øÁôÂÃ

TOP

¦^´_ 4# GBKEE

³o3­Ó§Úª¾¹D!¦ý¬O«o¤£ª¾¹D­n¥[¦b­þ¤@­Ó¶sªºµ{¦¡½X¸Ì??
¥t¥~¦³­Ó°ÝÃD¡A¦pªG¥ÎÁôÂáA¨º¤@¶}©lÀ³¸Ó­n¨ú®øÁôÂäu§@ªí¡A³Ì«á¦b¥[¤WÁôÂäu§@ªí!³o¼Ë¥L¤@¨ú®ø®É¡A¤£´N±b¸¹±K½X³£³Q¬Ý¥ú¤F???
ÁÙ¬O¦b«e­±¤S­n¥[¤Wapplication.screenupdating = false¡AÅý¥¦¤£Åã¥Ü¥X¨Ó??

TOP

¦^´_ 5# ´Ñ»y³¾»ï
application.screenupdating ->¡A¿Ã¹õ§ó·s (¿é¤J)   ¤£¬OÅý¥¦¤£Åã¥Ü¥X¨Ó??

³o3­Ó§Úª¾¹D!¦ý¬O«o¤£ª¾¹D­n¥[¦b­þ¤@­Ó¶sªºµ{¦¡½X¸Ì??
©ñ¸m±K½Xªº¤u§@ªí¬OºÞ²zªÌ¤~¦³Åv­­­×§ï,¥»¨Ó´N¤£¸Ó¸m©ó²Ä¤@­Ó¤u§@ªí,¥ô¦ó¨Ï¥ÎªÌ©ó¿é¤J±K¶Ü«á¶i¤JÀɮץߧY¥i¨£°Ú!!!
½Ð¬Ý·sª©

±b±K³]©w..rar (18.72 KB)

TOP

¥»©«³Ì«á¥Ñ ´Ñ»y³¾»ï ©ó 2011-7-11 19:05 ½s¿è

¦^´_ 6# GBKEE

³o¦¸´N¥i¥H¤F!¤£¹L¦³­Ó¦a¤è©Ç©Çªº??
§Ú¦b±b¸¹¨º¸Ì¿é¤JºÞ²zªÌªº±b¸¹
¦b±K½X¿é¤J§O²Õªº±K½X¨Ò¦pUUUªº"123"¡A³o¼Ë¤]¯àµn¤J­C??¦Ó¥B¤]¯à¶i¤J±K½Xªí??¤£ª¾¬O­þ¥X¤F¿ù»~?¾É­P³o¼Ë!!
¥t¥~¦b¸ß°Ý¤@¤U!¦p¦ó¦b¿é¤J±K½X®ÉÅý±K½X¥H"*"¸¹Åã¥Ü!Thank you ~~

TOP

¦^´_ 7# ´Ñ»y³¾»ï
¬O©Ç©Çªº,­×¥¿±K½Xªí³æ¦p¤U.
  1. Option Explicit
  2. Dim P As Integer, ±K½X°Ï As Range
  3. Private Sub UserForm_Initialize()
  4.     Set ±K½X°Ï = Sheet1.Range("A2", Sheet1.[C2].End(xlDown))
  5.     TextBox2.PasswordChar = "*"   '(¶È­^¤å¿é¤J¼Ò¦¡)  ¤J±K½X®ÉÅý±K½X¥H"*"¸¹Åã¥Ü
  6. End Sub
  7. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  8.     If CloseMode = 0 Then Cancel = 1                  '°±¤î¥Îªí³æ( X ) Ãö³¬ªí³æ
  9. End Sub
  10. Private Sub CommandButton1_Click()
  11.     Dim R(2 To 3) As Range
  12.     Dim WshShell As Object, BtnCode As Integer
  13.     Set WshShell = CreateObject("WScript.Shell")
  14.     Set R(2) = ±K½X°Ï.Columns(2).Find(TextBox1.Text, LookAt:=xlWhole, MatchCase:=True) '´M§ä±b¸¹
  15.     Set R(3) = ±K½X°Ï.Columns(3).Find(TextBox2, LookAt:=xlWhole, MatchCase:=True)      '´M§ä±K½X
  16.     If Not R(2) Is Nothing And Not R(3) Is Nothing Then   '§ä¨ì±b¸¹»P±K½X
  17.         If R(2).Row = R(3).Row Then '±b¸¹»P±K½X¦P¤@¦C
  18.             BtnCode = WshShell.popup("µn¤JªÌ :" & ±K½X°Ï(R(2).Row, 1), 3, "µn¤J°T®§")
  19.             ThisWorkbook.Åv­­ = ±K½X°Ï(R(2).Row, 1)
  20.             Unload Me
  21.         End If
  22.     End If
  23.     P = P + 1
  24.     If P > 2 Then
  25.         CommandButton1.Caption = "µn¤J¥¢±Ñ¤F"
  26.         Unload Me
  27.         BtnCode = WshShell.popup("ÀÉ®×»ÝÃö³¬" & Chr(10) & Chr(10) & "µn¤J:±b¸¹,±K½X.. ¿ù»~", 3, "µn¤J¥¢±Ñ")
  28.             'ThisWorkbook.Close False    '***  ´ú¸Õ´Á¶¡¼È¥B¤£  Ãö³¬ÀÉ®× **
  29.     Else
  30.         CommandButton1.Caption = "µn¤J¦¸¼Æ ³Ñ " & 3 - P & " ¦¸"
  31.     End If
  32. End Sub
½Æ»s¥N½X

TOP

§Ú­Ì¦³¥i¯à¥Îpasswore:=a1
¦Óa1¥Îb1©Îc1ªºÀx¦s®æªº­È³£¥i¥H¸Ñ±K½X¶Ü
jeason

TOP

¦^´_ 4# GBKEE


    ¨º¦Uxlsheetveryhidden¯u¬O¼F®`ªº¤è¦¡
   ±q¤@¯ëexcel¤¶­±¬Ý¤£¥X¨Ó¦³³QÁôÂ꺤u§@ªí
   ¤£¹L§Ú­ì¥»¨Ï¥ÎÁôÂøòÅã²{ªº¤è¦¡¬O¥Îfalse ¸ò true
    ®ÄªG¤@¼Ë¤£ª¾¹D¦³¨S¦³®t§O
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

        ÀR«ä¦Û¦b : ÀR§¤±`®¦¤v¹L¡B¶¢½Í²ö½×¤H«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD