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

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

[[20150807084814]]: #score: 5499; @digest: 2c5e8d02dbc5859eed579a956d2fbee5; @id: 68659; @mdate: 2015-08-07T05:26:45Z; @size: 2821; @type: text/plain; #keywords: setcell (24234), 択イ (7380), 途co (7380), checkbox3 (7303), checkbox1 (6940), checkbox2 (5696), checkbox (5664), 択有 (5599), クボ (4406), ス選 (3453), ーフ (2869), 列記 (2865), ムモ (2599), チェ (1949), ェッ (1765), プア (1724), クテ (1538), ォー (1525), caption (1520), ャプ (1474), ユー (1438), ィブ (1412), ーザ (1401), ザー (1367), ーム (1348), controls (1276), アク (1260), ボッ (1190), フォ (1172), ポッ (1139), ック (1118), click (1064); 『アクティブなセルにチェックボックスの内容を書き込みたい』（苗）
指定の列のセルをアクティブにするとユーザーフォームがポップアップしてユーザーフォームのチェックボックスにチェックを入れるとアクティブなセルにチェックボックスの名前を書き込むという風にしたいです。過去ログから「指定の列のセルをアクティブにするとユーザーフォームがポップアップ」の部分は調べて作れたのですが、「ユーザーフォームのチェックボックスにチェックを入れるとアクティブなセルにチェックボックスの内容を書き込む」という部分が分かりませんなにかいい方法はありますでしょうか? ＜使用 Excel:Excel2010、使用 OS:Windows7 ＞ ---- CheckBoxのClickイベントでセルに転記、としてみました。ユーザーフォームのCheckBoxに記述します。 Private Sub CheckBox1_Click() If Me.CheckBox1.Value = True Then ActiveCell.Value = Me.CheckBox1.Caption End Sub （カリーニン） 2015/08/07(金) 09:06 ---- とりあえずサンプルです。コードでは F列が選択されるとユーザーフォームを表示。 チェックボックス1〜3のいずれかにチェックがつけられると、アクティブセルに、そのキャプションを書きこむとともにユーザーフォームを閉じます。シートモジュール Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Columns("F")) Is Nothing Then UserForm1.Show End Sub ユーザーフォームモジュール（ユーザーフォームには CheckBox1,CheckBox2,CheckBox3 を配置してください） Private Sub CheckBox1_Click() setCell CheckBox1 End Sub Private Sub CheckBox2_Click() setCell CheckBox2 End Sub Private Sub CheckBox3_Click() setCell CheckBox3 End Sub Private Sub setCell(cbx As MSForms.CheckBox) ActiveCell.Value = cbx.Caption Unload Me End Sub （β） 2015/08/07(金) 09:08 ---- ↑ もちろん、このようなマクロ処理でもいいのですが、当該列に入力規則で文字列群のリストから選択させて記入するという方法が手軽でいいかもしれませんよ。（β） 2015/08/07(金) 09:11 ---- 出来ましたありがとうございますもう1件聞きたいのですが、チェックを入れたものを列記（2つチェックしたら2つ列記のように）し、チェックを外したら消去するようにはどうすればいいでしょうか? （苗） 2015/08/07(金) 11:56 ---- 複数のチェックボックスの選択有無を判断して書き込む必要があるのでチェックボックス選択イベントでの処理は適切ではないですね。別途CommandButton1 を配置。これがクリックされたらセルに書き込みます。アップ済みのユーザーフォームモジュールのコードを消去し以下。 Private Sub CommandButton1_Click() Dim s As String Dim sep As Variant Dim i As Long For i = 1 To 3 If Me.Controls("CheckBox" & i).Value Then s = s & sep & Me.Controls("CheckBox" & i).Caption sep = vbLf End If Next ActiveCell.Value = s End Sub （β） 2015/08/07(金) 13:34 ---- 出来ました丁寧にありがとうございました（苗） 2015/08/07(金) 14:26 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201508/20150807084814.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ