Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11597 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【15346】印字フォーマットについて まえだ 04/6/22(火) 8:48 質問[未読]
【15347】Re:印字フォーマットについて IROC 04/6/22(火) 8:56 回答[未読]
【15349】印字フォーマットについて まえだ 04/6/22(火) 9:12 質問[未読]
【15351】Re:印字フォーマットについて Asaki 04/6/22(火) 11:20 回答[未読]
【15354】印字フォーマットについて まえだ 04/6/22(火) 11:54 お礼[未読]
【15346】印字フォーマットについて
質問  まえだ E-MAIL  - 04/6/22(火) 8:48 -
引用なし
パスワード
   次のような計算結果を小数点2桁まで表示させたいのですが、動作してくれません。
設定方法が間違っていれば教えてください。

Cells(5 + yokutosi, 7) = Format(WorksheetFunction.VLookup(Cells(5 + yokutosi, 1), Worksheets("INPUT").Range("a2:J10000"), 3, False), "##0.00")
【15347】Re:印字フォーマットについて
回答  IROC  - 04/6/22(火) 8:56 -
引用なし
パスワード
   Cells の対象となるオブジェクトと、プロパティを
それぞれ省略しないで、記述してみては如何でしょうか？
【15349】印字フォーマットについて
質問  まえだ E-MAIL  - 04/6/22(火) 9:12 -
引用なし
パスワード
   ▼IROC さん：
>Cells の対象となるオブジェクトと、プロパティを
>それぞれ省略しないで、記述してみては如何でしょうか？

with worksheets("Sheet1")

.Cells(5 + yokutosi, 7) = Format(WorksheetFunction.VLookup(.Cells(5 + yokutosi, 1), Worksheets("INPUT").Range("a2:J10000"), 3, False), "##0.00")


end with
以上のように修正しましたがだめでした。
【15351】Re:印字フォーマットについて
回答  Asaki  - 04/6/22(火) 11:20 -
引用なし
パスワード
   こんにちは。

>動作してくれません。
って、どういう状況ですか？
結果が表示されない？
エラーが出る？
結果が期待したものと違う？

先ずは、VLookUp()の結果をチェックしてみては？
MsgBox WorksheetFunction.VLookup(.Cells(5 + yokutosi, 1).Value, _
　　　　　　Worksheets("INPUT").Range("a2:J10000"), 3, False)
【15354】印字フォーマットについて
お礼  まえだ E-MAIL  - 04/6/22(火) 11:54 -
引用なし
パスワード
   ▼Asaki さん：
>こんにちは。
>
>>動作してくれません。
>先ずは、VLookUp()の結果をチェックしてみては？

書式どおりに表示されないので、メッセージボックスでチェックしましたら、出来ていました。
そこでワークシートの書式を直接変更しましたら結果はOKでした。
どこかが上手くいっていないのでしょうが、とりあえず「結果おーらい」としました。

ありがとうございます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11597 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free