人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

前回と同じく簡単入力のマクロについての質問です。
新しいユーザを登録した後自動的にソートしたいのです、自動マクロではうまくいきません。よろしくお願い致します。

●質問者: mika555
●カテゴリ:コンピュータ インターネット
✍キーワード:ソート マクロ ユーザ 入力 自動
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● KUROX
●35ポイント

■Excel VBA 入門講座

http://excelvba.pc-users.net/fol7/7_4.html

◎質問者からの返答

ありがとうございます。今後の勉強に役立ちます感謝いたします。


2 ● Mook
●35ポイント ベストアンサー

前回のコメントで提示したコードを元に回答しますが、

転記の後ろの部分にソート処理を追加してください。

Sub 転記()
 If Range("C4") = "" Or Range("C10") = "" Then
 MsgBox "氏名か電話番号が未入力です。"
 Range("C4").Select
 Exit Sub
 End If

 Dim cLine As Long
 If 修正行 > 0 And 状態 = "修正" Then
 cLine = 修正行
 Else
 cLine = Worksheets("DATA").Range("A4").CurrentRegion.Rows.Count + 4
 End If
 Sheets("入力").Range("C4:C" & Range("A4").CurrentRegion.Rows.Count + 3).Copy
 Sheets("DATA").Range("A" & cLine).PasteSpecial _
 Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
 Application.CutCopyMode = False
 
 cLine = Worksheets("DATA").Range("A4").CurrentRegion.Rows.Count + 4
 Sheets("DATA").Rows("5:" & cLine).Sort Key1:=Sheets("DATA").Range("A5"), Order1:=xlAscending, Header:=xlNo
 InitForm
End Sub

マクロの自動記録でおおよそのやり方はわかると思いますが、細かい修正が必要です。

今回の場合はシートを指定してあげればできると思います。

http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_sort.html

◎質問者からの返答

いつもありがとうございます。

転記後、一度一番下の行にデータが登録されます。これをWクリックするとソートされるという仕様と考えてよろしいのでしょうか?

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ