fc2ブログ

  思考

2024-02

改行入りQRの修正

改行入りQRコードで悩んだあと、応急処置として行った
「テキストの取得時に置換」で、とりあえず「やったねっ(*^-゚)v」
ってな感じで落ち着いたと思ったら、少しばかり修正が必要になった。

QR作った。・・・(1)
20130131a.png

絵(QRコード)を消す。
20130131b.png

A1セルの文字を消さずにまた作った。・・・(2)

印刷してリーダーで読む。

(1)の状態ならこんな感じ。
   20130131d.png  ちゃんと改行してる。

しかし(2)では
   20130131e.png  一行飛びだ!


その後同じようにセルの文字を消さずにQRを作ると
   20130131f.png
改行が増殖!!


セル内がクリアにならない限り、改行が増殖していく模様。

普通はクリアにしてタイプするから気づかなかったわ。



改行コードをいったん置換してテキストを取得
 → 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ブログユーザー)

 | HOME | 

プロフィール

guinch

Author:guinch
血液型B型の大阪人

プチ・オタク

三十代半ば、腸の難病(潰瘍性大腸炎)と宣告されて頭ん中真っ白に。。。
その一年半後に乳に悪性腫瘍(乳がん)発見。。。やんなっちゃうわっ

タイトルに yaoi alert とある場合は同性愛について触れているのでご注意を。

最近の記事

カテゴリー

最近のコメント

FC2カウンター

タグ

異世界の沙汰は社畜次第 

ブログ内検索

RSSフィード

リンク

このブログをリンクに追加する

ブロとも申請フォーム

この人とブロともになる

月別アーカイブ

 *
Quickvoter

Q.夏がキライ?

 キライ( ̄д ̄;)
 スキ♪ (n‘∀‘)η


-view results-

by pentacom.jp

 *