[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『関数で出来た文字をコピーする方法教えて下さい』(マサル)
初めまして、質問させてくださいm(_ _)m
半角の文字列を全角に変換したいです
関数でJIS()で全角にはなったのですが、関数が有効なままで、アップロードできません
関数を消して文字列として扱うようにするにはどうすれば良いか、ご存知の方教えてください。
どうぞよろしくお願いします
< 使用 Excel:unknown、使用 OS:unknown >
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
https://officek.net/access/a-function/al-string/strconv/
(MK) 2023/01/30(月) 15:02:31
もしかしてPDF化すれば済む話? (MK) 2023/01/30(月) 17:04:13
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.