• ベストアンサー

エクセルVBAで文字配置と文字制御について

Masazo-の回答

  • Masazo-
  • ベストアンサー率48% (12/25)
回答No.1

' 前後にスペースを入れる? Cells(1, 1).Value = " " & Cells(1, 1).Value & " " ' 折り返して全体を表示する Cells(1, 1).WrapText = True ※動作未確認

関連するQ&A

  • Excel 2007

    Excel 2007 セルの結合を行ったセル内の文字に均等割付を しようとしたのですが実施できません・・ 結合されたセル内 ○○○←均等割付したい部分 ○○○○○ ※○は文字とします。セル内に離れた文字が2箇所あります。 均等割付したい部分(文字)での均等割付ができません。 どのように均等割付をすれば宜しいのでしょうか。

  • Excelで条件によってセルの配置を変えたい

    A1に入力された文字を、A100に「=A1」で表示しています。 この時、文字が5文字未満の時はA100のセルの配置を「均等割り付け」の前後にスペースを入れるにし、5文字以上の時は前後にスペースを入れない「均等割り付け」にしたいのです。 前後にスペース…にしないで自分でスペースを入力してみましたが、均等割り付けにすると後ろのスペースが無効になってしまうようで…。 マクロを使わないでできる方法がありましたらよろしくお願いします。

  • Excel 2007

    Excel 2007 セルの結合を行ったセル内の文字に均等割付を しようとしたのですが実施できません・・ どのように均等割付をすれば宜しいのでしょうか。

  • 文字の均等割り付け excel

    Wordである「文字の均等割り付け」をExcelでも行いたいです。 実際には、セルA1とA2の文字の幅を合わせたいです。 1つのセル内の文字を均等に割り付ける方法は以下のサイトで紹介されていますが。。。 セルA1に文字数8の文字、セルA2に文字数5の文字が入っている場合など、 文字の幅を合わせる方法はありますでしょうか? 隣のセルとセル結合しても構いません。 よろしくお願いします。 Excel2010 NECの均等割り付けの方法 https://121ware.com/qasearch/1007/app/servlet/relatedqa?QID=013029

  • エクセルのコマンドについて

    エクセルでの書式設定で、セルを結合して、配置を均等割付にし、前後にスペースをいれるという作業がおおくなってきたので、 ツールバーに上記のコマンドをおきたいのですが、 「均等割付」のコマンド、「セルの結合」のコマンドはあるのですが、 「前後にスペースを入れる」 (通常は右クリックでセルの書式設定→文字の横配置を均等割付と選択すると 『前後にスペースをいれる』というところにチェックする) という作業のチェックの部分のコマンドを作る方法がわかりません。 どうしたらよいか教えてください。 できるかできないかさえもわからないので、出来ないのであればそう教えてください。よろしくお願いします。

  • VBA教えてください

    VBA初心者です 画像を添付します 赤いセルの背景色に反応し、 C~Eのセルを結合してその中に文字を入れると言うものですが 10/1みたいに全て結合出来れば良いのですが コードを実行した結果 10/5の結果はC~Eのセルは結合されてますが 列の9~11のセルは結合されてないです これをまとめて結合出来るようにしたいです (10/1の結合セルみたいな事をしたいです) コード sub test() const hani as string="A1:E11" dim rng as range for each rng in range(hani) if rng.interior.colorindex= 3 then range(cells(rng.row,3),cells(rng.row,5)).merge cells(rng.row,3).value="停止" end if next rng end sub です。 試行錯誤しましたが変な結果になって手詰まりしてます。 コード書いてもらえるとすごく助かります! 回答お願いします!

  • VBA教えてください

    VBA初心者です。 画像を添付します 赤く塗られているセルには C~Eまでセルを結合し なおかつ結合したセルの中に「停止」の文字をいれます。 これを手動で行うのではなく 自動で(VBAで) 赤く塗られているセルだけに反応し その行のセル(C~E)を結合し なおかつその結合されたセルの中に 「停止」の文字を中央添えにされた状態で 自動入力できるようにしたいです 教えてもらったコードでは Private sub worksheet_change(byval target as range) If target. Interior.colorindex=3 then Range(cells(target.row,3),cells(target.row,5)).merge Cells(target.row,3).value="停止" End if 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 よろしくお願いします。

  • エクセルマクロで教えてください

    エクセル2003です。 自動マクロで下記のようなマクロを造ったんですが Selection.End(xlDown).Select   Range("A29:D29").Select  ■A29を止まったセルの番号にしたいのです。(A**からD**まで)     With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Selection.Merge Range("A30").Select ■A30を止まったセルの番号にしたいのです 以上2箇所の指定を教えていただけますでしょうか。 よろしくお願いいたします。

  • 多数のセルを結合するマクロ

    セルA1とA2を結合、セルB1とB2を結合、 という風に1行目と2行目のセルを列単位で結合させたいです。 「セルA1とA2を結合」という操作を記録してもらい、それをFor文で回した以下のコードを作りました。 For a = 1 To 250 Range(Cells(1, a), Cells(2, a)).Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Selection.Merge Next 動作としては問題無いのですが、実行完了までにかなり時間がかかります。 1つのシートなら気にならないレベルですが、 ちと複数のシートに対して実行したい経緯があります。 その複数のシートの各セルに入っている内容も異なるため、 シート1をコピーしてシート2を作成、というわけにもいきません。 動作時間が早くなる組み方ありましたら、よろしくお願いします。