VBAでセルから書式情報を取得する方法

こんにちは。
VBA初心者ですので、おかしな質問でしたら申し訳ありません。

入力済みのリストを参照して、削除線の引いてあるセルは飛ばして
データを読んでいこうと思ったのですが、任意のセルが削除線が引いてある/引いていないの情報取得方法が分かりません。

色々調べてみて、色関係なら見つけたのですが、削除線のは探せませんでした。逆に削除線を設定する方法ならあったのですが・・・

どなたか、お力を貸していただけませんでしょうか？
御願い致します。

No.3 ベストアンサー 回答者： imogasi 回答日時： 2008/01/09 19:59

こんなとこへ質問する前に、なぜマクロの記録をとらないのか。

取り消し線を設定し、削除する操作をマクロの記録で採る。
Range("A1").Select
With Selection.Font
　・・・・
　　.Strikethrough = True
End With
With Selection.Font
・・
.Strikethrough = False
End With
です。
だから
＞任意のセルが削除線が引いてある/引いていないの情報取得方法が分かりません。
は
If Range（”A1").Font.Strikethrough = True　Then
で取り消し線があるかどうかわがる。

この回答へのお礼

回答ありがとうございました。

マクロの記録・・・ですか・・・。
そう言う機能があるのですね？
ありがとうございます。今後の勉強にもなります。
実際調べてやってみました。
なるほど、でてきました♪

スキルアップに繋がるとても参考になるご意見ありがとうございました。

お礼日時：2008/01/10 09:05

No.2 回答者： pbforce 回答日時： 2008/01/09 17:54

If　Range("A1").Font.Strikethrough = True　Then

’引いてあるときの処理
Else
’引いていないときの処理
End If

この回答へのお礼

回答ありがとうございました。

とても分かり易く、簡潔に書いていただいて嬉しいです。

お礼日時：2008/01/10 08:58

No.1 回答者： merlionXX 回答日時： 2008/01/09 17:54

削除線って取り消し線のことですよね？

設定方法がわかるなら逆をやればいいだけではないでしょうか？
以下はA1からA20のデータで取り消し線がないデータだけをB列に転記する例です。

Sub test01()
With ActiveSheet
For i = 1 To 20
If .Cells(i, "A").Font.Strikethrough = False Then
n = n + 1
.Cells(n, "B") = .Cells(i, "A")
End If
Next
End With
End Sub

この回答へのお礼

早速の回答ありがとうございました。
お礼が遅くなってしまい申し訳ありません。

削除線＝取消線で合ってます。

なるほど。
よく分かりました。ありがとうございました。

お礼日時：2008/01/10 08:57