こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

【VB6】EXCELのセルに0.033を"3.3%"と自動で表示指定入力したい

お世話になっております。

VB6(visual basic 6)プログラムからEXCELのセルの表示形式をパーセンテージ指定したいです。

EXCEL:EXCEL 2000
OS: win XP

以下にターゲットの中核部分を切り出しました。

---
Dim oApp As Object
Set oApp = CreateObject("Excel.Application")
oApp.Workbooks.Add

oApp.Cells(1, 1) = 1000
oApp.Cells(1, 2) = 33
oApp.Cells(1, 3) = "=a2/a1"
---

EXCELのシートに
1000
33
0.033
と入力されます。
この記述ではセルがデフォルト表示のまま(0.033)です。

この0.033を自動的に3.3%と表示したいです
さらには小数点以下桁数の指定方法が知りたいです。
(例えば3.300%などど表示させたり)
EXCELのシートから手作業による表示形式変更方法は承知しております。
VB6からプログラムで自動に3.3%と出るようにしたいのです。

どうぞよろしくお願いいたします。

投稿日時 - 2004-09-30 14:39:05

QNo.1023053

すぐに回答ほしいです

質問者が選んだベストアンサー

>EXCELのシートから手作業による表示形式変更方法は承知しております。

知ってるんでしたら記録しましょう。
記録したら
Range("A1").Select
Selection.NumberFormatLocal = "0.0%"

となるんで、後はもうおわかりかと。

oApp.Cells(1, 3).NumberFormatLocal = "0.0%"
と追加しましょう。

投稿日時 - 2004-09-30 14:46:25

お礼

ありがとうございます。
お恥ずかしながら、エクセルの「マクロの記録」という手をすっかり忘れておりました。

投稿日時 - 2004-09-30 15:14:50

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)