½Ð±Ð¡A¦p¦óÁôÂÃÀx¦s®æ¤ºªº¹Ï¤ù¡H¦p¦ó§Ö³t«ü©w¦C¦L¶¡H
- ©«¤l
- 79
- ¥DÃD
- 33
- ºëµØ
- 0
- ¿n¤À
- 123
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- x64
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2013-10-24
- ³Ì«áµn¿ý
- 2024-3-28
|
½Ð±Ð¡A¦p¦óÁôÂÃÀx¦s®æ¤ºªº¹Ï¤ù¡H¦p¦ó§Ö³t«ü©w¦C¦L¶¡H
¥»©«³Ì«á¥Ñ GBKEE ©ó 2013-10-25 15:01 ½s¿è
½Ð±Ð excel °ª¤â¡A¦p¦óÁôÂÃÀx¦s®æ¤ºªº¹Ï¤ù¡H¦p¦ó§Ö³t«ü©w¦C¦L¶¡H
§Ú¥Î excel 2003 ³]p¤F¤@Ó¦C¦L¤ä²¼ªºµ{¦¡¡A±Æª©¡Bµ{¦¡¤j³£ok ¤F¡A¥i¥H¥Î¡A¦ý¬O¦Û¤v¹ï¦Û¤v¤£º¡·N
²{¦b¥d¦b´XÓ ²Ó¸`°ÝÃD¡G
¤@¡B¤ä²¼¦pªG¦b¥ª¤W¨¤¥[¤W±×½u¡A´N¤£¯àª½±µ»â²{ª÷¡An¥N¦¬
§Ú¦b¿é¤J¶³]p¤F¤@Óª¬ºA¡A§Ú¤£ª¾¹D«ç»òÁôÂóoӹϤù
=IF(INDEX(¿é¤J!$B$2:$B$51,A10,1)=1,Åã¥Ü¹Ï¤ù,¤£Åã¥Ü¹Ï¤ù)
½Ð°ª¤â«üÂI¡A«ç»ò°µ¨ì³o¤@ÂI¡C
¤G¡B¯à§_°µ¨ì·í§Ú¦b ¿é¤J¶ªº²Ä15¦æ®É¡A§Q¥Îvba ¸õ¨ì ¤ä²¼¶ªº²Ä14¶¡H
¤T¡B³oÓ¬O³]p¤â¤u³æ±i¦C¦L¡A©Ò¥H·|¤@±i¤@±i¦L¡A
¯uªº¾Þ§@®É¡A§Úµo²{
excel n¦C¦L«ü©w¶®É¡A«D±`Ãø³]©w¡C
¦³¨S¦³¤ñ¸û¦nªº«Øij¡H¨Ò¦p·í ´å¼Ð¦b ¿é¤J¶ªº ²Ä¥|¦æ¡]²Ä¤T±i¤ä²¼¡^¡A¥Ñ¥Ø«eªº´å¼Ð©Ò¦b¦ì¸m¡A³z¹L vba ±N¤ä²¼¶²Ä¤T¶¦C¦L¥X¨Ó¡H
½Ð°ª¤âµ¹Ó«Øij¡AÁÂÁÂ~~
ªþ¤W§Ú§¹¦¨90%ªº¦¨«~¡A½Ð°ª¤â«üÂI~~
https://dl.dropboxusercontent.co ... 5%A8_GD_1234500.xls |
|
|
|
|
|
|
- ©«¤l
- 79
- ¥DÃD
- 33
- ºëµØ
- 0
- ¿n¤À
- 123
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- x64
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2013-10-24
- ³Ì«áµn¿ý
- 2024-3-28
|
¥»©«³Ì«á¥Ñ eigen ©ó 2013-10-25 03:44 ½s¿è
¦^´_ 2# GBKEE
ÁÂÁ¡A§Ú°Ñ¦Ò§A´£¨Ñªº¸ê®Æ¡A§ï¦¨¤Uz¨âÓ¡A¤À§O¥[¤J§Ö³tÁä ctrl + b ,¦C¦L¤@±i¤ä²¼¡A ctrl+g ¦b¤ä²¼¶ ©M ¿é¤J ¶¡¤Á´«¡C
¸Ñ¨M¤F °ÝÃD ¤G©M ¤T¡A²{¦b¥u³Ñ¤U°ÝÃD¤@
§Ú¬O§Æ±æ¦b§ïÅÜ ª¬ºA®É¡A ¬Û¹ïÀ³¤ä²¼¤Wªº¹Ï´N·|§ïÅÜ¡A½Ð°Ý¸Ó¦p¦ó¹F¨ì³o¼Ëªº¥Øªº¡AÁÂÁÂ
°Ñ¦Ò¸ê®Æ¤w¸g×¥¿¡A²{¦b¥u³Ñ¤U°ÝÃD¤@ ¡A³Â·Ð´£ÂI¤@¤U~~~:loveliness:
https://dl.dropboxusercontent.com/u/12575824/%E6%94%AF%E7%A5%A8_GD_1234500.xls- Option Explicit
- Sub CheckPrint()
- '**********************************************
- '¦bSheets("¿é¤J")¤¤·Æ¹«¿ï¾Ün¦L¦Cªº¤ä²¼ ,°õ¦æ¦¹µ{¦¡
- '**********************************************
- Dim E As Range
- Sheets("¿é¤J").Activate
- For Each E In Selection.EntireRow
- If E.Row > 1 And E.Row < 52 And E.Range("B1") <> 0 And Application.CountA(E.Range("A1:G1")) = 7 Then
- With Sheets("¤ä²¼¶")
- .PrintOut From:=E.Row-1, To:=E.Row-1 '¦L¦C
- End With
- End If
- Next
- End Sub
- Sub CheckPreview()
- Dim E As Range
- If Sheets("¤ä²¼¶") Is ActiveSheet Then
- Sheets("¿é¤J").Activate
- else
- 'Sheets("¿é¤J").Activate
- For Each E In Selection.EntireRow
- If E.Row > 1 And E.Row < 52 And E.Range("B1") <> 0 And Application.CountA(E.Range("A1:G1")) = 7 Then
- Sheets("¤ä²¼¶").Activate
- Cells(601, 256).Select
- Cells((E.Row - 2) * 10 + 4, 4).Select
- End If
- Next
- End If
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 79
- ¥DÃD
- 33
- ºëµØ
- 0
- ¿n¤À
- 123
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- x64
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2013-10-24
- ³Ì«áµn¿ý
- 2024-3-28
|
¦^´_ 3# eigen
§Ú¦³¦bºô¸ô¤W§ä¨ìÅý¹Ï¤ù Visible /hide ªº¤èªk¡A¥Î button ´ú¸Õ¡A¯uªº¥i¥H
°ÝÃD¬On«ç»ò©M ¿é¤Jªº ª¬ºA³sµ²¡H¡]²×©ó§Ön±µªñ95%º¡·N«×¡^ «ü±Ï¤@¤U¡AÁÂÁÂ- Private Sub CommandButton1_Click()
- If Sheets("¤ä²¼¶").Shapes("¹Ï¤ù 1").Visible = msoFalse Then
- Sheets("¤ä²¼¶").Shapes("¹Ï¤ù 1").Visible = msoTrue
- Else
- Sheets("¤ä²¼¶").Shapes("¹Ï¤ù 1").Visible = msoFalse
- End If
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 79
- ¥DÃD
- 33
- ºëµØ
- 0
- ¿n¤À
- 123
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- x64
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2013-10-24
- ³Ì«áµn¿ý
- 2024-3-28
|
¦^´_ 5# GBKEE
·|³o¼Ë³]p¡A¬O¦Ò¶q¨ìÁöµM²{¦b¬O¤@±i¤@±i¦L
¦ý¬O¤é«á¦³¥i¯à¤@¦¸¦L¦h±i
©Ò¥H±Ä¥Î50±i¥þ³¡Åã¥Ü
¥Î«ú©w¶¼Æªº¤è¦¡¦C¦L |
|
|
|
|
|
|
- ©«¤l
- 79
- ¥DÃD
- 33
- ºëµØ
- 0
- ¿n¤À
- 123
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- x64
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2013-10-24
- ³Ì«áµn¿ý
- 2024-3-28
|
¦^´_ 7# GBKEE
¤@¡BGBKEE «D±`·PÁ§Aªº¨ó§U¡C·PÁ¦³ ³Â»¶®a±Ú³oÓ°Q½×°Ï¡A¦P¼ËªºªF¦è¥á¦b mobile01 §¹¥þ¨S¤H²z§Ú¡C
§Ú¹ïvbaªº¤F¸Ñ¨Ã¤£²`¤J¡A¥u¯àÃä°µÃä¾Ç¡A¦]¦¹§A¼gªºµ{¦¡¡A2# µ{¦¡ªº¥\¯à¡A§Ú´N¤£¤j¯à§¹¥þ¤F¸Ñ¡C
¤£¹LÁ|¤@¤Ï¤T¡A¨ì¬OÃø¤£Ë§Ú¡A©Ò¥H§Ú¦Û¤v§ï¼g¦¨§Ú»Ýnªº³¡¥÷¡C
¦Ü©ó 6# §A´£¨ìªº¥\¯à¡A§Ú·|¥h´ú¸Õ¬Ý¬Ý¡C
¤G¡B¦Ó §A´£¨Ñ 5# ªºPrivate Sub Worksheet_Change(ByVal Target As Range) ³oÓµ{§Ç
§Ú¤]¦³´ú¸Õ¡A§Úµo²{¦³¤@ӫܤjªºª¼ÂI¡A·í§Ú¤@¦¸¿ï¾Ü¦hÓ status ®É¡A¤@¦¸×§ï¡]¨Ò¦p¥þ³¡³]¬° 0 ©Î 1¡^
µ{¦¡·|¥X²{°ÝÃD¡C
«á¨Ó§Ú§ï¥Î- Function BankPic(switch As Integer, pic As Integer)
- If switch = 1 Then
- Sheets("¤ä²¼¶").Shapes("¹Ï¤ù " & pic).Visible = msoTrue
- Else
- Sheets("¤ä²¼¶").Shapes("¹Ï¤ù " & pic).Visible = msoFalse
- End If
- BankPic = 0
- End Function
½Æ»s¥N½X ¨Ã¦b¤ä²¼¶ ªº a8 ¥[¤J =bankpic(IF(INDEX(¿é¤J!$B$2:$B$51,H1,1)=1,1,0),H1)
¥Î³o¼Ëªº¤è¦¡¨Ó±±¨î¹Ï¤ù¬O§_Åã¥Ü
¤T¡B¨ú¤§©óºô¸ô¡A¥Î¤§©óºô¸ô¡A§Ú±N§Ú¥Ø«e§¹¦¨¬ù 98% ªºÀɮסA©M¤j®a¤À¨É¡C
³o¬O±N¾ã±i¤ä²¼¥»©î¶}¨Ó¥´¦Lªºµ{§Ç¡A±N ¤ä²¼¶ ¤Á´«¦¨¼Ð·Ç¼Ò¦¡¡A´N¥i¥H¬Ý¨ì§¹¾ãªºµe±
¦pªG¤£©î¤ä²¼¥»¡Aª½±µ¼¹¤ä²¼¨Ó¦L¡A¥un±N ¤ä²¼¶ªº A Äæ¾ãÓ§R°£¡A©Î½Õ¾ã¦C¦L½d³ò§Y¥i
³oÓµ{§Ç§Ú¬O¥ÎµØ«n»È¦æªº¤ä²¼¨Ó®Mªíªº¡A¦pªGn¥Î¦b¨ä¥¦®a¡A»Ýnµyµy½Õ¾ã¤@¤UÄæ¼e©M¦C°ª¡C
µ{¦¡¤W¦³¥[¤W«OÅ@¡A¨S¦³±K½X¡A¸Ñ°£«OÅ@´N¥i¥Hª½±µ×§ï¡C
ÀɮפU¸ü
https://dl.dropboxusercontent.com/u/12575824/%E9%96%8B%E6%94%AF%E7%A5%A8%20eigen.rar |
|
|
|
|
|
|
- ©«¤l
- 79
- ¥DÃD
- 33
- ºëµØ
- 0
- ¿n¤À
- 123
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- x64
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2013-10-24
- ³Ì«áµn¿ý
- 2024-3-28
|
¦^´_ 9# GBKEE
ÁÂÁÂ~~¤Ó·PÁ§A¤F~~~¡]¨S·Q¨ì¥Î excel ¦L¸ê®Æ¯à³o»ò¤è«K¡^ |
|
|
|
|
|
|