エクセルであるセルに入力したものだけを別のシートに溜める事は可能でしょうか?
例えば
Sheet1 A列~
1行目 会社名 住所 担当 Tel....応対日 内容
2行目 中村建設
3行目 中川商会
このSheet1で入力した応対日、内容を
Sheet2 A列~ B列 C列 D列
1行目 会社名 応対日 内容
2行目 中村建設 7/16 ...
3行目 中村建設 7/17 ...
↓ 中川商会 7/16 ...
↓ 中川商会 7/17 ...
と溜まっていくように作れるのでしょうか?
誰か御存知なかた教えて頂けませんでしょうか?
宜しくお願いいたします。
No.6ベストアンサー
- 回答日時:
No4 No5です。
>(3)ダイレクトにSheet2の既に蓄積されている企業の最下位行に移し変えるか?
sheet2
A B C
1行目 会社名 応対日 内容
2行目
3行目
4行目 会社名 応対日 内容
- - - - - - - -←にはウィンドウ枠の固定 しておく
5行目 中村建設 7/16 ...
行目 中村建設 7/17 ...
2行目を 入力のために使います。
A2 B2 C21に 会社名 応対日 内容 入れて
Sub Test1()
Range("A65536").End(xlUp).Offset(1, 0).Value = Range("A2").Value
Range("B65536").End(xlUp).Offset(1, 0).Value = Range("B2").Value
Range("C65536").End(xlUp).Offset(1, 0).Value = Range("C2").Value
End Sub
を実行してみてください。
No.5
- 回答日時:
たまたま 今日の質問に回答載せてしまいましたが。
>Sheet1をフィルター等かけて、数百件中から対応先を探し出し
別の新しいブックで以下試してみてください。入力規則の実験です。
Sheet1に 今のシートをコピイして
Sheet1 A列~
1行目 会社名 フリガナ 住所 担当 Tel....応対日 内容
2行目 中村建設
3行目 相田商会
フリガナの列を入れる
あ ア
い イ
・・・
を ヲ
と会社名とフリガナの下に一文字を入れていく
フリガナで並び替えを行うと
1行目 会社名 フリガナ 住所 担当 Tel....応対日 内容
2行目 あ ア
3行目 相田商会 アイダ
・・・
?行目 な ナ
?行目 中村建設 ナカムラ
・・・
と並び替えになります。
この1列目の選択して 「挿入」「名前」「定義」で会社名 とでも定義します。
Sheet2
1行目 会社名 応対日 内容
2行目 *****
A2セルを選択して 「データ」「入力規則」で 入力値の種類 で リストを選択
元の値に =会社名 といれてOK
A2セルに な といれて セル右の▽を押すと な で始まる会社名のリストが出てきます。
応用で日付も入力規則で選択 内容を キーで文字入力 後はマクロで
そのシートの最終の行に追加する
>マクロでSheet1アクティブセルをコピーし、Sheet2でCTRL+Fで検索ダイアログに貼り付け、検索するマクロ
では ヒットした行の書き換わるだけで
溜まっていく 事にはならないと思います。
No.4
- 回答日時:
>このSheet1で入力した応対日、内容
登録のマクロのボタンが出来たからといっても
Sheet1で会社名を上下キーで移動しながら探して右へ移動し
日付と内容を手入力するのが大変面倒ではないでしょうか。
Sheet2の各列に入力規則を設定して
最終の行に追加していく方が作業は楽だと思います。
必要であれは、Sheet1に最終の対応日と内容を関数で表示できます。
この回答への補足
ありがとうございます。あまりPC詳しくありません。
現状、Sheet1をフィルター等かけて、数百件中から対応先を探し出し、最右セルに応対日、内容を入力しています。この作業は省略できないように思っています。
むしろ、マクロでSheet1アクティブセルをコピーし、Sheet2で
CTRL+Fで検索ダイアログに貼り付け、検索するマクロを作ってみましたが、マクロ実行2回目から上手くいきません。これはモジュールで検索ダイアログで貼り付けるところで””に変えても駄目でしたが?どうするか御存知でしたら教えて頂けませんでしょうか?
宜しくお願いいたします。
No.3
- 回答日時:
こんなことどうして質問になるのかな。
何が聞きたいのか。ーー
あるいは、Sheet1の
2行目 中村建設
3行目 中川商会
の部分は毎回消してしまう(上書き的)のか。
それならそれを質問で力説しないと。
VBAを使わないと無理だろう。VBAの経験ありますか。
ーー
式ばっかりになるが
Sheet2に(見出しはコピー貼り付けするとして)
A2 に=Sheet1!A2
B2 にはCTRL+;
C2に =Sheet1!F2(応対日の列)
D2に =Sheet1!G2(内容の列)
を入れて
以上を下方向に式を複写。
====
これで不満な点、間違い点はどこですか?
ーー
B2の本日の日付は
(1)上記のように日付を人手で入れるか
(2)VBAで日付を入れるか
しないとだめだ。TODAY()関数では操作日に変わるから。
この回答への補足
ありがとうございます。あまりPC詳しくありません。
VBAはマクロのことでしょうか?ほんの少しだけ知っています。
Sheet1 A列~
1行目 会社名 住所 担当 Tel....応対日 内容
2行目 中村建設
3行目 中川商会
↓
は数百件ありまして。どの企業がその日の応対情報を入力するか解りません。
(1)それを一旦、Sheet2の2行目に移し、最終下位の行に蓄積していくか?
(2)最初からSheet2の最下位行に移し変えるか?
(3)ダイレクトにSheet2の既に蓄積されている企業の最下位行に移し変えるか?
出来れば(3)希望なのですが?
No.2
- 回答日時:
以下3点補足願います。
1)VBAは使用してもいいですか?
2)Sheet1の「対応日」と「内容」の列名は何ですか?(F列、H列などとお答え下さい)
3)Sheet1の「対応日」とSheet2の「対応日」関係をご説明下さい。
たとえば、Sheet1は毎日全体がクリアされるということですか?
それとも、Sheet1は会社名が同じ会社名がひとつずつしか無く、Sheet1の
対応日は対応した最終日付にその都度書き換える、ということでしょうか?
この回答への補足
ありがとうございます。
1)VBAマクロを使用すると言う事でしょうか?
2)Sheet1の「対応日」AKと「内容」ALです。
3)Sheet1の「対応日」とSheet2の「対応日」関係は、
Sheet1は毎日全体がクリアされせん。
Sheet1は会社名が1行目から下に数百件あります。
Sheet1の対応日は対応した最終日付にその都度書き換える、ということです?
日報のような感覚で、Sheet1は企業の詳細情報Sheet2は対応履歴にしたいのです。
あまりPC詳しくありません。回答になりましたでしょうか?
No.1
- 回答日時:
Sheet1での入力は最新日のみと認識しましたが、よろしかったですか?
つまり、「中村建設」との応対情報が、Sheet1では、7/16の応対情報を消して、7/17のみ入力表示されているが、7/16に応対した情報はSheet2に溜め込んで、会社名と応対日をキーにして、ソート結果を格納しておく。
もし、認識に誤りが無いのであれば、Excel VBAでマクロコーディングするしかなさそうです。詳しい方に作成してもらうよう、相談すれば1日くらいで作成してもらえるのでは、と思います。ここにはコーディングを記述できるほどの余地が無いので、記述できませんでした。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) SUMIFのIF分岐について 4 2023/04/15 12:57
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Excel(エクセル) 【条件付き書式】countifsで複数条件を満たしたセルを赤くする方法 2 2023/02/09 23:53
- Visual Basic(VBA) VBA 改行コードの取り方 1 2022/03/22 14:14
- Visual Basic(VBA) VBA 最終行まで数式をコピーする 3 2023/01/03 15:44
- Excel(エクセル) エクセルで”入力シート”の文字書式の変更を”出力シート”で同じ文字書式で印刷したいです。VBA希望 4 2023/04/24 11:07
- Visual Basic(VBA) 【VBA】指定した検索条件に一致したら別シートに転記したい 2 2022/03/23 16:14
- Excel(エクセル) エクセルでセルの日付を和暦表示設定にしたらおかしなことに? 3 2022/05/25 11:47
- Excel(エクセル) エクセルの複数ブックのシートを1つまとめたい 都道府県ごとに47ブックがあり、そのシートのデータを1 5 2022/11/15 14:57
- Visual Basic(VBA) VBAで、1つのエクセルで、2つのシートからもう1つのシートに条件のある転記コードを教えてください。 1 2023/03/16 18:07
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
すべてのシートを選択してエク...
-
エクセル。ブック内検索で重複...
-
合計が0の行を削除
-
Excel VBA 答えが0になってし...
-
Excelのデータが重いのはなぜで...
-
エクセル 異なる列から部分的に...
-
エクセルにおいてタグからタグ...
-
エクセルで時刻を自動入力する方法
-
ローマ字入力で「トゥ」を入力...
-
Excelでエラー(#N/Aなど)値を...
-
1点の辻の字に変換したいがエク...
-
「未使用」と「不使用」ってど...
-
エクセルで年休を管理する方法...
-
SUM関数の範囲に#N/Aが...
-
ExcelでVBAを使用した際に、『...
-
もしセルが"#N/A"なら~をする...
-
ACCESS VBA でのエラー解決の根...
-
excelで小数点0を表示させる方法
-
エクセルで0.0と表示したい
-
エクセルからアクセスにインポ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
すべてのシートを選択してエク...
-
エクセルで時刻を自動入力する方法
-
Excelのデータが重いのはなぜで...
-
Excel VBA 答えが0になってし...
-
EXCEL VBA 区切り位置のプログ...
-
エクセルマクロについて データ...
-
エクセル。ブック内検索で重複...
-
エクセルで30日以内に同内容の...
-
スプレッドシートで、指定した...
-
合計が0の行を削除
-
エクセルで漢字がうまく並び替...
-
エクセルの入力 エンターキーで...
-
excel フレームのように一部...
-
エクセルの中の漢字を一度にカ...
-
エクセルで隣のセルと同じ数字...
-
A列を検索し一致した行を表示。...
-
Excel2003での並べ替えについて
-
エクセル (1)行削除 (2)列追...
-
Excelユーザーフォームでのデー...
-
エクセルの既存のシートでは入...
おすすめ情報