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

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

[[20060529084515]]: #score: 5499; @digest: e3995105a5b3f755a5e938107cab9576; @id: 22459; @mdate: 2006-05-30T04:24:02Z; @size: 3143; @type: text/plain; #keywords: miko (10730), クボ (4956), checkbox1 (2313), target (1951), チェ (1949), ェッ (1639), ボッ (1637), クマ (1629), クス (1314), ック (1264), column (1220), ルボ (1188), 付表 (1105), トロ (649), not (595), exit (544), 野鮎 (523), 川野 (499), 鮎太 (492), マー (491), 配置 (469), ドバ (405), rouge (404), 出来 (397), 行目 (383), 部分 (372), then (358), バイ (355), 。( (354), イス (353), 場合 (347), ーク (328); 『チェックボックスをチェックした時の日付表示』（miko）
チェックボックスを使用したいのですが、その時、チェックした時の日付けを指定したセルに表示する方法はありますでしょうか? アドバイスよろしくお願い致します。 Excel2000 Windows2000 ---- チェックボックスが、コントロールツールボックスのチェックボックスであれば、以下のような感じで出来ます。 Private Sub CheckBox1_Click() If CheckBox1.Value = True Then Range("A1").Value = Date End Sub （川野鮎太郎） ---- アドバイスありがとうございます。恐縮ですが、コントロールボックスのチェックボックスはどのようにしたらチェックマークを入れられるのでしょうか?(miko) ---- 配置した後で、デザインモードを解除すれば出来ますよ。（川野鮎太郎） ---- 出来ました!! ありがとうございました。 (miko) ---- 希望どおり出来ましたが、この場合はチェックボックス1つ1つ設定しないといけないようですね。私の構想の中では1枚のシートにこの方法で数百個のチェックボックスを作りたかったのですが・・・・。地道にやるしかないですね。 (miko) ---- チェックボックスっぽいことであれば、 ↓のスレが参考になりそうです。 [[20040818141911]]『クリックするだけでチェクマーク』（hiro）参考までにコードを書いてみました。 チェックボックスを配置したいシートのシートモジュールに貼り付けてみて下さい。 A1:A100にチェックが入るようになっています。その横のB列に日付が入ります。 (ROUGE) '---- Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Not Target.Column = 1 Then Exit Sub If Target.Row > 100 Then Exit Sub If Target.Value = "" Then Target.Value = "P" Target.Font.Name = "Wingdings 2" Target.Offset(, 1).Value = Date Else Target.Resize(1, 2).Value = "" End If End Sub ---- ありがとうございます。出来ました。ちなみにお伺いしたいのですが、クリックする列を D,F,H,J,L,N,Pの7列使いたい場合は上記コードのどの部分を変更すれば良いのでしょうか? よろしくお願い致します。(miko) ---- > If Not Target.Column = 1 Then Exit Sub の部分を以下のように変更してみて下さい。 (ROUGE) '---- With Target If Not .Column = 4 And Not .Column = 6 And Not .Column = 8 And Not .Column = 10 And _ Not .Column = 12 And Not .Column = 14 And Not .Column = 16 Then Exit Sub End With ---- 出来ました。ありがとうございます。理想通りです。 VBAは難しいですけど,便利ですね。 (miko) ---- もう1つお願い致します。上のコードで4行目より上記の設定をしたい場合はどの部分を変更すればよいでしょうか? お願い致します.(miko) ---- 行の制限は > If Target.Row > 100 Then Exit Sub の部分で行っています。この場合、100行より下の場合は''何もせんでええよ''ってことにしてます。 4行目から下の行で有効にしたい場合は、 If Target.Row ''< 4'' Then Exit Sub にすればよいということです。もしず〜っと下の方では何もして欲しくないということであれば、その条件を加えてあげて下さい。 (ROUGE) ---- ありがとうございました。たびたび申し訳ございませんが、 4行目から50行目までと指定する場合はどのようにしたら良いですか? 使い方が分からないので・・・・。(miko) ---- 要領は一緒です。 If Target.Row < 4 Then Exit Sub の下に If Target.Row > 50 Then Exit Sub を追加してみてください。 (ROUGE) ---- ありがとうございます。思った通りのシートが作れました。 (miko) ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200605/20060529084515.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ