user999

帖子: 76
主題: 33
精華: 0
積分: 116
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 新竹
註冊時間: 2011-9-29
最後登錄: 2020-8-25

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2011-12-6 16:33 | 只看該作者

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

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

test2.rar (484.89 KB)

樓主熱帖

max

dechiuan999

中學生 Rank: 2

帖子: 231
主題: 55
精華: 0
積分: 293
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: KEELUNG
註冊時間: 2010-7-24
最後登錄: 2018-8-28

34^#

發表於 2012-6-4 04:33 | 只看該作者

本帖最後由 dechiuan999 於 2012-6-4 08:35 編輯

謝謝二位版主大大。

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

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

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

感恩二位大大。

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

33^#

發表於 2012-6-3 23:07 | 只看該作者

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

學海無涯_不恥下問

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

32^#

發表於 2012-6-3 20:13 | 只看該作者

本帖最後由 GBKEE 於 2012-6-3 20:18 編輯

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

TOP

dechiuan999

中學生 Rank: 2

帖子: 231
主題: 55
精華: 0
積分: 293
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: KEELUNG
註冊時間: 2010-7-24
最後登錄: 2018-8-28

31^#

發表於 2012-6-3 17:24 | 只看該作者

謝謝版主大大。
小弟依版主大大的提示
做了如下的改變
一、複製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"
小弟也實在看不出有何改變
之呢？

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

感恩版主大大。

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

30^#

發表於 2012-6-3 09:54 | 只看該作者

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

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

29^#

發表於 2012-6-3 09:39 | 只看該作者

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

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

28^#

發表於 2012-6-3 09:24 | 只看該作者

本帖最後由 GBKEE 於 2012-6-3 10:01 編輯

回復 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

TOP

dafa