返回列表 上一主題 發帖

表單微調要如何作呢?

表單微調要如何作呢?

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

test登.rar (281.64 KB)

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

TOP

回復 2# 准提部林


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

TOP

回復 3# sppk22


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

TOP

回復 3# sppk22

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

純公式,這用vba反而礙手~~~

TOP

回復 5# 准提部林


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

TOP

本帖最後由 sppk22 於 2016-2-8 18:50 編輯

回復 6# sppk22

原輸入格式為    對象            07000

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

TOP

回復 7# sppk22


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

對像公式相同!!!

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

TOP

回復 8# 准提部林

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

test登_v2.rar (44.38 KB)

TOP

回復 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
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 人事的艱難與琢磨,就是一種考驗。
返回列表 上一主題