[[20050330115848]]　『チェックボックスの編集』（ひゅう）　ページの最後に飛ぶ

『チェックボックスの編集』（ひゅう）

チェックボックスで、チェックを入れたところだけを表示させたいと思い、

[[20050223001235]]を参考にさせて頂いていたのですが、件数が3000件以上

あって１つ１つ設定するのにとても時間がかかってしまうのですが、何か良い方法

がありましたら教えてください。よろしくお願いします。

 チェックボックスを作るのが面倒だということですね？
範囲を選択してから実行です。一つ右隣にリンクします。
Option Explicit
Sub Macro1()
Dim C As Range
For Each C In Selection
With C
    With ActiveSheet.CheckBoxes.Add(.Left, .Top, .Width, .Height)
        .Characters.Text = ""
        .LinkedCell = C.Offset(, 1).Address
    End With
End With
Next
End Sub
（SoulMan）

Ｓｏｕｌ　Ｍａｎ　様

回答ありがとうございました。

こんな事言ったら笑われるかもしれませんが・・・

リンクの仕方が分かりません・・。リンクの意味も

分かってない状態です・・。すみません。

ちなみに、チェックボックスはできれば使いたいです・・

ひゅう

 あっ、失礼しました。コントロールボックスの
チェックボックスなのですね？チェックボックスを作るのはフィルされれば
いいとしてリンクが設定できないというこのですね？
ちょっと調べてみました。以下でどうでしょうか？
Option Explicit
Sub てすと()
Dim Obj As OLEObject
For Each Obj In Worksheets("Sheet1").OLEObjects
    If Obj.OLEType = xlOLEControl Then
        Obj.Placement = xlMoveAndSize
        Obj.LinkedCell = Obj.TopLeftCell.Address
        Obj.TopLeftCell.Value = "FALSE"
    End If
Next
End Sub
ちょっと訂正です。
Altキーを押しながら、セルにピッタリのチェックボックスを一つ書きます。
↑や→キーを使ってそのセルの下にアクティブセルを移動させます。
そのままハンドルをマウスでつまんで下にフィルします。
これでチェックボックスが出来ます。
次にこのマクロを実行してみてください。
どうでしょうか？
ところで、これは余談なのですが、
コントロールボックスのコントロールをシートに3000個も作るのは
問題がありませんか？色々なゴミが出る？とも聞いたことがあるような？
ないような？？？(;^_^A あせあせ･･･
もう一度、仕様を見直された方がいいかもしれませんよ。
余計なお世話ならごめんなさいです。m(__)m
（SoulMan）

 SoulManさんに同意です。
 思いっきり問題ありでしょうね。
 ブックが破損する前に、仕様変更をお薦めします。

  (INA)

Ｓｏｕｌ　Ｍａｎ様　ＩＮＡ様

いろいろ丁寧に教えて頂いてありがとうございます。

初心者のくせに、最初っからこんな難しい事をしようとしていたのかと

ビックリです。マクロの意味さえ分かってませんでした・・・。

コントロールを3000個も作るのは無謀だとは知らずに・・・。

改めて仕様を見直してみようと思います。破損する前にご忠告頂いて

良かったです。

もう少し勉強してこのマクロを使いこなせるように頑張ります。

ほんとにありがとうございました。

またお世話になると思いますが、よろしくお願いします。

ひゅう

 チェックボックスのごく簡単な使用例は、こちらにあります。↓　　　　　　　　　　　(LOOKUP)
[[20050328091213]]『レ点チェックボックス』(香織)

[[20040818141911]]

 (INA)

コメント返信：

[ 一覧(最新更新順) ]

[[20050330115848]] 『チェックボックスの編集』（ひゅう） ページの最後に飛ぶ

[[20050330115848]]　『チェックボックスの編集』（ひゅう）　ページの最後に飛ぶ