Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12891 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【8157】指定文字列からの範囲指定 レトリバー 03/10/2(木) 12:30 質問
【8159】Re:指定文字列からの範囲指定 Jaka 03/10/2(木) 13:09 回答
【8161】Re:指定文字列からの範囲指定 レトリバー 03/10/2(木) 14:02 質問
【8167】Re:指定文字列からの範囲指定 Jaka 03/10/2(木) 15:45 回答
【8171】Re:指定文字列からの範囲指定 レトリバー 03/10/2(木) 16:47 質問
【8173】Re:指定文字列からの範囲指定 Jaka 03/10/2(木) 17:21 回答
【8174】Re:指定文字列からの範囲指定 レトリバー 03/10/2(木) 17:41 質問
【8175】Re:指定文字列からの範囲指定 Jaka 03/10/2(木) 17:46 回答
【8176】Re:指定文字列からの範囲指定 レトリバー 03/10/2(木) 18:15 お礼
【8160】Re:指定文字列からの範囲指定 INA 03/10/2(木) 13:14 回答
【8164】Re:指定文字列からの範囲指定 レトリバー 03/10/2(木) 14:37 質問
【8157】指定文字列からの範囲指定
質問  レトリバー  - 03/10/2(木) 12:30 -
引用なし
パスワード
   はじめまして。
初心者なのですが、急に資料を作ることになったので質問させていただきました。

列（Ａ）の指定文字列（1）から下に空白が続いて、同じ列（Ａ）の次のデータ（2）までの範囲の行を指定し、それを別のシートにコピーするマクロを組みたいのですが、ご存知の方ご指導いただけますでしょうか？

質問の意味も分かるかどうか・・・
よろしくお願いします。
【8159】Re:指定文字列からの範囲指定
回答  Jaka  - 03/10/2(木) 13:09 -
引用なし
パスワード
   こんにちは。
良くわかりません。
>列（Ａ）の指定文字列（1）から下に空白が続いて、同じ列（Ａ）の次のデータ（2）までの範囲の行を指定し

指定文字列（1） ←　ここから
　空白
　空白
　・
　空白
指定文字列（2）　←　ここまでを

別のシートのどこにコピー？？
指定文字列（1）と指定文字列（2）だけを貼りつけて空白行分だけクリアさせても良いのでしょうか？

こう言うのは、コピ元＆コピー先シートのレイアウトなども書かれた方が良いと思いますけど。
【8160】Re:指定文字列からの範囲指定
回答  INA  - 03/10/2(木) 13:14 -
引用なし
パスワード
   >列（Ａ）の指定文字列（1）から下に空白が続いて、
>同じ列（Ａ）の次のデータ（2）までの範囲の行を指定し、
>それを別のシートにコピーするマクロを組みたい

・指定文字列は、どのように指定するのでしょうか？(inputboxで入力？)
・下に空白が続いて・・とは、空白行を挿入すると言うことですか？
・次のデータ（2）までの範囲の行を指定し、・・
　どのように指定するのですか？それともマクロで検索させるのですか？

ユーザーの操作とマクロで自動化する部分が、判別できません。
また、具体的にシートのレイアウトも掲載して、ご説明をお願い致します。
【8161】Re:指定文字列からの範囲指定
質問  レトリバー  - 03/10/2(木) 14:02 -
引用なし
パスワード
   Jakaさん見ていただいてありがとうございます。それと・・・失礼しましたm(__)m
やりたいことはこんな感じです。
10月1日の行動が書いたセルだけを別シートに貼り付け、10月2日の行動が書いたセルだけ別シートに貼り付ける・・・といったことをしたいです。

＜シート名:Ａ店＞

　　　　　　　 C　　　　　　　　|　 D　 |　 E　 |
----------------------------------------------------
10月1日←ここから（C:5）　　　　| (D:5) |　　　 |
空白　　　　　　　　　　　　　　|　　　 |　　　 |
空白　　　　　　　　　　　　　　|　　　 |　　　 |
・　　　　　　　　　　　　　　　|　　　 |　　　 |
・　　　　　　　　　　　　　　　|　　　 |　　　 |
空白←ここまで（C:指定文字列）　|　　　 | (E:?) |
10月2日

を空白も含めて10月1日から指定文字列（2）のひとつ前まで(C:5〜E:?）まで範囲指定してコピー。
貼り付け先は＜シート名:集計＞の（A:1）にしたいです。その後も同じような感じで「集計」というシートに（A:5）（A:10）といった感じに貼り付けていこうと思うので、貼り付け先はその都度変わります。
指定文字列というのは日付だけなので「1」とか「2」という数字になります。よろしくお願いしますm(__)m
【8164】Re:指定文字列からの範囲指定
質問  レトリバー  - 03/10/2(木) 14:37 -
引用なし
パスワード
   INA さん、ありがとうございます。

やりたいことは、こんな感じです。10月1日の行動が書いたセルだけを別シートに貼り付け、10月2日の行動が書いたセルだけ別シートに貼り付ける・・・といったことをしたいです。

>・指定文字列は、どのように指定するのでしょうか？(inputboxで入力？)
「反映させる」といったボタンを押すと自動的に指定文字列を見に行くようにしたいです。

>・下に空白が続いて・・とは、空白行を挿入すると言うことですか？
空白は既にデータに含まれているので、挿入はしません。

>・次のデータ（2）までの範囲の行を指定し、・・
>　どのように指定するのですか？それともマクロで検索させるのですか？
範囲は指定文字列（1）と、（2）のひとつ前までの行数で指定して、コピーしたいセルはセルの番号で範囲を決められたら嬉しいです。

>ユーザーの操作とマクロで自動化する部分が、判別できません。
>また、具体的にシートのレイアウトも掲載して、ご説明をお願い致します。

ユーザーの操作は「反映させる」と言ったボタンを押すだけにしたいです。
レイアウトは次のようになります。
　　　　　　　 C　　　　　　　　|　 D　 |　 E　 |
----------------------------------------------------
10月1日←ここから（C:5）　　　　| (D:5) |　　　 |
空白　　　　　　　　　　　　　　|　　　 |　　　 |
空白　　　　　　　　　　　　　　|　　　 |　　　 |
・　　　　　　　　　　　　　　　|　　　 |　　　 |
・　　　　　　　　　　　　　　　|　　　 |　　　 |
空白←ここまで（C:指定文字列）　|　　　 | (E:?) |
10月2日

出来るだけ詳しく書いたつもりですが、意味が分からない場合は再度ご指摘お願いいたしますm(__)m
【8167】Re:指定文字列からの範囲指定
回答  Jaka  - 03/10/2(木) 15:45 -
引用なし
パスワード
   まだというかほとんどわかっていない状況なんで、色をぬって見ました。
>（A:5）（A:10）といった感じに
さっぱりわからない状況なので．．．。

Sub dsgjdj()
　　Cor = Array(3, 4, 6, 7, 8, 15, 33, 38, 39, 45, 50)
　　sr = 5: CI = 0
　　Do Until Cells(sr, "C").End(xlDown).Row = 65536
　　　 er = Cells(sr, "C").End(xlDown).Row
　　　 dd = Cor(CI)
　　　 Cells(sr, "C").Resize(er - sr, 3).Interior.ColorIndex = Cor(CI)
　　　 If CI >= 10 Then
　　　　　CI = 0
　　　 Else
　　　　　CI = CI + 1
　　　 End If
　　　 sr = er
　　Loop
End Sub
【8171】Re:指定文字列からの範囲指定
質問  レトリバー  - 03/10/2(木) 16:47 -
引用なし
パスワード
   ありがとうございます。
早速色を付けてみました！
その中で、最初の赤色の部分をコピーして、＜集計＞というシートの（A:1）のセルに貼り付けたいのですが・・・。

何度もすみません。

>まだというかほとんどわかっていない状況なんで、色をぬって見ました。
>>（A:5）（A:10）といった感じに
>さっぱりわからない状況なので．．．。
>
>Sub dsgjdj()
>　　Cor = Array(3, 4, 6, 7, 8, 15, 33, 38, 39, 45, 50)
>　　sr = 5: CI = 0
>　　Do Until Cells(sr, "C").End(xlDown).Row = 65536
>　　　 er = Cells(sr, "C").End(xlDown).Row
>　　　 dd = Cor(CI)
>　　　 Cells(sr, "C").Resize(er - sr, 3).Interior.ColorIndex = Cor(CI)
>　　　 If CI >= 10 Then
>　　　　　CI = 0
>　　　 Else
>　　　　　CI = CI + 1
>　　　 End If
>　　　 sr = er
>　　Loop
>End Sub
【8173】Re:指定文字列からの範囲指定
回答  Jaka  - 03/10/2(木) 17:21 -
引用なし
パスワード
   こう言うことでしょうか？

sr = 5
er = Cells(sr, "C").End(xlDown).Row
Cells(sr, "C").Resize(er - sr, 3).Copy Sheets("集計").Range("A1")
【8174】Re:指定文字列からの範囲指定
質問  レトリバー  - 03/10/2(木) 17:41 -
引用なし
パスワード
   Jakaさん、何度もありがとうございます。
お恥ずかしい話ですが、回答頂いた下の文章をどこに追加すればいいのか分かりません。いろいろ試してみたのですが、上手く動作しないみたいなのです。
もしよろしければどこに追加するのか、手ほどき頂ければ幸いですm(__)m


>こう言うことでしょうか？
>
>sr = 5
>er = Cells(sr, "C").End(xlDown).Row
>Cells(sr, "C").Resize(er - sr, 3).Copy Sheets("集計").Range("A1")
【8175】Re:指定文字列からの範囲指定
回答  Jaka  - 03/10/2(木) 17:46 -
引用なし
パスワード
   ▼レトリバー さん：
>お恥ずかしい話ですが、回答頂いた下の文章をどこに追加すればいいのか分かりません。いろいろ試してみたのですが、上手く動作しないみたいなのです。
>もしよろしければどこに追加するのか、手ほどき頂ければ幸いですm(__)m

追加ではありません。
独立した物です。
最初の赤の部分だけで良いんですよね？

sub anko()
　sr = 5
　er = Cells(sr, "C").End(xlDown).Row
　Cells(sr, "C").Resize(er - sr, 3).Copy Sheets("集計").Range("A1")
end sub
【8176】Re:指定文字列からの範囲指定
お礼  レトリバー  - 03/10/2(木) 18:15 -
引用なし
パスワード
   Jaka さん、ありがとうございます！！出来ました〜！！
これからは自分が人に教えられるくらいになれるように頑張ります。
ほんとうにありがとうございました！m(__)m


>
>追加ではありません。
>独立した物です。
>最初の赤の部分だけで良いんですよね？
>
>sub anko()
>　sr = 5
>　er = Cells(sr, "C").End(xlDown).Row
>　Cells(sr, "C").Resize(er - sr, 3).Copy Sheets("集計").Range("A1")
>end sub
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12891 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free