[[20110404114927]]　『自動で枠線、自動でオートフィルタから検索』（ほし）　ページの最後に飛ぶ

『自動で枠線、自動でオートフィルタから検索』（ほし）

 宜しくお願いします。

 マクロ
   Worksheets("データ").Range("A" & End_Row).Value = Now()
  Worksheets("登録シート").Range("C2:C10").Select
  Selection.Copy
  Sheets("データ").Range("A" & End_Row).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
  False, Transpose:=True
  Application.CutCopyMode = False
  Sheets("データ").Select

 （”データ”の一番下の行に、”登録シート”の内容を転記する）マクロです

 これに
 転記したデータ行「A:I」に枠線をつけるマクロ
 を追加したいです。

 また　B列　C列　にはオートフィルタを設定しています。
 日付と氏名なのですが、データが大量にある為、オートフィルタで検索するのが大変です。

 検索用の別マクロを作りたいのですが、お教え頂けないでしょうか。

 （”登録シート”の空いたセルに「日付検索用セル」「名前検索用セル」を作成し、
 「１月１日」と日付を入れると”データ”に移動→「１月１日」のオートフィルタ
 「ほし」と名前を入れると”データ”に移動→「ほし」のオートフィルタ
 となるのが、理想です。マクロ２通りになってかまいません）

 罫線の対応の部分だけですが、
  Sheets("データ").Range("A" & End_Row).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
  False, Transpose:=True
 を
  With Sheets("データ").Range("A" & End_Row)
     .PasteSpecial Paste:=xlValues, Transpose:=True
     .Resize(1,9).Borders.LineStyle = xlContinuous
 End With
 に変えてどうでしょうか。
 この辺りはマクロの記録でも取得できますし、ネットでもいろいろと例が
 見つかると思います。
 (Mook)

 mookさん　ありがとうございます＾＾

 Sub Macro1()
    A = Range("C13").Value
    Sheets("データ").Select
    Selection.AutoFilter Field:=3, Criteria1:=A
End Sub
 自分で考えて作ったマクロはコレなのですが
 オートフィルタを選択するところまでは行くのですが、どうも反応しません・・・。

 （ほし）

 A = Range("C13").Value
を
A = Range("C13").Text
にすると動作したりしませんか。
(みやほりん)(-_∂)b

コメント返信：

[ 一覧(最新更新順) ]

[[20110404114927]] 『自動で枠線、自動でオートフィルタから検索』（ほし） ページの最後に飛ぶ

[[20110404114927]]　『自動で枠線、自動でオートフィルタから検索』（ほし）　ページの最後に飛ぶ