Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


16801 / 76738 ←次へ | 前へ→

【65401】Re:テキストボックスが8つになったのですが
質問  ろんろん  - 10/5/18(火) 15:28 -

引用なし
パスワード
   度々失礼いたします。

図書番号を抜かないといけないものがあったため、プログラムが作動しなくなったので
一番左に通し番号を追加したところ、他と同じように設定したに関わらず、
検索条件は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,・・・)というように

何度もお騒がせして大変申し訳ございませんが、
お答え頂けるとうれしいです。

0 hits

【65319】テキストボックスが7つあり、それに入力して検索するとデータを抽出するに... ろんろん 10/5/11(火) 15:45 質問
【65320】Re:テキストボックスが7つあり、それに入力... ろんろん 10/5/11(火) 15:49 質問
【65322】Re:テキストボックスが7つあり、それに入力... Jaka 10/5/11(火) 17:17 発言
【65329】Re:テキストボックスが7つあり、それに入力... ろんろん 10/5/12(水) 11:49 質問
【65330】Re:テキストボックスが7つあり、それに入力... Jaka 10/5/12(水) 15:16 発言
【65339】Re:テキストボックスが7つあり、それに入力... ろんろん 10/5/13(木) 10:41 お礼
【65331】Re:テキストボックスが7つあり、それに入力... teian 10/5/12(水) 16:03 発言
【65340】Re:テキストボックスが7つあり、それに入力... ろんろん 10/5/13(木) 10:45 お礼
【65401】Re:テキストボックスが8つになったのですが ろんろん 10/5/18(火) 15:28 質問
【65404】Re:テキストボックスが8つになったのですが Jaka 10/5/18(火) 17:03 発言
【65406】Re:テキストボックスが8つになったのですが ろんろん 10/5/18(火) 17:12 お礼

16801 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free