Michelle-W

回復 3# GBKEE


不好意思..這個才是正確檔案(上個回覆已超過時間，無法編輯...
麻煩了，謝謝
疑問-正確檔.rar (34.91 KB)

下載次數: 2

2017-7-20 09:21

GBKEE

回復 11# Michelle-W
試試看


疑問.zip (937.33 KB)

下載次數: 8

2017-7-20 20:35

Michelle-W

回復 12# GBKEE


  謝謝版主大大的指點
  另外有個問題想請教您，若是剛好有空格的話，空格以下的文字並不會顯示於ListBox
  請問應該如何調整code呀?

下載 (51.18 KB)

2017-7-21 10:09

Michelle-W

回復 12# GBKEE


   版主您好   
   資料方面A欄肯定一定有資料，BCD欄就不一定了
   想說迴圈可以加一個條件   B欄<>""&A欄<>""
   我嘗試修改，還是改不出來...
   若您有空，可以再麻煩您指點一下嗎? 謝謝

GBKEE

回復 14# Michelle-W
[想說迴圈可以加一個條件   B欄<>""&A欄<>""] 好像沒有必要吧

[若是剛好有空格的話，空格以下的文字並不會顯示於ListBox] 已修改了,篩選 空格 需用 "="

疑問.zip (28.05 KB)

下載次數: 11

2017-7-21 15:46

Michelle-W

回復 15# GBKEE


真的很感謝版主，還修改成能選填時能即時顯示
但目前我的資料量比較多，會稍微卡卡的...(
還是想說選擇什麼，再執行會好一點
如果以昨晚您回復的UserForm_Initialize寫法，也是可以加"="來做Listbox的讀取嗎?(能讀取空格以後的)

GBKEE

回復 16# Michelle-W
試試看

選擇篩選.zip (87.05 KB)

下載次數: 33

2017-7-24 09:00

1. Do
   
2.             If .Cells(R, i) <> "" Then  'i 為欄的位置
   
3.                 d(.Cells(R, i).Value) = ""
   
4.             Else
   
5.                 d("=") = ""
   
6.             End If
   
7.             R = R + 1
   
8.         Loop Until .Cells(R - 1, i).End(xlDown).Row = Rows.Count

複製代碼

Michelle-W

回復 17# GBKEE

謝謝版主大大一直指導
我比較少接觸這類程式碼，需要花點時間消化
非常感謝^^