- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
10#
發表於 2016-2-9 11:28
| 只看該作者
回復 9# sppk22
試試看
UserForm的程式碼- Private Sub TextBox1_Change()
- ActiveCell = TextBox1
- End Sub
複製代碼 sheets("sheet1")模組的程式碼- 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 '申請類別
- If Target < 1 Or Target > 4 Then
- MsgBox "申請類別 須為 1 - 4 之間 "
- Else
- Check_Box 申請類別, 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 '源.方式...請自行練習
-
-
- End Select
- End Sub
- Private Sub Check_Box(ByVal xTitle As String, ByVal No As Integer) '9999(A)表單中項目勾選的子程式
- Dim Ar(), E As Object
- With Sheet1 'SHEETS("999A")
- Select Case xTitle
- Case "申請類別" '指定的項目置入陣列
- Ar = Array(.Shapes("Check Box 830"), .Shapes("Check Box 829"), .Shapes("Check Box 827"), .Shapes("Check Box 828"))
-
- Case "核准種類" '指定的項目置入陣列
- 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 "申請 ?? 程式碼有誤 "
- Exit Sub
-
- End Select
- End With
- For Each E In Ar '所有指定的項目
- E.OLEFormat.Object.Value = 0 '取消
- Next
- Ar(No - 1).OLEFormat.Object.Value = 1 '勾選
- End Sub
複製代碼 |
|