Excel VBA質問箱 IV

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

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


6082 / 13645 ツリー ←次へ | 前へ→

【47253】SpecialCells koshimizu 07/3/6(火) 11:36 質問[未読]
【47257】Re:SpecialCells Kein 07/3/6(火) 16:58 発言[未読]
【47262】Re:SpecialCells りん 07/3/6(火) 20:05 発言[未読]
【47331】Re:SpecialCells koshimizu 07/3/8(木) 8:19 お礼[未読]

【47253】SpecialCells
質問  koshimizu  - 07/3/6(火) 11:36 -

引用なし
パスワード
   【47149】Kein さん解答で
>Range("D1", Range("D65536").End(xlUp)).Offset(, -2) _
>.SpecialCells(2, 1).EntireRow.Copy
>
>で、どうでしょーか ? もしB列の数値が数式の計算結果なら
>
>>SpecialCells(2, 1)
>↓
>
>SpecialCells(3, 1)
>
>に変更して下さい。

Range("D1", Range("D65536").End(xlUp)).Offset(, -2)まではOKなのですが
SpecialCellsが?です
B列の数値が数式の計算結果ならSpecialCells(2, 1)と(3, 1)の違いがわかりません。また、B列が1であったらは、どこで指定しているのですか。
ヘルプを見てもさっぱりです。宜しくお願いします

【47257】Re:SpecialCells
発言  Kein  - 07/3/6(火) 16:58 -

引用なし
パスワード
   SpecialCellsメソッドの文字定数と、それに対応している数値は
以下のようになっています。残念ながらヘルプには出ていませんが
オブジェクト・ブラウザから調べる方法はあるのです。
ま、その手順を知るよりここからコピペし、標準モジュールの先頭
にでも貼り付けてコメント化しておいた方が、手軽に使えると思います。

xlCellTypeConstant = 2
xlCellTypeFormulas = 3
xlCellTypeBlanks = 4
xlCellTypeLastCell = 11
xlCellTypeVisible = 12
xlCellTypeComments = -4144
xlCellTypeAllFormatConditions = -4172
xlCellTypeSameFormatConditions = -4173
xlCellTypeAllValidation = -4174
xlCellTypeSameValidation = -4175
[第二引数]
xlNumbers = 1
xlTextValues = 2
xlLogical = 4
xlErrors = 16

>B列が1であったらは、どこで指定
"1であったら"という考え方ではなく、"空白か数値か" を見分けて
いると思って下さい。その表示が数式の計算結果なら (3, 1) で
手入力したような定数なら (2, 1) で判定します。第二引数の 1 は
B列の検索値を指定したものではないので、ご注意下さい。

【47262】Re:SpecialCells
発言  りん E-MAIL  - 07/3/6(火) 20:05 -

引用なし
パスワード
   Kein さん、こんばんわ

>xlCellTypeFormulas = 3
XL97は今手元にないので確認できませんが、
XL2000以降は、
xlCellTypeFormulas = -4123
です(オブジェクトブラウザで確認)

3でもxlCellTypeFormulasでも同じように数式セルが選ばれますが。

【47331】Re:SpecialCells
お礼  koshimizu  - 07/3/8(木) 8:19 -

引用なし
パスワード
   Kein さん
りん さん
おはようございます。解答ありがとうございます。
SpecialCells(2, 1)をSpecialCells(2, 2)に変更し
B列の検索値を指定したものではない事を確認できました。
今後とも宜しくお願いします。

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