![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
エクセル97の事で教えて頂きたいんですが。
1列に並んだ各セルの「コメントの挿入」にテキストファイルを自動的に移す方法をご存知の方いらっしゃいませんでしょうか?
例えばA列の各セルに
山田商事
佐藤株式会社
・
・
と有りまして、エクセルとは別のフォルダ内にも「山田商事」「佐藤株式会社」というファイル名の社歴を書いたテキストファイルがあります。
このファイルの内容をコメントの挿入の中に自動的に貼り付けたいんです。
手作業でコピー、ペーストは出来ますが、数が400近くあるんで、なんとか自動的にできる関数か何かの方法がないかと思って・・。
わかる方いらっしゃいましたら、よろしくお願いします。 m(_ _)m
♪ ひろ ♪
No.1ベストアンサー
- 回答日時:
質問の「山田商事」の右隣のセルに「山田商事」のコメントをセットしておきます。
以下、下方向に会社名とコメントをセットします。
ツール→マクロ→Visual Basic Editor でVBE画面に移り、挿入→標準モジュール で標準モジュールを挿入します。
出てきたコードウインドウに下記マクロを貼り付けます。
先頭セルの「山田商事」を選択してこのマクロを実行するとコメントを挿入します。
既にコメントがあれば挿入しません。また、右のセルに何もなければコメントは挿入しません。
手でやるよりは速いでしょう。
ここから
↓
Sub CommentSet()
Dim rg As Range 'セル
Set rg = ActiveCell
'データがある間続ける
While rg.Text <> ""
'まだコメントがなかったら
If rg.Comment Is Nothing Then
'右隣にコメントがあれば
If rg.Offset(0, 1).Text <> "" Then
'コメントを挿入して右のセルをコメント内容にする
rg.AddComment
rg.Comment.Text Text:=rg.Offset(0, 1).Text
End If
End If
'次のセル
Set rg = rg.Offset(1, 0)
Wend
MsgBox "終了"
End Sub
nishi6さん、レス有難うございます。
さっそく、やってみます。
とにかく数が多いので、これでグッとスピードアップしそうです。(^o^)
わたしはVBAが全然ダメなのでとても助かりました。
わざわざつくって頂いて、有難うございました。 m(_ _)m 感謝!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【VBA】指定フォルダに格納中のテキストファイルをエクセルで処理し結果のエクセルを新規フォルダに保存 1 2022/03/25 14:19
- Excel(エクセル) エクセル テーブル機能の不明点 2 2022/04/14 14:10
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/16 14:36
- Excel(エクセル) エクセル、画像ファイル名の書かれたセル(複数個所)に画像を一括で表示させる方法 1 2023/04/19 00:19
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/08 11:02
- C言語・C++・C# c言語の問題です 2 2023/07/21 10:51
- Excel(エクセル) エクセルで、特定のセルの内容を更新すると、別の特定セルに 更新日付が自動的に表示させる方法はあります 1 2022/11/14 21:03
- Excel(エクセル) フォルダ内のエクセルファイルを開かずにデータ採取する関数式 2 2022/12/22 22:15
- Excel(エクセル) エクセルの条件付き書式 個人シートを参照して集計シートに色付けしたい 1 2023/06/22 00:39
- Excel(エクセル) CSVファイルがカンマ区切りにならない。対処法を教えていただきたいです。 仕事でSMS一斉送信ができ 2 2022/07/01 21:24
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
セル入力文字が、「右のセルに...
-
あるセルに色を付けた時、別の...
-
エクセルで知らない間に行がず...
-
Wordで、表のセルが変なところ...
-
Wordでセルに文字を入力すると...
-
Excelのセル内の文字の頭に半角...
-
エクセルでセルの中の文字が削...
-
エクセル2010で、結合したセル...
-
ワードで表を作ってセル内で改...
-
エクセルで1列おきのデータのみ...
-
Word 表のセル塗りつぶし
-
WORDで表の行を2行に分けたい
-
エクセルで複数行を括弧でくく...
-
エクセルの一つのセル内に2つの...
-
Wordの表で逆L字型のセルを作成...
-
エクセル 結合したセルの間にセ...
-
【VBA】結合セルの罫線処理につ...
-
エクセル2003で表の中に更...
-
エクセルで複数行のデータを1行...
-
消えた枠線をもとに戻す方法
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
セル入力文字が、「右のセルに...
-
Wordで、表のセルが変なところ...
-
あるセルに色を付けた時、別の...
-
エクセルで知らない間に行がず...
-
エクセルでセルの中の文字が削...
-
エクセル2010で、結合したセル...
-
ワードで表を作ってセル内で改...
-
Excelのセル内の文字の頭に半角...
-
ワードの表で中央揃えが出来ない
-
エクセル 結合したセルの間にセ...
-
Wordでセルに文字を入力すると...
-
エクセルで1列おきのデータのみ...
-
WORDで表の行を2行に分けたい
-
エクセルで捺印をもらう欄を別...
-
Word 表のセル塗りつぶし
-
エクセルの一つのセル内に2つの...
-
Wordの表で逆L字型のセルを作成...
-
Wordの表をExcelの表に貼り付ける
-
エクセルで複数行を括弧でくく...
-
ワードで表の中の文字がセンタ...
おすすめ情報