Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1508 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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文を追加すると”型が一致しません”とメッセージが出てエラーになるが、新規ブックに追加すると問題なく実行できる。エラーになるブックは自分が作成したものではない。原因はＶＢＡではなく、ブックの設定に問題があるのでしょうか？

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!) ということはないですか？
エラー値ではありません。セルＡ１には、たとえば　＝Ｍ１＋Ｎ１という簡単な数式が入っているのみです。

>エラー値の場合、If Range("A1") = 0 Then　で型が違うというエラーになりますが？
【74036】Re:指定したセルの値によって、列の表示...
発言  UO3  - 13/4/9(火) 12:16 -
引用なし
パスワード
   ▼けん さん：

>エラー値ではありません。セルＡ１には、たとえば　＝Ｍ１＋Ｎ１という簡単な数式が入っているのみです。

その数式の結果が、正しく数値ででている、エラー値にはなっていないということですか？
【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 さん：
仕事で使っているファイルなので、明日、出勤後試してみます。新規ブックを、エラーが出るブックに少しずつ近づけて、地道に原因を特定していこうと思います。何か気が付いたことがあればアドバイスをください。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1508 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free