Excel総合相談所７

Excelに関する質問は、ここで！

・質問する人は可能な限り具体的に書くこと。
・Excelのバージョン、OSのバージョンも書くとレスが付きやすい。
・回答がなくてもキレないこと。
・分かる人はできるだけ回答して下さいませ。

前スレ
Excel総合相談所6
http://pc.2ch.net/test/read.cgi/bsoft/1023811906/

過去スレは、>>2を参照

【過去スレ】

Excel総合相談所
１　http://mentai.2ch.net/bsoft/kako/965/965792827.html
２　http://pc.2ch.net/test/read.cgi/bsoft/986283001/
３　http://pc.2ch.net/test/read.cgi/bsoft/1004432306/
４　http://pc.2ch.net/test/read.cgi/bsoft/1012439547/
５　http://pc.2ch.net/test/read.cgi/bsoft/1018055390/

Q.セルに入力した値が勝手に変わってしまうのですが
（先頭のゼロが消えてしまう、日付として解釈されてしまう）
　入力したままの形で表示させるにはどうしたらいいですか？
A.入力する時、先頭にアポストロフィ(')をつけるか、
　該当するセルで右クリック〜「セルの書式設定」〜「表示形式」で「文字列」を選択。

ＰＤＦの財務諸表の数字をコピー＆ペーストしてエクセルに
そのまま移植したいのですが、どうもＰＤＦのようにうまくいきません。
何故かエクセル上では１行にだけズラーッと長く表示されてしまいます。
どうしたら巧くコピーできるのでしょうか？

>>4
区切りたいところを選択して、
データ→区切り位置→（以下省略）
で、うまくいくかもしれない。

ExcelのVBAを読まなくっちゃならなくなったんですが、
その中に出てくる、":="って演算子はなんなんでしょうか？
ぐぐる博士に聞いてみても":="は無視されてしまって…
C言語の "=" "==" と同様に、
比較等号は =
代入は :=
という解釈で合ってますでしょうか？
でもなんか違う気がする…

>>6
名前付き引数

ちょっと会社でワニワニパニックなので
失礼しまっす。ｶﾞｲｼｭﾂ＆糞な質問でしたらスルーでいいんですが、
エクセルで誤って上書き保存してしまった場合
簡単に元に戻せるんでしょうか。うちのヤクザみたいな部長が
やらかしたんで文句が言えず困っています。

age

>>8
戻せないしスレ違い。

例えば
大分類と小分類（別々のセル）にそれぞれ英数字があって
その組み合わせで文字列が決まってるとすると
その大分類と小分類の英数字を入力すると文字列が
返ってくるって関数はどうしたらいいのでしょうか？

大分類と小分類ってヤツの意味が解らんので回答不能。
具体的に説明して味噌。

>>11
大分類と小分類を組み合わせて文字列を探せる表を作っておき、
検索関数で返すとか。

表が、
ColumnA　ColumnB
　　0　　　　　　　1
　　0　　　　　　　2
　　0　　　　　　　1
　　1　　　　　　　1
　　1　　　　　　　1
　　1　　　　　　　2
　　2　　　　　　　2
　　3　　　　　　　1
　　4　　　　　　　1
のようになっていて、
コラムAが3のもののコラムB合計を出したいのですが
どなたか教えてください。

C1に =IF(A1=3, B1, 0) として、
下にフィルして、C列をSUMする

>>14
データ部分が「A1からB9」に入っているとして
合計 =SUMIF(A1:A9,3,B1:B9)

>>14

=SUMPRODUCT((A1:A9=3)*(B1:B9))

>>7
・・・・(ﾟдﾟ;;)ﾊｯ!!
こっこれ関数呼び出しやったんか。
ｻﾝｸｽです。

>>15,16,17
ありがとうございました。バッチリうまく行きました。

>>18

関数じゃなくて、引数

ひょでーい！

セルに数式を入力すると、その結果（答え？）が表示されますよね？
数式バーではなく、そのセル自体に入力した数式を表示させる方法ってありますか？
教えて下さい。
（エクセルのヘルプで探してみたのですが、見つけられませんでした）
よろしくお願いします。

>>22

'=B1*2
のように　数式の前に　　’　を入力する

>>23
ありがとうございました。もっと勉強します（汗

>>22　シートごと、まとめて数式を表示させるなら…
メニューの「ツール｣−「オプション｣−「表示」(ﾀﾌﾞ)−「数式(R)」に
チェックを入れる。　戻す時はチェックを外す。

>>22
書式→セル→表示形式　で　文字列　にして　Enter

>>22は、
文字列として数式を入力したいのではなくて、
どんな数式が入っているのか確認のために見たいということだと思うので、
>>25がいいと思う。

遅れてすいません。
例えば、大分類が「1」で小分類が｢11」だったら○○○と言う文字列が
大分類が「A」小分類が｢AA｣だったら△△△という文字列が返ってくる
等と言うワークシートを作りたいのです。
一応

大分類　小分類　文字列
　1　　　11　　　○○○
　A　　　AA　　　△△△
　・　　　・　　　　・
　・　　　・　　　　・

と言う表は作ってるのですが
これを使って任意の場所に大分類小分類のコードを貼り付けると任意の場所に
文字列を表示させたいのです。
よろしくおねがいします。

>>28
小分類の頭には必ず大分類がくっついているのか？
それなら大分類は不要に思えるが。
そうではなく、大分類が同じで小分類が違う（またはその逆の）項目もあるのだったら、
その表から、以下のような表を作成する。

大分類　小分類　大小分類　　文字列
　1　　　11　　　111　　　○○○
　1　　　22　　　122　　　□□□
　1　　　33　　　133　　　◇◇◇
　A　　　AA　　　AAA　　　△△△
　・　　　・　　　・　　　・
　・　　　・　　　・　　　・

そして、大小分類の列で　=VLOOKUP()

>>28
1-AA や A-11 のような君合わせももあり、総当りの組み合わせが考えられるなら
縦横のトーナメント表のような表を作り、MACTHとINDEXかVLOOKUPを組み合わせて検索。
この組み合わせは覚えておくと便利。
こんな↓感じ。　
http://arena.nikkeibp.co.jp/lecture/excel36/20020521/01/

訂正 MATCH (恥･･･）

Excel97を使っているのですが、Lotus123のWK4ファイルを読むと
A B C
1
2
3
の行、列のタイトルの所のフォントがとても大きくなって（セルは10pなのに13pぐらい）
しまいます。
元のフォントに戻す方法はないのでしょうか？

↑自己解決できました。
すみませんでした

Excel 97使用中のものです。
ソルバーを使用して、最適値を出す方法は理解できるのですが、
例えば現在1.2の値をソルバーかけて2.0に最適化した際の、
間の値を0.1づつトラックかけることは出来るのでしょうか？
また、その値は3次元の折れ線で表示することは出来るのでしょうか？

>>34
最近のバージョンはよく知らないけど、
ソルバーで途中経過をグラフにするのはできないと思うので、
シートを複製して、1.2, 1.3, 1.4 ... 2.0の値を入れ、
自分でグラフにしたら？

Excel2000を使って、社内の専用システム（アクセスで作ったもの）
の操作マニュアルを作ろうとしてます。
エクセルのブック上に、アクセスの画面の一部を抜き出して写真のように
貼り付けている書類を良く見ますが、あれってどうやってやるんですか？？
ちなみに貼り付け元のアクセスには、「ファイル」「編集」などのメニューはなく、
マウスで範囲選択して右クリックという操作もできません。
ついでにwebページの貼り付け方も教えていただけると嬉しいのですが…
これってエクセルじゃなくワードでやるべき？

Alt+PrintScreenじゃダメなのか？

http://kado7.ug.to/net/


朝までから騒ぎ！！
　　　小中高生
　コギャル〜熟女まで
　　　メル友
　　i/j/PC/対応

女性の子もたくさん来てね
　　小中高生大歓迎です　　　　　　　　　　　　　　　　　
全国デ−トスポット情報も有ります。
全国エステ＆ネイル情報あります。

　　激安携帯情報あります。

普通に打ち込んだ文字を16進数の文字に変換することってできますか？
バージョンは97です。

>>39
=DEC2HEX()
ヘルプぐらい見れ

>40
ごめんなさい。
A1に文字が入っている場合、どこにその関数を貼り付ければいいのでしょうか…
すいません!!

>41
まずは、分析ツールを組みこんでますか？
ヘルプは読みましたか？　

ん、文字？　数値やないのか？＞16進数

エクセルの単純な縦・横計算をするにはどうすればいいの？
あと、シートを９こつくってそれぞれの表の合計を１０こめのシートに
飛ばしたいのですが。
イルカの説明がよくわかりません〜。

単純な縦・横計算 って、合計のこと？
イルカは貴方の言葉がよくわかりません〜　って言ってないか？

とりあえずこの辺↓の事は理解してるか？
ttp://homepage1.nifty.com/kenzo30/ex_kisonyu/ex_ks_nyumon7.htm

同シートのA1からE5までの合計は　=SUM(A1:E5)
｢sheet1｣のA1からE5までの合計は　=SUM(Sheet1!A1:E5)

>>44は本屋に行ったと思われる。
http://pc3.2ch.net/test/read.cgi/pc/1029164038/84

>46
あはは、他板から見たらココは敷居が高いのかぁ？
そこ(ｺｺ)でこんな質問したら怒られると思うぞ。って。
ココで怒られてる人ってあんま見た事ない気がするが･･･（漏れは嫌味を言ったが）
実際あんまり初めてだと言葉で説明しきれない、本でも見てくれと内心思いつつも
ココで、本屋行けッつのも余り見ない。
結論？　ココの住人は結構面倒見もいいと思う。

最低限のマナーを守れば、こんなにレスも早いし親切なところ
はないと思う。

過去ログも読まないググってもみないで意味不明なことを聞く
ヤシは放置で当然。
「初心者です」は免罪符になりません。

>ググってもみないで

きぼちわるい

ハイ早速、放置で当然。

A1,A2,A3…セル内のデータを
A1,B1,C1…に一瞬で移動させるにはどうすればイイのですか

http://kado7.ug.to/net/


朝までから騒ぎ！！
　　　小中高生
　コギャル〜熟女まで
　　　メル友
　　i/j/PC/対応

女性の子もたくさん来てね
　　小中高生大歓迎です　　　　　　　　　　　　　　　　　
全国デ−トスポット情報も有ります。
全国エステ＆ネイル情報あります。

　　激安携帯情報あります。

>>51
ディスプレーを90度回す
駄目ですか?

>>53
ていうか90度回りませんから駄目です

首を９０度まわす、と言いたいところだけど、
形式を選択してペースト、の行列の入れ替え。

>51を一瞬にする方法は知らん。が、
A1,A2,A3…セル内のデータを
B1,C1,D1…に一瞬でコピーさせる方法なら判る･･･
駄目ですか？

わかるなら胃痔悪しないで
教えてあゲロや！

>57
いや、55で出ちゃったんで･･･

>>55
thanks

ｽﾏｿ、逝ってきます

Excelの2枚目にマスターみたいのをつくって、1枚目で[▼]みたいのを押して
マスターから選択させたいのですが、可能でしょうか？

化膿です。

どうやってやるの？
おせーて、おせーて

おはようございます。横レスですが･･･
「データ」−「入力規制」−入力値の種類で「リスト｣です。

他のワークシートの参照ができなくて、2シート目の行を指定できないのですが…。。

http://kado7.ug.to/net/


朝までから騒ぎ！！
　　　小中高生
　コギャル〜熟女まで
　　　メル友
　　i/j/PC/対応

女性の子もたくさん来てね
　　小中高生大歓迎です　　　　　　　　　　　　　　　　　
全国デ−トスポット情報も有ります。
全国エステ＆ネイル情報あります。

　　激安携帯情報あります。

検索について

セルに色々書かれているデーターの一部文書を検索する時
「編集」辺りに検索を使っていますが、これって一々タイプ
しないでコピペで貼り付けて検索クリックしたいんですが
そー言う設定は出来ますか？？

>>67
検索する文字列をコピーしといてCtrl+V。これ基本

データのふりがなで
Ａのセルにそれぞれ山本、James、Mr、Beatles
と入力すると関数を使って自動的に
Ｂのセルにﾔﾏﾓﾄ、ｼﾞｪｰﾑｽﾞ、ﾐｽﾀｰ、ﾋﾞｰﾄﾙｽﾞ
みたいにできますか？

>>69
辞書を作っておいて、VLOOKUP()などで。

>>65
もうできたでしょうか？
別ｼｰﾄのﾘｽﾄは、ﾘｽﾄ範囲に名前を定義してから
その名前で参照させる必要があります。

Excel2002です。
A列　　　B列
本体　　　　　付属品
きなこもち　　きなこ
あべかわもち のり
　　　　　　　醤油
わらびもち　　わらび
　　　　　　　黒酢
というようなデータを作っていてA列を基準にしてあいうえお順に並べかえたい
のですが、その時にB列も同時並べ替えると、
A列　　　B列
本体　　　　　付属品
あべかわもち のり
きなこもち　　きなこ
わらびもち　　わらび
　　　　　　　黒酢
　　　　　　　醤油
とかなってしまいます。本体と付属品の対応関係が崩れないように並べ替えるには
どうしたらいいのでしょうか？並べ替えたら↓のようになる方法を教えてください。
A列　　　B列
本体　　　　　付属品
あべかわもち のり
　　　　　　　醤油
きなこもち　　きなこ
わらびもち　　わらび
　　　　　　　黒酢

>>72
のり・醤油やわらび・黒酢といった付属品を
一つのｾﾙ内にいれるとよいのでは。
セル内での改行はAlt+Enterです。

日付を
H14.8.16 や
H14.08.16 ではなく
H14. 8.16 と表示させたいのですが、
ユーザー定義の表示形式をどのようにして良いか
わかりません。何か方法は無いでしょうか。

>>74
Excel2000まではできないはずです。
2002は分かりません。

>>75
ありがとうございます。
2002に少し期待してみます。

>>72
あるいは、
A列　　　　　B列　　　　C列
本体　　　　　付属品１　付属品２　　　　
きなこもち　　きなこ
あべかわもち　のり　　　醤油
わらびもち　　わらび　　黒酢
のように並べる。

>>73 >>77

発想の転換ですね。

でも、申し訳ないのですが、実は
A列　　B列　　C列　D列　　E列
本体　付属品　価格　個数　保管場所
という風にデータの系列がもち一種類ごとに4列あります。

A列の「もち」の名前を基準にして、きなこもちグループ、
あべかわもちグループといったグループ単位であいうえお順に
並べ替えたいのです。わがまま言ってすいません。

解決策 >>78
(案1)もちの名前を省略せずに全行入力する
(案2)もう一列追加して、グループごとに一意の番号を振る
(案3)ごりごりVBAを書いてやる
２行目以降のもち名を省略した場合、それが上の続きであることは人間側の勝手な
慣習に過ぎず、エクセルには理解できない。並び替えのためには、各行が同一グル
ープであることをエクセルに対しロジックで明示しなければならない。

MsgBox Int(1.2 - 0.2)
が０になるんですがバグでしょうか？
ＥＸＣＥＬ２０００です。

浮動小数点問題
ttp://support.microsoft.com/default.aspx?scid=http://www.microsoft.com/JAPAN/support/kb/articles/JP78/1/13.asp

むかーしからある事象で別にEXCEL2002に限ったことではないです。

>>80
お騒がせしました。
変数に入れたら直りました。
x = 1.2 - 0.2
MsgBox Int(x)

>>79
案1でいこうと思います。ドラッグするだけですし。
やっぱり、そういうもんなんですね。
ありがとうございました。

Excel97を使用しはじめました。＜いまごろ
郵便貯金の定額貯金や定期貯金での半年複利を計算する関数は
NOMINALを使えばいいのでしょうか？
預入期間は日割りだから年というのはダメかも。

元本 金利 預入期間　現在の金額
10000 0.02% 1年　　　　 ???

>>84
金額を求めるのはFV
ただし、定期の場合、半年毎に利息は切り上げで税金は切り捨てになるので、
１円単位できっちり求めたいときは、半年毎に掛け算する。

半年毎、と書いたのは、満期毎です。
郵貯の場合、利子額シミュレーションの方が手軽かも。
Excelと関係ない話でｽﾏｿ

現在開いている任意のテキストファイルを
エクセルに貼り付けることはできないですかね？
（テキストファイル名を入力させないで）

意味不明だったらごめんなたい。

>>85
ありがとうございます。
ウェブのシミュレーションのことですよね。
確かにそうなんですが、Excelでできるかなと挑戦してました。
しかし、難しいですね。検索しても複利計算できるソフトはあるのに
Excelでやってるのはどうもみかけませんでした。

↑あっ、まだ作れてませんけどね．．．

>87
意味不明だけどVBAの質問だったらこちらへどうぞ

エクセルＶＢＡ質問＆研究板
http://pc.2ch.net/test/read.cgi/bsoft/1008219498/l50

ていうか、マルチかよ！

日付　業者名　　　品名
1/12　 A　　　 パンツ
2/16　　C　　　 ﾃｨﾑﾎﾟ
3/18 B パンツ
4/22 E ブラジャ
4/26 A パンツ

各業者のパンツを売った一番最初の日付を抜き出すこと
出来るんでしょうか？
パンツだけなら簡単なんですけど・・・

>>88
年0.02%の単利で10万円を１年預けた場合だと、
=FV(0.02%*0.8, 1, 0, -100000)

年0.02%の半年複利で10万円を２期（１年）預けた場合だと、
=FV(0.02%*0.8/2, 2, 0, -100000)

ポイントは、
FVは借金の計算をするものなので貯金の計算の時は元金をマイナスで入れること、
どうせFVは切り上げや切り捨てをしてくれないために誤差が出るので
税引きの計算は*0.8で簡略化。

ちなみに、誤差なしで計算したければ、満期の時に送ってくる計算書と同じように、
=100000*0.02%/2を切り上げて利息を求め、
それに*15%と*5%して切り捨てして税金を求める。
これを、複利の回数だけ繰り返す。
切り上げや切り捨てのやり方は、郵貯や銀行によって色々違うらしい。

求人女子限定　かなりおいしいバイト！！
　●喫茶店で３０分男性客とお茶するだけで五千円の収入！　　　　　　　　　　　　
　●月収１００万円も可能です。脱がない、触らせない、やらせないので安心して働けます。
　●簡単に言えばデートのお店です。初心者未経験大歓迎！年令容姿不問です。
　●自宅待機で結構ですので、面倒くさい店での待機もしなくて大丈夫。副業としてもＯＫです。
　●普段ＯＬなどやってる方でも大丈夫。秘密厳守。許可済み店なので本当に安心して働けます。
　●風俗総合商社ＭＴＴどこでも！　
　
　 http://www.mttdocomo.jp/
　　　　
　

　

>>92
並べ替えの優先するキーを、順に
業者、品目、日付、
とすればいいんじゃない？

あーなるほど
でも最初の日付だけでいいんですよ
抽出したいのは
じゃないと膨大な数なので。。。

>>96
ｵｰﾄﾌｨﾙﾀで絞ったら？
日付はﾄｯﾌﾟﾃﾝ→下位1項目でいけるんじゃない？

あ、でも業者数が多いと業者ごとに絞るのは
大変になっちゃうね。ｺﾞﾒﾝ。

>>97
あ・・
全業者のパンツを最初に売り上げた日付なんです

今やったら一番若い日付だけ残りました

あ

かぶった

>>93
丁寧にありがとうございます。
FV関数1つで容易にできるというのではないのですね。
税引き前の10年分の計算を次のようにやってたのですが、
おっしゃるように誤差だらけ。

A B C D
1 1口口数金利金額
2 \1,000100.01%=FV(C2/2,10*2,0,-A2,1)*B2

↑なんか表示おかしい

　　A　　　　B　　　　C　　　　D
1　1口　　　口数　金利　　　金額
2　\1,000　10　　　0.01%　　=FV(C2/2,10*2,0,-A2,1)*B2

>>92
まずパンツのﾃﾞｰﾀのみ抽出したものを別途用意。
それから条件範囲として
業者名　業者名　業者名・・・
Ａ　　　　　Ｂ　　　　　Ｃ　　・・・
みたいに作っておいて
日付のフィールドをDMIN関数で返せないかなぁ？
条件範囲を相対参照にすればドラッグ一発でできそうだけど。

パパだってママの母乳が飲みたいんだよ、トローリ初乳チュパチュパ画像
http://jbbs.shitaraba.com/computer/bbs/read.cgi?BBS=2784&KEY=1029503890&LAST=100

>>102
郵貯の場合、0.01円だかの利息が1円に切り上がるので、
大きく違ってくる。
というか、FVは内部で繰り返し計算しているだけのようで、
切り上げ切り捨てさえ関係なければ答えは一致するようだ。

WIN98上でエクセル2000を使っています。
使用後きちんと保存したにもかかわらず、
ファイルWクリックでを開くと何も無い状態（ブックが何もない
灰色の状態）になってしまい、以前の保存したものが
呼び出されません。[ファイル]→[開く]でも同じです。
ファイルのバイト数はある程度の数値があるので、
全く消えてなくなってしまっているわけではなさそうです。
先日まで正常に使えていたのですが・・突然こうなりました。
しかも、ほかのファイルでもたまにこうなります。
どうしてこの様な事が起きるのでしょうか？
どなたか解決策をよろしくお願い致します。

>>106
祈りが足りないのです！
宗派はどこですか？

WIN2000で、OFFICEXPです。
EXCEL XPでショートカットキーの一覧を印刷するマクロはあるのでしょうか？
ヘルプでうまくさがせませんでした・・・。
ご存知の方お願いいたします。

>>105
いろいろありがとうございます。
今のところ、切り上げ切り捨てが大問題です。
１ヶ月定期の計算が全く違う結果となります。
しばらく勉強して出直します。

>106
ツールバーのウインドウ→再表示をやってみる。だめなら祈る。

>>35
亀レスですんません。
ご返答ありがとうでやんす。
何とか頑張ってみやす。

ｶﾞｲｼｭﾂかもしれませんが・・・

あるデータを入力した時にそのデータの値を
他の担当者別に作った表に反映させたいのですが、
１つずつのセルにリンクの貼り付けをしなきゃﾀﾞﾒなんでしょうか？
たぶん、「統合」の逆バージョンになるんだろうと
勝手に思ってるのですが。

WIN98でEXCEL2000です。

すみません。教えてください。

同じフォルダ内に、データのリストのブック（B)と、
そのデータを読み出してきて計算させるブック（A)とがあり、
計算をさせようとして、（A)のブックを開くと、
「データが更新されているので、更新しますか？」というメッセージが出て、「はい」を選択すると
えらいこと時間がかかった挙句、フリーズしてそのまんま…ということが5回に３回くらい起こるのです。
（データの更新があってもなくてもこのメッセージが出ます）

このメッセージは毎回出るものでしょうか？
　（ちなみに、（B)を最初に開いた上から（A)を開くとメッセージは出ません。が
　（B)はとても重いものなので、出来れば開きたくないのです）
それと、フリーズしてしまうのは、パソの問題でしょうか？
win95でエクセルは98です。
よろしくお願いします。

>>113
(A)は(B)のデータを見ているので、更新するかというメッセージは必ずでるはず。
(B)は(A)のデータを見ているわけではないので、メッセージはでません。
(B)が重いとのことなので、軽くするか、データの結果を(A)にペーストするな
りの工夫が必要になる、と思われ。
あと、スペックがわからし、(B)がどんくらい重いか知らんのでわからんが、
win95だとちょっときついんじゃないかと思われ。

あと、祈りが足んないかと……

>>112
そのデータが任意の量だと、その方法しかないと思われ。
VBAで作った方が手っ取り早いはず……

>>113
Bが更新されていないことが明らかなら、「更新しますか？」に「いいえ」と答えればいい。

「はい」を選択した場合は、画面には現れないところでBを開いているので、
あらかじめBを開いておく場合と、やっていることは同じ。
Bを先に開いておいた方がフリーズしにくいのなら、そうすればいいと思う。

メッセージが出ないような設定にすることもできるが、
その場合は、常に「はい」と答えるのと同じことになるのだと思う。

Bが重いというのが根本的な問題なので、
Bの中でAから参照している部分が少ないのならそこだけ抜き出しておくとか、
変更ないことがわかっている部分は数値／文字としてペーストしておくとかで、
軽くするしかない。

>>82
ここにもそんなことが書いてあるけど
でたらめなのはよくないと思います
ttp://www.moug.net/mmaga/main_magbn046.htm

ありがとうございました。明日、上司に報告します。（ｗ
よくわかんない同士でいろんなことしてみているので、不安で…。

データのリストを軽くできるかどうか、考えてみます。
ほんとにありがとうございました。
またよろしくお願いたします。

Excelのデータをワープロソフトにオブジェクトとして貼り付けようと
しているのですが、普通貼り付けた後ダブルクリックすると枠線が表示され
どの範囲まで表示するか選択できるにもかかわらず、ある一定以上広げる
ことが出来ません。範囲を狭くするのは出来るのですが、、、

広い範囲を縮小して一ページに収まるようにしたいんですが、エクセルでは
きちんと収まるのに、Word,一太郎ともに途中までしか表が表示されません。

どなたか助けてくれませんか？

ｶﾞｲｼｭﾂかもしれませんが。。。

参照元の数値を変更しても、参照先の数式でその変更が反映されないという状況に
陥ってしまいました。
ただ、全く自動計算されないかというとそうでもなく、どうも参照元を他のシート
から引っ張ってきてる数式において、特にその症状が発生しているようです。

具体的に言いますと･･･
仮に、Sheet3のA1に「=Sheet1!A1+Sheet2!A1」という式を入れております。
で、Sheet1やSheet2のA1を変更しても、それだけでは、Sheet3のA1の値が
更新されないという状態です。
ただ、Sheet3のA1セルをダブルクリックして一度アクティブにすれば、その後
ちゃんと計算されます。

･･･ということで、こういった状態の解消の仕方をご存知でありましたら、
是非お教え下さい。
なお、
・「循環参照」で確認したところ、循環数式は表示されませんでした。
・「ツール→オプション→計算方法」では、計算方法自動にチェックされております。

どうぞ、よろしくお願いします。

>>120
祈りが足りないのです！
宗派はどこですか？

OfficeXpのエクセルで質問です。ＯＳは２０００です。
ホームページ上のテキストをクリップボードへコピーした後、エクセルのセルに貼り付けるのですが、
ただのコピーつまりＣｔｒｌ＋Ｃで貼り付けると、フォーマットまでコピーしてしまいます。

フォーマット情報は付けずにテキスト情報だけコピーしたいのですが、そのためには
右クリックからペーストスペシャルを選択してテキストとして貼り付けるオプションを選ぶか
普通にコピーした後で表示されるペーストアイコンから貼り付け先のフォーマットに合わせるを選ばないといけません。

どちらも非常に手数がかかり、煩雑です。
私の用途では殆ど例外なくテキスト情報だけ貼り付けたいのです。
フォーマットなしの貼り付けをデフォルトにする方法、もしくは簡単にする方法を教えてください。

>121
ｽﾏｾﾝ。ｿﾞﾛｱｽﾀｰ教です。
この資料が作成出来なかった場合は、
ｶﾅﾘｱで鳥葬にされてしまうんです。
（ｳﾄｩ

Office97の時のフライトシュミレーターみたいな
裏技はXPには無いのでしょうか・・・

>>123
アフラマズダ様に祈りなさい

Excel2000で質問です
フィルタで絞り込んだデータに番号を振りたいんですオートフィルではうまくいきません
何かいい方法はありませんか？

>>126

フィルタ後に番号を振りたいセル範囲を選択してから、実行

Sub aaa()
Dim r As Range, i As Long
　i = 1
　For Each r In Selection
　　　If Not Rows(r.Row).Hidden Then
　　　 r.Value = i
　　　　 i = i + 1
　　　End If
　Next r
End Sub

エクセル上の計算は1.4+1.4+1.4+1.4＝5.6だけど、
表示は四捨五入されて1+1+1+1＝6となり、
電卓で表示された数字だけを足すと1+1+1+1＝4で、
「電卓と計算が合わないじゃないか！（怒）」と怒られます。
こういう場合、見た目と結果を合わせる良い方法ありませんか？
ちなみに全部ラウンドダウンしても結果は6となってしまいます。

>>128

=ROUNDDOWN(1.4,0)

>>129
出来ました。ありがとうございました。

>>128-130
わざわざ1.4と入力しているのに1.0として扱いたいというのならそれでいいけど、
表示形式で小数点以下まで表示させるか、表示桁数で計算にする方が
本筋じゃないかなあ。

すみません。120ですが、マジで困っております。
ご存知の方おられましたら、改めてよろしくお願いします。

>>132
エクセル自体が壊れてるってことありませんか？
エクセルが壊れると、どこかの調子が悪くなります。
一度、インストールし直してみては・・・

>>120
試してみたけど、そんなふうにはならないよ！
他のシートの変更は直ぐに計算結果に反映されるよ！
Ｆ９とか押しても反映されないのかな？
マシンが2台以上なるなら、他のマシンで同じ事をしてテストしてみては？
エクセルの再インストールが必要かも？

>132
うちではセルに妙な履歴（隠れ履歴？）が復活する場合があった。
例えば”=A1+B1"を文字列で入れてしまい、後で普通の計算式に書式指定で戻したときなど
忘れた頃に文字列らしき振る舞いとして復活する。このときセル上の確定キーで通常に戻る。
そのときは新しいシートにデータを移し解決した。参考に・・・・・

>>127
うまくいきました
どうもありがとうございました

>>120
関係ないかもしれないけど、
記憶の片隅にあるんですが、
表が5行？より小さい場合とか、再計算されないことがあった
ような気がします。
該当でなければ、すみまそ

>>120
データ（数式）が多すぎても再計算されませんでした。
そのときは、ステータスバーに「再計算」って書いてありましたけど。
もちろん、計算は自動に設定されていましたよ。

>>120
ＶＢＡを使ってたり、はユーザー定義関数を使ってたりする？
「何それ？」というのであれば、関係ないけど(w

>>115
ﾚｽ遅くなりました、ｽｲﾏｾﾝ。
やっぱり、それしかないですよね・・・
ありがとうございます。
VBA・・・ﾁｬﾚﾝｼﾞしてみます。

>120

セルの書式設定を「標準」にして、メニューのデータ−区切り位置−完了

でどーよ。

Excelで漸化式とガウス記号を使いたいのですが、やり方が全く分かりません。
どなたかやり方を知っていたら教えてください。
具体的には
A1セルにa_1 = 10000
A2セル以降任意のセルまでa_n+1 = [a_n/10000]*10000*0.3 + a_n
とやりたいのですが、ヘルプでは漸化式もガウス記号もヒットせず、見つかりません。
ご存じの方いらっしゃいましたらお願いします。

>>142
VBAでこのスレを探してくらはい

>>142
ていうか、おいおい
そもそも前科式のナンたるかを判って居られぬのでは
あるまいな?

セル参照とオートフィル、
Excel的には初歩の初歩の初歩の初歩なのだからして、
数学科目の宿題の題意を判っていないだけなんでしょう。
ボクちゃん、がんがれ。

ていうか、ガウス「記号」なんぞも探すなってば。
関数をお探しなさいな。

>>144
上のセルを参照して無理やりやれば出来るだろうと言うことは分かるのですよ。
でも、出来るだけスマートにやりたいのです。
ガウス記号もround関数を使えばきちんと出来るのは分かるんですけどね。

>>145
だ　ー　か　ー　ら　ー

上のセルに対する参照を自分の手で書きたくなかったら、
すでに >>143 さんが逝って居られるように、
自分で関数を自作すればいいわけさぁ。

てか、どこが無理矢理なんですか　(ﾟдﾟ)ｺﾞﾙｧ!!
表計算ソフトの常道がお嫌いでしたら　（・∀・）ｶｴﾚ！

しかもガウス「記号」がスマートでよろし、という
審美的ニーズに至っては　　･ﾟ･(ﾉД`)･ﾟ･｡

Excel よりも 1-2-3 よりも 三四六 よりも MS Works よりも
マルチプランよりもエポカルクよりも凄い表計算ソフトを
貴殿が作りなされ。

セルに入力されている文字列（たとえば"ABC１２３４５"）を、
[表示形式]の設定だけで編集（"ABC-１２３４５"）して表示させる方法を探しています。
関数、マクロ等を使用せずに実現することは可能でしょうか？
ご存知の方がいらっしゃいましたら、よろしくお願いします。

文字列に対する表示形式は甚だ非力。
よって無理。

>>147
試していないんだけど、
桁位置固定の書式は定義可能だと思います。
数数値項目であれば、値が正、０、負、NULLの４つの場合の書式を定義し、分岐させる事も可能だと思います。
文字列項目であれば、NULLの場合とそうでない場合の２つの書式を定義し、分岐させることも可能だと思います。
それ以上の事は出来ないと思います。

>>147
数値ならともかく文字列はむりぽ。
関数かVBA使うしかないみたい。

>>124
フライトシミュレーター？やってみたい！
うち97ですのでおしえてください

>>151
イースターエッグ Excel97
で検索汁

エクセル９７だとファイルをなんこか同時にひらいても
ウィンドウは一つだったのに２０００だと沢山でてきてうっとおしいです。
ウィンドウ一つになんとかまとめられないですかねぇ。

>>122
ユーザー設定をちょこちょこいじると
ALT＋C　で値のはりつけできるようになるけど
それじゃテキストってはりつけられなかったっけ？
違ったらごめんよ。

>122
貼り付けるときセル内でダブルクリックしカーソルを出した状態で右クリックする。
選択肢は貼り付けしか出なくなりテキストのペーストと同じになる。

同様にCTRL+Vでもできる。（実は最近偶然にこれに気がついた）

>>154-155

気長に待ってたら神が出現！！
ただいまエロ動画見ながら２ちゃんの最中なので見終わったら試して見マフ

>>153
[ツール] - [オプション] - [表示] タブで
[ウィンドウをタスク バーに表示] のチェックを外しぃ

セルに計算式をいれて計算をさせるんですが、
その後、その式をそのセル上で値に変換したいのです。（コピーでする方法は知ってます）

そのようなことって可能でしょうか？

なぜこのようなことをするかというと、
そのセルの計算結果によって、セルに色をつけているのですが（色付けは手動です）、
そのWSを別WSにコピーした場合、色まではコピーしてくれないので・・・
（無論、式はコピー時に値に変換できるのでそれをします）
一度セル上で値にして、そのあとコピーすればいいかなと。

分かる方、よろしくお願い致します。

直接の答えじゃないですが･･･

>そのWSを別WSにコピーした場合、色まではコピーしてくれないので・・・
（無論、式はコピー時に値に変換できるのでそれをします）

まず、そのWSを別WSに普通の(ﾀﾀﾞの)コピペをする。
次に、そのままの貼り付け先位置で、右クリ、値のみ貼り付けをする。

これで余り手間を増やさず、書式付き値コピーが可能ではないでしょうか？

>>158
セル全体をコピー
新しいシートに
　１．形式を選択して値をはりつけ
　２．形式を選択して書式をはりつけ
では？

shift + spaceで、たまに行の選択が出来ないときが
あるんだけど・・・なぜ？

>>154
あ、おれうそいってごめんよ。
>>157
げげげ！こんなとこにあるとは気付かなかった！まじありがとうございます〜
>>161
IMEのオンオフに気をつけましょう！
全角扱いだとほんとのスペース扱いになって上手く洗濯できないよん。
このショートカットはIMEオフじゃなきゃきかないハズ

コピーを繰り返すと出てくるパレットを出ないようにするには
どうしたらいいんですか。

>>163
パレットの右肩の×で閉じると
　イルカの
　「ひつようないみたいですね」
　とちょっと　寂しそうなセリフとともに
　以後　出てこなくなりましたけど。
　

>>159
>>160

ありがとうございます。できました！
2回貼り付けるということは考えていませんでした（＾＾；）

とはいえ、同一シート上での値変換はできるかできないかはやっぱり気になりますね＾＾；
実際問題どうなんでしょうか？（使う使わない限らず）

エクセルでCSVファイルを開く際に
2.12.28.33.41.43.45.47.49.59.75.85.87.89.92.99.107.115.118.125
にタブ区切りして、エクセルで保存したいのです。
何十個もCSVファイルがあるのですが、一つのフォルダー内にある複数のCSVファイルを上記条件で
エクセルに変換ってできますか？
エクセルは2000です。。

すみません、ほんっとーに基本的なことかもしれませんが、
列の表示がＡ、Ｂ、Ｃ〜ではなく数字になっているものを
アルファベットに戻す方法を教えていただきたいのですが・・・
（これってＲ１Ｃ１形式？っていうやつになってるのですか？）

>>165
値複写はコピーもとのセルでもできる

>>167
そこまでわかってんなら
ｵﾌﾟｼｮﾝまわり調べたら？
（ｵﾌﾟｼｮﾝの全般ﾀﾌﾞに・・・とつぶやいてみる）

>>166
CSVなのにカンマじゃなくてピリオドで区切られていて困っているということ？
それとも、2.12.28...カラム目で区切りたい？
タブ区切りテキストとして保存する方法がわからない？
たくさんあるファイルの変換を自動でやる方法が知りたい？

たくさんあるファイルを2.12.28のカラム目で自動的に変換したいのです。。

>>171
CSV形式ではなく、固定長区切りという事ですか？
CSVとは、カンマセパレーテドバイバリュー（値がカンマで区切られている）という意味です。
一方の固定長は、値の区切り位置が桁数で固定されている形式の事です。

エクセルで開いたときにセルで区切られてて欲しいのです。。

Sheet1の適当な複数のセルをCtrlキーを押しながら範囲指定して、
VBAで現在指定されている範囲のアドレスを取得する方法を教えて下さい。
A1:C4,D7:F8
みたいに取得したいのですが。

とりあえず表示。
Sub Macro1()
　　MsgBox Selection.Address
End Sub

>>174
追記
　$が目障りだったら、
Sub Macro1()
　　MsgBox Selection.Address(False, False)
End Sub

Excel97で特殊記号を入力したいのですが、縦長の四角になってしまいます。
そして、海外フォントになってしまうのです。
日本語フォントで、かつ特種記号を入力するには、どうすればいいですか。
Win2000ProSP2、MS-IME2000です。

＞169
ヒントありがとうございます。
あせってしまいました。はづかしい・・・

>>173
マクロを記録、にしておいて
ファイルを開き、テキストウィザードでカラムを手動で設定する。
後は、そのマクロのファイル名のところを適当にいじる。
うまくできたら、自分の日本語能力の向上に努める。

>>176
ありがとうございます。
ちなみにと言いますか、書きそびれてましたが、
別のBookのシートなのでSelectionの使い方が分からないのです。

Set BK2 = GetObject("C:\-------\Book2.xls")
Bk2.WorkSheets("Sheet1").Application.Selection.Address
としてみたのですが、うまく動かず…。

>Set BK2 = GetObject("C:\-------\Book2.xls")
>Bk2.WorkSheets("Sheet1").Application.Selection.Address
>としてみたのですが、うまく動かず…。

そりゃそうだ。
Applicationに前（というか親）はありません。

別ブックのシートをどうやって選択するつもりですか？
開いた時点で選択されているのですか？

マクロの記録は出来たいのですが、複数のファイルを一括で行う方法がわからないのです…。

９８ＳＥのラップトップですが　ＥＸＣＥＬ　ＶＢＡ　のプロパテイ内のFontが毛筆体に化けています
どうすれば通常Fontにもどるでしょうか？

>>183

あっ、それバグ。MSのどっかにパッチあったよ。
場所忘れたので探して

>>182
VBAの勉強しる。

>>171
たとえば↓のようなツールを使って「.」を「,」に一括置換するとか
http://www.vector.co.jp/soft/win95/util/se142895.html

試してないからわからないけど
CSVが読み込めない場合はリネームツールで拡張子をtxtに一括変換してからね。

初心的な質問ですみません
エクセル2002をしようしていますが
一ヶ月分の残業時間を計算する方法を教えてください。
（8月1日が1時間20分のとき1.2と入力し、
2日が30分のときは0.3として入力する。
この合計を出す方法です）

>>187
エクセルの日付時間の計算ではシリアル値(内部的に)で取り扱っています。
1時間20分を「1:20」、30分を「0：30」と入力すると、
自動的にこのシリアル値で(内部的に)取り扱ってくれますよ。

あとおせっかいな蛇足ですが、時間入力に「：(コロン)｣を使うのが煩わしい
という方にはオートコレクト登録をお薦めしています。
私の場合は「..」→「：」で登録しているのでテンキーのみで入力できます。

一時間30分を　1.5時間という風に変換すればいいんじゃないのかなぁ

あんまし、スマートな方法ではないけど
A1に1.3　が1時間30分を表すデータが入ってたら

=INT(A1)+(A1-INT(A1))*100/60

をB1に代入したら、1時間30分が1.5という表記に変換されると思う。
あとはＳＵＭでいいんじゃないの
合計の表記を
元に戻したいならまた、逆変換すりゃいいんだろうねぇ

A31に合計が入ってるうとして
=INT(A31)+(A31-INT(A31))*60/100


と書き込もうとしたら
188さんがスマートな解法を示していたので
海を見に行きます。
探さないでください

肝心な事を書き忘れました･･･（汗
計算は「1：20」+「0：30」=「1：50」のように通常の演算ができます。
SUM（Σ）も使えます。

130.13
402.71
368.27
50.38
940.00
....
をそれぞれ四捨五入して合計したいんですが、一発でやるにはどうしたらいいですか？

>>191
合計を出力したいセルにカーソルを合わせ、
=SUM(ROUND(A1:A5,0))
と入力し、
Ctrl+Shit+Enter
です。

>>191

=SUMPRODUCT(ROUND(A1:A5,0))

age

>>192

　配列数式ってなんか難しそうだけど、概念を習得するために
知っておくと便利なことってありますか？

日付で20020824てデータを日付として読み取ってもらえません。
0824←のゼロを取ったら日付データにできるんですけど、
データが多いもので、一発で変換できるようにならないのでしょうか？

>196

=DATE(LEFT(A1,4),MID(A1,5,2),RIGHT(A1,2))

Excel2000を使っています。
環境はWin98SEです。
表を元にグラフを作っていますがパーセンテージの表示がうまくいきません。
40回の内、13だと32.5％ですが、これをグラフにすると33％と表示されます。
また数字によっては逆に0.5％が1％にされる場合もあります。
小数点以下1位まででいいので、グラフに表示させることはできないものでしょうか。

「データラベルの書式設定」−「表示形式」−「小数点以下の桁数」を任意に設定。

>>198
33%と表示されているところをダブルクリックして、
表示形式を0.0%にする。

切り捨てとかの特別な処理をやりたいときは、
計算結果のセルを作っておいてそれを項目名にするという手もある。

>>199
>>200
ありがとうございます。できました。

マクロ又はワークシート関数を用いて
あるセルに「8/24」
と日付表示されているものを別セルに
「　８．２４」
（↑８の前には1ケタ分のスペースがあります）
と全角表示させる方法はないでしょうか？

>>202

A1に 8/24

=JIS(TEXT(A1," m・dd"))

>>196
そのデータが1列に記入されてるのなら
とりあえずこんな感じのマクロで出来るけど。
※テストは複製ファイルでやってね

Sub test()
　　Dim s1, s2, str As String
　　Dim r As Long
　　Dim c As Integer
　　
　　'列を数字で入力
　　c = Application.InputBox("対象の列を数字で記入してください" & vbCrLf & "（例：A列の場合1、B列の場合は2、C列の場合は3、...)", "列指定")
　　'開始行を数字で入力
　　s1 = Application.InputBox("開始セルの行番号を数字で記入してください" & vbCrLf & "（例：1)", "開始セル指定")
　　'終了行を数字で入力
　　s2 = Application.InputBox("終了セルの行番号を数字で記入してください" & vbCrLf & "（例：500)", "終了セル指定")
　　
　　For r = s1 To s2
　　　　ActiveSheet.Cells(r, c).Select
　　　　str = Selection.Value
　　　　ActiveCell.Value = Left(str, 4) & "/" & Mid(str, 5, 2) & "/" & Right(str, 2)
　　Next r
End Sub

>196,204

セル範囲を選択して実行

Sub Test1()
Dim r As Range

For Each r In Selection
　r = Format(DateSerial(Left(r, 4), Mid(r, 5, 2), Right(r, 2)), "yyyy/mm/dd")
Next r

End Sub

使用環境はWindows98,Excel2000です。

複数あるものを1として、他のものも1として数え総数を出す関数というのはあるでしょうか。
(例)
ABC
DEF
GHIJ
KLM
ABC
とあるとき、ABCは重複するので1と数え
DEFとGHIJとKLMを併せて4種類あるという数を返す関数という意味です。

すみません。自分で調べたこととしては、
http://homepage2.nifty.com/kmado/ke_m1.htm
ここで「num2」という関数があるのは分かったのですが
excel2000にはないようなのです。
どなたかアドバイスくださる方がいらっしゃったら
お願いします。

>>206
「num2」はExcel標準の関数ではなく、ページ作者が作った関数なんですよ。
ツール−マクロ−Visual Basic Editor
でエディターを表示して、
挿入−標準モジュール
でモジュールを追加して関数を書きます。
VBAについてはインターネットで検索すると使い方を説明したページがあると思います。
「num2」はページからコピーしてモジュールに張り付ければ試せます。

>>196
A列なら
Columns(1).TextToColumns DataType:=xlDelimited,FieldInfo:=Array(1, 5)
とすれば酔い。

手作業ならデータ、区切り位置、次へ、次へ、日付(列のデータ形式)で
出来るから自動記録して見れ。

>>208
そういうことですか。有り難うございます。

ワード、もしくはエクセルのＦＡＸ送信状のテンプレートがほしいのですが
どこにありますか？
できればありきたりのではなく、ちょっと風変わりなのがほしいのですが・・・

ワークシートを80個ほど作成して、名前も変更したいのですが、
マクロでそれをするにはどうすればよいのでしょうか教えてください。
Win:2000 Ver:2000

実際作ってみたのですが、どこを直せばよいのか教えてくださいお願いします。


Sub ワークシート()
'
'
Dim h As Integer
Dim i As Integer

h = 4: i = 1

For h = 4 To 84
For i = 1 To 80
Sheets.Add
Sheets("Sheet h").Name = "任意 i"

Next i
Next h

End Sub

すいません教えてください。
0=1.5, 0.2=1.8, 0.4=2.1, 0.6=2.4, 0.8=2.7, 1=3.0
として、下記のように

AセルBセル
10
20.4
30.2
10
20.6
30.6
11
21
30.2

を

AセルBセル
11.5
22.1
31.8
11.5
22.4
32.4
13.0
23.0
31.8

のように置換して任意ののワークシートに書き出すマクロを、
どのように書けばよいのか教えてください

環境はｴｸｾﾙ2000,Win2000です
よろしくお願いいたします。

>>212　こういう事？
Sub ワークシート()

Dim h As Integer
Dim i As Integer

For h = 4 To 83
　　i = h - 3
　　Sheets.Add
　　Sheets("Sheet" & h).Name = "任意 " & i
Next h

End Sub

214
ありがとうございます。そのとおりです。
&を使えばよいのですね、勉強になりました。

214のマクロですが、
自分の考えていたのと順番が逆になってしまうのですが、
作られたシートの順番が、任意80、任意79、任意78・・・
となるのですが、これを　任意1、任意2、任意3・・・
となるようにするには、どこを変更すればよいのでしょうか？

sheets.add の部分を以下に変更
Sheets.Add after:=Worksheets(Worksheets.Count)

AというフォルダにあるBブック中に
｢新しく作成されてブックに名前を付けて保存｣するマクロを作りました。
保存部分の記述は
ActiveWorkbook.SaveAs new & ".xls"　　'（newはファイル名の変数）
というものなんです。
これを実行すると新しいブックがなぜか
Aフォルダに保存される場合とマイドキュメントに保存される場合があります。
Aフォルダを指定して保存する方法はありますか？

ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & new & ".xls"
解決策と思われるものを見つけてきました。
これでOKなのでしょうか？
どなたかアドバイスをください。

ActiveWorkbook.SaveAs "C:\123\456\A\" & new & ".xls" とか。
もちろん C や 123 , 456 はＡフォルダの場所を指定。

お世話になりますが、どうぞよろしくお願いいたします。

この度、Office 2000 Professional から Office XP
Professional (SP-2) にアップグレードいたしました。
アップグレード後に、Exvelを起動したところ、
予めマシンにインストールされていた次の３つの
フォント名がダイヤログボックスに表示されず、使用
できない状態が続いています。

1.フォント名
　　FG教科書体
　　FM富士通明朝体
　　FM富士通ゴシック体
2.オペレーティングシステム
　　Windows 2000 Professional (SP-2)

フォントの再インストールを試みましたが、回復しません。
ちなみに、Office XP Professional の Fxcel 以外の
アプリケーションでは、これらのフォントは正常に取得・
使用することができています。
つまり、Excel 使用時のみ取得できないという状況です。

過去ログやMSのサイトも閲覧いたしましたが、どうしても
分かりません。
どなたかご教授いただければ幸いです。
よろしくお願いいたします。

>>211
(´-`).｡ｏＯ（ なんで Excel だろう... ）
ワードのオマケでインストールされてるでそ？
コピって弄って、風変わりにしてみそ。

【3:37】オマエラ、この人を救ってあげてください！
1 名前：(;´Д｀) 02/08/25 09:50 ID:vAQOidcJ
http://www.alpha-net.ne.jp/users2/microsys/livecam35.htm

予定がまっさらじゃネーノ！！！

216
ありがとうございます。
勉強になりました。

折れ線グラフを作りたいのですが

y
｜
｜
｜
└─── x

ではなくて

┌─── y
｜
｜
｜
x

みたいにY軸を横、X軸を縦軸にしたいのですが
どのようにすればよろしいのでしょうか？

↑過去スレ4の188&193に書いてありました。
散布図にしてXとYの項目を入れ替えればいいんですね。
ありがとうございました。

excel2002で作成したファイルを保存して、excel97で読み込むと、2002で使用していた関数の一部(now・sum等)が消えてしまいます。
保存の形式を97形式でしても、同じようなことが起こってしまいます。
これは既知のバグなのでしょうか？
解決方法(参照URL)がありましたら、教えてください。よろしくお願いします

っていうか下位互換は期待しない方が・・・

あ、っていうかExcel2002での保存時にExcel97形式で保存すれば済むことじゃないのかな？

すばやいレスありがとうございます。
はじめに書きましたが、97形式で保存しても、関数が消えてしまいます。
あきらめるしかないのでしょうか？

>>230
Excel971の方に最新のパッチをあててみるとか

ものすごく簡単なことで申し訳ないのですが、
列の固定の仕方を教えていただけないでしょうか？

たとえば、
http://www.stat.go.jp/data/soutan/2002q/zuhyou/s01.xls
のように、スクロールしても、ある列・行は動かなくて、
必要な部分だけスクロールできるといった具合です。

>>232
ウィンドウメニューから、分割とウィンドウ枠固定。
くわしくはヘルプを。

>>225は、過去スレ４までさかのぼったのか。
すばらしい。このスレ参加者の鏡だ。

>>233
ありがとうございます。助かりました。

ほんと、このスレ読めば読むほど、俺あったま悪いのかなあと自信がなくなるよ。

Excelくらいで自信も糞もないっしょ。
何か上位言語でプログラムでもしる。

こんなふうに、何かが発生した時刻が列にダダダーと入っているとする。

2002/8/26 14:12:15
2002/8/26 14:13:12
2002/8/26 16:12:10
2002/8/26 16:12:10
2002/8/26 16:12:12
2002/8/26 16:12:13
2002/8/26 23:32:45

これの発生状況を時系列でグラフにして見たいんだけど、
Excelだけでさくっとできるもんですか?

がーん
エクセル２０００　ＯＳ９８ｍｅです。
普段ツールバーにある式とか文字とか入力するところが　＝　　　が
なくなったぞーーどこにいったんだー？？？
逝っていいのは俺かも！

FMV/desk/m71007:winme
リカバリCDでHDを復元したのですが、
購入時に入っていたエクセル2000やワード2000はどうすれば復元できますか？
ちなみにアプリケーションCDは３枚あるのですがそれらはどれにも入っていないのですよろしくお願いいたします。

普通に
(1)とか入力したいのですが-1に変換されてしまいます。
'(1)と入力すればうまくいくのですが変換されないように
するためにはどうすればいいでしょうか？

↑解決！！

>>238
Ｘ軸を時刻として、Ｙ軸になるデータがないようだけど、
それがあるならできる。
データ入力が済んでいるなら、１分も掛からない。

>>239
表示　→　数式バー

ででてこないか？

>>240
本当にOfficeプリインストール端末か？
最近はOfficeは別途Officeだけのインストールディスクがついていると思うが。
つーか、禿しく板違いだよ。Win板かPC一般板、いや、君はPC初心者板かも。

↑余所の書き込みの名前残してしまった。騙りｽﾏｿ…

>>243
> Ｘ軸を時刻として、Ｙ軸になるデータがないようだけど、
> それがあるならできる。

隣りの列に、それぞれの時刻に対応する整数データが入力されているとします。
(なければないで、とりあえず1とかフィルします)
とすると、どうやるとできそうですか? 教えてください。

いつもperlで時間帯ごとに集計する前処理をしてからExcelに突っ込んでいた
んですが、なんか違う気もしているのです。

>>247
ああ、時間別の頻度のグラフということね。そういうのは時系列のグラフとは言わないと思うけど。
折れ線グラフとか、散布図ならすぐ書けると考えていたけれど、それではダメだったら
FREQUENCY関数で頻度を計算してから棒グラフとかにすることになるな。

enterを押した時にセルは下に移動します。
ではenterを押した時にセルが横に行くように設定するにはどうしたらいいでしょう？

ツール→オプション→編集

>>248
> FREQUENCY関数で頻度を計算してから棒グラフとかにすることになるな。

いけた、いけたよ! ありがとう!
配列関数というのも初めて知った(w

マイドキュメントの中のファイル名全てを、エクセルのシートに表示させたいんですが、そう言う事って出来ますか？
Office2000です。よろしくおながいします。

>>252
できる、と言う回答だけで良いのか？(w

回答前に質問が１点。
マイドキュ下のサブフォルダー内も列挙する必要があるのか？

A，B，Cというアイテム複数の情報をドーナツ円グラフを使わずに、
ひとつひとつ独立した円グラフをそれぞれ横に並べているのですが、
これらの円グラフをひとつのグラフとして（ひとつの凡例で済むような）
表現できないのでしょうか？
現在は、各グラフに使われる全ての凡例用としての捨てグラフを
本グラフの下に隠し、グラフ全体をオートシェイプ枠で囲んでいる次第です。

>>252
'///要ＭｉｃｒｏｓｏｆｔＳｃｒｉｐｔｉｎｇＲｕｎｔｉｍｅ参照設定///

Option Explicit
Public strPath As String
Public lngRow As Long
Sub Write_FileName()
　Dim myFSO As FileSystemObject
　Dim myFolder As Folder
　With Application
　　.DisplayAlerts = False
　　' .ScreenUpdating = False
　End With
　Worksheets(2).Cells.Clear
　strPath = CurDir
　Set myFSO = New FileSystemObject
　With myFSO.GetFolder(strPath)
　　Call s_SubFolder(.Path)
　End With
　Set myFSO = Nothing
　' Call cmdFormatSheet
　With Application
　　.DisplayAlerts = True
　　' .ScreenUpdating = True
　End With
End Sub

Sub s_SubFolder(str1 As String)
　Dim myFSO As New FileSystemObject
　Dim myFolder As Folder
　Dim myFile As File
　With myFSO
　　With .GetFolder(str1)
　　　For Each myFolder In .SubFolders
　　　　Call s_SubFolder(myFolder.Path)
　　　　'/// フォルダー最下層まで再帰処理 ///
　　　Next myFolder
　　End With
　　With .GetFolder(str1)
　　　For Each myFile In .Files
　　　　lngRow = lngRow + 1
　　　　Worksheets(2).Cells(lngRow, "A") = myFile.Path
　　　Next myFile
　　End With
　End With
　Set myFSO = Nothing
End Sub

Sub cmdFormatSheet()
　With Worksheets(2)
　　.Columns("A:A").TextToColumns Other:=True, OtherChar:="\"
　　.Columns("A:B").Delete
　　.Cells.EntireColumn.AutoFit
　End With
End Sub

↑
マイドキュ下のサブフォルダー内も列挙したから

二つ教えてください。

R1C1形式でセルを選択したいのですが、
Worksheets("sheet1").range(R1C1).value=0
としてもセルに内容が書けません。
ヘルプを見てもサンプルも例も見つかりません。
R1C1形式ではどのように記入すれば良いのでしょうか？
具体的にはfor文を使ってA1からA10までを指定した内容(例えば0)で
埋めたいのですが、R1C1形式の指定が出来ない為上手くできません。

もう一つですが、例えば　02/08/27 18:00とセルに書かれている時、
ＮＹタイムでもし02/08/27だったら・・・と言う判断はどのようにすれば出来るでしょうか？

よろしくお願いします。

>>257
上は
For i = 1 To 10
    Worksheets("sheet1").Cells(i, 1).Value = 0
Next
で良いんじゃないの？

下は今ひとつ何やりたいのかわからんヽ(´ー｀)ノ

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

日付判断の方ですが、時差を考慮した日付判断をやりたいのです。
東京時間で08:00はＮＹでは前日の23:00なので、こういう場合は弾きたいのです。

時差は一定なのだから、日本時間だけで分岐させれ。
それとも、日本とＮＹ、日本とロンドン、日本とローマとか言う風に
組み合わせいろいろなの？

>>247
「いつもperlで時間帯ごとに集計する前処理をしてからExcelに突っ込んでいた」
ってか、そこまでできるあなたでしたら
Perl でも VBA でも、スクリプト書けばいいじゃん…

(　´д)ﾋｿ(´д｀)ﾋｿ(д｀ )

>>259
=IF(DATEDIF(A1-TIME(9+5,0,0),DATEVALUE("2002/08/27"),"d") = 0,"yes","no")
A1にその時刻が入ってるとして、こんな感じなんかね。
サマータイムまではしらんよヽ(´▽｀)ノ

>>259
ＮＹは１４時間遅いわけだから、
=IF(INT(A1-14/24)=INT(A1),"一緒なんじゃヴォケ","違うんじゃゴルァ")

ちなみにＩｎｔを使っているのは、時間が小数点以下で処理されるからなんだが。

>>262
たびたびありがとうございます。できました。

>>263
例にﾜﾛﾀ。ありがとうございます。

>>260さんもレスありがとうね。ＮＹのみです。

微妙にスレ違いかもしれませんが、Excelを工学屋的に使いたい場合の質問です。

アドオン関数でFFTがありますがなんと4096ポイントまでしか処理できません。
もちろんC等の言語でプログラムを書けばいいのですが(実際書きました)、
Excelの手軽さが捨てがたいシチュエーションも多々あります。
解決方法はないのでしょうか？

VBAでプログラムを組む他には、
FFTの計算式（隣同士、２点毎、４点毎、、、）をセルに配置していく
ぐらいしか考えつかないなあ。

Excel 5.0では256点までみたい。

OFFICE2000を使用しています。OSはWin2000です。
ある列の全てのセルの頭に特定の文字列を挿入したいのです。
世田谷区　→　東京都世田谷区
練馬区 　 →　東京都練馬区
杉並区 　 →　東京都杉並区
のようにしたいのです。
良い方法はあるでしょうか？
よろしくおながいします。

ある列がＡ列とする。
作業列に、　="東京都"&A1　または　=CONCATENATE("東京都",A1)　
その後、"ある列"に値のコピペ。

>>268
レスありが�dございます。
出来れば作業列を使わずに済む方法を知りたいのですが、やはり無理なのでしょうか？

>>269
見た目を変えたいだけなら、
セルの書式設定→表示形式→ユーザー定義→
"東京都"@
とか？ヽ(´ー｀)ノ

>>269
あとはそのワークシートのChangeイベント拾ってこんな感じに...
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim myRange As Range
    Dim myCell As Range
    Set myRange = Application.Intersect(Range("A:A"), Target)
    If Not (myRange Is Nothing) Then
        For Each myCell In myRange.Cells
            If Not (myCell.Value Like "東京都*") Then
                Application.EnableEvents = False
                myCell.Value = "東京都" & .Value
                Application.EnableEvents = True
            End If
        Next
    End If
End Sub

>>271
う、間違った。
誤：                 myCell.Value = "東京都" & .Value
正：                 myCell.Value = "東京都" & myCell.Value

セル内で二つの計算式を使うことはできますか？
例えば、
A1セルの値が0より小さい場合はこの計算式を用い、
A1セルの値が0より大きい場合はこの計算式を用いて結果をB1に表示させなさい、
というようなことがしたいのです。
ほぼ初心者なので、わずかに知っているIFを使ってやってみたのですが
「式が長すぎます」というようなエラー表示が出てしまいました。
どのような式を入れると計算してもらえるのか教えてください。
OSは98、バージョンは2000です。

http://jbbs.shitaraba.com/music/2022/ongakkkyes.html
楽しいサイトだよ、荒らしでも何でもしてくださいね

>>273
=IF(A1<0,式１,IF(A1>0,式２,""))
ってB1に書くだけだと思うんだけど。
差し支えなければ、試してみた式とエラーの詳細を書いてみて。

>>275
早速ありがとうございます。
式は
＝IF(N14<0,"J15+N14","E",IF(N14>0,"J15-N14","E"))
と書きました。（わかりにくいかも知れませんがすみません。）
すると
【この関数に関して多すぎる引数が入力されています。
その関数に必要な引数のヘルプを表示するには[OK]をクリックしいったんこのメッセージを閉じます。
その後数式バーの左端にある等号(＝)をクリックしてください。】
というエラーが出ました。

すいません、ものすごい初心者なので、
恥ずかしいことを聞くかもしれませんがお許し下さい。

1.　A1からA20までを検索して、そのセルが空白だった場合、
　　そのセルの一つ上のセルの　内容をコピーしてペーストする。
　　空白じゃない場合はスルー。
2.　C1からC20までを検索して、そのセルに「BALL」と言う文字列が
　　含まれていた場合、そのセルの内容をコピーして、
　　一つ左のセルにペーストする。「BALL」が含まれない場合はスルー。

といった動作を、マクロで行いたいのですが教えていただけませんでしょうか？
お願いします。

>>276
=IF(N14<0,J15+N14,IF(N14>0,J15-N14,"E"))
か
=IF(N14=0,"E", J15-ABS(N14))

たぶんやりたいことはコレで実現できると思うけど。
初心者向けの入門本を一冊手元に置いた方が良いかもヽ(´▽｀)ノ

>>278
うわー！！！
出来ました！
教えていただいた式で実現しました。ありがとうございました。
初心者向け入門書が手元にあるのですがまだよく理解できてないようです・・・。

ところで、
=IF(N14<0,J15+N14,IF(N14>0,J15-N14,"E"))
の式を使わせてもらったのですが、私の書いた式とは意味がどう違うのかわかりません。
ただ単に””が必要なかったのでしょうか？

>>277
1.
Dim i As Integer
For i = 2 To 20
    With ActiveSheet.Cells(i, 1)
        If .Value = "" Then
            .Value = .Offset(-1, 0).Value
        End If
    End With
Next

2.
Dim i As Integer
For i = 1 To 20
    With ActiveSheet.Cells(i, 3)
        If .Value Like "*BALL*" Then
            .Offset(0, -1).Value = .Value
        End If
    End With
Next

1の場合にA1が空白だった場合の挙動が未定義なため、A2から処理してます。

>>280様
ありがとうございました！
当方Mac OS7.6のExcel5なのですが、二つともちゃんと動きました。
帰ったら、ちゃんと過去スレ読み返します。
本当に助かりました。

>>279
問題は、>【この関数に関して多すぎる引数が入力されています。
の通りで、IF関数が受け取れる引数は３個までなのに、４個渡そうとしている部分です。

>＝IF(N14<0,  "J15+N14",  "E",  IF(N14>0,"J15-N14","E"))
IF(引数１,引数２,引数３,引数４)

>>282
そうでしたか！
初心者な質問に答えてくださって本当にどうもありがとうございました。
もうちょっと勉強がんばります。

Exel2000で、セルにシート名を記述したいんですが、よい方法ありますか？
シート名を変更したときにも、セルに反映させたいです。

>248
セルに以下を書く
=MID(CELL("filename",$A$1),FIND("]",CELL("filename",$A$1))+1,31)

ミスった>284だった。

>>285
#VALUE!
でした。。
$A$1になにかしないとだめとかですか？？

言い忘れましたが調べてみて、
http://www01.u-page.so-net.ne.jp/ta2/takao-sh/excel/#ex33
これ参照しているのですが、、訳が分かりません。

>>285
ごめんなさい。。
行けました。ありがとうございます。
ファイル名とシート名をbook1,sheet1のまま
試していてのが原因と思われます。

ありがとうございました

>>270
ありがとうございました。
無事できました。
セルの書式設定ってこういう使い方もあったんですね。

>>271
ありがとうございます。
意味を考えながらも、そのまま使わせていただきます。

本当に助かりました。
私も、いつかここで質問に答えられると良いなぁ。。。と思いながら勉強します。

すいません、エクセルで普通にソートすると、
[A-4] [A-23] [B-1]という3つのデータがあった場合、

[A-23] -> [A-4] -> [B-1]

という順番で並んでしまいます。

これを、

[A-4] -> [A-23] -> [B-1]

という順番に並べたい（「4」を「23」より上に持って来たい）のですが、
何か良い方法が有りましたら教えていただけませんでしょうか？

[警告・危険]

２チャンネルでの書きこみは直ちにやめて下さい。
私はここに書き込んだために、アドレス帖の中身を覗き見られました。
これは嫌がらせではありません。

[警告・危険]

>>290
別の列を２つ作り、LEFT()やMID()を使って
A-4　A　4
A-23　A　23
B-1　B　1
のようにデータを分解し、その列で並べ替え。

あ、そうですね。数字だけなら小さい方が上に来ます。
その後くっつけてやれば良いわけですね。
ありがとうございした。

[A-4]を[A-04]
[B-1]を[B-01] と表すとか。

>>294
ええと、残念ながらそれは出来ないんです。
最初からあったテキストデータを加工して作らないといけなくて、
テキストの段階でB-1とかの表記になっちゃってるんで。

Ｗｉｎ９８ＳＥにてエクセル２０００のファイルが一つだけ
開けなくなっちゃた。壊れたのかな？困った。
修復ソフトってあるんですか？（もちろんフリーで）

WIN98でEXCEL2000使用です。

半期で月ごとの予算と実績の合計なんですが
実績金額を入力した時点でその月までの予算の合計が出るような計算式は
あるのでしょうか？
予算は半期全てに数字が入力してあるのですが
実績があった月までの合計が欲しいんです。

毎月､毎月、式を変えたほうが簡単なんでしょうか・・・？

WIN2000でEXCELXPです。
新規ワークシートを挿入するときの規定の名前は[SheetN]ですが、
これを変更することは出来ますか？

>>297
実績が入力されてたら、予算の合計を出せるようにすればいいんだよね？
B列に実績が入力されていて、C列に予算の合計を入れてみたんだけど。

IF(B1="","",SUM(C1:$C$2))
違ってたらごめん。

間違えました。
C3に実績、B列に予算が入力されているものとして。
IF(C3="","",SUM(B2:$B$3))

>>297
こういうことかな。
A2:F2に予算の値が、A3:F3に実績値がはいるものとして、
=SUM(IF(A3:F3<>"",A2:F2,0))
と入力してCtr+Shift+Enter。

>>299
シート見出しをダブルクリックして名前を書けばいいんじゃないのか？

それともデフォルトの名前を別のにするという意味だったら、
俺は、ThisWorkBookに次のものを組み込む方法しかわからん
かった。ちなみにExcelXPでは確認してないよ。

Sub Workbook_NewSheet(ByVal Sh As Object)
　 ActiveSheet.Name = "ｺﾞﾙｧ" & (Worksheets.Count + 1)
End Sub

>297
A2:F2に予算の値が、A3:F3に実績値がはいるものとして、
=SUMIF(A3:F3,"<>0",A2:F2)
でも良いと思うよ。

>302は　>298へのﾚｽです。すまん。

＞299さん、ふむさん、＞303さん
みなさん、ありがとうございました。

ふむさんの計算式で解決しました。感激です。
ちゃんと教えていただいた通りにやりました。
でも、式のところ、なにげにEnterだとVALUEになっちゃうのに
Ctr+Shift+Enterだと、うまくいく・・・。
↑これって、どういう意味があるんだろう・・ﾅｿﾞです。。

299さんも303さんもありがとうございました。
勉強になりました。
会社からだと書き込みできなかったので遅くなってｽﾐﾏｾﾝ。

Ctr+Shift+Enter
↑これの意味、本に載ってました。
自己解決です。お騒がせ、ｽﾏｿ・・・

sage

Excel2002で対数のグラフを書きたいんですが、どうしたらいいのでしょうか？
お願いします。

>>307
グラフウィザードで、目盛りが対数になってるのを選ぶ。
または、できてるグラフで軸をダブルクリックして、対数目盛をチェック。

F1キーを押してもヘルプが出てこなくなる方法を誰か教えてください。

OS：win98
Exel2000です

>309
personal.xlsを編集すれば可能。
どっかにそんなページがあったはず。

少々お聞きしたいんですが、下記の文で、
Pに変数を入れるにはどのような書式にすればよいのか教えていただけないでしょうか？
シート「Slice 1〜Slice 21」までを入れたいのですが良くわかりません
お願いいたします。
ActiveCell.FormulaR1C1 = "=SUM(Slice &'P'!RC:R[2]C[2])"

OS:2000
Exel:2000

追記です。

Range("B1").Select
ActiveCell.FormulaR1C1 = "=SUM(Slice &'P'!RC:R[2]C[2])"

こんなな感じです。
よろしくお願いいたします。

>>312

シート名 Sheet1, Slice 1, Slice 2, Slice 3 とあるとして、

Sheet1のB1に　=SUM('Slice 1'!B2:D4)
Sheet1のB2に　=SUM('Slice 2'!B2:D4)
Sheet1のB3に　=SUM('Slice 3'!B2:D4)

Sub ぱーでんねん()
Dim ws As Worksheet
　For i = 1 To 3
　　Set ws = Worksheets("Slice " & i)
　　Worksheets("Sheet1").Range("B" & i) = _
　　　"=SUM('" & ws.Name & "'!B2:D4)"
　Next i
End Sub

もろスレ違いなんですけど
エクセルを仕事で使ってる方で電卓ソフト使ってる人いますせんか？

いままでは机上の電卓で計算した結果をエクセルに打ち込んでました。
けど全部テンキーですめばけっこう効率あがりそうですよね。

機能的には四則演算ができれば十分なんですけど

・桁区切り（千単位でコロン）が表示できで数字がみやすい！
・計算結果を余計な操作なくCtrl+Cでコピーできる

てなソフトありませんでしょうか。
エクセルと組み合わせて使いたいんです〜

>>314

何の為のエクセルか。。。
問いたい、問い詰めたい、小1時間問い詰めたい。。

>314
スタート→プログラム→アクセサリー→電卓じゃだめ？関数機能などは市販より便利で
しかも複数に開いて使用できる。タスクバーに常時入れておけばいい。

世の中にはツワモノがいるものですな...ﾊｧ...

>>314
プログラミング関連の書籍もしくは
visual basicのサンプルプログラムを参考にして
ExcelVBAを使って電卓つくれ！
おなじExcelだから便利だぞ！

OS:Win98SE,Excel2000です。

グラフウィザード→グラフの種類選択(棒グラフ、折れ線グラフなど)→
系列タブ選択→名前のテキストボックスで
&演算子を使用すると(例:=Sheet1!$B$5 & Sheet1!$C$5)
"入力した数式は正しくありません"のエラーが出るんですけど、
これはExcelの仕様ですかね?

>>314
てか、>>318、セルの書式すら…

VBA初心者です、質問があります。
Windows XP Excel2000

任意のシート名のシートがあるかチェックするにはどうしたらいいですか？
一応、下記みたいなfunctionを書けばできそうな気がするんですが
ものすごく無駄なことをしている気がします。

スマートにチェックする方法がありましたら、ご教授ください

以下適当に書いてみた、冗長なファイルチェック
---------------------------------------------------
Function sheet_name_check() As Boolean

Dim tmp As boolean

tmp = False

For Each sn In Sheets
If sn.Name = "目的のシート名" Then
tmp = TRUE
End If
Next sn

If tmp Then
sheet_name_check = True
Else
sheet_name_check = False
End If

End Function

>>315
でも書類みながら入力とかしてると、
ぱぱーっと電卓つかって軽く計算したくなるんですよ・・
>>316
アクセサリのやつで機能的にはまったく問題ないんだけど
どうにもぱっとみが見にくくないですか？数字のフォントちっさいしなァ。
>>318
簡単につくれるなら今度やってみまーす。
>>320
セルの書式がなんでしょう・・・？

>321

やってる事は同じだけど、 Function なら引数受ければ？

'------------------------------------------------------
Sub 使い方()
Dim s As String
　　s = Application.InputBox("シート名は？", "ｺﾞﾗｧ", Type:=2)
　　MsgBox sheet_name_check(s)
End Sub

'------------------------------------------------------
Function sheet_name_check(wsName As String) As Boolean
　For Each sn In Sheets
　　　　sheet_name_check = (sn.Name = wsName)
　　　　If sheet_name_check Then Exit Function
　Next sn
End Function

>>321
Function sheet_name_check(sn As String) As Boolean
    sheet_name_check = IsObject(Evaluate(sn & "!A1"))
End Function

こんなのしか思いつかないなヽ(´ー｀)ノ

>>314, >>322
電卓では最後に=を押すところを、
Excelのセル内で最初に=押して、あと式を入れたらいいだけじゃないの？

>>323
>>324
解答ありがとうございます。

IsObject(Evaluate(sn & "!A1"))でいってみます。

ありがとうございました

電卓ソフトは作ったことがあるが意外に大変だ。例えば”12345”と打つとき
順次左に5回シフトしながら表示しなくてはならない。（DELは同様に右にシフトさせる）
頭の体操に作ってみるのはいいと思う。たぶんＯＳのオマケの電卓がいかに優れているか
実感するはずだ。自作の利点は。”.”を”000”に変換できたり、リターンを再度押したら
前回に加算するなど、キー機能を自由に設定できること。（余談だが電卓ソフトの延長で
小学生向けの割り算ソフトも作ったが好評だった。割り算手順に応じて順にマスクが外れ
引き算部の答えを表示するので、値の立て方が悪かったのか、引き算でミスったのか分かる）

>>322
ほらよっ
ttp://www2.airnet.ne.jp/pak04955/download.htm#calc
σ(`ε´) のお気に入りの品だよ。

てか、スレチガイだよ　ヽ(`Д´)ﾉ
手前で vector でも探しャーがれ。こんちくそーめ。

>328
早速ＤＬし使ってみた。電卓とは違う概念で素晴らしい。（マスマティカが近いか）
思えば表計算ソフトの原点は、数値を都度入力せず電卓を使わないで一気に
答えが出せないかと考えた理系の実験現場からの発案だと聞いている。当時はこんなシンプルさ
だったのだろう。私が作ったのは表示画面が一行しかない電卓の呪縛を引きずってしまっていた。
それに拘る必要はなかった。目からウロコ、反省。スレ違い失礼。

>>エクセルタン
ありがとうございます。
納得です、やはり単純な考えではだめなようですね
修行します。

教えてください。
例えば、A，B，Cというアイテム複数の情報をドーナツ円グラフを使わずに、
ひとつひとつ独立した円グラフをそれぞれ横に並べずに、
これらの円グラフをひとつのグラフ集合体として（ひとつの凡例で済むような）
表現できないのでしょうか？

>>331
＞ひとつのグラフ集合体として（ひとつの凡例で済むような）
の意味が分からないからレスつかないのだと思う。

あまりにも初歩的なことなんでしょうか？
もしそうだとしたらゴメンなさい。
フォントを選ぶ時、フォントボックス脇の▼をクリックしますよね
最近、選択できるフォントがとても少なくなっているのに気付いたんです。
明朝体とか無くなっていました。どうすれば元に戻せるのでしょう？

>>331
元々ドーナツグラフが「円グラフに似ていますが、複数の系列を表示できます。」
と云うぐらいですから、一つの円グラフでは単系列しか扱えないですよね。
用意された物では無理だから、レスが付かないのだと思います。

>>254
>現在は、各グラフに使われる全ての凡例用としての捨てグラフを
>本グラフの下に隠し、グラフ全体をオートシェイプ枠で囲んでいる次第です。
こういう感じで加工するしかないでしょう。
他のやり方としては、Ａのグラフエリアを大きくして空間を作り、
凡例を消しエリアの輪郭と領域を"なし"にしたＢＣを、その空間に並べる。
なんていうのもあると思います。

>>333
まず確認ですが、\WINDOWS\FONTSフォルダの中には各種フォントは揃ってますよね？
フォントはあるのにExcelに出てこないとして･･･
ttCacheファイルというフォントの管理ファイルが破損しているのかもしれません。

このファイルは、Safeモードで一反起動してから、Winを起動させると
新しく作り直されます。

的外れかも知れませんので、もしかしてということで･･･

>>335
ありがとうございます。
\WINDOWS\FONTSフォルダの中には各種フォントは揃ってます。
会社のパソコンの不具合なので
早速明日出社してから試して見ます。

>>325
そうなんだけど、別窓でささっと計算したくなるんだよね・・
>>328
わ〜い、ありがと、つかってみます！
いちおう一通り探してみたけどｱｸｾｻﾘの電卓に勝るものがみつからんくて・・。
>>ｴｸｾﾙﾏﾝｺ
表計算ソフトって経理とかそうゆう仕事してるとこから要望でそうなもんだけど
違うんですね。よく仕事しながらエクセルみたいなソフトがなかったころは
これどうやってたんだろ？って思います。

>>ななそ
ｱｸｾｻﾘの電卓の値をセルに代入すれば（・∀・）ｲｲ
具体的にはVBかVBAでボタンを作って、それを押すと
電卓のウィンドウハンドルを探して、その数値をエクセルのアクティブセルにおくればいい。
誰か　ﾂ　ｸ　ﾚ

エクセル2000について質問なんですが、
印刷するときの話なんですが、

印刷する部分が長いときに、
１枚の紙に２列に（つまり左側にページ１、右側にページ２という風に）
印刷するには、どういう設定をすればいいでしょうか？

OS:2000
Exel:2000

1
2
3
4

を

4
3
2
1

とするにはどのようにすればよいのでしょうか教えてください。
よろしくお願いいたします。

>>340
データ→並べ替え→降順

グラフの"表示"にある
"ウインドウに合わせてサイズ変更"
がオフにできません…。
オプションのチェックボックスを外してOKしても
もう一回オプションを開くとチェックが付いてます…
解決法がありましたら教えてくださいm(_ _)m

Win98SE
Excel97

>339
オレもそれやりたい場合がよくあるんだが、やり方がわからんので
手っ取り早いとこ、FinePrintちゅうプリンタのフリをするソフトを使ってるがな。

>>339
プリンター側の設定に「割付印刷」機能はないですか？
具体的にはexcel側の「ページ設定」−「ページ」タブ−「オプション」から
プリンタ側の設定に入る。私の場合「レイアウト」-「割付」−（以下、細かい設定）
となる。無い様だったら、最新版のドライバーも確認してみると吉。

>>342
>グラフの"表示"にある"ウインドウに合わせてサイズ変更"
Excel97だが、↑が何処にあるか見付からない。

>344
↓です。説明悪くてｽﾏｿ。
http://pub.idisk-just.com/fview/fTMKOWO5b9DCo3K8hzVeMstqrVyt849ukImezVChcsnm-7w3r6IOqY8g1duq_H47.jpg

で、PrintScreen用に起動したらなぜか直ってますた。
Office再インスト+目に付くレジストリ全部削除でも直らなかったのに…ﾜｹﾜｶﾗﾝ…
お手数おかけしてすみませんでしたm(_ _)m

>>345
グラフ"シート"だったんですね。
グラフ"オブジェクト"を探していました。
何はともあれ、解決おめでとうございます。

>>338
「ｱｸｾｻﾘの電卓の値をセルに代入すれば（・∀・）ｲｲ」 って、
電卓とExcel を起動しておけば ＝（･∀･）

電卓で計算 → コピー (Ctrl+C) → 切り替え (Alt+TAB)
→ Excel のセルに貼り付け (Ctrl+V)

　すいません、実際のデータは

1.5
1.8
1.3

1.6
2.9
1.2

3.5
1.2
2.5

縦に13セルずつ改行で区切られており、入っている値もランダムです。
これを逆に（下から上に）並べ替えたいわけでして、昇順や降順ではうまくいきませんでした。
うまくいく方法を教えてください。お願いいたします。

>348
4行目と8行目は空欄のままソートしたいという意味？普通にまとめてやれば空欄は
ゼロとみなし昇順や降順できるが空欄はなくなり連続する。やりたいことをもうちょい詳しく。

>>347
あの電卓も見た目がもうちょいかっこよくて
計算の過程がずらっと表示されてたら文句ないんですが・・
>>348
単純に下から上に並べなおしたいってこと？
だったらその隣の列に上から１、２、３・・・っていれといて
その列をキーにして並べ替えすれば良いと思う。

>>332
>>334
レスありがとうございました。
基本的に無理なんですねー。
エクセルめ。

セルにSelection.NumberFormatLocal = "yyyy/mm/dd hh:mm"
で書式をyyyy/mm/dd hh:mm　形式にしても
そのセルに2002/01/01 01:00と入力すると
2002/1/1/ 1:00となってしまいます。
0がきちんと入るようにする方法はないでしょうか？

>>352
手動で表示形式を変えて試してみた？

Excelのファイルがクリックで開かなくなってしまいました。
開こうとしてもイルカが出てきてTipsが表示されるだけです（内容は毎回違う）

バージョンはWin Xp、Office Xpです。よろしくお願いします。

>>352
Windows2000 SP3 + Excel2000 (9.0.4402 SR-1)
だけど、その現象を再現できない。

確認だけど、VBA実行時にSelectionでターゲットしていたセルと、
データを手動入力しているセルは全く同じセルなんだよね？

特定のエクセルファイルを開こうとすると、
「Sheet110251111・・・・を読み込み中にエラーが発生しました。プロジェクトの読み込みを続行しますか？」
とでて、はいを押すと、エラーになってしまいます。
どうしたらいいんでしょう。

どなたか教えてください。
当方、OSはXPでExcel2000のﾌﾟﾛﾌｪｯｼｮﾅﾙを使用しているのですが
ﾏｳｽﾎﾟｲﾝﾀをﾒﾆｭｰ上でｸﾘｯｸすると２秒ほどでﾄﾞﾛｯﾌﾟﾀﾞｳﾝﾘｽﾄが閉じてしまいます。

ｾﾙに全角文字を入れようとすると確定していないのに
やはり２秒ほどで確定されてしまいます。

再ｲﾝｽﾄｰﾙとかupdateしたのですが全然だめです。

どなたか修復の仕方等ご存じの方がいらしたら
ご教授願います。

>357
メニューとドロップダウンリストは別物です。

X-Mouseのようなソフトを常駐させてませんか？

>>357
キーボードが壊れてるに一票ヽ(´ー｀)ノ

もしかノートでしたらね
真ん中下方の四角いアイツが
ぶっこわれてわるさこいてるのかも知れないですよ。
マウス繋いでやってもアカンの？

349
空欄のままお願いいたします。
並べ替えるとどうしても順番を無視して値の大小だけを見てしまって・・・
よろしくお願いいたします。

すばやいレスありがとうございます。
レスが遅くなり申し訳ありません

>>356
シート名が長すぎる事によるエラーと思われ。
Excel2002or2000ファイルを、
Excel97で開こうとしてるでしょ？

http://www.google.co.jp/search?hl=ja&inlang=ja&ie=Shift_JIS&q=%82%F0%93%C7%82%DD%8D%9E%82%DD%92%86%82%C9%83G%83%89%81%5B%82%AA%94%AD%90%B6%82%B5%82%DC%82%B5%82%BD+Excel&btnG=Google+%8C%9F%8D%F5

Win98 Excel2000で
A列 B列 C列
a aaa abc
bbb
b ccc def
ddd
eee
c fff ghi
というような表を（B列はALT+ENTERで改行したもの）
A列 B列 C列
a aaa abc
a bbb abc
b ccc def
b ddd def
b eee def
c fff ghi
というようにB列の改行したデータを別のセルに分け
たいんですが、良い方法はありませんでしょうか。

最初の図がずれました
A列 B列 C列
a aaa abc
　bbb
b ccc def
　ddd
　eee
c fff ghi
こんな感じです

>>364
こういう事がしたいの？

Sub aaa()
　Dim y As Long
　Dim tmp As Long

　For y = 10 To 1 Step -1
　　With Cells(y, "B")
　　　If .Value Like "*" & Chr(10) & "*" Then
　　　　.Offset(1).EntireRow.Insert shift:=xlShiftDown
　　　　.EntireRow.Copy Destination:=.Offset(1).EntireRow
　　　　tmp = InStr(1, .Value, Chr(10))
　　　　.Offset(1) = Mid(.Value, tmp + 1)
　　　　.Value = Left(.Value, tmp - 1)
　　　End If
　　End With
　Next y
End Sub

>>365さん
即レスありがとうございます。
今手元にデータが無いので試せませんが
365さんのスクリプトを元に色々やってみます。

>>361
やりたいことがさっっっぱり伝わってこないんだけど、
>>350
さんの方法じゃダメなの？

　条件付書式についての質問です。

セル内の数値が指定した値より大きい場合、
そのセルが含まれる行全体に「網掛け」される
様にするにはどうしたらよいでしょうか？

例　Ａ4の数値が10以上の場合Ａ４〜Ｋ４
が網掛けされる。

もちろんこれらの処理をシート全体で行いたい
訳です。
アドバイスいただければ幸いです

>>368
A4- K4　選択して、条件付書式で

条件（１）
数式が　=($A4 >= 10)

って条件でいいんじゃないかなぁ
あとはコピペか、右下ひっぱるやつで任意の行まで
適応すれば、いいんじゃないかねぇ

>>369様
　ありがとうございました。うまくいきました

>348
空欄を含んだソートは出来ないのでデータだけを別の列に置きセルを参照させる。B列に
=A1
=A2
=A3
空欄
=A4
=A5
以下同・・・Ａ列をソートしてＡ列が連続表示になってもＢ列４行目は空欄のままになる。

>>371
それだと空欄が増えて、なにかが欠落しない？

いけますよ。実験済み。ソートすべきデータ部と空欄の入った表示部とを分けて
考えるのがミソ。本来こんなトリッキーな組み方はしないほうがいいだろうけど
348氏はそれなりの訳があるのでしょう・・・・（もちろんＶＢＡを使えばデータ部だけで
空欄入りのソートは叶）

>>373
やってみた。空欄が増えるのではなく、"表示部に「0」が出来る" だった。
例えば、348の数を使うと
Ａ列　B列（式）　Ｂ列（表示）　
1.5　　=A1　　　　1.5
1.8　　=A2　　　　1.8
1.3　　=A3　　　　1.3
　　　　空欄
1.6　　=A5　　　　1.6
2.9　　=A6　　　　2.9
1.2　　=A7　　　　1.2
　　　　空欄
3.5　　=A9　　　　3.5
1.2　　=A10　　　1.2
2.5　　=A11　　　2.5

これをＡ列のみ降順ソートすると、

3.5　　=A1　　　3.5
2.9　　=A2　　　2.9
2.5　　=A3　　　2.5
1.8　　空欄　
1.6　　=A5　　　1.6
1.5　　=A6　　　1.5
1.3　　=A7　　　1.3
1.2　　空欄
1.2　　=A9　　　1.2
　　　　=A10　　　0
　　　　=A11　　　0
となってしまいました。
ソートの手順が違いますか？　何処がおかしいのでしょう？

空欄ってたくさんあるの？

そんなに沢山無いなら
空欄の行をすべて、CTRL押しながら追加選択していって
行の数字の上で右クリック→『表示しない』
という状態でソートすればいいんじゃないの？

まぁ、マクロ書いちゃうのが早いんだろうけど・・・

>>並べ替えるとどうしても順番を無視して値の大小だけを見てしまって・・・
そもそもソートしたくないように見えるんだけど。

かなり恥ずかしい内容だが、VBAで書くとこんな感じかな？

Sub aaa()
　Saidai = 11
　For i = 1 To Saidai
　 　If Range("A" & i).Value = "" Then
　 　 　Rows(i).EntireRow.Hidden = True
　 　End If
　Next i

　Range("A1:A" & Saidai).Select
　Selection.Sort Key1:=Range("A1"), Order1:=xlDescending, Header:=xlGuess, _
　 　OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
　 　:=xlPinYin
　Rows("1:" & Saidai).EntireRow.Hidden = False
End Sub

ちゃんと動くかどうかは知らんけど、空白の量がたいしたこと
なければ>375の方法が一番いいと思われ。

表示形式のユーザー定義で質問があります。
１、１２３万５，０００本という風に表示したいのですが、
１１，２３万５，０００本という結果になってしまいます。（#,###"万"#,###"本"では駄目ですよね？）
どのように定義すればよろしいのでしょうか？

>>378
表示形式では実現できないかと。
####"万"####"本"で、カンマ表記をあきらめるか、
=FIXED(INT(A2/10000),0,FALSE) & "万" & FIXED(MOD(A2,10000),0,FALSE) & "本"
こんな感じで別セルに文字列を作成しては？

>374
空欄の真下は=A4にする（=A5だとそうなる）

>>379
ありがとうございました。早速やってみます。

>>378
亀レスだが・・・
#","###"万"#","##0"本"
でどう？

カンマを桁区切り記号ではなく文字列扱いしているだけだが。

ただ欠点もあって、
1
10
100
1000
10000
100000
1000000
が、それぞれ
,万,1本
,万,10本
,万,100本
,万1,000本
,1万0,000本
,10万0,000本
,100万0,000本
1,000万0,000本
となるけど(w

エクセルのセルに、データを入れると自動でそのセルに色を付ける方法があったら教えて下さい。
OS,Officeともに2000です。
よろしくおながいします。

レーダーチャートグラフについて質問です。
［WinME＋Excel2000で使用］

何がきっかけなのかわからないのですが、レーダーチャートが
正しくデータを表示してくれなくなりました。

状況が説明しづらいのですが、例えば以下のような表があるとします。

　　　　　　国語　　数学　　理科　　社会　　英語
Aさん　　　５　　　　 ３　　　　４　　　　４　　　　５
Bさん　　　４　　　　 ５　　　　５　　　　３　　　　４
Cくん　　　４　　　　 ２　　　　４　　　　４　　　　３

これをレーダーチャートグラフにしてみたら、
目盛りは０〜５までで事足りると思います。
が、なぜか目盛りが０〜１５まで出現します。

データの方を見てみると、
Aさんのデータは、正常に５までに収まっていますが、
Bさんのデータは、次の５〜１０の間に描かれ、
Cくんのデータは、また次の１０〜１５の間に描かれる。
といった感じで積み上げグラフのようになってるみたいです。

ちなみに目盛りを０〜５に直すと、BさんCくんのデータは目盛り外に
はみ出てしまいます。

もちろん最初の段階で選んでいるグラフは、
普通のレーダーチャートで、特にアドインなどは入れていません。

再インストするしかないんでしょうか。
アドバイスお願いいたします。

>384
色が1色で良いなら、条件付き書式でもできる。

全セル（または色付け必要な範囲）を選択後、
　書式−＞条件付き書式
　【セルの値が】【次の値に等しくない】【=""】
　書式ボタンをクリックして、パターンで任意の色を選択して、OK

で、セルに値を入れると任意の色になる。
何色か使いたい場合は、この方法では無理かと。

>>386
素早い回答ありがとうございます。
複数の色を使いたかったのですが、その色も列ごとに分けてあるので、このやり方で
問題なく出来ました。

　これで今日は会社から帰れます(；´д⊂ )

　オートフィルタについての質問です。（ｗｉｎＸＰ+2002）

データを抽出する際に特定の行（複数）は無視したいのですが
可能でしょうか？

>>380
あっ！ありがとうございます。謎が解けました。
なるほど　"トリッキー"？　面白いやり方ですね。為に成りました。

>>385
例に挙がってるデータで、レーダーチャートを作り
「グラフの種類」を弄っていたら、385さんの様な現象が再現しました。
手順としては、「ﾚｰﾀﾞｰﾁｬｰﾄ」→「積み上げ面グラフ」→「ﾚｰﾀｰﾞﾁｬｰﾄ」と
変更していった時に正常型から、異常型ﾚｰﾀﾞｰﾁｬｰﾄに変わりました。

逆に、｢異常型ﾚｰﾀﾞｰﾁｬｰﾄ」→「集合縦棒ｸﾞﾗﾌ(普通の棒グラフ)」→「ﾚｰﾀｰﾞﾁｬｰﾄ」
の様に"積み上げタイプ"でない種類を挟んで、変更させれば元に戻るようです。

アドバイスだけでも頂ければと思うのですが・・

住所録のデータを数万件を一気に印刷したいのですが、住所の長さによっては
用紙からはみ出してしまいます。かといって、ヘンな文字位置で改行したら
おかしくなってしまい、使えません。

最大文字数を越えるものは印刷をストップして手動で扱うしかないですか？

>>391
エクセルで完結するのなら、セルの書式設定の
「縮小して全体を表示する」で解決する話だけど・・・

イマイチ使い方が見えてこないので、
もっと詳細だしてくれ。アドバイスのしようがない。

>>388
列を追加して、無視するものにフラグでもつければいい話では？

>>393
　なるほどです。やってみます

Excelで
セルA セルB
○　　　+1
○　　　+2　　　
●　　　+1
○　　　+2
みたいに○か●でプラスマイナスを増やしたいのですが可能ですか？

>>395
セルA、セルBって列A、列Bと言うこと？

そうであれば、
B1=if(a1="○",1,-1)
B2=if(a2="○",B1+1,B1-1)と入力して、
B2残りのB列にコピー＆ペーストするべし

ｽﾏｿ　書き間違えた

×B2残りのB列にコピー＆ペーストするべし
○B2をコピーして残りのB列にペーストするべし

>>396
ありがとう

>390
解決しました！
長らく悩んでいたので、本当に感謝です。
ありがとうございました。

ＯＳウィンme エクセルは98です。お願いします。

セルの書式設定についてなのですが、セルに９１−４と打ち込むとＡｐｒｉｌ-91と表示されてしまいます。
書式設定を見ると、日付が選択されていたので、
そのセルを書式設定で「標準」とすると、今度は32597（数字は定かじゃないです）と表示されてしまいます。
そこで、一度デリートキーで削除してから、もう一度入力してみました。するとまたＡｐｒｉｌ-91と表示されてしまいます。
他の数値を入力したら、97-15は平気でした。　ハイフンの右側が１〜１２だとダメなようです。

左隣のセルは、日付で書式設定をしてあります。
他のセルで試したのですが、どこのセルでやっても同じ現象が起こってしまいます。これがバグなのでしょうか？


解決方法をご存知でしたらご教授お願いいたします。

>エクセルは98です。
　excel98はMacOS向けしか無かったように記憶していますが…

左隣のセル書式は無関係です。このスレの>>3をお読みください。

ｘｐ+2002です。

1.シート1の表の中から、A1.A6.A13.A14.A16中で数値の入力されている
　セルの数を数えシート2のA1に表示する。（表は100行）

2.同様にA1.A6.A13.A14.A16中で数値の入力されていないセルを
　数えシート2のA2に表示する。

3.A1.A6.A13.A14.A16以外のA列のセルで数値の入力されている
　セルの数をシート2のA3、入力されていないセルの数をA4に
　表示する。

これらの処理を可能にする数式（関数？）をご教示いただけない
でしょうか？よろしくお願いします

>>402
ISNUMBERとかCOUNTIFとか。
〜以外で、とか、〜でない、の条件の時は全体から引き算しる。

>>402
Sheet2に置いて
A1=COUNT(Sheet1!A1:A16)
A2=5-A1
A3=COUNT(Sheet1!A1:A100)-A1
A4=100-(A1+A2+A3)

勘違い
A1=COUNT(Sheet1!A1,Sheet1!A6,Sheet1!A13,Sheet1!A14,Sheet1!A16)
以下同じ。

>>400

FAQ、エクセルの仕様。
8/1　で日付になるのと同じ。

日付になった時点でシリアル値に変換されるので、セルの書式設定を
「標準」にしてもシリアル値が表示されるだけ。

セルの書式設定を「文字列」にするか、アポストロフィをつける。

'91-4

>>401
>>406
エクセル98は勘違いかもしれませぬ。なんにせよ、ありがとうございました。本当に感謝です。

レスありがとうございます。とりあえず404様の方法で
やってみます

データベースを作ってみたのですがそのデータの「前方一致検索」、
「中間一致検索」、「後方一致検索」のやり方がわかりません。どな
たか教えてください。

>>409
オートフィルタでワイルドカードを使用

使っているのはExcel2000です。
「MS Accessに変換」機能をヘルプ通りに使ってみたのですが
Access側でエラーになってしまい、データを取り込んでもらえません。
自動で範囲指定された部分のオブジェクトが見つからないとか
書いてあります。
どうすればいいのか教えてください。お願いします。

>>411
Access側からExcelのデータをインポートしてみたら？

412さんへ
それはできたのですが。。。
できればExcel側で全部自動で処理したかったのです。
だめでしょうか？

>>413
試してみたら同じエラーが出るね。
自分は、お手上げヽ(´ー｀)ノ

すいません、エクセルのワイルドカードで、
「数値のみ」を指定できない物でしょうか？
（ACCESSでの「#」みたいな）

0または1または・・・8または9、
と言う風に指定してあげないとダメなのでしょうか。
何か良い方法ご存知の方いらっしゃいましたら、お願いします。

412さんへ
やはりだめですか。。。
でも考えていただいてどうもありがとうございました。
またよろしくお願いします。

>>415
ISNUMBER関数では、どうなの？

417補足
フィルタなら数の範囲を指定してやればできるんじゃないか？
（絶対に使わない小さな数）以上（絶対に使わないでかい数）以下、とか。

>>415
やりたいことがいまいちわからないけど、
ユーザ定義関数で
Function isLike(strTarget As String, strCompare As String) As Boolean
     isLike = (strTarget Like strCompare)
End Function
こんなん作ってVBAのLIKE演算子を流用するとかねヽ(´ー｀)ノ

>>417-418様
ありがとうございます！
こちらの書き方が非常に曖昧だった為、
>417の方法は使えなかったのですが、
>418の方法で解決できました。

後はこれを転がして何とかしてみます。
本当にありがとうございましたm(_ _ )m　

Excel2002 をつかっているのですが、空白のセルすべてに０を入力するにはどうしたらいいのでしょうか？
単純なことなんですがわからないです、よろしくお願いします。

>>421
範囲を選択しておいてこんなんでどうでしょ？ヽ(´ー｀)ノ
Sub subBlank2Zero()
    Dim c As Range
    For Each c In Selection.Cells
        If c.Value = "" Then c.Value = 0
    Next
End Sub

＞４２２様
ありがとうございます！
すごくたくさん０を入力しなければいけなかったのですが、
一瞬でできてしまいました。
本当にありがとうございます。

>>423
0を入力したいセルを選択するのが面倒でなければ、
　セル選択＞0入力＞Ctrl＋Enter
という手も。

>>424
それなら、こっちだろ？
F5→Alt+S→K→Enter→0→Ctrl+Enter

VBAなら
Sub SelectBlank_and_InputZero()
　Selection.SpecialCells(xlCellTypeBlanks) = 0
End Sub

最近なんか閑古鳥。悩んでいる人がいないﾂｳのはいい事か。。。

悩んでます。
セルにファイル名を記入することで、
特定フォルダの中に該当するファイルがあれば青で表示し、
存在しない場合は赤で表示するにはどうすればいいのでしょうか？
ヘルプで検索してもさっぱり要領を得ないし…。
バージョンは2000です。

>>427
フォルダ名はc:\my documents\
ファイル名はA1からA10に入ってるとして

Sub test()
　　Dim drname As String
　　Dim fname As String

　　drname = ""
　　For i = 1 To 10
　　　　fname = Cells(i, 1).Value
　　　　If Dir(drname & fname) <> "" Then
　　　　　　Cells(i, 1).Interior.ColorIndex = 5
　　　　Else
　　　　　　Cells(i, 1).Interior.ColorIndex = 3
　　　　End If
　　Next i
End Sub

フォルダ名が空欄になっちまった･･･
drname = "c:\my documents\"とか
""の中に指定する場所を入れてくれ。

>427

Sub test()
Dim r As Range, sFolder As String

　sFolder = "c:\windows\ﾃﾞｽｸﾄｯﾌﾟ"

　For Each r In ActiveSheet.UsedRange
　　If r.Text <> "" And _
　　　Dir(sFolder & "\" & r.Text) <> "" Then
　　　　　r.Interior.ColorIndex = 5
　　Else
　　　　　r.Interior.ColorIndex = xlNone
　　End If
　Next r

End Sub

XP版に2000版のMS QUERYやODBCアドイン使えますか？
素人質問で申し訳ございません。

風俗サイト広告逝ってよしっ！第３回戦
ただいま戦闘中！！！
嫌いな人はこちらへ漏れなく串つき
http://live.2ch.net/test/read.cgi/festival/1029826982/l30

印刷すると表示されるページとページの境目を示す
点線を消すにはどうすればいいのでしょうか？

「ツール」−「オプション」−「表示」−「改ページ」のチェックを外す。

あの、ファイル開いたらexcelのメニューとか表示されずにシート部分だけ
表示したいのです。
で、開いた人のできることは新規レコードの追加と
過去のデーターの検索だけ。

以前の会社でファイルメーカーで行なっていたことをexcelでしたいのです。
ファイルメーカーを新規に入れるお金がないもんで（涙）。
ドキュソ会社に転職してしまったドキュソです...

>435

実現したいならVBAの知識を身につける。
程度にもよるけど、結構大変。

ファイルメーカーなり、アクセスなり買えや。

>>436
よく読みましょう。会社でも上司に言われてるんじゃないの？

＞程度にもよるけど、結構大変。
程度って何？大変だから何？あなたが教えることが大変なの？

＞ファイルメーカーなり、アクセスなり買えや。
買うお金がないことが前提条件ですよ。

質問です。
一つのセルに入ってる複数のデータを1つのデータにつき1つのセルに移す、
ということはできるでしょうか？
例えば、A1に「一郎　二郎　三郎」と入ってるとします。
これをA1「一郎」B1「二郎」C1「三郎」という感じにしたいのです。
アクセスにインポートしたいので・・
因みにデータ間は全角スペース。エクセル2000です。

それともう一つ。
会社のデータベースからエクセルにエクスポートしたデータなんですが、
セルによって「□□□」と表示されてしまいます。
セル幅は問題無いです。印刷プレビューにすると正しく表示されます。
直し方はないのでしょうか？
よろしくお願いします。

>質問です。
出来ますよ。ふざけるな。結局文字列操作じゃねーかよ。
regexp使うか、氏ねば？

>それともう一つ。
意味不明。日本人か？

>>437
PC買う金があっても、ファイルメーカーやアクセスを買う金がないんですね。
私のを格安でお譲りしましょうか？

>>438
対象になる範囲を選択しておいてこんな感じで。
２個目の質問はわからんヽ(´ー｀)ノ
Sub test()
    Dim i As Integer
    Dim c As Range
    Dim a() As String
    For Each c In Selection.Cells
        a = Split(c.Value, "　")
        If UBound(a) > 0 Then
            For i = UBound(a) To 0 Step -1
                c.Offset(0, i).Value = a(i)
            Next
        End If
    Next
End Sub

>>438　
一つ目
「データ」−「区切り位置」−「スペースまたは〜」にチェックしウィザードに従う。
　
二つ目
フォントは？

＞＞４３４
ありがとう
できました。

>>438
二つ目
私のとこでも同じような現象が起こります。
でも私も対処法分かりませんので諦めてます。

>>439
もうちょっと読解力付けましょうね

>>435
ツールバーやメニューは消せるけど、それを元に戻させない様にロックさせる方法が
ちと難しい。

一方、セルにロックをかけてパスワード付きで保護すれば、編集できるセルの制限は簡単。
メニューが出てても大半は使えなくなるよね。それだけじゃ駄目？

>>428 >>430
おそレスすみません、おかげさまで解決できました。
ありがとうございました！

>437

何逆切れしてんだ？直ぐに切れるドキュソだって上司に言われないか？

VBAの知識が必要で、その知識があるやつの質問とも思えない。
程度って言うのは、自分だけが操作する、他の人間が主に使う、など状況
によっても違うって事だよ。

アクセスやファイルメーカーでやった方が無難だってアドバイスなわけ。

Sub Auto_Open()
　For i = 1 To Application.CommandBars.Count
　　　Application.CommandBars(i).Enabled = False
　Next i
　Application.DisplayFullScreen = True
End Sub

vba の質問なんですが、

Range("B3:B4").Select
の数字の部分を変数にしたいのですが、

for i=2 to 12
Range("B"&i*2-1&":B4"&i*2).Select
next i
とすると構文エラーでうまくいきません。

変数化するにはどうすればいいのでしょうか？

>>448
数値計算の両端にカッコ付けておく
  Range("B" & (i*2-1) &":B4" & (i*2) ).Select
か、
For i = 0 To 10
  Range("B3:B4").Offset(i*2,0).Select
Next

ところでこのままだと最終的に B23:B24 「だけ」が選択されてループ終了ですが、
これでいいの？ 他にもループ内に何か入るのかな

>>448
For i = 2 To 12
　Range(Cells(i * 2 - 1, 2), Cells(i * 2, 2)).Select
Next

セルに日本語入力すると勝手にフリガナをつけるのがむかつくんですけど、
この機能をオフにするやり方があったら教えてください。
フリガナを一括して消せる方法も知りたいです。

ちなみにExcel2000、OSは98se・ME・2000です。

>>451
書式−ふりがな−表示/非表示
つーかデフォルトでは表示しないようになってると思うので、
君がいじってるだけじゃないの？

>>451
書式→ふりがな→表示/非表示
で、非表示にするだけじゃまずいの？

>>453-454
レスありがとうございます。
フリガナ非表示でもソートかけるとフリガナ順になってしまいますよね？
CSVから取り込んだものにあとからExcelで追加すると勝手にフリガナがついてしまい、
ソートしたときに意図した通りに並んでくれないんです。

>>455
ソートするときに、オプションで
「ふりがなを使わない」
にチェックを入れれば良いようなヽ(´ー｀)ノ

>>456
おぉ！目から鱗です！
こんなオプションがあったとは。
ありがとうございました。

選択範囲の四隅のセルの行番号、列番号を取得する例として
例）
MsgBox "選択範囲の左上のセルの行数は　" & Selection.Row & "行目,"
MsgBox "選択範囲の左上のセルの列数は　" & _
　　　　Selection.Columns(1).Column & "列目"
MsgBox "選択範囲の左下のセルの行数は　" & _
　　　　Selection.Rows(Selection.Rows.Count).Row & "行目,"
MsgBox "選択範囲の左下のセルの列数は　" & _
　　　　Selection.Columns(1).Column & "列目"

のようにして行、列の位置が数値型で取得できるの
ですが、これをRange("B2"),Range("B20")のように
取得するのはどうしたらいいのでしょうか？
なぜそうするのかというと、AutoFillメソッドまたは
DataSeriesメソッドを使って、選択範囲の一番上の
セルに入力された値を基準に選択範囲の最後のセルまで
オートフィルの処理をさせたいのです。

例）
sub macro()
range("B2").value=1
range("B3").value=6
range("B2:B3").autofill destination:=range("B2:B8")
end sub

sub macro()
range("B2").value=1
range("B2:B8").DataSeries Step:=5
end sub

みたいな感じでやるにはどうしたらいいのでしょうか？
どなたか知恵を授けてください

>>458
選択範囲の一番最初のセルをRangeオブジェクトして取ってくるのは
Selection.Cells(1)
一番最後は
Selection.Cells(Selection.Cells.Count)
でいけるんじゃないかな？

>>458
例に合わせればこんな感じかな。
（もっとスマートなやり方がありそうな気はするけど (´ー｀)）

Sub test()
    Dim rTop As Range
    Set rTop = Selection.Cells(1)
    rTop.Value = 1
    rTop.Offset(1, 0).Value = 6
    Range(rTop, rTop.Offset(1, 0)).AutoFill Destination:=Selection
End Sub

Sub test2()
    Selection.Cells(1).Value = 1
    Selection.DataSeries step:=5
End Sub

>458

アドレス表示

Sub Test3()
　With Selection
　　If .Areas.Count = 1 Then
　　　 MsgBox .Address(0, 0)
　　　 MsgBox .Item(1).Address(1, 0)
　　　 MsgBox .Item(.Cells.Count).Address(0, 1)
　　End If
　End With
End Sub

角度の表示で質問します。
今Ａ列で「度」Ｂ列で「分」Ｃ列で「秒」と求めたのですが、
ひとつのセルに表示した時（="+"&ABS(A1)&"°"&ABS(B1)&"′"&ABS(C1)&"″")
に、例えば
セルＤ1　+2°1′5″
　　Ｄ2　+20°51′18″を、下記の様に揃えたい時は、どうすれば良いのですか？

セルＤ1　+ 2° 1′ 5″
　　Ｄ2　+20°51′18″

はじめまして、よろしくお願いします。
エクセルで作った表やグラフをいつもインクジェットで
印刷しているんですが、このデータを画像として
BMPやJPGなどのデータになんとか代える事はできないんでしょうか？
と言うのもこれが出来れば写真店などで最近増えてきた
銀塩デジタルプリンターで出力できるんです。
プリントスクリーンの機能でやってみたんですがどうも
画質が落ちすぎみたいで・・・
当方写真店なんでエクセルやワードが画像に変換できれば
大変助かるんです
ぜひお知恵をお貸しください

>>462
="+"&TEXT(ABS(A1),"?0")&"°"&TEXT(ABS(B1),"?0")&"′"& TEXT(ABS(C1),"?0")&"″"
こんな感じかな。
フォントはノンプロポーショナルなフォントでないと固定幅にならないから、注意。

あと、
=TIME(A1, B1, C1)
で時刻シリアルにしておいて、表示書式をいじるのも一つの手かと。

>>463
１．表やグラフを大きく作る
　（ズームで画面を小さく表示させて、
　　グラフやフォントは目一杯大きくしてね）
２．「カメラ」で選択範囲を切り取る
　（画面から外れても選択できてればおっけい）
３．Photoshopに張り付け

これで結構デカい画像が出来ると思うけどダメかな。

PS上で解像度を無理矢理大してシャープフィルタを
かけてやると、文字は見易くなるかも。

>>465
ご教授ありがとうございます
「カメラ」って機能はどこにあるんでしょうか？
現在はエクセル・ワード共に２０００です

>>466
ええと、カメラは恐らくデフォルトじゃ使えないから、
ボタンを作ってあげて。
"ツール"→"ﾕｰｻﾞｰ設定"→"ｺﾏﾝﾄﾞ"→"分類"の"ツール"。
ツールバーの適当なトコにD&Dして置いておきましょう。
以上、俺は97だけど、多分一緒じゃないかな。

使い方は、適当な範囲を選択してボタンを押す、と。

便利な機能だけど、虫持ちだからあまり信頼しちゃだめね(ｗ

>>466
一番手軽なのは、Webページとして保存して画像だけ利用する方法じゃないかな。
できるのはGIFファイルだけどね(´ー｀)

>>466
>>467さんが書いている機能だけど
範囲を選択＞Shift+編集＞図のコピーで同じだと思う

>>469
おお！？そのやり方知りませんでした。
あ、イルカくん、久し振り。え、君もそっちがｵｽｽﾒなの？
･････勉強させていただきましたm(__)m

>>467さん>>469さん>>468さん
どうもありがとうございました。

Excel の特定の行に
2002/7/4 2:41:51
2002/7/4 5:07:42
2002/7/4 9:18:06
などというような値が縦に並んでおり、
セルの書式設定で時刻にしております（時刻だけ見える状態）。

ここで、
0時0分01秒〜3時0分00秒までは背景インディゴ、文字白。
3時0分01秒〜6時0分00秒までは背景ブルーグレー、文字白。
6時0分01秒〜9時0分00秒までは背景うすい黄色、文字黒。
9時0分01秒〜15時0分00秒までは背景ベージュ、文字黒。
15時0分01秒〜18時0分00秒までは背景うすい黄色、文字黒。
18時0分01秒〜21時0分00秒までは背景ブルーグレー、文字白。
21時0分01秒〜24時0分00秒までは背景インディゴ、文字白。
というようにしたいと考えているんですが、方法がわからなくてこまっております。

Windows2000 + Excel 2000 の環境です。

>>472
マクロ使える?
と言うかマクロを使うこと
selectcase
を使うんだけど

おお！selectcaseは盲点でした。
ありがとうござる。

教えてくださいー
EXCEL2000使用してますが
アクティブなセルから右に1つ移動するマクロって
ありますか？
現在、セルを置いてる場所から、矢印キー右を押した
と同じ状態にしたいのですが（またはTabキーのような）
よろしくお願いします

>>476
ActiveCell.Next.Select
とか
ActiveCell.Offset(0, 1).Select
とか

>>477
おお！できました！
ありがとうございました！
感謝です

エクセルで
A1に1入力　B1に1入力　C3に =A1+B1
と入力しますとC3には2とでます
でBの列(B2 B3 B4 と)どんどんランダムな数字が入っていきます
でCの列の数式もどんどん下に伸ばしていきたいのです
=A1+B2 =A1+B3 と
でもCの右下にカーソル合わせて下にスライドさせても
A1+B1　A2+B2　A3+B3　となってしまします
ようするにA1だけ固定させて+するのはB1　B2　B3　と変化させていきたいのですが
どうすればいいのでしょうか

>>479
=A$1 + B1
相対参照・絶対参照でヘルプを検索 (´ー｀)

さんきゅーーーー！
ありがと　助かった

教えてくださいﾏｾﾏｾ。ｴｸｾﾙ2000、win98です。

１.（月合計）
商品No.　　種類　　　金額
　１　　　　　うさぎ　　　100
　２　　　　　亀　　　　　500　
　３　　　　　犬　　　　　300
−−−−−−−−−−−−−−−−−
２.
９月合計＊＊＊円

順位　　　種類　　　金額
　１　　　　亀　　　　　500
　２　　　　犬　　　　　300
　３　　　　うさぎ　　　100
−−−−−−−−−−−−−−−−−
３.（年集計）

　　　　　うさぎ　　　亀　　　犬
　９月　　100　　　500　　　300
１０月　　　・　　　　　・　　　　・
−−−−−−−−−−−−−−−−−
ということをやりたいんですが、なにか良い方法はないでしょうか？
３.へは１.から直接持ってきたいです。
１.を金額基準で並べ替えして２へｺﾋﾟﾍﾟとも思ったのですが、３の値がかわってしまいます。
どうかどうかよろしくお願いします。

VBAで、

TEXTBOX1からTEXTBOX64の１から６４までの指定をFOR 〜NEXTで扱いたい
んだけど。。できないのかな。NUMB変数を宣言しておいて、TEXTBOX(NUMB)
ってやってもダメだし・・いい方法ないかな。

ちょっと書き直しです。
１を入力したら極力自動的に２，３が入るようにならないでしょうか？
よろしくお願いしますっ。

ピボットテーブルで簡単にできるのでわ。

おしえてください、excel2000です
たとえば　SUM(A1+A3+A5+A7+A9・・・）というように
奇数セル、または３の倍数セルなどと指定したい場合
簡単な方法がありますか？
どうぞよろしくお願いします。

http://www.leverage.jp/bloom/start3/

左ヨコの列にフラグ立ててSUMIFでやればいいかと

485さん、私宛ですよね？ありがとうございます。
今、ヘルプを見ながらピボットデーブルとやらをさわってみてます。（今まで使ったことありませんでした、、）
いまいちよく分からないのですがもうちょっとやってみます。

どの部分が分からないのかが判らないから
集計の部分かと思ったんだけど

４８８さん、ありがとうございます。
何か簡単な関数があるのかと思いましたが
意外と面倒なのですね、
参考にします。

>>483
Controls("TextBox" & CStr(番号))

>>491
配列数式だとこんな感じでいける。
行番号が３の倍数の場合
=SUM(IF(MOD(ROW(A1:A10),3)=0,A1:A10,0))
と入力してCtr+Shift+Enter。

「簡単な」かどうかはしらんヽ(´ー｀)ノ

>>492

ありがとう。試してみます

＞490も私宛ですよね？重ね重ねありがとうございます。
分かりにくかったですね。すみません。

１）　１に商品番号が実際は１００くらいあるのですが、それに金額を入力。
　　（経理ｿﾌﾄに対応してるので商品番号は変更不可）

２）　１）で入力した金額順に別ｼｰﾄなりで金額順に並び替え。

３）　やっぱり別ｼｰﾄ等で、１）に入力した金額をそのまま、または加算して表示。
　　　＊たとえば商品番号１０と２０を足してほ乳類の欄に表示、３０を魚類に表示、残りをその他にというような感じです
　　　　３の うさぎ・・・・のとこは忘れてください。

という感じです。・・・・・・ピボットデーブル、難しいですね、、

Googleで検索しても数件しかヒットしません。
どうか、お助けを。

WindowsMeでExcel2002を使っています。
選択したセルをシート内の別の場所に移動しようとして、
そのへりをドラッグ＆ドロップすると
いつも警告音とともに
「クリップボードを空にできません。」
とアラートボックスが現れます。実害はないのですが、
これってExcel2002のバグなのでしょうか。
設定で消せたりできたらいいのですが、
何かご存知の方がおりましたら、教えて下さい。
お願いします。

XP版に2000版のMS QUERYやODBCアドイン使えますか？
素人質問ですいません。

自己レスです。
VirtualPCで動かしていたのですが、
vpchelp.exeを終了したら直りました。
VirtualPCのバグのようです。

お騒がせしてどうもすみませんでした。

>>459,>>461
遅レスですいません。
なんとかできました。ありがとうございました

Excelで横長にデータ入力しました。
Win98　-Excel2000 でプロッターで印刷すると罫線がすべて消えます。
Win2000-Excel2002 でプロッターで印刷すると、途中までしか印刷できません。
前者を印刷プレビューで見ても罫線は表示されています。
でも２種類のPCで試しましたが結果は同じでした。
後者を印刷プレビューで見ると、途中までしか表示できません。
原稿サイズは縦914mm 横4000mmです。
このような症状はExcelの仕様なのでしょうか。

初歩的な質問だったらごめんなさい。

＊ブック１（H14年1月〜4月のデータ）
＊ブック２（H14年1月〜8月のデータ）

この二つのブックからH14年5月〜8月のデータを、違うブックにとりだすには
どうすればよろしいでしょうか？
みなさんお願いします。

5月〜8月のデータを取り出すのにブック１は無関係の様に思われますが･･･

ブック２から該当部分を選択しコピーする。
あるいは、ブック２から１〜4月分を取り除いて新ブックとして保存する。
のどちらかだと思います。
具体的に考えるには、漠然としすぎです・・・

質問させてください。

久しぶりにExcelを起動しようと、ブックをクリックして起動したら
メニュバーの左から順に「実行時の注意」「バージョン情報」とあり、
通常の「ファイル」などは淡色表示になって使えなくなっていました。

「実行時の注意」をクリックすると、
「ファイルにアクセスできませんでした。次のいずれかを行ってみてください。」
などというアラートが表示されるだけです。
どうすればこの状況を改善できるのでしょうか…。

WindowsXPとOffice XP(SP1/SP2適用)です。

アラートに従って見るとどうなんの？

アラートには、
「・指定したフォルダがあることを確認します。
・ファイルを含むフォルダが読み取り専用になっていないことを確認します。
・指定したファイルの名前に次のいずれかの文字も含まれていないことを確認します:<>?[]: HOffice.xls *
・ファイル名およびパス名が半角で218文字より長くないことを確認します。」
とあります。

Excelを起動するためにクリックしたブックはそのようなことはないですし、
普通に起動しても、新規作成しても症状は同様です。
そもそも、「実行時の注意」や「バージョン情報」をクリックしても
同様のアラートが出るため、一体どのファイルを探しにいっているのか意味不明です…。

すみません、かなりの量のデータなので、ブック1とブック2
（どちらもシート1）　のだぶってるデータでも逆でも、自動で抽出したいのです。
教えてください。

>>506
もう少し、どういう形式で入っているか説明してみて。
両方を日付順に並び替えて比較するのでは駄目なようなデータなの？

>>507
まず顧客データです、列は15項目程ありまして、
氏名、住所、機種、製番、tel、顧客NO、等です。
行は、11441（ブック"）と8370（ブック1）あります。
これで分かりますか？
すみません、教えてください。

１行１レコードとしてデータを入れた、同じ形式のブックが２つあって、
ダブりを取り除きたい、ということでいいですか？

毎日やるのでなくて、一回だけの処理だとして、
わたしがやるとしたら、最適ではないと思うけど、

１．一方のブックのデータをコピーしてもう一方の末尾にペースト（２万行になる）。
２．もっとも特徴的なデータ（たぶん電話番号か顧客番号）をキーとして並べ替え。
３．新たな列を作り、上記２の特徴的データが上の行と一致する場合のみフラグが立つような
式を入力。例えばB16に=if(A5=B5, 1, 0)と入力して下にコピーとか。
４．上記３の列をコピーしてそのまま数値としてペースト。
５．上記３の列をキーとして並べ替え。
６．上記３の列が1となっている行を削除。

まあ、少な目のデータで実験してみて。

>>508
そろそろ Access の出番だよ！ ヽ(｀д´)ノ

アクセルで、差込印刷できますか？

500?

>>511
アクセルとは？

>>
素の馬鹿って、見てて微笑ましいな。

weekday関数で日曜日=1 とか算出できますが、
１なら日　２なら火　３なら水とか表示するにはどうすればいいんでしょか？
書式のdddは英語表記になるので、ちょっと、、、。

どっかにテーブル作って参照すればいいんでしょうけど、めんどうなので
関数で書きたい。 IF関数を７つネストにするとかも面倒（笑）

>>525
セルの書式設定で「aaa」

>>516
ありがとん。

>>518
素の馬鹿って、見てて微笑ましいな。

>>518
循環参照しているので、エラーが出ますよん

>>515
ＣＨＯＯＳＥ関数でできるのでは。
=CHOOSE(参照セル番地,"日","月","火","水","木","金","土")

このスレはレベル高いようで多分既出の問だと思うがスイマセン
データの並べ換えで一つの項目が2行で1セットの場合はどうすればいいでしょう？
例えば
1　｜あいう｜
　 ｜えお　｜
2　｜かきく｜
　 ｜けこ　｜

数字を並べ換えた時にセットになっている下の行が上に付いてくるようにしたいのですが。

>>521

1行目の数字がA2、文字がB2だとして、C2に =A2
2行目の数字がA3、文字がB3だとして、C3に =A2+0.1

C2とC3を選択して、フィルハンドルで下にコピー

C列全体をコピーして値で貼付け

C列で並び替え

>>522
レスありがとうございます。私の言葉足らずで意図が伝わっていませんでした。
一行追加して
1　｜あいう｜使用　｜
　 ｜えお　｜　　　｜
2　｜かきく｜未使用｜
　 ｜けこ　｜　　　｜
3　｜さしす｜使用　｜
　 ｜せそ　｜　　　｜
このようなデータで「使用」を上に集め、「未使用」を下にすることはできるのでしょうか？

1セル1データという概念を念頭に置いて根本的に作り直した方がいいよ

>>523

「えお」「けこ」「せそ」のある行のC(?)列に、
「使用」「未使用」「使用」と入れておけば、並び替えは可能。

つまりA列で並び替えの後、C列で並び替えすると言うこと。

Excel2000,Windows2000を使用しています。

Excelでmp3ファイルを管理しているのですが、
マクロで演奏させる方法を教えてください。

おながいします。

>>526
てか、なにげに「ハイパーリンク」でも良さそうだが。

以前にグラフの軸範囲を変更するマクロの話がありましたが、
グラフが山ほどあってそれぞれのグラフ専門のマクロを作るのが
大変だというときに、何かいい方法はないでしょうか。
グラフをマウスで選択しておいてマクロを実行しようとおもっても、
シート上に作ったマクロのボタンを押すときにその選択（フォーカス？）
が外れてしまいます。

グラフの軸の長さを指定する方法ってありますか？

>>528
以前のマクロってのがどんなのかしらないけど、こういうこと？
Dim c As ChartObject
For Each c In ActiveSheet.ChartObjects
    c.Activate
    '(以前の内容)
Next

>>527

ハイパーリンクという手があったとは・・・目から鱗です。
上手く逝きました。ｻﾝｸｽ

>>523
基本的にその表は、意味のある表として成り立ってないと思われ
どうしてもこれでやりたいんだったら、
d1,d2のセルにそれぞれ
=IF(C1="使用",IF(ISNUMBER(A1),A1,A1),IF(ISNUMBER(A1),A1*200,A1*200))
=IF(C1="使用",IF(ISNUMBER(A2),A2,A1),IF(ISNUMBER(A2),A2*200,A1*200))
を入力して（上の式があってるかどうか確かめれ）a-d列を並べ替えする。
この手の姑息な計算がいやなら、表を作りかえるか、VBAでやれ。

↑スマン。
×を入力して
○を入力してオートフィルした後に
だった。見てのとおり式がきたなくなるのでおすすめできないが。

>>531　
で、　　( ´-｀).｡ｏＯ(　選んだところをハイパーリンクに　)

Sub SelAddHyprlnk()
　 Dim obj As Object

　 For Each obj In Selection
　　 ActiveSheet.Hyperlinks.Add _
　　　 Anchor:=obj, _
　　　 Address:=obj.Value
　 Next
End Sub

こんなかんじでいいと思いますた。

すみません、誰か教えて下さい。
Excel2002なんですが、
単純に数式を打ち込み、その参照先の数値を置き換えても
その時点で解答に反映しないことがよくあるのですが、みなさんはどうでしょうか？

A1に　=A2+A3
A2に　1
A3に　1

とすれば、単純にA1には2と表示されますよね。
その後、A2を2に打ち変えても、A1の表示は2のままなのです。
仕方なく、A1の数式を同じものに書き換えると、やっと3と表示されます。

また、グラフでも、参照セルの数値を置き換えてもグラフ上での変化がありません。
一度シートを閉じ、あらためて開き直すとやっと、数値の変化が反映されます。

先日こいつのおかげで大失敗こきました。

なんか理由でもあるのでしょうか。
2000の時はこんな事には一度も無かったのですが・・・

>>535
再計算でヘルプでも見たら。

>>536
どうもすみません。しっかりと書いてありました。
確認したら、手動計算になっていました。
しかし、こんなとこさわった覚えが一切ないのですが、
何で変わったんだろう・・・？？

>>534
ｻﾝｸｽ

objにフルパスを与えて、表示されるところはTextToDisplay:="ﾎﾆｬﾗﾗ"で
書き換えてやればよいですね。

ピボットテーブルで列Ａ〜Ｐ・１０００行以上のデータの集計をしていました。
しかし、自分用のパソコンが当初作成したときのWindowsMeから９８に換えられ、
（会計ソフトがAccess97使用のためらしい）しかもExcelのバージョンは９７で、
集計ファイルが開けなくなってしまいました。
Office2000をインストールしたら、開けることは開けたのですが、
「行アイテムが多すぎて集計できない」とエラーが出てしまいます。
元データからあたらしくピボットテーブルを作り直しても同じです。
行アイテムを４個入れるとエラーになってしまうんです。
（｢品名｣｢形状寸法｣｢単価｣｢数量｣をすべて入れられない）
前のパソコンのExcel2000では出来た（しかも、｢受注者｣とか｢購入日｣とか
もっとたくさんの集計要素を入れていた）のに、なぜ…？
無知な私に力を貸してください。おねがいします。
※機種は忘れたけど最近のものです（for WindowsXPって書いてある）

>>529
私も知りたいです
どなたかご存じないですか？

>539

もとデータのデータ量が増えた。
以前とやり方が異なる。

以外にありません。

>>529, 540
ActiveChart.PlotArea.Select
Selection.Width = 800
Selection.Height = 600
とかでいいんじゃないの？

>もとデータのデータ量が増えた。
そうなんですか…
確かに元データは毎日上書きして行数が増えてたし年度末には3000行程になるはず
そのためにピボットテーブルを活用してたのに…使えないなんて。

>以前とやり方が異なる。
すみません、これはどういう意味でしょうか。

http://profiles.yahoo.co.jp/tengaiten2002

いまごろですが．．．
起動時のスプラッシュスクリーンを出さないように出来ないのですか？
毎回Ｅｘｃｅｌ９７って出るのがいやで。

★誰でも出来る！！お小遣い稼ぎ★
ＨＰ:http://www.asluck.com/zaitaku/
誰でも出来る！！ＰＣでのメール・掲示板の書き込み■お小遣い稼ぎから月収50万以上■

Exel97 - WindowsXPですが
セルにハイパーリンクでローカルファイルを
リンクさせています。（MP3ファイル）

しかし、セルをクリックすると
「ファイルにはウイルスが含まれている可能性うんぬん・・・」
といったダイアログが出て、これを「OK」しないと
ファイルが開けず、とてもウザイです。
このダイアログを出なくする方法がわかりません。
（クリックしたらすぐ音が出るようにしたい）

Windowsで扱える（？）ファイル（bmp, jpg, txtなど）やOfficeファイル
以外の、専用アプリに依存するファイルの時だけダイアログが
でるようです。

>>547
セキュリティレベルをさげる

質問なんですが（XP）
例えば、IF(A2=3,E5,"B")ってのあったときに
正のときに表示されるE5先の文字色とかを反映させることは
できませんか？

http://yahooo.s2.x-beat.com/

>>549
E5で条件付書式を使う

E5で条件付書式を使っても、>>549の式のセルには反映されん。
やるなら、式の入ってるセルに条件付書式を入れる。
「セルの値が」「次の値に等しい」「Ｅ５」･･･とかいう感じで

ニュースグループにも投稿したのですが、どなたかお知恵をお貸しください。

機種：DynaBook SS S5/280PNKW
ＯＳ：XP Pro
アプリ：Excel2000
症状：セル内に入力した文字に対して文字色の変更、または文字種の変更を
　　　加えようとするとハングアップしてしまう。ツールバーのボタンを押
　　　した時点でこの症状が起こります。
　　　Excelのセーフモードでも発生します。また、アプリケーションの自動修復や
　　　office2000自体のアンインストール〜インストールを行っても同様です。
補足：この現象はゲストなどでログインした場合は発生しません。
　　　以前、この状態に陥ったとき、iconcashe.dbを削除したら治りましたが、
　　　今回はそれでも治らないため、勘違いかもしれません。

既出の質問かもしれませんが、よろしくお願いいたします。

>>553

堂々とマルチポストすんなよ。

ユーザー名.xlb捨てるとか

　もし知ってたら教えてください

　Excel2000＆2002

　内容　散布図のグラフに近似曲線を追加して、その追加した
　　　　近似曲線のX軸に対応するY軸の値をグラフ上に表示する
　　　　方法です。

　現状　近似曲線の関数にベタにXの値を入れて出したYの値（セル上）
　　　　をドラッグアンドドロップでグラフ上にもっていき
　　　　表示させることができることは確認しました。

　　　　もう少し簡単にできる方法知ってましたら、よろしくおねがい
　　　　します。
　　　　

OS windows98
バージョン　エクセル2000

線形回帰をしたいのですが、LINEST関数を使って

=LINEST(C1:C136,A1:A136,TRUE,TRUE)

と例えばやるのですが、y=mx+b　の m しか結果がでてきません。
他の値はどうすれば出てくるのでしょうか？

どなたか教えていただけないでしょうか？

横に続く2セルを選択して、
式を入力したら[shift]+[ctrl]を押しながら[Enter]。
この場合、式は　=LINEST(C1:C136,A1:A136,TRUE,FALSE)　でも充分。

配列関数についてとLINSET関数のヘルプを一読しると吉。

【書式】→【条件付き書式】→【書式】→【フォント】のダイアログでは、「サイズ」のボックスが死んだようになってますが、これは標準ですか？それとも異常ですか？
どなたか教えて下さい！

↑例えば、入力値が１０００以上なら（サイズ）２４、１００以上１０００未満なら２０、１００未満なら１４と言う条件付き書式の設定にしたいのです。

EXCELでシンプソンの方式で定積分をするには

どうしたらいいですか？
例えば

∫の０から１　
Xの二乗プラス１　分の　２　でdx

とかです。

>>558
正常です。
ちゃんとそのダイアログボックスの一番下に書いてあるじゃないかぁ
「条件付書式にはフォントのスタイル、下線、色、および取り消しが
設定できます。」って。
フォントサイズは入ってねぇなぁ。

>>561
ありがとうございます。
じゃあ別の方法で　>>559　のような事は出来ないですかねぇ

うーん。
やるならＶＢＡだねぇ。
Select Case で分岐させて、イベントマクロ。

>>560
A列に0.0, 0.1, 0.2....1.0
B列に=2/(A1*A1+1)のコピー
C列に1, 4, 2, 4, 2 ... 4 ,1
で、
=SUMPRODUCT(B列, C列)*0.1/3
とか。

>>557
神よありがとうございました！

LINEST関数のhelpは読んでましたが、
配列関数のhelpを読んでませんでした。

すみません、教えてください、神様たち。

10/1
パンツ　　ズボン　　ﾐﾆｽｶ　　　ビキニ・・・・・
A　　　　2　　　　　　1　　　　5　
B　　　　7　　　　　　5　　　　6　　　　　3
C　　　　99　　　　　4　　　　8
・
例えばこういう発注数があるデータが毎日あがってくるのですが
これをこんな表に
↓　　　　　　10/1 10/2 ・・・・・・
　パンツ　　　2
　ﾐﾆｽｶ　　　　5
Aビキニ

B　ズボン　5
　　ビキニ　3

こんなｶﾝｼﾞで担当者別、企業別で反映させたいのです。
担当も数名いて、各々取り上げている商品名も違うので
元データを入れたら全員のseetに日別に反映､保存したいのでつ。
元データは毎日変わるので保存する必要はありません。
元データのどこかに日付を入力したら別の表の同じ日付に
反映する関数なんてあるんでしょうか？
VBAでないと無理でしょうか？
日本語、わかりにくくてｽﾏｿ。
うまく伝わらないかもです・・・。ｳﾃｭ

しかもずれてるし・・・
A,B,Cは企業名と解釈してください。
逝ってきまつ・・・。

>>566
なんか文章とか見てると中学生かな？と思ったけど留学生の方みたいですね。

データを縦型に持ってPIVOT集計すれば良いんじゃないの？
この形にするのはコピーということで、それじゃ面倒臭いか。

日付　　商品　　企業　 数量　　担当
10/1 パンツ A 2 お前
10/1 ミニスカ A 5 お前
10/1 ズボン　 B 5 俺
10/1 ビキニ　 B 2 俺

こんな感じでデータベース化するんじゃ。
勘違いだったらすまん。　ほな。　

>>560
定積分関数なんていうのは無いみたいなので（？）
地道に公式通り計算式を作るしかないのでは？

>>554

ご返答ありがとうございます。
お叱りごもっともです。

excel.xlbの削除も行ってみましたが、一向に症状は変わりませんでした。

>>570
IMEにATOK15を使ってるとかだったらoffice製品でいろいろ不具合が出てるみたいだから
ATOK15のアップデートモジュールをあてる。
http://www3.justsystem.co.jp/download/atok/up/win/020319.html

こんばんわ。困っているのでどうか教えてくださいませ。

会社のエクセルで領収証を作っています。
何十人かから集金したものに対して1枚ずつ発行するのですが
領収証の形の中に、データを取り込んでいくようにしようしています。

領収証は、毎月集金するものと、何ヶ月かに1度集金するものがあって、
それぞれの「但し書き」が「平成14年○月分協会費」と「平成14年○月分支部会費」と
２つあるので、それをシート１で選択するようにしました。

シート２には、その協会の会員のデータと、支払い金額が並んでいます。
その会員ごとに支払う金額が違うため、シート３以降は領収証の形が会員の人数分作ってあります。
（シート２のデータをそのまま反映させるだけ、というような作りです）

教えていただきたいのは、金額の欄に入れる数式なのですが、

たとえば、シート２のデータの2行目の「○×産業」という会社があって
協会費の金額は「I2」のセルに、支部会費の金額は「J2」のセルにあるのですが、
「協会費」の但し書きを選択しているときには、「I2」の金額を
「支部会費」の但し書きを選択しているときには、「J2」の金額を表示するようにしたいのです。

どんなふうに数式を書いたらいいのか、教えてください…。

ＷＩＮ95で、エクセルは97です。

長い説明で、あげくよくわからないかもしれませんが…。すみません。
どうぞよろしくお願いたします。

「協会費」あるいは「支部会費」の選択はどういう形でされているのでしょうか？
　以下、どこかのセルに決定が反映されている事を前提とします。

「協会費」「支部会費」の選択結果が反映されているセルを仮に"@@@"として
金額の欄 =IF(@@@="協会費",Sheet2!I2,IF(@@@="支部会費",Sheet2!J2,""))

"@@@"には"Sheet1!A1"の様なセル番号を入れてください。
"@@@"が「協会費」「支部会費」以外、および空欄の時は、金額欄は空白が返ります。

>>573さま
　ありがとうございました！！できました！！！！
　これで楽ができます。ありがとうございましたｍ（＿＿）ｍ

>>554
>>571

お手数をおかけしました。
レジストリの変更で解決しました。
\HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Excel
にあるFontInfoCacheを削除し、再起動したら正常に動作するように
なりました。

ちなみにATOK15は未使用です。

アドバイスありがとうございました！

よろしくお願いします。

オートフィルターのドロップダウンリストのフォントが小さいのですが
それを大きくする方法はあるのでしょうか。

今のところwindows自体の解像度を下げるしか
思い当たりませんでした。

OS: win2K
Excel: 2000
です

補足です
表は横長でExcelの表示倍率を犠牲にすると
操作がしづらいので、避けたいのです。

>>576
自分のでざっとやってみたが、おそらくフォントを大きくする方法はない
と思われ。

オートフィルタを行う内容にもよるけど、ヘルプで「フィルタ オプション
に設定する検索条件の例」でも見て応用を利かしてみるとか、しかないん
じゃないかなぁ……

うわ、ちょうど>>576とまったく同じ質問をしようとしてたんで、めちゃﾋﾞｸｰﾘ!
解決方法ないの？ まじ？ 鬱だ・・・

任意の選択範囲を対象にある処理を実行したいのですが、
例えば、("A1:A5,C1:C5")が選択されているとして、

Dim myRange As Range
Dim SelectRange As Range

Set SelectRange = ○○○

For Each myRange In SelectRange
　　処理
Next myRange

この○○○の部分に入れるものが分かりません。
Selectionかなと思ったんですが、違ってたみたいです。
おながいします。

http://www.leverage.jp/bloom/start/

>>580
Win2000/Excel2000で試してｍたけど、Selectionで間違ってないと思うよ。
具体的にどういうタイミングでどういうエラーが出るの？

>>582
Selectionでいけましたね。すみません。
結合セルだったもんで、いつもと違う挙動をしたからﾋﾞｯｸﾘしちゃったのです。
ほんとありがとう。

エクセル９７で見積書を作っています。
表紙の合計金額を入れるセルに
=CONCATENATE("金額 \",G31,".（消費税は含みません）")
と入力すると
金額 \733000.（消費税は含みません）
となりますが（G31は明細の合計のセルです）、
この733000に３桁区切りを入れる方法を教えてください。
この場合、733,000としたいのです。

>>584
セルの書式設定で「表示形式」「数値」「桁区切りを使用する」　んじゃない？

セルの書式設定→表示形式で、
ユーザー定義で「"金額 "\#,##0",".（消費税は含みません）"」
とし、セルは「=G31」。これで584の望む表示になるはずだが。

レスありがとうございます。
でもその方法だとうまくいきません。
数字のみだとそれでいいのですが・・

>>586
587は585さんへのレスです。
もう少し詳しく教えていただけませんか？

詳しく？
「表示形式」タブの「分類」という小窓の一番下に、「ユーザー定義」って欄が
あるでしょ？
そこをクリックして、右にある「種類」の真下の入力欄に、
"金額 "\#,##0",".（消費税は含みません）"
↑を、そのままぶちこんで、「OK」押す。
わかった？

>>586
たびたびすいません。
"金額 "\#,##0",".（消費税は含みません）"
をコピペしてみたところ
『表示形式がただしくありません以下略』
のエラーが出てしまうのですが・・

「"」がひとつ足りないだけでした。
解決しました。
586様ありがとうございました。

あ、スマン！
"金額 "\#,##0".（消費税は含みません）"

だ。要するに、「\#,##0」の前後に、「""」でくくった任意の文字列を
つけられるってだけなので、べつに難しいことではない。

vbaで、シートに貼り付けてある、画像の元あったPATHって取得できないでしょうか。
デジカメから取り出した、グチャグチャなファイル名の中からExcelに数枚貼り付け、
どのファイルか分からなくなってしまったのです。。。
フォルダも多岐に分かれているので、ビュアーで一枚一枚確認するのも手間で。。。
おながいします。

あげわすれました。
age

すみません、教えてください。
ちょっと桁数の多いデータを入れなくてはならないのですが
ざっとみると下３桁はほとんど「０００」なので、
たとえば「１５」だけを入力すると、表示が１５０００とされる、みたいなことって
できますでしょうか？
書式の設定とか見たのですが、該当するものはないようで、
いるかちゃんに質問しようにも、なんといってきけばよいのかわからず
こちらを頼ってしまいました。もしできるのであれば、方法を教えてください。

よろしくお願いします

>>595
0"000"とか#"000"とか...

>>584
普通に桁区切りボタンを押せばいいだけだと思うが･･･

すみません、この質問取り下げます。
多分、できないことは分かるのですが、どこか余所で聞いてダメだったら諦めます。
もう無視して下さい。
スレ汚しごみん。

>580

For Each myRange In Selection
　　処理
Next myRange

で良いじゃん。

>>599
>>583

>600

Set SelectRange = Selection

する必要は無いって意味。

↑この場合はどっちが早いの？
ループは変数に入れて回せって聞くけど？

折れ線グラフについて教えてください。
Ｘ軸とＹ軸の交点が各々ゼロで交わるグラフ（すなわち方程式の座標軸のような感じ）
を作りたいのですが、Ｘ軸の設定でＹ軸との交点を０にすると１以上でなければならない
といってエラーになります。
何か裏技ありますか？

>>602　自分の環境で試して早いほうを使えばいい。
Public i As Long
Sub MainPRG()
Range("C1:I2000").Select
For i = 1 To 10
Call SpeedTest
Call SpeedTest2
Next i
End Sub
Sub SpeedTest()
Dim r As Range
Dim myS As Single
myS = Timer
For Each r In Selection
r = Int(Rnd * 10 + 1)
r.Interior.ColorIndex = Int(Rnd * 50 + 1)
Next r
Cells(i, "A") = Timer - myS
End Sub
Sub SpeedTest2()
Dim r As Range
Dim myS As Single
Dim RR As Range
Set RR = Selection
myS = Timer
For Each r In RR
r = Int(Rnd * 10 + 1)
r.Interior.ColorIndex = Int(Rnd * 50 + 1)
Next r
Cells(i, "B") = Timer - myS
End Sub

>>602
この場合のY軸との交点とは、値ではなく項目の番号なので、ゼロは有り得ない。

策１　Xのデータが1, 2, 3...というものだったら、0のデータを作る。
策２　散布図にする。

条件付き書式って３つまでしかできないですよね？
では、例えばIF関数で出た６個くらいのアルファベットの色を
全部違う色とかにはできませんか？

列Aに対し、行が1万近くあるﾃﾞｰﾀを印字したいと思います。

1ﾍﾟｰｼﾞに60行印字できるとして、これを3段書きで印字する
にはどうすればいいでしょうか？
つまり、A1〜A60、A61〜A120、A121〜A180を1ﾍﾟｰｼﾞ内に収め
たいのです。

おながいします。

>>607　縮小印刷すれば？

レス感謝します。
縮小はめ一杯かけるつもりです。それでもページ数が多すぎるので、
出来ればページ内で複数段に分けて印字したいと思っています。
つまり、電話帳や郵便番号帳のようなスタイルに印字したいのです。

どなたか知恵を授けてください・・・。

excelでグラフウィザードが使えなくて困っています。
環境はプリインストールのWinXP homeにoffice2000入れて使っているのですが、
excelでグラフウィザードを立ち上げようとすると、
エラーをマイクロソフトに情報を送信しますか?という表示が出て
excelが強制終了されてしまいます。

デバックをするとMSO9・・・.dllがおかしいようです。(・・・は忘れてしまいました。)

どうすればいいのか情報ください。
なお、サブノートであるがゆえにCDROMを持っておらず、自宅のマシンからネットワークインストールしています。

>609
すでに３段書にしているの？　してないんだったら
Excel上では無理なので、VBAで３列にするしか方法がないと思われ。
↓適当に作ってみたが、こんな感じになる。
Sub a()
　i = 2
　Do While Sheet1.Cells(i, 1) <> ""
j = (Int(i / 60) Mod 3) + 3
k = (Int(i / 180) * 60) + ((i Mod 60) + 1)
　 Sheet1.Cells(k, j) = Sheet1.Cells(i, 1)
　 i = i + 1
　Loop
End Sub

>610
よくわかんないけど、VBのランタイム関連かなぁ
再インストールが一番手っ取り早いと思うけど……

>>606
色を変えたいセルを選択して、下のVBAを実行するってのではだめかな？

Sub a()
Dim a As Range
For Each a In Selection
　With a.Interior
　 .ColorIndex = Asc(a.Value) Mod 16

　 .Pattern = xlSolid
　 .PatternColorIndex = xlAutomatic
End With
Next a

End Sub

>>605さん
策２で解決しました！ありがとうございます。

馬鹿すぎる質問だとは思うのですが、エクセルに[図形描画]の
オートシェィプを使って書いた図形が印刷されないのです（ToT
プレビューでもテキストしか表示されません…

馬鹿すぎる質問で恐縮ですが教えてくださいm(_ _)m

>614
図形を選択して右クリック
オートシェイプの書式設定のプロパティで
オブジェクトを印刷するにチェックが入ってますか？

有難うございます（ToT


帰れます････m(__)m

先日Excel97からExcel2002にアップグレードしたところ、
ブックを複数個開く際に
同一ウィンドウ内に開くのではなく、
それぞれが新規のウィンドウで開くようになってしまいました。
そのためリソースが大量に消費されてしまい、Windowsが不安定になることが多いです。
どうにかして一つのウィンドウの中で複数のブックを開きたいのですが、
何かの設定で解決できるものでしょうか？
（上記はアイコンをダブルクリックもしくはメール添付から直接開いた場合です。
ファイルメニューの「開く」を選択した際は、同一ウィンドウ内で開きます。）

>>617
それってオプチョン→表示→ウィンドウをタスクバーに表示する
のチェックをはずしてもダメ？

>>618
レスありがとうございます。
以前そのチェックを外してみたのですが、
直接の問題解決にはなりませんでした。
タスクバーに複数表示されるだけではなく、
（リソースの減り具合からもいって）
プログラム自体が複数起動されている模様なのです。

>>619
とりあえず再インストでしょ？
97を残したままインストしているのなら、アンインストすること

>>617
そういう仕様だからどうしようもない気もするが…
って俺も困ってるんだけどさ（ｗ

過去スレを見てないので株ってたらもうしわけない。
マクロでグラフの範囲指定をするとき、
Dim x
x = 10　'この数字を場合により変える
Range(Cells(4, 1), Cells(x, 2)).Select
Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range(Cells(4, 1), Cells(x, 2)), PlotBy:= _
xlColumns
というふうに書いて実行しても
Cellsメソッドは失敗しました:globalオブジェクト
とエラーが帰ってきてしまう。
可変的なグラフ範囲指定をしたいのですが
どのようにマクロを組めばいいのでしょうか。
お助けを。

>>621
やはりそういう仕様なのですか・・
仕様でしたら諦めるしかなさそうですね。
幸い、ウィンドウにファイルをドラッグ＆ドロップ
することで、そのウィンドウ内で開くようなので、
しばらくはそれでいってみようかと思います。
アドバイス頂いた方、ありがとうございました。

excel2000用のお勧めのテキストってありますか？
基本と応用を学びたいのですが、
本屋にいってもたくさんあってどれがいいのか分かりません。
誰か詳しい方アドバイスお願いします。

>>624
まずヘルプ読め。マジレス

>>622
Excel2000、 Windows2000で
そのコードそのまんま貼って実行してもエラーでないんだけど...
どういう環境でxがいくつの時にエラーが出るの？

エクセル２０００で
元ある住所データから
郵便番号に変換することは可能でしょうか？
よろしくお願いします。

>>627
1.郵便番号変換ウィザード↓をインストール
http://office.microsoft.com/japan/downloads/2000/zipcode7.aspx
2.ツール＞アドインで郵便番号変換ウィザードを追加
3.ツール＞ウィザード＞郵便番号変換で変換したい範囲を選択し任意のセルを指定して郵便番号に変換

>>622

Sheets("Sheet1")がActiveSheetじゃないからでは？

ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range(Sheets("Sheet1").Cells(4, 1), Sheets("Sheet1").Cells(x, 2)), PlotBy:= _
xlColumns

Withでまとめて、

With Sheets("Sheet1")
　　ActiveChart.SetSourceData Source:=.Range(.Cells(4, 1), .Cells(x, 2)), PlotBy:= _
xlColumns
End With

>>628
神レスありがとうございます！
完璧でした。

ExcelのVBAでセルの値を変数に代入して
C=A-Bみたいなことをやっているんだけど
Ｃをセルに代入すると0.56になるはずが、
0.560000000000002
みたいになってしまいます。
これってどうすれば回避出来ますか？
あと、VBAでの四捨五入のやり方を教えてください。

質問です？？
xcel97を使っていますが、印刷するとき印刷プレビューで、
印刷設定画面が出て自動で「部数１０」といつも出ていますが
この設定はどうしたら解除できますか？
毎回このファイルだけ「部数１０」と出ます。
教えてください。

>>632
マクロは入ってませんか？

＞＞633さん
早速の返答、ありがとう御座います
会社で共有でつかっていますが、
マクロが入っているかどうかは、分かりません
マクロで印刷は、していません。一個づつ画面で印刷していますが
宜しくお願いします。

>631

Sub aaa()
Dim anser As Double
　anser = 0.560000000000002
　MsgBox anser
　MsgBox Application.WorksheetFunction.Round(anser, 2)
End Sub

WordとExcelの起動時と終了時に
非表示モジュール AutoExec 内でコンパイルエラーが発生しました。
ってのが毎回出てきたんですが・・・直し方教えてもらえるでしょうか?
┌────────────────────────────────────┐
│　 Microsoft Visual Basic ...................................　　　　　　　　　　　　　　　　　　　　　　　　　　×│
├────────────────────────────────────┤
│┌───―┐　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　......│
││ ∧＿∧　│非表示モジュール AutoExec 内でコンパイルエラーが発生しました。　　 .│
││（　´∀｀） │　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　......│
││（ 　　　 ） │　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　......│
│└────┘　　　　　　　　[　　O K　　］　　　[　　ヘルプ　　]　　　　　　　　　　　　　　　....│
└────────────────────────────────────┘
Word/Excel初心者スレでは答えが出なかったので、改めて質問しました。
使用OSはWindows2000SP2〜3(この症状が出たときはSP2のときでSP3にしてもなおらず。)
Office2000PersonalSP2です。
お願いしたします。

>>636
この人と同じ現象？
Win2000の復元後・・・。 投稿者名：Aki370 投稿時間：05/09-16:06

いつも拝見させていただいています。
質問なのですが、
Windows2000 SP2使用時に、OSの動作がおかしくなったので、
アクセサリの「バックアップ」をつかい、ファイル(*.bkf)から
システムの復元を行いました。

その後、OS自体の動作は順調に戻ったのですが、Officeを使用すると
「非表示モジュール Autoexec内でコンパイルエラーが発生しました」
とメッセージが出るようになってしまいました。

Officeを再インストールすればいいかなと思い、
アンインストールしようとしたのですが、
「修復プログラムパッケージを開くことができませんでした」と
メッセージが出て、修復も何もできません。
どなたかヒントをお願いします。

自己レス 投稿者名：Aki370 投稿時間：05/09-16:50

レジストリ内のインストールされているアプリケーションの一覧から
Officeを削除後、上書きインストールで解決しました

>>637
多分同じ症状だと思いますが、OS自体はおかしくなっていません。

レジストリ内のインストールされているアプリケーションの一覧から
Officeを削除後、上書きインストールで解決しました

この部分のことを噛み砕いて教えてもらえるとうれしいのですが。

>>638
てか、その AutoExec はどうよ？

>>639
今、Officeを一度アンインストールして、再インストールして、SR-1とSP2をいれてみましたが、
今度は、
ExcelではAutoExecNewが起動時にでて、DistMonが終了時に出るようになりました。
WordではAutoExecが起動時と終了時にでます。
Outlookではエラーはないのですが・・・。

で、今あたらしいエラーの方を検索していて新しいエラーの法が見つかり
その関連のエラーの原因らしきものがつかめてきました。
http://board.allabout.co.jp/board+message+windows.abc?seq=1395
この人曰く、
このエラーは、Norton AntiVirusのOffice Plugin機能と、Adobe社の
Acrobat PDFMakerのOfficeのアドイン機能との間のコンフリクトが原因
でおきるようです。

私の使っているソフトに一致いたしました。
Adobe Acrobat 5.0
Norton AntiVirus 20002
Office Plugin機能(多分データベースを観覧するときにCDから入れた気がします。)
そして、
http://service2.symantec.co.jp/consumer/support-kb.nsf/KBLPF/4EB4329DCF604
37E49256AFF005D2F1F?OpenDocument&PRODUCT=Norton%20AntiVirus2002
に解決策が載っているようなので少し試してみたいと思います。

セルに
=AVARAGE(A1:A100)
と書いたのと同じことをエクセルのマクロのＶＢＡでやりたいのですが、
どのようにやれば出来るでしょうか？

直りましたのでその工程を書き込みます。同じ症状になられたがたがいた場合に
役に立つと思いますので。
Adobe Acrobat 5.0 (バージョン4.0でも起こる可能性はあり。)
Norton AntiVirus 2002　(Office Plugin機能が曲者らしい。)
Office2000Personal　(私はPersonalユーザーですがこれ以上のグレードでも起こる可能盛大)

現象1:WordやExcel、PowerPointを使用中にエラーが発生して強制終了されてしまう。
以下のことを試してください。

《 Acrobat PDFMakerのアドイン機能を無効にする方法 》
・PDFMakerのWordアドオン機能を無効にする
C:\Program Files\Microsoft Office\Office\Startup
PDFMaker.dot ファイルを PDFMaler.dot.word に変更し、Enterキーを押す。
・PDFMakerのExcelアドオン機能を無効にする
C:\Program Files\Microsoft Office\Office\XLStart
PDFMaker.xla ファイルを PDFMaker.xla.excel に変更する。
・PDFMakerのPowerPointアドオン機能を無効にする
C:\Program Files\Adobe\Acrobat 5.0\PDFMaker\Office2000
PDFMaker.ppa ファイルを PDFMaker.ppa.powerpoint に変更する。
《 Norton AntiVirusのOffice Plugin機能を無効にする方法 》
Norton AntiVirusメイン画面を起動する。ウィンドウ上部の[オプション]ボタンを
クリックする。ウィンドウ左側のオプションリストで、[その他]を選択する。
[Officeプラグインを有効にする]からチェックを解除する。
[OK]ボタンをクリックする。

>642

AVARAGE　なんて関数は聞いた事がないぞ。

Sub Test()
　With ThisWorkbook.ActiveSheet
　　MsgBox Application.WorksheetFunction.Average(.Range("A1:A100"))
　End With
End Sub

現象2:非表示モジュール ****** 内でコンパイルエラーが発生しました。
[ C:\Program Files\Adobe\Acrobat 5.0\PDFMaker ]
├[ Office2000 ]
│ ├PDFMakerA.dot←をダブルクリック
│ ├PDFMExcel.dll
│ └PDFMWord.dll
├AdobePDFMakerX.dll
├AdobePDFMakerX.JPN
├AdobePDFMakerX.tlb
├PDFMaker.dot←ダブルクリック
├PDFMaker.xla←ダブルクリック
└PDFMakerA.xla←ダブルクリック
でNortonの機能を止めるでもなくOfficeの機能を止めるでもなく、直りました。
注意:どの環境でも直るとはいえませんが再インストールまでして直らなかったものが
これだけで直ったというのは正直ちょっと拍子抜けしました。たぶん、再インストールで
直らなかったのはAdobeの機能だったからでしょう・・・。
お騒がせいたしました。

>>640
　　　　　　　＿＿
＿＿＿／⌒　　　＼＿＿
　　 　/　| 　|（　　 　 ）　　 |　AutoExec の中身を聞いてんだよ…
　　　|　　| 　| ∨￣∨ヽ　│ \Program Files\Microsoft Office\Office\XLStart\ とかさぁ…
＿＿|　　| 　|　＼　|　_|＿|
　　　ヽ、（＿二二⌒)__）　＼
＿＿＿_|　　|　＼二 ⌒l.　　＼
　　　　　|　　|￣￣ |　　|￣￣||
　　　　　|　　|　　　 |　　| 　　.||
　　　　　|　　|_　　　|　　|_　　.||
　　　　 （＿＿）　　（＿＿）　.||

>>646
うん?　中身?　中身なんて存在しなかったよ。
エラー自体は、ヘルプで何度検索してもそんなものはない。といわれ続けたし。
エクセルとワードのヘルプクリックすると、
非表示モジュール<******>コンパイルエラーとしかでなかったし、マクロみても
直接かかわりのあるものはなかった、↑のURLでも書いてあると思うけど、
ソフト間のバトルでエラーでてたみたいだし。
ちなみに、PDFMakerはエクセルとワードのメニューにAcrobatコマンドが追加されるもの。
印刷からPDFファイルで穂算ではなく、ダイレクトにPDFに出来るという機能。

>>644
ありがとう。

既に完成しているシートの列と行をひっくりかえす事ってできるんでしょうか。。。
タテヨコの並びを逆にしたいんです。。。

>>649
コピー＞編集or右クリック＞形式を選択して貼り付け＞行列を入れ替えるにチェックを入れて＞OK

>>649
範囲選択後に
マウス右クリックし
形式を選択して貼り付けで
行列を入れ替えるをチェック

以上

>>650-651
ご丁寧に指導ありがとうございました。
万事解決いたしました。

こんにちは。XP使ってるんですが、関数DATEDIFが無いような...。
自分でDATEDIFと打ち込めば普通に使えるようですが。

「関数の挿入」から使える、DATEDIFの代わりの関数ってどれ
なのでしょう？　教えてください〜。

>>653
手で打てばいいだろ。アホか。

５桁の数字の列がありまして、

20322
20322
20322
20325
20325

のようになっています。
一番左が西暦の下一桁（2001年なら1、2002年なら2）で、以下
月、日にちが２桁の数字で入っています。

これを、普通の2001/03/04のような形式にするにはどうしたらいいんでしょう？

どうぞ、どなたか教えてください。

>>655
別セルに表示で良い場合。　A1 = 20332　として、
別セルに =DATE("200"&LEFT(A1),MID(A1,2,2),RIGHT(A1,2))
もし、｢37337｣と表示される様なら、表示形式を調整すること。

1999年など1900年代には対応してないのでｱｼｶﾗｽﾞ。

同じセルに表示させたい場合。
表示形式のユーザー設定に「"200"#"/"##"/"##」。

ただし、これはエクセルには日付としては認識されていないので
計算や関数には使えない。
見た目だけが重要、という時だけに限定しておく事。

どなたかお答えください。
サーキットなどでのタイム（00ｍ00ｓ000ｍｓ）の平均、最速などの計算を
したいのですが、何か出来る方法はありますか？
使用ソフトはoffise.v.x.for macです。
よろしくお願いいたします。

何から伝えればいいのか
わからないまま時は流れて
浮かんでは消えていく
ありふれた言葉だけ・・・

>>658
てか、何をしたい？
そもそも、「平均」「最小」なんてオートフィルタで一発なんじゃねぇか ((*´▽`)
もっと難しい事したいの?

あるいは、元のデータの形式が面倒なのか?
データロガーからどんな形式でデータが採れるのか、
何行かコピって貼り付けてレス呉れてみそ。

５時間かけて入力していたら突然ＰＣがフリーズ！！
Excel2000をWindows98で使用しています。
入力しだしてからバックアップ全然取ってないんだけど
少しでも復旧させる方法ありますか？
誰か教えて！！　お願いします。
※ちなみにＰＣはメチャ古い NEC VALUESTAR PC-9821V200

>661

少しでも早く、打ち直しに掛かるのが、復旧への早道

>>662
やっぱり全くだめなんだろーか？　ガクゼン
考えながら入力していったので打ち直しはめちゃかかりそうなんです。
なんとかなりませんか？

>663

などと言っている間に、さっさと打ち直し始めるのが最短。

>>663
てか、今回こそ自動保存アドイン入れろ　(ﾟдﾟ)ｺﾞﾙｧ!!

>>654
はい、手で打ち込めるんですが、「関数の挿入」に無いということは、
XP（2000）ではDATEDIFのかわりに使える、同じまたはパワーアッ
プ(?)した別の関数が用意されているってことだろうと思いまして...。
どなたか、もしご存知でしたら教えてくださいませ。

>666

知っている限り、Excel97から消えた。
入れ忘れ（バグ）と推測している。

>>667
ありがとうございます！
97とは、そんなに前から無くなっちゃってたんですね(＾＾;)
私は滅多に使わないんですが、忘れてるだけならまた
入れてほしいですね。

タイム計測で「分、秒」が60進法でその下が100進法にするための
関数および、設定がわかりません。

元々DATEIF関数は、他の表計算ソフトとの互換性を保つ為の関数でした。
だから、表(ウィザード)には出ていません。

あと、DATEIFには有名なﾊﾞｸﾞがあって、月の日数によっては正しい計算が
されません。これも元々のエクセル関数でないため？かもしれません。
ＭＳは多分このバグを治す気はないのでは？と思われます。

以下が関連ｱﾄﾞﾚｽです。興味があればどうぞ。
http://www.h3.dion.ne.jp/~sakatsu/ktfunc_ref0206.htm#DATEDIF

>>669
考えたんだけど、ｽﾏｰﾄかつ簡単にとつう方法は、結構なさそうだ。
秒までの部分とそれ以下の部分に分けるしかないのでは？
前半はexcelの時刻形式をそのまま使う。
後半は形式と計算式を自分で組んで、1/100秒*100になったら、
前半セルに1秒足す。逆は1秒引く。とか云うのをやるしかなさそう。
シリアル値でいうと、1/100秒は　1/24/60/60/100に当る。

>>669　参考
://cgi.fuji.ne.jp/~fj2094/cgi-bin1/wwwlng.cgi?print+200203/02030079.txt

ＶＢＡで!,B,C,D４つの変数のうち、一番大きなデータをEと言う変数に入れたいのですが、
このような場合はIF文で何度も判断して代入するしかないのでしょうか？

>>674
誤　ＶＢＡで!,B,C,D４つの変数のうち、
正　ＶＢＡでA,B,C,D４つの変数のうち、

[Excel2000][Windows98SE]を使用しています。
質問ですが
エクセルで作成した顧客名簿から
E-mail（OE5.5）を起動して、宛先、件名を自動で
入力することは可能でしょうか？

マクロの記録でハイパーリンクの設定をして
OEを起動した場合、設定した件名が自動で入るのですが
宛先が入りません。
エクセルの顧客名簿のE-mailをクリックした場合（マクロで）は
宛先は入りますが、件名を入れることができません。

よろしくお願いします

>674
max関数が使えるよ

>>677
> max関数が使えるよ

すみません、これってどうやって使うのでしょうか？
使ったことがないもので。

>>678
Application.WorksheetFunction.Max( A, B, C, D)

>678
Sub a()
Dim i As Integer
i = 1
With Sheet3
Do While .Range("A" & i).Value <> ""
.Range("E" & i).Value = WorksheetFunction.Max(.Range("A" & i & ":D" & i))
i = i + 1
Loop
End With
End Sub

>>679
ありがとうございました。

教えて下さい。

ｵｰﾄｼｪｲﾌﾟの直線をセルとセルの交点から書き始めるには
なにか方法はありますか？

今までは拡大して合わせて書いていましたが、方法があるなら教えて頂けませんか？

以前、Excel初心者用にチュートリアルを載せているサイトがあったのですが
今検索してみてもそれらしきものが出てきません。
どなたかご存じないでしょうか・・・？
操作しながら覚えられるので非常に分かりやすく、参考書要らずの内容でした。

>>682
[Alt]を押しながら、始点終点等を指定する。

>>683　この辺とか？
://homepage1.nifty.com/kenzo30/excel_kiso.htm

>>684
おぉ〜っ！！
感謝感激！　ありが�d♪　御蔭様でした。

エクセル2000です。
チェックボックスにチェックが入ってるか
どうかのマクロってどうやればよろしいのでしょうか？

IF HTMLCheckBox2 = Yes then
Range("B2") = "チェック"
End if
End sub

とやってみたのですが、チェックが入ってても
入ってなくても"チェック"が出るのですが。

よろしくお願いします。

http://muvc.net/jsweb/profiles.html

ここのスレ書き込んでる人かなり上級者のようですが、
どうやってエクセル上達したんですか？
やっぱり、参考書とか読んだのですか？
そうなら、いい参考書教えてください。

>>686
動作確認はしてねぇ。
IF CheckBox2.Value=True Then
msgbox("チェック入ってるわん")
else if CheckBox2.Value=False Then
msgbox("チェック入ってないみたい・・・")
End if
http://www.microsoft.com/japan/developer/library/default.asp?URL=/japan/developer/library/vb98/vbobjCheckBox.htm

>>688
簡単なもので良いから作って見るべし。

テキストファイルの中身をテキストボックスに表示するだけとか
ファイルコピーするだけとか
コマンドボタン押したら、２乗を計算するとか。

>>688
Excel一般なら、MOUS試験の参考書が意外と良いかも。
スキルが上がっておまけに資格もゲットできるし。

VBAなら、最初はコードを実際に入力すること。
将棋や囲碁で棋譜通りに並べることで上達するのと一緒（多分）

>682
ALTキーを押しながら・・・・さらにシフトキーで直交系になる。

エクセル2000、ワード2000、アクセス2000、パワーポイント2000
が開けません。正確には1回開いたと思ったら、すぐに閉じてしまいます。
98SEです。何から疑ってみるのがいいのでしょうか？

ここにいるVBAの達人は、それ系の本書いているでしょ。
名前は言わないけど。

>>692
xlだったらthisworkbookにworkbook_openイベントで
application.quitなんて書いてない？

>>694
アドバイスありがとうございます。
しかし、見方？がよくわからないのですが・・・。

>>692
正規版のCDキーを記入すれ
http://support.microsoft.com/default.aspx?scid=kb;ja;JP255503

オートシェイプについて質問させて下さい。
OSがWIN2000、XPの場合で、直線または水平の線を書きます。
これを[コピー]−［貼り付け］するとWIN98の時ではアクティブセルのところに貼り付けされるのですが
WIN2000、XPの場合だと全く違う場所に貼り付けられてしまいます。
この症状はどのようにして改善されるのでしょうか？よろしくお願いします。　

( ´-｀).｡ｏＯ(　オートシェイプにテキスト書込んで、部分的に選択して
　　　　　　　フォント設定ダイアログにて「下書き」「斜体」とか手入力で指定する…
　　　　　　　これを自動化したいのです。

VBAでも、部分文字列を選択するかわりに
「何文字目から何文字」って指定ができますよねぇ。
そのシェイプ.Characters(Start:=25, Length:=2).Font.Subscript = True みたいな。

その「Start」とか「Length」を求めるためには、どうしたらいいんでしょうか？

>>689
ありがとうございました。
しかし、コピーペーストで貼り付けて
みましたが、実行すると、構文エラーが
出てデバックしてしまいます。
elseとか消してみて、単純にしてみましたが
今度は、オブジェクトが必要です。と出ます。
何故か分かりますでしょうか？
よろしくお願い致します。

>>699

Private Sub CheckBox1_Click()
　　If CheckBox1.Value = True Then
　　　　MsgBox ("チェック入ってるわん")
　　Else
　　　　CheckBox1.Value = False
　　　　MsgBox ("チェック入ってないみたい・・・")
　　End If
End Sub

>>700
素早いレスありがとうございます。
大変申し分けありませんが
Private Sub CheckBox1_Click()
を使わないようには出来ないのでしょうか？

やりたいことは、マクロにて
HTMLファイルをエクセルで開き
マクロを実行したブックからマクロコードに
追記という形で、チェックボックスのチェックの有無を
数値で表したいのですが。

ですから、Private Sub CheckBox1_Click( )〜 End sub
を付けると、別のマクロ扱いになり
実行できなりました。
可能でしょうか？宜しくお願い致します。

金利計算で小数点は四捨五入せず、すべて切捨てのの時は
どうしたらいいのでしょうか？

例えば

4761963*0.08*0.01*31=118096.6824

ですと 118,097 と表示されます。（金額表示の為小数点以下表示なし）
これを 118,096 にさせたいのですが TRUNC やROUND DOWN
などを使うと下の計算も

5020000*0.08*0.01*31=124495 になります。
本来なら
5020000*0.08*0.01*31=124496 のはずが・・・

わかりにくい説明ですみませんがどなたかご指導願います。

煽りじゃなく、やりたいことがｻﾊﾟｰﾘ理解できません。

あ、>>703は>>701へのレスです

>>702
おれの環境では
=ROUNDDOWN(4761963*0.08*0.01*31,0)　で118096
=ROUNDDOWN(5020000*0.08*0.01*31,0)　で124496
どちらも普通に切り捨てで計算されるけど？

>>705
即レスありがとうございます。
全然説明ができてなくてすみません。

セルにこの計算式を入れるやり方が知りたいのです。

例えば

=A1*0.08*0.01*A2 を小数点切捨て （四捨五入なし）で表示したい時は

=A1*0.08*0.01*A2+ROUNDDOWN？？ ←どうやって入れればいいのでしょうか？

それと
=A1*0.08*0.01*A2
↑ この時点で小数点を一度切り捨てる計算式の入れ方はどうすればいいのでしょうか？

失敗です。

> =A1*0.08*0.01*A2
> ↑ この時点で小数点を一度切り捨てる計算式の入れ方はどうすればいいのでしょうか？

A1*0.08の時に切り捨ててそれから*0.01*A2ということです。

説明下手で申し訳ありません。

くわしく書きますと仕事でお客から、インターネットで
商品の注文がきます。
その時に、いくつかの商品にチェックが入っており
何の注文があったかをwebページより確認できるように
なっております。そこで、今までは商品に関して
１つ１つ手入力してきましたが面倒なので
確認するwebページを保存して、マクロでエクセルから
開くことにしました。

マクロにて開き、お客様情報など、自動で
入力する処理はできたのですが肝心の
チェックボックスの有無の判定がうまくいきません。
前述の通り、チェックボックス１にチェックが入っていれば
数値を表示させるマクロを作りたいのですが。

マクロ「自動実行」を実行させて

Sub 自動実行　()

ChDir "D:\仕事\フィードバック"
Workbooks.Open Filename:="D:\仕事\フィードバック\注文情報フィードバックシステム.htm"
で、開き
window("注文入力").active
など行い、お客様情報の入力が完了した後に
どの商品にチェックが入っていか、そのチェックした商品を数値にしたりしたいのですが。
続けて、
If CheckBox2.Value = True Then
MsgBox ("チェック入ってるわん")
Else
CheckBox2.Value = False
MsgBox ("チェック入ってないみたい・・・")
End If
と入れると、上記処理でエラーがでます。

privete sub checkbox_click()
を付けると、最初の処理とは別の処理になる為（End sub付けてって出ます）
１本で通して処理することができません。

どうすればよろしいでしょうか？宜しくお願い致します。

（こんな内容で分かりますでしょうか？）

>>702

705さんの書いた式にセル参照をあてがえばよろし。
> =A1*0.08*0.01*A2 を小数点切捨て （四捨五入なし）で表示したい時は
結果を入れるセルの式　=ROUNDDOWN(A1*0.08*0.01*A2,0)

>A1*0.08の時に切り捨ててそれから*0.01*A2ということです。
結果を入れるセルの式　=ROUNDDOWN(A1*0.08,0)*0.01*A2

ROUNDOWNのヘルプにも目を通しておいた方がいいよ。

>>684さん
どうもありがとうございます！
以前見たサイトとは違うようですが非常に分かりやすそうですね･･･
とりあえずはそちらで勉強いたします。

>>710
ありがとうございました。

質問です。よろしくお願いします。

１）シート見出しを右クリックして、「移動またはコピー」で
　　コピーをしたいシートがあるのですが、コピーできません。
　　他から得たファイルなのでどういう設定をしたのか分かりません。
　　コピーをできないような設定がなされていると考えたのですが、
　　どこをいじれば解決できますでしょうか。
　
２）表示倍率をデフォルトで200％にしておきたいのですが、
　　表示倍率のデフォルト変更の仕方はどうすればいいのでしょうか

>>709
If HTMLCheckbox2.Checked Then
    Range("B2") = "チェック"
Else
    Range("B2") = "チェック無し"
End if

プロシージャの中にプロシージャは定義できないということ。
どこかに組み込むなら、プロシージャの中身だけ貼り付けること。
名称等は適当に自分の場合に合わせて読み替えること。
HTMLの話ならHTMLの話とちゃんと先に書いて欲しい...

>>714
ありがとうございます。プロシージャの中にプロシージャーを定義
できないとはどうゆうことでしょうか？
さっきからやってますが、四苦八苦でうまくいきません。
Microsoft Excel objectに入れるとうまくいくのですが
標準モジュールにするとダメです。

何度も申し訳ありあせんがよろしくお願いします。

>>715
>>プロシージャの中にプロシージャーを定義できないとはどうゆうことでしょうか？
Sub test2()
    Sub test3()
        'hoge
    End Sub
End Sub
こういう書き方はできないよってこと。

そのシートがアクティブでない状態で参照したいなら、
どのシートかを明示する。
↓"test"の中身をシート名に変える。
If Worksheets("test").HTMLCheckbox2.Checked Then
End If

>>713
1)
ツール→保護→ブックの保護
あたりじゃないの？

>>716
ありがとうございました。
なんとか出来そうな感じです。
四苦八苦で頑張ってみます。

>>717
だめでした。、、
コピーできるシートもあればできないシートもありました。
EXCEL詳しいで通っていたのに、この件であせってます;;

>>719
Ctrl＋シートタブを横にドラッグでダメ？

エクセルで入金確認をしているのですが、金額がまとめて振り込まれているので
どの分の商品の入金かを確認したいのですが、関数がわかりません、
だれかおしえてください。

例　　1+3+5+7＝6の場合1と7を探す方法です。

すいません721のレスを修正します。
エクセルで入金確認をしているのですが、金額がまとめて振り込まれているので
どの分の商品の入金かを確認したいのですが、関数がわかりません、
だれかおしえてください。

例　　1+3+5+7＝8の場合1と7を探す方法です。

>>722
あまり意味がわかりません。
アンド、3,5の可能性は無いの？

カンマ区切りのCSVファイルを開く場合、
せっかく文字列をダブルクォーテーションで囲んでいるのに
Excelで開くと数値になってしまって困っています。
例: "0012" → 12
拡張子を.csvのままで何とか認識してもらう方法はないですかね？
1-2-3なら問題ないのに・・・

一部のデータを削除し、データ復旧ソフトで復旧させたのですがエクセルやワードの
ファイルが見れません。エラーとしては‘（ファイル名）’にアクセスできません。
ファイルは読み取り専用であるか、または読み取り専用の場所にアクセスしようと
しています。または、サーバー上に保存されているドキュメントから応答がありません。
といって出てしまいます。復旧したファイルが壊れているのでしょうか？
長くなってしまいましたがお分かりの人がいましたら教えてください。

Excel2001 Macバージョンを使用しております。

『www.~』や『[email protected]』といったような、URLやメールアドレスを
入力すると、自動的に直リン(でいいのかな、青文字になって、
アンダーラインが付く)になります。表示形式は文字列に設定して
いるのですが、同様です。これらのデータを単なる文字列として
入力するにはどうしたらよいでしょうか。
お手数ですがなにとぞよろしくお願いいたします。

>>724
普通にExcelを立ち上げる。
全セルを選択、セルの書式設定→表示設定で文字列を選択。
んで、csvファイルの中身を貼り付ける。A列に貼り付けるとする。

A列を選択、メニューのデータ→データ区切り位置を選ぶ。
んで、区切り文字をカンマを選択して、そのあと、文字列を選択して、
完了。

回答ありがとうございます。
説明が不充分ですみません　具体的に書くと
（166950円）56700円（78750円）94500円78750円（36750円）119700円
109200円46200円
の内282450円入金があった場合の（　）の部分を探し出す方法です。

>>725
>一部のデータを削除し、
具体的に言うと？
>データ復旧ソフトで復旧させたのですが
どこまで復旧できてる？拡張子はxls,docになってる？

>>726
Win2000,Excel2000ではハイパーリンクにならんねぇ。

>>728
多分、関数を探しても無駄足だろうと思われる。
マクロで組むしかねぇぇぇぇ。と思われる。
ちょっと組んでみようと思うが、期待するなぁぁぁぁぁぁ。

>>729
お返事ありがとうございます。
PCから他のPCにデータを移行しまして
移し終わった後に元PCの方に必要なデータが
ありました。それらのデータは削除してしまったので
復旧ソフトで復旧しました。
復旧自体は名前も元の通り復旧できています。
元のPCで作ったファイルが見れない状態で、
他人からもらったファイルは復旧した後でも
見れています。拡張子もxls,docになっています。
officeを入れなおせば見れるかもしれないと聞きましたが・・・。
パスがあたってないか、ファイル自体が壊れているんでしょうか？

>>731
復旧したファイルが見れず、で、
他人からもらった正常なファイルはそのPCで見れるわけだよね？

なら、ファイル自体が壊れている可能性は高い。と思われる。
バイナリエディタでその復旧したファイルは見れるか、
試してみるぐらいか。バイナリエディタで
普通に読み込めるなら、→諦める。
読み込めん→原因わからん。→諦める。
どっちにせよ、諦めるしかないと思われる。
俺なら諦める。これから削除に気をつけるぐらいしかねぇ。
Excel,Wordのファイルぐらいなら残しといても、ハードディスクを
圧迫することもあるまい。

>>732
遅いところ本当にありがとうございます。
バイナリエディタでファイルを見るためにはどうしたら
よろしいでしょうか？基本的な質問ですみません。
もしバイナリエディタでだめならば諦めます。
かなり復旧できたのですけ、重要なものが…

>>726
2001の事は知らないが多分ここで良いだろう
http://plaza5.mbn.or.jp/~koguma/excel/haiparinnku.htm

>>732
話はかわってしまうのですがOutlookのファイルも消してしまい
Outlook.pstファイルは復旧できて、そのファイルを移行先の
PCに入れたところファイルを壊れているとエラーが出ました。
C\Program file\Common file\System\Mapi\1041\SCANOST.EXE
を使ったところ受信ファイルは修復されました。
エクセルなどでは修復するツールはないでしょうか？

>>733
いやもう諦めるべし。
上書きされてもうデータはない。

>>734さん
どうもありがとうございました。さっそく試してみたいと思います。
感謝します。

>>727
やっぱりその方法しかないですかね。
でもこれだと素直に拡張子を.txtに変更して
ウィザードを起動させる方がスマートですよね？

なんかないですかね〜？
ダブルクォーテーションのかわりに
ある特殊記号を入れると文字列になる！みたいな裏技が・・・

>738

ttp://www.moug.net/cgi-bin/technic.cgi?exvba+TI06010024

>>720
だめでした。エラー表示も何もないのが、気味悪いです。
シート保護でもなかったです。

>>740

VBEを開いて、プロジェクトエクスプローﾗとﾌﾟﾛﾊﾟﾃｨｳｨﾝﾄﾞｳで
シートのオブジェクト名が、

Sheet111111111111111111111111111

とかになってんじゃねーの？

>>728
http://website100.hoops.ne.jp/728.xls
使い勝手は悪いが、使ってみてくれ。

ありがとうございます
よろしくおねがいします。

ありがとうございました、完璧です、ほんとうにありがとうございました
これでスムーズに処理ができます、感動です。

>>741
ありがとうございます！！
なってました。シート2枚あって

Sheet41111111111121111111111135　　（コピー不可）
Sheet411111111111211111111112　　　（コピー可）

でした。数字の意味はよくわかりませんが、
適当にいじったらコピーできました。
でも適当にいじっていいものか良くわかりません。
この辺の理解はＶＢＡの勉強しないといけないのでしょうか？（鬱

VBAは関係ないよ。

M$の情報。
ttp://support.microsoft.com/default.aspx?scid=kb;ja;JP236299

「シートのオブジェクト名の文字数が 31 を超えるとエラーが発生します。」
って書いてある

VBEで質問があります。いまさらかもしれませんが…

ステートメントの終わりを検索することってできないのでしょうか？

例えば、If ステートメントをいくつも入れ子にしている場合で

if　　　　　1
if　　　　 2　
if 3
if 4
end if
end if
end if
end if


このようなコードがあったとして、1のifに対するend ifにカーソルをジャンプさせたいのですが
こういうことって可能なのでしょうか？

他人の書いたコードが複雑すぎて（ｗ　
何処にあるか一発で探せたら便利なんですが…

>>747
インデントしてあるのよねぇ？

>>はてな
1,3,5,7で和が8になる組み合わせで、
最初に見つかった奴しか表示しないので注意してね。
最初に見つかった組み合わせが1,7だと3,5の組み合わせは
見つけない。
ちょっとコードいじれば、できるようにすることも可能ではあるが。

亀レスだが、excelの参考書は、FOM出版　MOUS試験問題集
がいいよ。
ビキナー向けのからいろいろあるから、やってみな。

ＦＯＭ出版ってよく聞くんですが、
ここのテキストの評価はどんなですか？
私もFOM出版のテキストを購入しようか迷ってます。
誰かアドバイスください。

>>713
１はファイル→プロパティ→ﾌｧｲﾙの情報タブ→｢読み取り専用｣のﾁｪｯｸを外す、じゃない？
２はﾌｧｲﾙを新規作成して保存するときに200％のままで保存するしかないんじゃないの？

>>751
富士通のパソコン教室で教材として使うことを主目的として
編集・発行されている。
厚すぎないし、およそ適切な説明がされているので、
とりあえず無難です。

>>747
エディタ買ってマクロ組め。Mifesとか秀丸とか。
てか用意されてるのもあるだろ。

Excel2002でカメラ機能を使い、１つのシートから他のシートへ
表を移したものを保存し、次に、Excel2000の入ったPCでそれを
開いたら、カメラ機能で移した表が拡大表示され、ページの枠を
はみ出してしまいました。Excel2002で表示しているように、
Excel2000でも表示させる方法はありませんか？

office2000です
A1セルに"１２３"という数字が文字列として入力されています
B1=if(A1=123,"yes","no")とした場合、B1は"no"となります
A1セルの書式を変えずにB1を"yes"とするにはどうすればよいの
でしょうか？どうぞよろしくお願いします。

>>756
なあ、自分で文字列って書いてるじゃん。
A1="123"ってすればいいだろ。

>>756
ﾜﾛﾀ
YES、NOに""つけといて123にはつけないのかｗ

>>747
てか、なんでそんなにネストするんかと小一(略

↓この人可哀想だから、誰か答えてやって。
http://pc.2ch.net/test/read.cgi/bsoft/1033027610/1

>>760
>>755

>>755
削除依頼は削除整理板　http://qb.2ch.net/saku/index2.html
いってフォームに記載するんだよ。
掲示板アドレスは　http://pc.2ch.net/bsoft/
削除すべきURLは　http://pc.2ch.net/test/read.cgi/bsoft/1033027610/だ。
削除理由は削除ガイドラインの６に書いてある重複だ。
とっとと削除依頼して来い。
質問するのは、削除依頼だしてからしろ