- ベストアンサー
EXCELマクロで自動改行
toshi_2000の回答
- toshi_2000
- ベストアンサー率30% (306/1002)
D1のセルに=A61という式(あとも同様)を入れておけば表示されます。
関連するQ&A
- EXCELでマクロを使った検索&自動計算をするには?
いつもいろんな方に回答いただき大変助かっております。 まずはそのお礼をさせていただきます。ありがとうございます。 さて、本題ですが、 基本データとして「名前」「金額」「とある数値データ」が各々「A列」「B列」「C列」に100件未満が並んでいます。 (例) A列 B列 C列 1行 あ様 1000 50 2 い様 10 0 ↓ ↓ ↓ ↓ 100 を様 5000 2500 そして別の場所(同じシート内)に「名前」「金額」「とある数値データ」と、同じ内容が書き込めるスペースを作り、ここにデータを入れてマクロを実行すると、既存のデータ(A~C列)の同じ名前の人へ「金額」「とある数値データ」を加算するものを作りたいのです。 (例)【基本データ】 【加算データ】 A列 B列 C列 … F列 G列 H列 I列 1行 あ様 1000 50 名前 金額 数値 ★★ 2 い様 10 0 あ様 10 62 ↓ ↓ ↓ ↓ 100 を様 5000 2500 ←マクロ実行後、5000に10が足される マクロを実行後は加算データの入力欄(例ではF2:H2)内の数値が消されすぐに次のデータが入力できるように出来れば尚いいです。 また、A列に追加データに入力したF2と同じ名前がなかった場合、I1(★★の部分)に「該当無し」と表示したいのです。 該当がなかった場合は手入力でA列に名前を新しく入力して金額・数値を入力しますので、判定が必要なのです。 このような内容をするにはどうしたらよいのでしょうか? ちなみにマクロの実行は追加欄の近くにオートシェイプなどでボタンを作りクリックすることでマクロを起動させたいと考えています。 乱文かつ長くなりましたが、どなたか指導いただける方よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- エクセルのマクロ記述について
下記の処理をエクセルのマクロで行いたいのですが、どのように記述したよいか教えてください。 4行目から入力されている行まで下記の処理をマクロで行う。 1.J列のセル入力がCIRCLEの行で、B~E列の数値が同じセル間を結合する。 2.K列のセル入力がCIRCLEの行で、F~I列の数値が同じセル間を結合する。 3.J列のセル入力がOBLONG_XまたはOBLONG_Yの行で、B,D列及びC,E列の数値が同じ場合、B列をB列の数値XC列の数値とし、B~E列のセルを結合する。 4.K列のセル入力がOBLONG_XまたはOBLONG_Yの行で、F,G列及びH,I列の数値が同じ場合、F列をF列の数値XG列の数値とし、F~I列のセルを結合する。 5.J列のセル入力がOBLONG_XまたはOBLONG_Yの行で、B,D列及びC,E列の数値が同じでない場合、B列をB列の数値XC列の数値とし、B,C列のセルを結合する。又、D列をD列の数値XE列の数値とし、D,E列のセルを結合する。 6.K列のセル入力がOBLONG_XまたはOBLONG_Yの行で、F,G列及びH,I列の数値が同じでない場合、F列をF列の数値XG列の数値とし、F,G列のセルを結合する。又、H列をH列の数値XI列の数値とし、H,I列のセルを結合する。 7.J列のセル入力がSHAPEの行で、B~E列は何もしない 8.K列のセル入力がSHAPEの行で、F~I列は何もしない
- 締切済み
- Visual Basic
- EXCELの「行列を入れ替える」マクロについてどなたか教えていただけないでしょうか?
EXCELの「行列を入れ替える」マクロについてどなたか教えていただけないでしょうか? 下記のようにならんだDATAがあります。 A列 B列 C列 D列 E列 (1行)2002/12/17 15240 15280 15220 15220 (2行) (3行) (4行) (5行)2002/12/18 15250 15250 15210 15210 (6行) (7行) (8行) (9行)2002/12/19 15220 15310 15220 15310 (10行) (11行) (12行) (13行)2002/12/20 15220 15260 15210 15230 (14行) (15行) (16行) (17行)2002/12/24 15300 15310 15270 15310 (18行) (19行) (20行) (21行)2002/12/25 15300 15340 15300 15600 . . . . . . . . . . . . . . . . . . . . . . . と,このようにDATAは日付の横に数値が4つずつ横に並んでおりますが、この4つの数値をその4つ目の数値の真横のF列から縦に4つ並べたいのですが、一気にできるマクロがないものでしょうか?下記のようにです。 A列 B列 C列 D列 E列 F列 2002/12/17 15240 15280 15220 15220 2002/12/18 15250 15250 15210 15210 2002/12/19 15220 15310 15220 15310 . . . といった感じに一気にマクロで処理してしまいたいのです。DATAはかなりの行数あり、すべて3行の間隔があります。日付の横に4つの数値が規則的に並んでいるというものです。何回でもマクロボタン一発で4つの横に並んだ数値のみを縦に並べた4つの数値にしたいのです。つたない説明で大変申し訳ありませんが、どなたかわかる方お教えくださいませ。
- ベストアンサー
- オフィス系ソフト
- 自動入力マクロ教えてください
sheet1のB列に数値を入力していますデータは10行目以降に入力されています。 データが1,10.20ならsheet2のB列、2.15.35ならsheet2のC列5.40ならsheet2のD列それ以外はsheet2のE列に自動的に入力したいのですがそのマクロを教えていただけないでしょか。行はsheet1と同じ行に入力します
- ベストアンサー
- オフィス系ソフト
- エクセル関数の自動表示について
自動表示についてご質問いたします。 シート1 (3月入力時) A列 B列 C列 D列 E列 F列 G列 H列 1行目 1月 2 10 11 12 30 31 33 2行目 2月 1 2 5 8 9 10 48 3行目 3月 3 5 10 11 30 31 32 4行目 4月 こういうシート1の表があったとします。 シート1で3月入力した時点で、シート2では以下の表があったとします。 A列 B列 C列 D列 E列 F列 G列 1行目 3 5 10 11 30 31 32 と、自動で表示され。 4月(シート1)に数値を入力すれば、シート2の数値が最新数値に自動で入れ替わる・・・と、いう関数を作りたいのですが、いい関数ありますでしょうか? この場合、シート1ではB列~H列の数字の個数は固定(今回は7個)であり、毎回ランダムで数字が入力されていきます。 これをシート2の1行目、A列~G列に最新数値を毎回反映させて、表示したいのです。 どなたか、ご存知の方よろしくお願いします^^;
- ベストアンサー
- オフィス系ソフト
- マクロ フォントカラーを条件指定して印をつける
フォントカラーが赤の数値があれば〇を入力、みたいなことは、マクロでは可能でしょうか? 可能ならば、A~C列に赤フォントの数値があり、かつD~F列に赤フォントの文字列があったら、その行に〇を入力する、というマクロが知りたいのですが。
- 締切済み
- Excel(エクセル)
- エクセル シート自動 マクロ
以前作っていたエクセルの自動シートです http://okwave.jp/qa/q9223527.html 今回別のエクセルを作ることになり 助けてほしいのですが シート1 名簿 A1に「=TODAY()」いれ日付表示 B列 C列 D列 E列以降に非表示にして隠しておく 変更があるときにボタンで再度表示して入力する 1 氏名 ボタン1 (生年月日・年齢・基礎体重・身長・握力・など) 2 氏名 ボタン2 (生年月日・年齢・基礎体重・身長・握力・など) 3 氏名 ボタン3 (生年月日・年齢・基礎体重・身長・握力・など) 4 氏名 ボタン4 (生年月日・年齢・基礎体重・身長・握力・など) 5 氏名 ボタン5 (生年月日・年齢・基礎体重・身長・握力・など) のみ記載がある シート2 情報原本 それぞれの項目がある C1氏名・C2生年月日・C3年齢・C4基礎体重・C5血圧など D1 D2 ・・・・ などいろいろ情報を記入する場所を作る予定 シート1 それぞれボタンを作成 ボタン1~5をそれぞれ押した時、シート2(情報原本)をコピーして別シートにして 新しく名前を付けそれぞれのボタンに記録されている基本情報(氏名・生年月日・年齢 ・目標体重)が自動的に指定されたところに入力され作成されるものを作りたいのですが 毎日それぞれ人の情報シートを作り管理していこうと思っているため ボタン管理できたらうれしいのですが 助けてください
- 締切済み
- Excel(エクセル)
- Excelで列の操作の自動化をしたいです
列、C列、E列、G列・・・の1行目にはタイトルが入力されており、 B列、D列、F列、H列・・・には不特定の文字列が入力されており、それぞれ行数も不特定です。 A列、C列、E列、G列・・・の1行目のタイトルはA列にまとめ、B列、D列、F列、H列・・・の文字列はB列にまとめたいです。 下の例の場合だと、C列の1行目のタイトルをB列の下端の左下にあたる(A7)に移動させ、 D列の2行目から入力された文字列を右となりの(B7)に移動させたいです。これの繰り返しをマクロで自動化したいです。 A列 B列 C列 D列 1 あ A い 2 B a 3 C b 4 D c 5 E 6 F ↓ A列 B列 C列 D列 1 あ A 2 B 3 C 4 D 5 E 6 F 7 い a 8 b 9 c よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルで、次のような自動入力をしたい
A B C D E ・・ AA 1 田中 鈴木 佐藤 山田 2 鈴木 山田 海岡 3 田中 佐藤 佐藤 というような表があり、AAの列に名前を入力したとき、 D1に「山田」、C2「海岡」と、その行に関してAA列に新規の名前が入力されたときにD1,C2に自動入力することは、VBAで簡単にできますか? 3列目には「佐藤」さんがすでいるので入力不要です。 よろしくお願いします。(マクロ初心者です)
- ベストアンサー
- オフィス系ソフト
- Excel マクロ 改行数を求めたい
いつもお世話になってます。 今Sheet1のC列のデータをSheet2のD列に移すマクロを作っていますが、 Sheet1には1~4行位のセルもあり、それを1行毎に分割してコピーしたいと考えています。 Splitで分割してみたのですが、 tmp = Split(Range("C1"), chr(10)) Sheets("Sheet2").Select Range("D9")=tmp(0) Range("D10")=tmp(1) Range("D11")=tmp(2) Range("D12")=tmp(3) といった感じにすると 改行数が1~3の場合、エラーが出てしまいます。 (実際にはC列にデーターがある分だけ上記を繰り返します。) そこで改行数を求めようとしましたが、 a = InStr(Range("C1"), chr(10)) これでは何行あっても数値(この場合は"a")が10になってしまい、うまくできません。 何かいい手段がありましたらご教授願います。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
補足
再度のご連絡有難うございました。 今日、更に詳しく聞いて来ました。 Excelで、Word文書の3段組みのような表示方法を自動的に取ってくれる方法を探しています。量が膨大(毎日新規で10,000人分くらいのデータがやって来ます)なので、いちいち入れて行くのは手間が掛かり過ぎるのです。