- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¦^´_ 9# sppk22
¸Õ¸Õ¬Ý
UserFormªºµ{¦¡½X- Private Sub TextBox1_Change()
- ActiveCell = TextBox1
- End Sub
½Æ»s¥N½X sheets("sheet1")¼Ò²Õªºµ{¦¡½X- Private Sub Worksheet_SelectionChange(ByVal T As Range)
- Select Case T.Row
- Case 3
- If UserForm2.Visible Then Unload UserForm2
- With UserForm1
- .Label2 = Cells(2, T.Column)
- .TextBox1 = T.Value
- .Show (0)
- End With
- Case 4
- If UserForm1.Visible Then Unload UserForm1
- UserForm2.TextBox1 = T.Value
- UserForm2.Show (0)
- Case Else
- End Select
- End Sub
- Private Sub Worksheet_Change(ByVal Target As Range)
- Select Case Target.Row
- Case 3
- If UserForm2.Visible Then Unload UserForm2
- With UserForm1
- ' .Label2 = Cells(2, T.Column)
- .TextBox1 = Target.Value
- '.Show (0)
- End With
- Case 4
- If UserForm1.Visible Then Unload UserForm1
- UserForm2.TextBox1 = Target.Value
- 'UserForm2.Show (0)
- Case 15 '¥Ó½ÐÃþ§O
- If Target < 1 Or Target > 4 Then
- MsgBox "¥Ó½ÐÃþ§O ¶·¬° 1 - 4 ¤§¶¡ "
- Else
- Check_Box ¥Ó½ÐÃþ§O, Target.Value
-
- End If
- Case 16 '®ÖãºØÃþ
- If Target < 1 Or Target > 5 Then
- MsgBox "®ÖãºØÃþ ¶·¬° 1 - 5 ¤§¶¡ "
- Else
- Check_Box "®ÖãºØÃþ", Target.Value
-
- End If
- Case 22 '·½.¤è¦¡...½Ð¦Û¦æ½m²ß
-
-
- End Select
- End Sub
- Private Sub Check_Box(ByVal xTitle As String, ByVal No As Integer) '9999(A)ªí³æ¤¤¶µ¥Ø¤Ä¿ïªº¤lµ{¦¡
- Dim Ar(), E As Object
- With Sheet1 'SHEETS("999A")
- Select Case xTitle
- Case "¥Ó½ÐÃþ§O" '«ü©wªº¶µ¥Ø¸m¤J°}¦C
- Ar = Array(.Shapes("Check Box 830"), .Shapes("Check Box 829"), .Shapes("Check Box 827"), .Shapes("Check Box 828"))
-
- Case "®ÖãºØÃþ" '«ü©wªº¶µ¥Ø¸m¤J°}¦C
- Ar = Array(.Shapes("Check Box 10"), .Shapes("Check Box 12"), .Shapes("Check Box 14"), .Shapes("Check Box 39"), .Shapes("Check Box 13"))
-
- Case Else
- MsgBox "¥Ó½Ð ?? µ{¦¡½X¦³»~ "
- Exit Sub
-
- End Select
- End With
- For Each E In Ar '©Ò¦³«ü©wªº¶µ¥Ø
- E.OLEFormat.Object.Value = 0 '¨ú®ø
- Next
- Ar(No - 1).OLEFormat.Object.Value = 1 '¤Ä¿ï
- End Sub
½Æ»s¥N½X |
|