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

½Ð±Ð¡A¦p¦óÁôÂÃÀx¦s®æ¤ºªº¹Ï¤ù¡H¦p¦ó§Ö³t«ü©w¦C¦L­¶¡H

½Ð±Ð¡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¤£¯àª½±µ»â²{ª÷¡A­n¥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

¦^´_ 1# eigen
  1. Option Explicit
  2. Sub Ex()
  3.     '**********************************************
  4.     '¦bSheets("¿é¤J")¤¤·Æ¹«¿ï¾Ü­n¦L¦Cªº¤ä²¼ ,°õ¦æ¦¹µ{¦¡
  5.     '**********************************************
  6.     Dim E As Range
  7.     Sheets("¿é¤J").Activate   
  8.     For Each E In Selection.EntireRow   
  9.         If E.Row > 1 And E.Range("B1") <> 0 And Application.CountA(E.Range("A1:G1")) = 7 Then
  10.             'E.Row > 1                                      ->²Ä2¦C¥H«áªº¸ê®Æ
  11.             'E.Range("B1") <> 0                             ->§@¼o
  12.             'Application.CountA(E.Range("A1:G1")) = 7       ->¤ä²¼¸ê®Æ­n»ô¥þ
  13.             With Sheets("¤ä²¼­¶")
  14.                 .Range("A1:G10").Name = "Print_Area"         '¦L¦C½d³ò(¤@±i¤ä²¼:¥i¥ý½Õ¾ã¦L¦C¯È±iªº¤j¤p)
  15.                 .[A4] = E.Range("E1")                        '¶ñ¤W :¤ä²¼ªº¸ê®Æ
  16.                 .[A5] = E.Range("C1")
  17.                 .[A6] = E.Range("C1")
  18.                 .[A7] = E.Range("F1")
  19.                 .[A9] = E.Range("G1").Text
  20.                 .[D3] = E.Range("D1")
  21.                 .[D4] = exchange(E.Range("F1"))
  22.                 .[C5] = E.Range("F1")
  23.                 .[E2].Resize(, 3) = Split(E.Range("E1").Text, "/")
  24.                 .Pictures.Visible = True                                'Åã¥Ü ¹Ï¤ù
  25.                 If E.Range("B1") <> 1 Then .Pictures.Visible = False    'ÁôÂà ¹Ï¤ù
  26.                 .PrintOut                                               '¦L¦C
  27.             End With
  28.         End If
  29.    Next
  30. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ eigen ©ó 2013-10-25 03:44 ½s¿è

¦^´_ 2# GBKEE


ÁÂÁ¡A§Ú°Ñ¦Ò§A´£¨Ñªº¸ê®Æ¡A§ï¦¨¤U­z¨â­Ó¡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
  1. Option Explicit
  2. Sub CheckPrint()
  3.         '**********************************************
  4.         '¦bSheets("¿é¤J")¤¤·Æ¹«¿ï¾Ü­n¦L¦Cªº¤ä²¼ ,°õ¦æ¦¹µ{¦¡
  5.         '**********************************************
  6.         Dim E As Range
  7.         Sheets("¿é¤J").Activate   
  8.         For Each E In Selection.EntireRow   
  9.                 If E.Row > 1 And E.Row < 52 And E.Range("B1") <> 0 And Application.CountA(E.Range("A1:G1")) = 7 Then
  10.                         With Sheets("¤ä²¼­¶")
  11.                                 .PrintOut From:=E.Row-1, To:=E.Row-1        '¦L¦C
  12.                         End With
  13.                 End If
  14.         Next
  15. End Sub
  16. Sub CheckPreview()
  17.         Dim E As Range
  18.         If Sheets("¤ä²¼­¶") Is ActiveSheet Then
  19.                   Sheets("¿é¤J").Activate
  20.         else
  21.                 'Sheets("¿é¤J").Activate
  22.                 For Each E In Selection.EntireRow
  23.                         If E.Row > 1 And E.Row < 52 And E.Range("B1") <> 0 And Application.CountA(E.Range("A1:G1")) = 7 Then
  24.                                 Sheets("¤ä²¼­¶").Activate
  25.                                 Cells(601, 256).Select
  26.                                 Cells((E.Row - 2) * 10 + 4, 4).Select
  27.                         End If
  28.                 Next
  29.         End If
  30. End Sub
½Æ»s¥N½X

TOP

¦^´_ 3# eigen

§Ú¦³¦bºô¸ô¤W§ä¨ìÅý¹Ï¤ù Visible /hide ªº¤èªk¡A¥Î button ´ú¸Õ¡A¯uªº¥i¥H

°ÝÃD¬O­n«ç»ò©M ¿é¤Jªº ª¬ºA³sµ²¡H¡]²×©ó§Ö­n±µªñ95%º¡·N«×¡^ «ü±Ï¤@¤U¡AÁÂÁÂ
  1. Private Sub CommandButton1_Click()
  2. If Sheets("¤ä²¼­¶").Shapes("¹Ï¤ù 1").Visible = msoFalse Then
  3.     Sheets("¤ä²¼­¶").Shapes("¹Ï¤ù 1").Visible = msoTrue
  4. Else
  5.     Sheets("¤ä²¼­¶").Shapes("¹Ï¤ù 1").Visible = msoFalse
  6. End If

  7. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2013-10-27 16:01 ½s¿è

¦^´_ 3# eigen
2# ªºµ{¦¡½X ¥u»Ý¦b¤ä²¼­¶³]­p¤@±i¤ä²¼,´N¥i¦L¦C¿é¤Jªí¤¤©Ò¦³ªº¤ä²¼
§A»¡: §Ú¬O§Æ±æ¦b§ïÅÜ ª¬ºA®É¡A ¬Û¹ïÀ³¤ä²¼¤Wªº¹Ï´N·|§ïÅÜ
2#³o¨â¦æµ{¦¡½X ¥i¨ÌBÄ檺ª¬ºA,¬Û¹ïÀ³¤ä²¼¤Wªº¹Ï´N·|§ïÅÜ
  1. .Pictures.Visible = True                                'Åã¥Ü ¹Ï¤ù
  2. If E.Range("B1") <> 1 Then .Pictures.Visible = False    'ÁôÂà ¹Ï¤ù
½Æ»s¥N½X
¨Ì§AÀɮקïÅܪ¬ºA®É,ªºµ{¦¡½X.
¿é¤J¤u§@ªí¼Ò²Õªº¹w³]¨Æ¥óµ{¦¡½X
  1. Option Explicit
  2. Private Sub Worksheet_Change(ByVal Target As Range)
  3.     If Target.Column = 2 And (Target.Row >= 2 And Target.Row <= 51) Then
  4.         Sheets("¤ä²¼­¶").Shapes("¹Ï¤ù " & Target.Row - 1).Visible = False
  5.         If Target = 1 Then Sheets("¤ä²¼­¶").Shapes("¹Ï¤ù " & Target.Row - 1).Visible = True
  6.     End If
  7. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 5# GBKEE
·|³o¼Ë³]­p¡A¬O¦Ò¶q¨ìÁöµM²{¦b¬O¤@±i¤@±i¦L
¦ý¬O¤é«á¦³¥i¯à¤@¦¸¦L¦h±i
©Ò¥H±Ä¥Î50±i¥þ³¡Åã¥Ü
¥Î«ú©w­¶¼Æªº¤è¦¡¦C¦L

TOP

¦^´_ 6# eigen
50±i¥þ³¡¦C¦L       ->2#µ{¦¡: ¥þ¿ï©Ò¦³¤ä²¼
«ü©w­¶¼Æªº¤è¦¡¦C¦L  ->2#µ{¦¡: ¥i¿ï¾Ü­n¦L¦Cªº¤ä²¼
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 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

«á¨Ó§Ú§ï¥Î
  1. Function BankPic(switch As Integer, pic As Integer)
  2.         If switch = 1 Then
  3.             Sheets("¤ä²¼­¶").Shapes("¹Ï¤ù " & pic).Visible = msoTrue
  4.         Else
  5.             Sheets("¤ä²¼­¶").Shapes("¹Ï¤ù " & pic).Visible = msoFalse
  6.         End If
  7.             BankPic = 0
  8. 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¥u­n±N ¤ä²¼­¶ªº A Äæ¾ã­Ó§R°£¡A©Î½Õ¾ã¦C¦L½d³ò§Y¥i

³o­Óµ{§Ç§Ú¬O¥ÎµØ«n»È¦æªº¤ä²¼¨Ó®Mªíªº¡A¦pªG­n¥Î¦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

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2013-10-27 16:01 ½s¿è

¦^´_ 8# eigen
¦A¸Õ¸Õ¬Ý¬Ý
  1. Option Explicit
  2. Private Sub Worksheet_Change(ByVal Target As Range)
  3.     Dim E As Range
  4.     For Each E In Target.Cells
  5.         If E.Column = 2 And (E.Row >= 2 And E.Row <= 51) Then
  6.             Sheets("¤ä²¼­¶").Shapes("¹Ï¤ù " & E.Row - 1).Visible = False
  7.             If E = 1 Then Sheets("¤ä²¼­¶").Shapes("¹Ï¤ù " & E.Row - 1).Visible = True
  8.         End If
  9.     Next
  10. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 9# GBKEE

ÁÂÁÂ~~¤Ó·PÁ§A¤F~~~¡]¨S·Q¨ì¥Î excel ¦L¸ê®Æ¯à³o»ò¤è«K¡^

TOP

        ÀR«ä¦Û¦b : ¤Ñ¤W³Ì¬ü¬O¬P¬P¡A¤H¥Í³Ì¬ü¬O·Å±¡¡C
ªð¦^¦Cªí ¤W¤@¥DÃD