« 削除とクリア | トップページ | カラーパレットを変更する »

2010年2月17日 (水)

セル内で改行、マクロ自動記録では…

Excelでやっているいろいろな手動での操作を
VBAで実行したいとき、
マクロの自動記録をして調べたりします。

他ごとでマクロ自動記録をしていたら
コメント内で改行したとき
改行がChr(10)で記録されていました。

ライン フィード文字とキャリッジ リターンの違いは
未だによく分からないけど
マクロ自動記録で改行がChr(10)になっているなら
改行はChr(10)でいいみたいです。

以下セルA1にこのように入力したときの
マクロ自動記録です。

Pic20100217a

改行のマクロ自動記録:

Sub macro100217a()
'セル内で改行をマクロ自動記録したもの

    Range("A1").Select
    ActiveCell.FormulaR1C1 = "改行前" & Chr(10) & "改行後"
    With ActiveCell.Characters(start:=1, Length:=7).Font
        .Name = "MS Pゴシック"
        .FontStyle = "標準"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    ActiveCell.Characters(1, 2).PhoneticCharacters = "カイギョウ"
    ActiveCell.Characters(3, 1).PhoneticCharacters = "マエ"
    ActiveCell.Characters(5, 2).PhoneticCharacters = "カイギョウ"
    ActiveCell.Characters(7, 1).PhoneticCharacters = "ゴ"
    Range("A2").Select
End Sub

やはり、マクロ自動記録。

セルA1にちょっと入力しただけで
この長さ。

|

« 削除とクリア | トップページ | カラーパレットを変更する »

コメント

この記事へのコメントは終了しました。

トラックバック


この記事へのトラックバック一覧です: セル内で改行、マクロ自動記録では…:

« 削除とクリア | トップページ | カラーパレットを変更する »