Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

18772 / 76732

←次へ　｜　前へ→


	【63398】Re:VBAを変更したい。

seg - 09/10/30(金) 17:14 -


	引用なし

	パスワード

▼ｋ1231 さん：
明日から連休で解決出来ないと思うので、以下のコードを
試してみてください。

>空白は受注日やユーザー欄が空白になる場合があります。
>それ以外にもないとは言い切れないので・・・。

>ここが必ず空欄という固定がありません・・・。

' ソート
If ((Target.Column = 5) And (Target.Row >= 6)) Then
　　Range(Cells(6, 1), Cells(Range("A6").End(xlDown).Row, Range("A6").End(xlToRight).Column)).Select
　　Selection.Sort Key1:=Range("E6"), Order1:=xlAscending
　　Cells(Target.Row, Target.Column).Select
End If

↓　下記に置き換え

' ソート
If ((Target.Column = 5) And (Target.Row >= 6)) Then
　　Rows("6:" & CStr(ActiveSheet.Cells.SpecialCells(xlLastCell).Row)).Select
　　Selection.Sort Key1:=Range("E6"), Order1:=xlAscending
　　Cells(Target.Row, Target.Column).Select
End If

上記の機能は、Xlsが保持している最終行を取得するので
登録＆消去を繰り返していると、ほんとたまにずれたりします。

0 hits

▼

【63377】VBAを変更したい。 ｋ1231 09/10/30(金) 9:53