Excel総合相談所 82 - 暇つぶし2ch

Excel総合相談所 82 at BSOFT

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

734:732
 09/06/02 21:19:17 
>>733 
工ｴｴｪｪ(´д｀)ｪｪｴｴ工 
まさか画面上の拡大縮小が印刷に影響しているとは・・・・・。 
 
即答、ありがとうございます。解決しました。 
なやんだ時間はなんだったんだ・・・。

735:725
 09/06/02 21:50:01 
>>728 
すいません。セルの書式設定というのはどこにあるのでしょうか？ 
書式→セルにはありませんでした。

736:725
 09/06/02 21:50:52 
エクセルは2003です。

737:725
 09/06/02 21:54:01 
セルの書式設定がみつかりました。 
お騒がせしました。

738:名無しさん＠そうだ選挙にいこう
 09/06/02 21:55:20 
>>735 
Ctrl＋１か 
右クリックして選択するか 
メニューの書式→セル

739:名無しさん＠そうだ選挙にいこう
 09/06/02 22:14:52 
>>734 
ごめんなさい 
ちゃんと質問読んでませんでした 
まさか関係有るとは思わずに 
答えてしまった所正解だったいうマジエスパーでした

740:名無しさん＠そうだ選挙にいこう
 09/06/02 22:36:53 
【1 OSの種類 　 　 　 　 .】 WindowsXP 
【2 Excelのバージョン 　 】 Excel 2000 
【3 VBAが使えるか　 　 .】 可 
【4 VBAでの回答の可否】 可 
【5 検索キーワード 　 　 】 SubまたはFunctionが定義されていません 
 
A列に文章が書いてあり、一度、MS明朝にし、">"　という不等号があったら 
それ以降の右側の文字をMSゴシックにして強調したいです。 
100行目でSubまたはFunctionが定義されていませんとエラーになってしまいます。 
どこを直せばいいのでしょうか？ 
 
Sub ゴシック化() 
Dim i, X, Y, Z 
10 Columns("A:A").Font.Name = "ＭＳ 明朝" 
20 
30 Z = Range("A65536").End(xlUp).Row 
40 　For i = 1 To Z 
50 
60 　　If Left(Cells(i, 1), 1) = ">" Then 
70 　　　Cells(i, 1).Font.Name = "ＭＳ ゴシック" 
80 　　End If 
90 
100 　 X = Find(">", Cells(i, 1)) 
110 　 Y = Len(Cells(i, 1)) - X 
120 
130 　　 If X > 0 Then 
140 　　　 Cells(i, 1).Characters(Start:=X, Length:=Y).Font.Name = "ＭＳ ゴシック" 
150 　　 End If 
160 
170 　 Next i 
180 
End Sub

次ページ