Excel VBA質問箱 IV

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

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


6237 / 13646 ツリー ←次へ | 前へ→

【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 -

引用なし
パスワード
   かみちゃん早速のお答えありがとうございます。
ドンピシャリです。
ありがとうございました。

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