GBKEE

¦^´_ 9# sppk22
¸Õ¸Õ¬Ý
UserFormªºµ{¦¡½X

1. Private Sub TextBox1_Change()
   
2.     ActiveCell = TextBox1
   
3. End Sub

½Æ»s¥N½X

sheets("sheet1")¼Ò²Õªºµ{¦¡½X

1. Private Sub Worksheet_SelectionChange(ByVal T As Range)
   
2.     Select Case T.Row
   
3.         Case 3
   
4.             If UserForm2.Visible Then Unload UserForm2
   
5.             With UserForm1
   
6.                 .Label2 = Cells(2, T.Column)
   
7.                 .TextBox1 = T.Value
   
8.                 .Show (0)
   
9.             End With
   
10.         Case 4
    
11.             If UserForm1.Visible Then Unload UserForm1
    
12.                 UserForm2.TextBox1 = T.Value
    
13.                 UserForm2.Show (0)
    
14.         Case Else
    
15.     End Select
    
16. End Sub
    
17. Private Sub Worksheet_Change(ByVal Target As Range)
    
18.     Select Case Target.Row
    
19.         Case 3
    
20.             If UserForm2.Visible Then Unload UserForm2
    
21.             With UserForm1
    
22.                ' .Label2 = Cells(2, T.Column)
    
23.                 .TextBox1 = Target.Value
    
24.                 '.Show (0)
    
25.             End With
    
26.         Case 4
    
27.             If UserForm1.Visible Then Unload UserForm1
    
28.                 UserForm2.TextBox1 = Target.Value
    
29.                 'UserForm2.Show (0)
    
30.         Case 15 '¥Ó½ÐÃþ§O
    
31.             If Target < 1 Or Target > 4 Then
    
32.                 MsgBox "¥Ó½ÐÃþ§O ¶·¬° 1 - 4 ¤§¶¡ "
    
33.             Else
    
34.                 Check_Box ¥Ó½ÐÃþ§O, Target.Value
    
35.             
    
36.             End If
    
37.         Case 16  '®Ö­ãºØÃþ
    
38.             If Target < 1 Or Target > 5 Then
    
39.                 MsgBox "®Ö­ãºØÃþ ¶·¬° 1 - 5 ¤§¶¡ "
    
40.             Else
    
41.                 Check_Box "®Ö­ãºØÃþ", Target.Value
    
42.             
    
43.             End If
    
44.         Case 22  '·½.¤è¦¡...½Ð¦Û¦æ½m²ß
    
45.         
    
46.         
    
47.     End Select
    
48. End Sub
    
49. Private Sub Check_Box(ByVal xTitle As String, ByVal No As Integer) '9999(A)ªí³æ¤¤¶µ¥Ø¤Ä¿ïªº¤lµ{¦¡
    
50.     Dim Ar(), E As Object
    
51.     With Sheet1 'SHEETS("999A")
    
52.         Select Case xTitle
    
53.             Case "¥Ó½ÐÃþ§O"   '«ü©wªº¶µ¥Ø¸m¤J°}¦C
    
54.                 Ar = Array(.Shapes("Check Box 830"), .Shapes("Check Box 829"), .Shapes("Check Box 827"), .Shapes("Check Box 828"))
    
55.                
    
56.             Case "®Ö­ãºØÃþ"   '«ü©wªº¶µ¥Ø¸m¤J°}¦C
    
57.                 Ar = Array(.Shapes("Check Box 10"), .Shapes("Check Box 12"), .Shapes("Check Box 14"), .Shapes("Check Box 39"), .Shapes("Check Box 13"))
    
58.             
    
59.             Case Else
    
60.                 MsgBox "¥Ó½Ð ?? µ{¦¡½X¦³»~ "
    
61.                 Exit Sub
    
62.             
    
63.         End Select
    
64.     End With
    
65.     For Each E In Ar                   '©Ò¦³«ü©wªº¶µ¥Ø
    
66.         E.OLEFormat.Object.Value = 0   '¨ú®ø
    
67.     Next
    
68.     Ar(No - 1).OLEFormat.Object.Value = 1  '¤Ä¿ï
    
69. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 11# sppk22

¤U¸ü (136.94 KB)

2016-2-9 14:48

§A®Ö¨ú¤è¶ô¦³³sµ²¨ìÀx¦s®æ

¥i²¤Æ10#ªºµ{¦¡½X

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Select Case Target.Row
   
3.         Case 3
   
4.             If UserForm2.Visible Then Unload UserForm2
   
5.             With UserForm1
   
6.                ' .Label2 = Cells(2, T.Column)
   
7.                 .TextBox1 = Target.Value
   
8.                 '.Show (0)
   
9.             End With
   
10.         Case 4
    
11.             If UserForm1.Visible Then Unload UserForm1
    
12.                 UserForm2.TextBox1 = Target.Value
    
13.                 'UserForm2.Show (0)
    
14.         Case 15 '¥Ó½ÐÃþ§O
    
15.             If Target < 1 Or Target > 4 Then
    
16.                 MsgBox "¥Ó½ÐÃþ§O ¶·¬° 1 - 4 ¤§¶¡ "
    
17.             Else
    
18.                 Check_Box "AO24:AR24", Target.Value
    
19.             
    
20.             End If
    
21.         Case 16  '®Ö­ãºØÃþ
    
22.             If Target < 1 Or Target > 5 Then
    
23.                 MsgBox "®Ö­ãºØÃþ ¶·¬° 1 - 5 ¤§¶¡ "
    
24.             Else
    
25.                 Check_Box "AO25:AS25", Target.Value
    
26.             
    
27.             End If
    
28.         Case 22  '·½.¤è¦¡...½Ð¦Û¦æ½m²ß
    
29.         
    
30.         
    
31.     End Select
    
32. End Sub
    
33. Private Sub Check_Box(ByVal xRange As String, ByVal No As Integer)  '9999(A)ªí³æ¤¤¶µ¥Ø¤Ä¿ïªº¤lµ{¦¡
    
34.     With Sheet1.Range(xRange) '©Ò¦³«ü©w¶µ¥Øªº³sµ²·¡¦s®æ
    
35.         .Cells = ""           '²M°£=>False
    
36.         .Cells(1, No) = 1     '¤Ä¿ï=>True
    
37.     End With
    
38. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 15# sppk22


   

¦ý·L½Õ«ö¶s¥i§_¦C¦L1~6µ§¶Ü??©Î3~5µ§ªº¦C¦L¶Ü

À³¬O»s§@¤@ªí³æ¥i¿é¤J,²Ä¤@µ§ªº¼Æ­È,³Ì«á¤@µ§ªº¼Æ­È  
½T©w«á¶]°j°é¦L¦C: 9999(A)ªºAS19 ¨Ì§Ç¬°²Ä¤@µ§ªº¼Æ­È¨ì³Ì«á¤@µ§ªº¼Æ­È

¦p¦ó¦L¦C,¥i¦Û¦æ¿ý»s¥¨¶°½m²ß,¦A®M¤J°j°é¤¤

GBKEE

¦^´_ 18# sppk22
¸Õ¸Õ¬Ý

1. Private Sub Worksheet_SelectionChange(ByVal T As Range)
   
2.     If T.Count > 1 Then
   
3.         MsgBox T.Address & " ½d³ò¥²¶·¬O³æ¤@ªºÀx¦s®æ"
   
4.         Exit Sub
   
5.     End If
   
6.     '¦p¤£­n¤W­zªºµ{¦¡½X T ->T.Cells(1) ©Î T(1)
   
7.     Select Case T.Row 'T.Cells(1).Row
   
8.         Case 3
   
9.             If UserForm2.Visible Then Unload UserForm2
   
10.             With UserForm1
    
11.                 .Label2 = Cells(2, T.Column)
    
12.                 .TextBox1 = T.Value '->T.Cells(1) ©ÎT(1)
    
13.                 .Show (0)
    
14.             End With
    
15.         Case 4
    
16.             If UserForm1.Visible Then Unload UserForm1
    
17.                 UserForm2.TextBox1 = T.Value '->T.Cells(1) ©ÎT(1)
    
18.                 UserForm2.Show (0)
    
19.         Case 37
    
20.             If UserForm2.Visible Then Unload UserForm2
    
21.                 UserForm26.TextBox1 = T.Value '->T.Cells(1) ©ÎT(1)
    
22.                 UserForm26.Show (0)
    
23.         Case Else
    
24.     End Select
    
25. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 17# sppk22

¸Õ¸Õ¬Ý
UserForm26

1. Dim Rng As Range, xAr()
   
2. Private Sub UserForm_Initialize()
   
3.     Dim i As Integer
   
4.     With ComboBox1
   
5.         .AddItem "20¡@©Ð¦a«Ø¦a¡]¤£§t«Øª«¡^"
   
6.         .AddItem "21¡@ªÅ¦a"
   
7.         .AddItem "22¡@¹A¦a"
   
8.         .AddItem "23¡@ªL¦a"
   
9.         .AddItem "24¡@¾i´Þ¦a"
   
10.         .AddItem "25¡@¤g¦a¤Î«Øª«¡]¦í¦v¥Î¡^"
    
11.         .AddItem "26¡@¤g¦a¤Î¼t©Ð"
    
12.         .AddItem "27¡@¤£§t¤g¦a¤§«Øª«¡]¦í¦v¥Î¡^"
    
13.         .AddItem "28¡@¤£§t¤g¦a¤§¼t©Ð"
    
14.         .AddItem "29¡@°ªº¸¤Ò²y³õ"
    
15.         .AddItem "2X¡@¨ä¥L¤£°Ê²£"
    
16.         .AddItem "2A¡@¤g¦a¤Î«Øª«¡]°Ó·~¥Î¡^"
    
17.         .AddItem "2B¡@¤£§t¤g¦a¤§«Øª«¡]°Ó·~¥Î¡^"
    
18.     End With
    
19.      
    
20.     '  xAr = Array("20¡@©Ð¦a«Ø¦a¡]¤£§t«Øª«¡^", "21¡@ªÅ¦a","22¡@¹A¦a",,,,,)
    
21.     '  xAr = Sheets("¸ê®Æ").Range("A1:A15").Value
    
22.     ' ComboBox1.List = xAr
    
23.    
    
24.   
    
25.     Set Rng = Cells(37, ActiveCell.Column).Resize(13) '
    
26.     Debug.Print Rng.Address
    
27.     ReDim xAr(1 To Rng.Count)
    
28.     For i = 1 To Rng.Count
    
29.        Set xAr(i) = Controls("TextBox" & i)
    
30.        Controls("TextBox" & i) = Rng(i).Text   '¤u§@ªí¸ê®Æ¼g¨ì TextBox
    
31.     Next
    
32.     'TextBox8 = [B37]  '½Õ¾ã±q1¶}©l¹ïÀ³¨ì¤u§@ªí¤WªºÀx¦s®æ
    
33.     'TextBox9 = [B38]  '.....
    
34.    
    
35.    
    
36.     '*****©Î¬O«ü©wTextBox¦ì¸m¹ïÀ³¨ì¤u§@ªí¤WªºÀx¦s®æ
    
37.     'i = 0
    
38.     'For Each E In Array(5, 6, 9, 12, 1, 4, 2, 3)
    
39.     '    Set xAr(i) = Controls("TextBox" & E)
    
40.     '    Controls("TextBox" & E) = Rng(i + 1)
    
41.     'Next
    
42.     '***************************************
    
43.     '
    
44. End Sub
    
45. Private Sub CommandButton1_Click() '½T©w ¸ê®Æ¼g¨ì¤u§@ªí¤W
    
46.     For i = 1 To Rng.Count
    
47.         Rng(i) = xAr(i).Text
    
48.     Next
    
49. End Sub
    
50. 
    
51. Private Sub ComboBox1_Change()
    
52.     TextBox9 = Left(ComboBox1, 2)
    
53. End Sub
    
54. 
    
55. Private Sub OptionButton1_Click()
    
56.     If OptionButton1 = True Then
    
57.         TextBox7 = Cells(3, Rng.Column).Value
    
58.     Else
    
59.         TextBox7 = ""
    
60.     End If
    
61. End Sub

½Æ»s¥N½X