Excel VBA質問箱 IV

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

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


10722 / 13646 ツリー ←次へ | 前へ→

【20234】%表示にしたい nogu 04/12/2(木) 16:21 質問[未読]
【20235】Re:%表示にしたい つん 04/12/2(木) 16:33 回答[未読]
【20237】Re:%表示にしたい nogu 04/12/2(木) 16:50 お礼[未読]

【20234】%表示にしたい
質問  nogu  - 04/12/2(木) 16:21 -

引用なし
パスワード
   こんにちは〜VBA初心者です。
よろしくお願いいたします。

下記のようにA,B,C列にデータが入っています。
D列にはA,B,Cのデータを代入したいです。

 A  B  C      D
1 赤 ○ 70.1%  赤○70.1%
2 青 △ 80.5%  青△80.5%
3 黄 □ 60.6%  黄□60.6%

VBAでこのように書いてみました。

Sub Macro1()
 For I = 1 To 3
  Cells(1, 4).Value = Cells(1, 1) & Cells(1, 2) & Cells(1, 3)
 Next I
End Sub

そうすると、%部分が「0.701」になってしまいます。
どのようにしたらよいでしょうか?どうしても%表示にしたいのですが。。。

以上です。よろしくお願いいたします。

【20235】Re:%表示にしたい
回答  つん E-MAIL  - 04/12/2(木) 16:33 -

引用なし
パスワード
   こんにちは。

> A  B  C      D
>1 赤 ○ 70.1%  赤○70.1%
>2 青 △ 80.5%  青△80.5%
>3 黄 □ 60.6%  黄□60.6%
>
>VBAでこのように書いてみました。
>
>Sub Macro1()
> For I = 1 To 3
>  Cells(1, 4).Value = Cells(1, 1) & Cells(1, 2) & Cells(1, 3)
> Next I
>End Sub

>そうすると、%部分が「0.701」になってしまいます。
>どのようにしたらよいでしょうか?どうしても%表示にしたいのですが。。。
>
>以上です。よろしくお願いいたします。

Cells(1, 1).Value & Cells(1, 2).Value & Cells(1, 3).Text

かな?
Textプロパティは、セルに表示されているそのままが取得されます。
プロパティを省略すると、自動的に規定のプロパティ、(Cellsの場合は「Value」)が設定されます。
省略せずに明記する方が良いようです。

【20237】Re:%表示にしたい
お礼  nogu  - 04/12/2(木) 16:50 -

引用なし
パスワード
   早速のレスありがとうございます!
%表示されました。よかったです。

>Cells(1, 1).Value & Cells(1, 2).Value & Cells(1, 3).Text
>
>かな?
>Textプロパティは、セルに表示されているそのままが取得されます。

>プロパティを省略すると、自動的に規定のプロパティ、(Cellsの場合は「Value」)が設定されます。
>省略せずに明記する方が良いようです。

心得ました。もっと勉強しますね〜
大変ありがとうございました。

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