Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

14274 / 76734

←次へ　｜　前へ→


	【67959】Formulaについて

kana - 11/1/19(水) 13:11 -


	引用なし

	パスワード

セル("D7")に"ABCDEFGH"が２行になって書かれています
これを１行に修正してセル("D7")に再度書こうと思っています
ﾏｸﾛの記録で以下のようになりました
取得するセル位置は変化しますので　以下を利用して
ﾏｸﾛを作成したいのです
その際　 ActiveCell.FormulaR1C1 = "ABCDEFGH" を
　　Mj = Range("D7")
　　ActiveCell.FormulaR1C1 = Mj
にしましたがうまくいきません
どのようにしたらよろしいでしょうか
よろしくお願いします

Sub Macro2()
Dim Mj As String
　　Range("D7").Select
　　Mj = Range("D7")
　　ActiveCell.FormulaR1C1 = "ABCDEFGH"
　　With ActiveCell.Characters(Start:=1, Length:=8).Font
　　　　.Name = "ＭＳＰゴシック"
　　　　.FontStyle = "標準"
　　　　.Size = 10
　　　　.Strikethrough = False
　　　　.Superscript = False
　　　　.Subscript = False
　　　　.OutlineFont = False
　　　　.Shadow = False
　　　　.Underline = xlUnderlineStyleNone
　　　　.ColorIndex = xlAutomatic
　　End With
　　Range("D8").Select
End Sub

3 hits

▼

【67959】Formulaについて kana 11/1/19(水) 13:11

≪