Excel VBA質問箱 IV

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

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


16345 / 76732 ←次へ | 前へ→

【65855】Re:検索後、条件により行を挿入する
発言  超初心者  - 10/7/1(木) 11:19 -

引用なし
パスワード
   ▼けい さん:

こんな感じでしょうか

> If Not myRange Is Nothing Then
>   ※ここに1行上が空白ではない時に・・とIfを入れたい
   If myRange.Offset(-1, 0) <> "" Then
>>    'Rows("?:?").Select '←ここに何行目とはどう入れたらよいか
>>    'Selection.Insert Shift:=xlDown, opyOrigin:=xlFormatFromLeftOrAbove
     myRange.EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
   End If
> End If


ちなみに、"Appointments"が1行目にあった場合は
エラーが発生してしまいます m(_〜_)m
0 hits

【65854】検索後、条件により行を挿入する けい 10/7/1(木) 11:04 質問
【65855】Re:検索後、条件により行を挿入する 超初心者 10/7/1(木) 11:19 発言
【65856】Re:検索後、条件により行を挿入する けい 10/7/1(木) 11:42 質問
【65857】Re:検索後、条件により行を挿入する ひつまぶし 10/7/1(木) 11:59 発言
【65858】Re:検索後、条件により行を挿入する けい 10/7/1(木) 13:10 お礼

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