Excel VBA質問箱 IV

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

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


2439 / 13645 ツリー ←次へ | 前へ→

【68010】行の挿入に関してです。 初心者です 11/1/25(火) 12:14 質問[未読]
【68011】Re:行の挿入に関してです。 Jaka 11/1/25(火) 13:13 発言[未読]
【68015】Re:行の挿入に関してです。 初心者です 11/1/25(火) 14:33 お礼[未読]
【68019】Re:行の挿入に関してです。 Jaka 11/1/25(火) 15:21 発言[未読]

【68010】行の挿入に関してです。
質問  初心者です  - 11/1/25(火) 12:14 -

引用なし
パスワード
   昨日からVBAを勉強し始めたのですが、いくらやっても下記がエラーになってしまいます。

どなたかどこが間違っているのか教えていただけませんでしょうか?


内容としては3行目に行を挿入したいといったものです。

よろしくお願いいたします。


Sub gyou()
  Worksheets("Sheet1").Activate
  Cells(3, 1).EntireRow.Insert
End Sub

【68011】Re:行の挿入に関してです。
発言  Jaka  - 11/1/25(火) 13:13 -

引用なし
パスワード
   ▼初心者です さん:
>昨日からVBAを勉強し始めたのですが、いくらやっても下記がエラーになってしまいます。
>Sub gyou()
>  Worksheets("Sheet1").Activate
>  Cells(3, 1).EntireRow.Insert
>End Sub

一応あってますよ。
取り合えず2003では動きました。
ひとまとめにして、
Worksheets("Sheet1").Cells(3, 1).EntireRow.Insert
でもいいし。

で、過去に合ったのと同じような事だとしたら、
Rows(3).Insert
かな?(因みに原因は解ってません。)
Worksheets("Sheet1").Row(3).Insert

【68015】Re:行の挿入に関してです。
お礼  初心者です  - 11/1/25(火) 14:33 -

引用なし
パスワード
   ▼Jaka さん:
お早いご回答、ありがとうございます!

別のシートで記述したら正常に機能しました。
まわりの別の記述が影響しているのでしょうか??

もう少し細かく考えてみます。


本当にありがとうございました!!


>▼初心者です さん:
>>昨日からVBAを勉強し始めたのですが、いくらやっても下記がエラーになってしまいます。
>>Sub gyou()
>>  Worksheets("Sheet1").Activate
>>  Cells(3, 1).EntireRow.Insert
>>End Sub
>
>一応あってますよ。
>取り合えず2003では動きました。
>ひとまとめにして、
>Worksheets("Sheet1").Cells(3, 1).EntireRow.Insert
>でもいいし。
>
>で、過去に合ったのと同じような事だとしたら、
>Rows(3).Insert
>かな?(因みに原因は解ってません。)
>Worksheets("Sheet1").Row(3).Insert

【68019】Re:行の挿入に関してです。
発言  Jaka  - 11/1/25(火) 15:21 -

引用なし
パスワード
   ▼初心者です さん:
>別のシートで記述したら正常に機能しました。
あ、シートモジュールに書いたんですか。
なら、
>>>  Cells(3, 1).EntireRow.Insert
これは、シートを明確に指定してないので、
書いたシートの事をさしてます。
Me.Cells(3,1).entire・・・・
と同じなんですね。
シートモジュールに書いたものだから、
Me、つまりSheet3だったら、自分であるSheet3を指します。

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