Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1948 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【70999】セルにリンクさせるてチェックボックスにチェックを入れる ベッキー 12/1/25(水) 12:41 質問[未読]
【71000】Re:セルにリンクさせるてチェックボックス... UO3 12/1/25(水) 12:53 発言[未読]
【71001】Re:セルにリンクさせるてチェックボックス... UO3 12/1/25(水) 12:57 発言[未読]
【71002】Re:セルにリンクさせるてチェックボックス... UO3 12/1/25(水) 13:04 発言[未読]
【71004】Re:セルにリンクさせるてチェックボックス... ベッキー 12/1/25(水) 14:39 お礼[未読]
【70999】セルにリンクさせるてチェックボックスに...
質問  ベッキー  - 12/1/25(水) 12:41 -
引用なし
パスワード
   こんにちわ
sheet1のB11セルに日付が入力されると同時にCheckBox5にチェックを入れるようにしたいのですがどうすればいいでしょうか？
【71000】Re:セルにリンクさせるてチェックボック...
発言  UO3  - 12/1/25(水) 12:53 -
引用なし
パスワード
   ▼ベッキー さん：

こんにちは。ＶＢＡではないのですけど。

チェックボックスにもいろいろあります。

１．ユーザーフォームのコントロール
２．シート上のＡｃｔｉｖｅＸコントロール
３．シート上のフォームコントロール

で、３．だとして。
｢日付が入ったら｣という意味なんですが、
｢何か入ったら｣ではなく、それが日付だったらということであれば
リンクさせているセルに、=IF(B11="",FALSE,NOT(ISERROR(DATE(YEAR(B11),MONTH(B11),DAY(B11)))))
もし、空白かどうかということなら、単純に、=B11<>""
【71001】Re:セルにリンクさせるてチェックボック...
発言  UO3  - 12/1/25(水) 12:57 -
引用なし
パスワード
   ▼ベッキー さん：

↑　あっ、でも、これだと、チェックボックス側をクリックされてしまうと
リンクしているセルが True/Falseのいずれかの｢値｣になってしまい、
その後、B11　を日付にしたり空白にしたりしても、チェックボックスには反映しなくなりますね！！

これ、具合悪いですか？
もし、具合悪ければ、シートのChangeイベントを使った方法になると思いますけど。
【71002】Re:セルにリンクさせるてチェックボック...
発言  UO3  - 12/1/25(水) 13:04 -
引用なし
パスワード
   ▼ベッキー さん：

一応、ＶＢＡ処理案もアップしておきます。
シートモジュールに。
なお、★印（２ヶ所）は、チェックボックスのリンクされたセルにしておいてしておいてください。

Private Sub Worksheet_Change(ByVal Target As Range)
　　If Not Intersect(Target(1), Range("B11")) Is Nothing Then
　　　　Application.EnableEvents = False
　　　　If Len(Target(1).Value) = 0 Or Not IsDate(Target(1).Value) Then
　　　　　　Range("A1").Value = False　 '★
　　　　Else
　　　　　　Range("A1").Value = True　　'★
　　　　End If
　　　　Application.EnableEvents = True
　　End If
End Sub
【71004】Re:セルにリンクさせるてチェックボック...
お礼  ベッキー  - 12/1/25(水) 14:39 -
引用なし
パスワード
   UO3 さん
解凍ありがとうございます。
まず最初の
>１．ユーザーフォームのコントロール
>２．シート上のＡｃｔｉｖｅＸコントロール
>３．シート上のフォームコントロール
質問はおっしゃられる通り３です。
>｢日付が入ったら｣という意味なんですが、
>｢何か入ったら｣ではなく、それが日付だったらということであれば
はいそのとおりです。

>↑　あっ、でも、これだと、チェックボックス側をクリックされてしまうと
>リンクしているセルが True/Falseのいずれかの｢値｣になってしまい、
>その後、B11　を日付にしたり空白にしたりしても、チェックボックスには反映しなくなりますね！！

>これ、具合悪いですか？
>もし、具合悪ければ、シートのChangeイベントを使った方法になると思いますけど。
はいそれだと具合が悪いのでVBA処理案を使用させていただこうと思います。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1948 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free