sppk22

¦^´_ 10# GBKEE


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

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

sppk22

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

ÁÂÁ¤j¤j­@¤ßªº»¡©ú«ü¾É..¤p§Ì¤x©ú¥Õ
¦ýÁÙ¦³¥t¤@­Ó°ÝÃD..¸Õ°Ý
¤p§Ì¦bB3¡BB4...,²{ªp¸Õ§@¤G­ÓUSERFORM1¡BUSERFORM2­n¦p¦óÂI¿ï¨ìB~HÄæ¦ì³£¯àÅã¥ÜUSERFORM¬Û¹ïÀ³¤§ªí³æ¤ÎÄæ¦ì©O??

­ã´£³¡ªL

¦^´_ 7# sppk22


=INDEX(Sheet1!$B:$L,MATCH(A23,Sheet1!$A:$A,),$AS$19)&""
§ï¦¨¡G
=INDEX(Sheet1!$B:$L,MATCH(A23,Sheet1!$A:$A,),$AS$19)

¹ï¹³¤½¦¡¬Û¦P¡I¡I¡I

³£¬O³Ì°ò¥»Â²³æªº¤½¦¡¡A¤£À´¤]¨Sªk»¡©ú¡A¥i¶i»¡©úÀÉ¥h¤F¸Ñ¡I¡I¡I

sppk22

¦^´_ 6# sppk22

­ì¿é¤J®æ¦¡¬°    ¹ï¶H            07000

±Ä¨ú¤§«á¬°    ¹ï¶H          7000       
­ìª÷ÃB100,000   ±Ä¼Ë«á¬°100000
®æ¦¡¦³ÂI¶]±¼...­n¦p¦ó³B¸m©O¡H¡H

sppk22

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


    =INDEX(Sheet1!$B:$L,MATCH(A27,Sheet1!$A:$A,),$AS$19)&""
ÁÂÁ¤j¤j­@¤ßªº¦^ÂÐ..¦b¦¹®¥¶P¤j¤j·s¦~§Ö¼Ö,¤µ¦~¤@¤ÁºØºØ¶¶¤ß¦p·N,¤ß·Q¨Æ¦¨..
¤p§Ì¹ï¤W­z¨ç¼Æ¦³ÂI¤£¤ÓÀ´..¥i§_¸ÑÄÀ¤@¤U¶Ü???

­ã´£³¡ªL

¦^´_ 3# sppk22

¥t¤@¤U¸ü§}¡G
http://www.funp.net/938049

¯Â¤½¦¡¡A³o¥Îvba¤Ï¦Óê¤â¡ã¡ã¡ã

sppk22

¦^´_ 3# sppk22


    Vb¤è¦¡ªí²{¦æ¼Æ·|«Ü¦h¦æ¶Ü¡H¤p§Ì¤£¤~¡Aªì¾ÇªÌ

sppk22

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


    ÁÂÁ¤j¤jªº¦^ÂСA¤p§ÌÅv­­¤£°÷¡A¤£¯à¤U¸ü¡A¥i§_¤½§Gµ{¦¡½X

­ã´£³¡ªL

µ¹­Ó°Ñ¦Ò, ½Ð¦Û¦æ¥h®M:
testµn_v1.rar (253.12 KB)

¤U¸ü¦¸¼Æ: 7

2016-2-8 12:37