|
1例ですが
("A1")にある値が "サービスコード" + Alt + Enterで処理されていて
"サービスコード" の後ろに空白があります
この空白を削除したいので以下のように書きました
御願いいたします
Dim Gname As String
Range("A1").Select
Gname = Range("A1") ’Gname =サービスコードの文字
’以下のように変数で書きましたが処理できません
ActiveCell.FormulaR1C1 = Gname
’以下のように書くとうまくいきました
変数を使うと駄目なのでしょうか
ActiveCell.FormulaR1C1 = "サービスコード"
With ActiveCell.Characters.Font
.Name = "MS Pゴシック"
.FontStyle = "標準"
.Size = 6
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 1
End With
Range("B1").Select
|
|