忍者ブログ
日常だったりネタだったり作品の進捗だったり……色々書きます。不定期に。
09
  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 11
  • 12
  • 13
  • 14
  • 15
  • 16
  • 17
  • 18
  • 19
  • 20
  • 21
  • 22
  • 23
  • 24
  • 25
  • 26
  • 27
  • 28
  • 29
  • 30
  • 管理画面

    何度処理させても問題なくQRコードを出すために


    こんばんは若槻です。何ヶ月かぶりにQRコードに悩まされました。
    次回からは先輩お勧めのAccessで作ることにします。
    ExcelでQR難しいわ!


    ってことで、今日はちょっと自分用メモ。


    【状況】
    1回目の処理の時には問題なくQRコードが
    表示されるが2回目以降に「Value」や「Name」の
    エラーが出てしまう

    【原因】
    1.AddInが細かく切り替わるため
    2.むしろ「Application.EnableEvents = False」のせい
    3.何より再計算がされていない


    【考察】
    原因1 :
     処理の前後にQRのアドインのオンオフ切り換え
     →終了後にオフにしないと数回は平気 
     →だけどここに入れないと依頼元に文句言われる
     →じゃあこのままで


    原因2 :
     これをなくすと問題なくQRコードが表示される
     →でもこれがないと画面遷移が止められない
     →普段は「Application.ScreenUpdating」があれば
      いけるけどアドイン入るとこれだけじゃ無理
     →てことはこれも消せない

    原因3 : 
     処理の前に前回のものを確実に削除している
     →なのに上手くいかないということは、
      削除と本処理の間の間隔が短い?
     →じゃあ……あ、これだ。出来た


    【結果】
    Sub Main() 
      DontLook
      (削除処理)
      OKLook
      Calculate
      For i = 1 to 3
        WHX.Range("A1").Value = WHX.Range("A1").Value + 1
      Next
      WHX.Range("A1").Value = ""
      DontLook

      (メイン処理)
      OKLook
    End Sub

    ※DontLookとOKLookはこちらの記事参


    【解説】
    1.最初に削除処理(これを見せないために最初のDontLook)
    2.一度OKLookで機能を復活させてから再計算処理(緑部分)
      「Calculate」は再計算の命令
    3.もう一度DontLookで再描写等を切ってメイン処理
    4.最後にもう一度OKLookで処理を復活


    こんな感じのことやるとちゃんと動作した。
    ああもうQRコード大っ嫌いだ!

    もし同じこと悩んで彷徨いついた人が万が一にでもいたら頑張ってください。
    そしてもっといい方法があったら教えてください(笑)


    拍手[0回]

    PR

    お名前
    タイトル
    文字色
    URL
    コメント
    パスワード   Vodafone絵文字 i-mode絵文字 Ezweb絵文字
    非公開コメント
    この記事にトラックバックする:
    [648]  [647]  [646]  [645]  [644]  [643]  [642]  [641]  [640]  [639]  [638
    カレンダー
    08 2019/09 10
    S M T W T F S
    1 2 3 4 5 6
    8 9 10 11 12 13 14
    15 16 17 18 19 20 21
    22 23 24 25 26 27 28
    29 30
    ブログ内検索
    最新コメント
    [05/27 きり]
    [01/13 きり]
    [06/06 わんこ]
    [03/30 サイトウ]
    [06/09 yu]
    カウンター
    アクセス解析


    フリーエリア
    コガネモチ


        ◆ graphics by アンの小箱 ◆ designed by Anne ◆

        忍者ブログ [PR]