GBKEE

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

GBKEE

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

GBKEE

¦^´_ 6# eigen
50±i¥þ³¡¦C¦L       ->2#µ{¦¡: ¥þ¿ï©Ò¦³¤ä²¼
«ü©w­¶¼Æªº¤è¦¡¦C¦L  ->2#µ{¦¡: ¥i¿ï¾Ü­n¦L¦Cªº¤ä²¼

GBKEE

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