Board logo

標題: 一個表單輸入問題請協助, [打印本頁]
作者: 周大偉    時間: 2018-3-24 18:32     標題: 一個表單輸入問題請協助,

前輩們:安好
一個表單輸入問題請協助, 附檔, 先行謝謝.
[attach]28469[/attach]
作者: Hsieh    時間: 2018-3-26 14:54

回復 1# 周大偉

表單欄位跟表格欄位對不上
不開啟資料表檔案如何去寫入?這部分只能說是在背景開啟
作者: 周大偉    時間: 2018-3-26 21:44

回復 2# Hsieh
感謝版大提示，現時正在上班，明天中午下班，到時整理補上，祝願版大身體健康，快樂。
作者: 周大偉    時間: 2018-3-27 14:39

版大好,
現把檔案整理重新上傳, 謝謝協助, 感恩..
[attach]28475[/attach]
作者: Kubi    時間: 2018-3-28 09:33

回復 4# 周大偉
建議如下：
1.既然是用於員工輸入表單，那裏面就應使用TextBox作為輸入資料物件，不應使用ListBox作為輸入來源。
2.過程中都無須開啟員工資料表這檔案部分：
不知道不要開啟檔案的用意如何？若要比對姓名是否存在、資料排序及存取檔案資料，勢必要開啟該檔案才能盡功。
作者: 周大偉    時間: 2018-3-28 10:43

回復 5# Kubi
謝謝大大教導，我是很膚淺，原來是text Box才符合，
如果排序是必須開啟員工資料檔案，這排序是可以不要，但仍希望能如遇有相同姓名時會作提示，你輸入姓名已存在之類提示，感謝前輩。
作者: Hsieh    時間: 2018-3-28 15:08

回復 6# 周大偉

試試
    [attach]28481[/attach]
作者: 周大偉    時間: 2018-3-28 19:35

回復 7# Hsieh
謝謝版大無私協助
小弟有個問題請教, 在表單如姓名中輸入姓名後, 本已設定中文輸入, 但到了地址輸入時便跳回英文輸入,
如何設定中文輸入後便不會跳回英文輸入, 謝謝
祝願大大及樓上回應樓主身體健康, 快樂..
作者: Kubi    時間: 2018-3-28 21:40

回復 8# 周大偉
底下網頁或許能找到答案。
https://tw.answers.yahoo.com/question/index?qid=20080802000010KK03789
作者: 周大偉    時間: 2018-3-28 22:15

回復 9# Kubi
謝謝，感恩。
作者: 周大偉    時間: 2018-6-3 14:59

本帖最後由 周大偉 於 2018-6-3 15:07 編輯

回復 7# Hsieh
Hsieh版大，好
先行謝過版大
小弟想修改這表單, 但功力淺, 請協助, 謝謝!!
內有明細說明,
作者: Hsieh    時間: 2018-6-4 14:45

回復 11# 周大偉
  1. Private Sub Label6_Click()
  2. Application.ScreenUpdating = False
  3. With Workbooks.Open(ThisWorkbook.Path & "\員工資料表.xlsx")
  4. If ComboBox1 <> "" Then
  5.    With .Sheets(ComboBox1.Text)
  6.      Set Rng = .Columns("A").Find(TextBox1, lookat:=xlWhole)
  7.      If Rng Is Nothing Then
  8.         .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(, 4) = Array(TextBox1, TextBox2, TextBox3, TextBox4) '未有資料，新建
  9.         Else
  10.         yn = MsgBox("姓名已存在，是否覆蓋?", vbYesNo)
  11.            If yn = 6 Then
  12.               Rng.Resize(, 4) = Array(TextBox1, TextBox2, TextBox3, TextBox4) '覆蓋原資料
  13.               Else
  14.               k = Application.CountIf(.Columns("A"), Rng & "*")
  15.               .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(, 4) = Array(Rng & k, TextBox2, TextBox3, TextBox4) '新建資料
  16.            End If
  17.     End If
  18.     End With
  19.     .Close 1
  20.     End If
  21. End With
  22. End Sub
複製代碼
作者: 周大偉    時間: 2018-6-4 18:38

回復 12# Hsieh
感謝版大,
再次協助,
祝願健康
作者: 周大偉    時間: 2018-9-9 10:53

本帖最後由 周大偉 於 2018-9-9 10:59 編輯

回復 12# Hsieh
Hsieh版大,早晨
感謝早前回應這篇發問, 而這程式已用了一段時間, 版大這程式碼中可否加入資料輸入后自行排序效杲, 希望再得到版大回應..
謝謝!!祝周日快樂,,

[attach]29368[/attach]



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)