Excel VBA質問箱 IV

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

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


74768 / 76732 ←次へ | 前へ→

【6420】忘れてませんでしたよ〜。
質問  あやか  - 03/6/28(土) 17:12 -

引用なし
パスワード
   Jakaさん、ありがとうございます。
Sub Zero()は一度自分でトライしたコードに
近かったです。全然だめだったので嬉しい^▽^
というか全然違った。
ですがそのまんま貼り付けると「変数が定義されてません」
と出ます。CLM =のところが色反転します。
Sub ayy4()のほうもkansuu =でひっかかってしまいます。

ポンタさんのときはエクセルの値に問題がありましたが
どうなんでしょう?
本当に初心者ですいません;;

▼Jaka@浅草橋 さん:
>こんにちは。
>IMacイディゴからです。文字化けしてたらすみません。
>
>最初手作業でやってもらおうとしたのは、Sub ayy4()の実行結果みたいに別シートに関数を書いてもらって、そのシートを別名保存でテキスト保存してもらおうかと思っていたんです。(直接テキストにコピペしても大丈夫かも。)
>が、こう言うところ↓を読んでなかったり、
>>一部のセルで、金額を表示のしたいのですが桁数が違うとずれてきてしまいます。
>>バイト数を制限して表示したいのですが
>
>
>>書き出したテキスト内容
>>030625100050
>>03062630000150
>
>>を、
>>030625 1000  50
>>030626 30000  150
>の意味が良くつかめませんでした。
>
>データシートをアクティブにした状態で。
>Sub ayy4()
>  Dim DatShN As String, ShE As Long
>  'DatShN = "data"
>  DatShN = ActiveSheet.Name
>  ShE = Sheets(DatShN).Range("A65536").End(xlUp).Row
>  Worksheets.Add after:=Worksheets(Worksheets.Count)
>  Columns(1).Font.Name = "MS ゴシック"
>  kansuu = "=" & DatShN & "!C&" & DatShN & "!C[1]&" & "REPT("" "",LEN(MAX(" & _
>       DatShN & "!C[2]))-LEN(" & DatShN & "!RC[2]))&" & DatShN & _
>       "!RC[2] & REPT("" "",LEN(MAX(" & DatShN & "!C[3]))-LEN(" & DatShN & _
>       "!RC[3]))&" & DatShN & "!RC[3]"
>  Range("A1:A" & ShE).FormulaR1C1 = kansuu
>End Sub
>
>
>処理内容が、よく解らなかったのに加えて、手動での作成方法も覚えてもらおうかと思いまして。
>(処理内容がわかっていれば、コード的にはたいしたことじゃなかったのに。)
>下は、全部マクロでやっています。
>
>データシートをアクティブにした状態で。
>Sub Zero()
>  Dim File_OUT As String, ERow As Long, StA As String, StB As String
>  Dim StC As String, StD As String
>  Const SP As String = "     "
>  ERow = Range("A65536").End(xlUp).Row
>  CLM = Len(Application.Max(Columns("C")))
>  DLM = Len(Application.Max(Columns("D")))
>  File_OUT = ThisWorkbook.Path & "\" & "作ったテキスト.txt"
>  Open File_OUT For Output As #1
>  For i = 1 To ERow
>    StA = Range("A" & i).Text
>    StB = Range("B" & i).Text
>    StC = Right(SP & Range("C" & i).Text, CLM)
>    StD = Right(SP & Range("D" & i).Text, DLM)
>    Print #1, StA & StB & StC & StD
>  Next
>  Close #1
>End Sub

1 hits

【5035】セルの内容をテキストに 花粉症 03/4/18(金) 14:42 質問
【5040】Re:セルの内容をテキストに ichinose 03/4/18(金) 17:36 回答
【5041】Re:セルの内容をテキストに BOTTA 03/4/18(金) 18:24 回答
【5051】Re:セルの内容をテキストに 花粉症 03/4/19(土) 10:02 お礼
【5052】Re:セルの内容をテキストに 花粉症 03/4/19(土) 10:07 お礼
【5053】Re:セルの内容をテキストに ichinose 03/4/19(土) 11:40 回答
【5055】Re:セルの内容をテキストに 花粉症 03/4/19(土) 12:31 お礼
【5820】Re:セルの内容をテキストに リト 03/6/2(月) 18:45 質問
【5872】Re:セルの内容をテキストに BOTTA 03/6/5(木) 10:13 回答
【5883】Re:セルの内容をテキストに リト 03/6/5(木) 19:38 質問
【5886】Re:セルの内容をテキストに BOTTA 03/6/6(金) 10:33 回答
【5890】Re:セルの内容をテキストに リト 03/6/6(金) 15:35 質問
【5895】Re:セルの内容をテキストに BOTTA 03/6/6(金) 20:35 回答
【6354】Re:セルの内容をテキストに あやか 03/6/25(水) 17:36 質問
【6369】Re:セルの内容をテキストに BOTTA 03/6/26(木) 13:47 回答
【6372】Re:セルの内容をテキストに あやか 03/6/26(木) 14:37 質問
【6381】Re:セルの内容をテキストに BOTTA 03/6/26(木) 17:01 回答
【6383】手作業ですけど...。 Jaka 03/6/26(木) 17:25 発言
【6389】Re:手作業ですけど...。 あやか 03/6/27(金) 1:25 質問
【6392】すみません。全部忘れてください。 Jaka 03/6/27(金) 11:14 発言
【6395】Re:すみません。全部忘れてください。 あやか 03/6/27(金) 11:44 お礼
【6418】Re:すみません。全部忘れてください。 Jaka@浅草橋 03/6/28(土) 13:29 回答
【6420】忘れてませんでしたよ〜。 あやか 03/6/28(土) 17:12 質問
【6442】Re:忘れてませんでしたよ〜。 Jaka 03/6/30(月) 10:04 回答
【6448】あ、それと..。 Jaka 03/6/30(月) 13:02 回答
【6457】Re:あ、それと..。 あやか 03/6/30(月) 22:07 お礼
【6388】Re:セルの内容をテキストに あやか 03/6/27(金) 1:13 お礼
【6393】Re:セルの内容をテキストに ポンタ 03/6/27(金) 11:26 回答
【6397】Re:セルの内容をテキストに あやか 03/6/27(金) 12:00 質問
【6399】Re:セルの内容をテキストに ポンタ 03/6/27(金) 12:30 回答
【6400】Re:セルの内容をテキストに あやか 03/6/27(金) 13:00 質問
【6401】Re:セルの内容をテキストに ポンタ 03/6/27(金) 13:09 回答
【6402】Re:セルの内容をテキストに あやか 03/6/27(金) 13:18 質問
【6406】Re:セルの内容をテキストに ポンタ 03/6/27(金) 14:10 回答
【6407】Re:セルの内容をテキストに ポンタ 03/6/27(金) 14:23 回答
【6408】Re:セルの内容をテキストに あやか 03/6/27(金) 14:28 質問
【6410】Re:セルの内容をテキストに ポンタ 03/6/27(金) 14:51 回答
【6411】Re:セルの内容をテキストに あやか 03/6/27(金) 15:00 お礼
【6422】Re:セルの内容をテキストに あやか 03/6/28(土) 23:13 質問
【6428】Re:セルの内容をテキストに あやか 03/6/29(日) 23:33 回答
【6423】Re:セルの内容をテキストに あやか 03/6/28(土) 23:15 質問
【6441】Re:セルの内容をテキストに ポンタ 03/6/30(月) 9:38 回答
【6459】できたぁぁぁぁ! あやか 03/7/1(火) 19:46 お礼
【6424】Re:セルの内容をテキストに あやか 03/6/29(日) 1:32 質問
【6429】Re:セルの内容をテキストに あやか 03/6/29(日) 23:34 回答

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