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

[µo°Ý] ¤U©Ô¦¡¿ï³æ, ¨Ì¾Ú¿ï¾Üªº¶µ¥Ø¤£¦P, °õ¦æ¤£¦Pªº¥¨¶°

[µo°Ý] ¤U©Ô¦¡¿ï³æ, ¨Ì¾Ú¿ï¾Üªº¶µ¥Ø¤£¦P, °õ¦æ¤£¦Pªº¥¨¶°

¥Ø«e­n»s§@¤@­Ó¤U©Ô¦¡¿ï³æ, ·í¤U©Ô¦¡¿ï³æ¿ï¾ÜA¶µ¥Ø, ´N°õ¦æA¥¨¶°, ¿ï¾ÜB¶µ¥Ø´N°õ¦æB¥¨¶°,
A¥¨¶°©MB¥¨¶°³£¥u¬OÅã¥Ü©MÁôÂïS©wªºÄæ¦ì, ¥Ø«e¥d¦b»s§@¤U©Ô¦¡¿ï³æ«á¥u¯à°õ¦æ¤@­Ó¥¨¶°,
¤£ºÞ¬O¥Î¸ê®ÆÅçÃÒÁÙ¬OActiveX»s§@ªº¤U©Ô¦¡¿ï³æ³£¥Î¦P¼Ëªº°ÝÃD,
¦³¬ã¨s©M¬d¸ß¨Ï¥Îworksheet_change¨Ó¼¶¼gµ{¦¡, ÁÙ¬OµLªk°õ¦æ¦h­Ó¥¨¶°, ¹Ï¸Ñ©M¥¨¶°¦p¤U½Ð¦U¦ì«e½ú«üÂI, ÁÂÁÂ

Â^¨ú.JPG
2018-12-14 08:12


Private Sub Workbook_SheetChange(ByVal Target As Range)
Target = Range("A1")
Applicion.Run AMP_100
Applicion.Run Pre_Qual
Applicion.Run GPU
Applicion.Run Class1

End Sub
_______________________________________________________________________________
Sub AMP_100()
Rows("1:1619").EntireRow.Hidden = False

End Sub
________________________________________________________________________________
Sub Pre_Qual()
Rows("1:1619").EntireRow.Hidden = False
Rows("7:1377").EntireRow.Hidden = True
Rows("1404:1619").EntireRow.Hidden = True

End Sub
_________________________________________________________________________________
Sub GPU()
Rows("7:1619").EntireRow.Hidden = True
Rows("7").EntireRow.Hidden = False
Rows("178").EntireRow.Hidden = False
Rows("216").EntireRow.Hidden = False
Rows("226").EntireRow.Hidden = False
Rows("228").EntireRow.Hidden = False
Rows("334").EntireRow.Hidden = False
Rows("378").EntireRow.Hidden = False
Rows("341").EntireRow.Hidden = False
Rows("487").EntireRow.Hidden = False
Rows("494").EntireRow.Hidden = False
Rows("531").EntireRow.Hidden = False
Rows("640").EntireRow.Hidden = False
Rows("647").EntireRow.Hidden = False
Rows("684").EntireRow.Hidden = False
Rows("793").EntireRow.Hidden = False
Rows("800").EntireRow.Hidden = False
Rows("837").EntireRow.Hidden = False
Rows("946").EntireRow.Hidden = False
Rows("953").EntireRow.Hidden = False
Rows("990").EntireRow.Hidden = False
Rows("1033").EntireRow.Hidden = False
Rows("1040").EntireRow.Hidden = False
Rows("1080").EntireRow.Hidden = False
Rows("1132").EntireRow.Hidden = False
Rows("1139").EntireRow.Hidden = False

End Sub
____________________________________________________________________________
Sub Class1()

Rows("7:1619").EntireRow.Hidden = True
Rows("7").EntireRow.Hidden = False
Rows("226").EntireRow.Hidden = False
Rows("1185").EntireRow.Hidden = False
Rows("226").EntireRow.Hidden = False
Rows("1193").EntireRow.Hidden = False
Rows("1378").EntireRow.Hidden = False
Rows("1404").EntireRow.Hidden = False
Rows("1425").EntireRow.Hidden = False
Rows("1432").EntireRow.Hidden = False
Rows("1454").EntireRow.Hidden = False
Rows("1472").EntireRow.Hidden = False
Rows("1492").EntireRow.Hidden = False
Rows("1495").EntireRow.Hidden = False
Rows("1533").EntireRow.Hidden = False
Rows("1558").EntireRow.Hidden = False
ªü¬v~~~

¥i¥H¤À§P³B²z, ½Ð¤W¶ÇÀÉ®×!!!

TOP

¦^´_ 2# ­ã´£³¡ªL


    ©êºp Àɮצb¤½¥q¹q¸£¸Ì­±
    §Ú¼È®É§@¤@­ÓÃþ¦üªºÀɮפW¶Ç
     ½ÐÀ°¦£¬Ý¬Ý, ÁÂÁ«e½ú ¤U©Ô¦¡¿ï³æ¥¨¶°.zip (16.3 KB)
ªü¬v~~~

TOP

activex ªº combobox  ¤£´N¤º«Ø change  °Æµ{¦¡¶Ü?

¦b¤u§@ªí1´¡¤J¤@­Óactivex combobox
§âµ{¦¡½X©ñ¦b¤u§@ªí1¡A¥ýrun¤@¦¸test¥[¤J´ú¸Õ¥Î¸ê®Æ
Sub test()
'¥[¤J´ú¸Õ¥Î¸ê®Æ
ComboBox1.List = Array("1", "2", "3")
'¹w³]­È
ComboBox1.ListIndex = 0

End Sub

Private Sub ComboBox1_Change()
      
    Select Case ComboBox1.Value
        Case Is = 1
            test1
        Case Is = 2
            test2
        Case Is = 3
            test3
    End Select
   
End Sub

Sub test1()
    Range("a1") = "a"
End Sub

Sub test2()
    Range("a1") = "b"
End Sub

Sub test3()
    Range("a1") = "c"
End Sub

TOP

¤u§@ªí°Ï:
Private Sub ComboBox1_Change()
Application.Run ComboBox1.Text
End Sub

¤@¯ë¼Ò²Õ°Ï:
Sub AMP_100()
Range("A1:A1619").EntireRow.Hidden = False
End Sub

Sub Pre_Qual()
Range("A1:A1619").EntireRow.Hidden = False
Range("A7:A1377,A1404:A1619").EntireRow.Hidden = True
End Sub

Sub GPU()
Range("A1:A1619").EntireRow.Hidden = True
Range("A7,A178,A216,A226,A228,A334,A378,A341,A487,A494,A531,A640,A647,A684,A793,A800," & _
       "A837,A946,A953,A990,A1033,A1040,A1080,A1132,A1139").EntireRow.Hidden = False
End Sub

Sub Class1()
Range("A7:A1619").EntireRow.Hidden = True
Range("A7,A226,A1185,A1193,A1378,A1404,A1425,A1432,A1454,A1472,A1492," & _
      "A1495,A1533,A1558").EntireRow.Hidden = False
End Sub

TOP

¦^´_ 4# quickfixer


    ÁÂÁ«e½ú¦^ÂЧڸոլÝ
ªü¬v~~~

TOP

¦^´_ 5# ­ã´£³¡ªL

   ·PÁ«e½ú¦^ÂЧڸոլÝ
ªü¬v~~~

TOP

        ÀR«ä¦Û¦b : ª¾ÃÑ­n¥Î¤ßÅé·|¡A¤~¯àÅܦ¨¦Û¤vªº´¼¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD