advanced help
per page, with , order by , clip by
Results of 1 - 1 of about 2812 for 入力規則 (0.005 sec.)
[[20191022000923]]
#score: 4288
@digest: 82a33a17ff0f8ed21ee7118e9859d882
@id: 81129
@mdate: 2019-10-22T08:12:56Z
@size: 5172
@type: text/plain
#keywords: mysamerng (56447), myvld (34779), mytmp (11983), errortitle (11957), xlcelltypeallvalidation (10447), inputtitle (8131), inputmessage (7994), errormessage (7841), 時メ (7348), validation (6489), mycell (6202), じ入 (5341), 力規 (4902), mysht (4259), 各sh (4143), 規則 (3950), 一シ (3112), 則の (1973), 力時 (1971), 則が (1965), activate (1844), mystr (1755), ト内 (1476), myrng (1243), ャン (1152), 入力 (1128), 数シ (1094), thisworkbook (1069), specialcells (1040), error (947), 同一 (932), 選択 (931)
入力規則の検索をブック全体で行いたい。』(かぐるお)
入力規則のコメントの文字列で検索をかけることは可能でしょうか? 同一シート内であればジャンプで選択できるようですが、 複数シートで検索がしたいです。 < 使用 Excel:Excel2016、使用 OS:Windows10 > ---- 入力規則の「コメント」とは何のことでしょうか。 説明をお願いします。 (γ) 2019/10/22(火) 08:41 ---- ↓もわかりません。どのような操作でしょうか。 >同一シート内であればジャンプで選択できるようですが、 (マナ) 2019/10/22(火) 08:50 ---- >入力規則の「コメント」とは何のことでしょうか。 説明をお願いします。 「データの入力規則」の「入力時メッセージ」タブの「タイトル」や「入力時メッセージ」のことを指していました。説明をはしょってしまい申し訳ありません。 ↓もわかりません。どのような操作でしょうか。 >同一シート内であればジャンプで選択できるようですが、 1.検索した入力規則が設定されているセルを選択する。 2.ACtrl+Gでジャンプダイアログを表示する。 3.Bセルの選択ボタンを押す。 4.選択オプションで「データの入力規則」の「同じ入力規則」を選択する。 5.シート内で1.で選択した入力規則と同じ入力規則が設定されているセルが選択される。 複数シートで検索できる方法を探しています。 (かぐるお) 2019/10/22(火) 10:59 ---- >「入力時メッセージ」タブ その他の設定が異なっている場合は? (マナ) 2019/10/22(火) 11:40 ---- こんなことでしょうか ある入力規則の設定されているセルを選択して、コードを実行すると まず入力規則の設定されているセルの中から それぞれのテキスト(タイトルやら、メッセージやら)が同じものを選択します、 それを全シートを対象として行っています。 Sub Macro1() Dim myRng As Range Dim mySameRng As Range Dim myCell As Range Dim mySht As Worksheet Dim myVld As Validation Dim myTmp As Long Set myVld = ActiveCell.Validation On Error Resume Next myTmp = myVld.AlertStyle On Error GoTo 0 If myTmp = 0 Then MsgBox "選択セルには入力規則が設定されていません" Exit Sub End If For Each mySht In ThisWorkbook.Worksheets mySht.Activate mySht.Range("A1").Activate Set myRng = Nothing Set mySameRng = Nothing On Error Resume Next Set myRng = Selection.SpecialCells(xlCellTypeAllValidation) On Error GoTo 0 If Not myRng Is Nothing Then For Each myCell In myRng.Cells With myCell.Validation If .InputTitle = myVld.InputTitle And _ .ErrorTitle = myVld.ErrorTitle And _ .InputMessage = myVld.InputMessage And _ .ErrorMessage = myVld.ErrorMessage Then If mySameRng Is Nothing Then Set mySameRng = myCell Else Set mySameRng = Union(mySameRng, myCell) End If End If End With Next End If If Not mySameRng Is Nothing Then mySameRng.Select Next myVld.Parent.Parent.Activate End Sub (渡辺ひかる) 2019/10/22(火) 12:04 ---- ちょっと検証不足気味ですが、、 仕掛けは、、 1.入力規則のあるセルを選択してダブルクリックすると 2.各SheetのA1にその入力規則をコピーして貼り付けます。(ダミーです。内容によっては同じにならないかもしれませんね?) 3.今回はエラータイトルの中の検索文字をInputBoxで入力します。 4.各Sheetをループして同じ入力規則の中からその文字が含まれているものに色を付けます。 (同じ入力規則・・・?あまり意味がないかも??(^^;) この辺を応用して頂けると助かります。 ThisWorkbookモジュールに貼り付けます。 まぁ、、何かの参考になれば幸いです。。。。 Option Explicit Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) Dim r As Range Dim x As Variant Dim MyStr As Variant Dim ws As String Dim n As Long Cancel = True On Error Resume Next x = Target.Validation.Type If Err.Number <> 0 Then MsgBox "入力規則がありません" Exit Sub End If On Error GoTo 0 MyStr = Application.InputBox("検索する文字を入力してください。。", Type:=2) If MyStr = False Then Exit Sub Application.ScreenUpdating = False ws = Sh.Name Target.Copy For Each Sh In ThisWorkbook.Worksheets Sh.Activate Sh.Range("A1").PasteSpecial Paste:=xlPasteValidation ActiveCell.SpecialCells(xlCellTypeAllValidation).Interior.Pattern = xlNone Next For Each Sh In ThisWorkbook.Worksheets Sh.Activate For Each r In ActiveCell.SpecialCells(xlCellTypeSameValidation) If InStr(1, MyStr, r.Validation.ErrorTitle) > 0 Then r.Interior.Color = 65535 n = n + 1 End If Next Next For Each Sh In ThisWorkbook.Worksheets n = n - 1 Sh.Range("A1").Clear Next Sheets(ws).Activate Target.Activate Application.ScreenUpdating = True If n > 0 Then MsgBox n & " 個ヒットしました。" Else MsgBox MyStr & " を含む入力規則はありません。" End If End Sub (SoulMan) 2019/10/22(火) 17:12 ...
http://www.excel.studio-kazu.jp/wiki/kazuwiki/201910/20191022000923.txt - [detail] - similar
PREV NEXT
Powered by Hyper Estraier 1.4.13, with 96861 documents and 607997 words.

訪問者:カウンタValid HTML 4.01 Transitional