12
返回列表 上一主題 發帖

表單微調要如何作呢?

sppk22

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


    謝謝GBKEE大的指導..小弟會用心學習,祝GBKEE大新的一年能順心及新年快樂

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
12#
發表於 2016-2-9 14:49 | 只看該作者
回復 11# sppk22




你核取方塊有連結到儲存格

可簡化10#的程式碼
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.     Select Case Target.Row
  3.         Case 3
  4.             If UserForm2.Visible Then Unload UserForm2
  5.             With UserForm1
  6.                ' .Label2 = Cells(2, T.Column)
  7.                 .TextBox1 = Target.Value
  8.                 '.Show (0)
  9.             End With
  10.         Case 4
  11.             If UserForm1.Visible Then Unload UserForm1
  12.                 UserForm2.TextBox1 = Target.Value
  13.                 'UserForm2.Show (0)
  14.         Case 15 '申請類別
  15.             If Target < 1 Or Target > 4 Then
  16.                 MsgBox "申請類別 須為 1 - 4 之間 "
  17.             Else
  18.                 Check_Box "AO24:AR24", Target.Value
  19.             
  20.             End If
  21.         Case 16  '核准種類
  22.             If Target < 1 Or Target > 5 Then
  23.                 MsgBox "核准種類 須為 1 - 5 之間 "
  24.             Else
  25.                 Check_Box "AO25:AS25", Target.Value
  26.             
  27.             End If
  28.         Case 22  '源.方式...請自行練習
  29.         
  30.         
  31.     End Select
  32. End Sub
  33. Private Sub Check_Box(ByVal xRange As String, ByVal No As Integer)  '9999(A)表單中項目勾選的子程式
  34.     With Sheet1.Range(xRange) '所有指定項目的連結楚存格
  35.         .Cells = ""           '清除=>False
  36.         .Cells(1, No) = 1     '勾選=>True
  37.     End With
  38. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

sppk22

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


    謝謝G大的回覆
能否在請問
(1)
=--(INDEX(輸入區!$B:$L,MATCH($AD$26,輸入區!$A:$A,),$AS$19)=INDEX({10,20,40,50,60,99,"2X","2A","2B"},COLUMN(A1)))
上述加入"2X,2A,2B"為何會顯示錯誤訊息,請問這要如何處置呢???
(2)
微調按鈕可否列印1~6筆嗎??或3~5筆的列印嗎??

666.JPG (12.25 KB)

666.JPG

TOP

sppk22

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


    Case 15 '申請類別
            If Target < 1 Or Target > 4 Then
                MsgBox "申請類別 須為 1 - 4 之間 "
            Else
                Check_Box "AO24:AR24", Target.Value
            
            End If
        Case 16  '核准種類
            If Target < 1 Or Target > 5 Then
                MsgBox "核准種類 須為 1 - 5 之間 "
            Else
                Check_Box "AO25:AS25", Target.Value
            
            End If
有按照大大的指示.....但Check_Box "AO24:AR24", Target.Value、Check_Box "AO25:AS25", Target.Value都無反應....

TOP

sppk22

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


    Case 15 '申請類別
            If Target < 1 Or Target > 4 Then
              ...
sppk22 發表於 2016-2-10 23:03


上述巳解決..小弟輸入錯值.所產生..抱歉

但微調按鈕可否列印1~6筆嗎??或3~5筆的列印嗎??
另微調按鈕..在刪除表單時..全部回覆到第1筆..要如何處置呢？？？

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
16#
發表於 2016-2-14 13:46 | 只看該作者
回復 15# sppk22


   
但微調按鈕可否列印1~6筆嗎??或3~5筆的列印嗎

應是製作一表單可輸入,第一筆的數值,最後一筆的數值  
確定後跑迴圈印列: 9999(A)的AS19 依序為第一筆的數值到最後一筆的數值

如何印列,可自行錄製巨集練習,再套入迴圈中
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

sppk22

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

謝謝大大的講述，小弟會努路上腳步
    小弟有做一個表單..為多項輸入方式，但前述均為單項模式，但碰到多項就無處理
多項表單為USERFORM24

他.JPG (39.17 KB)

他.JPG

桌面.rar (197.42 KB)

TOP

sppk22

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


    大大能否幫忙協助呢??

33333333.JPG (58.16 KB)

33333333.JPG

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
19#
發表於 2016-2-16 07:19 | 只看該作者
回復 18# sppk22
試試看
  1. Private Sub Worksheet_SelectionChange(ByVal T As Range)
  2.     If T.Count > 1 Then
  3.         MsgBox T.Address & " 範圍必須是單一的儲存格"
  4.         Exit Sub
  5.     End If
  6.     '如不要上述的程式碼 T ->T.Cells(1) 或 T(1)
  7.     Select Case T.Row 'T.Cells(1).Row
  8.         Case 3
  9.             If UserForm2.Visible Then Unload UserForm2
  10.             With UserForm1
  11.                 .Label2 = Cells(2, T.Column)
  12.                 .TextBox1 = T.Value '->T.Cells(1) 或T(1)
  13.                 .Show (0)
  14.             End With
  15.         Case 4
  16.             If UserForm1.Visible Then Unload UserForm1
  17.                 UserForm2.TextBox1 = T.Value '->T.Cells(1) 或T(1)
  18.                 UserForm2.Show (0)
  19.         Case 37
  20.             If UserForm2.Visible Then Unload UserForm2
  21.                 UserForm26.TextBox1 = T.Value '->T.Cells(1) 或T(1)
  22.                 UserForm26.Show (0)
  23.         Case Else
  24.     End Select
  25. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
20#
發表於 2016-2-16 08:10 | 只看該作者
回復 17# sppk22

試試看
UserForm26
  1. Dim Rng As Range, xAr()
  2. Private Sub UserForm_Initialize()
  3.     Dim i As Integer
  4.     With ComboBox1
  5.         .AddItem "20　房地建地（不含建物）"
  6.         .AddItem "21　空地"
  7.         .AddItem "22　農地"
  8.         .AddItem "23　林地"
  9.         .AddItem "24　養殖地"
  10.         .AddItem "25　土地及建物（住宅用）"
  11.         .AddItem "26　土地及廠房"
  12.         .AddItem "27　不含土地之建物（住宅用）"
  13.         .AddItem "28　不含土地之廠房"
  14.         .AddItem "29　高爾夫球場"
  15.         .AddItem "2X　其他不動產"
  16.         .AddItem "2A　土地及建物（商業用）"
  17.         .AddItem "2B　不含土地之建物（商業用）"
  18.     End With
  19.      
  20.     '  xAr = Array("20　房地建地（不含建物）", "21　空地","22　農地",,,,,)
  21.     '  xAr = Sheets("資料").Range("A1:A15").Value
  22.     ' ComboBox1.List = xAr
  23.    
  24.   
  25.     Set Rng = Cells(37, ActiveCell.Column).Resize(13) '
  26.     Debug.Print Rng.Address
  27.     ReDim xAr(1 To Rng.Count)
  28.     For i = 1 To Rng.Count
  29.        Set xAr(i) = Controls("TextBox" & i)
  30.        Controls("TextBox" & i) = Rng(i).Text   '工作表資料寫到 TextBox
  31.     Next
  32.     'TextBox8 = [B37]  '調整從1開始對應到工作表上的儲存格
  33.     'TextBox9 = [B38]  '.....
  34.    
  35.    
  36.     '*****或是指定TextBox位置對應到工作表上的儲存格
  37.     'i = 0
  38.     'For Each E In Array(5, 6, 9, 12, 1, 4, 2, 3)
  39.     '    Set xAr(i) = Controls("TextBox" & E)
  40.     '    Controls("TextBox" & E) = Rng(i + 1)
  41.     'Next
  42.     '***************************************
  43.     '
  44. End Sub
  45. Private Sub CommandButton1_Click() '確定 資料寫到工作表上
  46.     For i = 1 To Rng.Count
  47.         Rng(i) = xAr(i).Text
  48.     Next
  49. End Sub

  51. Private Sub ComboBox1_Change()
  52.     TextBox9 = Left(ComboBox1, 2)
  53. End Sub

  55. Private Sub OptionButton1_Click()
  56.     If OptionButton1 = True Then
  57.         TextBox7 = Cells(3, Rng.Column).Value
  58.     Else
  59.         TextBox7 = ""
  60.     End If
  61. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 願要大、志要堅、氣要柔、心要細。
12
返回列表 上一主題