Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6260 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【46415】文字列のペースト okitsun 07/2/2(金) 11:37 質問[未読]
【46416】Re:文字列のペースト ひげくま 07/2/2(金) 11:50 発言[未読]
【46417】Re:文字列のペースト okitsun 07/2/2(金) 12:08 回答[未読]
【46418】Re:文字列のペースト ひげくま 07/2/2(金) 12:16 発言[未読]
【46419】Re:文字列のペースト okitsun 07/2/2(金) 12:49 お礼[未読]
【46415】文字列のペースト
質問  okitsun E-MAIL  - 07/2/2(金) 11:37 -
引用なし
パスワード
   　　 A　　　B　　　C　　　D　　E　　F
1
2　　　 　　あ　　 い　　　　
3
4
5

上の表でB2:E2を探し、最後の文字の隣に文字列Ａをペースト
するにはどうしたらよいでしょうか。この場合ならD2へ
今まで質問した内容でRange、Offsetを使えばよいかと思のですが、

下の表のようになった時には、文字列Ａをペーストしないという条件を
入れたいのですが。

　　 A　　　B　　　C　　　D　　E　　F
1
2　　　 　　あ　　 い　　う　　え
3
4
5
【46416】Re:文字列のペースト
発言  ひげくま  - 07/2/2(金) 11:50 -
引用なし
パスワード
   ▼okitsun さん：
こんにちは。

>下の表のようになった時には、文字列Ａをペーストしないという条件を
>入れたいのですが。
>
>　　 A　　　B　　　C　　　D　　E　　F
>1
>2　　　 　　あ　　 い　　う　　え
>3
>4
>5

「下の表のようになったとき」というのは、具体的にはどういうことですか？
【46417】Re:文字列のペースト
回答  okitsun E-MAIL  - 07/2/2(金) 12:08 -
引用なし
パスワード
   ▼ひげくま さん：
E2に文字列が入っていたときです。
【46418】Re:文字列のペースト
発言  ひげくま  - 07/2/2(金) 12:16 -
引用なし
パスワード
   ▼okitsun さん：
>▼ひげくま さん：
>E2に文字列が入っていたときです。

では、E2に文字列が入っていたときと入っていなかったときで場合分けをして、入っていなかったときだけ処理をするようにしましょう。
【46419】Re:文字列のペースト
お礼  okitsun E-MAIL  - 07/2/2(金) 12:49 -
引用なし
パスワード
   ありがとうございました。できました。

'E4にレコードが入っていたら処理を抜ける

Cnt = WorksheetFunction.CountA(Range("E4:E4"))
If Cnt = 1 Then Exit Sub
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6260 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free