|
度々失礼いたします。
図書番号を抜かないといけないものがあったため、プログラムが作動しなくなったので
一番左に通し番号を追加したところ、他と同じように設定したに関わらず、
検索条件は3つあります。文字列を含む、文字列から始まる、文字列と完全一致。
この内、文字列と完全一致と番号欄に関わらず、文字を入れたときだけ
検索で同じ文字と数字を入れた時にヒットします。
一体どうなっているのでしょうか?
ちなみに追加したコードは以下です。
jyoukenfrm
' 通し番号を抽出条件にした場合
If chkTooshi.Value = True Then
' 検索文字として不適当な文字を変換する
MetaAddStr = MetaCharCheck(txtTooshi.Text)
' シート[抽出条件]のセルA2に、選択肢の番号に従って
' 抽出条件を書き込む
WriteJyoukenSheetString "A2", MetaAddStr, cmbTooshiJyouken.ListIndex
' frmMainに表示する抽出条件のメッセージを作成
Message = Message & vbCrLf & "通し番号に" & Chr(34) & txtTooshi & Chr(34) & "という" & cmbTooshiJyouken.Text
End If
Mainfrm
' 抽出条件を指定するフォームにあるコンボボックスに選択肢と
' あらかじめ選ばれている選択肢を指定
' frmJyoukenのUserForm_Initializeで行わないのは、
' 以前の検索状態を保持するため
'
frmJyouken.cmbTooshiJyouken.RowSource = "抽出条件!K3:K5"
frmJyouken.cmbTooshiJyouken.ListIndex = 0
同じくMainfrm
txtTooshi.Text = Worksheets(SheetName).Cells(TourokuNo + 1, 1).Text
↑後の分は一つずつずれてます。(2,3,・・・)というように
何度もお騒がせして大変申し訳ございませんが、
お答え頂けるとうれしいです。
|
|