表單微調要如何作呢?

sppk22

多筆資料匯入至另一表單，在另一表單中可自由選擇任一筆
不知高手能否指導一下呢??

准提部林

給個參考, 請自行去套:
test登_v1.rar (253.12 KB)

下載次數: 7

2016-2-8 12:37

sppk22

回復 2# 准提部林


    謝謝大大的回覆，小弟權限不夠，不能下載，可否公佈程式碼

sppk22

回復 3# sppk22


    Vb方式表現行數會很多行嗎？小弟不才，初學者

准提部林

回復 3# sppk22

另一下載址：
http://www.funp.net/938049

純公式，這用vba反而礙手～～～

sppk22

回復 5# 准提部林


    =INDEX(Sheet1!$B:$L,MATCH(A27,Sheet1!$A:$A,),$AS$19)&""
謝謝大大耐心的回覆..在此恭賀大大新年快樂,今年一切種種順心如意,心想事成..
小弟對上述函數有點不太懂..可否解釋一下嗎???

sppk22

回復 6# sppk22

原輸入格式為    對象            07000

採取之後為    對象          7000       
原金額100,000   採樣後為100000
格式有點跑掉...要如何處置呢？？

准提部林

回復 7# sppk22


=INDEX(Sheet1!$B:$L,MATCH(A23,Sheet1!$A:$A,),$AS$19)&""
改成：
=INDEX(Sheet1!$B:$L,MATCH(A23,Sheet1!$A:$A,),$AS$19)

對像公式相同！！！

都是最基本簡單的公式，不懂也沒法說明，可進說明檔去了解！！！

sppk22

回復 8# 准提部林

謝謝大大耐心的說明指導..小弟巳明白
但還有另一個問題..試問
小弟在B3、B4...,現況試作二個USERFORM1、USERFORM2要如何點選到B~H欄位都能顯示USERFORM相對應之表單及欄位呢??

GBKEE

回復 9# sppk22
試試看
UserForm的程式碼

1. Private Sub TextBox1_Change()
   
2.     ActiveCell = TextBox1
   
3. End Sub

複製代碼

sheets("sheet1")模組的程式碼

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 '申請類別
    
31.             If Target < 1 Or Target > 4 Then
    
32.                 MsgBox "申請類別 須為 1 - 4 之間 "
    
33.             Else
    
34.                 Check_Box 申請類別, 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  '源.方式...請自行練習
    
45.         
    
46.         
    
47.     End Select
    
48. End Sub
    
49. Private Sub Check_Box(ByVal xTitle As String, ByVal No As Integer) '9999(A)表單中項目勾選的子程式
    
50.     Dim Ar(), E As Object
    
51.     With Sheet1 'SHEETS("999A")
    
52.         Select Case xTitle
    
53.             Case "申請類別"   '指定的項目置入陣列
    
54.                 Ar = Array(.Shapes("Check Box 830"), .Shapes("Check Box 829"), .Shapes("Check Box 827"), .Shapes("Check Box 828"))
    
55.                
    
56.             Case "核准種類"   '指定的項目置入陣列
    
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 "申請 ?? 程式碼有誤 "
    
61.                 Exit Sub
    
62.             
    
63.         End Select
    
64.     End With
    
65.     For Each E In Ar                   '所有指定的項目
    
66.         E.OLEFormat.Object.Value = 0   '取消
    
67.     Next
    
68.     Ar(No - 1).OLEFormat.Object.Value = 1  '勾選
    
69. End Sub

複製代碼