返回列表 上一主題 發帖

[發問] 如何讓迴圈所讀取到的資料都顯示過? (G大,謝謝你)

av8d

帖子
703 
主題
276 
精華
0 
積分
1005 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-29 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2012-7-24 23:04 | 只看該作者

[發問] 如何讓迴圈所讀取到的資料都顯示過? (G大,謝謝你)

本帖最後由 av8d 於 2012-7-27 10:43 編輯

For i = 1 To 18
    If Me.Controls("OptionButton" & i).Value = True Then   
    TextBox1 = i & "購買"
End Sub

如果i=1,3,6,8,15,16
我該如何讓TextBox1 顯示1,3,6,8,15,16購買
收藏 分享

GBKEE

帖子
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-26 13:39 | 只看該作者
回復 3# av8d
多看 VBA的說明可了解
End 屬性 請參閱套用至範例特定傳回 Range 物件，該物件代表包含來源範圍之區域結尾處的儲存格。等於按 END+向上鍵、END+向下鍵、END+向左鍵或 END+向右鍵。唯讀 Range 物件。
expression.End(Direction)
expression    必選。此運算式會傳回 [套用至] 清單中的其中一個物件。
Direction    必選的 XlDirection。要移往的方向。
XlDirection 可以是這些 XlDirection 常數之一。
xlDown      ->4
xlToRight  ->2
xlToLeft     ->1
xlUp           ->3
Sheets("點餐").Cells(Rows.Count, "A").End(3)(2, 1).Resize(1, 7)=>Sheets("點餐").Cells(Rows.Count, "A").End(xlUp).Cells(2, 1).Resize(1, 7)

TOP

av8d

帖子
703 
主題
276 
精華
0 
積分
1005 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-29 
3#
發表於 2012-7-25 19:25 | 只看該作者
本帖最後由 av8d 於 2012-7-25 23:13 編輯

回復 2# GBKEE


    謝謝G大~

我可否順便詢問一下~
Sheets("點餐").Cells(Rows.Count, "A").End(3)(2, 1).Resize(1, 7)
3 2 1 1 7 分別是說明地方的?我只知道7好像是共7欄的意思?

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2012-7-25 16:30 | 只看該作者
回復 1# av8d
  1. For i = 1 To 18
  2.         If Me.Controls("OptionButton" & i).Value = True Then
  3.             TextBox1 = IIf(TextBox1 <> "", "," & i, i)
  4.         End If
  5.     Next
  6.     TextBox1 = TextBox1 & "購買"
複製代碼

TOP

        靜思自在 : 太陽光大、父母恩大、君子量大，小人氣大。
返回列表 上一主題