皆様
よろしくお願い致します。
定型のメールやテキストをまとめてコピーし、エクセル上で貼り付ける際に、各項目に自動的に挿入する事は可能でしょうか?
文章だと分かり辛いので、サンプルを
========
お客様名 山田 太郎
電話番号 03-0000-0000
メールアドレス taro@yahooooo.co.jp
========
この様な決まったフォームのテキストが有ったとして
これをまとめてコピーし、ワンクリック等でそれぞれの
項目のセルに内容を挿入したいと考えています。
例
A1にはお客様名
A2には電話番号
A3にはメールアドレス
マクロを使用する事になるかと思いますが、全く知識が無く、困り果てております。
どなたかご教示頂ければ幸いです。
宜しくお願い申し上げます。
No.3ベストアンサー
- 回答日時:
まずは「禁止事項」の「丸投げ・依頼」をお読みください
>マクロを使用する事になるかと思いますが、全く知識が無く、困り果てております。
勉強してください
質問の情報では不足ですので、大まかなコードしか提示できません
後は、質問者さんご自身でコードを修正する必要があります
また、質問をする場合も要点が明確で、回答側も回答がしやすくなります
以上の理由から、エラー処理等はしていません
最低限の説明しかしませんので、後はコードから読み取ってください
Sub test()
Dim CB As New DataObject
Dim a, b As Variant
Dim i, ii, iii As Integer
CB.GetFromClipboard
a = Split(CB.GetText, vbCrLf)
For i = 0 To UBound(a)
b = Split(a(i), " ")
iii = Range("a65536").End(xlUp).Offset(1).Row
For ii = 1 To UBound(b)
Cells(iii, 1).Value = Cells(iii, 1).Value & b(ii)
Next ii
Next i
End Sub
対象をコピーして、excel上でtestを実行
アクティブシートへ結果を出力します
「コンパイルエラー ユーザー定義型は定義されていません」がでる時は
一度userformを作成し、削除してください、必要なライブラリーが設定されます
No.2
- 回答日時:
はじめまして
マクロを使用すればできます。
エクセルで読み込むかエクセル上にコピー&ペーストすれば、後はエクセル上で行うコピー&ペーストの操作になります。
(テキストならエクセルで読み込むことができます。メールはエクセルで直接読み込むことができませんが、テキストに保存すれば読み込めます。)
>マクロを使用する事になるかと思いますが、全く知識が無く、困り果てております。
まずは、
「ツール」-「マクロ」-「新しいマクロの記録」
を使って手作業でコピー&ペーストする作業をマクロ化してみてください。
いいサンプルプログラムになります。(マクロになれてくれば、そのまま使うよりも、もう少し効率のいい書き方ができます。)
あとは、
========
お客様名 山田 太郎
電話番号 03-0000-0000
メールアドレス taro@yahooooo.co.jp
========
のどれが「お客様名」でどれが「電話番号」で…
とエクセルに指示する部分がポイントとなります。
エクセルは文書を理解することはできないので、ちゃんと指示を与えなければなりません。
たとえば、必ず(!)1行目は「お客様名」で、以下の書式でかかれているとします。
お客様名[全角スペース]○○ △△
このときは、A1にコピーするデータとしては、
「1行目」から“お客様名[全角スペース]”を削除したもの
と指定できます。
ただし、例外があると上手くいきません。
このデータの前に他の情報が入っていて、「お客様名」が何行目にあるのか定まっていない場合には、まず「お客様名」を探すことからはじめなければなりません。
このように、元のデーターのルールによってプログラムの組み方が違ってきます。
No.1
- 回答日時:
例、のようにしたいならCSV形式のテキストを作れば良いです。
項目の区切り記号をコンマ(,)やスペースで右(桁方向)に
改行(レコード)で下(行移動)という風に作成します。
CSVファイルを開く時に区切り記号の選択をして開くと
連続的に入力されます。
あとは表を編集して体裁を整えればいいです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA初心者です。電話番号の数字の前に0を表示させたいです。 2 2022/12/14 03:58
- Excel(エクセル) VBA 特定の列に入っているテキストをコピペ 2 2023/06/14 11:24
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- Excel(エクセル) 【エクセル」 特定のセルで条件抽出した列を、別シートに上から詰めて表示したい。 8 2022/04/08 16:00
- Access(アクセス) Accessのクエリの結果を、既存のエクセルに追加したい 2 2022/07/31 22:44
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/01/26 09:50
- Excel(エクセル) Excelで数式をそのままコピーしたい どうすればいいですか? 4 2022/09/16 02:16
- Visual Basic(VBA) 2つのシートの任意のセルの番号が一致したら、一致した行をコピーする VBA 2 2023/06/19 20:48
- Excel(エクセル) 【マクロ】PasteSpecialメソッドにて、コードが動かない理由が分かりません 2 2023/08/15 20:47
- Excel(エクセル) ExcelVBA メモ帳を起動し名前を付けて指定フォルダに保存 2 2022/04/18 13:15
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル マクロ コピー 貼...
-
エクセル/マクロ Exit Subが実...
-
pythonでrequestsが使えない
-
OBSが起動できません
-
MACのBootCampでWin10のインス...
-
オペランドが足りませんとコメ...
-
Kernel-Power Event ID 41 エラー
-
フェイス・シートについて教え...
-
sedでダブルコーテーションを違...
-
請求書等のシリアル番号生成方法?
-
ドロップボックスでメールガ来...
-
エクセルVBAで参照設定というフ...
-
MFT(マスターファイルテーブル)...
-
mfc42.dllファイルってなんです...
-
Access2010 「演算子がありませ...
-
不明なコマンドです("FROM")。...
-
アウトルックエクスプレスでメ...
-
UserFormのTextBoxからフリガナ...
-
Mac上でWindowsのみ対応のCDRを...
-
VBAで横データを縦データに変換...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
貼り付けをマクロで禁止させたい。
-
あみだくじの横線の本数の求め方
-
エクセルのselect case で 100...
-
ゾンビエクセル・・・(Exc...
-
excel2000でのマクロ記録
-
VBAで写真参照→写真サイズ変...
-
マクロでエクセル内のアウトラ...
-
不明なコマンドです("FROM")。...
-
Access2010 「演算子がありませ...
-
【ExcelVBA】sheet作成時にマク...
-
オペランドが足りませんとコメ...
-
エクセル/マクロ Exit Subが実...
-
Excel2010でふりがなが漢字にな...
-
エクセルの文字間スペースを入...
-
VBA シートの切り替えができな...
-
pythonでrequestsが使えない
-
mfc42.dllファイルってなんです...
-
マクロ実行ボタンがコピー出来ない
-
VBAでシートコピー後、シート名...
-
WordPressをインストールしてい...
おすすめ情報