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

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

[[20060420174015]]: #score: 5499; @digest: 628fc1d8c599ad598db6cde6ce63f666; @id: 21687; @mdate: 2006-04-23T11:56:35Z; @size: 3678; @type: text/plain; #keywords: 入レ (48198), 況チ (21971), 額進 (21016), レ5 (20721), 林人 (15497), 捗状 (15232), ・進 (12932), 参12 (12619), レ3 (12255), 根10 (11255), pasterow (10014), 様名 (9781), クボ (7709), 中大 (7162), 進捗 (6262), 山崎 (5992), 購入 (4911), 客様 (4414), 名商 (4253), ス? (3946), 大根 (3602), 人参 (3496), 額・ (3474), 名金 (3470), チェ (3342), ェッ (3026), ・商 (2953), 名・ (2744), ・金 (2689), ス2 (2577), ボッ (2232), ック (1995); 『複数のシートの中からチェックボックスにチェックを入れたものだけを別のシートに貼り付けたい』（curl）
教えて下さい。複数のシートの中からチェックボックスにチェックを入れたものだけを別のシートに順次に自動で貼り付けをしたいのですが... なにかいい手段があれば教えて下さい。 ---- もう少し具体的に説明されたほうが回答が得られやすいですよ。複数のシートとは、どのくらい? チェックボックスはどうやって付ける? 別のシートに何を貼り付ける? などなど・・・。（川野鮎太郎） ---- すみません....初めて書き込みをしますので.... シートの数は10枚くらいです。その10枚のシートにはそれぞれ「お客様名・商品名・金額・進捗状況」という項目があります。その「進捗状況」に（例えば）今週変化のあったものだけにチェックボックスにチェックを入れ、そのチェックが入ってる行だけを抽出し、別のシート（同じブック内）に移動させたいです。その10枚のシートから、チェックしたものを移動させ、移動させたシートにはどんどん行が追加されていく... という風にしたいのですが... よろしくお願いします。 ---- チェックボックスはどうやってつけるのでしょうか。コントロールツールボックスのチェックボックス? フォームのチェックボックス? ユーザーフォームのチェックボックス? 「お客様名・商品名・金額・進捗状況」はどこのセルに入っていますか? （川野鮎太郎） ---- フォームのチェックボックスを使いたいです。 (sheet2 野菜) A B C D E 1 お客様名商品名金額進捗状況 チェックボックス 2 田中大根 100 4/22購入レ 3 山田なし 4 林人参 120 4/20購入レ 5 竹田なし (sheet3 果物) A B C D E 1 お客様名商品名金額進捗状況 チェックボックス 2 森なし 3 吉田なし 4 西りんご 200 4/21購入レ 5 山崎みかん 100 4/19購入レという表に購入した人の所にチェックを入れて、そのチェックが入った行を (sheet1集計用）に自動で貼り付けたいです。 ↓ ↓ (sheet1 集計) A B C D E 1 お客様名商品名金額進捗状況 チェックボックス 2 田中大根 100 4/22購入レ 3 林人参 120 4/20購入レ 4 西りんご 200 4/21購入レ 5 山崎みかん 100 4/19購入レまた（sheet2 野菜）のようなデータベースのsheetが10枚くらいあり、同じようにチェックボックスでのチェックを入れて（sheet1 集計）に貼り付けたいです。よろしくお願いします。 ---- ご希望のようなことをしようとすると、チェックボックスオブジェクトが限りなく増えてきて仕舞いには不具合が出てくる可能性があります。なので、□を■にすることを右クリックでやってみました。サンプルを載せておきます。 http://skyblue123.hp.infoseek.co.jp/Excel/Check_Paste.xls コードは、ThisWorkbookモジュールに以下のコードを入れてます。 ''なお、集計シート以外にも、チェックで転記しないシートがある場合は、以下の※※の行に追加してください。'' Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) If Sh.Name = "集計" Then Exit Sub '※※ If Sh.Name = "別シートなど" Then Exit Sub With Target If .Count > 1 Then Exit Sub If .Column <> 5 Then Exit Sub If .Value <> "□" Then Exit Sub If vbNo = MsgBox("チェックした行を転記しますか?" & vbCrLf & _ "いいえで中止します。", vbYesNo + vbQuestion, "転記の確認") Then Exit Sub Cancel = True .Value = "■" PasteRow = Worksheets("集計").Range("A65536").End(xlUp).Offset(1, 0).Row .EntireRow.Copy Destination:=Worksheets("集計").Cells(PasteRow, 1) End With End Sub （川野鮎太郎） ----- ありがとうございます! 理想どおりの形です。これから、本当の表で作ってみますが、また分からない時は教えて下さい。 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200604/20060420174015.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ