Gizport
1 回答
0
Share (facebook)
297
view
全般

マクロ設定のについて エクセル2007を使用して下記のマクロを作成し...

マクロ設定のについて エクセル2007を使用して下記のマクロを作成しましたが、うまく動いてくれませんどこが誤りかご教示していただければ幸いです。
Sub Macro1()
'
' Macro1 Macro
'

'
Range("D39:ah405,aj39:aj405,al39:al405,an39:an405,ap39,ap405,ar39:ar405").Select
Range("at39:at405,av39:av405,ax39:ax405,az39:az405,bb39,bb405,bd39:bd405").Select
Range("bf39:bf405,bh39:bh405,bj39:bj405,bl39:bl405,bn39,bn405,bp39:bp405").Select
Range("br39:br405,bt39:bt405,bv39:bv405,bx39:bx405,bz39,bz405,cb39:cb405").Select
Range("cd39:cd405,cf39:cf405,ch39:ch405,cj39:cj405,cl39,cl405,cn39:cn405").Select
Range("cp39:cp405,cr39:cr405,ct39:ct405,cv39:cv405,cx39,cx405,cz39:cz405").Select
Range("db39:db405,dd39:dd405,df39:df405,dh39:dh405,dj39,dj405,dl39:dl405").Select
Range("dn39:dn405,dp39:dp405,dr39:dr405,dt39:dt405,dv39,dv405,dx39:dx405").Select
Range("dz39:dz405,eb39:eb405,ed39:ed405,ef39:ef405,eh39,er405,et39:et405").Select
Range("ev39:ev405,ex39:ex405,ez39:ez405,fb39:fb405,fd39,fd405,ff39:ff405").Select
Range("fh39:fh405,fj39:fj405,fl39:fl405,fn39:fn405,fp39,fp405,fr39:fr405").Select
Range("ft39:ft405,fv39:fv405,fx39:fx405,fz39:fz405,gb39,gb405,gd39:gd405").Select
Range("gf39:gf405,gh39:gh405,gj39:gj405,gl39:gl405,gn39,gn405,gp39:gp405").Select
Range("gr39:gr405,gt39:gt405,gv39:gv405,gx39:gx405,gz39,gz405,hb39:hb405").Select
Range("hd39:hd405,hf39:hf405,hh39:hh405,hj39:hj405,hl39,hl405,hn39:hn405").Select
Range("hp39:hp405,hr39:hr405,ht39:ht405,hv39:hv405,hx39,hx405,hz39:hz405").Select
Range("ib39:ib405,id39:id405,if39:if405,ih39:ih405,ij39,ij405,il39:il405").Select
Range("in39:in405,ip39:ip405,ir39:ir405,it39:it405,iv39,iv405,ix39:ix405").Select
Range("iz39:iz405").Select


Selection.ClearContents
End Sub
Yahoo!知恵袋 1575日前
コメントする
お気に入り
0
質問者が選んだベストソリューション
selectしたあとで何回もselectしているのですが
そうするとこの範囲だけがSelectionになるので
Range("iz39:iz405").Select
この範囲だけのデータががクリアされます。
Selection.ClearContents

よって、Selectの部分を「置換」して
すべてをRange("iz39:iz405").ClearContents
のようにしてしまうのがいいでしょう。
どこも選択しないで実行してしまうので
最終行のSelection.ClearContentsはエラーになるでしょう。
Yahoo!知恵袋 1564日前
シェア
 
コメントする
 

参考になったと評価
  このQ&Aは参考になりましたか?

Share (facebook)
その他の解決方法を知っていますか?
回答する
全般
87
Views
質問者が納得selectしたあとで何回もselectしているのですが そうするとこの範囲だけがSelectionになるので Range("iz39:iz405").Select この範囲だけのデータががクリアされます。 Selection.ClearContents よって、Selectの部分を「置換」して すべてをRange("iz39:iz405").ClearContents のようにしてしまうのがいいでしょう。 どこも選択しないで実行してしまうので 最終行のSelec...
1575日前view87

取扱説明書・マニュアル

関連製品のQ&A