Excel VBA質問箱 IV

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

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


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

32241 / 76807

←次へ　｜　前へ→


	【49805】Re:ｼｰﾄ別のマクロの動かし方

勝子 - 07/6/22(金) 18:03 -


	引用なし

	パスワード

作成したマクロのコードは
'貼り付けるシートのクリア（これが新規シート）
　　Sheets("実験").Select
　　Range("B2:N500").Select　　　 '２行目から５００行目までを選択
　　Selection.ClearContents　　　 'セルをクリア
　　Range("A1").Select

'コピー元の範囲選択
　　Sheets("登録").Select
　　Range("B17:M1500").Select
　　Application.CutCopyMode = False
　　Selection.Copy
　　
'貼り付けるシート（これが新規シート）
　　Sheets("実験").Select
　　Range("B2").Select
　　Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
　　　　:=False, Transpose:=False
　　Application.CutCopyMode = False
　　
　　
'並び替え（人(昇順)＞部屋(昇順)＞番号(昇順)）
　 '人は11,12,13のみが表示となる
　　Selection.Sort Key1:=Range("I2"), Order1:=xlAscending, _
　　　　　　　　　 Key2:=Range("G2"), Order2:=xlAscending, _
　　　　　　　　　 Key3:=Range("H2"), Order3:=xlAscending, _
　　　　　　　　　 Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
　　　　　　　　　 Orientation:=xlTopToBottom, SortMethod:=xlPinYin, _
　　　　　　　　　 DataOption1:=xlSortNormal, DataOption2:= _
　　　　　　　　　 xlSortTextAsNumbers, DataOption3:=xlSortTextAsNumbers
　　Columns("H:H").Select
　　Range("H2:H50").Select
　　　　
'人１５以上を削除
　　 For Loop_Cnt = 2 To 500
　　　　　If (Cells(Loop_Cnt, 9) + 0) > 15 Then
　　　　　　　Rows(Loop_Cnt).Select
　　　　　　　Selection.Delete Shift:=xlUp
　　　　　　　Loop_Cnt = Loop_Cnt - 1
　　　　　End If
　　Next Loop_Cnt
　　
　　
　　Range("A1").Select
　　ActiveWindow.SmallScroll Down:=9
　　
　　
End Sub
と上記の通りです。
マクロの記録作成から作ったので余分な箇所も有ります

3 hits

▼

【49801】ｼｰﾄ別のマクロの動かし方 勝子 07/6/22(金) 16:58