Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11911 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【13259】コメントについて なつ 04/4/29(木) 13:22 質問[未読]
【13260】Re:コメントについて Asaki 04/4/29(木) 13:43 回答[未読]
【13275】Re:コメントについて なつ 04/4/29(木) 22:33 質問[未読]
【13277】Re:コメントについて Asaki 04/4/30(金) 0:04 回答[未読]
【13353】Re:コメントについて natuko 04/5/2(日) 21:55 お礼[未読]
【13385】Re:コメントについて なつ 04/5/3(月) 23:04 質問[未読]
【13386】Re:コメントについて Asaki 04/5/3(月) 23:09 回答[未読]
【13387】Re:コメントについて なつ 04/5/3(月) 23:35 質問[未読]
【13388】Re:コメントについて Asaki 04/5/3(月) 23:51 回答[未読]
【13259】コメントについて
質問  なつ  - 04/4/29(木) 13:22 -
引用なし
パスワード
   こんにちは。
SHEET1の特定のセルが"A"であるときに、inputboxで入力した値を
そのセルのコメントとすると同時に、同じコメント内容を別シートのセル項目
に入れる方法はあるのでしょうか？

また、inputboxで入力する値が２つ以上ある場合、コメント内で改行して
表示させることはできるのでしょうか？


まだまだ初心者なので、ご指導よろしくお願いします。
【13260】Re:コメントについて
回答  Asaki  - 04/4/29(木) 13:43 -
引用なし
パスワード
   こんにちは。

コメント挿入は、マクロの記録をお試しください。
InputBoxは、InputBoxメソッドをお使いになることをお薦めします。
セルに値をセットする方法は、(A1の場合)
Worksheets("シート名").Range("A1").Value = "test"
のような感じで。
改行は、文字列を vbLf を挟んで & を使って繋げばよいかと。
"てすと" & vbLf & "文字連結"
【13275】Re:コメントについて
質問  なつ  - 04/4/29(木) 22:33 -
引用なし
パスワード
   >こんにちは。
>
>コメント挿入は、マクロの記録をお試しください。
>InputBoxは、InputBoxメソッドをお使いになることをお薦めします。
>セルに値をセットする方法は、(A1の場合)
>Worksheets("シート名").Range("A1").Value = "test"
>のような感じで。
>改行は、文字列を vbLf を挟んで & を使って繋げばよいかと。
>"てすと" & vbLf & "文字連結"

Asakiさん、ありがとうございます。
何をどうすればよいのか、わかりました。

もうひとつおききしたいのですが。。
inputboxに入力する項目はひとつであったり、ふたつであったりと、
時と場合に応じるものにしたいのですが、inputboxの中で項目の
区切りを示すことはできるのでしょうか？
そしてそれに対応してコメントを改行することはできるのでしょうか？
よろしければ教えてください。
【13277】Re:コメントについて
回答  Asaki  - 04/4/30(金) 0:04 -
引用なし
パスワード
   >inputboxに入力する項目はひとつであったり、ふたつであったりと、
>時と場合に応じるものにしたいのですが、inputboxの中で項目の
>区切りを示すことはできるのでしょうか？
>そしてそれに対応してコメントを改行することはできるのでしょうか？

入力する内容に利用しない文字を区切りとして入力するようにして、
その区切り文字を、改行文字で置換してやればよいと思います。
そのような文字が見当たらない場合は、また考える必要がありそうです。
InputBoxをやめて、ユーザーフォームにするとか。
2個くらいなら、2回InputBoxを表示するのでも良いかも。
【13353】Re:コメントについて
お礼  natuko  - 04/5/2(日) 21:55 -
引用なし
パスワード
   ▼Asaki さん：

まだ慣れず、時間がかかりそうですが、なんとかできそうです。
助かりました。
ありがとうございました。
【13385】Re:コメントについて
質問  なつ  - 04/5/3(月) 23:04 -
引用なし
パスワード
   Asaki さん

再びすみません。
コメントを入れるのはなんとか出来たのですが、
そのコメント内容を、特定のセルに入れることは出来るのでしょうか？
マクロ記録でも試してみたのですが、コメント内容をselectすることができません。

Worksheets("sheet1").Cells(i, "C").Comment.Text

では、「オブジェクトが必要です」とエラーがでてしまいます。
ちなみにシート１のC列の上から順に、コメントのあるセルを選び、そのコメント内容を別のセルにコピペしていくようにしています。


ps.すみません、名前ごっちゃになってしまいました。
　　natukoあらため、なつです。
【13386】Re:コメントについて
回答  Asaki  - 04/5/3(月) 23:09 -
引用なし
パスワード
   >そのコメント内容
は、そもそもinputboxから入力された文字ですよね？
inputboxの戻り値を、直接、セルに書き込んでやればよいのでは？
【13387】Re:コメントについて
質問  なつ  - 04/5/3(月) 23:35 -
引用なし
パスワード
   ▼Asaki さん：
>>そのコメント内容
>は、そもそもinputboxから入力された文字ですよね？
>inputboxの戻り値を、直接、セルに書き込んでやればよいのでは？

始めはそうだったのですけど、シート１でセルにコメントをいれるのですけど、
別シートへの入力を同時にしてしまうとどうも具合が悪くなってしまいました。

そこで、シート１の特定のデータの行を選んで、シート２にコピペしたときに、
その行のセルCに入力してあるコメント内容を、改めてシート２のセルの値に入力したいのですが。。。

あれこれとすみませんが、教えていただけますか？
【13388】Re:コメントについて
回答  Asaki  - 04/5/3(月) 23:51 -
引用なし
パスワード
   試してみましたが、↓のような感じで上手くいきましたよ？
Worksheets("Sheet5").Cells(1, 1).Value _
　　= Worksheets("Sheet6").Cells(1, 1).Comment.Text

指定セルに、コメントが存在しないのでは？
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11911 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free