Excel VBA質問箱 IV

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

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


62858 / 76732 ←次へ | 前へ→

【18475】Re:コピー&ペーストについて
発言  ponpon  - 04/9/27(月) 23:26 -

引用なし
パスワード
   ▼Asaki さん:
早速の回答ありがとうございます。
貼り付け先のセルが結合しているために、「結合されたセルの一部は変更できません」とのエラーがでます。
 印刷用の用紙をかねていますので、年、組、氏名等が途中にはいるので、セルを結合して問題を表示させています。
 書式を設定しているマクロは、あります。
 答えを表示させたり、消したりするために

Sub 答えあり()
  For n = 19 To 1 Step -2
   For m = 2 To 17 Step 15
    Sheets("漢字プリント").Cells(m, n + 1).Select
    Selection.NumberFormatLocal = "標準"
   Next
  Next
  For n = 19 To 1 Step -2
   For m = 2 To 17 Step 15
    Sheets("漢字プリント").Cells(m + 31, n).Select
    Selection.NumberFormatLocal = "標準"
   Next
  Next
  Range("A1").Select
End sub

Sub 答えなし()
   For n = 19 To 1 Step -2
   For m = 2 To 17 Step 15
    Sheets("漢字プリント").Cells(m, n + 1).Select
    Selection.NumberFormatLocal = ";;;"
   Next
  Next
   For n = 19 To 1 Step -2
   For m = 2 To 17 Step 15
    Sheets("漢字プリント").Cells(m + 31, n).Select
    Selection.NumberFormatLocal = ";;;"
   Next
  Next
  Range("A1").Select
End Sub

 これがいけないのでしょうか?
 読み仮名は、Selection.NumberFormatLocal = "標準"のときに表示させています。

 
>こんばんは。
>
>↓こんな感じでもダメですか?
>Sheets("問題作成").Cells(i, 3).Resize(, 2).Copy _
>  Destination:=Sheets("漢字プリント").Cells(m, n).Resize(, 2)
>
>他に、書式を設定しているマクロはありませんか?
1 hits

【18473】コピー&ペーストについて ponpon 04/9/27(月) 22:31 質問
【18474】Re:コピー&ペーストについて Asaki 04/9/27(月) 22:57 回答
【18475】Re:コピー&ペーストについて ponpon 04/9/27(月) 23:26 発言
【18476】Re:コピー&ペーストについて Asaki 04/9/28(火) 0:03 回答
【18477】Re:コピー&ペーストについて ponpon 04/9/28(火) 0:23 発言
【18478】Re:コピー&ペーストについて Asaki 04/9/28(火) 0:32 回答
【18479】Re:コピー&ペーストについて ponpon 04/9/28(火) 0:56 お礼
【18481】Re:コピー&ペーストについて ponpon 04/9/28(火) 10:34 質問
【18482】Re:コピー&ペーストについて Asaki 04/9/28(火) 11:05 回答
【18488】Re:コピー&ペーストについて ponpon 04/9/28(火) 12:55 お礼
【18593】Re:コピー&ペーストについて ponpon 04/9/30(木) 19:14 質問
【18603】Re:コピー&ペーストについて ichinose 04/10/1(金) 10:05 発言

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