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

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

[[20090905101955]]: #score: 5499; @digest: b977a81fa41aefe6740bcd7fecba7e60; @id: 45265; @mdate: 2009-09-08T05:08:57Z; @size: 1797; @type: text/plain; #keywords: 択/ (16477), 20090903170918 (15497), cole (11917), 能↑ (6721), 20080821125615 (5771), クボ (4956), レ』 (4741), checkbox1 (4627), linkedcell (3136), oleobjects (2664), oleobject (2552), 『レ (2213), ボッ (1488), レ点 (1458), チェ (1392), ェッ (1261), 準機 (1225), クス (1195), ンモ (1177), checkbox (1132), ック (1021), のチ (891), 変参 (793), デザ (780), typename (751), ルツ (746), 解除 (735), ザイ (720), 苦労 (682), ルボ (594), 除』 (589), ね!! (579); 『複数のチェックボックスの選択/解除について』（とよ）
A1セルにデザインモードのチェックボックスを配置しています。右クリック→プロパティでLinkedCell の欄にB1セルを指定し、『レ』チェックがはいるとTrue、外れるとFalseが出るように、A1〜A80まで複数のチェックボックスを使用しているのですが、このチェックボックスの『レ』を同時に外すことは可能でしょうか? 欲を言えば一つのチェックボックスに『すべて選択/解除』のような機能を付けたいのですが。ご教授お願い致します。 ---- [[20080821125615]] このへん参考になりませんか? （とおりすがり） ---- [[20090903170918]] この投稿からすると、「コントロールツールボックス」のチェックボックスのようですね!! >一つのチェックボックスに『すべて選択/解除』のような機能 ↑これを行なうチェックボックスをCheckBox1だとすると・・・、当該シートのモジュールに（標準モジュールでは、決してありません） '========================================================================== Option Explicit Private Sub CheckBox1_Click() Dim cole As OLEObject Application.ScreenUpdating = False For Each cole In OLEObjects If TypeName(cole.Object) = "CheckBox" And cole.Name <> "CheckBox1" Then cole.Object.Value = OLEObjects("checkbox1").Object.Value End If Next Application.ScreenUpdating = True End Sub これで出来ると思いますが、 [[20090903170918]] ↑ここでのやり取りを読むと簡単には、作動しないかもしれませんね!! まっ、コードや作成したチェックボックスの名前を確認したり、その前に上記コードをどこに記述すればよいのか? 苦労してみてください ichinose ---- LinkedCellで設定されてるのでしたら、B列のFALSEをTRUEに置換（標準機能で）するだけでレ点は消えると思いますが（momo） ---- みなさんありがとうございます。大変参考になりました。がんばってみます（汗 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200909/20090905101955.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ