Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


7571 / 76732 ←次へ | 前へ→

【74747】Re:セルの書き換え手法2点の違いを教えてください。
発言  化け猫  - 13/9/6(金) 23:32 -

引用なし
パスワード
   > 皆様

お騒がせしております。
そして、レスが大変遅くなり申し訳ありません。
簡単に状況を再現してみましたので、報告させていただきます。

以下の文をケース1~4とし、各々プログラムに組み込むとします。

ケース1: MyV = MyF
     結果、これでは描画されない。
ケース2: MyV = MyF
     MyRange = MyV
     結果、描画される。
ケース3: MyV(1,1) = MyF(1,1)
     結果、(1,1)の該当セルのみ描画される。
ケース4: MyV(1,1) = MyF(1,1)
     MyRanage = MyV
     結果、描画されるがDo Loopを抜けるとクリアされる。


Option Explicit
Declare Function GetTickCount Lib "kernel32" () As Long
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)


Sub kakunin()

  Dim MyRange As Range
  Set MyRange = Range("B4:G4")
  
  Dim MyV As Variant
  Set MyV = MyRange
  
  Dim MyF As Variant
  Set MyF = Worksheets("確認").Range("B5:G5")
  
  Dim StartTime As Long
  Dim WaitTime As Long
    
  StartTime = GetTickCount
  WaitTime = Range("B3")
  
  Do
      
    "ケース1~4"
    
    If (GetTickCount - StartTime) > WaitTime Then
      
      Exit Do
      
    End If
    
    DoEvents
    
  Loop
    
End Sub

どういう理屈なのか今一度考えてみようと思います。
解説いただける方がいれば、よろしくお願いいたします。

0 hits

【74718】セルの書き換え手法2点の違いを教えてください。 化け猫 13/9/3(火) 1:42 質問
【74719】Re:セルの書き換え手法2点の違いを教えてく... 化け猫 13/9/3(火) 5:20 発言
【74720】Re:セルの書き換え手法2点の違いを教えてく... ichinose 13/9/3(火) 6:18 発言
【74726】Re:セルの書き換え手法2点の違いを教えてく... 化け猫 13/9/4(水) 4:51 発言
【74727】Re:セルの書き換え手法2点の違いを教えてく... ichinose 13/9/4(水) 6:34 発言
【74728】Re:セルの書き換え手法2点の違いを教えてく... 13/9/4(水) 7:41 回答
【74731】Re:セルの書き換え手法2点の違いを教えてく... kanabun 13/9/4(水) 10:47 発言
【74733】Re:セルの書き換え手法2点の違いを教えてく... ichinose@食事中 13/9/4(水) 12:58 発言
【74747】Re:セルの書き換え手法2点の違いを教えてく... 化け猫 13/9/6(金) 23:32 発言
【74749】Re:セルの書き換え手法2点の違いを教えてく... ichinose@ 13/9/7(土) 7:51 発言
【74753】Re:セルの書き換え手法2点の違いを教えてく... 化け猫 13/9/7(土) 11:39 お礼
【74751】Re:セルの書き換え手法2点の違いを教えてく... kanabun 13/9/7(土) 8:45 発言

7571 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free