• ベストアンサー

チェックボックスでOnの場合に行全体をコピペしたい。

いつもお世話になっております。 このたび週単位で営業アタックリストを作成するに当たり、翌週に持ち込む継続案件を翌週分の週報にコピペする方法を探しています。   A   B    C                D    E 1 社名 住所  商品名(コンボボックス) 金額  継続印(チェックボックス) 2.... 3... となっていて、 Eのチェックボックスにチェックを入れると、自動的に次項の同じフォーマットに、1行がコピー(コンボボックスの中身も)される方法はないでしょうか? どなたか助けてください。よろしくお願いします。

  • acmr
  • お礼率87% (84/96)

質問者が選んだベストアンサー

  • ベストアンサー
  • KenKen_SP
  • ベストアンサー率62% (785/1258)
回答No.2

遅くなりました。 > 次項というのは、改ページしてという意味だったんです ん...Excel の改ページというのは結構難しいんですよ。Word みたいに ページ一行目の位置が固定してないからです。例えば、行の高さを変え たり、印刷設定の余白幅、用紙の向き、ページの方向など様々な要素が 影響し、簡単に一行目の位置が変わってしまう。 結局、A 列の最終行を調べて、その下にコピペするマクロになってます。 標準モジュールに下記ソースコードをコピペして、シート上の CheckBox の右クリックメニュー「マクロの割り当て」でこれを割り当てて下さい。 取り合えずアップしましたが、ご不明な点があれば補足欄にお願いします。 Sub CopyRows()   Dim Shp As Shape   ' マクロの呼び出し元を取得します   Set Shp = ActiveSheet.Shapes(Application.Caller)   ' マクロの呼び出し元は CheckBox か?   If Shp.FormControlType = xlCheckBox Then     ' CheckBox は On か?     If Shp.ControlFormat.Value = xlOn Then       ' コピー用に一時的に CheckBox を Off にする       Shp.ControlFormat.Value = xlOff       ' コピー & 貼り付け       Shp.TopLeftCell.EntireRow.Copy Destination:= _       Cells(Rows.Count, "A").End(xlUp).Offset(1)       ' 一時的に Off にした CheckBox を元に戻す       Shp.ControlFormat.Value = xlOn     End If   End If End Sub

acmr
質問者

お礼

ありがとうございます! 大変難ありな質問で失礼いたしました! チャレンジしてみます。 とり急ぎ、お礼まで。

その他の回答 (1)

  • KenKen_SP
  • ベストアンサー率62% (785/1258)
回答No.1

こんばんは。KenKen_SP です。 1. Word ですか? Excel ですか? 2. チェックボックスは次のどちら?   ・フォーム   ・コントロール ツールボックス 3. > 自動的に次項の同じフォーマットに、1行がコピー   次項とは? それで回答がかわります。具体的に補足して下さい。 マクロを使うことになりそうです。

acmr
質問者

補足

KenKen_SP さん、ありがとうございます。 補足ですが、EXCELのフォームです。 次項というのは、改ページしてという意味だったんです。すいません。 以上でご理解いただけましたでしょうか?よろしくお願いします。

関連するQ&A

  • チェックボックスのチェックを入れたものを再表示する

    はじめまして。 phpを少しだけコピペプログラミングしたことがある者です。 今mixiアプリに挑戦しているのですが、 JavaScriptは全く知らないので困っています。 http://oshiete1.goo.ne.jp/qa4374471.html を見ましたがちょっと違うようです。 作りたいものはphpなら下記のようなものです。 http://www.pahoo.org/e-soul/webtech/php02/php02-20-01.shtm (プログラムを実行するをクリックしてみてください) 最終的にやりたいことは、マイミクの一覧を表示する際、 各マイミクの横にチェックボックスを設け、 チェックを入れたマイミクのみを再表示するというものですが、 とりあえずは、JavaScriptで チェックボックスのチェックを入れたものを再表示するやり方を教えてください。

  • チェックボックスと×マーク

    こんにちは。 エクセルにて点検項目表を作成しました。 各々の項目にはレ点を入れられるように チェックボックスを作成しました。 各項目が点検対象外の場合×印を入れなければなりません。 そこで、やり方がわからない私はチェックボックスの上に オートシェイプで×印を作り重ねて貼り付けてあります。 もっと簡単に出来る方法をご存知の方いらっしゃいましたら、 ご指導頂けると助かります。 宜しくお願い申し上げます。

  • アクセス チェックボックスとクエリ

    いつもお世話になっております。アクセス初心者です。 あるフォームのチェックボックスのオンオフとコンボボックス、 クエリの選択条件が思うように連携できなくて困っています。 やりたいことは、、、フォームのチェックボックスが、 ON(True)ならば、 フィールドにコンボボックスのキーワードを含むレコードおよびフィールドが空白のレコードを抽出し、 OFF(False)ならば、 フィールドにコンボボックスのキーワードを含むレコードのみでフィールドが空白のレコードは抽出しない、 としたいのですが…。 IIfやSwitchで式を書きましたが、チェックを入れても外しても、どちらも抽出件数が0件になります。 クエリの実行は、コマンドボタンで別のフォームを開いています。 (IIfでは、エラーが出ているのか、チェックを入れた時『~キャンセルされました』と出ます。  IIf(…,…,IIf(…,…,…)) という感じで書きました。) Switchの時のクエリの抽出条件の式は、次のような感じです。 Switch([Form]![チェックボックス]=True,([テーブル名].[フィールド名]) Like "*" & [Form]![コンボボックス] & "*" Or Is Null,[Form]![チェックボックス]=False,([テーブル名].[フィールド名]) Like "*" & [Form]![コンボボックス] & "*") ( Like の前の『([テーブル名].[フィールド名])』は、式をビルドすると、勝手に追加されてきます。) このようなことはできないのでしょうか? 別の方法が必要でしょうか? すみませんが、教えてください。宜しくお願い致します。

  • チェックボックスにチェックでプルダウン有効化

    チェックボックスにチェックを入れると、 無効化していたプルダウンが有効化するようなフォームを作りたいと思っています。 やりたいことはまさに下記サイトに書かれているとおりなのですが 自分でやるとコピペしてもうまく動かず困っています。 http://studio3104.hatenablog.com/entry/2014/10/17/011941 当方ヴァージョンは『jquery-1.2.1.min.js』を使用しています。 無効化はできたのですが、チェックを入れても有効化しません。 『vue.js』もダウンロードしてみたものの、無効化すらうまくいかず… 何か他に方法があったりするものでしょうか? よろしくお願いします。

  • accessのフォームのチェックボックスを動くようにしたいです。

    accessのフォームのチェックボックスを動くようにしたいです。 あるフォームは起動時、更新の許可を「いいえ」に設定しています。フォームの値をいじらせないようにしているためです。 編集可能釦をおしたときに、この更新許可を「はい」にしています。 起動時(起動後)に、あるチェックボックスだけ、動作するようにしたいのですが、なにか簡単な方法はありますでしょうか? チェックボックスが無理でしたら、他の操作ボックスでもよいです(西暦・和暦を指定しているだけのチェックボックスです) p.s. フォームには、テキストや、コンボなど沢山あるため、できれば更新「いいえ」はそのままにしたいです。

  • Excelでワンタッチで行チェックする方法

    お世話になります。 現在LibreOfficeCalcで、チェックリスト表を作っております。 ワンタッチでその行の色を変えて、チェック済みが一目瞭然になるようにしたいです。 タブレットPCで使用する想定です。 現在、チェックボックス&条件付き書式でやっているのですが、 以下の問題があります。 ・チェックボックスのコピペが出来ない ・行フィルタをかけるとチェックボックス機能しない そこで別の方法を考えております。 1.タブレットでワンタッチで行え、 2.行をフィルタで絞り込んでも大丈夫 といった方法が無いかと悩んでいます。 〆やレ点をコピペするという方法でもいいのですが、 キーボードが使えないので、出来れば チェックボックス的なものが一番いいのですが・・・ 「行の配色を変える」ボタンを設置し、ウインドウを二分割して ボタンを常に表示しておく方法もありますでしょうか? また、最新のExcel2016では出来る、 というような情報でも助かります。 何か良いアイデアがありましたらお願いします。

  • チェックボックスの配置順にテキストボックスに表示

    accessのフォームにチェックボックスを配置し チェックされたものをテキストボックスに表示させています。 ■A ■B □C □D ■E となっていたら、テキストボックスに A B E と表示させています。 チェックボックスの真ん中に新しくチェックボックスを追加すると テキストボックス内には、追加したものが最後に表示されていまいます。 ■A ■B □C ■Z □D ■E とすると、テキストボックスには A B Z E と表示させたいのに A B E Z 表示されてしまいます。 いちから順番どおりに作り直せばいいのですが かなりたくさんチェックボックスがあるうえに 上司から、この先も何度も作り直しを指示されそうです・・・。 できれば簡単に、配置した順にテキストボックスに表示されるようにしたいです。 チェックボックスの配置順に テキストボックスに文字を表示させる方法を教えてください!

  • ラジオボタン&チェックボックス

    お世話になっております。 私は、あまりマウス操作が好きではありません。使えないわけではないのですが、キーボードから手を離す時間がもったいないように思えてしまうのです。 それで、いろいろなシーンで見かける、この「ラジオボタン」や「チェックボックス」に印を付ける時も、マウスでのクリックではなく、キー操作でできないものかと考えたのですが。 「そんな方法は無い」ということであれば諦めますが。教えてください。よろしくお願いいたします。

  • エクセルでチェックの無い行に着色

    エクセルでツールバー→フォームにある チェックボックスをA1~A551に入れ、O1~O551に それぞれをリンク(TRUE、FALSEの表示) させたいのですが、 コントロールの書式設定でA1にO1をリンクさせ、コピぺすると、A2もO1をリンクし、うまくいきません。 相対参照にしています。数が多い為、それぞれリンクを設定するには非常に時間がかかります。 うまくいく方法はありませんか、最終的には、 チェックが入っていない行を着色したいと考えています。 全く別の方法でもいいので、分かる方お願いします。

  • フォームで複数のチェックボックスからの抽出をしたい

    Access初心者です(2010使用) 業務でDB作成をしているのですが、チェックボックスで実行可能な内容なのかが分かりません。 ご教授下さい。 <テーブル> マスターT 通し番号(オートナンバー) 製品(テキスト型で内容は10個の種類があります) カテゴリー(上と同じ) 素材(上と同じ) 備考1(テキスト型) 備考2(テキスト型) このテーブル内にある 製品、カテゴリー、素材の3フィールドについて、フォーム上でそれぞれチェックボックスを項目数分作り、チェックしたもののレコードを別クエリで表示させる(チェックは複数可能) というものが作りたいのです。 以下フォームイメージ <製品> <カテゴリ> <素材>   □A     □1      □あ        □B     □2      □い      ←<製品><カテゴリ><素材>のうちどれか1つでも □C     □3      □う        チェックが入ればそのレコードを別表示させたい □D     □4      □え □E     □5      □お この動作がチェックボックスで可能なのか、他に方法があるのか 参考書を当たってみたのですが希望する内容を見つけられませんでした。 不勉強で申し訳ありませんが、お力をお貸しください。 宜しくお願い致します。 (作業者のレベルとしては、コンボボックスで絞り込みを作れる程度です。 マクロ、VBAも初学者レベルです)

専門家に質問してみよう