mar00 の回答履歴

お世話になります。 指定したセルを先頭に、任意で指定した範囲で連続データを自動入力するマクロを組みたいです。 具体的には... A1にシリアル番号の先頭番号_例えば"25"と入力 B1にシリアル番号の最後尾の番号_例えば"35"と入力 データを入力すると、C列の5行目を先頭に、25,26,・・・,35と下方向に自動割り当て。 自分ではなりに下記の様に、C列に指定した範囲で1つずつ入力するプログラムは組めましたが... For i = Cells(1, 1) To Cells(1, 2) Worksheets("Sheet1").Cells(i, 4) = i Next i これでは5行目から入力したいのに、25行目から始まってしまいます。 指定したセルに上記のプログラムで実行した数値を入力していくプログラムがいまいち 分かりません。 ご教授の程おねがい致します。

ひとつのセルの合算結果に対し千円未満の端数切り捨てがなされる関数式を教えてください。 たとえばA1には別のセルでだした合算873.714円がでます。 これに対し、同時に873.000円というように切り捨てされる関数式です。

お世話になります。 EXCEL VBAを使って社員名簿を印刷したいのです。 データというシートに社員情報が入っています。(可変ですが100名ほど) このシートに[印刷]というボタンを配置してこれをクリックしたらSheet1の様式にあてはめて 社員人数分印刷をしたいのです。 どのたかお知恵をおかりできますでしょうか？ よろしくお願い致します。 EXCEL2013

すみません。先日も質問したのですが添付のような印刷フォームに元データからデータを抽出して連続印刷をかけたいのですが印刷フォームは定型文になっており、1枚で提出になっている為、 元データが1000件近くあるので、都度印刷することが厳しい状況になっています。 印刷フォームにデータを取り込んで10件づつ印刷をするマクロかVBAをしたいのですがなかなかうまくいきません。 何か方法があれば教えて下さい。 添付のピンクの部分が元データから抽出する内容です。登録番号はすべて同じで１～10にデータを入力します。 全部で1000件近い人数分があります。

すみません。先日も質問したのですが添付のような印刷フォームに元データからデータを抽出して連続印刷をかけたいのですが印刷フォームは定型文になっており、1枚で提出になっている為、 元データが1000件近くあるので、都度印刷することが厳しい状況になっています。 印刷フォームにデータを取り込んで10件づつ印刷をするマクロかVBAをしたいのですがなかなかうまくいきません。 何か方法があれば教えて下さい。 添付のピンクの部分が元データから抽出する内容です。登録番号はすべて同じで１～10にデータを入力します。 全部で1000件近い人数分があります。

A列にエリア、B,C,Dにそのエリアの情報が格納されているエクセルファイルがあります。 エクセルマクロで、A列に入っているエリア（たとえば、東北、関東、関西、四国、九州など）ごとに、そのエリアの行をコピーして新規Bookを作成するというコードを書きたいのですが、どなたかご存知の方ご教授ください。

ＶＢＡ初心者です たとえば添付の様な形のＡ，Ｂが空白になっているデータが３００行位 続いている場合Ｂ列の空白にA行の1段下の値を抜き出したいときにどういうＶＢＡが書けるか分かる方ご教授願います。（Ｂ７にはｘｘ、Ｂ１４にはＹＹ、Ｂ１９にはＨＨなどの用に）。

A1からC3を選択して印刷範囲に設定、3行下のA6からC8を選択して印刷範囲に追加、3行下のA11からC13を選択して印刷範囲に追加・・・という感じで3行ごとに100回ぐらい繰り返すマクロってどうやるんでしょうか？ 教えてくださいm(_ _ )m

エクセルで質問です。 下記の状態で、F1に、２行目で数字が入力されている列までを1行目で 合計額を出したいです。 計算式はありますか？？？ 例えばで、下記の例でいうと、「28」を自動集計したいです。 それでいて、次回C2に数字を入れた場合、F1を「34」となるように したいのです。 　　　　　　　　Ａ　　Ｂ　　Ｃ　　Ｄ　　Ｅ F 　　　　　　　　1月　 2月　 3月　 4月　 ５月 合計 １行目　Ｈ25　　10　　18　　6　 25 　 30　「28」 ２行目　H26　　　4　　40　　　　　　　 　 44 どなたかわかる方、教えてください。 よろしくお願いします。

アクティブセルへ入力し、エンターを押すと右隣のセルへ移動するように Module 1へ Sub セル() ActiveCell.Offset(0, 1).Select End Sub と、入れましたが、エンターを押すと、下のセルへ移動してしまいます。 どこを直せばいいでしょうか？

締切が迫っています。年末調整の書類の書き方がわからず、困っています。 私は5月から今の会社に入り、3か月後の7月末まで国民年金保険料を支払っていました。 （正確には今年2月に夫が会社を辞め、私は2月から7月まで国民年金を払っていました。8月からは社会保険に入っています。） この間、年金事務所（日本年金機構）から通知が来て、国民年金保険料控除証明書が届きました。 この証明書は社会保険料控除として申告する際に必要、と証明書に書かれていました。 慌てて年末調整の書類を書こうと思いましたが、このようなケースは初めてでして、書き方がわかりません。 右下の社会保険料控除、という所でしょうか？ わかる方、詳しく教えて下さい。お願いします。 申し訳ないですが、総務関係に聞け、という回答はご遠慮下さい。わかる方のみ回答お願いします。期限も迫っていますので急いでいます。お願い致します。

Excel2007のマクロを利用してセルの色を変更しようと思います Range("茶色範囲").Interior.ColorIndex = 9 としてA2セルからA10セルまた、A2セルからG2セルまでを一度に変更したい場合 茶色範囲というのを、どこかに　指定する必要があるのですが、 これは一般的にどこに指定すればいいでしょうか？ 富士通の緑の本がわかりやすいので勉強しているのですが、 その範囲指定がどこで行っているのかがわからず質問しました。 ご存知の方いらっしゃいましたら、教えてください。 よろしくお願いします

画像の乙シートを作りたいと思っています。 甲シートは約80枚あります。C列に「休」という文字か、出席を表す「1」という文字が入るようになっています。また約80枚のシート名には、それぞれ氏名が入力されています。 甲シートのC列に「休」と書いてあれば、対応した日の乙シートC列に、自動で名前（シート名+スペース）が出るようにしたいです。 可能でしょうか？よろしくお願いします。

Excel2007のマクロを利用してセルの色を変更しようと思います Range("茶色範囲").Interior.ColorIndex = 9 としてA2セルからA10セルまた、A2セルからG2セルまでを一度に変更したい場合 茶色範囲というのを、どこかに　指定する必要があるのですが、 これは一般的にどこに指定すればいいでしょうか？ 富士通の緑の本がわかりやすいので勉強しているのですが、 その範囲指定がどこで行っているのかがわからず質問しました。 ご存知の方いらっしゃいましたら、教えてください。 よろしくお願いします

Worksheets(1)を使う時、左から一番目のシートが非表示の場合、シートの指定を誤る可能性があります。非表示シートを無視して表示シートの左から1番目を指定することは可能でしょうか？ VBAなので非表示シートを調べる事はかのうですが、ファイル数が多い上に順番が同じとは限らないので、出来れば避けたいです。また、表示シートの名前もバラバラなので、番号指定を希望します。

Worksheets(1)を使う時、左から一番目のシートが非表示の場合、シートの指定を誤る可能性があります。非表示シートを無視して表示シートの左から1番目を指定することは可能でしょうか？ VBAなので非表示シートを調べる事はかのうですが、ファイル数が多い上に順番が同じとは限らないので、出来れば避けたいです。また、表示シートの名前もバラバラなので、番号指定を希望します。

エクセル2003で商品の一覧表を作成しています。 Sheet1は商品一覧（左図） Sheet2は価格表（右図）となっています。 マクロを使用して、Sheet1のB列に価格表のデータを転記させたいと考えています。 VLookupになるのかと思い、自分でいろいろとやってみたのですが、 どうしても動作せず、挫折してしまいました。 商品一覧の最後の行までいって、空白セルがくると止まるというのが、 難しくてできませんでした。 どうかお願いいたします。

複数の行を選択し、その行を一つ上の行に挿入するマクロを教えていただきたいです。 345の行を選択しマクロボタンを押すとあうえおいのように一つ上に上がり、もう一度マクロボタンを押すと、うえおあいとあがっていくようなマクロです。また複数行でない場合も同様に、4の行を選択し、マクロボタンを押すと、あいえうおとあがるようにしていただきたいです。あわせて、一つしたの行に挿入するマクロも教えていただけると助かります。よろしくお願いします。 １あ ２い ３う ４え 5お

2行目から、最終行までEmptyにしたいのにならないです。 1行目はフィールド行なのに、そのままにしたいのですが 2行目から最終行は空白にしたいです。 なので Sub TEST() With Sheets("log") lastRow = .Cells(.Rows.Count, "b").End(xlUp).Row LastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column .Range(.Cells(2, LastCol), .Cells(lastRow, LastCol)) = Empty End With End Sub としたのですが、何も起こりません。 lastRowは１００、LastColは５なのですが、 このマクロを実行しても何も起こらないです。 なぜでしょうか？

2行目から、最終行までEmptyにしたいのにならないです。 1行目はフィールド行なのに、そのままにしたいのですが 2行目から最終行は空白にしたいです。 なので Sub TEST() With Sheets("log") lastRow = .Cells(.Rows.Count, "b").End(xlUp).Row LastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column .Range(.Cells(2, LastCol), .Cells(lastRow, LastCol)) = Empty End With End Sub としたのですが、何も起こりません。 lastRowは１００、LastColは５なのですが、 このマクロを実行しても何も起こらないです。 なぜでしょうか？