Excel VBA質問箱 IV

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

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


75245 / 76732 ←次へ | 前へ→

【5929】Re:3次元の検索を早く行う方法をどなたか知りませんか。
回答  ichinose  - 03/6/10(火) 1:11 -

引用なし
パスワード
   こんばんは。
私も作ってみました。
D列を作業列にしました。
'=========================================================
Sub Excel_Search()
Dim rng As Range
Dim f_con(1 To 3) As String
Set rng = Range("a1", Cells(Rows.Count, 1).End(xlUp))
f_con(1) = "=3"
f_con(2) = "=4"
f_con(3) = "=5"
With rng
 .Offset(0, 3).Formula = "=IF((RC[-3]" & f_con(1) & ")*(RC[-2]" & f_con(2) & ")*(RC[-1]" & f_con(3) & ")<>0,ROW(),"""")"
 .Offset(0, 3).Value = .Offset(0, 3).Value
 Set ans = ad_specialcells(.Offset(0, 3))
 If Not ans Is Nothing Then
   disp = "答えは :" & ans.Count & vbCrLf
   For Each cans In ans
    disp = disp & cans.Value & "行" & vbCrLf
    Next
   MsgBox disp
 Else
   MsgBox "解なし"
   End If
 .Offset(0, 3).Value = ""
 End With
End Sub
'==============================================================
Function ad_specialcells(rng As Range) As Range
  On Error Resume Next
  Set ad_specialcells = Nothing
  Set ad_specialcells = rng.SpecialCells(xlCellTypeConstants)
  On Error GoTo 0
End Function

0 hits

【5919】3次元の検索を早く行う方法をどなたか知りませんか。 まこさん 03/6/9(月) 15:38 質問
【5920】Re:3次元の検索を早く行う方法をどなたか... 角田 03/6/9(月) 16:03 回答
【5921】Re:3次元の検索を早く行う方法をどなたか知... ぴかる 03/6/9(月) 16:09 回答
【5925】Re:3次元の検索を早く行う方法をどなたか知... Hirofumi 03/6/9(月) 20:31 回答
【5926】Re:3次元の検索を早く行う方法をどなたか知... Hirofumi 03/6/9(月) 21:10 発言
【5929】Re:3次元の検索を早く行う方法をどなたか知... ichinose 03/6/10(火) 1:11 回答
【5935】Re:3次元の・・・・<みんさんご回答ありが... まこさん 03/6/10(火) 13:40 お礼

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