Ｐａｇｅ 189 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼セレクト範囲内の使用セルをセレクトするには？ ぴかる 02/10/11(金) 8:21 ┗Re:セレクト範囲内の使用セルをセレクトするには？ りん 02/10/11(金) 9:08 ┗めっちゃ、早い速いです。 ぴかる 02/10/11(金) 9:55 ─────────────────────────────────────── ■題名 ： セレクト範囲内の使用セルをセレクトするには？ ■名前 ： ぴかる ■日付 ： 02/10/11(金) 8:21 -------------------------------------------------------------------------
| みなさん、おはようございます。 セレクト範囲内の使用中のセルをセレクトしたいと思っております。 シート全体なら以下の様になりますよね。 ActiveSheet.UsedRange.Select これをこんなイメージで有効にしたいと考えております。 Selection.UsedRange.Select ←これでは、エラーとなります。 ピカつーる（目安箱にて公開中アドインソフト）に使わせて頂こうと思っております。 ご存じの方の中で"使ってもいいよ"という方がお見えになりましたら、よろしくお願い致します。 |
| ぴかるさん、おはようございます。 使用中のセルというのを「値」または「数式」のセルと考えるなら。 Sub Test() Dim r1 As Range, r2 As Range, r3 As Range, r4 As Range Set r1 = Selection '該当セル抽出 On Error Resume Next Set r2 = r1.SpecialCells(xlCellTypeConstants) Set r3 = r1.SpecialCells(xlCellTypeFormulas) On Error GoTo 0 '判定 If r2 Is Nothing Then Set r4 = r3 Else If r3 Is Nothing Then Set r4 = r2 Else Set r4 = Application.Union(r2, r3) End If End If '結果 If r4 Is Nothing Then MsgBox "使用セルなし", vbExclamation, r1.Address(False, False) Else r4.Select End If Set r1 = Nothing: Set r2 = Nothing: Set r3 = Nothing: Set r4 = Nothing End Sub こんな感じです。 |
| りんさん、おはようございます。 お久しぶりです。今後ともよろしくお願いします。 すごかったです。ご回答は早いし、処理速度もめっちゃ速かったです。もっと時間が掛かると思ってました。今回のコードは、ピカつーるの文字変換に使わせて頂きます。ピカつーるの中身は、またまたりんさんコードでいっぱいになります。とても感謝しております。ありがとうございました。 |