• ベストアンサー

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

例えばエクセル同一セル内で頭１０文字のみアンダーラインをひいて、残りは引かないというようなものをＡＳＰより処理したいのですが、うまくいきません。。。 xlsSheetWrk.Range("A3").Characters(Start:=1, Length:=8).Font.Underline = xlUnderlineStyleSingle 上記のように記述しているのですが、エラーになります。 どうすればよいでしょうか？？ よろしくお願いします。

質問者が選んだベストアンサー

  • ベストアンサー
  • BLUEPIXY
  • ベストアンサー率50% (3003/5914)
回答No.1

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

jim_23
質問者

お礼

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

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Microsoft ASP

関連するQ&A

  • エクセルのセルの一部の色を変更したい

    エクセル2000でマクロを作っていて質問です。 セルの一部を選択した状況から、選択した文字列だけ色を赤字に変えるというプログラムはどのように書けばよいでしょうか？ ActiveCell.Characters(Start:=1, Length:=33).Font.colorindex = 9のSTARTとLENGTHを、現在選択している先頭と長さ、というように指定したいのですが。 ちなみに勉強の意味もあってプログラムを書いていますので、バーのボタン押したらいいじゃん、という冷静な意見はご勘弁を。

  • Excel 任意のセルを指定する方法

    Excel 任意のセルを指定する方法 こんにちは Excel2003でセルの上を「---」で覆うマクロを作成しました。(以下参照） でもこれはセル「K2」に作成されます。 任意の作成したいセルを「---」で覆うようにするのには どのように改造すればよいでしょうか？ おわかりの方お教えください。 ' 透明なセルを一つ作るマクロ ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 672.75, 13.5, _ 81#, 13.5).Select Selection.Characters.Text = "---" With Selection.Characters(Start:=1, Length:=3).Font .Name = "ＭＳ Ｐゴシック" .FontStyle = "標準" .Size = 11 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With Selection.HorizontalAlignment = xlCenter Selection.ShapeRange.Fill.Visible = msoFalse 'Selection.ShapeRange.Fill.Solid 'Selection.ShapeRange.Fill.Transparency = 0# Selection.ShapeRange.Line.Weight = 0.75 Selection.ShapeRange.Line.DashStyle = msoLineSolid Selection.ShapeRange.Line.Style = msoLineSingle Selection.ShapeRange.Line.Visible = msoFalse Range("K2").Select End Sub

  • EXCEL VBA 文中の書式ごと複写するには

    EXCEL VBAのプログラミングについて教えてください。 セルA1とセルB1が結合されており、セルには「あいうえお」と入力されています。 入力された「あいうえお」の内、「いうえ」は赤文字＋太字を設定したと仮定します。 その結合されたセルの文章と文字色＋太字を、結合されていないA3というセルに複写する場合、 下記の様なコードを考えてみましたが、長文になると処理が遅いので知恵を貸してください。 Range("A3").Value = Range("A1").Text For i = 1 To Len(Range("A1").Text) 　　Range("A3").Characters(i, 1).Font.Color = Range("A1").Characters(i, 1).Font.Color 　　Range("A3").Characters(i, 1).Font.Bold = Range("A1").Characters(i, 1).Font.Bold Next i よろしくお願いします。

  • エクセルマクロでセルの文字サイズを指定したい

    エクセルマクロでセルの文字サイズを指定したいと 思っています。 Worksheets("○○").Range("B1").Font.Size = 14 と指定しても、 「実行時エラー'1004': FONTクラスのSizeプロパティを設定できません。」 となってしまいます。 OSはXP,エクセルは97で、参照設定で「Office 8.0 object Libraly」 はチェックを入れています。どこが悪いか検討がつかず、質問させて 頂きました。よろしくお願いいたします。

  • Excelセル内文字列のフォント属性

    Excel 2016 VBAでセル内文字列の1文字ずつの属性を取り出していきたいのですが、文字数が多いと（1000文字とか）下記コードで数分の時間が掛かってしまいます。高速化の手段はありませんか？ For i=1 to nChar Set ChrFont = objExcelCell.Characters(i, 1).Font ' この行の実行が遅い ' ちょっとした処理がここに来る Next i

  • 指定の文字（記号）が入っているセルを点滅させる

    現在　下のマクロを使い指定のセルの文字をエクセルが 開いたとき点滅させています（皆さんからのもらいものですが） これを　指定された文字（記号）たとえば　”　！　”　が入って いる　セルのみを　点滅させたいのですが　列は一定です この場合は、Ｒ列です 指定の文字が入ったセルを点滅させるでもＯＫです マクロはちょこっとかじるぐらいしかわかりませんが よろしくお願いします。 Sub Auto_Open() Dim i As Long For i = 1 To 10 If Range("R33,R34").Font.Color = vbRed Then Range("R33,R34").Font.Color = vbBlack Else Range("R33,R34").Font.Color = vbRed End If Application.Wait Time + TimeValue("00:00:01") Next i End Sub

  • Excel セル範囲指定

    Excel VBA で、オフセット先のセルと一つ右のセルとを範囲指定する記述方法を教えて下さい。よろしくお願いします。 Range("????????????????").Select

  • エクセルの１セルの最大文字数はいくつ？

    エクセルの関数、TRIM、JIS、ASC等を実行したら、#VALUE!が出てしまいました。 文字列（かなり長い）をTRIMで空白を削除し、JISかASCで全角、半角を統一しようと試みました。 上手くいきそうな感じでしたが、その中の４セルに【#VALUE!】と表示されました。 大部分はその処理が正しく実行されているのに、その４つのセルは何故、どうして？？ そのセルを調べたところ、そこにはかなり長い文章（文字数）が入力されていたので、半分くらいカットして再実行してみたら、今度は正しく処理されました。 １セルに入っている文章（文字数）が多すぎたのでしょうか？　 １セルには何文字（バイト）が許容されるのか、また、１セルで何文字（バイト）以上の場合は、関数は使用できない（通用しない）などの決まりはあるのでしょうか？ 今回の場合は、24件で列も30列ぐらいでしたので、【#VALUE!】のエラーも気が付きましたが、これが何百件、数百列となると、エラーに気が付かないかもしれません。（気が付きにくくなります。） １セルに入力できるおおよその文字数（バイト）は、いったいどれくらいなのでしょうか？ お分かりの方がいらっしゃいましたら、アドバイスお願いします。

  • Excel VBA で 一括書式設定（セル内の一部のみ）

    こんにちは。教えてください。 １つのセル内に、 あいうえお１か き! くけこ２ さしすせそ3たち。 つてと45.67? というように、いくつかのセル内改行を含み、文字数がばらばらのデータが入っています。そういうセルが、一行にいくつも並んでいます（途中に空白もあります）。 それらの１行目（上記の例で言うと、「あいうえお１か」）のみ、フォント赤色の書式設定を、マクロで行いたいのです。 そこで、以下のマクロを実行すると、選択セルがひとつだけのときは問題ないのですが、複数のセルを選択すると実行時エラー（型が一致しません）が出てしまいます。 Sub 一行目赤() With Selection.Characters(Start:=1, Length:=InStr(Selection.Value, Chr(10)) - 1).Font .ColorIndex = 3 End With End Sub 選択セルのすべてに対し、一括で書式設定できるようにするにはどうしたらよいでしょうか？ご回答よろしくお願いいたします。

  • 文章の一部にアンダーラインを引いたり

    ＥＸＣＥＬで、保存してあるファイルのセルに文章を入力したあと、フォントの（Ｕ）で文章の一部にアンダーラインを引いたり、（Ａ）で色を変えたりしようとしましたができません。セル全体アンダーライン、色変え、また 新しくファイルを作成して同様の操作をすることはできるのですが・・・・。 当該ファイルのどこが原因なのでしょうか？

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する