エクセルの学校：全文検索：Hyper Estraier：オートフィルタ

Results of 1 - 1 of about 4266 for オートフィルタ (0.004 sec.)

[[20180929145831]]: #score: 4241; @digest: 0f0e7db96aa882ad214c3048d3cbe79a; @id: 77396; @mdate: 2018-09-29T08:37:13Z; @size: 3408; @type: text/plain; #keywords: 注一 (10161), 標表 (7748), 9745 (4972), 縦( (4541), クボ (4406), checkboxes (3509), で&# (3283), 覧") (3206), 横( (3169), 定) (2417), 受注 (2006), 列)) (1968), チェ (1810), ェッ (1639), 行( (1616), トフ (1544), 土) (1474), オー (1319), 転記 (1220), ボッ (1190), autofilter (1137), 2018 (1107), ルタ (1106), ック (1070), クス (955), マナ (952), 隠居 (933), 示( (915), 行) (827), target (813), フィ (811), ィル (771); 『オートフィルタとチェックボックス』（まちろん）
エクセルマクロにて下記のような表があります。 □あいうえお ☑かきくけこ □さしすせそ ☑たちつてとチェックボックスにチェックをつけた列のデータを別シートに転記したいです。表のデータが膨大なので、オートフィルタで該当する条件のデータを絞り込んでチェックをつけて、転記というようにしたいのですが、 オートフィルタで絞り込むとチェックボックスがセルに固定されずずれてしまいます。フォームコントロールで作成したチェックボックスをセルに固定してオートフィルタをかけることはできますでしょうか? ＜使用 Excel:Excel2007、使用 OS:Windows7 ＞ ---- チェックボックスの替わりに1でも入力してオートフイルターしてはだめですか（隠居じーさん） 2018/09/29(土) 15:26 ---- うっ ^^;;; なにかわたしの勘違いでしたら無視してください。すみません m(__)m （隠居じーさん） 2018/09/29(土) 15:33 ---- 御返事有難うございます。今、先にチェックボックスにチェックをつけて別シートに転記するところまではマクロで作成してしまっていて後からオートフィルタを追加したいと思っている状況です。例えば、後からあいうえおはチェックをつけていたかな? というのを調べたいときにオートフィルタで検索できるようにしたいです。（まちろん） 2018/09/29(土) 15:36 ---- 回答ではないのですがよろしければ、↓のマクロを提示していただけませんか。＞今、先にチェックボックスにチェックをつけて＞別シートに転記するところまではマクロで＞作成してしまっていて（マナ） 2018/09/29(土) 15:54 ---- '// Sub transferBychkbox() Sheets("受注一覧").Rows("3:" & Rows.Count).Clear Dim i As Long, j As Long, k As Long j = 3 'jは元データ(転記したいデータ)の最初の行(1行目はタイトル行のため2行目から指定) k = 3 'kは転記先の最初の行(1行目はタイトルがあるので2行目から指定) With ActiveSheet j = j - 1 For i = 1 To .CheckBoxes.Count If .CheckBoxes(i) = xlOn Then .Cells(j + i, 2).Resize(, 4).Copy Worksheets("受注一覧").Cells(k, 1) k = k + 1 '.Cells(j + i, 2)の2は元データの最初の列(座標表示(縦(行)、横(列)) End If Next End With End Sub '// （まちろん） 2018/09/29(土) 16:10 ---- 宜しくお願い致します。（まちろん） 2018/09/29(土) 16:16 ---- チェックボックスの代わりにセルのダブルクリックで、文字で☑□を表示させるのではだめですか転記のマクロもオートフィルタで☑の行を抽出してコピーできます。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column > 1 Then Exit Sub If Target.Row > 3 Then Exit Sub Cancel = True If Target.Value = ChrW(9745) Then Target.Value = "□" Else Target.Value = ChrW(9745) End If End Sub Sub transferBychkbox2() Dim wsS As Worksheet Dim wsD As Worksheet Set wsS = Worksheets("全データ") Set wsD = Worksheets("受注一覧") wsD.UsedRange.Clear With wsS.Range("A2").CurrentRegion .AutoFilter .AutoFilter 1, ChrW(9745) If .Columns(1).SpecialCells(xlCellTypeVisible).Count > 1 Then .Columns("B:E").Copy wsD.Range("A1") End If .AutoFilter End With End Sub （マナ） 2018/09/29(土) 16:50 ---- If Target.Row < 3 Then Exit Sub の間違いでした（マナ） 2018/09/29(土) 16:56 ---- マナ様したいことができました!! ありがとうございました!!! （まちろん） 2018/09/29(土) 17:37 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201809/20180929145831.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ