Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10644 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【20662】ゼロ埋めについて たくみ 04/12/14(火) 11:20 質問[未読]
【20664】Re:ゼロ埋めについて IROC 04/12/14(火) 11:40 回答[未読]
【20666】Re:ゼロ埋めについて たくみ 04/12/14(火) 11:44 回答[未読]
【20668】Re:ゼロ埋めについて IROC 04/12/14(火) 11:45 回答[未読]
【20669】Re:ゼロ埋めについて たくみ 04/12/14(火) 12:00 回答[未読]
【20670】Re:ゼロ埋めについて Asaki 04/12/14(火) 12:24 回答[未読]
【20671】Re:ゼロ埋めについて IROC 04/12/14(火) 13:00 回答[未読]
【20673】Re:ゼロ埋めについて たくみ 04/12/14(火) 13:11 回答[未読]
【20672】Re:ゼロ埋めについて たくみ 04/12/14(火) 13:11 回答[未読]
【20662】ゼロ埋めについて
質問  たくみ  - 04/12/14(火) 11:20 -
引用なし
パスワード
   どうもです。
Excelに口座番号などの0埋めされるﾃﾞｰﾀ(000001など)を出力しようと思っているのですが、0が省略され1と出力されてしまいます。
また、A = "'" & 000001とﾃﾞｰﾀを格納したら000001の前に’が表示されてしまいます。
どなたかいい方法を教えて下さい。
【20664】Re:ゼロ埋めについて
回答  IROC  - 04/12/14(火) 11:40 -
引用なし
パスワード
   セルの書式を文字列にしておいては如何ですか？
【20666】Re:ゼロ埋めについて
回答  たくみ  - 04/12/14(火) 11:44 -
引用なし
パスワード
   ごめんなさい。いい忘れです。
CSV出力しようとしているので、指定したExcelをひらかないんです・・・。
【20668】Re:ゼロ埋めについて
回答  IROC  - 04/12/14(火) 11:45 -
引用なし
パスワード
   現在、どのように出力しようとしているのですか？
【20669】Re:ゼロ埋めについて
回答  たくみ  - 04/12/14(火) 12:00 -
引用なし
パスワード
   Dim A As String
Dim B As String
Dim C As String
Dim D
　　 ・
　　 ･
　　 ･
A = "'" & 000001
B = "'" & 000002
C = "'" & 000003
D = D & A
D = D & B
D = D & C
Print D
　　 ･
　　 ･
　　 ･
といった感じです。
【20670】Re:ゼロ埋めについて
回答  Asaki  - 04/12/14(火) 12:24 -
引用なし
パスワード
   こんにちは。

出力したCSVファイルを、Excelでない、何かメモ帳などテキストエディタで開いても、
0がなくなって表示されますか？

AとかBとかは、文字列として宣言した変数ですか？
【20671】Re:ゼロ埋めについて
回答  IROC  - 04/12/14(火) 13:00 -
引用なし
パスワード
   >A = "'" & 000001
>といった感じです。

A = "'" & "000001"

"" が抜けていませんか？


もし、CSVをEXCELで開いているのであれば、
テキストファイルのインポートを使って書式を文字列にして開いて下さい。
【20672】Re:ゼロ埋めについて
回答  たくみ  - 04/12/14(火) 13:11 -
引用なし
パスワード
   A,Bは文字列として宣言しています。
テキストエディタで開くと０埋めされています。
【20673】Re:ゼロ埋めについて
回答  たくみ  - 04/12/14(火) 13:11 -
引用なし
パスワード
   了解しました。
試してみます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10644 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free