エクセル同一セル内の指定文字数のみアンダーラインをひく

例えばエクセル同一セル内で頭１０文字のみアンダーラインをひいて、残りは引かないというようなものをＡＳＰより処理したいのですが、うまくいきません。。。

xlsSheetWrk.Range("A3").Characters(Start:=1, Length:=8).Font.Underline = xlUnderlineStyleSingle

上記のように記述しているのですが、エラーになります。
どうすればよいでしょうか？？

よろしくお願いします。

No.1 ベストアンサー 回答者： BLUEPIXY 回答日時： 2005/06/08 03:45

エクセルＶＢＡでは、正しい記述ですが、

ＶＢＳｃｒｉｐｔでは、
Start:=1の様に名前を指定しての引数の指定の記述ができないのでエラーになるのだと思います。
あと、エクセルでの定数は多分使えないので、
定数を自前でconst定義してやるか値を調べて直接数値を書くようにします。
例
xlsSheetWrk.Range("A3").Characters(1,8).Font.Underline = 2

この回答へのお礼

ありがとうございます！！！うまくいきました！！！

お礼日時：2005/06/08 10:26