Excel VBA質問箱 IV

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

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


62860 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
    こんばんわ 
 運動会あけの代休なので、夕方からがんばっています。
 質問ですが、非常に初歩的で申し訳ないのですが、コピペについてです。
 漢字プリント自動作成に取り組んでいます。
 なんとか形はできて問題が作れるようになったのですが、漢字の読み仮名表示のところで漢字のところは太字にして「がっこう(太字)の(標準)ほん(太字)」のように表示させたいのですが、うまくいきません。新規ブックでのマクロの記録ではきちんと太字でコピペされるのに、どうしてでしょうか?教えてください。
 問題作成シートの問題は横書きなのに、漢字プリントシートの表示は縦書きだからいけないのでしょうか?もしそうだとしたら、無理なことなのでしょうか?

Sub 問題3()
Dim t As Single
Dim n As Single
Dim m As Single
Dim i As Single
Dim stri As String
Dim numtmp As String

  Worksheets("問題作成").Select
  t = Range("C1", Range("C1").End(xlDown)).Count 'C列の問題数の取得
 
 For n = 19 To 1 Step -2
  For m = 2 To 17 Step 15
   Randomize
   i = Int(Rnd * t) + 1
    stri = i

  numtmp = stri

 Do While InStr(1, numtmp, stri) > 0   'numtmpにstriが含まれてる間
                      'シャッフルを繰り返す
  i = Int(Rnd * t) + 1
    stri = i
 
 Loop
 

 Sheets("漢字プリント").Select
 Sheets("漢字プリント").Cells(m, n).Value = Sheets("問題作成")_
 .Cells(i, 3).Value
 Sheets("漢字プリント").Cells(m, n + 1).Value = Sheets("問題作成") _
 .Cells(i, 4).Value          ↑
                     Valueでは書式が反映されないので
  Next
 Next
End sub

.Valueでは書式が反映されないので 
コピペの部分を
    Sheets("問題作成").Cells(i, 1).Copy
   
    Sheets("漢字プリント").Select
   
    Sheets("漢字プリント").Cells(m, n).PasteSpecial
   
    Sheets("問題作成").Cells(i, 2).Copy
    Sheets("漢字プリント(高)").Cells(m, n + 1).PasteSpecial
 と変えたのですが、書式がコピペさせません。

そこでコピペの部分をマクロの記録通り、

    Sheets("問題作成").Select
    Cells(i, 1).Select
    Selection.Copy
    Sheets("漢字プリント").Select
    Cells(m, n).Select
    ActiveSheet.Paste
   
    Sheets("問題作成").Select
    Cells(i, 2).Select
    Selection.Copy
    Sheets("漢字プリント").Select
    Cells(m, n + 1).Select
    ActiveSheet.Paste
としたのですが、うまくいきません。
2 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 発言

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