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

ªí³æ·L½Õ­n¦p¦ó§@©O?

¦^´_ 10# GBKEE


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

TOP

¦^´_ 11# sppk22




§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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

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

666.JPG (12.25 KB)

666.JPG

TOP

¦^´_ 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¤ÏÀ³....

TOP

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

TOP

¦^´_ 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°é¤¤
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

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

¥L.JPG (39.17 KB)

¥L.JPG

®à­±.rar (197.42 KB)

TOP

¦^´_ 17# sppk22


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

33333333.JPG (58.16 KB)

33333333.JPG

TOP

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 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. Private Sub ComboBox1_Change()
  51.     TextBox9 = Left(ComboBox1, 2)
  52. End Sub

  53. Private Sub OptionButton1_Click()
  54.     If OptionButton1 = True Then
  55.         TextBox7 = Cells(3, Rng.Column).Value
  56.     Else
  57.         TextBox7 = ""
  58.     End If
  59. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ­ì½Ì§O¤H´N¬Oµ½«Ý¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD