sppk22

¦^´_ 10# GBKEE


    ÁÂÁÂGBKEE¤jªº«ü¾É..¤p§Ì·|¥Î¤ß¾Ç²ß,¯¬GBKEE¤j·sªº¤@¦~¯à¶¶¤ß¤Î·s¦~§Ö¼Ö

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

sppk22

¦^´_ 12# GBKEE


    ÁÂÁÂG¤jªº¦^ÂÐ
¯à§_¦b½Ð°Ý
(1)
=--(INDEX(¿é¤J°Ï!$B:$L,MATCH($AD$26,¿é¤J°Ï!$A:$A,),$AS$19)=INDEX({10,20,40,50,60,99,"2X","2A","2B"},COLUMN(A1)))
¤W­z¥[¤J"2X,2A,2B"¬°¦ó·|Åã¥Ü¿ù»~°T®§,½Ð°Ý³o­n¦p¦ó³B¸m©O???
(2)
·L½Õ«ö¶s¥i§_¦C¦L1~6µ§¶Ü??©Î3~5µ§ªº¦C¦L¶Ü??

sppk22

¦^´_ 12# GBKEE


    Case 15 '¥Ó½ÐÃþ§O
            If Target < 1 Or Target > 4 Then
                MsgBox "¥Ó½ÐÃþ§O ¶·¬° 1 - 4 ¤§¶¡ "
            Else
                Check_Box "AO24:AR24", Target.Value
            
            End If
        Case 16  '®Ö­ãºØÃþ
            If Target < 1 Or Target > 5 Then
                MsgBox "®Ö­ãºØÃþ ¶·¬° 1 - 5 ¤§¶¡ "
            Else
                Check_Box "AO25:AS25", Target.Value
            
            End If
¦³«ö·Ó¤j¤jªº«ü¥Ü.....¦ýCheck_Box "AO24:AR24", Target.Value¡BCheck_Box "AO25:AS25", Target.Value³£µL¤ÏÀ³....

sppk22

¦^´_  GBKEE


    Case 15 '¥Ó½ÐÃþ§O
            If Target < 1 Or Target > 4 Then
              ...
sppk22 µoªí©ó 2016-2-10 23:03

¤W­z¤x¸Ñ¨M..¤p§Ì¿é¤J¿ù­È.©Ò²£¥Í..©êºp

¦ý·L½Õ«ö¶s¥i§_¦C¦L1~6µ§¶Ü??©Î3~5µ§ªº¦C¦L¶Ü??
¥t·L½Õ«ö¶s..¦b§R°£ªí³æ®É..¥þ³¡¦^ÂШì²Ä1µ§..­n¦p¦ó³B¸m©O¡H¡H¡H

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°é¤¤

sppk22

¦^´_ 16# GBKEE

ÁÂÁ¤j¤jªºÁ¿­z¡A¤p§Ì·|§V¸ô¤W¸}¨B
    ¤p§Ì¦³°µ¤@­Óªí³æ..¬°¦h¶µ¿é¤J¤è¦¡¡A¦ý«e­z§¡¬°³æ¶µ¼Ò¦¡¡A¦ý¸I¨ì¦h¶µ´NµL³B²z
¦h¶µªí³æ¬°USERFORM24

sppk22

¦^´_ 17# sppk22


    ¤j¤j¯à§_À°¦£¨ó§U©O??

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