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

Excel総合相談所 81 at BSOFT

683:名無しさん＠そうだ選挙にいこう
09/04/27 20:23:50
第三水準かユニコードがらみの悪寒

684:名無しさん＠そうだ選挙にいこう
09/04/27 21:59:22
>>683
ああ、多分それです。MSPゴシックで書かれた欧文をLucida Sans Unicodeにしたいのですが。
MSPゴシックに固定されてしまう文字があるのです。
ユニコードかJISかは関係ないみたい。混在してます。
同じ文字や記号なのに、変更されたりされなかったりもあります。
フォントはXPにデフォで入ってるフォントですよね？
文字はどちらにも存在します。ただゴシックの字体とバランスが気に入らないので・・・
エクセルの問題じゃなくて、入力するときのIMEの問題のような気もしてきました・・・

685:名無しさん＠そうだ選挙にいこう
09/04/27 22:19:49
>>684
どういう状況か、やっとわかった。
全角の英数字か記号を使ってる。たぶん間違いない。
それはIMEの問題じゃなくて入力した人の操作の問題。

686:名無しさん＠そうだ選挙にいこう
09/04/27 22:52:25
>>685
なるほど・・・固定されてるのは全角なのか。
これは１文字ずつ置換して修正するしかなさそうですね・・・
ありがとうございました。今日はも寝ます。

687:名無しさん＠そうだ選挙にいこう
09/04/27 23:28:04
>>686
半角と全角を区別して検索・置換できるから一発でできるでしょ

688:名無しさん＠そうだ選挙にいこう
09/04/27 23:33:44
【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード　　】両対数グラフ　書き方

突然すみません。

両対数を使ったグラフを書きたいのですが、それぞれの軸の値が
　x：1　2　｜　4　｜　6　｜　8　｜　10
　y：10　20　30　40　50　60　-　80　-　100
といったものをつくりたいです。（｜や-は、数値のふられていない補助線の位置です。）
『対数』のチェックをオンにして自分なりにやってみたのですが、上のような目盛りのふられ方にできなかったので、質問しました。
情報が少なく難しいかと思いますが、レスお願いします。

689:名無しさん＠そうだ選挙にいこう
09/04/28 01:05:50
エクセルで日付を入れたいのですが、ツールバーのフォントみたいに選択式にするにはどうすればよいですか？お願いしますm(__)m

690:名無しさん＠そうだ選挙にいこう
09/04/28 01:09:01
>>689
プルダウンのリストから選択させるってことでいいのかな？

データ→入力規則→入力値の種類をリストにして
日付リストを範囲選択するか
2009/1/1,2009/1/2　のように
データをカンマで区切って指定する。
リストが別シートのときは範囲に名前をつけないとエラーになる。

691:名無しさん＠そうだ選挙にいこう
09/04/28 01:16:22
ありがとうございますm(__)m
おかげで上手くできました

692:名無しさん＠そうだ選挙にいこう
09/04/28 07:53:25
>>688
よくわかんないけど、両軸とも対数じゃないように思えるんだけど…
最小値が0じゃないってだけじゃないの？

693:名無しさん＠そうだ選挙にいこう
09/04/28 08:46:26
>>687
いや、そうなんですけど、どの文字が全角で打たれてるのか予測できないので、
全ての文字について１文字ずつ置換作業やらないといけないなと・・・
あるいは見つけ次第、手動変換か・・・orz
もう全角のままでもいいかなぁ・・・

694:名無しさん＠そうだ選挙にいこう
09/04/28 09:03:56
でも、ただメモ帳に貼り付けただけでLucida Sans Unicodeに統一できるのに、
エクセルはできないんだろ？全角文字はフォントの変更はしないなんてあるのかな？
それはないか。設定で切り替えられるとか？

695:名無しさん＠そうだ選挙にいこう
09/04/28 09:09:32
流れよめてないかもだが、ASC関数で一括して半角にすりゃいいんじゃね？

696:名無しさん＠そうだ選挙にいこう
09/04/28 09:32:21
一度アップロードしてくれれば解決できるかもしれないんだが・・無理かね
その文字だけでいいんだけど

697:名無しさん＠そうだ選挙にいこう
09/04/28 10:17:23
>>693
VBA使える？

698:名無しさん＠そうだ選挙にいこう
09/04/28 11:27:48
>>689
回答は>>690で終わってるとして、これは余談になるけど
Ctrl＋；（セミコロン）や Ctrl＋：（コロン）を覚えておくと便利だぞ。

699:名無しさん＠そうだ選挙にいこう
09/04/28 17:43:32
ｽﾚﾘﾝｸ(bsoft板)

700:名無しさん＠そうだ選挙にいこう
09/04/29 07:57:34
【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】いいえ（簡単なものなら）
【4 VBAでの回答の可否】可
【5 検索キーワード　　】パスワード

フォルダ内にあるすべてのエクセルファイルに、一度に同じパスワードを設定する方法はありますか？

701:名無しさん＠そうだ選挙にいこう
09/04/29 08:35:23
>>700
①パスワード設定を「マクロの記録」でとる
②下のコードの2行目(Const～)に目的のフォルダパスを設定する
③下のコードの7行目(～ FolderPath & FileName)がフォルダ内の全てのエクセルファイルのパスになるので
　そこに①で録ったコードを挿入して、記録されたパスを「FolderPath & FileName」に書き換える

Sub Sample()
　　Const FolderPath = "c:\text\" ' 末尾に \ を付けること
　　Dim FileName As String
　　FileName = Dir(FolderPath & "*.xls")
　　Do ' While Len(FileName)
　　　　If Len(FileName) = 0 Then Exit Do
　　　　Debug.Print FolderPath & FileName
　　　　FileName = Dir()
　　Loop
End Sub

俺はWhileやUntil条件は好きじゃないんで、IfとExit Doにしたが
While条件の方が良ければDoの後のコメントアウト外して、「If Len(～」の上を削除

702:名無しさん＠そうだ選挙にいこう
09/04/29 09:45:07
>>701
ありがとうございます。

早速試してみたところ、パスワードは設定されたものの、ファイルの内容が消えました。このやり方が間違ってますか？

①エクセルを開き、下記マクロを作成して C:\Users\＊＊\Documents\に保存

Sub Macro1()
'
' Macro1 Macro
Const FolderPath = "C:\Users\＊＊\Documents\" ' 末尾に \ を付けること
Dim FileName As String
FileName = Dir(FolderPath & "*.xls")
Do ' While Len(FileName)
If Len(FileName) = 0 Then Exit Do
Debug.Print FolderPath & FileName
ActiveWorkbook.SaveAs FileName:=FolderPath & FileName, _
FileFormat:=xlExcel8, Password:="＊＊＊", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
FileName = Dir()
Loop
End Sub

②保存したファイルを開き、マクロを実行

ちなみにパスワードをかけたいファイルを C:\Users\＊＊\Documents\に入れてやってみました。

③保存するかどうか聞いてきたので「はい」をクリック

以上です。よろしくお願いします。

703:名無しさん＠そうだ選挙にいこう
09/04/29 16:07:21
>>701ではないが
Debug.Print FolderPath & FileName
だからでは？

Sub Macro1()
Const FolderPath = "C:\Users\＊＊\Documents\"　'ファイルのあるフォルダのパス
Const Mypass = "×××" 'パスワード設定しておく
Dim FileName As String
With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With
FileName = Dir(FolderPath & "*.xls")
Do
If Len(FileName) = 0 Then Exit Do
Workbooks.Open FolderPath & FileName
ActiveWorkbook.SaveAs FileName:=FolderPath & FileName, _
FileFormat:=xlNormal, Password:=Mypass, WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close
FileName = Dir()
Loop
MsgBox ("処理終了")
End Sub