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