| |
▼かみちゃん さん：
>こんにちは。かみちゃん です。
>
>> 検索ダイアログを次に表示したときに設定されている(前回入力した)文字列を取得する
>
>現在どのようなデータをどのようなコードで処理しているのでしょうか？
>提示していただくことはできませんか？
>
次のような内容です。
フォームを作成し、その中のコンボボックス(ufSrch.cbxSrchString)の文字列を次のようにFindメソッドで検索しています。
Range(Cells(1, 1), Cells(Rows.Count, Columns.Count - 1)).Columns.Find(What:=SrchStr _
, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows _
, SearchDirection:=xlNext, MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate
Rows(ActiveCell.Row).EntireRow.Hidden = False
If (ErrNum = 0) _
Then
Application.StatusBar = "↓Find! 行列番号:" & CStr(ActiveCell.Row) & "行" & CStr(ActiveCell.Column) _
& "列(" & Replace(ActiveCell.Address, "$", "") & ") ｢" _
& ufSrch.cbxSrchString & "｣ が見つかりました."
・
・
次に、別のボタンをクリックすると次のコード(FindNext)が動きます。
Range(Cells(1, 1), Cells(Rows.Count, Columns.Count - 1)).Columns.FindNext(After:=ActiveCell).Activate
Rows(ActiveCell.Row).EntireRow.Hidden = False
Rows(ActiveCell.Row + 1).EntireRow.Hidden = False
If (ErrNum = 0) Then
Application.StatusBar = "↓Find! 行列番号:" & CStr(ActiveCell.Row) & "行" & CStr(ActiveCell.Column) _
& "列(" & Replace(ActiveCell.Address, "$", "") & ") ｢" & ufSrch.cbxSrchString _
& "｣ が見つかりました."
・
・
しかし、最初にExcelの検索ダイアログで検索して、FindNextメソッドを動かすと"「」が見つかりました。"と(当然ですが)なります。これを避けたいわけです。
|
|
toshiki
- 10/9/13(月) 6:38 -
