- ベストアンサー
ＶＢＡでＥＸＣＥＬから固定長のテキストデータにしたい
ＶＢＡにてＥＸＣＥＬに展開されたデータを固定長のテキストデータに落としたい。 ＥＸＣＥＬ側の用件 (1)シート１にボタンを用意して、ボタンをクリックしたらテキストファイルを作成する処理にしたい。 (2)シート２にデータが展開されている。 列は１０個程度、行は場合によりけり（ＭＡＸ65536？） 固定長にする箇所とかはわかるのですが、ボタンクリックしたらシート２を見て、セル（もしくはrange）をどのように取得すればいいのかＶＢＡがよくわからないのです。
- kuriosprj
- お礼率39% (40/102)
- その他（プログラミング・開発）
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
参考URLを見てください。 サンプルもあります
関連するQ&A
- EXCEL VBA 別シートへデータ集計
お世話になります。 EXCEL VBAを使って下記のことを実現したいです。 [やりたいこと] [データ]シートに社員情報が4人分入っています。(本当は可変です) [データ]シートに"集計"というボタンを作ってクリックするとVBAが動いて[集計]という シートにデータを集計したいのです。この[集計]シートのフォームが少し変わっていて一人に つき3行使用します。次の人はまた3行、また次の人は3行と繰り返していきたいのです。 上記やりたい事を画像にもしてみました。 上記動作を実現するVBAコードをどなたかご教授いただけませんでしょうか？ 何卒よろしくお願い致します。 環境 EXCEL 2017 Win7
- ベストアンサー
- Visual Basic
- Accessにエクセルからデータをインポートしたい（ＶＢＡ）
Access(2000)のＶＢＡでExcel(2000)からデータをインポートしたいと思います。 詳細は以下の通りです。 フォームでコマンドボタンをクリック時にダイアログボックスが開き、ファイルを指定し、該当のシート（シート名はどのファイルも固定）のデータをアクセスのテーブルにインポートしたい。 どうしたらできるのかここ数日悩んでいます。 よい方法がありましたら教えてください。
- ベストアンサー
- オフィス系ソフト
- VBAでテキストファイルのデータを読み込んでExcelで開く＋α
テキストファイルをExcelファイルとして読み込む事が多く、その量に加えデータの並び方が特殊な為困っております。 テキストファイルのデータの並びをExcelで上下逆順に読み込ませるにはどのようにすればいいでしょうか？ また、まとめて複数のテキストファイルを上記の状態で自動的にシートごとに分けて出力させたりしたいのですが。 (例-１行目は無視) ---テキストデータ(タブ区切り)--- 0 0 10 02 11 05 02 15 01 20 25 12 15 10 ---Excelシートデータ--- 0 0 12 15 10 01 20 25 05 02 15 10 02 11
- 締切済み
- Visual Basic
- エクセルVBAで、テキストボックスにセルの値を入れる
宜しくお願いします。 エクセルデータの各項目を、すでに書式（表）が印刷された用紙のそれぞれの項目の位置に印刷させたいのですが・・・ 各項目には、500行ぐらいのデータがあり、別のワークシートの表示させたい位置（すでに印刷された用紙にあわせてある）に各項目ごとのテキストボックスを作っておいて、そのテキストボックスに各項目のデータを1行ごとに表示させて、テキストボックスのフォント調整、印刷 ～を繰り返したいのですが、どのようなコードを書けばよいのでしょうか？ 進め方としては、データシートからテキストボックスに各項目のデータが表示されたら、シート上でテキストボックスのフォントや位置の微調整が出来るようにしておいて、印刷ボタンをクリックすると印刷され、次へのボタンをクリックすると、次の行のデータがテキストボックスに表示されるようにしたい。 ※印刷する場合は、テキストボックス内の文字のみ印刷（シートには印刷したくない文字書きたいので・・・） また、そのフォームには、パターンが５つあって、データには1行ごとにパターン番号が入力されているとして、それぞれのパターンにあわせたテキストボックスの配置してあるシートへ行くようにもしたい。 データの入れ替わりが多いので、別のワークブックと繋がるような仕組みにしておいて、テキストボックスの配置してあるブック側から、データのあるブックを呼びに行ってデータを取りに行くようにしておきたい。 以上、条件が多くてすみませんが、VBAは初心者で、ほんの部分的にしかまだ分かりません。どなたか詳しい方宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- Excel Vba でデータの範囲を知るには？
Excelを使用していますが、マクロ（VBA）で、シートのデータの範囲を知るにはどうすればよいのでしょうか。 印刷プレビューを行うと、自動的にページ数が求めらていますが、これは、シートのデータの範囲（列及び行の最大値）を判別しているからできるのだと思います。 これを、ＶＢＡで行、及び列のＭＡＸ値を取得したいのですが、そのメソッド（プロパティ）を知りたいのです。 どなたかご教授ください。
- ベストアンサー
- オフィス系ソフト
- excel vba DATAの日集計
excel vba DATAの日集計 いつもお世話になっています。 "DATA"シートのセル"D2"の日付を変えると表の数値が変わるようにしています。 その日毎のデータを"集計"シートの日別の表に飛ぶようにしているのですが、 １日分の転記するセル数が多く、Select Caseで３１日分のコードを書くと、あまりにも プロシージャーが大きくなります。（Case1からCase31・・・結果分割してますが） FOR NEXT なのかな～、もっと効率のいい書き方がありましたらよろしくお願いします。 例："集計"シート１日分は、9行となります。それぞれ"DATA"シートからの転記です。"DATA"シートのF5+F10,G5+G10~AC5+AC10までそれぞれの値を"集計"シートのG5からAD5まで、F6+F12,G6+G12~AC6+AC12までそれぞれの値を"集計"シートのG13からAD13までといった具合です （日の9行はそれぞれ決まったある行とある行の加算です、これが３１日分の行があります） Sub macro() Dim myrng As Range Dim c As Range Set myrng = Sheets("DATA").Range("D2") For Each c In myrng Select Case c.Value Case 1 '１行目 Sheets("集計").Range("G5").Value = Sheets("DATA").Range("F5") + Sheets("DATA").Range("F10") | | Sheets("集計").Range("AD5").Value = Sheets("DATA").Range("AC5") + Sheets("DATA").Range("AC10") | | '９行目Sheets("集計").Range("G13").Value = Sheets("DATA").Range("F6") + Sheets("DATA").Range("F12") | | Sheets("集計").Range("AD13").Value = Sheets("DATA").Range("AC6") + Sheets("DATA").Range("AC12")
- ベストアンサー
- Visual Basic
- Excel VBA データの転記
Excel2003を使用しています。 Sheet1のB1セルとSheet2のB1セルのデータが一致したら、Sheet2のB1セル～E1セルのデータをSheet1のF1セル～Iセルに転記するというコードを書いています。 Sheet1のデータ最終行を取得して、上記の条件を満たさなかったSheet2のB1セル～E1セルのデータをSheet1のデータ最終行の1行下から順に転記するという内容を追加したいのですが、転記先の指定の仕方が悪いのか、希望通りになりません。 どなたか一例を示していただけないでしょうか？ スマホからの投稿で、実際に書いているコードを記載できず、分かりづらくて申し訳ないのですが、よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- ExcelのＶＢＡにてキーになるものを入力すると、その関連データを振り分ける
２つのシートがあり、sheet2に振分けるデータ（下表）を作成しておきます。 （列） １ ２ ３ （行） １ Ａ Ｂ Ｃ ２ ○ △ × ３ ア イ ウ (1)sheet1にコンボボックスにてＡを入力する。ＡはセルＡ１（固定）に、ＢはセルＣ３（固定）に、Ｃは、セルＥ５にそれぞれ決められたセルにコピーされる。 (2)sheet1にコンボボックスにて○を入力する。○はセルＡ１（固定）に、△は、セルＣ３（固定）に、×は、セル（Ｅ５）にそれぞれ決められたセルにコピーされる。 (1)と(2)のコピーされる場所は、同じ場所です。 というようなものをExcelのＶＢＡにて作成したいのですが、ＶＢＡは、あまりよくわかりません。 宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- Excel VBAでの固定長のテキストファイル読み込み
こんにちは。 会社にてEXCELをちょろっとかじっていると言う理由から、あまり触ったことのないVBAを使って固定長のテキストファイルを読み込むプログラムを作るように言われてしまって困っています。 利用している固定長のテキストファイル中の各行の桁数は同一でなく、行によってまちまち。しかし、各行の始めの3ケタはヘッダになっています。 例) ABCTTTTTTTTTTTTTTTTKKKKKOOOOOOPPPPPPPPWWWWWWWWWWWWWWWWWWWWWWWSS XYZLLLLL <ABCとXYZがヘッダ。同じ文字が固定長で決まったあるデータ項目と考えて下さい> もちろん、1ファイルにはもっとたくさんの行がずらずら並んでおります。 中身自体は、ある伝票の内容なのですが、1ファイル中には複数の伝票内容(ヘッダABC～XYZで1伝票)が記されております。 なので、ヘッダで言うとABC,DEF,GHI...XYZとなってまたABC～が続く。 しかも、ある伝票では途中存在しないヘッダがあったり、同じヘッダが何回も繰り返されたりするものもあります。 (ABC,DEF,DEF,DEF,GHI..やABC,GHI,JKL..など) これをどうやってEXCELの各セルに貼り付けるかがどう頑張っても分かりません。どうすればよいのでしょうか？
- 締切済み
- その他MS Office製品
- エクセルVBAで、テキストボックスに値を入れる（３）
質問がバラバラになってしまってすみません！ エクセルVBAで、テキストボックスに値を入れる（１）の 回答13で、 データシートの何行目～何行目までを印刷させる方法（Sheet7にボタン） をさせるには、どうしたら良いでしょうか？宜しくお願いします。 前回のURL：http://oshiete1.goo.ne.jp/kotaeru.php3?qid=79173 http://oshiete1.goo.ne.jp/kotaeru.php3?qid=85389
- ベストアンサー
- オフィス系ソフト
お礼
mauraさん ありがとうございます。 教えていただいたＵＲＬで既に参考にさせていただいていました。 すこし変更を加えて正しく処理されました。 またお願いします。