Excel VBA質問箱 IV

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

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


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

40736 / 76732

←次へ　｜　前へ→


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

ハト - 06/7/28(金) 19:02 -


	引用なし

	パスワード

回答が遅くなりまして、申し訳ありません
▼よんさん：

>Worksheets("Ａ").Cells(伝票, 1) = Range("B2")
>If Range("B2") <> "" Then

ここですが、
『シートＢのＢ２にシートＡの値を入れて、空白チェックを行っている』
ということでいいですか？

もしそうならば、

Range("B2") = Worksheets("Ａ").Cells(伝票, 1)

となります

>Worksheets("伝票7").Range ("B2")　
>のところで、
>「オブジェクトはこのプロパティまたはメソッドをサポートしていません」
>となりました。
>どう変更すればよろしいでしょうか？

これだけでは、指定したセルをどうしたいのか書かれてません

Worksheets("伝票7").Range ("B2")　

また、Range と　(　の間にスペースがあるように見えますね
とすると
Worksheets("伝票7")
が　Worksheet　オブジェクトではないと認識されている為だと思われます

とりあえず、↓のコードを実行してみてください

Sub 発行()

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

0 hits

▼

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