Uz様
早速のアドバイス大変ありがとうございました。
最初から白状すれば良かったのですが、お恥ずかしいことに
この方面の知識はほとんどありません。
場違いだから出直せと言われればそのとおりで、大変申し訳ありません。
ExcelVBA 以外の選択肢は無いと思いますが、もう少々前後関係の
手順をご説明いただけると大変助かります。
実際のところ、Excel のマクロに登録してみましたがどうもうまく
動作しないようです。
どうぞよろしくお願い申しあげます。
MicMac
> > Excel97の任意のシートに存在する、セルに設定されたコメント
> > のテキストをテキストファイルにエクスポートしたいのですが、
> > どなたかご存じの方いらっしゃらないでしょうか？
> > テキストは全て英文で、コメントが設定されたセルは各シートで
> > 任意の位置にあります。シート内のテキストと同時でもかまいま
> > せん。
>
> 環境が書いてないから、何でやりゃいんか、わからん。
> VB？VC？ExcelVBA？
>
> とりあえず、ExcelVBAでサンプルを提示します。
> （Exccel97が手元に無いので、Excel2000で動作確認しました。）
>
> Public Function GetComment(sCellVal As String) As String
> Dim ws As Worksheet
> Dim ce As Range
>
> GetComment = ""
>
> Set ws = ActiveSheet
>
> Set ce = ws.Cells.Find(sCellVal)
> If ce Is Nothing Then
> Exit Function
> End If
>
> If ce.Value <> sCellVal Then
> Exit Function
> End If
>
> GetComment = ce.Comment.Text
> End Function
>
> 任意のシートを探すのであれば、各シートをループするなり
> してください。
> VB・VCの場合でも処理の手順はいっしょなので、これで
> わかるでしょう。
> あとはテキストファイルに書き出せばいいだけ。
|