Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6235 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【46438】入力規則を設定したセル全てを選択 G-Luck 07/2/3(土) 16:22 質問[未読]
【46439】Re:入力規則を設定したセル全てを選択 かみちゃん 07/2/3(土) 16:37 発言[未読]
【46440】Re:入力規則を設定したセル全てを選択 G-Luck 07/2/3(土) 16:57 お礼[未読]
【46438】入力規則を設定したセル全てを選択
質問  G-Luck  - 07/2/3(土) 16:22 -
引用なし
パスワード
   あるシートに複数の条件の入力規則が設定されていて、
その入力規則が設定されたセルを一括で取得したい。

現状は、セル一つづつ選択していて、入力規則があるか判定して、
処理をしています。非常に時間がかかるので、入力規則のセルだけに限定して
処理を実行したい。処理は、Activeを動かす必要があり、セル一つづつ処理をする必要がある。

なにかよいものはあるでしょうか？
【46439】Re:入力規則を設定したセル全てを選択
発言  かみちゃん  - 07/2/3(土) 16:37 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>あるシートに複数の条件の入力規則が設定されていて、
>その入力規則が設定されたセルを一括で取得したい。

あまり使ったことないのですが、以下のような感じでいいのでしょうか？
A列の入力規則が設定されているセルを選択するものです。
Sub Sample()
　Dim rng As Range
　
　On Error Resume Next
　Set rng = Columns("A:A").SpecialCells(xlCellTypeAllValidation)
　On Error GoTo 0
　If Not rng Is Nothing Then
　　rng.Select
　　MsgBox "以下のセルに入力規則が設定されています" & vbCrLf & rng.Address(0, 0)
　Else
　　MsgBox "入力規則が設定されているセルはありません"
　End If
End Sub
【46440】Re:入力規則を設定したセル全てを選択
お礼  G-Luck  - 07/2/3(土) 16:57 -
引用なし
パスワード
   かみちゃん早速のお答えありがとうございます。
ドンピシャリです。
ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6235 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free