エクセル（Excel）の技。知ってましたか・・・。

┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━[PR]━┓
　高速・多機能・高安定レンタルサーバー『エックスサーバー』
　─────────────────────────────────
・月額900円(税抜)から、大容量200GBからの高コストパフォーマンス
・安定のサーバー稼働率99.99％以上
・マルチドメイン・メールアドレス無制限！
・FastCGIに対応！PHP高速化や負荷軽減を図ることが可能！
・幅広いバージョンのPHPやSSHに対応！
・独自SSLを無料で利用可能！
　─────────────────────────────────
　　https://px.a8.net/svt/ejp?a8mat=2NR2G3+DG1FLE+CO4+601S3
┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛





マイクロソフトアクセスの記事はこちら

人気ブログランキングへ




にほんブログ村


チェックボックス




上記のような方法でチェックボックスをシート状に配置します。

とりあえず３つくらい作ってみましょう。



上記のようになりました。

ここでチェックボックス1のプロパティを見てみましょう。



ここで「Caption」を「テスト1」・「LinkedCell」を「A3」にします。

同じようにチェックボックス2は、名前を「テスト2」・リンクセルを「A6」・

チェックボックス3は「テスト3」「A9」で設定し、デザインモードを終了します。



上記のようにチェックが入ったときにリンクセルが「TRUE」になり、

チェックが外れると「FALSE」になります。このように「TRUE」・「FALSE」の

変化を取り込んで何か別の作業をさせることが出来ます。



簡単な使用例ですが、A12に「=COUNTIF(A3:A9,"TRUE")」と入力しました。

A3からA9までの範囲内で「TRUE」の数を数えなさいという関数です。

今チェックが２つ入っているのでA12は「2」になりました。

東京の人気ホテル・旅館が最大78%OFF


VBAを使用する場合


先ほどの例からプロパティで「LinkedCell」の項目だけ削除してください。



デザインモードでチェックボックス1をダブルクリックするとVBAが立ち上がるので、

Private Sub CheckBox1_Click()

CheckBox1.LinkedCell = "A3"

End Sub

上記のように記載してください。

これでチェックを入れるとA3にTRUEが入ります。

このようにチェックボックス1から3に同じようなプログラムを記載してください。



先ほどと同じような結果が得られましたか。


東京の人気ホテル・旅館が最大78%OFF


今度はワークシートがアクティブになった時に初期設定として「FALSE」にして、

チェックが入ると「TRUE」になるようにしましょう。

一旦先ほどのプログラムは削除します。



上の赤枠部分を「Wooksheet」「Activate」にしてください。

Private Sub Worksheet_Activate()

Sheets("Sheet5").CheckBox1.Value = False

Sheets("Sheet5").CheckBox1.LinkedCell = "A3"

Sheets("Sheet5").CheckBox2.Value = False

Sheets("Sheet5").CheckBox2.LinkedCell = "A6"

Sheets("Sheet5").CheckBox3.Value = False

Sheets("Sheet5").CheckBox3.LinkedCell = "A9"

End Sub

上記のように記載しました。

別に難しいことはありませんね。

ワークシートがアクティブになったときにすべてのチェックボックスを「FALSE」

（チェック無し）にしてリンクセルをそれぞれ設定せよという命令文です。

動作的にいままでと同じ動作を行います。




┏━[PR]━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓
　WordPressに特化したレンタルサーバー『wpXレンタルサーバー』
　　https://px.a8.net/svt/ejp?a8mat=2NR2G3+DDNP6A+CO4+ZQV5V
┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛