返回列表 上一主題 發帖

如何使 TextBox3.Text 為一個 TextBox(i).Text 來使用

yangjie

帖子
258 
主題
77 
精華
0 
積分
385 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-8 
最後登錄
2021-1-25 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-10-7 00:32 | 顯示全部帖子

如何使 TextBox3.Text 為一個 TextBox(i).Text 來使用

請教各位大大:
VBA中表單內某 Sub
    For i = 2 To lastrow1
            If Cells(i, 4) = TextName.Text Then
                TextBox3.Text = Sheets("學生資料").Cells(i, 6)
                TextBox4.Text = Sheets("學生資料").Cells(i, 7)
                TextBox5.Text = Sheets("學生資料").Cells(i, 8)
                TextBox6.Text = Sheets("學生資料").Cells(i, 9)
           endif
      next
      loop中  當找到第二個 Cells(i, 4)
       應如何使  Sheets("學生資料").Cells(i, 6)填入 TextBox7.Text
       也就是說如何使   TextBox3.Text  為一個  TextBox(i).Text  來使用
謝謝協助
收藏 分享

yangjie

帖子
258 
主題
77 
精華
0 
積分
385 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-8 
最後登錄
2021-1-25 
2#
發表於 2010-10-7 09:38 | 顯示全部帖子
謝謝GBKEE
   我的TextBox有80個
     陣列 Ar = Array(TextBox3, TextBox4, TextBox5....)
       是否一定要寫至TextBox80？
   Ar 設定語法
      Dim ar(80)  as  string   是否正確 需要
      或是 只要
      set  Ar = Array(TextBox3, TextBox4, TextBox5....)
         或是 只要
      Ar = Array(TextBox3, TextBox4, TextBox5....)

TOP

yangjie

帖子
258 
主題
77 
精華
0 
積分
385 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-8 
最後登錄
2021-1-25 
3#
發表於 2010-10-7 17:29 | 顯示全部帖子
太棒了 ，完全解決。
   其他Controls應是可如法泡製才對
   GBKEE，et5323 謝謝你門

TOP

        靜思自在 : 一個人的快樂．不是因為他擁有得多，而是因為他計較得少。
返回列表 上一主題