µù¥U
µn¿ý
º¶
½×¾Âª©³W
¸T¤î¦Cªí
»¡©ú
¦a¹Ï
¼Æ¦ì®Ñ»
¨p¤H®ø®§ (0)
¤½¦@®ø®§ (0)
½×¾Â¥ô°È (0)
¨t²Î®ø®§ (0)
¦n¤Í®ø®§ (0)
©«¤l®ø®§ (0)
³Â»¶®a±Ú°Q½×ª©ª©
»
Excelµ{¦¡°Ï
» ½Ð±Ð¤@Ósheets³æÓ¥[±Kªº°ÝÃD, ·Ð½Ð¤j¤j½ç±Ð
 
1
2
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
µo©«
½Ð±Ð¤@Ósheets³æÓ¥[±Kªº°ÝÃD, ·Ð½Ð¤j¤j½ç±Ð
GBKEE
µoµu®ø®§
¥[¬°¦n¤Í
GBKEE
·í«eÂ÷½u
UID
16
©«¤l
5923
¥DÃD
13
ºëµØ
1
¿n¤À
5986
ª÷¿ú
5986
ÂI¦W
0
§@·~¨t²Î
win10
³nÅ骩¥»
Office 2010
¾\ŪÅv
150
©Ê§O
¨k
¨Ó¦Û
¥xÆW°ò¶©
¦b½u®É¶¡
4811 ¤p®É
µù¥U®É¶¡
2010-5-1
³Ì«áµn¿ý
2022-1-23
¶W¯Åª©¥D
©«¤l
5923
¥DÃD
13
ºëµØ
1
¿n¤À
5986
ÂI¦W
0
§@·~¨t²Î
win10
³nÅ骩¥»
Office 2010
¾\ŪÅv
150
©Ê§O
¨k
¨Ó¦Û
¥xÆW°ò¶©
µù¥U®É¶¡
2010-5-1
³Ì«áµn¿ý
2022-1-23
11
#
¸õÂà¨ì
»
µoªí©ó 2011-12-23 18:27
|
¥u¬Ý¸Ó§@ªÌ
¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-12-23 18:30 ½s¿è
¦^´_
10#
joychiangg
¥[¤JThisWorkbook ªº¹w³]¨Æ¥ó
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
If Sh.Name <> "Sheet1" Then
Sh.Cells.Interior.ColorIndex = 2
Sh.Cells.Font.ColorIndex = 2
End If
End Sub
½Æ»s¥N½X
TOP
Hsieh
µoµu®ø®§
¥[¬°¦n¤Í
Hsieh
·í«eÂ÷½u
UID
3
©«¤l
4901
¥DÃD
44
ºëµØ
24
¿n¤À
4916
ª÷¿ú
4916
ÂI¦W
254
§@·~¨t²Î
Windows 7
³nÅ骩¥»
Office 20xx
¾\ŪÅv
150
©Ê§O
¨k
¨Ó¦Û
¥x¥_
¦b½u®É¶¡
4102 ¤p®É
µù¥U®É¶¡
2010-4-30
³Ì«áµn¿ý
2024-11-23
¶W¯Åª©¥D
©«¤l
4901
¥DÃD
44
ºëµØ
24
¿n¤À
4916
ÂI¦W
254
§@·~¨t²Î
Windows 7
³nÅ骩¥»
Office 20xx
¾\ŪÅv
150
©Ê§O
¨k
¨Ó¦Û
¥x¥_
µù¥U®É¶¡
2010-4-30
³Ì«áµn¿ý
2024-11-23
12
#
µoªí©ó 2011-12-23 23:58
|
¥u¬Ý¸Ó§@ªÌ
¥»©«³Ì«á¥Ñ Hsieh ©ó 2011-12-23 23:59 ½s¿è
¦^´_
10#
joychiangg
§R°£©Ò¦³¤u§@ªí¼Ò²Õ¤ºªºµ{§Ç
Thisworkbook¼Ò²Õ
Private Sub Workbook_Open()
Sheets("sheet1").Select
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
NoData Sh.Name
End Sub
½Æ»s¥N½X
¤@¯ë¼Ò²Õ
Sub NoData(sht As String)
With Sheets(sht)
If sht = "Sheet1" Then Exit Sub
.Cells.Font.ColorIndex = 2
.Cells.Interior.ColorIndex = 2
pwd = Application.InputBox("½Ð¿é¤J±K½X:")
Select Case sht
Case "¤¤¤s"
p = 40
Case "ªF¥x¥_"
p = 13
Case "«Ø¥_"
p = 48
End Select
If pwd = CStr(p) Or pwd = 6309 Then
Range("A1").Select
Cells.Interior.ColorIndex = xlNone
.Cells.Font.ColorIndex = xlColorIndexAutomatic
Else
MsgBox "¿é¤J¿ù»~¡A½Ð±q·s¿ï¾Ü!!"
Sheets("sheet1").Select
End If
End With
End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý
TOP
ÀR«ä¦Û¦b :
¦n¨Æn´£±o°_¡A¬O«Dn©ñ±o¤U¡A¦¨´N§O¤H§Y¬O¦¨´N¦Û¤v¡C
 
1
2
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
EXCEL±MÄÝ°Q½×°Ï
Excel£¸¯ë°Ï
Excelµ{¦¡°Ï
¶i¶¥À³¥Î±M°Ï
OFFICE ¨t¦C
Word
PowerPoint
Access
Office¤£¤À°Ï
µ{¦¡»y¨¥
VB »P VB.Net
C »P C#
Java »P J#
µ{¦¡³]p¤£¤À°Ï
¸ê®Æ®w
ORACLE
My SQL
MS SQL
ºô¶³]p
ASP »P ASP.NET
PHP
PHP+MySQL ¤Jªù¹ê§@
JavaScript
FLASH / ActionScript
HTM/ HTML/ CSS
ºô¶³]p¤£¤À°Ï
¹q¸£»P§@·~¨t²Î
¹q¸£¦UºØµwÅé°Q½×
¤@¯ë¹q¸£³nÅé°Q½×
½×¾Â¨Æ°È
ºÞ²z¤½§i
§ë¶D¤Ï¬M
·s¤â´ú¸Õ
·R ¡E ¥Í¬¡
¤½¯q§G§iÄæ
¥Í¬¡»P·P°Ê
[¦¬Âæ¹¥DÃD]
[Ãöª`¦¹¥DÃDªº·s¦^´_]
[³q¹L QQ¡BMSN ¤À¨Éµ¹ªB¤Í]
¥Ó½Ð¤Í±¡Ãì±µ
Facebook¯»µ·