- ベストアンサー
Excel VBA シート印刷
kkkkkmの回答
32社の一覧シートがありそこに各社のシート名が記載されていてそこに各々チェックボックスを付けるとした場合 たとえば C列に企業名、D列に各社のシート名 B列に各社の行にチェックボックスを作成します、32個。 フォームコントロールの場合は コントロールの書式設定でリンクするセルをA列の各社の行にします(A1とか) コントロールを選択した状態で数式バーに=A1(1行目の場合)といれてもOKです。 ActiveXコントロールの場合は デザインモードでプロパティのLinkedCellでA列の各社の行にします(A1とか) 添付ファイルを参考にしてください これでチェックボックスの結果がA列のそれぞれの行に反映されます。 印刷のコードはどちらのコントロールにしたとしても Sub Test() Dim i As Long For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row If Cells(i, "A").Value = True Then '印刷するシートを指定して印刷 End If Next End Sub
関連するQ&A
- エクセルＶＢＡ チェックボックスについて
ＶＢＡ初心者です。 あるシート（セル）に作った入力用チェックボックスにチェック（ＴＲＵＥ）を入れたときに、別シートの特定の位置に楕円を引きたいのですが、どのようなやり方があるでしょうか。 使い方は入力用シートと印刷用シートを分けて、入力用シートのチェックボックスの状態で印刷用シートの特定のセルに選択したことがわかるように楕円をつけたいというものです。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- VBA 印刷 コード
今業務で困っているので 質問させていただきます。 前回は画像載せ忘れてしまい再度画像載せます。 現在 30社以上の顧客がいて それぞれ印刷のタイミングが違うので チェックボックスがTRUEの時は その顧客のシートを印刷できるようにしたいです。 （印刷ボタンをおしたら印刷） 前回は言葉足らずになってしまい混乱させてしまって 申し訳ございません。 回答いただいた皆様ありがとうございます。
- ベストアンサー
- Visual Basic
- Excel VBA 複数シートの一括印刷について
標記の件、御指導願います。 シート1：印刷設定（チェックボックスが印刷したいシート分あります） シート2～34：チェックボックスがオンである表題のシートを選択し一括で印刷する。 を、VBAで作ってみましたが、エラー（インデックスが有効範囲にありません）が出てしまいます。 Sub CheckBoxPrint() Dim ArrySheet() As String Dim I As Long Dim k As Long k = 0 For I = 1 To 33 If ActiveSheet.OLEObjects("CheckBox" & I).Object.Value = True Then ReDim Preserve ArrySheet(k) ArrySheet(k) = ActiveSheet.DrawingObjects("CheckBox" & I).Object.Caption k = k + 1 End If Next I ThisWorkbook.Worksheets(ArrySheet).PrintOut ←エラー（インデックスが有効範囲にありません） Erase ArrySheet End Sub このエラーを回避する方法を御指導してください。 よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- VBA
下記に、ツールバーにある印刷ボタンを押すとチェックBOXがチェックされていない時印刷できないようにするというVBAですが下のVBAのような感じで 例えばセルＡ1にFALSEという文字が入っていたら印刷不可で印刷するかしないかを選択。もし、セルＡ1にTRUEという文字が入っていたら印刷可。 というのをVBA教えて下さい。 よろしくお願いします。 Private Sub Workbook_BeforePrint(Cancel As Boolean) With Worksheets("sheet1").CheckBoxes("チェック 1") If .Value <> 1 Then If MsgBox("印刷しますか？", vbYesNo) <> 6 Then Cancel = True End If End With End Sub
- 締切済み
- オフィス系ソフト
- EXCEL VBA 印刷
EXCEL VBA 印刷 初歩中の初歩で申し訳ありません・・・該当シート(Sheet1（名前は別名）)の印刷をしたいと思い、ボタンの設定をしたのですが エラーとなります（画像を添付します。） お手数ですが、フォローの程宜しくお願いいたします。 参考までにコードも記載します。 Private Sub CommandButton9_Click() Range("A137").Select End Sub --------------------------上記はこんぼボックスで該当セルへジャンプしています。 Sub 印刷の実行() Worksheests("Sheet1").PrintOut End Sub
- ベストアンサー
- オフィス系ソフト
- エクセル2007 ＶＢＡ DTPicker
エクセル2007 ＶＢＡ のユーザーフォームに DTPicker を配置しています。 DTPicker のチェックボックスを常時表示させた状態でオン・オフをプログラムで切り替えるコードを教えて下さい。 例えば Ａ１セルが空白であれば DTPicker のチェックボックスが表示された状態でオフ（False)にして Ａ１セルに日付が入力されていれば チェックボックスをオン（True) にしてその日付を表示する方法です。 オフの時は当日を表示させる予定です。 よろしくお願いします。
- ベストアンサー
- Visual Basic
- エクセル（VBA)でリストボックス等を使用した印刷方法
エクセルのフォームのリストボックス等を使用して、選んだシートのみを印刷することは出来るのでしょうか。（VBAを使用して） 現状 ・シートが１５枚あります（シート１，２，３，４は条件入力用でシート５～１５は様式でシート５～１５は非表示です） ・シート１にリストボックスを配置したいです（リストボックスの選ぶ名前はシート５～１５です） 例として ・リストボックスでシート７を選んだときに、シート７を印刷したいです その他 ・リストボックスでなくても、選んだシートが印刷される方法が他にあるのであれば、他の方法でもかまいません。
- ベストアンサー
- オフィス系ソフト
- シートの名前の変更について(VBA)
いつもお世話になっております。 VBAでシートの名前の変更を行おうと考えています。エクセルのシートで手動でシートの名前変更を入力すると使用できない文字は、入力が出来ないようになっています。VBAでテキストボックスへの入力を同じように規制する場合、Change()を使って1文字づつチェックするルーチェンを組むしかないのでしょうか？ 取って置きの手法がありそうな気がしますが、思いつきません。どなたか？助けて頂けないでしょうか？よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- エクセルシートでVBAについての質問です。
VBA初心者です。 エクセルのシート上にコンボボックスを配置してリストを選択すると同じシート上のセルに選択されたリストが表示されるようにしたいのですが、よくわかりません。 コンボボックスのオブジェクト名は名前ボックスに表示される名前でいいのでしょうか？ 詳しい方ご教授お願いします。
- ベストアンサー
- Visual Basic
- エクセル VBA 条件つきの印刷
エクセルＶＢＡにおいて、 例えば「セルＡ1が空白でないシートすべてを印刷する」 このようなコードは可能でしょうか？ よろしくお願いします。 （エクセル2000）
- ベストアンサー
- オフィス系ソフト
お礼
詳しく教えて頂きありがとうございます。 色々自分で検索してみましたが なかなかやりたいコードが見つけられず 質問させていただきました。 早速やってみます！！ ありがとうございました。