- توردا
- 312 سائەت
- ئاخىرقى قېتىم
- 2011-8-24
- تىزىملاتقان
- 2010-7-21
- شۆھرەت
- 1418
- تىللا
- 1100
- تۆھپە
- 536
- ھوقۇقى
- 150
- جۇغلانما
- 4661
- ئالبوم
- 3
- بلوگ
- 0
- خاتىرە
- 0
- يازما
- 179
- تېما
- 31
- نادىر
- 2
- ھەمبەھر
- 0
- UID
- 40
[?]- تۆھپە
- 536
- تىللا
- 1100
- شۆھرەت
- 1418
|
بۇنىڭدا «خادىملار ئارخىۋى جەدۋىلى» دە ئىسمى بارلار تىزىملىتالايدۇ.- Private Sub CommandButton1_Click()
- Dim count As Integer '¶¨Òåcount±íʾ¹¤×÷±íµ±Ç°Êý¾ÝÐÐÊý
- Dim rname As String, rpwd As String '¶¨Òårname±íʾע²áÃû£¬rpwd±íʾע²áÃÜÂë
- rname = TextBox1.Text 'È¡µÃÓû§×¢²áÃû
- rpwd = TextBox2.Text 'È¡µÃÓû§×¢²áÃÜÂë
- On Error GoTo error1 'µ±¹«Ë¾Ã»ÓжÔÓ¦µÄÔ±¹¤ºÅÂëʱ»á²úÉú´íÎó
- Sheets("Ô±¹¤×ÊÁϱí").Activate '¼¤»î¡°Ô±¹¤×ÊÁÏ±í¡±¹¤×÷±í
- pwd = Application.WorksheetFunction.VLookup(rname, Range("b1:c200"), 1, False) 'ÊäÈë±àºÅ¼´¿É
- 'pwd = Application.WorksheetFunction.VLookup(rname, Range("B1:C200"), 1, False)'ÊäÈëÐÕÃû¼´¿É
- '²éѯÔÚ¹«Ë¾ÖÐÊÇ·ñÓиÃÔ±¹¤ºÅÂ룬ûÓÐÔò»á³öÏÖ´íÎóerror1
- On Error GoTo error2
- Sheets("Óû§È¨ÏÞ").Activate '¼¤»î¡°Óû§È¨ÏÞ¡±±í
- pwd = Application.WorksheetFunction.VLookup(rname, Range("B1:C200"), 1, False)
- '²éѯÔÚ¡°Óû§È¨ÏÞ¡±±íÖÐÊÇ·ñÓÐÕâ¸öºÅÂëÁË£¬Ã»Óлá³öÏÖ´íÎóÓÃerror2´¦Àí
- MsgBox "¸ÃÓû§ÃûÒѾע²á£¬²»ÄÜÖظ´×¢²á" 'Èç¹ûû³ö´íÔò˵Ã÷´æÔÚ¸ÃÓû§Ãû
- Exit Sub
- error2: '³ö´íÔò±íʾÕâ¸öÓû§ÉÐδע²á
- count = Sheets("Óû§È¨ÏÞ").[B2].CurrentRegion.Rows.count
- Cells(count + 1, 2) = rname 'Ìí¼ÓÓû§Ãû
- Cells(count + 1, 3) = "Ò»°ãÓû§" 'Ìí¼ÓÓû§¼¶±ð
- Cells(count + 1, 4) = rpwd 'Ìí¼ÓÓû§ÃÜÂë
- MsgBox "×¢²á³É¹¦£¡" 'Ìáʾע²á³É¹¦
- Exit Sub
- error1: 'ûÓÐÔ±¹¤·¢Éú´íÎóʱ£¬½øÐÐÌáÐÑ
- MsgBox "¸Ã¹«Ë¾Ã»ÓÐÕâ¸öÔ±¹¤£¬Óû§ÃûÊäÈëÓÐÎó£¡"
- End Sub
مەزمۇننى كۆچۈرۈۋېلىش بۇنىڭدا خالىغان ئىسىم بولسا بولىدۇ.- Private Sub CommandButton1_Click()
- Dim count As Integer '¶¨Òåcount±íʾ¹¤×÷±íµ±Ç°Êý¾ÝÐÐÊý
- Dim rname As String, rpwd As String '¶¨Òårname±íʾע²áÃû£¬rpwd±íʾע²áÃÜÂë
- rname = TextBox1.Text 'È¡µÃÓû§×¢²áÃû
- rpwd = TextBox2.Text 'È¡µÃÓû§×¢²áÃÜÂë
- On Error GoTo error2
- Sheets("Óû§È¨ÏÞ").Activate '¼¤»î¡°Óû§È¨ÏÞ¡±±í
- pwd = Application.WorksheetFunction.VLookup(rname, Range("B1:C200"), 1, False)
- '²éѯÔÚ¡°Óû§È¨ÏÞ¡±±íÖÐÊÇ·ñÓÐÕâ¸öºÅÂëÁË£¬Ã»Óлá³öÏÖ´íÎóÓÃerror2´¦Àí
- MsgBox "¸ÃÓû§ÃûÒѾע²á£¬²»ÄÜÖظ´×¢²á" 'Èç¹ûû³ö´íÔò˵Ã÷´æÔÚ¸ÃÓû§Ãû
- Exit Sub
- error2: '³ö´íÔò±íʾÕâ¸öÓû§ÉÐδע²á
- count = Sheets("Óû§È¨ÏÞ").[B2].CurrentRegion.Rows.count
- Cells(count + 1, 2) = rname 'Ìí¼ÓÓû§Ãû
- Cells(count + 1, 3) = "Ò»°ãÓû§" 'Ìí¼ÓÓû§¼¶±ð
- Cells(count + 1, 4) = rpwd 'Ìí¼ÓÓû§ÃÜÂë
- MsgBox "×¢²á³É¹¦£¡" 'Ìáʾע²á³É¹¦
- End Sub
مەزمۇننى كۆچۈرۈۋېلىش قايتا قىلساممۇ بولمىدى، سەۋەبىنى بىلمىدىم. 1-قەۋەتتىكى قوشۇمچە ھۆججەت بىلەن سېلىشتۇرساڭلار بىلەلەيسىلەر. بۇ يازمىنى ئاخىرىدا Atush تەھرىرلىگەن. ۋاقتى 2011-8-14 11:37
|
|