ここから本文です

末尾を非表示にするマクロを変更したい。

vhe********さん

2016/9/1111:04:43

末尾を非表示にするマクロを変更したい。

Sub BとC列の文字列の末尾に句読点とあを付加するマクロ()
Dim Col As Long, Rw As Long
For Col = 2 To 3
For Rw = 1 To Cells(Rows.Count, Col).End(xlUp).Row
With Cells(Rw, Col)
If Not .HasFormula And .Value <> "" Then
.Value = .Value & "。あ"
.Characters(Start:=Len(.Value), _
Length:=1).Font.ColorIndex = 2
End If
End With
Next
Next
End Sub
B列は「。」を非表示でC列には「。」を表示するように変更したい。
あとこのマクロの適用はB列、C列ともに12151行目から動作するように変更したいです。

Dim Col As Long,HasFormula And,Font.ColorIndex,Rw As Long,Rows.Count,あいうえお,非表示

閲覧数:
47
回答数:
1
お礼:
500枚

違反報告

ベストアンサーに選ばれた回答

プロフィール画像

カテゴリマスター

tai********さん

2016/9/1114:19:48

「。あ」をくっつけて「。あ」を非表示にするなら何もしなければいいような気がしますがそうではないのですか?
C列も「。」だけくっつければ済むように思います。

B列に仮に
「あいうえお。」
というデータがあったら
「あいうえお。。あ」
としてから「。あ」を非表示(というか文字を白にするので非表示とは言えないような・・)にするのですか?

返信を取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル

質問した人からのコメント

2016/9/11 18:49:42

この度のご回答誠にありがとうございました

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる