- ベストアンサー
特定のセルに文字が入力されているページの印刷VBA
chayamatiの回答
- chayamati
- ベストアンサー率41% (256/614)
今日は ご希望通りではないですが、近いものが出来ました。 報告書印刷のボタンボックス、頁指定のテキストボックス、 指定頁のラベルボックスの3つで構成 何れもActiveXのコントロールです。 コントロール名と表示名はボックスのプロパティのオブジェクト名 Captionに定義します。 こちらのコーディングは開発リボンからデザインモードクリックから始めます。 先ず結論は Option Explicit '-------------------------------------- Private Sub 指定頁_Click() Range("A1").Select ActiveSheet.PrintOut From:=指定頁No., To:=指定頁No., Preview:=True End Sub ’------------------------------------------ Private Sub 報告書印刷_Click() ActiveSheet.Range("$Z$1:$Z$1000").AutoFilter Field:=1, Criteria1:="<>" ActiveSheet.PrintOut , , Preview:=True ActiveSheet.ShowAllData End Sub これをコピペするには三つのボックスを配置した後コードの表示をクリック
関連するQ&A
- 印刷ＶＢＡでご教示下さい
一つのデータ入力欄（行）を Ａ列～Ｈ列 までとして Ａ5A6と新しいデータを入力していますが、 データ量が多くなって印刷すると、全てが印刷されるため、必要なページ印刷を一度プレビューで 確認して範囲設定して印刷しています。 非常に手を取りますので、あるセルに入力した数字のセルをクリックすれば、入力した数字の ページのみ印刷するようなはVBA出来ないでしょうか？。 どなたか、よろしくお願いいたします。 VBAの記録と実行程度の初心者です。
- 締切済み
- オフィス系ソフト
- エクセルのマクロで入力文字を一文字ずつ並んだセルに入れる
エクセルマクロ超初心者です。 エクセルVBAでユーザーフォームを作成しました。 テキストボックスに入力した文字列を「登録」ボタン押下後、エクセルシートのセルに一文字づつ入るようにするにはどうすれば良いでしょうか？ 例えばテキストボックスに「ｋｏｈｉｒｏ」と入力するとエクセルのsheet1のA1「ｋ」、B1「ｏ」、C1「ｈ」、D1「ｉ」、E1「ｒ」、F1「o」となるようにしたいのです。入力する文字数は０～３０文字までで、その都度長さは変わります。どうやって、文字をばらせばいいのか、またどうやって可変長の文字列を指定したセルに入力すればいいのかわかりません。どうかよろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- 別のシートに特定の文字だけ転送する計算式やVBA
エクセルファイルのシート「No.１」のセルA１～A３０に氏名が入力されて、セルB１～E３０に氏名に振り分けられた文字が入力されています。 この文字には不定期にXとTの文字が入力されています。 そして、このシートに入力された氏名の順番や文字は毎月変更されます。 同じエクセルファイルのシート「No.２」のA１～A３０には順番が変更されない氏名が入力されて、B１～E３０は文字が何も入力されていない空白の状態です。 コマンドボタンを押すとシート「No.1」のA１～A３０に入力された氏名に該当するB1～E３０のXとTのみ抽出して、シート「No.2」のB１～E３０にXとTの文字のみを張り付けるVBAやセルに入力する計算式はどの様に行えば良いでしょうか？
- ベストアンサー
- Excel（エクセル）
- セルに入力したら、別の特定セルに文字表示させるには
似たようなQ&Aはあったのですが、求めているものとは少し違うので質問させていただきます。 エクセルで、指定したセルに数値を入力したら、 別シートの特定セルに特定文字列を表示させる ということはできませんか。 例えば、sheet1のセルB3に「2」と入力したら sheet2のセルB5に「●」と表示 次に、sheet1のセルB4に「6」と入力したら sheet2のセルD11に「●」と表示 次に、sheet1のセルC3に「4」と入力したら sheet2のB9に「○」と表示 のようなかたちです。 sheet1の入力範囲は、B3:I85程度 sheet2の入力範囲は、B3：FZ170程度で、特定セルは重複しない 表示されるのは、「●」「○」などの文字列 です。 途中経過として、MATCH関数、ADDRESS関数を利用して sheet1のセルに数値入力をしたら sheet2の入力すべきセル番地を求めることまではできたのですが その求めたセルがすべて異なるので、それぞれのセルに移動させて 文字列を表示させることができずに困っています。 解決法をご存知の方、どうぞよろしくお願いいたします。
- 締切済み
- オフィス系ソフト
- 【VBA】数値を入力して特定のセルを転記・印刷する
VBA初心者です。よろしくお願いします。 データの転記について伺います。 名簿シートに入力された情報を申請書シートに転記し、さらに印刷したいのですが このとき転記する範囲をセルに直接入力して指定することはできますでしょうか。 イメージとしては以下のような感じです。 「No2からNo4の人の氏名、住所、備考を転記したい」 【名簿シート】 Ａ Ｂ Ｃ Ｄ Ｅ ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ １│Ｎｏ 氏名 住所 性別 備考 ２│１ 鈴木 東京 男性 継続契約 ３│２ 田中 大阪 女性 電話無 ４│３ 荻 愛知 男性 眼鏡有 ５│４ 矢作 青森 男性 眼鏡有 ・ ・ ・ 【申請書シート】 ○○様 以下のとおり申請します。 ──────────── │氏名 │住所 │備考 │ ──────────── │田中 │大阪 │電話無 │ ──────────── │荻 │愛知 │眼鏡有 │ ──────────── │矢作 │青森 │眼鏡有 │ ──────────── 【印刷範囲指定シート】 Ｎｏを入力して指定 ─── ─── │ ２ │ - │ ４ │ ─── ─── ── │印刷│ ── ※マクロボタン↑ ※これを押すと指定範囲が印刷される アドバイスよろしくお願いします。
- 締切済み
- オフィス系ソフト
- 特定の文字を除くＶＢＡ
特定の文字を除くためのＶＢＡについて質問させてください。 あるマクロを実行したときに、インプットボックスを表示させ、 特定の文字や数字を入力します。そして、Ｈ列に入力した文字や数字を含まない行にある処理を行いたいと思います。 以下のようにＶＢＡを入力してみたのですが、インプットボックスに入力した文字をうまく除外してくれません。一体どういった書き方が正しいのでしょうか～？！ ご教授いただけるととても助かります！ よろしくお願いいたします。 message = InputBox("文字を入力して下さい") If Not Cells(行, H).Value Like "*" & message & "*" Then 処理
- ベストアンサー
- Excel（エクセル）
- ExcelのＶＢＡにてキーになるものを入力すると、その関連データを振り分ける
２つのシートがあり、sheet2に振分けるデータ（下表）を作成しておきます。 （列） １ ２ ３ （行） １ Ａ Ｂ Ｃ ２ ○ △ × ３ ア イ ウ (1)sheet1にコンボボックスにてＡを入力する。ＡはセルＡ１（固定）に、ＢはセルＣ３（固定）に、Ｃは、セルＥ５にそれぞれ決められたセルにコピーされる。 (2)sheet1にコンボボックスにて○を入力する。○はセルＡ１（固定）に、△は、セルＣ３（固定）に、×は、セル（Ｅ５）にそれぞれ決められたセルにコピーされる。 (1)と(2)のコピーされる場所は、同じ場所です。 というようなものをExcelのＶＢＡにて作成したいのですが、ＶＢＡは、あまりよくわかりません。 宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- エクセルで、セルに入力された文字を別なシートで数字
エクセルで、セルに入力された文字を別なシートで数字で表すにはどうしたらいいのですか？ いま、会社でエクセルVBAを使って表を作っています。 そこで、例えば、 Sheet2で、セルA1に○○会社 ～、セルA2に△△会社と入力したら、 Sheet1で、数字で、2 と表すには、どういう風に作ればいいのでしょうか？
- ベストアンサー
- オフィス系ソフト
- VBA：各ページの先頭セルを選択するコマンドを教えてください
VBA：各ページの先頭セルを選択するコマンドを教えてください --Page 1------ A列 | B列 1 | 4 2 | 5 3 | 6 --Page 2------ 7 | 11 8 | 12 9 | 13 10 | 14 --Page 3------ ... 元は印刷用に作ったこのような表があります。A列だけにして、数字順にずらっと並べ替えたいと思っています。 各ページの行数はバラバラで、規則性がありません。実際に入力されているデータは連番ではなく任意の文字列(ページごとにタイトルなどもなく規則性もありません)です。 作ろうとしているマクロは、各ページの末尾にそのページで使われている行数分だけ行挿入→そのページのB列をカット&ペーストでA列のお尻に付けるというものです。 各ページの先頭セル/末尾セルを指定するコマンドがわかれば実現できると思うのですが調べても見つけられませんでした。 （ページ関連となると印刷系ばかりで、、） 恐れ入りますが、お教えいただけますでしょうか。
- 締切済み
- その他（プログラミング・開発）
- 特定のセルに文字入力すると左端に「・」を自動表記
エクセル２００３を使用しています。 セル”Ｅ３～Ｅ１２８”と”Ｉ３～Ｉ１２８”の範囲で何か文字を入力すると、入力した文字の左端に自動で「・」を付けるＶＢＡは、どの様にすれば良いのでしょうか。 例としてセルＥ３に「２０１５年」と文字を入力すると自動で「・２０１５年」と表記される感じです。
- ベストアンサー
- Excel（エクセル）
お礼
この度は回答して頂きありがとうございます。 参考になりました。