Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2718 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【66424】数字か文字かを確認 しま 10/9/3(金) 20:55 質問[未読]
【66425】Re:数字か文字かを確認 kanabun 10/9/3(金) 21:12 発言[未読]
【66427】Re:数字か文字かを確認 しま 10/9/3(金) 22:19 質問[未読]
【66430】Re:数字か文字かを確認 kanabun 10/9/3(金) 23:40 発言[未読]
【66424】数字か文字かを確認
質問  しま  - 10/9/3(金) 20:55 -
引用なし
パスワード
   A1〜D30のセルの各セルが数字か文字かを確認して、文字が入っていれば、そのセル位置をメッセージボックスに出力したいと思うのですが、どのようにすればよろしいでしょう？
【66425】Re:数字か文字かを確認
発言  kanabun  - 10/9/3(金) 21:12 -
引用なし
パスワード
   ▼しま さん：

>A1〜D30のセルの各セル
> 文字が入っていれば、そのセル位置をメッセージボックスに出力

こんなのどうですか？

　MsgBox [A1:D30].SpecialCells(xlConstants, _
　　　　　　　　xlTextValues).Address(0, 0)
【66427】Re:数字か文字かを確認
質問  しま  - 10/9/3(金) 22:19 -
引用なし
パスワード
   kanabun さん、回答くださりありがとうございます。
もし、範囲内に文字があれば、文字が入っているセルをメッセージボックスとして表示し、文字がなければ、メッセージボックスが出ないようにしたいと考えています。
ただ、IF文において、範囲内に文字がなければというのが書けませんでした。

IF Range("D12:V62").SpecialCells(xlConstants, xlTextValues).Address(0, 0) <> "" Then
msgbox (Range("D12:V62").SpecialCells(xlConstants, xlTextValues).Address(0, 0) & "に文字が入っています")
END IF

と書いたのですが、どこがまずいのでしょうか？
【66430】Re:数字か文字かを確認
発言  kanabun  - 10/9/3(金) 23:40 -
引用なし
パスワード
   ▼しま さん：

>もし、範囲内に文字があれば、文字が入っているセルをメッセージボックスとして表示し、文字がなければ、メッセージボックスが出ないようにしたいと考えています。


>と書いたのですが、どこがまずいのでしょうか？

SpecialCellsメソッドは Excelで [F5]キーを押すと出てくる
Goto（ジャンプ）機能のなかにある【セル選択】ボタンのことです。
[セル選択...](SpecialCells) ボタンを押すと 何を選択するか
オプションボタンがたくさん出てきますね
　その中で ●定数セル
　　　　　　 レ　文字列
にチェックを入れて [OK] を押したときの動作と同じことを
VBAでしているわけです。

たとえば 下の例では 現在選択されているセル範囲(Selection)に対して
>　Set r = Selection.SpecialCells(xlConstants, xlTextValues)
とSpecialCellsメソッドを発行していますが、
これは 該当するセルが見つかると 左辺の変数r にセルがセットされます。
ところが 該当セルがひとつもないと SpecialCellsメソッドはエラーを
返します。
だから、該当セルがなかったときもエラーで中断しないように

On Error Resume Next
　Set r = ..........
On error goto 0

としています。こうしておくと、該当セルがなかったばあいは
変数r が nothing のままなので、このときは実行を Exit します。
範囲が決まっているなら、
そこの Selectionのところを Range("D12:V62") に置き換えてください。

'------------------------------------
Sub 文字のセル発見()
　Dim r As Range

　On Error Resume Next
　　Set r = Selection.SpecialCells(xlConstants, xlTextValues)
　On Error GoTo 0
　If r Is Nothing Then Exit Sub
　
　MsgBox r.Address(0, 0)
End Sub
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2718 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free