麻辣家族討論版版 » Excel程式區 » 如何在表單顯示 Excel 某欄位的數值？

返回列表下一主題上一主題發帖

如何在表單顯示 Excel 某欄位的數值？

中學生 Rank: 2

帖子: 38
主題: 14
精華: 0
積分: 66
點名: 0
作業系統: Win7
軟體版本: Excel2003
閱讀權限: 20
性別: 男
註冊時間: 2012-7-16
最後登錄: 2013-9-3

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2012-7-16 18:13 | 只看該作者

如何在表單顯示 Excel 某欄位的數值？

我建立了一個表單，表單裡有兩個 textbox，輸入值的話會傳至 Sheet3 的儲存格！
算完之後，請問我要如何把直抓到表單裡？
（例如算出的值在 F5的話）

我是要用標籤去取值還是？

Private Sub CommandButton1_Click()
Sheet3.Range("G3").Value = 1.Text
Sheet3.Range("G10").Value = 2.Text
End Sub

找了一整個下午了~~~~
我是超級新手，因為老闆突然要我設計 Excel VBA，還請大大幫幫忙！

樓主熱帖

收藏

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

2^#

發表於 2012-7-17 10:08 | 只看該作者

回復 1# bowwow1975

請上傳你的範例~ 因為看不懂你下面的這兩句話
============================
算完之後，請問我要如何把直抓到表單裡？
（例如算出的值在 F5的話）
============================
所謂的算完後的值是什麼意思?? (你的值是怎麼算的,是什麼意義呢??)
所謂的值在F5又是什麼意思??

問題的描述要更清楚一些~ 會更好知道你的需求唷~

學習才能提升自己

中學生 Rank: 2

帖子: 38
主題: 14
精華: 0
積分: 66
點名: 0
作業系統: Win7
軟體版本: Excel2003
閱讀權限: 20
性別: 男
註冊時間: 2012-7-16
最後登錄: 2013-9-3

3^#

發表於 2012-7-17 11:30 | 只看該作者

回復 2# hugh0620

不好意思，我講詳細點！

具體就是，我在 excel 裡創建一個按鈕，開啟一個表單，然後表單裡有幾個 textbox，並增加一個執行按鈕！
執行後會把 textbox 的直傳至 Excel 儲存格裡，由 Excel 做運算，運算完後，我希望值可以 show 在表單上！

PS表單沒有關閉，只是想利用 Excel 做幕後運算而已！

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2012-7-17 14:17 | 只看該作者

回復 3# bowwow1975
並增加一個執行按鈕！

Private Sub CommandButton1_Click() '這是表單上的按鈕
With Sheet3
.Range("G3").Value = TextBox1.Text '無法用數字命名表單控制項
.Range("G10").Value = TextBox2.Text '如 1 ,2 -> 1.TEXT ,2.TEXT 不接受
Label1 = .Range("F5").Text '表單可新增一Label控制項接收 F5
End With
End Sub

複製代碼

中學生 Rank: 2

帖子: 38
主題: 14
精華: 0
積分: 66
點名: 0
作業系統: Win7
軟體版本: Excel2003
閱讀權限: 20
性別: 男
註冊時間: 2012-7-16
最後登錄: 2013-9-3

5^#

發表於 2012-7-17 14:37 | 只看該作者

感謝版主~~~又學到了一個 With 的用法！
話說回來 Label 的 (name) 欄位好像不給更改？

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2012-7-17 15:00 | 只看該作者

回復 5# bowwow1975

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

7^#

發表於 2012-7-17 15:01 | 只看該作者

回復 5# bowwow1975

表單的架構圖

'表單內的程式碼
Private Sub CommandButton1_Click() 'Add
A = Sheet1.Range("A65536").End(xlUp).Offset(1, 0).Row
With UserForm1
Sheet1.Range("A" & A).Select
Sheet1.Range("A" & A) = .TextBox2.Text
.TextBox1.Text = A
End With
End Sub
Private Sub CommandButton2_Click() '上一筆
With UserForm1
K = .TextBox1.Value - 1
If K < 3 Then
MsgBox "已經到資料的第一筆"
Sheet1.Range("A3").Select
.TextBox1.Text = 3
Else
Sheet1.Range("A" & K).Select
.TextBox1.Text = Sheet1.Range("A" & K).Row
.TextBox2.Text = Sheet1.Range("A" & K)
End If
End With
End Sub
Private Sub CommandButton3_Click() '下一筆
With UserForm1
K = .TextBox1.Value + 1
S = Sheet1.Range("A65536").End(xlUp).Row
If K > S Then
MsgBox "已經到資料的最後一筆"
Sheet1.Range("A" & S).Select
.TextBox1.Text = S
Else
Sheet1.Range("A" & K).Select
.TextBox1.Text = Sheet1.Range("A" & K).Row
.TextBox2.Text = Sheet1.Range("A" & K)
End If
End With
End Sub
Private Sub UserForm_Activate() '執行UserForm時的各項預設
'===== 初始的UserForm的設定======
With UserForm1
.CommandButton1.Caption = "Add"
.CommandButton2.Caption = "上一筆"
.CommandButton3.Caption = "下一筆"
.Label1.Caption = "現在是第"
.Label2.Caption = "列資料"
.TextBox1.Text = Sheet1.Range("A3").Row
.TextBox1.Enabled = False
.TextBox2.Text = Sheet1.Range("A3")
End With
'=================================
End Sub

複製代碼

學習才能提升自己

中學生 Rank: 2

帖子: 38
主題: 14
精華: 0
積分: 66
點名: 0
作業系統: Win7
軟體版本: Excel2003
閱讀權限: 20
性別: 男
註冊時間: 2012-7-16
最後登錄: 2013-9-3

8^#

發表於 2012-7-17 15:23 | 只看該作者

回復 6# GBKEE

版主~~~我真的想切腹自殺~~~我發誓，我也知道從那裡改！
但是剛剛就是不給改~~~

然後等你回覆之後，我又去改~~~~變成可以改了.............................

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

9^#

發表於 2012-8-9 17:27 | 只看該作者

回復 8# bowwow1975

那是正常的...
有時候是因為你執行中不能改或執行中有錯誤也不會給改

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

中學生 Rank: 2

帖子: 6
主題: 1
精華: 0
積分: 55
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
註冊時間: 2016-4-23
最後登錄: 2020-4-19

10^#

發表於 2016-12-3 23:21 | 只看該作者

感謝大大們的指導教學

靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。

返回列表下一主題上一主題