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)
>
>他に、書式を設定しているマクロはありませんか？

0 hits

▼

【18473】コピー＆ペーストについて ponpon 04/9/27(月) 22:31