返回列表 上一主題 發帖

迴圈的問題

吳毅謙

帖子
9 
主題
3 
精華
0 
積分
19 
點名
0  
作業系統
Windows7 
軟體版本
Excel2003 
閱讀權限
10 
性別
男 
來自
台灣 
註冊時間
2013-7-27 
最後登錄
2013-9-7 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-8-25 10:30 | 只看該作者

迴圈的問題

小弟想做一個指令 按下去後會從sheets("a")抓取資料
然後跳出我所設的UserForm1 我在UserForm1裡設了一個ListBox
然後把所有資料內容新增至ListBox表單裡
而且新增的內容 如果我按第一個 他可以跳到我另一份資料表單 搜尋到相同的資料
另一份資料表單 只要從"C1"開始判斷 如果不相同 就往下15格再判斷也就是"C16"
一直判斷到一樣的然後使那個儲存格為選取中


放資料的sheet 從儲存格A1開始往下的儲存格都是資料
但有時我裡面的資料會做刪減
所以不能指定選取("a1:a100")新增至ListBox
我試著用Do Loop Until IsEmpty(ActiveCell.Value) = True
使他偵測到沒資料後跳出 但我不知道怎麼新增至ListBox
有沒有什麼方法可以滿足第1-6句的指令

小弟工作需要 拜託大大們幫幫忙了!!
收藏 分享

吳毅謙

帖子
9 
主題
3 
精華
0 
積分
19 
點名
0  
作業系統
Windows7 
軟體版本
Excel2003 
閱讀權限
10 
性別
男 
來自
台灣 
註冊時間
2013-7-27 
最後登錄
2013-9-7 
2#
發表於 2013-8-25 10:55 | 只看該作者
如果可以使我選取中的儲存格 往上一格 然後將此格到上面的儲存格選取
例如選取中"A100" 往上一格到A99 然後將A99到A1的資料選取)
並新增至ListBox表單那1-3句的部分就不用了
且我希望ListBox表單新增資料的排序為A1到A99
而不是A99-A1

TOP

吳毅謙

帖子
9 
主題
3 
精華
0 
積分
19 
點名
0  
作業系統
Windows7 
軟體版本
Excel2003 
閱讀權限
10 
性別
男 
來自
台灣 
註冊時間
2013-7-27 
最後登錄
2013-9-7 
3#
發表於 2013-8-25 11:16 | 只看該作者
本帖最後由 吳毅謙 於 2013-8-25 11:18 編輯

不好意思!! 超過3分鐘的帖子好像不能編輯
小弟已經成功把ListBox的資料弄出來了
希望大大們幫我弄出4-6句
已下是我1-3句所寫的程式碼
請大大參考!!
  1. Sheets("單價分析索引").Select
  2. j = Worksheets("單價分析索引").UsedRange.Rows.Count      
  3. Application.ScreenUpdating = False
  4. ActiveSheet.Range("a1").Activate
  5. For k = 1 To j
  6. With UserForm3.ListBox1
  7. .AddItem Selection
  8. End With
  9. ActiveCell.Offset(1, 0).Range("A1").Select
  10. Next k
  11. UserForm3.Show
複製代碼

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
4#
發表於 2013-8-25 14:50 | 只看該作者
回復 3# 吳毅謙
要附上範例檔案,才明暸你說的是什麼.
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。
返回列表 上一主題