Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2103 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【69924】Charactersの処理で変数を使いたい yoko 11/9/24(土) 11:48 質問[未読]
【69926】Re:Charactersの処理で変数を使いたい n 11/9/24(土) 12:43 発言[未読]
【69927】Re:Charactersの処理で変数を使いたい yoko 11/9/24(土) 12:56 お礼[未読]
【69924】Charactersの処理で変数を使いたい
質問  yoko  - 11/9/24(土) 11:48 -
引用なし
パスワード
   　１例ですが
　("A1")にある値が　"サービスコード"　＋　Alt + Enterで処理されていて
　"サービスコード"　の後ろに空白があります
　この空白を削除したいので以下のように書きました
　御願いいたします

　Dim Gname As String
　Range("A1").Select
　 Gname = Range("A1")　　　’Gname =サービスコードの文字
　’以下のように変数で書きましたが処理できません　
　　ActiveCell.FormulaR1C1 = Gname
　’以下のように書くとうまくいきました
　　変数を使うと駄目なのでしょうか
　　ActiveCell.FormulaR1C1 = "サービスコード"
　　With ActiveCell.Characters.Font
　　　　.Name = "ＭＳ Ｐゴシック"
　　　　.FontStyle = "標準"
　　　　.Size = 6
　　　　.Strikethrough = False
　　　　.Superscript = False
　　　　.Subscript = False
　　　　.OutlineFont = False
　　　　.Shadow = False
　　　　.Underline = xlUnderlineStyleNone
　　　　.ColorIndex = 1
　　End With
　　Range("B1").Select
【69926】Re:Charactersの処理で変数を使いたい
発言  n  - 11/9/24(土) 12:43 -
引用なし
パスワード
   例えばA1セルのセル内改行文字をクリアしたいなら
Dim Gname As String
Gname = Range("A1").Value
Gname = Replace(Gname, vbLf, "")
Range("A1").Value = Gname

特定の文字の後ろのセル内改行文字をクリアしたいなら
Dim Gname As String
Gname = "サービスコード"
Range("A1").Value = Replace(Range("A1").Value, Gname & vbLf, Gname)

複数のセルならReplaceメソッドを使っても良いと思います。
【69927】Re:Charactersの処理で変数を使いたい
お礼  yoko  - 11/9/24(土) 12:56 -
引用なし
パスワード
   うまくいきました
"vbLf"は改行なのですね
知りませんでした
有難うございました
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2103 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free