Excel VBA質問箱 IV

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

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


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

57130 / 76732

←次へ　｜　前へ→


	【24342】Re:並べ替えについて

ウッシ - 05/4/19(火) 19:20 -


	引用なし

	パスワード

▼りんりんさん：
>ウッシさんこんにちは。
>回答ありがとうございます。
>教えていただいた通りのコードで試してみたのですが、
>ソートのコードのところで
>『Rangeクラスのsortプロパティを取得できません』という
>エラーが出るのですがどこが悪いのでしょうか？？
>
>Sub　test()
>
> With Sheets("仕掛品一覧").Range("B2", Range("B65536").End(xlUp))
>　　With .Offset(, 254)
>　　　　.Formula = "=If（A2<>"""",A2,IV1）"
>　　　　.Copy
>　　　　.PasteSpecial xlValues
>　　End With
>　　.Offset(, -1).Resize(, 256).Sort.Offset(, 254).Cells(1).xlAscending ,header:=xlNo
>　　.Offset(, 254).ClearContents
>　End With
>
>End Sub

こんばんは

「With Sheets("仕掛品一覧")」で修飾される全てのRangeに「.」を付けないとダメです。
あとは「,」が「.」になってたり、離れてないといけないところがくっついてたり・・・

Sub test1()

　　With Sheets("仕掛品一覧")
　　　　With .Range("B2", .Range("B65536").End(xlUp))
　　　　　　With .Offset(, 254)
　　　　　　　　.Formula = "=If（A2<>"""",A2,IV1）"
　　　　　　　　.Copy
　　　　　　　　.PasteSpecial xlValues
　　　　　　End With
　　　　　　.Offset(, -1).Resize(, 256) _
　　　　　　　　.Sort .Offset(, 254).Cells(1), xlAscending, header:=xlNo
　　　　　　.Offset(, 254).ClearContents
　　　　End With
　　End With

End Sub

です。

6 hits

▼

【24330】並べ替えについて りんりん 05/4/19(火) 16:32