| |
>ここに書きこむのも初めてなので、1問ずつ質問すべきなのかもわからず
>まとめて質問させていただきます。
別々のほうがいいかと･･
>1. Ｈ１の値をＡ９：Ａ13までの各々のセルに
> Ｈ１７値をＡ２５：Ａ２９までの各々のセルに
> Ｈ３３の値をＡ４１：Ａ４５までの各々のセルにいれたいので
>ActiveCell.FormulaR1C1 = Cells(1, 8).Value
~~~~~~~~~~~
ここが固定になっていいるので、当然といえば当然
ちなみに同じ値を入れるのであれば、Loopを使用せずとも
Range("A9:A13").Value = Cells(1, 8).Value
のような感じでまとめて代入できます。
>2. Ａ列で空欄になっているセルの行を削除するマクロ
>(Ａ5のセルが空欄であれば5行目を削除)
SpecialCells Method, EntireRows MethodをHelpでお調べください。
>3. Ａ1：Ｏ31まで値が入っており、３２行以降が全て空欄の場合、Ｉ１からＯ３１までの値を切り取りＡ３３以降へ貼り付けるマクロはありますか？
>(値が４７行まであり、４８行以降空欄であれば、Ｉ１からＯ４７までの値を切り取りＡ４９以降へ貼り付けるというふうに、値の入力されている範囲(行)が変わっても、値の入っている最終行から1行あけた下の行にＩからＯまでの値を貼り付ける)
最終行の取得方法勉強しましょう。
HelpでEnd Propertyをお調べください。
>4. ひとつのブックに「名前」「コード」「1」「2」・・・「20」という名前のシートを作り、「名前」「コード」以外のシートの値をコピーして（新しいシートをつくり）貼り付けるマクロ
Loop構文と、条件分岐構文を組み合わせれば、簡単にできるでしょ。
Loopした中で、特定のものは除外という風に･･･
>5. 1つのシート上に複数つくったオートシェイプ図形やワードアート文字だけを全て消去するマクロ（セルの幅や高さなどはそのまま変えずに）
For Each で Shapesをぶん回して片っ端からDelete？
Loopしなくてもできたかな？
|
|
ちゃっぴ
- 04/12/16(木) 23:48 -
