DOBON.NETプログラミング道掲示板

■33822 / 2階層)  EXCELでクリップボードを使用せずに書式付きでセルをコピー
□投稿者/ わかきつ 一般人(3回)-(2018/03/06(Tue) 12:35:29)
  • アイコンNo33819に返信(kikuさんの記事)
    > いろいろ実験してみたのですが、
    > 範囲の先頭に空白がある場合に、本現象が発生するようです。
    > 範囲の途中に空白がある場合には、発生しませんでした。
    >
    > ●対策案1
    >  先頭に空白があるかチェックし、
    >  先頭が空白にならない範囲をコピーする。
    >
    > ●対策案2
    >  rangeを使うと発生するみたいなので
    >  1セルずつコピーする。
    >
    > ●そのほか
    >  rangeかどこかの設定で、この動作に影響する
    >  設定値がないか探してみたのですが、
    >  見つからなかったです。
    >  探し方がわるいだけで、どこかにあるかもしれません。
    >

    kikuさん回答ありがとうございます。

    対策案2をヒントに下記のようにしてみました。
    コピー元範囲の先頭セル(結合していない場合)を自身(コピー元)に上書きしてから範囲をコピーする。

    Sub test()
     If Sheet2.Range("B1:B2").Item(1).MergeCells = False Then
      Sheet2.Range("B1:B2").Item(1).Value(xlRangeValueXMLSpreadsheet) = Sheet2.Range("B1:B2").Item(1).Value(xlRangeValueXMLSpreadsheet)
     End If
     Sheet1.Range("A1:A2").Value(xlRangeValueXMLSpreadsheet) = Sheet2.Range("B1:B2").Value(xlRangeValueXMLSpreadsheet)
    End Sub

    ざっとテストしてみた程度ですが、想定した動きをしています。


    参考情報ですが、xlRangeValueXMLSpreadsheetを使用すると、
    EXCELの計算モードが強制的に自動計算になる副作用があるようです。


違反を報告
削除キー/

前の記事(元になった記事) 次の記事(この記事の返信)
←Re[1]: EXCELでクリップボードを使用せずに書式付きでセルをコピー /kiku →Re[3]: EXCELでクリップボードを使用せずに書式付きでセルをコピー /わかきつ
 
上記関連ツリー

Nomalアイコン EXCELでクリップボードを使用せずに書式付きでセルをコピー / わかきつ (18/03/05(Mon) 18:56) #33818
Nomalアイコン Re[1]: EXCELでクリップボードを使用せずに書式付きでセルをコピー / kiku (18/03/06(Tue) 11:06) #33819
│└Nomalアイコン EXCELでクリップボードを使用せずに書式付きでセルをコピー / わかきつ (18/03/06(Tue) 12:35) #33822 ←Now
│  └Nomalアイコン Re[3]: EXCELでクリップボードを使用せずに書式付きでセルをコピー / わかきつ (18/03/07(Wed) 09:04) #33824 解決み!
Nomalアイコン Re[1]: EXCELでクリップボードを使用せずに書式付きでセルをコピー / Hongliang (18/03/06(Tue) 11:34) #33820
  └Nomalアイコン Re[2]: EXCELでクリップボードを使用せずに書式付きでセルをコピー / わかきつ (18/03/06(Tue) 12:08) #33821

All 上記ツリーを一括表示 / 上記ツリーをトピック表示
 
上記の記事へ返信

Mode/  Pass/


- Child Tree -