Excel VBA質問箱 IV

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

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


1495 / 13644 ツリー ←次へ | 前へ→

【74033】指定したセルの値によって、列の表示・非表示を切り替える けん 13/4/9(火) 10:58 質問[未読]
【74034】Re:指定したセルの値によって、列の表示・... UO3 13/4/9(火) 11:30 発言[未読]
【74035】Re:指定したセルの値によって、列の表示・... けん 13/4/9(火) 11:38 お礼[未読]
【74036】Re:指定したセルの値によって、列の表示・... UO3 13/4/9(火) 12:16 発言[未読]
【74037】Re:指定したセルの値によって、列の表示・... けん 13/4/9(火) 12:21 質問[未読]
【74038】Re:指定したセルの値によって、列の表示・... UO3 13/4/9(火) 13:32 発言[未読]
【74040】Re:指定したセルの値によって、列の表示・... けん 13/4/9(火) 16:29 質問[未読]

【74033】指定したセルの値によって、列の表示・非...
質問  けん  - 13/4/9(火) 10:58 -

引用なし
パスワード
   表やグラフが作成されているブックに以下のIf文を追加すると”型が一致しません”とメッセージが出てエラーになるが、新規ブックに追加すると問題なく実行できる。エラーになるブックは自分が作成したものではない。原因はVBAではなく、ブックの設定に問題があるのでしょうか?

If Range("A1") = 0 Then
Columns("A:A").Hidden = True
Else
Columns("A:A").Hidden = False
End If

「セルA1」は計算結果が反映されるようになっています。

【74034】Re:指定したセルの値によって、列の表示...
発言  UO3  - 13/4/9(火) 11:30 -

引用なし
パスワード
   ▼けん さん:

こんにちは
実行時、A1の値がエラー値(#N/A や #VALUE!) ということはないですか?
エラー値の場合、If Range("A1") = 0 Then で型が違うというエラーになりますが?

【74035】Re:指定したセルの値によって、列の表示...
お礼  けん  - 13/4/9(火) 11:38 -

引用なし
パスワード
   ▼UO3 さん:
ご回答くださりありがとうございます。

>実行時、A1の値がエラー値(#N/A や #VALUE!) ということはないですか?
エラー値ではありません。セルA1には、たとえば =M1+N1という簡単な数式が入っているのみです。

>エラー値の場合、If Range("A1") = 0 Then で型が違うというエラーになりますが?

【74036】Re:指定したセルの値によって、列の表示...
発言  UO3  - 13/4/9(火) 12:16 -

引用なし
パスワード
   ▼けん さん:

>エラー値ではありません。セルA1には、たとえば =M1+N1という簡単な数式が入っているのみです。

その数式の結果が、正しく数値ででている、エラー値にはなっていないということですか?

【74037】Re:指定したセルの値によって、列の表示...
質問  けん  - 13/4/9(火) 12:21 -

引用なし
パスワード
   ▼UO3 さん
そのとおりです。「0」「1」など数値としてでています。

【74038】Re:指定したセルの値によって、列の表示...
発言  UO3  - 13/4/9(火) 13:32 -

引用なし
パスワード
   ▼けん さん:

そうですか。不思議ですねぇ。
新規ブックのシートでグラフを作成し、A1に式をいれたうえで
このコードを流すとどうなりますか?
(こちらではエラーはでません)

【74040】Re:指定したセルの値によって、列の表示...
質問  けん  - 13/4/9(火) 16:29 -

引用なし
パスワード
   ▼UO3 さん:
仕事で使っているファイルなので、明日、出勤後試してみます。新規ブックを、エラーが出るブックに少しずつ近づけて、地道に原因を特定していこうと思います。何か気が付いたことがあればアドバイスをください。

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