1-8 KIkabu(K)で日データ取得で不具合発生
(1)エラー内容
日データを取得し、表示列を変更で不具合発生。

(2)エラー発生原因
1-1項KIkabu(nabe)実行でエラー発生と同一内容で、
コピー・ペーストを実行した時のコピーデータがクリックボードに残って、マクロで他の箇所で列又は行挿入の時、
クリックボードのデータが挿入した列又は行に貼りついてしまう不思議な現象が、Excel2016で発生する。

(3-1) 改善例1
列(本例B列)を空ける前に、CutCopyMode = False ステートメントを実行。(〜Excel2010までは無くて問題なし)
【Module3】
Sub 出来高列移動()
  Application.CutCopyMode = False 'Excel2016追加
列移動
If Cells(3, 6) = "出来高" Then
    Columns("G:G").Delete Shift:=xlToLeft
    Columns("B:B").Insert Shift:=xlToRight
    Columns("G:G").Cut
    Range("B1").Select
    ActiveSheet.Paste
ElseIf Cells(3, 6) = "" Then
    Columns("B:B").Insert Shift:=xlToRight
End If
End Sub

(3-2) 改善例2
行(本例1・2行)を空ける前に、CutCopyMode = False ステートメントを実行。(〜Excel2010は無くて問題なし)
【Module1】
Application.CutCopyMode = False 'Excel2016追加
 
If hisoku = 1 Then
    Rows("1:2").Select
    Selection.Insert Shift:=xlDown
    Range("A1").Select
    Cells(1, 1) = hiduke & "の[" & msgd & "]の株価データ"
Else
    Call 整備
End If
 




【戻る】    【HPへ】