Excel VBA質問箱 IV

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

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


35492 / 76732 ←次へ | 前へ→

【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

1 hits

【46438】入力規則を設定したセル全てを選択 G-Luck 07/2/3(土) 16:22 質問
【46439】Re:入力規則を設定したセル全てを選択 かみちゃん 07/2/3(土) 16:37 発言
【46440】Re:入力規則を設定したセル全てを選択 G-Luck 07/2/3(土) 16:57 お礼

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