Excel VBA質問箱 IV

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

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


2450 / 13646 ツリー ←次へ | 前へ→

【67959】Formulaについて kana 11/1/19(水) 13:11 質問[未読]
【67960】Re:Formulaについて Jaka 11/1/19(水) 13:23 発言[未読]
【67962】Re:Formulaについて kana 11/1/19(水) 13:44 質問[未読]
【67963】Re:Formulaについて Jaka 11/1/19(水) 14:06 発言[未読]
【67964】Re:Formulaについて kana 11/1/19(水) 15:00 お礼[未読]

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

引用なし
パスワード
   セル("D7")に"ABCDEFGH"が2行になって書かれています
これを1行に修正してセル("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 = "MS Pゴシック"
    .FontStyle = "標準"
    .Size = 10
    .Strikethrough = False
    .Superscript = False
    .Subscript = False
    .OutlineFont = False
    .Shadow = False
    .Underline = xlUnderlineStyleNone
    .ColorIndex = xlAutomatic
  End With
  Range("D8").Select
End Sub

【67960】Re:Formulaについて
発言  Jaka  - 11/1/19(水) 13:23 -

引用なし
パスワード
   ▼kana さん:
>セル("D7")に"ABCDEFGH"が2行になって書かれています
>これを1行に修正してセル("D7")に再度書こうと思っています
修正と言うのがどのように修正するのかわかりませんが、
単に「ABCDEFGH」の文字を入れたいなら、

ActiveCell.Value = "ABCDEFGH"
とか、
Range("D7").Value = "ABCDEFGH"

で、いいです。

折り返して表示の解除は、マクロ記録でも取れるけど。
ActiveCell.WrapText = False

Range("D7").WrapText = False

【67962】Re:Formulaについて
質問  kana  - 11/1/19(水) 13:44 -

引用なし
パスワード
   ▼Jaka さん:
有難うございます
折り返し表示の解除なです
取得した値を文字列に入れて実行しましたが
解除されていませんでした
  FormulaR1C1 =Mj は駄目なのでしょうか

  Range("D7").Select
  Range("D7").WrapText = False
  Mj = Range("D7")
  ActiveCell.FormulaR1C1 =Mj

  ActiveCell.FormulaR1C1 = "ABCDEFGH"
  これでは解除されています

よろしくお願いします

【67963】Re:Formulaについて
発言  Jaka  - 11/1/19(水) 14:06 -

引用なし
パスワード
   ああ、そういうことでしたか。
文字に改行コードが入っているので、それも消さないと。
こんな感じで。
Range("A1").Value = Replace(Range("A1").Value, vbLf, "")

【67964】Re:Formulaについて
お礼  kana  - 11/1/19(水) 15:00 -

引用なし
パスワード
   ▼Jaka さん:
有難うございました
説明がうまく出来ていなかったようです
希望どうりの結果がでました

2450 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free