| |
▼つん さん：
>▼T-K さん
>こんにちは
>
>>ご提案いただいたmougにもアクセスしたりして。
>？？？私、モーグ提案した覚えないでっせ。
>
>>r=任意の数値（か文字列）とすれば、プロシージャ実行時、
>>セルに何か入っているので、それを飛ばし、
>>次のプロシージャが実行できるのでは？と考えた次第です。
>
>
>Dim r As Range
>
>と、宣言した時点で、「ｒ」に入れらるのはセルそのものだけです。
>
>Range(任意の数値（か文字列）)
>こういう形はありえません。
>「Range」についても、基本的なことをもうちっと調べられた方がいいように主今する。
>
>>On Error Resume Nextステートメントも、On Error GoTo 0も調べました。
>>（出典：Excel VBA 逆引き大全600の極意 秀和システム 他）
>>そこでエラー無視によるプログラム非正常動作を覚悟でやってみよう、
>>と思います。
>>（できればそのリスクは回避したいので、上のプロシージャを考えました）
>
>
>On Error Resume Nexをどうしても使いたくなかったら、
>対象セル範囲もそう多くないようですし、
>
>Sub test()
>
> Dim r As Range
> Dim blnFlag As Boolean
>
> blnFlag = False
>
> For Each r In Worksheets("Sheet1").Range("a1:c3")
> If r.Value = "" Then
> r.Interior.ColorIndex = 3
> ’一回一回メッセ^時ボックス出すのもうざいので、
> ’↓で、判定用の変数使って、最後にメッセージ出す♪
> blnFlag = True
> End If
> Next r
>
> If blnFlag = True Then
> MsgBox "空白セルがありまっせ・・云々"
> End If
>
>
>End Sub
>
>一つ一つセルをチェックして処理するやり方もありかも。
>
>
>>また、SpecialCells(xlCellTypeComments)のCommentsとは、
>>セルに挿入される「コメント挿入」でしょうか？
>>恥ずかしいのですが分かりません。
>
>SpecialCellsで検索かけたら、説明してるサイトとか簡単に見つかりそうですよ＾＾
|
|
T-K
- 09/7/28(火) 15:09 -
