Excel VBA質問箱 IV

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

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


60631 / 76732 ←次へ | 前へ→

【20739】Re:初心者です。教えてください。
回答  かみちゃん  - 04/12/17(金) 0:04 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>ここに書きこむのも初めてなので、1問ずつ質問すべきなのかもわからず
>まとめて質問させていただきます。

5つの質問の答えをひとつずつ考え始めたのですが、すでに、ちゃっぴさんやKeinさんからレスがついているので、考え終わったものだけ書いておきます。
内容は似ていますが、そこは、せっかくなのでということでご了承を。

>1. H1の値をA9:A13までの各々のセルに
>  H17値をA25:A29までの各々のセルに
>  H33の値をA41:A45までの各々のセルにいれたいので

原因は、ちゃっぴさんのおっしゃるとおりです。
たとえば、以下のコードで処理できます。
Option Explicit

Sub Macro1()
 Dim i As Integer
 
 For i = 1 To 6
  With Cells(16 * i - 7, 1)
   .Resize(5, 1) = .Offset(-8, 7).Value
  End With
 Next i
End Sub

>2. A列で空欄になっているセルの行を削除するマクロ
>(A5のセルが空欄であれば5行目を削除)

オートフィルタで空白の行を選択することはできるのではないでしょうか?
まずは、「マクロの記録」で確認してみてください。
あとは、その見えている行をどのように消すのかということです。

>3. A1:O31まで値が入っており、32行以降が全て空欄の場合、I1からO31までの値を切り取りA33以降へ貼り付けるマクロはありますか?

「マクロの記録」をして、あとは、For 〜 Nextを加えて、セルの範囲を修正する
だけです。

>5. 1つのシート上に複数つくったオートシェイプ図形やワードアート文字だけを全て消去するマクロ(セルの幅や高さなどはそのまま変えずに)

以下のURLが参考になるかと思います。
http://park11.wakwak.com/~miko/Excel_Note/17-03_zukei.htm#17-03-43

なお、全般的にいえることですが、ご質問される前に、ヘルプ、過去ログの検索を
し、どうしてもわからない場合は、自分でどこまでできているかを提示するように
してみてください。

0 hits

【20736】初心者です。教えてください。 ほい 04/12/16(木) 22:07 質問
【20737】Re:初心者です。教えてください。 ちゃっぴ 04/12/16(木) 23:48 回答
【20738】Re:初心者です。教えてください。 Kein 04/12/16(木) 23:51 回答
【20739】Re:初心者です。教えてください。 かみちゃん 04/12/17(金) 0:04 回答
【20765】Re:初心者です。教えてください。 ほい 04/12/18(土) 0:00 お礼

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