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

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

[[20070524201424]]: #score: 5499; @digest: 794c1e23c7f155cac505643932a7ac22; @id: 30980; @mdate: 2007-05-25T03:28:12Z; @size: 2380; @type: text/plain; #keywords: mychk (46218), matu (13876), checkboxes (7018), 種入 (6235), クボ (4406), dateadd (3504), topleftcell (3412), dateserial (2833), visible (2262), 度表 (1561), 設置 (1512), marbin (1457), 各種 (1305), チェ (1252), ボッ (1190), らa3 (1139), ェッ (1134), 先月 (974), クス (955), date (917), ック (826), 置さ (791), リセ (775), 収ま (748), に収 (725), 非表 (697), 今月 (662), month (638), でチ (601), のチ (594), 前提 (565), 月は (517); 『フォームのリセット』（とっちゃん）
表を月の1日から月末まで作りました。それぞれの日のセルに「表示」「ツールバー」「フォーム」から「チェックを入れるアイコン」をそれぞれ与えました。各日によって「On」にする日と「off」にする日があります。したがって、その月は各種入り交じった状態ですが、次の月にはすべて[off」の状態にしたいと思います。どのようなすればよいのか教えていただけませんか? ---- どの時点で「次の月」を判断するのかが不明ですが・・・。フォームのチェックボックスを一括でオフにするのなら、 Worksheets("Sheet1").CheckBoxes.Value = xlOff こんな感じで出来ます。 (MARBIN) ---- 蛇足ながら、当月に存在しない日付のチェックボックスを非表示にするマクロを考えてみました。 A1からA31までチェックボックスがセルに収まるように設置されているとの前提です。 Dim MyChk As Object Dim matu As Date matu = DateAdd("d", -1, DateSerial(Year(Date), Month(Date) + 1, 1)) For Each MyChk In ActiveSheet.CheckBoxes If MyChk.TopLeftCell.Row > Day(matu) Then MyChk.Visible = False Next (MARBIN) ---- >A1からA31までチェックボックスがセルに収まるように設置されている >との前提です。 A列限定ではありませんでした。列はどの列でもかまわないですが、行は1行目から31行目までです。行がずれている場合は >MyChk.TopLeftCell.Row の部分を改造する必要があります。 (MARBIN) ---- MARBIN様最初のお答えで私自身理解できていませんが、標準モジュールに貼り付けましたところ、思っていたことができました。本当に有難うございmすた。＜とっちゃん＞ ---- ちょっと修正しました。ない日付のチェックボックスを非表示にするだけでなく、先月ない日付として非表示にして、今月は存在する日付の チェックボックスを再度表示するようにしました。 Dim MyChk As Object Dim matu As Date matu = DateAdd("d", -1, DateSerial(Year(Date), Month(Date) + 1, 1)) For Each MyChk In ActiveSheet.CheckBoxes If MyChk.TopLeftCell.Row > Day(matu) Then MyChk.Visible = False Else MyChk.Visible = True End If Next (MARBIN) ---- チェックボックスが配置されている行番号ではなく、チェックボックスの名前で判定するサンプルです。 Dim MyChk As Object Dim matu As Date matu = DateAdd("d", -1, DateSerial(Year(Date), Month(Date) + 1, 1)) For Each MyChk In ActiveSheet.CheckBoxes If (Replace(MyChk.Name, "Check Box ", "")) * 1 > Day(matu) Then MyChk.Visible = False Else MyChk.Visible = True End If Next (MARBIN) ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200705/20070524201424.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ