Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7185 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 = "ＭＳ ゴシック"
　　　　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 -
引用なし
パスワード
   ▼むー さん：

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

下のコードでもＯＫです。試してみてください。
　　With Cells.Font
　　　　.Name = "ＭＳ ゴシック"
　　　　.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」
にありますが、ネットで検索すると、これ以外にも起こるようでバグくさいですね。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7185 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free