Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
733 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【78665】コードが黄色くなる トキノハジメ 16/12/13(火) 20:12 質問[未読]
【78666】Re:コードが黄色くなる マナ 16/12/13(火) 22:28 発言[未読]
【78667】Re:コードが黄色くなる トキノハジメ 16/12/14(水) 9:36 質問[未読]
【78668】Re:コードが黄色くなる γ 16/12/14(水) 12:26 発言[未読]
【78669】Re:コードが黄色くなる β 16/12/14(水) 12:26 発言[未読]
【78670】Re:コードが黄色くなる トキノハジメ 16/12/14(水) 14:22 質問[未読]
【78671】Re:コードが黄色くなる 独覚 16/12/14(水) 15:11 発言[未読]
【78672】Re:コードが黄色くなる トキノハジメ 16/12/14(水) 16:34 質問[未読]
【78673】Re:コードが黄色くなる 独覚 16/12/14(水) 16:46 発言[未読]
【78674】Re:コードが黄色くなる トキノハジメ 16/12/14(水) 17:09 お礼[未読]
【78665】コードが黄色くなる
質問  トキノハジメ  - 16/12/13(火) 20:12 -
引用なし
パスワード
   いつもお世話になります。
何処を直せ刷毛良いのか教えて下さい。

Range("D42").Formula = "If(E25=0,"""",Round((E25-7.4)/7.4*100) ,1)"

上記のコードです。宜しくお願い致します。
【78666】Re:コードが黄色くなる
発言  マナ  - 16/12/13(火) 22:28 -
引用なし
パスワード
   ▼トキノハジメ さん：

こうでしょうか？

= "=If(E25=0,"""",Round((E25-7.4)/7.4*100 ,1))"
【78667】Re:コードが黄色くなる
質問  トキノハジメ  - 16/12/14(水) 9:36 -
引用なし
パスワード
   ▼マナ さん：

>= "=If(E25=0,"""",Round((E25-7.4)/7.4*100 ,1))"

お返事有難う御座います。
頂いたコード使ってみましたが、結果が表示されません。
再度お願いいたします。
【78668】Re:コードが黄色くなる
発言  γ  - 16/12/14(水) 12:26 -
引用なし
パスワード
   >頂いたコード使ってみましたが、結果が表示されません。
>再度お願いいたします。
E25には何が入っていて、どんな結果を想定して
いますか？
再度って言われるが、
他人に尋ねるようなことなんですか？
【78669】Re:コードが黄色くなる
発言  β  - 16/12/14(水) 12:26 -
引用なし
パスワード
   ▼トキノハジメ さん：

横から失礼します。

>頂いたコード使ってみましたが、結果が表示されません。

マナさんの回答は、あくまで

>コードが黄色くなる

この質問に対する回答です。
黄色くならなかったんでしょ？
であれば、質問自体は、解決ということでしょ？

で、その実行結果が思ったようにならない、これは、我々から見れば
なぜか、それはわかりません。トキノハジメさんしかわかりません。

シート上のどこかのセルに

=If(E25=0,"",Round((E25-7.4)/7.4*100 ,1))

こう入力すると、結果はどうなりますか？
これでも、思ったようにならないということでしょ？
なぜか。それはわからないですね。

これは、この式が正しいか正しくないかということですから。
【78670】Re:コードが黄色くなる
質問  トキノハジメ  - 16/12/14(水) 14:22 -
引用なし
パスワード
   ▼β さん：
>
>シート上のどこかのセルに
>
>=If(E25=0,"",Round((E25-7.4)/7.4*100 ,1))
>
お返事有難うございます。

最初の質問に書きましたように

range("D42"),Formura = とD42に結果を出したいのですが実行しても黄色く成ってエラー表示がでます。ので、なおE25 には数字２５がはいっています。よろしくお願いいたします。
【78671】Re:コードが黄色くなる
発言  独覚  - 16/12/14(水) 15:11 -
引用なし
パスワード
   ▼トキノハジメ さん：
現在のコードをそのままコピーしてこちらに張り付けてくれませんか？

あと、エラー時のエラーメッセージはなんですか？
【78672】Re:コードが黄色くなる
質問  トキノハジメ  - 16/12/14(水) 16:34 -
引用なし
パスワード
   ▼独覚 さん：
>▼トキノハジメ さん：
>現在のコードをそのままコピーしてこちらに張り付けてくれませんか？
>
>あと、エラー時のエラーメッセージはなんですか？

Range("D42").Formula = "=If(E25=0,"""",Round((E25-7.4)/7.4*100 .1))"

実行時エラー　'1004':

アプリケーション定義またはオブジェクト定義のエラーです。

独覚さん上記のとおりです。
宜しくお願い致します。
【78673】Re:コードが黄色くなる
発言  独覚  - 16/12/14(水) 16:46 -
引用なし
パスワード
   ▼トキノハジメ さん：
マナさんの回答の式と自分の式をよく見比べてください。

マナさん
"=If(E25=0,"""",Round((E25-7.4)/7.4*100 ,1))"


トキノハジメさん
"=If(E25=0,"""",Round((E25-7.4)/7.4*100 .1))"

最後の「1」の前がマナさんが「,」（カンマ）なのに対して「.」（ピリオド）になっています。
【78674】Re:コードが黄色くなる
お礼  トキノハジメ  - 16/12/14(水) 17:09 -
引用なし
パスワード
   ▼独覚 さん：マナさん:rさん:βさん色々有難うございました。
これからよく見て記入いたします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
733 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free