Excel VBA質問箱 IV

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

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


7160 / 13644 ツリー ←次へ | 前へ→

【40801】テキストデータへの出力に関して 質問(初心者A氏) 06/7/24(月) 13:59 質問[未読]
【40811】Re:テキストデータへの出力に関して ハト 06/7/24(月) 16:26 回答[未読]
【40814】Re:テキストデータへの出力に関して 質問(初心者A氏) 06/7/24(月) 16:49 お礼[未読]

【40801】テキストデータへの出力に関して
質問  質問(初心者A氏)  - 06/7/24(月) 13:59 -

引用なし
パスワード
   1点教えて下さい。

EXCELのデータを固定長形式で出力する場合の処理です。

↓で桁数を定義(12文字)
Type recFormat
  f1 As String * 12
End Type

↓で編集したセルの内容を転送
 With rFormat
    RSet .f1 = mArray(i, 1)
  'RSet .crlf = vbCrLf
  End With

以上のケースで例えば、セルの値が
1.2の時、出力は
0000001.2000
したいのですが、どのようにすればいいのか教えて下さい。

宜しくお願いします。

【40811】Re:テキストデータへの出力に関して
回答  ハト  - 06/7/24(月) 16:26 -

引用なし
パスワード
   おはようございます

▼質問(初心者A氏) さん:
>1点教えて下さい。
>
>EXCELのデータを固定長形式で出力する場合の処理です。
>
>↓で桁数を定義(12文字)
>Type recFormat
>  f1 As String * 12
>End Type
>
>↓で編集したセルの内容を転送
> With rFormat
>    RSet .f1 = mArray(i, 1)
>  'RSet .crlf = vbCrLf
>  End With
>
>以上のケースで例えば、セルの値が
>1.2の時、出力は
>0000001.2000
>したいのですが、どのようにすればいいのか教えて下さい。
>
>宜しくお願いします。

整数部7桁、小数部4桁、固定ならば

  RSet .f1 = Format(mArray(i, 1), "0000000.0000")

として試してみて下さい

【40814】Re:テキストデータへの出力に関して
お礼  質問(初心者A氏)  - 06/7/24(月) 16:49 -

引用なし
パスワード
   うまくいきました。
助かりました。

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