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

Excel総合相談所 82 at BSOFT

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

741:名無しさん＠そうだ選挙にいこう
09/06/02 23:20:15
【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel 2002
【3 VBAが使えるか　　 .】不可
【4 VBAでの回答の可否】可
【5 検索キーワード　　】関数　特定条件　抽出　セルを返す
　　　　　　　　　　　　　　　　　0以下

以下のようなシートを組んでいます。
＿＿＿＿在庫数＿1日目消費数＿1日目在庫＿2日目消費数＿2日目在庫＿････
りんご　　　
いちご
なし

各品目について、2列目に入力した在庫数に対し、一日ごとに消費数を引いていく表です。
ここで、在庫数がマイナスになる日が何日目かをセルに表示したいのですが、
関数のみで可能でしょうか?
IF関数は複数範囲の指定ができないと記憶しています。
VLOOKUP関数などを調べてみましたが、そのセル自体の値が欲しいわけではないので、
つまづいています。やり方のヒントをご教示願います。

742:名無しさん＠そうだ選挙にいこう
09/06/02 23:24:15
>740
文字列対象の検索はInStr関数を使います。詳しくはヘルプ参照してください。

743:742
09/06/02 23:41:15
>740
試してみました。100行の部分だけだと最後の１文字がフォント変更されなかったので、Yを+1してます。

Sub ゴシック化()
Dim i, X, Y, Z
010 Columns("A:A").Font.Name = "ＭＳ明朝"
020
030 Z = Range("A65536").End(xlUp).Row
040 For i = 1 To Z
050
060 If Left(Cells(i, 1), 1) = ">" Then
070 Cells(i, 1).Font.Name = "ＭＳゴシック"
080 End If
090
100 X = InStr(Cells(i, 1), ">") ←Findから変更
110 Y = Len(Cells(i, 1)) - X + 1 ← + 1 を追加
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

セル内の文字の一部のフォントを変更する方法は、自分にとって初めてでした。勉強になります。

744:740
09/06/03 00:26:30
>>742-743
ありが㌧!!
感動（完動）しますた。

745:740
09/06/03 00:41:37
If Left(Cells(i, 1), 1) = ">" Then
　　Cells(i, 1).Font.Name = "ＭＳゴシック"
End If

これは不要でしたね・・・

746:名無しさん＠そうだ選挙にいこう
09/06/03 00:47:28
>>741
かなり無理矢理だけど。
数式列をA列に挿入してA2に
=INDEX($C$1:$I$1,1,MATCH(0,$C2:$I2,-1)+1)

747:名無しさん＠そうだ選挙にいこう
09/06/03 01:02:37
別にA列でなくても最終列でもいいけど。

748:名無しさん＠そうだ選挙にいこう
09/06/03 09:24:01
【1 OSの種類　　　　 .】 WindowsXPSP3
【2 Excelのバージョン　】 Excel　9.0.3821　SR-1
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード　　】エクセルの書式

質問させてください
セル1/8と記入したいのですが1月8日となってしまいます。
セル内で右クリックで書式設定で標準を選んでも1月8日となってしまいます
どうすればいいのでしょうか？

749:名無しさん＠そうだ選挙にいこう
09/06/03 09:27:58
エクセルVBAで

a=1
b=2
c=3
.
.
.

などと記載したコードのイコール左辺と右辺を入れ替えるのに
簡単な方法ないものですか？
ユーザーフォームテキストボックス＝シート内セルデータの
入力と呼び戻しで左右入れ替えが必要なんだけど
一つ一つカットペーストしてますが
１００行以上あってそこそこ面倒なのです。

教えてくださいませ

750:名無しさん＠そうだ選挙にいこう
09/06/03 09:35:40
>>749
コピーしてシートに貼り付け
メニューから、データ→区切り位置→カンマやタブなど…→区切り文字その他 =
ドラッグして位置を入れ替え、=をフィルコピー
コピーして貼り直す

751:748
09/06/03 09:44:42
自己解決しました文字列でした。

752:名無しさん＠そうだ選挙にいこう
09/06/03 11:54:29
【1 OSの種類　　　　 .】 Windows XP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード　　】 excel セルの書式設定表示形式空白任意の文字を表示

空白セルの時任意の文字「-」を表示する、という表示形式の設定はできますでしょうか？

753:名無しさん＠そうだ選挙にいこう
09/06/03 13:35:51
>>752
入力されているデータに対する「書式設定」だから、何もないところにデータを表示させることは出来ない。
VBA使えば空白セルに「-」を表示させることは可能。

754:名無しさん＠そうだ選挙にいこう
09/06/03 20:39:44
>>752
特定のセルに対して、そのセルが空欄の場合、別のセルに－を表示するのはIF関数で
例えば特定のセルをＡ１と仮定する場合、
=IF(A1="","-",A1)
とすれば空欄を-表示にすることは出来るけど

そういうことじゃないよね。