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

質問

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

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

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

よろしくお願いします。

回答No.1

BLUEPIXY · ベストアンサー

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

お礼

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