12
返回列表 上一主題 發帖

表單微調要如何作呢?

sppk22

帖子
26 
主題
3 
精華
0 
積分
34 
點名
0  
作業系統
XP 
軟體版本
2000 
閱讀權限
10 
註冊時間
2013-8-1 
最後登錄
2020-12-26 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-2-7 22:20 | 只看該作者

表單微調要如何作呢?

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

test登.rar (281.64 KB)

收藏 分享

准提部林

帖子
2833 
主題
10 
精華
0 
積分
2889 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-16 
2#
發表於 2016-2-8 12:37 | 只看該作者
給個參考, 請自行去套:
test登_v1.rar (253.12 KB)

TOP

sppk22

帖子
26 
主題
3 
精華
0 
積分
34 
點名
0  
作業系統
XP 
軟體版本
2000 
閱讀權限
10 
註冊時間
2013-8-1 
最後登錄
2020-12-26 
3#
發表於 2016-2-8 16:09 | 只看該作者
回復 2# 准提部林


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

TOP

sppk22

帖子
26 
主題
3 
精華
0 
積分
34 
點名
0  
作業系統
XP 
軟體版本
2000 
閱讀權限
10 
註冊時間
2013-8-1 
最後登錄
2020-12-26 
4#
發表於 2016-2-8 16:13 | 只看該作者
回復 3# sppk22


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

TOP

准提部林

帖子
2833 
主題
10 
精華
0 
積分
2889 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-16 
5#
發表於 2016-2-8 17:23 | 只看該作者
回復 3# sppk22

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

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

TOP

sppk22

帖子
26 
主題
3 
精華
0 
積分
34 
點名
0  
作業系統
XP 
軟體版本
2000 
閱讀權限
10 
註冊時間
2013-8-1 
最後登錄
2020-12-26 
6#
發表於 2016-2-8 18:24 | 只看該作者
回復 5# 准提部林


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

TOP

sppk22

帖子
26 
主題
3 
精華
0 
積分
34 
點名
0  
作業系統
XP 
軟體版本
2000 
閱讀權限
10 
註冊時間
2013-8-1 
最後登錄
2020-12-26 
7#
發表於 2016-2-8 18:48 | 只看該作者
本帖最後由 sppk22 於 2016-2-8 18:50 編輯

回復 6# sppk22

原輸入格式為    對象            07000

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

TOP

准提部林

帖子
2833 
主題
10 
精華
0 
積分
2889 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-16 
8#
發表於 2016-2-8 19:56 | 只看該作者
回復 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

sppk22

帖子
26 
主題
3 
精華
0 
積分
34 
點名
0  
作業系統
XP 
軟體版本
2000 
閱讀權限
10 
註冊時間
2013-8-1 
最後登錄
2020-12-26 
9#
發表於 2016-2-8 21:17 | 只看該作者
回復 8# 准提部林

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

test登_v2.rar (44.38 KB)

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
10#
發表於 2016-2-9 11:28 | 只看該作者
回復 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

        靜思自在 : 站在半路，比走到目標更辛苦。
12
返回列表 上一主題