advanced help
per page, with , order by , clip by
Results of 1 - 1 of about 4264 for オートフィルタ (0.004 sec.)
[[20190328133837]]
#score: 4241
@digest: 4c20add635bfe6b234641ccb5a2fa04d
@id: 79094
@mdate: 2019-03-28T05:20:10Z
@size: 1962
@type: text/plain
#keywords: 今週 (6253), 告書 (5913), 書") (4638), password (4561), 定") (4385), (br (4226), xllastcell (3731), enableautofilter (3703), 書シ (3293), protect (2945), 度オ (2873), 週分 (2351), 度閉 (2115), 報告 (2073), unprotect (1626), 細設 (1464), の予 (1385), userinterfaceonly (1324), xlcenter (1294), ト保 (1273), トフ (1159), 予定 (1153), horizontalalignment (1126), ルタ (1108), 週の (992), xlcontinuous (992), オー (989), フィ (928), 度開 (915), ィル (883), criteriarange (875), copytorange (857)
オートフィルタが使えない』(brad)
フィルタの詳細設定で報告書シートから今週分の予定を抽出するマクロを作成しました。 フィルタの詳細設定を使用するとリスト範囲のオートフィルタが解除されてしまうため、再度オートフィルタをかける設定をしています。 抽出元・抽出先いずれもシート保護をかけて使用しています。 マクロを実行した時は報告書シートのオートフィルタは使用できますが、 ファイルを一度閉じて再度開くとオートフィルタが使用できない状態になってしまいます。 作成したマクロは以下の通りです。 何か設定が間違っているのでしょうか? Sub Macro1() ' ' Macro1 Macro Sheets("今週の予定").Select Worksheets("今週の予定").Unprotect Password:="AAA"" Range("5:50").Delete ActiveSheet.UsedRange Sheets("報告書").Range("A11:AC3343").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("A2:B3"), CopyToRange:=Range("C4:h50"), Unique:=False Cells(Rows.Count, 1).End(xlUp).Select Range("C4").Select Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select Selection.Font.Color = 1 Range("C:E").HorizontalAlignment = xlCenter Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Borders.LineStyle = xlContinuous Dim sheet1 As Worksheet Set sheet1 = Worksheets("今週の予定") sheet1.Protect Password:="AAA"" Sheets("報告書").Activate ActiveSheet.Unprotect Password:="AAA" Rows("11:11").Select Selection.AutoFilter Sheets("報告書").EnableAutoFilter = True Sheets("報告書").Protect UserInterfaceonly:=True ActiveSheet.Protect Password:="AAA" End Sub < 使用 Excel:Excel2010、使用 OS:Windows7 > ---- ActiveSheet.Protect Password:="AAA" , AllowFiltering:=True オートフィルタを使えるシート保護にする必要があるかと思います! もう少し直したいところあるけど・・・ (稲葉) 2019/03/28(木) 13:58 ---- うまくいきました。 ありがとうございました! (brad) 2019/03/28(木) 14:20 ...
http://www.excel.studio-kazu.jp/wiki/kazuwiki/201903/20190328133837.txt - [detail] - similar
PREV NEXT
Powered by Hyper Estraier 1.4.13, with 96861 documents and 607997 words.

訪問者:カウンタValid HTML 4.01 Transitional