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

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

[[20050316115251]]: #score: 5499; @digest: 71f25fc5ba3b68b375811c8e4ec06262; @id: 12765; @mdate: 2005-03-17T05:18:57Z; @size: 5584; @type: text/plain; #keywords: linkedcell (10976), クボ (7710), checkbox2 (7594), ・s (5131), レ主 (3705), 相性 (3602), ルツ (2985), ボッ (2529), 列目 (2095), チェ (2088), クス (2031), ェッ (1891), ルボ (1782), ック (1605), トロ (1299), す^^ (925), ina (806), ・? (768), クさ (751), ツー (727), スレ (654), ・・ (646), ール (639), ォー (610), ロー (603), コン (601), のチ (594), ーム (539), 処理 (529), ロパ (526), マク (509), リン (503); 『同じ作業を繰り返すしかない?』（じぇね）
コントロールツールのチェックボックスを使って、チェックを入れた行は計算する、そうでない行は計算しないというシートを作りたいと思っています。 VBAが良く分からないので関数を使ってやってみました。 1列目にチェックボックス貼り付け 2列目はチェックボックスとリンクさせるセル 3列目に商品名入力 4列目に商品単価入力 5列目に個数入力 6列目に小計表示（2列目が真の場合計算結果表示、偽の場合0を表示）と、やりたいことは一応できたのですが・・・ チェックボックスをセルとリンクさせる作業がとても面倒です^^; セルに名前をつけてチェックボックスのプロパティでリンクさせるという処理を 1行ごとに繰り返さなくてはなりません。通常の書式のようにコピー&ペーストで処理できないのでしょうか? そうでなくとも、簡単に処理する方法があれば知りたいです。 ---- 何個くらいチェックボックスを使うのでしょうか? Sheetとコントロールツールボックスは相性があまりよくないので、多用するなら別の方法を考えた方がよいです。 (INA) ---- 30行くらいの範囲で考えてます。つまりチェックボックスも30個ほど・・・ 1行目は無しで、2行目は直接入力&数字の「1」と「0」で入力規制をかけて真偽の判断という方法も考えたのですが、 チェックボックスのが綺麗な感じがしたのでそっちでやってみようかと。やはり相性悪いんですか^^; 諦めるしかないんでしょうか?(じぇね） ---- まあ不具合がでる恐れがあることをふまえて使用するなら良いと思います。ファイルサイズが大きくなるのが欠点ではありますが。 >セルに名前をつけてチェックボックスのプロパティでリンクさせるという名前を付ける必要はないですよ。セル番地だけで。フォームのチェックボックスならマクロでできます。 Dim i As Long Dim c As Object i = 1 For Each c In Worksheets("Sheet1").CheckBoxes c.LinkedCell = Cells(i, 1).Address(0, 0) i = i + 1 Next c (INA) ---- マクロとかVBAの話になると理解できません。「それくらい自分で勉強しろ」と言われそうですが、具体的にどうすれば良いのか書いてくださる方がいるとありがたいです^^;（じぇね） ---- 私はそんなこと書いていません。でも >「それくらい自分で勉強しろ」と言わずに勉強する気がないなら回答しません。ここは「学校」ですから。あなたのレベルがどのくらいかも分からないのに、掲示板で一から教えさせるようなことを、ボランティアの回答者に強いるのは如何なものかと思います。 (INA) ---- INAさんINAさん、落ち着いてください。「強いる」だなんて、スレ主さんも「そんなこと書いていません」でしょう? 「書いてくださる方がいるととありがたい」としか。過去ログもずいぶん読みましたし INAさんの「マクロ制作まるなげ依頼」に対しての疑念等、理解しているつもりですし私も「〜〜したいのですが」で終わってしまう質問ともいえないような質問文に「すれば?」と返したくなる年寄りですがそういう時は「私はパスさせていただきます」だけで良いのではないかと。それが繰り返されれば、スレ主さんも自分の実力範囲の中で諦めるなり自分の表現がまずかったのかなと反省するなりなさるでしょう。それで十分ではないのでしょうか? （る〜） ---- 人任せは良くないとはわかっているのですが・・・^^; すみませんでした;; よくある質問のVBA体験winの手順を参考にVBA作成してみました。 sub マクロ名（）（INAさんが書いてくださった内容） end sub というマクロを作り、セルA1で実行してみました。しかし何も起こりません・・・何か間違ったことをしているのでしょうか? ちなみに、チェックボックスはまだ貼り付けていません。貼り付けてからの作業になるのでしょうか・・・?（じぇね） ---- >チェックボックスはまだ貼り付けていません。 >貼り付けてからの作業になるのでしょうか・・・? そうです。対象がなければ処理できませんので。コントロールツールボックスにするのかフォームにするのか、どちらを採用したのか不明ですが・・・ 1.フォームのチェックボックスを使う。 →前に載せたマクロで設定可能 2.コントロールツールボックスを使う →ループ処理できないので冗長になりますが・・・ Sub Sample() With Worksheets("Sheet1") .CheckBox1.LinkedCell = "B1" .CheckBox2.LinkedCell = "B2" .CheckBox2.LinkedCell = "B3" .CheckBox2.LinkedCell = "B4" .CheckBox2.LinkedCell = "B5" '以下同じように書く ' : End With End Sub ps.る〜さんごめんなさい。 (INA) ---- フォームのチェックボックスを作成し、INAさんのマクロを実行したところ無事処理に成功しました!^^ 感動です。どうもありがとうございました。エクセルはまだまだ奥が深いですね〜。これからも壁に行き当たったらこのサイトを利用させてもらうつもりです。その時はぜひまたよろしくお願いします^^ P・S 文字が小さくなりませんw （じぇね） ------- ありゃ、衝突しました。以下衝突前の文章です。記録してちょっと、作ってみました。シートの見出しを右くりっく→コードを表示させてそこに貼り付けます。。。 A列でダブルクリックしてみてください。。。 Option Explicit Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column <> 1 Then Exit Sub Cancel = True With Target With Me.CheckBoxes.Add(.Left, .Top, .Width, .Height) .Characters.Text = "" .Value = xlOff .LinkedCell = Target.Offset(, 1).Address .Display3DShading = False End With End With End Sub ちなみに >P・S 文字が小さくなりませんw （じぇね）は、半角のスペースを空けるといいですよ。（SoulMan） ---- できました。すごい!ありがとうございます^^ このマクロ、少しいじればA列以外にも同じように指定できるんでしょうか? そして、同一行に複数列指定するようなことも可能なのでしょうか? よろしければ教えてください。今後はコードの意味まで理解できるようにがんばります^^;; ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200503/20050316115251.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ