改行入りQRの修正
改行入りQRコードで悩んだあと、応急処置として行った
「テキストの取得時に置換」で、とりあえず「やったねっ(*^-ﾟ)v」
ってな感じで落ち着いたと思ったら、少しばかり修正が必要になった。
QR作った。・・・（１）
絵（QRコード）を消す。
A1セルの文字を消さずにまた作った。・・・（２）
印刷してリーダーで読む。
（１）の状態ならこんな感じ。
ちゃんと改行してる。
しかし（２）では
一行飛びだ！
その後同じようにセルの文字を消さずにQRを作ると
改行が増殖！！
セル内がクリアにならない限り、改行が増殖していく模様。
普通はクリアにしてタイプするから気づかなかったわ。
改行コードをいったん置換してテキストを取得
→ QRコードを作成
→ 最後に置換を戻す
というVBAで解決しますた。。。
修正後のコード。大元はこの方のコードです。
＊～＊～＊～＊～＊～＊～＊～＊～＊～＊～＊～＊
Sub QR_sample()
Dim ce As Range
Dim zz As String
Dim c As Variant
Dim r As Variant
c = ActiveCell.Column
r = ActiveCell.row
'改行コードをExcel仕様から一般的Windows仕様に変換
'
ActiveCell.Replace What:=vbLf, Replacement:=vbCrLf, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
zz = ActiveSheet.Cells(r, c).Text
'改行コードを元に戻す
'
ActiveCell.Replace What:=vbCrLf, Replacement:=vbLf, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Set ce = ActiveSheet.Cells(r + 1, c + 2)
If QRimg(zz, 22, ce) Then
Else
MsgBox "QR Codeの作成に失敗しました"
End If
ActiveCell.Offset(rowOffset:=3, columnOffset:=0).Select
End Sub
＊～＊～＊～＊～＊～＊～＊～＊～＊～＊～＊～＊
「テキストの取得時に置換」で、とりあえず「やったねっ(*^-ﾟ)v」
ってな感じで落ち着いたと思ったら、少しばかり修正が必要になった。
QR作った。・・・（１）
絵（QRコード）を消す。
A1セルの文字を消さずにまた作った。・・・（２）
印刷してリーダーで読む。
（１）の状態ならこんな感じ。
ちゃんと改行してる。しかし（２）では
一行飛びだ！その後同じようにセルの文字を消さずにQRを作ると
改行が増殖！！
セル内がクリアにならない限り、改行が増殖していく模様。
普通はクリアにしてタイプするから気づかなかったわ。
改行コードをいったん置換してテキストを取得
→ QRコードを作成
→ 最後に置換を戻す
というVBAで解決しますた。。。
修正後のコード。大元はこの方のコードです。
＊～＊～＊～＊～＊～＊～＊～＊～＊～＊～＊～＊
Sub QR_sample()
Dim ce As Range
Dim zz As String
Dim c As Variant
Dim r As Variant
c = ActiveCell.Column
r = ActiveCell.row
'改行コードをExcel仕様から一般的Windows仕様に変換
'
ActiveCell.Replace What:=vbLf, Replacement:=vbCrLf, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
zz = ActiveSheet.Cells(r, c).Text
'改行コードを元に戻す
'
ActiveCell.Replace What:=vbCrLf, Replacement:=vbLf, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Set ce = ActiveSheet.Cells(r + 1, c + 2)
If QRimg(zz, 22, ce) Then
Else
MsgBox "QR Codeの作成に失敗しました"
End If
ActiveCell.Offset(rowOffset:=3, columnOffset:=0).Select
End Sub
＊～＊～＊～＊～＊～＊～＊～＊～＊～＊～＊～＊
コメント
コメントの投稿
トラックバック
http://guinch.blog44.fc2.com/tb.php/1784-430ce4bb
この記事にトラックバックする(FC2ブログユーザー)
