エクセルの学校：全文検索：Hyper Estraier：チェックボックス

Results of 1 - 1 of about 978 for チェックボックス (0.008 sec.)

[[20071123210640]]: #score: 5499; @digest: f2506829f4f6d29f1d23356105ff7146; @id: 34592; @mdate: 2007-11-23T13:09:50Z; @size: 1747; @type: text/plain; #keywords: wscnt (8531), myht (6859), mytop (5637), myleft (5173), mywd (3548), checkboxes (3509), クボ (3304), 見難 (2362), vbwhite (2327), cb (2312), single (2112), ム) (2029), linkedcell (1568), 回違 (1566), 刷ボ (1500), rowheight (1352), チェ (1252), ェッ (1134), printout (1126), ス( (1117), worksheets (932), ボッ (892), ト分 (879), 規シ (811), ック (729), marbin (728), クス (716), 印刷 (675), 既存 (493), テキ (473), 配置 (469), 前後 (460); 『チェックしたシートのみ印刷』（からす）
Book内に複数のシートがありそれらを印刷するのですが、印刷する物が毎回違うため、 チェックボックスをおいてそれでチェックしたシートのみを印刷ボタンで印刷をしたいのですが、初心者の為どうもうまくいきません。どうか知恵をお貸しして下さい。 Excel2003,WindowsXP ---- チェックボックスのチェックの状態で判定してもいいですが、セルとリンクさせて、セルの値で判定した方がやりやすいかもしれません。 10個のフォームのチェックボックスが配置してあり、 A1:A10にリンクされているものとします。 Dim c As Range Dim r As Range Dim i As Integer Set r = Worksheets(1).Range("A1:A10") i = 0 For Each c In r i = i + 1 If UCase(c.Value) = "TRUE" Then Worksheets(i).PrintOut Next c (MARBIN) ---- チェックボックス(フォーム)のテキストにシート名を表示している場合です。 Dim cb As Object For Each cb In ActiveSheet.CheckBoxes If cb.Value = xlOn Then Worksheets(cb.Text).PrintOut Next (MARBIN) ---- 前後しましたが、新規シートに既存のシート分だけフォームのチェックボックスは配置するコードです。 Dim ws As Worksheet Dim wscnt As Integer Dim i As Long Dim mytop As Single Dim myleft As Single Dim mywd As Single Dim myht As Single Dim cb As Object wscnt = Worksheets.Count Worksheets.Add after:=Worksheets(wscnt) Set ws = ActiveSheet For i = 1 To wscnt With ws.Cells(i, 1) .RowHeight = 16.5 mytop = .Top myleft = .Left mywd = 60 myht = 16.5 Set cb = ws.CheckBoxes.Add(myleft, mytop, mywd, myht) cb.Name = "cb" & i cb.Text = Worksheets(i).Name cb.LinkedCell = .Address .Font.Color = vbWhite 'チェックボックスのテキストと重なって見難くなるため End With Next Set ws = Nothing (MARBIN) ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200711/20071123210640.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ