[[20050330115848]] 『チェックボックスの編集』(ひゅう) >>BOT

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『チェックボックスの編集』(ひゅう)

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

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

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

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


 チェックボックスを作るのが面倒だということですね?
範囲を選択してから実行です。一つ右隣にリンクします。
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)


Soul Man 様

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

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

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

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

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

ひゅう


 あっ、失礼しました。コントロールボックスの
チェックボックスなのですね?チェックボックスを作るのはフィルされれば
いいとしてリンクが設定できないというこのですね?
ちょっと調べてみました。以下でどうでしょうか?
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)


Soul Man様 INA様

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

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

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

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

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

良かったです。

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

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

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

ひゅう


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


[[20040818141911]]
 (INA)

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.