Excel総合相談所　14

>>943
Sub Macro1()
Dim gokei As Integer
gokei = Application.WorksheetFunction.CountIf(Worksheets("Sheet1").Range("A1:H1"), "<=50")
Select Case gokei
Case Is = 1
Worksheets("Sheet1").Range("AA1").Value = "パターンA"
Case Is = 2
Worksheets("Sheet1").Range("AA1").Value = "パターンB"
Case Is = 3
Worksheets("Sheet1").Range("AA1").Value = "パターンC"
ケース8まで続く
End Select
End Sub
あとは繰り返し構文にて、行数にカウンター変数を代入する

>>952
ダサい、ダサすぎる。

何がダサいの？もっといい方法があるの？

まあ、ふつーに考えれば文字列配列だ罠。

>952さんありがとう。
この方法でいいんですけど、始まりがA3:H3で、
終わりがA100:H100でなく毎日追加されていく(A101:H101)の繰り返し構文が、
かけなくて困ってます。これもできればお願いします。

このケースなら文字コード使ってもいい罠。

countifの返り値をchooseに入れるに1票

>>956
最終行が不定ならば、最終行 = Range("A65536").End(xlUp).Row
てな感じで求めてループ回すとか

エクセル2000で
EXCEL CSVのファイルのデータの内容を見られないようにする方法ってありますか？

>952,959
ありがとうございます。できました。

>>943
エラー処理は自分でね。
Sub hoge()
Dim BgnRow As Long
Dim EndRow As Long
Dim Cnt As Integer
BgnRow = Range("AA65536").End(xlUp).Row + 1
EndRow = Range("A65536").End(xlUp).Row
For i = BgnRow To EndRow
Cnt = 0
For j = 1 To 8
If Cells(i, j) > 0 And Cells(i, j) <= 50 Then
Cnt = Cnt + 1
End If
Next j
If Cnt > 0 Then
Cells(i, 27) = "パターン" & Chr(64 + Cnt)
End If
Next i
End Sub

遅かったか

セルを複数行コピーして挿入しようとしたら、
「オブジェクトがシートからはみだしてしまいます。その操作は
できません」というメッセージが出てしまいました。
どうしたらよいでしょうか…。

シートの物凄い右か物凄い下にオートシェイプか何かのオブジェクトがあるとか

Excel2000のグラフ作成で質問です
＋--------------------------＋
｜　　　｜要素1｜要素2｜要素3..｜
｜----＋--------------------｜
｜Ａ　　｜　　　　｜　　　｜　　　　 ｜
｜----＋--------------------｜
｜Ｂ　　｜　　　　｜　　　｜　　　　 ｜
｜----＋--------------------｜
｜Ｃ　　｜　　　　｜　　　｜　　　　 ｜
＋--------------------------＋
こんな感じの表でグラフを作るのですが、横棒グラフを作ってみると
上からＡ，Ｂ，Ｃ〜と表示させたいのに上からＣ，Ｂ，Ａという順番で表示されてしまいます。
これをＡ，Ｂ，Ｃの順に並べなにはどうしたら良いのでしょうか？

ちなみに要素1、要素2、要素３も右の方が上に表示されてしまうのですが
（Ｓａｇｅた方が良いのかな？）

>>965
いえ、オブジェクトもコメントも何もなくて、
ただ行をコピーしたいだけなんですよ…。

出来ました。すんませんです

質問です。

Windows98で　Excel2000　Word2000　を使っています。

Excel（Wordも）で、表を作り、図を挿入しようとすると　「容量またはメモリー不足」というメッセージが出て
保存しようとしても、このメッセージが出ます。
他のソフトに関しては、一切そぉいう事は出ず、Excel・Wordも突然、このメッセージが出るようになりました。
メモリーを調べてみると、以前と比べて極端に少なくなっている様子は、ありません。
一度、Excel・Word　を、インストールし直したのですが、やはりこのメッセージが出ます。

やるべき事は、すべてやったように思うのですが、他に何か原因はありますか？
教えて下さい。お願いします。

☆頑張ってまーす！！☆女の子が作ったサイトです☆
　　　　　　　☆見て見て！！
http://yahooo.s2.x-beat.com/linkvp/linkvp.html

>>966
項目軸の書式設定ダイアログ→メモリタブ→
「軸を反転する」にチェックをいれます。

こちら２００２で確認してます。

>>969
ハードディスクの空きはどのくらいある？

>>972

返事ありがとーございます。
空き容量は５ｷｶﾞﾊﾞｲﾄくらいは、ありますぅ・・・。(T_T)

>>973
その、挿入する、図のサイズは？

>>973
まさかとは思うのですが、エクセルで同じ症状になった
マックユーザーの友人のパソコンがその直後壊れました。
バックアップをすべてとっておくべし。

何かよく分かりませんが、
ここにティッシュ置いときますね。

　　_,,..i'"':,
　 |＼`､:　i'､
　 .＼＼`_',..-i
　　　.＼|_,..-┘

>>974
図は、たいして大きくないですー。以前は普通に入れられてた普通のｻｲｽﾞです。
本当まったく原因がわからなくて・・・。
返事くれてありがとーございました。もぉ少し調べて、それでも無理ならリカバリ・・・・

>>975
壊れたんですか〜？！それは、怖いー！！
さっそくバックアップとっておきます。ディスクもギーギーうるさい時あるし・・・壊れる寸前かも。
ありがとーございました。

http://homepage.mac.com/hiroyuki44/hankaku09.html

http://homepage.mac.com/miku24/

1000に近い。。

質問があります。わかる方がいましたら、お願いします。

セルに文字を入力するなど編集したりする時に、F２キーを押して、
編集しているんですが、たまにうちまちがってしまい、F１キーを
押してしまい、(重い重い…)ヘルプ画面を開くことになってしまいます。
そのたびに時間をロスすることになり、イライラさせられます。
F１キーを押してもヘルプ画面が開かないようにしたいんですが、
そんなことって可能ですか？オプションにはそれに該当するような項目は
ないようでした。
もし、それが不可能でしたら、なにかいい方法はありませんでしょうか？
宜しくお願いします。

ダブルクリックでいいじゃん

>>980
キーを外す、爪楊枝でロックする等の方法があります。



それが嫌なら過去スレを探しなさいと

質問させてください
エクセルバージョン　9.0.3821　ＳＲ-1
OS　98SE　4.10.2222　A
で使用してます。

聞きたいことはセルにデーターを打ち込んでEnterを押すとカーソルが
下に移動するのですがこれを右に移動させるにはどうすればいいでしょうか？
教えてください。

>>983
ツール→オプション→編集タブ
「入力後にセルを移動する」で方向を「右」に設定。

次スレ立てるよ。

次スレ誘導

Excel総合相談所　15
http://pc2.2ch.net/test/read.cgi/bsoft/1057720306

以後の質問はこちらへどうぞ。
こちらで、未解決のものは向こうにも貼るのが吉

>>984
出来ました、ありがとうございます。

Excelばっかりやってたら、くしゃみが「えくせる！」になってしまいました。
どうしたら治りますか？

>>988
ツール→オプション→全般→Beep音[詳細]で

くしゃみは治りましたが今度はしっやっくりが
「ぇっくせる」と止まりません。

>>990

Do while しゃっくり.Voice = "ぇっくせる"
　Drink.Style="逆立ち"
　Water.Drink
　if しゃっくり.Voice = "えぐっ" then
　　Water.Drink.More
　elseif しゃっくり.Voice = "げほっ" then
　　胸.Hit
end if
roop

roopねぇ

ろーぷ？

捕まるまで、Do　する？

>>993
ropeだし・・・・・

とりあえず吊ってみようか・・・・・・・

>>991
つか、End Ifのインデントずれが位置汁しく気になる・・・・・

エクセルの段組はどうやるのですか？

http://homepage.mac.com/hiroyuki44/hankaku09.html

998

>>1000
ｵﾒ!

>>1
お疲れ様。

このスレッドは１０００を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。