帖子: 193
主題: 29
精華: 0
積分: 222
點名: 0
作業系統: Windows7
軟體版本: OFFICE2013
閱讀權限: 20
註冊時間: 2015-9-18
最後登錄: 2023-4-29

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2015-11-14 01:47 | 顯示全部帖子

[發問] UserForm表單相關問題

小弟嘗試撰寫一個庫存管理系統
希望使用者操作介面就在Main 這個資料欄就好
我目前寫出來的程式碼需要跳到FMC Input Database 資料欄才能執行
Q1: 請問大大們如何修改呢?
Q2: 請問輸入完畢點選ok後能自動關閉表單嗎? 程式碼如何加呢? 我加了exit sub 似乎無法關閉
Q3: 請問Cancel按鈕如何寫入功能(關閉表單)
Q4: 請問我的判斷式寫在後面對嗎? 我執行後,假設我輸入漏掉其中一項,資料庫是顯示漏掉那項空白 ,其他是有資料的

如果修改完成!! 在放上來跟大家分享!!! 但我資料庫的建立是用最笨的方式...(新手)

目前如果在Main執行會跳出來的錯誤

我的Userform配置圖

Private Sub CommandButton1_Click()
Sheets("FMC Input Database").Range("A2").Select
Selection.End(xlDown).Select
If OptionButton1.Value = True Then Sheets("FMC Input Database").Range("A" & ActiveCell.Cells.Row + 1) = "201"
If OptionButton2.Value = True Then Sheets("FMC Input Database").Range("A" & ActiveCell.Cells.Row + 1) = "Setup Return"
If OptionButton3.Value = True Then Sheets("FMC Input Database").Range("A" & ActiveCell.Cells.Row + 1) = "261"
Sheets("FMC Input Database").Range("B" & ActiveCell.Cells.Row + 1) = TextBox1.Text
Sheets("FMC Input Database").Range("C" & ActiveCell.Cells.Row + 1) = TextBox2.Text
Sheets("FMC Input Database").Range("D" & ActiveCell.Cells.Row + 1) = TextBox3.Text
Sheets("FMC Input Database").Range("E" & ActiveCell.Cells.Row + 1) = TextBox4.Text
Sheets("FMC Input Database").Range("F" & ActiveCell.Cells.Row + 1) = TextBox5.Text
If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Or TextBox5.Text = "" Or OptionButton1.Value = False And OptionButton2.Value = False And OptionButton3.Value = False Then
MsgBox ("資料未輸入完整，『 * 』必須輸入" & vbCrLf & _
"Data is not enter the full , 『 * 』 you must fill ")
Exit Sub
End If
End Sub

複製代碼

樓主熱帖

v03586

中學生 Rank: 2

帖子: 193
主題: 29
精華: 0
積分: 222
點名: 0
作業系統: Windows7
軟體版本: OFFICE2013
閱讀權限: 20
註冊時間: 2015-9-18
最後登錄: 2023-4-29

2^#

發表於 2015-11-14 01:51 | 顯示全部帖子

Q5: 以上表單輸入後想在G欄加上輸入時間 =Now() , 請問要加在哪裡呢?

TOP

v03586

中學生 Rank: 2

帖子: 193
主題: 29
精華: 0
積分: 222
點名: 0
作業系統: Windows7
軟體版本: OFFICE2013
閱讀權限: 20
註冊時間: 2015-9-18
最後登錄: 2023-4-29

3^#

發表於 2015-11-15 09:12 | 顯示全部帖子

附上檔案
Q4 問題已解決!!! 條件式要放在最前面!!!
剩下問題請求協助

Ink Substrate management.rar (330.03 KB)

TOP

v03586

中學生 Rank: 2

帖子: 193
主題: 29
精華: 0
積分: 222
點名: 0
作業系統: Windows7
軟體版本: OFFICE2013
閱讀權限: 20
註冊時間: 2015-9-18
最後登錄: 2023-4-29

4^#

發表於 2015-11-15 09:57 | 顯示全部帖子

稍早爬文亂試
終於將Q2~Q5 解決

剩下Q1問題要麻煩這裡高手協助

我目前寫出來的程式碼需要跳到FMC Input Database 資料欄才能執行
希望使用者操作介面就在Main 這個資料欄就好
請問程式碼如何做修改呢?

Private Sub CommandButton1_Click()
Sheets("FMC Input Database").Range("A2").Select
Selection.End(xlDown).Select
If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Or TextBox5.Text = "" Or OptionButton1.Value = False And OptionButton2.Value = False And OptionButton3.Value = False Then
MsgBox ("資料未輸入完整，『 * 』必須輸入" & vbCrLf & _
"Data is not enter the full , 『 * 』 you must fill ")
Exit Sub
End If
If OptionButton1.Value = True Then Sheets("FMC Input Database").Range("A" & ActiveCell.Cells.Row + 1) = "201"
If OptionButton2.Value = True Then Sheets("FMC Input Database").Range("A" & ActiveCell.Cells.Row + 1) = "Setup Return"
If OptionButton3.Value = True Then Sheets("FMC Input Database").Range("A" & ActiveCell.Cells.Row + 1) = "261"
Sheets("FMC Input Database").Range("B" & ActiveCell.Cells.Row + 1) = TextBox1.Text
Sheets("FMC Input Database").Range("C" & ActiveCell.Cells.Row + 1) = TextBox2.Text
Sheets("FMC Input Database").Range("D" & ActiveCell.Cells.Row + 1) = TextBox3.Text
Sheets("FMC Input Database").Range("E" & ActiveCell.Cells.Row + 1) = TextBox4.Text
Sheets("FMC Input Database").Range("F" & ActiveCell.Cells.Row + 1) = TextBox5.Text
Sheets("FMC Input Database").Range("G" & ActiveCell.Cells.Row + 1) = Now()
UserForm1.Hide
End Sub

複製代碼

TOP

v03586

中學生 Rank: 2

帖子: 193
主題: 29
精華: 0
積分: 222
點名: 0
作業系統: Windows7
軟體版本: OFFICE2013
閱讀權限: 20
註冊時間: 2015-9-18
最後登錄: 2023-4-29

5^#

發表於 2015-11-16 08:01 | 顯示全部帖子

回復 5# 准提部林

感謝大大的指導!!!把我攏長且複雜的程式碼,簡短又同效果的呈現!!!
但是我還是想了解一下!!避免日後有相同的問題~~
因為我之前的方式都要跳到對應的資料表才能執行
請問是這段程式碼讓資料表不會跳過去嗎?

Sheets("FMC Input Database").Cells(Rows.Count, "A").End(xlUp)(2).Resize(1, 7) = Arr

TOP

v03586

中學生 Rank: 2

帖子: 193
主題: 29
精華: 0
積分: 222
點名: 0
作業系統: Windows7
軟體版本: OFFICE2013
閱讀權限: 20
註冊時間: 2015-9-18
最後登錄: 2023-4-29

6^#

發表於 2015-11-18 00:25 | 顯示全部帖子

回復 v03586
試試看
GBKEE 發表於 2015-11-16 11:28

又多學一招...學程式真的跟講話一樣
一樣結果, 但可以用很多種意思表達!!!!! 感謝指導:)

TOP