[發問] 可自定表單 全文檢索?

user999

可自定表單 全文檢索某一攔位的資料?
請教各位專家,謝謝!

dechiuan999

謝謝二位版主大大。

GBKEE版主大大提供的移動複製→建立副本
是一個好方法。也是小弟第一次學習到
如何使用到它的方式。更重要的是
它會出現警語。因此，也就是說
如果要避免此問題的出現，小弟想到有二個方式
一、
就是在MDB資料庫取出之前，利用SQL語法
針對取出之貨名引用MID就可限制取出字串長度
二、
對工作表COPY至另一工作表之後訧可排除255字元了。


HSIEH大大：
下列說明：
之所以陣列會出現錯誤，是因為儲存格內容字串長度超過256個字元所導致
A886含有276個字元
超出了EXCEL的規格限制

小弟不明白的地方是，
如果儲存格有字串長度的限制，
為何還能由資料庫轉入呢？
.Range("a1").CopyFromRecordset mRst

感恩二位大大。

Hsieh

回復 33# dechiuan999
之所以陣列會出現錯誤，是因為儲存格內容字串長度超過256個字元所導致
A886含有276個字元
超出了EXCEL的規格限制

GBKEE

回復 33# dechiuan999
一、複製TEST工表並且   
如圖 複製

下載 (48.34 KB)

2012-6-3 20:07

dechiuan999

謝謝版主大大。
小弟依版主大大的提示
做了如下的改變
一、複製TEST工表並且
將工作表命名為"IV"
set mSht1=worksheets("IV")
二、改為
For Each E In  mSht1.Range("a1:d900").Columns(1).Cells
三、以a1:d900的範圍為主執行結果如下：
輸入一個字元時
可執行→F、J、Q、V、Z
不可執行→A、C、E、G、H、L、M、N、O、R、T、U、W、Y
            '執行階段錯誤：13 型態不符合
查詢結果空白→B、D、I、K、P、S、X
四、小弟也使用轉換函數CSTR將
第一欄做一轉換也是徒勞無功。

因此，複製TEST工表並且
將工作表命名為"IV"
小弟也實在看不出有何改變
之呢？

依小弟的資質，我想是無法領
會版主的提示呢？
盼版主大大能再明示其差異之處。

感恩版主大大。

GBKEE

回復 31# c_c_lai
Option Compare 陳述式必須出現在模組裏，且必須在任何程序之前。
你的程式碼在那裡 那裡的程序如果有 Option Compare  的設定為主

c_c_lai

回復 7# GBKEE
請問 Option Compare Text 要加在 ThisWorkbook 還是  UserForm1 內？

GBKEE

回復 27# dechiuan999
複製 test 工作表 會有答案的
設訂 mSht1=複製的工作表  可正常運作   

For Each E In mSht1.Range("a1", mSht1.Range("a1:d900")).Columns(1).Cells     '測試到 800 的位置是 OK
-> For Each E In  mSht1.Range("a1:d900").Columns(1).Cells

dafa

回復 26# GBKEE


    感謝g大又再幫了我一次

dafa

回復 27# dechiuan999


    我剛剛試了一下程式沒問題
好像你的資料第886列有問題
你把886列刪除試試看
什麼原因我不知道
可能要g大幫你解釋了
小弟才疏學淺只能幫到這裡了