Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10734 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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」）が設定されます。
>省略せずに明記する方が良いようです。

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