Excel VBA質問箱 IV

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

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


8124 / 76732 ←次へ | 前へ→

【74185】Re:切り抜きから貼り付け
発言    - 13/4/27(土) 7:16 -

引用なし
パスワード
   こんにちは。

問題点の正確な把握は、問題解決の糸口です。
初心者であればあるほど、たいせつなところです。

重箱の隅をつつくようで恐縮ですが
本トピのタイトルが「切り抜きから貼り付け」。
「切り抜きから貼り付け」が「応答なし」に深く関わっている
とお考えになりますか?
「応答なし」になったとき、たまたまそこが処理中であった
(ように見えただけ?) という可能性はないでしょうか。

たとえば、コードから「切り抜きから貼り付け」の部分を削除したら
「応答なし」が発生しなくなるかどうか。
たとえば、ループと関係なく単発で「切り抜きから貼り付け」を実行
しても「応答なし」になるかどうか。
こういうことを確認したうえでのタイトルでしょうか。


きびしい言いかたに聞こえたらごめんなさいね。
でも、何が本当の問題なのかを ご自身が しっかり掴むことは
ご自身がコードを書くうえでとてもとても大切なんです。


▼[名前なし] さん:
>i = 2
>  Do While Cells(i, 1) <> ""
>  If Cells(i, 21) <> "" Then
>    Rows(i).Select
>    Selection.Copy
>    Selection.Insert Shift:=xlDown
>    Range(Cells(i, 20), Cells(i, 44)).Select
>    Application.CutCopyMode = False
>    Selection.ClearContents
>    Range(Cells(i + 1, 20), Cells(i + 1, 44)).Cut Destination:=Range(Cells(i + 1, 15), Cells(i + 1, 39))
>  End If
>  i = i + 1
>  Loop
>
>上の記述だと、END if前の切り抜き→貼り付け(実際には元データのセルを左にずらしている処理)
>で応答なしになってしまいます。
>完全に初心者ですが、ご指摘お願いします。
1 hits

【74178】切り抜きから貼り付け [名前なし] 13/4/26(金) 16:41 質問
【74183】Re:切り抜きから貼り付け 13/4/27(土) 6:09 発言
【74184】Re:切り抜きから貼り付け UO3 13/4/27(土) 6:35 発言
【74185】Re:切り抜きから貼り付け 13/4/27(土) 7:16 発言
【74186】Re:切り抜きから貼り付け kanabun 13/4/27(土) 10:41 発言
【74192】Re:切り抜きから貼り付け kanabun 13/4/27(土) 20:11 発言

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