Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

40752 / 76732

←次へ　｜　前へ→


	【41071】Re:セルの値が空白のときは印刷しない

よん - 06/7/28(金) 15:24 -


	引用なし

	パスワード

▼ハトさん：

ありがとうございます。

最初に、質問の投稿に記入ミスがありましたので、変更しておきます。
Worksheets("Ｂ").Cells(伝票, 1) = Range("B2")
　↓
Worksheets("Ａ").Cells(伝票, 1) = Range("B2")

>シートＡの値を空白かチェックしたいのであれば
>
>Worksheets("Ａ").Range("B2")
>
>のようにどこのシートなのかを明確にする書き方にした方がよろしいかと思います

>それと大きく勘違いなされているのは
>
>『セルが空白』のチェックは
>
>　If Range("B2") <> "" Then
>　　　'空白ではない
>
>です

本当に初心者で、
あまり理解できていなくてすみません。。
教えていただいたのを
下記のようにしてみたところ、
Worksheets("伝票7").Range ("B2")　
のところで、
「オブジェクトはこのプロパティまたはメソッドをサポートしていません」
となりました。
どう変更すればよろしいでしょうか？

Sub 発行()
Worksheets("Ａ").range("B2")
For 伝票 = 1 To 10
Worksheets("Ａ").Cells(伝票, 1) = Range("B2")
If Range("B2") <> "" Then
印刷
End If
Next 伝票
End Sub

0 hits

▼

【41052】セルの値が空白のときは印刷しない よん 06/7/28(金) 13:18