Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12408 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【10612】上書き時のフォント変更について 向井 04/2/3(火) 17:06 質問
【10618】Re:上書き時のフォント変更について INA 04/2/3(火) 18:08 回答
【10630】Re:上書き時のフォント変更について 向井 04/2/4(水) 9:49 質問
【10633】Re:上書き時のフォント変更について つん 04/2/4(水) 13:01 発言
【10634】Re:上書き時のフォント変更について INA 04/2/4(水) 14:06 回答
【10636】Re:上書き時のフォント変更について つん 04/2/4(水) 14:33 発言
【10637】Re:上書き時のフォント変更について INA 04/2/4(水) 14:36 回答
【10638】Re:上書き時のフォント変更について つん 04/2/4(水) 14:42 回答
【10639】Re:上書き時のフォント変更について Asaki 04/2/4(水) 15:24 発言
【10640】Re:上書き時のフォント変更について つん 04/2/4(水) 15:51 発言
【10641】Re:上書き時のフォント変更について INA 04/2/4(水) 16:12 回答
【10643】Re:上書き時のフォント変更について Ｊカーター 04/2/4(水) 16:46 発言
【10650】未だにしつこく・・・ つん 04/2/5(木) 10:37 回答
【10652】Re:未だにしつこく・・・ でん 04/2/5(木) 10:53 発言
【10654】Re:未だにしつこく・・・ Jaka 04/2/5(木) 13:29 発言
【10655】でんさん、Jakaさん つん 04/2/5(木) 14:05 発言
【10657】Re:でんさん、Jakaさん こうちゃん 04/2/5(木) 16:12 発言
【10675】Re:でんさん、Jakaさん 向井 04/2/5(木) 18:37 お礼
【10612】上書き時のフォント変更について
質問  向井 E-MAIL  - 04/2/3(火) 17:06 -
引用なし
パスワード
   ｴｸｾﾙシートに

明朝で入力されているデータの

上書き入力した場合,

そのセルの

フォントが自動的にゴシックになる

方法があれば教えてください。
【10618】Re:上書き時のフォント変更について
回答  INA  - 04/2/3(火) 18:08 -
引用なし
パスワード
   チェンジイベントでフォント名を取得して、
もし、明朝だったらゴシックに変更するようにしては如何でしょうか？
【10630】Re:上書き時のフォント変更について
質問  向井 E-MAIL  - 04/2/4(水) 9:49 -
引用なし
パスワード
   INAさん早速有難うございます。
私は、マクロの詳しいことがよく理解していませんので
よろしければもう少し簡単におしえていただけないでしょうか。


▼INA さん：
>チェンジイベントでフォント名を取得して、
>もし、明朝だったらゴシックに変更するようにしては如何でしょうか？
【10633】Re:上書き時のフォント変更について
発言  つん E-MAIL  - 04/2/4(水) 13:01 -
引用なし
パスワード
   向井 さん、INAさんこんにちは。

>私は、マクロの詳しいことがよく理解していませんので
>よろしければもう少し簡単におしえていただけないでしょうか。

Private Sub Worksheet_Change(ByVal Target As Range)
　　With Target
　　　　If Target.Count = 1 Then
　　　　　　If .Value <> "" And .Font.Name = "ＭＳ 明朝" Then
　　　　　　　　.Font.Name = "ＭＳ ゴシック"
　　　　　　End If
　　　　End If
　　End With
End Sub

こんな感じかなあ？
でも、これだと、「上書き」のみじゃなくて、空白セルに入力したときも
通ってしまいますね（＾＾;
これじゃ、ダメか・・・・
【10634】Re:上書き時のフォント変更について
回答  INA  - 04/2/4(水) 14:06 -
引用なし
パスワード
   >でも、これだと、「上書き」のみじゃなくて、空白セルに入力したときも
>通ってしまいますね（＾＾;

If Target.Value = "" Then Exit Sub
を最初に追加すれば大丈夫かな・・・？
【10636】Re:上書き時のフォント変更について
発言  つん E-MAIL  - 04/2/4(水) 14:33 -
引用なし
パスワード
   Worksheet_Changeイベントは、セルに値が入力された、
あるいは、値が削除された直後に発生するので、
If Target.Value = "" Then Exit Sub
が通るのは、「値が削除された」ときだけのようです。
なので、入力される前のセルの状態を取得するのは、
Worksheet_Change内では無理なような感じです。
なんか良い案あるかな？
【10637】Re:上書き時のフォント変更について
回答  INA  - 04/2/4(水) 14:36 -
引用なし
パスワード
   あー確かにそうですね。ちょっと勘違いしました。(^_^;)
【10638】Re:上書き時のフォント変更について
回答  つん E-MAIL  - 04/2/4(水) 14:42 -
引用なし
パスワード
   こんなんではどうでしょうか？

'**標準モジュール
Public blnFlag As Boolean

'**ワークシートモジュール
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　　With Target
　　　　If .Value = "" Then
　　　　　　blnFlag = False
　　　　Else
　　　　　　blnFlag = True
　　　　End If
　　End With
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
　　If blnFlag = True Then
　　　　With Target
　　　　　　If Target.Count = 1 Then
　　　　　　　　If .Value <> "" And .Font.Name = "ＭＳ 明朝" Then
　　　　　　　　　　.Font.Name = "ＭＳ ゴシック"
　　　　　　　　End If
　　　　　　End If
　　　　End With
　　End If
End Sub

一応上手く動作してるんだけど、なんか落とし穴があるような気もする・・・
どうでしょうか？
【10639】Re:上書き時のフォント変更について
発言  Asaki  - 04/2/4(水) 15:24 -
引用なし
パスワード
   みなさま こんにちは。
後ろから失礼いたします。

>一応上手く動作してるんだけど、なんか落とし穴があるような気もする・・・

SelectionChange イベントで Target が複数セルになると、型が一致しませんのエラーがでましたです。

似たような事をやったことがありますが、結局、退避用のシートを予め用意しておいて、
SelectionChange イベントで退避用のシートにデータ書き写し
Change イベントで入力のシートと退避用のシートの同位置のセルの値を比較
という、とってもまどろっこしいことになってしまいました。

もっとスマートな方法があるような気もするのですが。。。
【10640】Re:上書き時のフォント変更について
発言  つん E-MAIL  - 04/2/4(水) 15:51 -
引用なし
パスワード
   ▼Asaki さん、こんにちは(^.^)

>SelectionChange イベントで Target が複数セルになると、型が一致しませんのエラーがでましたです。

ありゃ・・・Changeイベントでも同じエラーが出たので、
そちらは、「If Target.Count = 1 Then」で回避させてたのですが、
SelectionChangeイベントでも同じようにしとけばいいかな？

>もっとスマートな方法があるような気もするのですが。。。

うーん、誰かいい案知らないかな？
なんか、無駄なレスばかりですみません（＾＾;
【10641】Re:上書き時のフォント変更について
回答  INA  - 04/2/4(水) 16:12 -
引用なし
パスワード
   >SelectionChange イベントで Target が複数セルになると、
>型が一致しませんのエラーがでましたです。

未確認ですけど、For Each c In Target で回避できませんか・・？
【10643】Re:上書き時のフォント変更について
発言  Ｊカーター  - 04/2/4(水) 16:46 -
引用なし
パスワード
   おじゃまします。

application.Undo
を使って元に戻すとか？

元に戻す動作もイベントが発生するので注意が必要かもしれません。


違ったらすいません。
【10650】未だにしつこく・・・
回答  つん E-MAIL  - 04/2/5(木) 10:37 -
引用なし
パスワード
   おはようございます。

なんかもう向井さん見てなさそうだし、
適切かどうかわからんコードなんだけど、
まだ、しつこくいじってたりして・・・

>未確認ですけど、For Each c In Target で回避できませんか・・？

こんなんしてみました。

'↓別に標準モジュールにすることなかったですね（＾＾;
　　なので、ワークシートモジュールの先頭に
Private blnFlag As Boolean

Private Sub Worksheet_Change(ByVal Target As Range)
　　Dim r As Range
　　If blnFlag = True Then
　　　　For Each r In Target
　　　　　　With r
　　　　　　　　If .Value <> "" And .Font.Name = "ＭＳ 明朝" Then
　　　　　　　　　　.Font.Name = "ＭＳ ゴシック"
　　　　　　　　End If
　　　　　　End With
　　　　Next r
　　End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　　If Target.Cells(1, 1).Value = "" Then
　　　　blnFlag = False
　　Else
　　　　blnFlag = True
　　End If
End Sub

SelectionChangeは、とりあえず、先頭のセルだけチェックしてみました。
誰か見てくれるだろうか・・・・
【10652】Re:未だにしつこく・・・
発言  でん  - 04/2/5(木) 10:53 -
引用なし
パスワード
   つんさん、こんにちは。

でんと申します。

>誰か見てくれるだろうか・・・・
見てますよ！

私のＰＣでも動きました。

また色々教えて下さいね。
頑張るぞ〜！

ではでは。
【10654】Re:未だにしつこく・・・
発言  Jaka  - 04/2/5(木) 13:29 -
引用なし
パスワード
   全然質問を読んでいませんけど、これ使えません？
これなら複数のセルを変えられます。
でも、取得等はダメみたいです

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
　　 'MsgBox Target.Cells.Font.Name　 'ダメ使えません。
　　 MsgBox ActiveCell.Font.Name
　　 Target.Cells.Font.Name = "ＭＳ ゴシック"
　　 Target.Cells.Font.ColorIndex = 3
End Sub


まるっきり別な話ですが、範囲を小さくしてテストしている所が、かわゆくて笑えました。
For Each CL In Range("C1:D20")
　　↓
For Each CL In Range("C1:D3")
【10655】でんさん、Jakaさん
発言  つん E-MAIL  - 04/2/5(木) 14:05 -
引用なし
パスワード
   でんさん、こんにちは〜

見てくれてありがとー
私も、万年初心者なんで、いつも皆さんから教わっています。
お互い頑張りましょー！

Jaka さん、こんちゃ。

>全然質問を読んでいませんけど、これ使えません？
>これなら複数のセルを変えられます。
>でも、取得等はダメみたいです
>
>Private Sub Worksheet_Change(ByVal Target As Excel.Range)
>　　 'MsgBox Target.Cells.Font.Name　 'ダメ使えません。
>　　 MsgBox ActiveCell.Font.Name
>　　 Target.Cells.Font.Name = "ＭＳ ゴシック"
>　　 Target.Cells.Font.ColorIndex = 3
>End Sub
>
「Target.Cells.」やったら、一度に設定出来るんですね。
でも、「元のフォントが明朝だったら」という変更・・・のようなんで、
やっぱり、１つずつフォント名を取得しながらしないとダメなんじゃないかなー？
向井さん出てきてくんないから、わかんないけど。

>まるっきり別な話ですが、範囲を小さくしてテストしている所が、かわゆくて笑えました。
>For Each CL In Range("C1:D20")
>　　↓
>For Each CL In Range("C1:D3")

え？そ、それって、ボクのんでした？
そーいえば、そんなことしたような（＾＾;
だって、範囲が広かったら、テストデータ入力すんの面倒で・・・
【10657】Re:でんさん、Jakaさん
発言  こうちゃん E-MAIL  - 04/2/5(木) 16:12 -
引用なし
パスワード
   つんさん、みなさん、こんにちは

>え？そ、それって、ボクのんでした？

こんなんみたら、男かいな？って疑われるし(^^;)

＃回答に関係ない、石鹸箱ネタでごめんなさい。
【10675】Re:でんさん、Jakaさん
お礼  向井 E-MAIL  - 04/2/5(木) 18:37 -
引用なし
パスワード
   みなさん。こんばんわ
向井です。・・・・

おそくなりましたが、
思うようにフォントの変更ができました。
膨大な資料の修正が楽になりました。

INAさん
つんさん
Asakiさん
Jカーターさん
でんさん
Vakaさん
こうちゃん
ありがとうございました。
またの相談にのってください。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12408 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free