[[20230129162605]]　『関数で出来た文字をコピーする方法教えて下さい』（マサル）　ページの最後に飛ぶ

『関数で出来た文字をコピーする方法教えて下さい』（マサル）

初めまして、質問させてくださいm(_ _)m

半角の文字列を全角に変換したいです

関数でJIS()で全角にはなったのですが、関数が有効なままで、アップロードできません

関数を消して文字列として扱うようにするにはどうすれば良いか、ご存知の方教えてください。
どうぞよろしくお願いします

＜使用 Excel：unknown、使用 OS：unknown ＞

そのセルをコピーして自分自身に値のみ貼り付けすると良いのでは？
（たぶん） 2023/01/29(日) 16:59:21

簡単ながら

Sub 全角変換()

    Dim A As Range
    Const B As Integer = 1
    Const C As Integer = 2
    For Each A In Range("A2:A" & ActiveCell.SpecialCells(xlLastCell).Row)
        If Not (IsEmpty(A)) Then
            A.Offset(0, B).Formula = "=DBCS(A" & A.Row & ")"
            A.Offset(0, C) = A.Offset(0, B)
        End If
    Next
End Sub

A列の2行目から最後の行までB列にJIS()で全角に変換し、
その結果を文字列としてC列に出しています。
入力のA列やワークのB列、結果のC列の位置は変えやすいようにしたつもりなので
あとは好きにしてください。
End Subの手前でB列を消すのもありかと思いましたが、疲れました。。。
（初心者） 2023/01/30(月) 14:46:07

マクロで行う場合の参考HPです。

https://officek.net/access/a-function/al-string/strconv/
（MK） 2023/01/30(月) 15:02:31

＞アップロードできません
どういうこと?
（q5） 2023/01/30(月) 16:23:19

 もしかしてＰＤＦ化すれば済む話？
（MK） 2023/01/30(月) 17:04:13

コメント返信：

[ 一覧(最新更新順) ]

[[20230129162605]] 『関数で出来た文字をコピーする方法教えて下さい』（マサル） ページの最後に飛ぶ

[[20230129162605]]　『関数で出来た文字をコピーする方法教えて下さい』（マサル）　ページの最後に飛ぶ