Excel VBA質問箱 IV

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

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


7171 / 13644 ツリー ←次へ | 前へ→

【40741】フォントの変更について むー 06/7/21(金) 23:51 質問[未読]
【40742】Re:フォントの変更について ponpon 06/7/22(土) 0:04 発言[未読]
【40744】Re:フォントの変更について むー 06/7/22(土) 1:29 回答[未読]
【40745】Re:フォントの変更について Hiroko 06/7/22(土) 6:54 発言[未読]
【40750】Re:フォントの変更について むー 06/7/22(土) 14:44 発言[未読]
【40751】Re:フォントの変更について ponpon 06/7/22(土) 17:58 発言[未読]

【40741】フォントの変更について
質問  むー  - 06/7/21(金) 23:51 -

引用なし
パスワード
   まだVBAを始めて間もないのですが、フォント変更のところで
行き詰ってしまったので質問させてください。

あるシートの文字が入力されている箇所全ての
フォントを統一したく、以下のコードを記述しております。

  Worksheets("シート名").Select
  For Each A In ActiveSheet.UsedRange
    A.Font.Name = "MS ゴシック"
    A.Font.Size = "9"
  Next

上記コードで実行すると
 「FontクラスのNameプロパティを設定できません」
のエラーが出てしまいます。

原因等がご存知の方がおりましたら、ご教授の方を
よろしくお願い致します。

【40742】Re:フォントの変更について
発言  ponpon  - 06/7/22(土) 0:04 -

引用なし
パスワード
   こんばんは。
シートの保護をしていませんか?
そうでない場合は、提示コードで変更できました。

【40744】Re:フォントの変更について
回答  むー  - 06/7/22(土) 1:29 -

引用なし
パスワード
   ponponさん、こんばんは。

シートの保護は行っていますが、上記フォント変換のコード
以降で行っております。
また、シート保護のコードをコメントアウトした後に再度
動かしてみたのですが、それでも同じ現象が発生してしまいます・・。

【40745】Re:フォントの変更について
発言  Hiroko  - 06/7/22(土) 6:54 -

引用なし
パスワード
   ▼むー さん:

おはようございます。
シートの保護を一旦前面解除して、操作されると動くはずですが…

下のコードでもOKです。試してみてください。
  With Cells.Font
    .Name = "MS ゴシック"
    .Size = 9
  End With

【40750】Re:フォントの変更について
発言  むー  - 06/7/22(土) 14:44 -

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

シート保護のコードを全てコメントアウトした上で、
下記のコードで試しても同様の現象が発生してしまいます・・。

また、本現象の発生後にExcel上から手動でフォントを変えようとすると
 「このブックで、これ以上新しいフォントは設定できません。」
のエラーが発生してしまいます。

本日はちょっと時間があまりないので、上記エラーのキーワードで
再度調べなおしてみようかと思っています。

【40751】Re:フォントの変更について
発言  ponpon  - 06/7/22(土) 17:58 -

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

>シート保護のコードを全てコメントアウトした上で、
>下記のコードで試しても同様の現象が発生してしまいます・・。

シートの保護が解除されていないのではないでしょうか?
Worksheets("シート名").Unprotectをいれて、解除するか
新規ブックやシート等で試されたらいかがでしょう?
それでもダメなら、別なところに原因がありそうですが・・

「このブックで、これ以上新しいフォントは設定できません」については、
http://support.microsoft.com/default.aspx?scid=kb%3Bja%3B882381
にありますが、ネットで検索すると、これ以外にも起こるようでバグくさいですね。

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