Excel VBA質問箱 IV

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

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


18772 / 76732 ←次へ | 前へ→

【63398】Re:VBAを変更したい。
発言  seg  - 09/10/30(金) 17:14 -

引用なし
パスワード
   ▼k1231 さん:
明日から連休で解決出来ないと思うので、以下のコードを
試してみてください。

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

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

' ソート
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を変更したい。 k1231 09/10/30(金) 9:53 質問
【63378】Re:VBAを変更したい。 seg 09/10/30(金) 10:28 発言
【63379】Re:VBAを変更したい。 k1231 09/10/30(金) 10:39 発言
【63380】Re:VBAを変更したい。 seg 09/10/30(金) 10:51 発言
【63381】Re:VBAを変更したい。 k1231 09/10/30(金) 11:11 発言
【63383】Re:VBAを変更したい。 seg 09/10/30(金) 11:39 発言
【63384】Re:VBAを変更したい。 k1231 09/10/30(金) 12:05 発言
【63389】Re:VBAを変更したい。 seg 09/10/30(金) 13:10 発言
【63391】Re:VBAを変更したい。 k1231 09/10/30(金) 13:36 お礼
【63393】Re:VBAを変更したい。 seg 09/10/30(金) 14:02 発言
【63394】Re:VBAを変更したい。 k1231 09/10/30(金) 14:06 お礼
【63395】Re:VBAを変更したい。 seg 09/10/30(金) 14:14 発言
【63396】Re:VBAを変更したい。 k1231 09/10/30(金) 15:56 発言
【63397】Re:VBAを変更したい。 seg 09/10/30(金) 16:38 発言
【63398】Re:VBAを変更したい。 seg 09/10/30(金) 17:14 発言
【63399】Re:VBAを変更したい。 k1231 09/10/30(金) 17:32 お礼
【63382】Re:VBAを変更したい。 SS 09/10/30(金) 11:36 発言
【63386】Re:VBAを変更したい。 k1231 09/10/30(金) 12:33 発言

18772 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free