人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

お世話になります。現在、他のファイルを開かずにコピペーストを思案中なのですが、空白の時には空白にするにはどうすればよいでしょうか?

Sub テスト()
Dim file_nm as String
file_nm = "【基礎】" & range("A27").text & range("A28").text
range("A30").value =file_nm
range("A1:A24").formulaR1C1= "='D:\10基礎\[" & file_nm & ".xls]基礎'RC"
End Sub

A27 と A28 には日付に関する数値が入っています。
A27=05 (5月)
A28=06 (6日)
そして、日付を変更しながら日次データ更新をする予定です。
しかし、問題は空白はゼロ表示になってしまいますので、
これを空白にして表示させたいのです。
どうぞお力を貸して頂ければ幸いです。

●質問者: dadan_dan
●カテゴリ:コンピュータ
✍キーワード:A1 AS RC String sub
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● SALINGER
●50ポイント ベストアンサー

メニューのツール→オプション→表示→ゼロ値のチェックをはずすのはどうでしょうか。

◎質問者からの返答

SALINGERさん 先日に引き続きありがとうございます。

頂いた答えに関しまして、ゼロを表示しなければならないケースも少しあります。

それをも消す事はできませんので。。。

それと、先程思い付いて試行してエラー続きなのですが、IF関数を使えないのでしょうか?


2 ● らいず
●50ポイント

if関数を使用して、0だったら""という感じには出来ないでしょうか?

ActiveCell.FormulaR1C1 = "=IF(x=0,"""",x)"

◎質問者からの返答

careplannerさんありがとうございます。

Range("A1:A24").FormulaR1C1 = "=if('C:\10基礎\[" & file_nm & ".xls]基礎'!RC=0,"""",'C:\10基礎\[" & file_nm & ".xls]基礎'!RC=0,)"

↑御回答を参考に作ってみたのですが、実行エラー1004にて定義のエラーになります。

どこに問題があるのでしょうか?

お手数ですが、よろしくお願い致します。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ