Excel総合相談所 27

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

　　　　 /）_/）　　　 （　・質問する人は可能な限り具体的に書いてね。
　　　　< ﾟ _･ﾟ> .｡oO（　・Excelのバージョン、OSのバージョンも書くとレスが付きやすい。
　　ﾉ） /　　 |　　　　（　・回答がなくてもキレないで。
　　＼(＿,,,_,,,）　　　（　・分かる人はできるだけ回答して下さいませ。

前スレ
http://pc5.2ch.net/test/read.cgi/bsoft/1091619391/

過去スレは>>2
FAQ（よくある質問と答え）は>>3-10くらい。

２ http://pc.2ch.net/test/read.cgi/bsoft/986283001/
３ http://pc.2ch.net/bsoft/kako/1004/10044/1004432306.html
４ http://pc.2ch.net/bsoft/kako/1012/10124/1012439547.html
５ http://pc.2ch.net/bsoft/kako/1018/10180/1018055390.html
６ http://pc.2ch.net/bsoft/kako/1023/10238/1023811906.html
７ http://pc.2ch.net/bsoft/kako/1028/10287/1028725250.html
８ http://pc.2ch.net/bsoft/kako/1033/10339/1033983470.html
10 http://pc2.2ch.net/bsoft/kako/1042/10429/1042913355.html
11 http://pc2.2ch.net/bsoft/kako/1045/10459/1045997062.html
12 http://pc2.2ch.net/bsoft/kako/1050/10500/1050069432.html
13 http://pc2.2ch.net/bsoft/kako/1053/10530/1053069026.html
14 http://pc2.2ch.net/bsoft/kako/1055/10553/1055342774.html
15 http://pc2.2ch.net/bsoft/kako/1057/10577/1057720306.html
16 http://pc2.2ch.net/bsoft/kako/1060/10603/1060345528.html
17 http://pc2.2ch.net/bsoft/kako/1062/10622/1062260735.html
18 http://pc2.2ch.net/bsoft/kako/1067/10672/1067264540.html
22 http://pc5.2ch.net/test/read.cgi/bsoft/1078930810/(html化待ち)
23 http://pc5.2ch.net/test/read.cgi/bsoft/1083074470/(html化待ち)
24 http://pc5.2ch.net/test/read.cgi/bsoft/1085756069/(html化待ち)
25 http://pc5.2ch.net/test/read.cgi/bsoft/1088690113/

9,19〜21はログ消えたっぽい

Q.列名がA，B，C，D，Eではなく、１，２，３，４，５になってしまいました。
　アルファベットに戻すにはどうしたらいいですか？
A.ツールメニュー：「オプション」 -「全般」タグで
　『R1C1 参照形式を使用する（C）』のチェックを外せば直ります。

Q:列を256個（IV列）よりたくさん広げることはできませんか？
A:エクセルのシートは65536行×256列が仕様上の上限です。
　シートを分けるとか、行と列を入れ替えるとか、データの方をまとめるとか、
　列数を増やさない方向で工夫するしかありません。

4 FAQ: 印刷プレビュー
Q:印刷プレビューではセル内に収まっていた文字が
　実際に印刷してみるとはみ出してしまうのですが、
　何とかなりませんか？
A:「印刷プレビューと印刷結果が一致しない」のは
　昔からのExcelの弱点で、どうにもなりません。
　セルの幅や高さに余裕を持たせるか、
　書式設定で「縮小して全体を表示する」にチェックを入れましょう。

Q.マクロを削除したのに、ファイルを開くたびにセキュリティの確認が出ます。
A.モジュールの解放が必要。
　【モジュールの解放方法】Alt+F11→Ctrl+R→Module1を右クリック→解放

Q.例えば、一つのセルに1803329と入力すると
　180度33分29秒と表示されるようにするには
　どうすればいいのでしょうか？
　ついでに計算もしたいです。
A.「1803329と入力すると180度33分29秒と表示される」
　というのと、計算できるというのを両立させるのは無理。
　書式を
　[h]:mm:ss や [h]"度"mm"分"ss"秒".00
　などにしておき、入力するときには
　180:33:29.99
　などとすれば、表示も計算もできる。

その他時間とか日付とかの計算について
　勤務時間を計算するには
http://support.microsoft.com/default.aspx?scid=%2Fdirectory%2Fworldwide%2Fja%2Fkblight%2Ft009%2F3%2F46.asp

　日数および日付の表示方法と計算方法 - 基本編
http://support.microsoft.com/default.aspx?scid=%2Fdirectory%2Fworldwide%2Fja%2Fkblight%2Ft009%2F3%2F45.asp

Q:たくさんの数値のリストがあって、
　リスト中のいくつかの数の合計と思われる数値が与えられました。
　リスト中のどれとどれの合計か調べることはできますか？
A:ナップザック問題(knapsack problem)として知られている難問です。
　一般的には総当りで調べるしかありませんが。
　しかし、データに特徴がある場合（桁数が限られているなど）には、
　うまい方法があって、速く解けることもあります。
　下記のページを参照してみてください。
　　ナップザック問題をExcelで解く
　　　http://www.geocities.co.jp/SiliconValley-Oakland/8139/

Q：セルの内容を判断して、表示を変えたい
A：　IF関数を使います。
　=if（条件,条件が成立した場合,成立しなかった場合）

例１：基本
　セルA1が１の場合○、それ以外の場合×を表示
　=IF(A1=1,"○","×")

例２：if文の中にif文
　A1が、１の場合○、２の場合△、それ以外×。
　=IF(A1=1,"○",IF(A1=2,"△","×"))

例３：ANDやOR活用
　A1が、４〜６の場合は、普通と表示
　=IF(AND(A1>3,A1<7),"普通","少ないか多い")

例４：計算も出来る
　A1が１０までなら、A1を１０倍して表示、それ以外なら２を引く。
　=IF(A1<11,A1*10,A1-2)

詳しくはヘルプを参照しましょう。

Q1:データの空白部分があって、そこで折れ線が切れてしまいます。
　 繋げたいのですが如何したらいいでしょうか？
A1:ｸﾞﾗﾌを選択＞ﾂｰﾙ＞ｵﾌﾟｼｮﾝ＞ｸﾞﾗﾌ＞空白ｾﾙのﾌﾟﾛｯﾄ「補間してﾌﾟﾛｯﾄする」にﾁｪｯｸ

Q2:棒グラフに重ねて、折れ線グラフを表示するにはどうしたらいいのでしょうか?
A2:最初、すべてのデータを棒グラフで作成。
　次に、折れ線で表わしたいデータ系列のどこかを、グラフ上で右クリック
　ｻﾌﾞﾒﾆｭｰ＞ｸﾞﾗﾌの種類＞折れ線＞OK

Q3:ある系列だけ、縦軸を別にしたいです。
A3:その系列のどこかを、グラフ上で右クリック
　ﾃﾞｰﾀ系列の書式設定＞軸＞使用する軸「第2軸」にﾁｪｯｸ＞OK

Q.セルに入力した値が勝手に変わってしまうのですが
　入力したままの形で表示させるにはどうしたらいいですか？
A.数字でよくあるケース（先頭のゼロが消えてしまう、日付として解釈されてしまう）
　入力する時、先頭にアポストロフィ(')をつけるか、
　該当するセルで右クリック−「セルの書式設定」−「表示形式」で「文字列」を選択。
　文字列ではなく数値として扱いたいときは
　「セルの書式設定」−「表示形式」で「ユーザー定義」を選択し、工夫する。
A.文字でよくあるケース（i⇒I、teh⇒the、cna→can　など）
　ツール→オートコレクト→入力中にオートコレクト
　の該当する箇所を削除。

Q.エクセルで作った表が横方向に多くなってきたので
　行と列を入れ替えたいのですが。

A.コピーして、適当なセルで右クリック。
　形式を選択して貼り付け→行列を入れ替える。

ピポットテーブル初心者ですが、教えてください。
ピポットテーブル、そこからのグラフを作った後に、
元データに追加の列を加えたり内容を更新した時に、
ピポットテーブル、グラフに反映されないのですが、
すべて作りなおさなければいけないのでしょうか。
データの更新ボタンを押してみましたが、何も変わって
いないようです。
どなたか教えてください。

>11
行を追加してもピボットテーブルが参照してる表の範囲は自動では変わらない。
（ピボットテーブル作成時の表の範囲しか参照しない。）
自分は表の範囲の指定でCurrentRegion使って対応してる。

>>1
乙

>12 レスありがとうございます。
Current Regionって何ですか？

>>14
ttp://www.google.com/search?hl=ja&lr=lang_ja&ie=UTF-8&oe=UTF-8&q=CurrentRegion+excel&num=50

>14
ありがとうございます。ざーっとみてみましたが、Current Regionって
VBAのマクロを組まなくてはできないのでしょうか。
VBAもマクロも経験がなく、どういうものかもわかりません。
ピポットテーブルの表範囲が自動で変わる方法だけ具体的に教えてもらえませんでしょうか。
お願いばかりですいません。

ソルバーを使いたいのですが、どうやってインストロールするのですか？？

>>16
分からないこと勉強する気もないクレクレ君は逝ってよし

>>17
まるちやめて

ブック1のSheet1、A1に数字を入れてあり、

　　A　B　C
１　8　月度の集計
２

ブック2のSheet１に下記のようなデータがあります。

日付　　　　　区分　累計
2004/6/05　　17　　50
2004/8/30　　17　　60
2004/5/22　　20　　10
2004/6/05　　20　　50
2004/8/07　　20　　55
2004/5/03　　27　　10
2004/5/04　　27　　15
2004/8/12　　27　　80
2004/8/24　　27　　90
2004/7/01　　28　　30
2004/7/29　　28　　50
2004/8/15　　54　　60

このデータの中から、ブック１のSheet1、A1の数字を利用して、下記の集計表をブック1のSheet2に作成したいと思っています。

　区分　累計1　累計2　差
　17　　　50　　　60　　　10
　20　　　50　　　55　　　 5
　27　　　15　　　90　　　75
　28　　　50　　　**　　　#VALUE!
　54　　　**　　　60　　　#VALUE!

今回の場合A1は８なので、８月以外の最後のデータを累計1の列に、８月最後のデータを累計2の列に入れ、
差列には、累計2−累計1の結果を表示させたいと思います。
データがないところは**が入力され、計算結果が#VALUE!となるようにしたいです。
なお、ブック1とブック2は最初から開いてある状態です。
注文が多くてすみません。お願いします。

前スレ使い切ってから質問しなおしなよ

>>22
ごめんなさい。
あと8レスだったので途中で切れたらスレが中途半端になると思ったので、こっちに書いてしまいました・・・

丸投げ

前スレの最後の方からこのスレの出だしに至るまで丸投げヤローがほとんどじゃないか…
自分でなにも努力しない丸投げはクレクレ君と同じ扱いでいいんじゃないかと思うんだが。

>>21
つまずいてるのはどこなのさ？

>>26
全体的につまずいているのですが、メインは、ブック１-Sheet1のA1の数字を利用して、
特定の月のデータを抜き出すってところです。
一致する年月日のデータを取り出すっていう方法は、いくつかのHPで見つけたのですが、
月だけを比較する方法が分かりません。

>27
MONTH使ってもダメ？
つか、どんな式を書いてみてつまったのか書いた方が皆もアドバイスしやすいのでは？

>>27
> 全体的につまずいているのですが、
もうちょっと絞ってくれるとみんなレスし易いと思うけど・・・
monthで月を取り出して比較汁！

あとは、VBAでダイアログでも作って
新しいシートから作るのは？

今更だが、コピペミスで
前スレ 3-4 だったところを 3　一個にしちゃったのは
申し訳なかった。
その分、>>10まで含めて次期テンプレに反映ヨロシク。

　　　　A　　　　B　　　　C
1　　　5　　　　　　　2004/5/20
2

>>28-29　Monthについて調べてみました。
そして、上記の表を準備し、下記マクロを実行してみました。
結果は「同じじゃないです」となります。Monthの使い方が間違っているのでしょうか？


Sub aaa()

Dim aa As Date
Dim bb As Date

aa = Range("A1").Value
tsuki1 = Month(aa)

bb = Range("C1").Value
tsuki2 = Month(bb)

If tsuki1 = tsuki2 Then
Range("A2").Value = "同じです"
Else
Range("A2").Value = "同じじゃないです"
End If

End Sub

>>32
A1は書式で月だけ表示したやつじゃなくてただの｢5｣という数字だけですね？
下のように書けばうまくいくかと。

If Range("A1").Value = Month(Range("C1").Value) Then
　Range("A2").Value = "同じです"
Else
　Range("A2").Value = "同じじゃないです"
End If

>32
Monthは年月日から月を返す関数。だから32で書いたのは「同じじゃないです」となる。

>33
>If Range("A1").Value = Month(Range("C1").Value)

よくわかんないんだが、ここValue必要なのか？
If Range("A1") = Month(Range("C1"))でいいんじゃないの？

>>33-34
ありがとうございました。
またすぐつまずきそうですが、For〜Next文と組み合わせてみます。

>>992
前スレ992です。
ありがとうございます。Controls("……")でいけるんですね。
勉強になりました。
教えてもらうと「な〜んだ」ですが、
自分では気づきませんでした。

A 　　 B
1 　　私　　　-5
2　　君　　　6
3　　私　　　3

この時、私が0以上の場合1勝として
別なセルに1勝1敗と表記するにはどうしたらよいでしょうか？

過去ログ13〜18って取得できなくなってない？
ギコナビで無理。Operaも人大杉って言われる。
まぁmakimo.to行けば読めるけど。

>>36
前スレ992です。　×
前スレ990です。　○
失礼しました。

>37
０以上で勝ちは判った。
負けの条件は？

>>37
よく分からん
-5 6 3 は C？
0以上ってどこがどこと比べて？

前スレ987さん、989さん、ご回答ありがとうございました。
989さんのコードと987さんの(991での)指摘でうまくいきました。

>>37
　 　A　　B
1 　私　　-5
2 　君　　6
3 　私　　3

A列に私or君、B列に成績？が入力されていて
条件は0以上が勝ち、0未満が負けと仮定した場合、

C1に =IF(B1<0,"",A1)
D1に =IF(B1<0,A1,"")

を入力して、C1:D1を下に必要な行数分コピーする。

勝敗を表示したいセルに
=COUNTIF(C:C,"私") & "勝" & COUNTIF(D:D,"私") & "敗"
と入力する。

ってくらいしか思いつかないので他の人どうぞ。

面グラフの線を平滑化できますか？

すみません、既出かもしれないですが質問です

例えば　9/26　と打った場合に、勝手に　9月26日　と表示され、
上の部分には　2004/9/26　と表示されてしまいます

そのまま　9/26　と表示させる方法はありませんか？

>45
セルの書式設定-日付で好きなのをお選びください。見た目の表示を変えられます。

どうしてもデータが「2004/9/26」となるのがイヤなら文字列に設定しちゃえば9/26の
ままにできるけど、正直お勧めできない。

すみません…書き込んでいきなりですか、処置方法がわかりました

書式→セル→文字列で、なんとかしていきます

>>46
(ﾟAﾟ)

ありがとうございます
おかげさまで、まとまったテーブルが作れます('∀`)

>>11
ttp://www2.odn.ne.jp/excel/waza/pivot.html
もう少し自分で調べるということを覚えよう。

>>49
ありがとうございます。
まさにここの２が知りたい内容でした。
試してみたのですが、、名前定義設定後、[ピボットテーブル/ピボットグラフウィザード - 2/3]の
ところでCtrl+F3(メニュー[挿入]-[名前]-[定義])で list を選択するとありますが、
2/3でCtrl+F3を押しても何も起こりません。メニュー[挿入]-[名前]の[定義]も
Activeになっていない状態です。（しかし通常のシート状でCtrl+F3で確認すると
listはできています）
なんとか解決できませんでしょうか。

>43
おお〜有難うございます。
無事、うまくいきました。

50ですが、ここの３の間違いでした。。。
どなたかご回答お願いいたします。

If・・・Thenステートメント、If・・・Then・・・Elseステートメントで、
If 条件式 Then 処理1と本に載っているのですが、条件式は１つしか定義できないのでしょうか？
If 条件１かつ条件2 Thenってことはできないのでしょうか？

>>53
できるよっていうか、聞くよりやってみた方が早いだろ？

すいません。EXCEL２０００使っています。
例えば、A1セルをクリックしたあと、C3セルをクリックした時
シフトボタンを押していないのに、複数範囲が選択してしまいます。

その後、G10セルをクリックしても、C3セルからG10セルを複数
選択されてしまします。

しょうもない質問とは思いますが、解除する方法を教えてください。

>>55
F8

セル表示に関する質問です。（EXCEL2000）

SUM関数で算出した数値の前に、"合計"という文字を同一セル内に表示させたいのですが、
その方法がわかりません。
（例えば、A1のセルに、合計2222←SUMで算出した数値）

方法をご存知の方がいましたら教えて下さい。

>>57
A1のセルの書式設定＞表示形式タブ＞ユーザー定義＞種類欄に「"合計" #,##0」とか

>>57
="合計"&SUM(E8:E10)
こんな感じで式を書けばよい。

>>59
正常に表示できました！！
ありがとうございました！

親切心で文字列とデータを一緒にしないように58を教えたのに無視かよ

>>61
まぁまぁ、お礼をもらうためにレスしたわけじゃないでしょ。

>>62
お礼と無視は話が違うだろ？

>>62
まあ、あつくならずに。
ありがとうございました！っていわれるためにレスしたの？

>>64
別に聞きっぱなしでレス返してこないのは別に日常茶飯事だからいいけど
>>60みたいにレスを返すのなら一方を無視するのは失礼だろって事
それくらいも解らない？

>>65
それを指摘するのも、されるのも厨房っぽいからどっかいって。
ついでに>>64もどっかいけ。

>>65
こんなところで熱くなるなよ、厨房。

仕切り厨ｷﾀ━━━━━━(ﾟ∀ﾟ)━━━━━━ !!!

>>68
IDでないと何役もできてよかったな。

>>65の言ってることは正しい

>>70
でもそれを、「無視かよ」っていうやつもやなやつだよね。

>>56
ありがとうございました。できました。

エクセルと関係ないレスが続きそうだから
>>61にはおいらから「ありがとう」といっとくよ。

漏れからも
>>61
ありがとう。

んじゃ俺からも
>>61
おやすみ。

>>73-74
場を収めるためとは言え　さんきゅ

If Then Elseについて質問です。

If ... Then
　If ... Then
　Else
Else

と書いた場合、1行目のIfのElseは4行目。2行目のIfのElseは3行目と見てくれるんですか？

End Ifが抜けてました。

If ... Then
　If ... Then
　Else
　End If
Else
End If

>>77-78
自分で試してみればわかるのでは？

>>50
ウィザードの2/3の時に、メニューバーから挿入→名前→貼り付け
で定義のウィンドウが出るので、それで作った定義を選んで、OK
押せばいいんじゃないの？

>>80
おおっ、ありがとうございます。
できました。めちゃくちゃ感謝です。

ピボットテーブルのセル内の単位をすべて英語表記にしたいのですが
（元データはすべて英語表記で作成済み）、合計とか月とか自動的に日本語表記に
なってしまいます。どうしたら英語単位表記にできますでしょうか。教えてください。

A列 B列　C列　
　a　　1　　100　←のようにある場合で、A列にaかつ
　b　　2　　200　　B列に1とある場合のC列の合計を求める方法を教えて
　b　　1　　300　　貰えないでしょうか？(100+200+300=600)
　a　　1　　200　　sumifだと条件が一個（A列にa)だけしか上手く行かないです。
　c　　2　　100　　sumifの中身でand()を使えば上手く行きそうな感じが
　c　　3　　200　　したのですが、全くできませんでした。
　c　　3　　100
　a　　1　　300

>>82

日本語版エクセルだと、英語表記にできないんじゃない？
わかんないけど。

>>83

=SUM((A2:A100="a")*(B2:B100=1)*C2:C100)
上の数式を入力（またはコピー貼り付け）したあと、
Ctrl + Shiftを押しながら、 Enterで確定。

データの行数に応じて、A100、B100、C100のところは
変更してください。

あ、もし、1行目がタイトルじゃなくて、データが入ってるんだったら、
A2、B2、C2のところは、A1、B1、C1に直してね。

>>83
D1に　=AND(A1="a",B1=1)　と入れて下にコピー
=SUMIF(D:D,TRUE,C:C)　で求まる。

Excel2003のカスタマイズの質問

ユーザー設定で、図形描画のツールバーに"頂点の編集"ボタンを
D&Dで追加しようとしても出来ません。
他のボタンはツールバーに追加できるのに… なんで??

Word2003やPowerPoint2003は"頂点の編集"をツールバーに追加出来てます。

>>87
今、俺の手元にあるのは2002だけど、普通にできるなあ。
他のツールバーにはドロップできる？

会社のが2003だから明日（つーか今日）試してみるね。
もし、誰の回答もなかったら、明日その結果報告します。

>>82
ひょっとして、50の人と同じ人？
まあ、いいけど。
例えば1-mayと書かれたデータが勝手に5月1日と変換されているなら、
右クリック→フィールドの設定→表示形式で変えればいいんじゃないの？
グレーのセルに表示されてる名前を日本語から英語に変えたいんなら、
同じく右クリック→フィールドの設定から、名前のテキストボックスの
ところを好きな名前に変えればいいんじゃないの？
普通のセルの合計の部分とかは、数式バーから変更できるみたいだけど？

>>89

>>82が言ってるのは、左上の集計方法の「合計」と、グループ化したときの、月の表示
のことだと思いますよ。

あ、左上のやつは手入力で変えられるんだね。
知らなかった。

あと、グループ化の月表示も、つど手入力なら変えられます。
聞きたいのは、自動的にってことだと思うけど。

>>88
> 今、俺の手元にあるのは2002だけど、普通にできるなあ。
> 他のツールバーにはドロップできる？
他のツールバーにもD&Dが出来ないんですよ。全く理由がわからんです。
他のボタンは可能なのに"頂点の編集"だけダメ。

> 会社のが2003だから明日（つーか今日）試してみるね。
> もし、誰の回答もなかったら、明日その結果報告します。
よろしくです。m(_ _)m

"図形の調整(R)"を見ていて気付いたのですが、理由が分かりました。

Excel2003では、頂点を編集できるオブジェクト(例えば"曲線"や"フリーフォーム")を選択している時しか
"頂点の編集"という操作自体をそもそも選択できない(表示されない)仕様のようです。
# Word2003やPowerPoint2003ではグレーアウトされるだけで表示はされる仕様。

つまり、ツールバー上に"頂点の編集"ボタンを置けているのだが普段は見えず、
実際に頂点を編集できるオブジェクトを選択した時だけツールバー上にボタンがひょこっと現れます。

まさかこんな仕様になってるとは思いませんでした。お騒がせしました。

>>93
そういう仕様なんだ。
それって、ツールバーの一番右のメニューの「ボタンの表示・非表示」で、
常に表示さすことってできないんですかね？
まあ、必要なときにひょっこり現れるなら、問題はないと思うけど。

ちなみにExcel2002も、使用できないときはグレーになるだけです。
「ボタンの表示・非表示」は、なぜか「頂点の編集」だけ設定できませんでした。

>>94
> それって、ツールバーの一番右のメニューの「ボタンの表示・非表示」で、
> 常に表示さすことってできないんですかね？
これも>>93の説明と同様に、頂点編集可能オブジェクトを選択している時のみ選択肢に加えられます。
しかもグレーアウトしていてチェックを付けたり外したりできない。

よって、常に表示は無理のようです。

> まあ、必要なときにひょっこり現れるなら、問題はないと思うけど。
そう思って諦めます。

> ちなみにExcel2002も、使用できないときはグレーになるだけです。
> 「ボタンの表示・非表示」は、なぜか「頂点の編集」だけ設定できませんでした。
Excel2002までの仕様やWord2003/PowerPoint2003の仕様を見ていると、
仕様というよりバグ(というか仕様そのもののバグ)と解釈できなくもないですねぇ…
# ユーザーを混乱させるという意味でも

簡単な在庫表を作りたいんですけど
総個数が記入するたびに減ってく表をつくりたいです

その場合　総個数-（A+B+C+D+E)＝現在個数
みたいな式を入れればいいのですか？

>>96
藻前は自分で作ると時間がかかりそうだ。
急いでるならそれようのソフと探してみれ。
ttp://www.vector.co.jp/vpack/filearea/win/business/hanbai/index.html

>>96
SUM

>>95
2003で試したら、まさにおっしゃるとおりの現象が起こりました。
いろいろ試したけど、表示し続けさせることは無理でした。
お役に立ちませんで…。

MSサイトにこの件について載っていたので、参考にしてください。
Excel2003のバグみたいです。

あ、URI載せるの忘れた。
ここです↓

http://support.microsoft.com/default.aspx?scid=kb;ja;836753

>>99-100
なんだぁ、既知問題だったのですか。やっぱ仕様じゃないよね(w
ん？11日前… つい最近発見されたようですな。

> この問題は既に弊社にて Excel 2003 の問題として確認しており、現在調査中です。
> 詳細がわかり次第、サポート技術情報でお知らせする予定です。
MSは問題を認識しているようなので、いつかは修正されそうです。

> お役に立ちませんで…。
いえいえ、お手数を煩わせてすみません。
どうもでした。

E列でダブルクリックをすると、本日の日付を表示する下記コードを使用しております。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Dim RangeName As String
RangeName = Target.Address
RangeName = Mid(RangeName, 2, 1)
If RangeName = "E" And Target = "" Then
Target = Format(Now, "yyyy/mm/dd")
ElseIf RangeName = "E" And Target <> "" Then
Target = ""
End If
Cancel = True
End Sub

上記コードですと、E列のみでしかダブルクリックできなくなってしまうのですが、
他のセルでもダブルクリックが出来るようになり、かつE列をダブルクリックをすると、
日付を表示するようにしたいのですが、可能でしょうか？

>>102
「Cancel=True」 を切り取り、
Target = Format(Now, "yyyy/mm/dd") 　の下と、
Target = ""　の下へ貼り付け。

レスありがとうございます！
希望通りの動作をになりました。
ありがとうございました！

>>49,90
はい、50と同じ人です。
手入力でできました。ありがとうございました。
自動なやりかたあればありがたいですが、とりあえずしのげました。
ほんとにありがとうございました。

>>102
こうすると、Cancel = Trueは１つで済みますよ。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
　Dim RangeName As String
　RangeName = Target.Address
　RangeName = Mid(RangeName, 2, 1)
　If RangeName = "E" Then
　　If Target = "" Then
　　　Target = Format(Now, "yyyy/mm/dd")
　　Else
　　　Target = ""
　　End If
　　Cancel = True
　End If
End Sub

Excel2002、W2K使用です。

質問なのですが、最初にAccessであるデータベースを組んでおきます。
それらのデータをExcelで利用することは可能でしょうか？

例えば、Excelのセルに”01”と入力した場合にAccessで組んだデータベースの連番が
”01”の行を取り出してExcelのシートに一行コピーする。ということです。

すいませんが、ご解答よろしくお願い致します。

>>106
ありがとうございます。
参考になります！

>>107
マクロを組めばできるよ。
でもマクロを組まなくて出来るかは知らない。

>>108
さらにすっきりと。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)

　If Target.Column <> 5 Then Exit Sub 'Eは5列目

　Target = IIf(Target = "", Format(Now, "yyyy/mm/dd"), "")
　Cancel = True

End Sub

>>110
あれーまたレスがある！
しかも超すっきり！！
どうもありがとう！！

これじゃだめか？（わずか一行）

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)

If Target.Column = 5 Then Target = Format(Now, "yyyy/mm/dd")

End Sub

すみません。質問させてください。
小数点第一位が０の場合は切り捨て、第一位が1以上の場合は切り上げたいのですが・・・
round関数などで試したのですがどうしてもうまくいきませんでした。
既出でしたら申し訳ございません。お力をお貸しください。

0.4足して四捨誤入

一行で済ませるために　Else Target = ""
を抜いちゃっていいのかね。

>>113
普通に　=ROUNDUP(A1,0)　じゃダメですか？
これだと、例えば「2.01」など第一位が「0」でも
「3」になっちゃうからダメか・・・。

どなたか教えてください。
セル相対参照を行っている計算式で、参照元のデータのカットペーストをしても
参照セルが移動しないようにするにはどうしたらいいのでしょうか？
具体的にはたとえば下記のようなケースで、A20のデータをA19にカットペーストしても
勝手に=SUM(A$1:A19)にされない方法です。
offsetなどでどうにかいじってみようとしましたが、頭が煮えてしまいました。

　　　　A　　　　　　　B　　　　　
01　　123
02　　456
03　　774
　　　：　　
20　　122　　　=SUM(A$1:A20)

>>113
INT(A1+0.9)じゃだめですか？
12.0999999999999→12
12.1→13と出たので、大丈夫かな？

>>117
環境を書き忘れました。Windows2000　SP4 + EXCEL2002 10.2614.2625です。

>>117
セルをつかんで移動させるとか、そういうこと？

>>119
A20を選択して、Ctrl-X、その後A19を選択してCtrl-Vする動作とか、
A19を右クリックーD（削除）してA20以下を繰り上げたりするような場合です。
どちらもB20の計算式は=SUM(A1:A19)になってしまいます。
A20をA19にコピー後A20を削除すれば問題はないようですが、煩雑だし、
複数の人に使ってもらうことになるシートなのであまりややこしい制限は掛けたくないんです。

>>120
セルをつかんで移動させる方法じゃだめですか？

>>113
５捨６入などの定石、この場合０捨１入だから
=ROUND(A1+0.4,0)
>>117
=SUM(INDIRECT("A1:A20"))

>>122
これならいけそうです。ありがとうございます。
しかしこれをコピーでB1〜B19に並べようとすると
手作業で参照範囲を変更しないといけないなあ・・・・
これも満たす手がないものか・・・・あ、できた
=SUM(INDIRECT("A$1:A"&ROW()))

今まではカラムA変更時ChangedイベントからVBAを動かし
計算、書き込みさせるというお馬鹿なことをしていました(^^;)
まあこれはこれで悪くないんですが。

>>121
いや、それだと結局コピーですよね。
使う人が何も考えなくてもいい（カットでも別の方法でもとにかくカラムAだけを
いじるならどんなやり方でも問題ない)方法が知りたかったのです。

>>124
コピーじゃなくて移動だよ。

>>124
もしかして、セルの右下をドラッグしてないか？

右クリックでドラッグすれば移動やコピーのメニューが出るからわかりやすいかモナ

いい加減ヘルプ見ろよ

113です。
A1＋0・1で出来ました。ありがとうございました。

質問させていただきます。

Sheet1に、A1:F6 という簡単な表があります。

A2:A6にはレコードのキーとなる氏名 {"田中","佐藤","斉藤","山田","ひろゆき"} があり
B1:F1にはフィールド名 {"自宅電話","携帯電話","アドレス","住所","童貞フラグ"} があるとします。

この、「キー名」と「フィールド名」から目的のセルの参照を知るために、
たとえば "田中" の "童貞フラグ" の参照が知りたかったら

=INDEX(B2:F6,MATCH("田中",A2:A6,0),MATCH("童貞フラグ",B1:F1,0))

になると思うのですが、もっとスマートな関数の使い方があったらぜひ教えていただけませんでしょうか。

>>130
vba使った方がスマートにならんか？

どなたか教えてください。
ＥＸＣＥＬ２０００でオートフィルターを使用しているのですが１０１５行以降の内容がプルダンメニューに
表示されません。４０００行ぐらいまでの内容を参照表示したいのです。
何か方法はないでしょうか？宜しくお願いします。

>>132
そんなん使い勝手がええのか？

毎日更新され、順位が変動するWeb上のデータを、名前が同じである項目ごとにまとめて、
できたら順位もそれまでの数字の合計順にしたいのですが、どうすればできるのでしょうか？
つまり、
9/29 　　　　　　　　　　9/30
順位　名前　数字　　　順位　名前　数字
1　　　A　　　100　　　　1　　　B　　　80
2　　　B　　　　70　　　　2　　　C　　　60
3　　　C　　　　40　　　　3　　　A　　　40
…　　　　　　　　　　　　　…
というデータを取り込んで、関数かなにかを使って
　　　　　　　　9/29 　　9/30
順位　名前　数字　　　数字
1　　　B　　　　70　　　　80
2　　　A　　　　100　　　40
3　　　C　　　　40　　　　60
…　　　　　　　　　　
という風にまとめることができるようにしたいのです。

Excel2000です。宜しくお願いします。

　　　A　　　　　 B　　　　　C　　　D　　　 E　　　F　　　 G
1　項目　　最終入力　　9/1　　9/2　　9/3　　9/4　　9/5
2　aaa　　　　　　　　　　　10
3　bbb　　　　　　　　　　　　　　　　　　　 20
4　ccc　　　　　　　　　　　　　　　10　　　　　　　　　　　 30

上のような表でB2に"9/1"、B3に"9/3"、B4に"9/5"というように
項目ごとに入力されたデータのうち一番新しいものの該当日付が自動でB列に入力されるようにしたいんですがどうしたらいいですか？

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
　 If Target.Column >= 3 And Target.Column <= 33 And Target.Row >= 2 And Target.Row <= 41 Then
　　Cells(Target.Row, 2).Value = Cells(1, Target.Column).Value
　End If
End Sub

だと普通に入力してる分にはいいのですが訂正や削除を行った場合
一番新しい日付ではなく最後に入力・削除を行ったセルの該当日付が入ってしまいます
データはＣ2からAG41まででExcelは2002です。どなたか分かる方よろしくおねがいします

>>135
こんなんでどうですか？

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
　If Target.Column >= 3 And Target.Column <= 33 And Target.Row >= 2 And Target.Row <= 41 Then
　　Dim myC As Long
　　myC = Cells(Target.Row, 256).End(xlToLeft).Column
　　　If myC >= 3 Then
　　　　Cells(Target.Row, 2) = Cells(1, myC)
　　　Else
　　　　Cells(Target.Row, 2).ClearContents
　　　End If
　End If
End Sub

質問です

ハイパーリンクをクリックしたした時に開くブラウザを
インターネットエクスプローラーからSleipnirに変更したいのですが
できますか？

EXCEL再インストールしたら　　02/11/12と今までは入力するとそのまま表示されていたのに
H2.11.12と表示されるようになってしまいます、いままではそんなことはなかったのですが
どうすれば元どおりになりますか？

>137
前スレでも同じような質問が出てましたが、Sleipnirの設定のほうで
Sleipnirを通常使うブラウザに設定してますか？

>>135
こんな感じで。

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
　If Intersect(Target, Range("C2:AG41")) Is Nothing Then Exit Sub
　　
　With Cells(Target.Row, Columns("AH").Column).End(xlToLeft)
　　Cells(Target.Row, 2) = IIf(.Column = 2, "", Cells(1, .Column))
　End With
End Sub

=A１＋A２＋A３＋A４＋・・・・・・・・・A30＋と言うような計算を簡単にするにはどうすればいいのですか？

=sum(a1:a30)

すみません。できました。VLOOKUPですが。

>>142
有難うございました

>>134,>>143
表を以下のように変更すればピボットテーブルで出来たんですが、
とりあえず解決したようでよかったです。

　　 A　　 B　　　 C　　 D
1　日付　順位　名前　数字
2　9/29　 1　　　 A　　 100
3　9/29　 2　　　 B　　 70
4　9/29　 3　　　 C　　 40
5　9/30　 1　　　 B　　 80
6　9/30　 2　　　 C　　 60
7　9/30　 3　　　 A　　 40

新規に開くとこの様に開いてしまいます元のように最大化で開くようにするにはどうしたらできますか？
http://ccfa.info/cgi-bin/up/src/up6586.jpg

>>146
最大化してからエクセルを終了して、もう一度新規に開いてみたらどうでしょうか。

セル内の数字の文字数によってROUNDUP関数で切り上げの位を変更したいと思っています。

例
１２、３　なら　１３
１２３，４　なら　１３０

色々考えたんですがうまくいきません。どうかお力を貸して下さい。

>>148
規則性がよくわからないんですが・・・

>>149
ｽｲﾏｾﾝ。解決しました・・・

ちょっとお聞きしたいんですが、excel関数のヘルプは間違いが多いんですか？

間違いだらけのExcel関数ヘルプ
−　財務関数篇　−
http://www.shochian.com/exclfc.htm

だとすると、ヘルプから引用した市販の関数解説本も間違っている可能性大ですよね。

>>151
何をもって間違いとするかの違いだけ
×÷の表記が日常では正しいけどエクセルだと * / になるよね？
簡単に信用したり疑ったりするのやめれ

>>152
÷を使うのはせいぜい中学生までです。

>>150
どう解決したか書いてー

ある値の１００の位が
１の場合・・・１階
２の場合・・・２階
３の場合・・・３階

と表示させるにはどの関数を使ったらいいでしょうか？

>>155
100の位を抽出して、ifで求めるとか

>>156
100の位を抽出する方法は？

>>155
ある値が入ってるセルをA1セルとして

=MID(A1,LEN(A1)-2,1) & "階"

ってこと？上の式は100未満を考慮してないけど。

>157
１００で割った値の右から１桁

=RIGHT(TRUNC(A1/100)) & "階"

SUMである範囲の数値の合計を出そうとすると、
『1E+06』みたいなエラーが表示されるんです。
これはどういったことが原因なんでしょうか？

>161
セルの幅が小さい？

>>157 161
それくらいはヘルプ見ようよ

>>162
正常に表示されました。
ありがとうごさいます。
とてもはずかしい質問をしてしまいましたね。

　　 Ａ　　Ｂ　　　
１　 ○ 21
２ × 5
３　　○ 8
４　　× 13

上の表のＡ列が○、Ｂ列が１０以上のものの個数を、
別のセルに表記させるにはどうすればいいんでしょうか？

>>165
>>43の応用で出来そうな気がします。

>>165

A列に「判別」、B列に「数値」という見出しを挿入して

　　　A　　B　　　C　　　D
１　判別　数値　判別　数値
２　○　　２１　　○　　　=<10
３　×　　　５
４　○　　　８
５　×　　１３
６　○　　２９
７　○　　１０

で、どこかのセルに
=DCOUNTA(A1:B7,B1,C1:D2)

>>157
まあ公式みたいな門です。
=INT(MOD(A1,1000)/100)

>>165
好きな列にデータ分だけ式を埋めこんでSUMをとる。
原始的だけどわかりやすいよ。
=IF(AND(A1="○",B1>=10),1,"")

EXCEL2000です。ほとほと作業が進まず困り果てています。

1）
複数のＥＸＣＥＬファイルに一度（できるだけ楽）に同じワークシートをコピーできる
方法がありましたら教えて下さい。

2）
複数のセルの統一化
（例えばあるセルＡに値を打ち込んだら別のＢＣＤＥの４つのセルも同じ値が自動的に入るような形）
とかできるならそちらもお願いします。

87個のファイルの扱ってるんですが同一書式のシートの複数追加頼まれて残業中です。
よろしくお願いします。

例えばＡ１のセルだけ変更して次々と印刷できるでしょうか？
つまり、ひとつのセルに人名を入れて人名だけ変えて次々印刷したいのです。
よろしくお願いします。

>>169
1)　複数のブックシートを開き、コピーしたいシートラベル上からコピーを選択
　　コピー先のブックシートを選択する

2) =a1でいいんじゃないの？

>>171
1）それだと全ファイルごとに毎回コピー作業しないと駄目なような気が。

2)　もうちょっと詳しく教えてください。

>>172
1)それくらい、別にたいしたことでも・・・？

2)セル参照させればいいだけでしょ

>>171
＞複数のブックシートを開き、コピーしたいシートラベル上からコピーを選択
＞コピー先のブックシートを選択する

それだとコピー先に1つしか移動先を選べませんよね？
これを複数選んで一発（と言うかできるだけ楽に）貼り付けれる方法を聞きたかったのですが
ＥＸＣＥＬでも限界あるみたいですね・・・

>172
2)
適当にｂ2、ｃ5、ｄ8に=a1と入力しておけば
a1に999といれると
b2,c5,d8にも999と自動的に入る。

>>173
2）はわかりました。有難うございます。

1）はそれで朝からずっと続けてるんですがまだ半分も終ってません・・・
それくらい・・・なんですかねぇ・・多分今日は帰れなさそうだ。。。

すいません>>175の上２行は>>173じゃなくて>>175でした

コピーって５秒もあれば出来るじゃん。
100個あったって１０分かからないよ。

もしVBAでCopyメソッド使うとしても、87ブック程度ならコピー先のブック名調べて
書き換えるヒマがあったら手作業でコピーした方が早い気がする…

すげー要領の悪いやり方してないかな・・・とか思ったり

>>170
差込印刷できるのかな。

>>169
終わりましたか？

>>176
会社の詳しい人に聞いた方が早かったと思うよ

>>169
複数のファイルが一つのフォルダに入っているとして

VBAで、ファイル名を取得　→　シートに書き出し　→　書き出した順番に開く　→
シートをコピー　→　ファイルを閉じる　→　書き出した次のファイルを開く・・・終わるまでループ

で、出来るんじゃないの？

=a1すら分ってなかった169にそこまでやらすのは気の毒だろう。

んじゃ
コピーされるワークシートと、コピー先のファイルを開いておいて

マクロの記録　→　シートをコピー　→　ファイルを閉じる　→　記録終了
で、記録されたマクロをメニューアイコン（ニコニコマークがいいかな？）に登録
順番に手動でファイルを開いては、ニコニコマークをクリック　→　開いてはクリック　→　終わるまで

で、出来るんじゃないの？

はじめまして。Excel2003のソフトがあるんですけど、Windows９８にインストールって出来るんですか？初心者なんですがくだらない質問ですいません。教えてください。

んん？

違いフォルダに入ってる同じ名前のファイルの場合はこれでいいけど
ファイル名が違うとマクロの記録じゃだめだな　＿|￣|○

スマソ

>>187
箱に対応OSで書いてあるだろ

コピー先のファイルをいくつか適当に開いて、
コピー元のシートラベルをD&D（CTRLを押しながら）。
これで十分だろ、80くらいなら。

UWSCみたいなものを使うのは？

Ｗｉｎ２０００です。
データを保存したのですが、
どうしても保存前(３時間くらい前)に戻したいのです。
何か方法はありませんでしょうか。
格納日の前のでもかまいません。
ＰＣの電源は落としていません。

上書き保存しちゃったデータは元に戻せないと思う

１スレに１人は上書きデータを元に戻す方法訊いてる希ガス

そうなんだ。
で、答えは出てるの？

あるブックAのなかにaというシートがあります。
業務上、Aをデータベースとして毎月一つのブックを作るのですが、
別の人がシートaをコピーしてブックBを作って更に必要な
加工を行います。
その加工においてまったく別のブックCからデータを取得する
マクロをブックAのaに書いてコピーしたらそのままブックBの
なかのaで使いたいのですが、何かうまい方法はないでしょうか。

マクロをいちいち探しにいくダイアログが出てしまい、マクロに
慣れていない人が使えない状態でつ。ブックBのaシートの
マクロ起動用ボタンを押すだけで、さくっとマクロを動かしたいのです。

>195
１スレ1人は言いすぎだった。
でも過去ログにあった分も「無理、スレ違い」で片付けられてたーよ
バックアップとる設定にしてあったらまだマシだったかもねー

前スレではスレーだったよな。

スレ違いってことは、別スレでは解決するってことだよな。ハード？！
漏れにはサパーリだ。

OS⇒XP　EXCEL⇒2000　を使用しています。

顧客のリストをEXCELで作っているのですが、オートフィルタを使って抽出したデータを
WORDの宛名ラベルで出したいのですけど、抽出したデータだけ出す事は可能でしょうか？
何度やっても失敗してしまいます。。。
どなたか良い方法があったら、教えてください。

>192
私が盆の水を地面にこぼすから
これを元に戻したら答えてあげよう。

バックアップ履歴から戻せる

>>199
抽出したデータで新しくシートでも作れ

>>199
オートフィルタ実行後適当な列で、抽出された行だけ選択
適当な文字（例えばＰとか）を入れて CtRL+Enter
後はWordから差し込む条件を指定するだけ。

>201
誰へのレス？

>>198
誰へのレス？

スレーってなに？

散々既出かもしれないですが、テンプレに乗ってなかったんで質問させてください

マクロのユーザーフォームで各コントロールを設定した後、
プロパティでフォント変更しようとすると高確率で固まってしまいませんか？
何かいい対策があれば教えて下さい

>>207
固まらない。

自分のPC（自宅＆職場）じゃ、それで固まった事はない。
PCや環境によって、固まりやすいケースっつうか癖みたいなのはある。

OSやExcelが不安定になってり、
特定のデバイスを入れてからそのエラーが起こりやすくなってたりしないか？

>>207
固まらないけど、フォントをたくさん入れてるからフォント名の表示までに時間がかかる。
エクセルとは関係ないと思うけどフォントキャッシュでも削除するぐらいしか思いつかない。

>>208-209
レスありがとうございます
ごめんなさい、自己解決というか・・・
プロパティウィンドウの「font」をダブルクリックして設定ウィンドウを出すと問題なく出てくれました
でもその横の･･･の□ボタンをクリックすることで設定ウィンドウを出そうとすると
職場でも自宅でもウィンドウが出てくれず固まってしまうことが多いんです
ありがとうございました

>>210
確かにフォントはそこそこ入れてます
それが原因なのかな？問題が起こったときはファンが回り始めるし・・・
でも表示に時間がかかるなんてレベルじゃないんですよね
ありがとうございました

ちょっとすみません
こちらで聞くべきなのか判りませんが、質問させて下さい
OS：ＷｉｎｄｏｗｓXp homeEdition で
Excel　2000　sp-3　を使用しているのですが

セルへの数値入力が、ほぼ出来なくなってしまったのですが、どうすれば良いのでしょうか
”ほぼ”というのは、たまに数値として認識してくれる時もあるのです
数値として入力出来る条件は判りませんでした
IMEの入力モードは直接入力になっているのですが・・・
それと、セルに＝（１）と入力した場合は数値として認識するようです

セルだけでなく、Excelのオプションの"計算方法"の"反復計算"の項目に
一度フォーカスが合ってしまうと
「入力した数値は使用できません。整数型または少数点数を入力してください」
と警告され、オプションタブの変更すら出来ません
キャンセルは可能ですが・・・

Excelの修復も、再インストールも試しましたが、改善しませんでした
その他、色々と調べたのですか、対応策が見つかりません
ＩＭＥの問題かもしれませんが、他のソフトでは問題が無いようです
対応策、障害情報等知っている方がいましたら、お教えください

>>207,>>211-212
これじゃないですか？
http://support.microsoft.com/default.aspx?scid=kb;ja;JP418532

>>214
間違いなくそれです、ありがとうございます
製品問題として認識されていたんですね
SP2はまだ怖いんで入れたくない・・・
ちなみに>>211が3番目の回避策ということで

個別にパッチ入れてないSP1を使うのも怖いよ

スレ違いかもしれませんが

アドレスを入力して、それをクリックすると、ＩＥが開くのですが、それをSleipnirで開かせたいのですが、どうすればいいでしょうか？

どなたかご教授ください。

>217
>139

この質問もいい加減FAQか？
そういえば前スレか前々スレで通常使うブラウザに設定してもダメと言ってたヤツはどうしたんだろう。

>>217
スレ違い

B列の、データのある最後の行のセルの値をコピーしたいのですが、
マクロでどのように記述すればよろしいでしょうか？

>>220

Range("b65536").End(xlUp).Copy

EXCELを起動したら
自動的に"PERSONAL"って名前で開かれるようになってしまった・・・・
マクロを触ったせいなのですが、
元に戻すにはどうすればいいっすか？

>>222

Personalは、普段は見えていないだけで、常に開いています。
なんらかのきっかけで、見えちゃっているだけだと思うので、
「ウィンドウ」の「表示しない」で見えなくしてください。

>>221
ありがとうございました。
マクロを初歩の初歩から勉強しないと・・・・

CurrentRegionでセル範囲を知ることが出来るのは知ったんですけど、
そこで次にそれを変数として利用したい時にどうすればいいのか教え
ていただけないでしょうか。

例えばA1:C10の範囲を得た時に
変数 tate に　10
yoko に 3
を格納したいのですけど。

>>225
こんな感じで。

Dim CR As Range
Dim Tate As Long
Dim Yoko As Integer
Set CR = Range("A1").CurrentRegion
Tate = CR.Rows.Count
Yoko = CR.Columns.Count
MsgBox Tate
MsgBox Yoko
Set CR = Nothing

結局、保存したエクセルは元に戻らないのでしょうか。
スレ違いと言うのでしたら、どのスレに行けば解決するのか、
教えて頂きたいのですが・・・。

エクセルのＦ１キー（ヘルプ表示）を無効にする方法はありませんか？
Ｆ２キーを押そうとしてＦ１キーに触れてしまうことがあり、
そのために１０秒近いロスをするのが困ります。

>228
カバーでもかけろや

>>228
Sub Auto_Open()
　'XLStartフォルダのPersonal.xlsの標準モジュールにこのマクロをコピペ
　Application.OnKey "{F1}", ""
End Sub

>>226
有難うございます。
一つ気付いたんですが、式が入っていたらそのセルも
範囲内になるんですね。いや、それは構わないんで。

>>231
SpecialCellsをヘルプで参照。

すみません、どなたか教えて頂けないでしょうか。
エクセルで削除とかの操作をしていたら10個分位のセルの枠の線が
消えてしまいました。（罫線を引いているのではなく、画面だけで見れる
薄い線）
ポッカリと白いスペースになっているのでまた線を付けるにはどうしたら
よいのでしょうか？
よろしくお願いします。

>233
罫線のある未入力の項目からコピーする。
正しい、やり方は、知りませんm(__)m

>>232
ｔｈｘ

>>234
おぉっ！
ありがとうございます。
目からうろこでした。

目の中のお魚さんを大切に育ててくださいね

>>222
ウイルスかも知んないよ。

少し長くなりますが、どなたかご教授下さい！

VLOOKUP関数を使用して一覧表から別の表を作成しようとしました。

一覧表には下図の様に縦1〜50行、横B〜Y列までデータが入力されています。

　No A　　B　　C・・・・・・Y
　 1　10　 1　　10　　　　　10
　 2　15 　4　　10　　　　　10
　 3　10　 1　　10　　　　　10
　〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
　〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
　50　10　 1　　10　　　　　10

違うシートに、その一覧表のNoを検索値にしたVLOOKUP関数で
自動作成できるようにしています。

ですが、NO31以降がｴﾗｰ（#N/A）になってしまいます。
どうしてなのかわかりません。
数式はNo1からｺﾋﾟｰしたもので、No30まではｴﾗｰにはなっていません。

ﾍﾙﾌﾟも見たんですがわからなかったので、こちらで質問させて頂きました。
宜しくお願い致します。

>>239
まず式をさらせ
それと一応OS,エクセルのバージョン

すみませんでした！
XP HomeEdition2002で、Excel2003です。

下の式の、上段は答えがでて、下段は、ｴﾗｰになります。
=VLOOKUP(30,一覧!$B$5:$Y$34,2,0)&" 殿"
=VLOOKUP(31,一覧!$B$5:$Y$34,2,0)&" 殿"

検索値は、ちゃんと数値です。

$Y$34だから。
34じゃなくて54でしょ。

ああ！！
どうもすみませんでした・・・・。
行を増やす前の数式だったようです・・・。
ありがとうございます！

P6の内容と一致するまで06,N6,M6,L6,K6,J6,I6までさかのぼって、一致する内容が
あれば、一致したセルから、P6まで(P6含まず)の行6,7,13の内容をクリアするマクロ
は、どういったマクロになるでしょうか？

244>>
さかのぼると記載しましたがさかのぼらなくても別に問題ありません。
P6と一致するI6,J6,K6,L6,N6,M6,O6の内容があれば、一致したセルから
P6まで(P6含まず)の行6,7,13の内容をクリアするです。

VBAですが
配列で１３×３で３９個の変数を作ったのですが
これをRengeで指定したセルに一気に値を入れるにはどうしたらいいのでしょうか？

For i = 9 To 15
　 If Cells(6, i) = Cells(6, 16) Then
　 　 Range(Cells(6, i), Cells(7, 15)).ClearContents
　 　 Range(Cells(13, i), Cells(13, 15)).ClearContents
　 　 Exit For
　 End If
Next

>>246
自己レス
変数使えばなんとかなりますね
組込関数でなんとかならないかと思ったのですが、横着はいけませんね

>246
書き出すセルが１３行×３列で良ければ
ＲＡＮＧＥ＝配列　 で桶。

>>249
あら、こんなに簡単に
あーりがとう

sheet1
を　　1000
あ　　1500

sheet2
=index 　2600
=index 　5000

上記のようなデータがあります。
sheet1で名前を並べ替えした場合に、
sheet2の隣の数字も名前と一緒に並べ替え
するにはどうしたら良いでしょうか？
よろしくお願い致します。

片対数グラフを作りたいんですが、
横軸を10^-6、10^-5・・・ってな風にとりつつ、
だけどグラフ上の表示は-6、-5とかを上付きにしたいんです。
何かよい方法はありますか？

>>252
logとったデータでプロットする

>>253
まちがった

>>252
表示形式を指数にして、
1.0E-5とかの1.0Eの部分を図形で消して、
10のテキストを書くとか。

Microsoft Query 2000,2002 の Excel Driver は不具合だらけで使えない？

ＯＳ　　　　Windows Xp,2000,NT4.0 全て最新のSP済
Excel 　　2000,2002,Xp
Driver　　Microsoft Excel Driver


仕様：

　Unicode未対応。テーブル名・フィールド名・パス名に2バイト文字が使用できない。
　パス名が長すぎると使用できない。
　パス名にピリオドが入っていると使用できない。


MSサポートに見つからないバグ・不都合・ヘルプ未記載事項：

　はなからクエリの作成が出来ない。どうやっても古臭いフォントで「FROM句の構文エラーです」とダイアログが出る。SQL文を直接書くしかない。

　SQL文は、ヘルプと異なって、LIKE文に * が使えず、 % が使える。（SQL規格違い）

　フィールド名・パス名は半角英数だろうが２バイト文字だろうが [ ] で囲まないとエラー。

　データソースのエクセルファイルが読み取り専用扱いとなり、テーブル定義でデータ型を定義しなおせない。

　各フィールドで、文字列と認識すると数字として解釈できるデータが Null となり、数字として認識すると文字列が Null となり、結果セットが空白になる。


っていう減少でｲﾗｲﾗしているのですが、既出でしょうか？　それとも私の使い方が誤っていますか？

訂正：

誤）フィールド名・パス名は半角英数だろうが２バイト文字だろうが [ ] で囲まないとエラー。
正）フィールド名・テーブル名は半角英数だろうが２バイト文字だろうが [ ] で囲まないとエラー。

>>255
ありがとうございます。うまい具合にできました。
完成品↓
ttp://ptba2.hp.infoseek.co.jp/cgi-bin/up/bbs.cgi
の4794です。

(111)111-1111
（２２２２）　２２-２２２２
(33) 3333-3333
のように既にバラバラの形式で入力されている電話番号を
000-000-0000の形式になるようにするにはどういった関数を使えばいいんでしょうか？

>>259
置換

>>260
それぞれに（）が入ってる場所も違うし全角と半角も違うので上手くいかないです・・・

>>261
まず"(" "）" "-"　などをそれぞれ順に取り除く。この時「置換｣が便利。
次に全角or半角に統一する。　これは関数が便利
最後に一定位置に"-"を入れる。　見た目だけなら表示形式。中味もそうしたいなら関数。

>>261
閉括弧をハイフンに置換（全角半角で2回）
開括弧を除去（置換後文字列に何も入れない、全角半角で2回）
全角数字を半角数字に変換（ASC関数とか）
これで ０１２（3456）７８９０みたいな電話番号も 012-3456-7890 にできそうな気がするがどうか。
考えただけで試してないけど。

置換の際、オプション部分のﾁｪｯｸ次第で全角半角は一度に処理可能。

ありがとうございます。おかげさまで置換は出来たんですが、最後に一定の位置に-を入れる関数はどれを使えばいいんでしょうか？
REPLACEでも上手くいかなそうだし・・

>000-000-0000の形式になるようにするには
A1セルに10桁の番号がある時
=LEFT(A1,3) & "-" & MID(A1,4,3) & "-" & RIGHT(A1,4)

表示形式ならユーザー定義で「000-000-0000」

出来ました。
関数を組み合わせて使う時＆を使うっていうのも知りませんでした。
ありがとうございました。

私は、保存箇所を2つ用意し、ユーザー入力箇所には全角不可にして、
既存の全角文字は半角に変換。
( ) - 混在は諦める。

別の列に、( ) - 完全除去全半角で自動保存し、検索に利用する。
と、やりました。

ユーザーによっては、0492987654を、
(0492)98-7654
0492-98-7654
ならばいいのですが、
049-298-7654
とか入れてくる場合もあるので、
完全に対応するには郵便番号データベースのように
電話番号の上位桁をデータベース化しないとならなくなる。
有料の電話番号データベースパッケージもあるけれど、
自作アプリケーションに組み込んで使えるライセンスのものは
非常に高価。

バージョンexcel2002です。
計算の結果を￥2000-のように後ろに棒線を入れて不正を無くせる様にしたいのですがどうしたら良いのでしょうか？
書式設定を触ってみても￥2000や、￥2000のように下線は引けるのですが上記の用には出来ません
　　　　　　　　　　　　　　　　　　　　　　　―――

自分なりに本屋さんで色々立ち読みしてきたのですがわかりません。
ものすごく簡単なことなのかもしれないのですが、どうかよろしくお願い致します

ユーザー定義で \#,##0-

セル入力した全角文字を半角文字に変えるにはどうしたら良いのでしょうか？

>>271
ASC関数

Excel2000 SP-3です

マクロを使用して列幅を変更させる場合に、"ColumnWidth=文字数"となりますが、
ポイント数を指定して、列幅を変更させる仕様にしたいので、ポイント数を文字数に
置き換える良い方法はありませんでしょうか？

自己解決しました
ありがとうございました

しかたなく .mdb にしましたよ。。
誰かこの現象について知ってる方いませんでしょか…

Excel2002　VBAの質問です

Sheet1を保護して使用しております。
ロックしているセルを編集しようとすると、注意のメッセージが出ると思うのですが、
そのメッセージの内容を変更することは可能でしょうか？

A1からA5では、「バックアップを取ってから変更してください」
B1からB5では、「担当者の許可を得てから変更してください」
と、セル単位で保護時のメッセージを変えられるのが理想です。

よろしくお願い致します。

Excel2003 OS:WinXP

実際は縦向きですが、縦向きに図をかけなかったので横向きにかいています。

1列目 ○○□□○…
2列目 ○□○○○…
…
10列目 □○○○□…
11列目 □○○○□…
…
20列目 □○○○□…
…以下続く

注：□は空白を意味する

の様に各セルに○が入力されている o r 空白であるデータがあります。

隣り合った列 ( X列目と、X+1列目)に入力されているデータが
まったく同じであるかどうかを調べる方法はありますでしょうか。

(上図の場合は10列目と11列目が同じであると判定される。
20列目は10列目、11列目と同じではあるが、隣り合ってはいないので同じと判定しない。)

関数でもマクロでも構いません。
方法をご存知の方いらっしゃいましたらお願いします。

>>277
if(A1=B1,"同じだ、ﾊﾞｰﾛｰ","違うだろ")

>>276
メッセージを自分で出せば？

というか、ロックしてるんだったら
変更される心配ないんだから
そんなメッセージいらないと思うし
通常と違うメッセージ出すと
ユーザが思わぬ反応をすることがあるぞ。

>>83さんみたいな状況でC列の合計では無く、該当個数を調べるのは？
counta?countif?使ってやってみようとしたけど上手くいきません。

>>279
レスありがとうございます。

ご指摘の通り、ロックしているので変更される心配は無いのですが、
複雑な表でして、他セルに入力ミスをしないため、
ToggleButtonで頻繁にロックしたり、解除したりでして・・・。

メッセージを自分で出すということは、
MsgBox関数を使用するって事ですよね？
ロックしているときには、メッセージを表示するようにするわけですね。

う〜ん、どんなコードを書けばいいのでしょうか？
もう少しお知恵をお貸しくださいませ！！

>>270
どうもありがとうございます

フィルタをかけてできあがったデータ表を
そのまま通し行番号の表にする方法ないですか？
コピーして貼り付ける以外の方法で。

>>277
質問が２つ。

１．データの範囲はどうなってますか？(A1:??）
２．○の文字は数式の結果じゃなくて直接○が入力してあるんですか？

ここってｱｯﾌﾟﾛｰﾀﾞーないの？

>>285
必要性が分からないのですが。

>>278
回答ありがとうございます。
○and□は1個で1つのセルに対応しているので
その数式では最初の1セルの比較になってしまいます。
私の書き方が悪かった様で申し訳ありません。


>>284

＞１．データの範囲はどうなってますか？(A1:??）

列は、1日から31日の31列(C-AG)
行は 月によって異なりますが100行を超えることはありません。(4-100)

上3行、左2列にははタイトル・項目等が記入してあるので、○の入力してある範囲はC4-AG100になります。


＞2．○の文字は数式の結果じゃなくて直接○が入力してあるんですか？

数式の結果とかではなく、直接「○」が入力されてます。


それではよろしくお願いします。

>>287
もう１つ質問がありました。
各列には最低でも１つは○があるんですか？

>>287
返事がないので、○がなかった時のことは考えてません。
標準モジュールにコピペして実行してみてください。

Sub 重複チェック()
　Dim i As Long
　Dim CheckCell As Range, NextCell As Range, OverlapCell As Range
　
　With Range("C4:AG100")
　　For i = .Column To .Column + .Columns.Count - 2
　　　
　　　Set CheckCell = Range(Cells(.Row, i), Cells(.Row + .Rows.Count - 1, i)).SpecialCells(xlCellTypeConstants).Offset(0, 1)
　　　Set NextCell = Range(Cells(.Row, i + 1), Cells(.Row + .Rows.Count - 1, i + 1)).SpecialCells(xlCellTypeConstants)
　　　Set OverlapCell = Intersect(CheckCell, NextCell)
　　　
　　　If CheckCell.Count = NextCell.Count Then
　　　　If Not OverlapCell Is Nothing Then
　　　　　If NextCell.Count = OverlapCell.Count Then
　　　　　　'以下の2行でセルの色を変更
　　　　　　Cells(.Row, i).Resize(.Rows.Count, 1).Interior.ColorIndex = 6
　　　　　　Cells(.Row, i + 1).Resize(.Rows.Count, 1).Interior.ColorIndex = 6
　　　　　End If
　　　　End If
　　　End If
　　　
　　Next
　End With
End Sub

>>289

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

ｱｯﾌﾟﾛｰﾀﾞー…
百聞は一見にしかずと言うではないですか

要するに説明がめんどい…

「XXのセルのデータが壊れてるから見てくれ」と言う時なんかに
うｐさせたりするとかそういうのだろ。

>>291
質問者が探してくればいいのでは？
今までそうやってきてるるし・・・

>>277
Sub hoge()
For i = 4 To 33
　 For j = 4 To 100
　 　 If Cells(j, i) <> Cells(j, i - 1) Then Exit For
　 Next
　 If j > 100 Then Range(Cells(4, i), Cells(100, i - 1)).Interior.ColorIndex = 6
Next
End Sub

excel関数のバグとデタラメ。
おまえらよくこんな糞ソフト使ってるなｗ

ttp://aoki2.si.gunma-u.ac.jp/Hanasi/excel/

まともなソフトの一つでも紹介してもらいたいのだが・・・

>>295
随分昔から言われてる事
今更何？ｗ

随分昔からって、いつからだよ？w

>>296
そんなあなたには「VISICALC」がお勧め。

VISICALC
ttp://www.bricklin.com/history/vcexecutable.htm

こっからﾀﾞｳｿ出来るからさ。
個人使用に限り、無料になったんだって。

明朝体で入力した文字がゴシックに勝手に変わってしまいました。
初歩的な質問だと思い、ＦＡＱを探してみたものの解決に至りません。
どなたかよろしくお願いします。

VISICALCも関数間違ってるぞｗ

使えないヤツほど文句が多い。
これも昔から言われてる事ｗ

使えないヤツほど関数に厳密さを要求しない。
これも昔から言われてる事ｗ

名前：
E-mail：
内容：
Excel2000 SP-3 OS:WinXP
おそらくマクロの問題なのですが、どなたか教えてください。
現在、セルは以下のようになっています。
　　　　[A]
1列目 2003/3/6
2列目 2003/3/15
…
10列目 2003/4/2
11列目 2003/4/15
…
20列目 2003/4/29

セルA列に、日付がぽこぽこ間が抜けた状態で入っています。
たとえば2003/3/6から2003/3/15のように、9日分間が抜けています。
教えてほしいことは、この抜けた9日分の間に行を9日分挿入して、
間の抜けをなくすことです。

開業多すぎみたいなんで、続きます。

すいません。続きです。
そして理想の形は、以下のようになってくれることです。

1列目 2003/3/1
2列目 2003/3/2
3列目 2003/3/3
4列目 2003/3/4
5列目 2003/3/5
6列目 2003/3/6
7列目 2003/3/7
8列目 2003/3/8
9列目 2003/3/9
10列目 2003/3/10
11列目 2003/3/11
12列目 2003/3/12
･･･
X列目 2004/6/30

みたいな感じです。期間は2003/3/1から2004/6/30までの
間です。どうかよろしくお願いします。

>>306
Sub Macro1()
I = 2
Do While Cells(I, 1) <> ""
If Cells(I, 1) <> Cells(I - 1, 1) + 1 Then
Rows(I).Insert
Cells(I, 1) = Cells(I - 1, 1) + 1
End If
I = I + 1
Loop
End Sub

A列に変なのが入っていると無限ループになるけどな。

関数で使用している引数の変更について質問させてください。（バージョンはEXCEL2000です）

1 =VLOOKUP(B36,A2:O322,2,TRUE)
↑こういう関数を組んだ後、別のセルへコピーした場合、

2 =VLOOKUP(B36,A3:O323,2,TRUE)
3 =VLOOKUP(B37,A4:O324,2,TRUE)
4 =VLOOKUP(B38,A5:O325,2,TRUE)
↑こういう風に引数自体更新されていきますよね。この更新された引数を一度に修正することって
出来ないんでしょうか。この例で言うと、第2引数のみを、全て1行目のモノと同一にしたいのですが、
1行ずつ変更する以外になにか良い方法があれば教えて貰えると助かります。

＄をつけれ。

>309
即答多謝。
$で変更するかどうか指定できるんですね。一気に楽になりました。

ホントにどうも有難う。

アドインのVisual Basic Editorのパスワードって
なんなんでしょうか？
AUTOSAVE.XLAを解析してみたいのですが。

>>311
無理

質問です。
セルの結合を解除した時に、結合していたときに入っていた値を
わかれた全てのセルに一度に入れることって出来るのでしょうか。

>>313ですが、OSはマックでオフィス2001です。

>>313
Windowsだと　セル結合解除→F2キー→Ctrl+Enter　でできた。
セル結合を解除した直後だと、結合範囲が選択されていて
さらに左上のセルに値保持＆フォーカス状態なので、
「選択範囲に同じ値を一度に入力」する操作で希望の結果が得られる。
Mac版は知らないけど、似たような操作があるはずなので工夫してください。

Excel2002

Sheet単位でパスワードを設定することは可能でしょうか？
（保護とは若干意味合いが違います）
Sheetをクリックすることにより、パスワードを要求させ
パスを入力することによりSheet内容を表示できるように
したいのですが、可能でしょうか？

>>316
素直に別ファイルにしたら？

>>317
レスありがとうございます。
普通に考えたら別ファイルで管理するのが一番ですよね。
やっぱり、ムリっすかね？
出来れば同一ブックで扱いたいんですよ。

ブックを開く時に　Worksheets("sheet1").Visible = xlVeryHidden　でシートを隠して、
どっかのシートにボタンを押したらテキストボックス出すようにして、そこに特定の文字が
入力されたら　Visible = True　になるようにしちゃうとか…

でもVBAエディタ見れる人なら一発解除できちゃうね。

データ1　ABCDFEG
データ2　ABHI
と言う二つの行データを
AA
BB
C
D
E
F
G
__ H
__ I
といった風に並べたいのですが良い方法がないでしょうか？

今のところA＞ZをかけてEXACTで比較しながら手作業で並べています

>>319
レスありがとうございます！
なんか、いい感じなんですけど！！
>ブックを開く時に　Worksheets("sheet1").Visible = xlVeryHidden　でシートを隠して
このレスいただいた方法で作成してみようと思います。

ユーザーフォームにTextBoxを配置して、そこにパスワードを入力して解除できるようにしようと思います。

･･･で、パスワード（特定の文字）の設定方法、一致してれば解除させる方法がまったく分かりません！

もうすこしコードや、作成の方法ヒントをいただけないでしょうか？
自分でも試行錯誤してみようと思います。

よろしくお願い致します！！

表示形式でmm/ddとすると一桁の場合は10/08と表示されますが10/ 8と表示させることは出来ますか？

>321
sheet1をtestという名前にして、ブックが開く時と閉じる時にｔｅｓｔシートを隠すようにして、
次にsheet2にボタン配置。このボタンをクリックしたらテキストボックス表示するようにします。
ユーザーフォームの記述は、

Private Sub UserForm_Initialize()
　'テキストボックスに入力された文字を「*」で表す
　TextBox1.PasswordChar = "*"
End Sub

Private Sub CommandButton1_Click()
　Dim strPsw As String
'パスワード設定
　　strPsw = "test"
If TextBox1.Text = strPsw Then
    Worksheets("test").Visible = True
    UserForm1.Hide
Else
  MsgBox "パスワードが違います"
   TextBox1.Text = Empty
   TextBox1.SetFocus
End If
End Sub

ほとんどの部分、自分もVBAの本見ながら真似しただけですが…
あと何か重いのできっとどこかに無駄があるのかと思います。
手練の皆さんのお知恵を借りたいところです。

>322
mm/dでいけませんか？

>322
あ「10/8」じゃダメなんですね。すみません、323は無視してください。

テキストボックス内に改行があると文字数(Len)が
文字の数+改行の数×2となってしまうのですが
SelStartの位置は文字の数+改行の数の数値を返すため
文字列の挿入ができません。
誰か知恵を貸してください。
現在のコードはこんな感じです。↓
TextBox1.Text = Mid(TextBox1.Text, 1, TextBox1.SelStart) & ListBox1.List(ListBox1.ListIndex, 1) _
& Mid(TextBox1.Text, TextBox1.SelStart + TextBox1.SelLength + 1)

ちなみにEXCEL2000，WINXPです。

Replace(TextBox1.Text,vbcr,vbnullstring)で文字数が同じに出来たので
挿入できました。
失礼しました。

WinXP EXEL2000 ノートン2003入れてます
Excelファイル開こうとすると左下に「ウイルスを検索しています。」と表示されて
その時にADSLモデムが点滅してどこかにアクセスしているようなのですが
これってどういうしくみなのでしょうか？
ADSLモデムの電源を入れてすぐまだADSLの接続が確立されていないと
Excelファイルが開くのも待たされてしまいます。
最初からADSLモデムに電源入ってなければすぐにExcelファイル開けるのですが。
別に困っているわけではないんですがどこにアクセスしてるのか気になるので・・

>>323
レスありがとうございます！！
今からいろいろやってみます！
ありがとうございました！！

>>320
今の時点であなたがAAや__ Hをどうやって表示させてるのかを具体的に示してください。(数式とか)

＞今のところA＞ZをかけてEXACTで比較しながら手作業で並べています
これじゃ分からないんですけど。

印刷に関する質問です。

A4縦半分の縦長の表２つを、横２つ並べてA4の1枚に印刷したいのですが、
設定が分からず、２回に分けて印刷しています。
１度に印刷できる方法が有れば教えてください。

編集の関係で、シートは別々にしたいです。

棒グラフです
　　　
１００│■
　５０│■■■
　　０└───
　　　 　 �g�h�i

１０００│■　
　５００│■■■
　　　０└───
 　　　　　�g�h�i

このようにＸ軸の目盛の桁によってグラフ本体がずれてしまいます。
これを解消したいのですが、方法はありますか？
目盛をセルに埋め込んでみましたがセルの値と実際のＸ軸目盛が最大値と最小値以外がずれてくるので無理でした。

すいませんＹ軸でした

最初の質問で何を聞いてるのかさっぱり。
補足のレスでどこを訂正してるのかさっぱり。

どこをどうしたいのかも整理できてないのに
ソフトが思い通りの動作するはずないじゃん。

>>332-333
質問の内容は図を見てわかるから大丈夫だ。
解決策は知らんけど。

>>332
これは仕様だから無理だな
どうしてもイヤなら
軸の書式設定でフォントを等角フォント系に変えた上で
桁数の少ないグラフの軸の表示形式を
ユーザー設定でスペース噛ませば同じ表示はできるがな

>>331
カメラ機能で印刷用シートをつくる。

>>332
軸の表示形式でユーザー定義「?????」
？の数は必要最大桁数に合わせる。

>>331
プリンタに割付印刷の設定ないかな？

>>337
最大桁数は決まってるのでこの方法でよかったんです。ありがとうございました。

>>335、>>336さんもありがとうございました。
わかりづらい質問だったようで失礼いたしました。

Excel2000を使っているのですが、150000000と入力すると
1億5000万円と表示するようにするには、書式設定をどうすれば良いのでしょうか？

たぶん無理。

>>340
(1)　【ユーザー定義】で「#"億"####"万円"」と入力して、【Ctrl】 +【J】キーを押します。
　　『種類』の欄が空白になりますが、気にせずに、「####」と入力します。
(2)　【配置】タブを選択し、「折り返して全体を表示する」にチェックを入れます。
（ただし、セルの高さを広げていると使えません。）

>>342
すごい！完璧です。
>340ではありませんが、少し解説していただけませんか。

>>343
簡単にいうと、書式のほうで改行しているわけです。

普通セル内で改行するには【Altl】 +【Enter】ですが、ダイアログでの改行は
【Ctrl】 +【J】なのでこれを使います。
改行してるわけなので、、「折り返して全体を表示する」にして、セルの表示を
２行にします。

＞（ただし、セルの高さを広げていると使えません。）
と書いたのは、改行して２行目に行った0000が表示されてしまうためです。
セル高さが１文字分であれば、この２行目の0000は下のセルに隠れて見えません。

説明はこんな感じでよろしいでしょうか。

>>344
大変よく分かりました。
【Ctrl】 +【J】なんて、初めて知りました。
ありがとうございます。

すいません！明日検定試験なのにｉｆ関数がわかりません
ｉｆの中にｉｆがはいる式なのですがダイアログボックスの使い方がわかりません
単純な〜以上は〜であるはわかるんですが・・・汗

>>346
ダイアログボックスを使って、IFの中にIFを入れるってこと？
普通に真なり偽なりに、手入力でIFの構文書くしかないと思うけど。
それか、他のセルに別に作ったのを、コピー貼り付けするとか。

ちなみに、その検定試験がMicrosoft Office Specialistだったら、
IFのネストなんか多分出ないよ。

さっそく返答ありがとうございます。
試験は全情協です。
ダイアロボックスにｉｆが二つになる論理式を手入力どやろうとしても
やり方がわからないのです。
すいません。上手く説明できなくて。。。

全情協？知らないなぁ、それ。

例えば、
=IF(A1="A","あ","")
=IF(A1="B","い","")
という2つの関数をくっつけたかったら、

条件　A1="A"
真　　"あ"
偽　　IF(A1="B","い","")

というふうに、IFの構文をそのまま真か偽のどちらかに入れればいいだけだけど。
（この場合は、「Aじゃなかったら」2つめの関数を利用したいので、偽に入れた。）
どの辺がわからない？

あ、手入力じゃなくても、左上の関数名の右の下三角ボタンを押せば、
ダイアログでネストできるみたい。
知らなかった。

知りたかったことって、これ？

あっ。それかもしれないです。
＞左上の関数名の右の下三角ボタンを押せば

いまいちよくわからないのですがどのボタンでしょうか？
馬鹿ですいません。。

あっ、やっとわかりました。
すごい感謝感激です。ありがとうございます。
ちなみに全情協は全日本情報学習振興協会のことです。
これで明日なんとかなりそう！
どうもです。

例えば、>>349に書いた例なら、

ダイアログボックスに

論理式　A1="A"
真　　　　"あ"

と書いたあと、偽のボックスを選択してください。（OKは押さないで）

シートの左上に「IF」って書いてあるとこないですか？
その「IF」をクリックしてください。（この場合三角ボタンは使いません。同じIFなので）
で、開いたダイアログに

論理式　A1="B"
真　　　　"い"
偽　　　　""

と入力をして、「OK」ボタンを押してください。

そろそろ寝るので、疑問点等あったら、早めにレスいただけると助かります。

>>346

あ、わかられたようで。

明日がんばってくださいね。

　　　　　　 ,:::-､ 　 　 　　__
　　　　　　,,r::::::::::::〈:::::::::） 　　　ｨ::::::ヽ
　 　 　　〃::::::::::::;r‐''´:::::::::::::::::::::ヽ::ノ
　　　　,'::;'::::::::::::::/::::::::::::::::::::::::::::::::::::
　 　 　l::::::::::::::::::ｌ::::::::::●::::::::::::::●:::::ｊi
　　　　|::::::::::::::::::、::::::::::::::( _●_)::::::,j:l 　クマー！
　　　　}::::::::::::::::::::ゝ、::::::::::|∪|_ノ::;!
.　 　　{::::::::::::::::::::::::::::`='=::ヽノ:::::/ 　　　　
　　　　';::::::::::::ﾄ､::::::::::::::i＾i::::::::::::/
　 　 　 ｀ｰ--'　ヽ:::::::::::ｌ l;;;;::::ノ
【ラッキーレス】
このレスを見た人はコピペでもいいので
10分以内に3つのスレへ貼り付けてください。
そうすれば１４日後好きな人から告白されるわ宝くじは当たるわ
出世しまくるわ体の悪い所全部治るわでえらい事です

グラフの作り方について質問させてください

1試合目　5点
2試合目　8点
3試合目　2点

というデータがあって、5→8→2という風に折れていくのではなく
5→13→15と積み上げていく折れ線グラフにするにはどうしたらいいでしょうか？

累計点数の列をつくる

なるほど、別に累計の列が必要なんですね。
分かりました。

>>337-338
ありがとうございました。
結局、編集した表組を右にC&Pして印刷することにします。。。

２つのセルにそれぞれ別の文字が入っていて
そのセルの内容を入れ替えるときに
もっとも少ない操作数で入れ替える方法を教えてください。

Shiftを押しながらドラッグ
隣接セルなら1回。
離れているセルなら2回。

>>361
親切な回答ありがとうございました。^^

エクセルで住所録を作っています。
1行目にフィールド名、その下に一件につき1行ずつ
ズラーっとデータを入力していて、一件ずつにオートナンバーをふっています。
別のシートでオートナンバーのナンバーだけの表を作り
ナンバーの入ったセルを選択するだけで、
そのナンバーの情報が表示されるようにしたいのですができますでしょうか。
今現在はマクロのボタンを押したら表示されるように作っています。

>>363
選択しただけでっていうとシートのSelectionChangeイベントだろうけど、
BeforeDoubleClickイベントのほうが良さげな気がする。

　　　　国語　数学　英語
山田　　 90　　 80　　 80
田中　　 70　　 30　　 90
鈴木　　 80　　 80　　 50
加藤　　 40　　 90　　 70
木村.　 100　　 50　　 60
高橋　　 70　　 30　　 80

このような表があるときに、
例えば「国語70点、数学30点、英語80点」の条件をすべて満たす
生徒が何人いるかを調べるにはどうしたらいいでしょうか
条件は何種類も設定して細かく仕分けしたいと考えています。

>>365
AND関数
データベース関数
オートフィルタ

>>315
レスありがとうございます。
マックでも同じようなことが出来ました。

>>366
ありがとうございます。
レスをヒントにもう少し調べてみます。

縦に長い表を段組（任意の段）にするマクロを教えてください！

教えてﾁｬﾝはｲﾗﾈ！

http://0gd452baxb5l.yoll.net/xy2cyf.html
http://30aj4h41ru17.yoll.net/vc2vm15.html

>>369
何がしたいのか分からん

>>364
レスどうもありがとうございました。
結局そのイベントとかの意味がまるでわからなかったですけど。
自分で勉強したいですけど、そういうのが勉強できる本なんかありませんかね。

>>372
少ない列のデータを印刷するとき、紙の無駄を省くため、
複数列をコピーし印刷用にしたいのです！
ワードに貼り付けると、体裁がむちゃくちゃになってしまうのです！

一ページ目の空いている部分に
2ページ相当分を「リンク貼り付け」しといたら？
列幅によって、3列でも4列にでも、足りなかったら横にもっと伸ばしていけば？

で、印刷する時は横方向だけ印刷する。
印刷用シート作ってもいいけどさ。

>373
検索すればイベントの説明してるサイトなんていくらでも出てくる。
それを読んで分らなかったら本買ったって無駄。

えっと
データ１
A1=A
A2=B
A3=C
A4=D
A5=F
A6=G

デ−タ2
B1=A
B2=B
B3=H
B4=I

これを並べ替えたくて
今の所、まずデータ毎に昇順をかけて、その後に関数exactで比較してるってことです
うーん説明が難しい

>>377
説明できんのなら、残念ながら回答もできんな、超能力者じゃないし。

>>373
このページの一番下の黒いトコ読んでみて。
ttp://hp.vector.co.jp/authors/VA006682/vbaref/vbaref8.htm

エクセルデータをupしたほうがいいのかな

>>380
処理前と処理後の画像を貼ってみたら？

初期状態→並べ替え後→最終形と段階的に出してもらえると
わかりやすいと思うけど。

あと、データはこういうのが入る可能性があるというのも
書いておかないと、実際のデータと違っていたら出来ない
場合もあります。あとデータの範囲(どのセルからどのセルまで)とか。

>>380
そうしたほうがいいとおもう
377では何がしたいのかよく分からない
データ１、データ２はシートは同じ？

教えてください

セルに値を入力したら、全部×10で表示されるんです

書式設定を文字列にすればなおるんですけど

計算できないし・・・設定を変えた覚えもないのに

初歩的な質問ですんません

>>383
÷10すれば？

>>383
ツール→オプション→編集→「小数点位置を固定する」のチェックをはずす

>>383
意味のない改行してるしネタか？
そうじゃないならもっと詳しく分かりやすくかけ

>>384-386
つっ、つっ、初めて釣れた・・・

>>387
どこが釣りなの？
本当に釣り分かってる？

>>388
また、だまされて>>387=383だと思っちゃったのね。

>>388
なんだか必死だな

また釣れた

IFとANDをうまくあわせたいのですがやり方を教えてください。

a1<5 の時　あああ
a1>=5 and a1<10 の時　いいい
a1>=10 の時　ううう

のように、３種類で返したいのですがうまくいきません。

>>320　俺の解釈が間違ってなければ、
Dim AEnd As Range, BEnd As Range, Com1 As Range, Com2 As Range, i As Long, A As String, B As String
　Application.ScreenUpdating = False
　　A = Range("a1")
　　B = Range("a2")
　　i = 1
　　　Do Until i > Len(A) And i > Len(B)
　　　　If Mid(A, i, 1) <> "" Then Cells(i, 1) = Mid(A, i, 1)
　　　　If Mid(B, i, 1) <> "" Then Cells(i, 2) = Mid(B, i, 1)
　　　　i = i + 1
　　　Loop
　　Set AEnd = Range(Range("a1"), Range("a65536").End(xlUp))
　　Set BEnd = Range(Range("b1"), Range("b65536").End(xlUp))
　　AEnd.Sort Range("a1"), xlAscending
　　BEnd.Sort Range("b1"), xlAscending
　　i = 1
　　Set Com1 = Cells(i, 1)
　　Set Com2 = Cells(i, 2)
　　　Do Until Com1 = "" And Com2 = ""
　　　　If Com1 <> "" And Com2 <> "" Then
　　　　　If Com1 > Com2 Then
　　　　　　Com1.Insert xlDown
　　　　　ElseIf Com1 < Com2 Then
　　　　　　Com2.Insert xlDown
　　　　　End If
　　　　End If
　　　　i = i + 1
　　　　Set Com1 = Cells(i, 1)
　　　　Set Com2 = Cells(i, 2)
　　　Loop
　Application.ScreenUpdating = True

andは使わず、ifを二回使う。
<5じゃない中で、もし<10なら"いいい"、それにも該当しないときは"ううう"

>>392
if(a1<5,"あああ",if(and(a1>=5,a1<10),"いいい","ううう")

すみません、物凄く低次元の質問かも知れませんが、
エクセルで表記した下記の表なんですけど、
A B C D
1 西暦 | 1995 | 2000 | 2010
　________________|_________|_________|________
2 幼少人口 | 20,034 | 18,602 | (B)
　________________|_________|_________|________
3　生産年齢人口 | 87,260 | 86,419 |
　________________|_________|_________|________
4　老年人口 | 18,277 | 21,870 |
　________________|_________|_________|________
5　総人口 | 125,571 | |
　________________|_________|_________|________
6 幼少人口割合 | (A) | |
　________________|_________|_________|________
7 生産年齢人口割合| | |
　________________|_________|_________|________
8 老年人口割合 | | |

Aに入る式が「=B2/SUM(B2:B4)」だとして、
このままの割合で、人口が推移すると仮定した場合の
2010年の幼少人口を計算するセルD2の式を答えなさい、
ただし、式の中にセルB1、C1、D1、B2、C2を用いる
事とする。

この程度の問題が分からない馬鹿を助けてくださいませ！

うぁぁ、表がグチャグチャになってる・・・

A 、 B、 C、 D、
1 西暦、 　　　1995 2000 　 2010
2 幼少人口、 20,034 　18,602 (B)
3 生産年齢人口、 87,260 86,419
4 老年人口、　　　18,277 21,870
5 総人口、　　　　125,571
6 幼少人口割合、　　 (A)
7 生産年齢人口割合
8 老年人口割合

これで分かりますかね？
駄目だったら逝ってきます

>>397
おいらには、B1、C1、D1には西暦が入っているように見える。
B2、C2にも数値があるような・・・

>>397
で、どんな計算式で2010年の幼少人口を推定すればいいんだ？

>>397

こういうのでいいのかなぁ？

=C2-(((B2-C2)/(C1-B1))*(D1-C1))

>>395
どうもです。
コピペしたら出来ました。
イルカが最後に）ひとつ付け足しました。
ありがとうございます。

>>401
andは余計だったけどべつに冗長なだけだから。

学校の宿題を他人へ気軽に頼めるなんて、良い時代になったねぇ。(ﾌﾟ

a1>5 の時　b1/3 を　c1　に返すようにしたのですが、

a1 b1 c1
5 10 3.3333

になってしまいます。ここまではいいのですが、
c1の3.3333を切り上げて4にしたいのです。
よろしくおねがいします。

C1
=ROUNDUP(B1/3)

答えのセルの書式設定だけでできるじゃん。

C1
=ROUNDUP(B1/3,0)

404です。
説明不足でした。
c1には
=IF(A1<3,B1/3)
というIFが入ってます。

＞405
b1の数値はいじりたくないんです。

＞406
表示の変更じゃなく数値そのものを変更したいのです。

C1
=IF(A1<3,ROUNDUP(B1/3,0))

404です。説明が間違えました。

a1 b1 c1
1 10 =IF(A1<3,B1/3)

という場合IFで返されるc1の数値3.33333
を4に切り上げたいということです。
つまり、IFと=ROUNDUPを同時に使うのかな？と思ってますが方法を教えてください。

>>408

>>405のって、B1の数値いじってるの？

=IF(A1<3,ROUNDUP(B2/3,0),"")

とかじゃだめなの？

>a1>5 の時　b1/3 を　c1　に返すようにしたのですが、

これは、無視してもいいんですか？

もうちょっと詳しくお願いします。

カッコで囲めば、いんじゃな〜い♪

あ、>>409とかぶった。

しかも、B2じゃなくて、B1だった。

失敬。

>>397　でも物凄く分かりにくいですね、申し訳ないです。

A1・西暦、　A2・幼少人口、　　A3・生産年齢人口、　　A4・老年人口、
A5・総人口、A6・幼少人口割合、A7・生産年齢人口割合、A8・老年人口割合、

B1・1995、　C1・2000、　D1・2010、
B2・20034、 C2・18602、 D2・（B）、
B3・87260、 C3・86419、
B4・18277、 C4・21870、
B5・（A）

これをエクセルで表にした状態です。

本当に、馬鹿でくだらない質問で申し訳ないですが、
どうか、よろしくお願いいたします

＞410
即レスどもです。
ありがとうございますた。

>>414

>>400じゃだめなの？

それとも、関数をつかって、

=FORECAST(D1,B2:C2,B1:C1)

こういうことですか？

どの行までデータがあるか分からないシートに、関数を入れる場合は
下記の様に、For Next文を使って1つのセルずつ入れていくしかないのでしょうか？
お願いします。

Dim aaa as long

For aaa = 1 to Worksheets("sheet1").Range("A65536").End(xlUp).Offset(1).Row
　Cells(aaa, 4).Formula = "=SUM(A" & aaa & ":C" & aaa & ")"
Next

>>417

それでできるなら、それでいいのでは？

他の方法では、

Dim aaa As Long
aaa = Range("A65536").End(xlUp).Offset(1).Row
Range("d1") = "=sum(a1:c1)"
Range(Range("d1"), Cells(aaa, 4)).FillDown

とかなどあるけど。

>>416
そうです、関数が必要でした。
ご丁寧に何度も即レス、ありがとうございました。

>>418
一応できていたのですが、もっと簡単な方法があるのかなぁと思って質問しました。
Range(Range("d1"), Cells(aaa, 4)).FillDown　なんて事が出来るなんて知らなかったです。
最近VBA始めたばかりなもので・・・
また1つ勉強になりました。ありがとうございます。

>>419
だったら、初めから言ってもらうと、答えやすいのですが。
答えてあげてるのに、無視って…。

>>420

この場合、書式等もコピーされてしまうので、数式だけなら、
AutoFillというのを使う方法もあります。

また、下のように、R1C1で指定する方法もあります。

Dim aaa As Long
aaa = Range("A65536").End(xlUp).Offset(1).Row
Range(Range("d1"), Cells(aaa, 4)).FormulaR1C1 = "=sum(RC[-3],RC[-2])"

いろいろ試してみてみてください。

あるよ

Range(Cells(1, 4), Cells(Range("A65536").End(xlUp).Row, 4)).FormulaR1C1 = "=SUM(RC[-3]:RC[-1])"

>>421
あ、ごめん、間違えた。

Dim aaa As Long
aaa = Range("A65536").End(xlUp).Offset(1).Row
Range(Range("d1"), Cells(aaa, 4)).FormulaR1C1 = "=sum(RC[-3]:RC[-1])"

↑これが正しいものです。

>>422の見てて思ったけど、

「.Offset(1)」ってやつ、特に意味がないのなら、外してください。
一応、例に書いてある構文に書いてあるので、つけてみましたが。

ゴッホ ◆lkGoghDAZs さん、いろいろとありがとうございます。勉強してみます。

もうひとつ質問いいでしょうか？
For文で、For aaa = 1 To Range("A65536").End(xlUp).Row
という文を書いたら、「aaaは、１〜A列のデータが入っている最終行まで」という意味ですよね。

逆に、「aaaは、A列のデータが入っている最終行〜１まで」という動かし方がしたくて、
For aaa = Range("A65536").End(xlUp).Row To 1
と書いてみたのですが、思った通りの結果がでません。
別な書き方をしないといけないのでしょうか？

特に、ゴッホ ◆lkGoghDAZs さん指名というわけではないので、分かる方お願いします。

>>425

For aaa = Range("A65536").End(xlUp).Row To 1 Step -1

と書くとうまくいきます。

>>426
おぉー！出来ました。
ありがとうございました。

質問ですが、
例えばA1に何か入ってる場合、「">」と言うものを入れたいのですが、どうすればよろしいでしょうか？

どこに「">」を入れたいんだ？

無意識のうちに、すんごいいらないところにデータ（ゴミ）が入ってしまって、
最端移動すると、ものすごい変なところに飛んでしまいます。
一度データが入ったという履歴的なものを消すことはできないでしょうか。

>>430
保存（or上書き保存）する。

>431
例えば必要な表データがＦ3までなのに、G5とかに一度データが入ってしまうと、
そこのデータを消したとしても、最端移動するとそこにカーソル飛んじゃうじゃないですか。

ごめんなさい意味が・・・？

>>428
「">」を表示させるって微妙に難しくないですか？
IFでやろうとしたら認識できないんですね。
と、素人のレスでした

>>432
だから、保存すれば直りますよ。

>>433
=IF(A1<>"",""">","")

=IF(A1="","",""""&">")

>>434
=IF(A1<>"",""">","")
真の場合でこんな、ダブルクォーテンションの使い方が
あるんだぁ。。。
って、常識なんですか？

素人の俺は、文字列は"文字列"て、両サイドをダブルクォーテンション
で囲む方法しか知りませんでした。

>>436
常識かどうかはわかりません。
俺は、たまたま知っていただけで。
あと、突っ込んで申し訳ないですが、「ダブルクォーテーション」ですよ。

A1のセルに何か入れたら、
A1のセルに＞をつける？

excelファイルをpdfに落とそうとすると
透明の枠線が取りこまれてしまうんですが
枠線を非表示にする方法ありませんか？

>>439
ツール→オプション→表示で「枠線」のチェックを外す。

>>440
ありがとうございます。
わかってみれば簡単なことでした…。

VBAの問題集の本とかってあるのでしょうか？
元となる表やデータが準備してあって、「このような結果を出すマクロを組みなさい」
みたいな本があればいいなぁと思ってます。もちろん模範解答も載っている。

VBAの本だけ見てても、１つの命令についてしか書いてなくて、たとえばこの命令と組み合わせると
こんな使い方があるというのが浮かんできません。

Excel2003 SP1 を使っているのですが
バグっぽい現象に悩まされています。

複数シートあり、そのうちいくつかのシートを選択してプレビュー表示すると
プレビュー表示から戻ったときに、ある特定のページの４行目、５行目の内容が
他のページに勝手に上書きコピーされてしまうという現象です。

これって
MSに報告した方が良い？

>442
「簡単プログラミングExcelVBA」シリーズ（大村あつし著・技術評論社刊）は
各単元の最後に練習問題くっついてた。

>442
大村あつし著・技術評論社刊の「簡単プログラミングExcelVBA」シリーズは
各単元のあとにちょっとだけ練習問題付いてた。解答付。

ｽﾏｿ、消えたと思って書き直したら二重になってた…

>>444-446
ありがとうございます。探してみます。

SUM関数を使って計算書を作って、使っていたのですが、
突然文字化けして使えなくなってしまいました。
先にエクセルを立ち上げて、ファイル→開くと「テキストファイルウィザード」というのが立ち上がり、やはり文字化けです。
なんとか復旧できないものでしょうか？
OSはWindows2000、OfficeはXPです。

Win2000でエクセル2000を使っています。
質問なんですが、セルを左クリックしたら、その列全体があらかじめ登録しておいた色に
変化するようにしたいのですが、どうすればいいでしょうか？
例えば、6Hを左クリックすると6列全体が水色に変わるようにしたいんです。
色を変えることが多いので、いちいちメニューバーから色の変更なんて選んでられません。
アドバイスお願いします。

win98でエクセル2000を使ってるんですが、(会社で使用してるパソコンなんですが)
文字を入力しようとするとエクセルが落ちてしまうんです。何が原因でしょうか？
それと対処法などあれば教えて欲しいです…

表があります。
それを印刷したとき、１ページごとに自動的に縦小計を一緒に印刷する方法ありますか？

>>449
クリックじゃなくて、Wクリックすると変わるほうがいいと思うけど。
こんな感じでどうでしょうか？色は適当に変えてください。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
　With ActiveCell.Columns.EntireColumn.Interior
　　.ColorIndex = 6
　　.Pattern = xlSolid
　End With
　Cancel = True
End Sub

ありがとうございます。
でもこれはどこに貼り付けたらいいんでしょうか？
セルに貼り付けてもムダでした。

>>453
そのレベルなら申し訳ないですが、メニューから選んでください。

全てのシートを
一発で、シート名をファイル名にしたＣＳＶに書き出すマクロって
作れませんか？

A1からA100に1から100まで通し番号があり、B1からB100に
１または0と入力されている状態で、（A列の番号があるか、無いかと言う意味です）
B列に1が入力されている分の始めと終わりのA列の番号をハイフンで区切り、
存在しない番号をとばしてカンマで区切り、あるセルに表示したいのです！

例1）B列にすべて１が入力されている状態なら　1-100
例2）B5からB10に0が入力されている状態なら　1-4,11-100

質問ですが、
---------------------------
あ
---------------------------
い
---------------------------
う
---------------------------

を

---------------------------
あ
---------------------------

---------------------------

---------------------------
い
---------------------------

---------------------------

---------------------------
う
---------------------------

---------------------------

---------------------------

に直したいのですが、どうすれば簡単に直せますか？

>>455
あんまり自信がない。

　Dim sht As Worksheet

　For Each sht In Worksheets
　　sht.Copy
　　Application.DisplayAlerts = False
　　ActiveWorkbook.SaveAs Filename:=sht.Name, FileFormat:=xlCSV
　　ActiveWorkbook.Close SaveChanges:=False
　Next

>>456
＞A1からA100に1から100まで通し番号があり、
この部分が何が言いたいのかよくわからないけど
こういうことでいいんでしょうか？適当にアレンジしてください。
　Dim i, jj As Integer
　Dim s As String
　If Cells(1, 2) = 1 Then
　　s = "1-"
　End If
　For i = 2 To 100
　　If Cells(i, 2) = 1 Then
　　　jj = Cells(i - 1, 2) * 100 + Cells(i, 2) * 10 + Cells(i + 1, 2)
　　　Select Case jj
　　　　Case 110
　　　　　　s = s & i
　　　　Case 11
　　　　　　If s = "" Then
　　　　　　　s = i & "-"
　　　　　　Else
　　　　　　　s = s & "," & i & "-"
　　　　　　End If
　　　　Case 10
　　　　　　If s = "" Then
　　　　　　　s = i
　　　　　　Else
　　　　　　　s = s & "," & i
　　　　　　End If
　　　　End Select
　　End If
　Next i
　MsgBox s

>>459
ちょっと間違いがあった。
　If Cells(1, 2) = 1 Then
　　s = "1-"
　End If

　　↓↓↓

　If Cells(1, 2) = 1 Then
　　If Cells(1, 2) = 1 Then
　　　s = "1-"
　　Else
　　　s = i
　　End If
　End If

Dim i, jj As Integer
Dim s As String

If Cells(1, 2) = 1 Then
If Cells(2, 2) = 1 Then
s = "1-"
Else
s = 1
End If
End If
For i = 2 To 100
If Cells(i, 2) = 1 Then
jj = Cells(i - 1, 2) * 100 + Cells(i, 2) * 10 + Cells(i + 1, 2)
Select Case jj
Case 110
s = s & i
Case 11
If s = "" Then
s = i & "-"
Else
s = s & "," & i & "-"
End If
Case 10
If s = "" Then
s = i
Else
s = s & "," & i
End If
End Select
End If
Next i
MsgBox s

>>459
ありがとうございます！
マクロ無しでは無理でしょうか？

>>461
？>>459でもできましたが、どう違うのでしょう？

>>463
461は459に460の修正をしたやつ。
マクロなしでやる方法は思いつかない。

>>457

Dim i As Long
i = 1
　Do Until Cells(i, 1) = ""
　　If Cells(i, 1) <> "" Then
　　　Rows(i + 1 & ":" & i + 2).Insert xlDown
　　　i = i + 3
　　End If
　Loop

>>461
それでも、ぜーんぜん問題ないですが、俺ならこうします。
あと、「Dim i, jj As Integer」のところ、VBAの仕様では、iはvariantになってしまいます。
「Dim i As Integer, jj As Integer」としなくてはいけません。

Dim i As Long, Chk As Boolean, s As String
　Chk = False
　i = 1
　Set mycell = Nothing
　　For i = 1 To 101
　　　If Cells(i, 2) = 1 And Cells(i + 1, 2) = 0 And Chk = False Then
　　　　s = s & i & ", "
　　　ElseIf Cells(i, 2) = 1 And Chk = False Then
　　　　s = s & i
　　　　Chk = True
　　　ElseIf Cells(i, 2) <> 1 And Chk Then
　　　　s = s & "-" & i - 1 & ", "
　　　　Chk = False
　　　End If
　Next
MsgBox Left(s, Len(s) - 2)

>>454さん、自分で調べた結果、VisualBasicを利用することがわかりました。
ありがとうございました。
無事Wクリックで色を変えられるようになったのですが、縦に色が変わってしまいます。
横に変えたいのですが・・・
あと、Wクリックで元の色にもどすにはどのようなプログラムを付け加えたらよいでしょうか？
お願いします。

>>466

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
　Dim mycolor As Long
　　Select Case Target.Interior.ColorIndex
　　　Case 6
　　　　mycolor = 0
　　　Case Else
　　　　mycolor = 6
　　End Select
　ActiveCell.Rows.EntireRow.Interior.ColorIndex = mycolor
　Cancel = True
End Sub

>>465
ありがとうございます。ＶＢAの使い方がいまいち分からないので、出来たら、Ｅｘｃｅｌ関数のみの方がありがたいのですが、出来るでしょうか？

>>468

あなたが>>457さんだったら、

B1に

'=A1と入力。

B1からB3を選択。

B3の右下のところで、任意の行までドラッグ。

B列を選択。

データ→区切り位置→完了。

Ctrl + C、右クリック、形式を選択をして貼り付け、値、OK、Esc

A列を削除。

>>453さんだったら、

多分無理。

>>>453さんだったら、
>多分無理。

↑>>461さんだったらの間違いだった。
>>453のも無理だけど。

>457はこれでいいんでね?
For i = Range("A65536").End(xlUp).Row To 2 Step -1
　 Rows(i).Insert
　 Rows(i).Insert
Next

>>741
それでいいです。それがいいです。

すっきりしてるし。

VBAフォームの質問です

Sheet1にリストを作成しております。
　A　B　
１1　あいうえお
２2　かきくけこ
３3　さしすせそ
４4　たちつてと
・
・
以下300行ほど

UserForm1にTextBox1とTextBox2を配置しております。
TextBox1に“１”と入力すると、TextBoxに“あいうえお”
と、表示させたいです。
VBA上でVLOOKUPみたいなことをやりたいのです。

いろんなサイトや参考書を見たのですが、うまく出来ません。

ご教授願います。

>>470
やはり、おいらのでは無理でしたか・・・
自信はなかったのですが、スンマソン。

教えて下さい
Windows2000+Excel2000です
Macで作ったWordファイルで住所録を引き継いだのですが
全角と半角、−とーという具合に文字が
統一されずに混在してます。
以前、関数の設定をしたわけではなく、どこをどういじったのか
覚えていないのですがこれをスペルチェックのように
一箇所ずつ書き換えるかどうかを聞いてくる画面が
出てきたことがあったような気がします。
この状態を再現したいのでお願いします。

叩かれるのを覚悟で書き込みました。
よろしくお願いしマース

>>474

>>461のマクロの内容を関数のみでってのは無理ってことじゃ・・・

>>473
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
　Dim Num As Long, i As Long, myCell As Range
　　Num = TextBox1
　　i = Range("a65536").End(xlUp).Row
　　Set myCell = Range(Cells(1, 1), Cells(i, 1)).Find(Num, , , xlWhole)
　　If Not myCell Is Nothing Then TextBox2 = myCell.Offset(, 1)
　　Cancel = True
End Sub

>>475
編集→置換

>>476
そう。

>>458
ありがとーーーーー！
確かに、はじめ動かなかったのだが、
すこし、直したら動いたよー！

>>469
あ、よく見たら>>453さんに対するレスで合ってた。
>>461さんは回答者だった。
何度も失礼しました。

>>473
もし、A列が1、2、・・・と順に並んでるなら
Textbox1の値でB列のセル位置求められそうだけど。

>>477
素早いレスありがとうございます！！
ばっちりな動作です！！

>>480
A列は1,2,3･･･と順に並んでおります。

>>481

>>480の言うとおり、A列が1,2,3…なら、行番号利用したほうが簡単だね。
あと、ユーザがTextBox2に文字を書き込む必要ないなら、俺ならLabel使う。
TextBoxでも別に問題ないけど、なんとなく。

>>482
なるほど！たしかにLabelの方が、きれいですね。
行番号を使用する方がラクなのですね？
･･･、コード分かりませんが。。。
親切なヒントまで頂き、本当にありがとうございます！

>>483

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
　Dim Num As Long, i As Long
　　If IsNumeric(TextBox1) Then TextBox2 = Cells(TextBox1, 2)
　　Cancel = True
End Sub

あらま不思議。こんなにシンプルに。
ただ、数字が行と違ってしまう可能性がある場合には、さっきの使うのが安全です。
数字ではなくなるとか、行を挿入するとかいう可能性があるとか。

あと、言い忘れたけど、数字を書いたあと、Enterキーを押さないと、TextBox2は表示変わらないからね。
多分わかってると思うけど。

ゴメン、間違えた。
↓正しくはこれね。

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
　　If IsNumeric(TextBox1) Then TextBox2 = Cells(TextBox1, 2)
　　Cancel = True
End Sub

>>456
関数だけでやる方法

まずＣ列を作業列にします。
(1) C1に以下の式をコピペ
=IF(B1=1,A1,"")

(2) C2に以下の式をコピペ
=IF(B2=B1,C1,IF(B2=1,C1&IF(C1="","",",")&A2,IF(RIGHT(C1,LEN(A1))=T(A1),C1,C1&"-"&A1)))

(3) C2のセルをC101までフィルコピー

(4) 表示したいセルに、 =C101 と入力

でいかがでしょうか。

>>486
おお！ばっちりです！＝Ｔ（）の関数は初めて見ました

>>486
おぉ、すごい！

A列に-1・0・1の何れかが入っている状態で
「0」を無視した場合の-1の連続する回数を数える事は可能でしょうか？
ex) 0 -1 0 -1 0 1 0 0 -1 0 0 0 -1 -1 0 -1 1 -1
↑（表記上横にしましたが）の場合の最大連続数「4」です。
連続する場合が多数あるので、最大連続回数を求めたいです。

ｴﾛい人教えて下さい。

最大連続回数は「3」でした。すんません。

>>490
と思ったら「4」でした。
こんな間違いが多いので自動で出したいのです…
ほんとすんません。

Ａ列は何行ぐらいになりそう？

>469
あ、すいません。ありがとうございました。実は大変ことを言い忘れてました。追加したセルを結合して出したいのですが、どうすればいいですか？もうしわけございません。

>>489

B列を作業列にして

(1) B1に以下の式をコピペ
=IF(A1=-1,1,0)

(2) B2に以下の式をコピペ
=IF(A2=1,0,B1+ABS(A2))

(3) B2のセルをA列の最下行までフィルコピー

(4) 表示したいセルに、 =MAX(B:B) と入力

でいかがでしょうか。今日はもう寝ます。

(3)がなんか紛らわしいな。
B2のセルを、Ｂ列のＡ列最下行と同じ行までってことで。

>>495(=492?)
上手く行きました。ありがとうございました。

>>493

さっきの手入力でやるやつだったら、B2とB3を結合してからドラッグ。

VBAなら

For i = Range("A65536").End(xlUp).Row To 2 Step -1
Rows(i & ":" & i + 1).Insert
Range(Cells(i, 1), Cells(i + 1, 1)).Merge
Next

ウィンドウズＸＰでエクセル２００２を使っています。
前から悩んでいたのですが、グラフを書いたときの目盛りを、
全部の枠線に表示させることはできないのでしょうか。

図で言うと、これまで
┌──────┐
├　　　　　　　　　│
├　　　　　　　　　│
├　　　　　　　　　│
├　　　　　　　　　│
└┴┴┴┴┴┴┘
だったグラフの目盛りを、
┌┬┬┬┬┬┬┐
├　　　　　　　　　┤
├　　　　　　　　　┤
├　　　　　　　　　┤
├　　　　　　　　　┤
└┴┴┴┴┴┴┘
のようにしたいのです。

Excel2003を使用しているのですが、右詰で左揃え（桁そろえ）のやり方がわかりません。
表示形式のユーザー設定を弄くってはみたものの、思うように表示されないのです。
イメージとしては、以下のものを考えています。
┌───────┐
│　　　　あいうえお│
├───────┤
│　　　　かき　　 　│
├───────┤
│　　　　くけこ 　 　│
└───────┘
表示形式の@以降に何か追加すればよいのではないかと思って入るのですが、
どうすればいいのか調べても解りません。
よろしくおねがいします。

素直に空白列を入れておくのが
エクセル風味といいつつ500。

>499
インデントじゃダメなのか？

>>477
誠に有難うございました
益々のご発展を心よりお祈り申し上げます。

>>501
ハッとさせられました。ありがとうございます。
変に難しく考えずとも、インデントを使えばよかったのですね。
おかげさまで、望んだ表示がなされるようになりました。
有難うございました。

>>485
コードまで書いて頂き、本当にありがとうございます！
今から作成してみようと思います。
いろいろご親切にありがとうございました！

エクセルについて質問させて下さい。
文字を通常は、左から右へ印刷されますｇあ、これを
右から左に向けて印刷する方法はあるのでしょうか？

>>505
印刷は無理でしょうｗ

条件付き書式で、その条件を満たすセルに罫線を引きたいのですが、
二重線が選べません。仕様ですか？しょうがないのですか？

>>486
すみません！困ったことが起きました。
該当セルが１個だけの場合はハイフン無しで表示したいのですが無理ですか？

例）1-1,3-5,10-10,91-100と表示されるのですが、

1,3-5,10,91-100のようにしたいのです！

>>508
今の状態から、C2を以下の式に変更
=IF(B2=B1,C1,IF(B2=1,C1&IF(C1="","",",")&A2,IF(VALUE(RIGHT(C1,LEN(A1)))=A1,C1,C1&"-"&A1)))

C2のセルをC100までフィルコピー (C101は今のまま)

表示したいセルに以下の式をコピペ
=IF(AND(B99=0,B100=1),C100,C101)

でいかがでしょうか。

色をつけたいんです。セルに。

で、

１＞？　の場合、ピンク
２＞？　の場合、紫
３＞？　の場合、赤

とするにはどうすれば良いですかねぇ？？

それと並べ替えって出来ますか？
昇順、降順で。
オートフィルみたいに一発で。

>>510
条件書式

>>511
まずはやれ

>>512
なんか随分と高飛車なレスですね

他に答えてくれる方いますか？
もしくは優良スレを教えてくださいませ

>>510
どういう条件で何したいのかよく分からんが、条件付き書式

>>511
並べ替えはできるから、まずやってみろ

>>514
はぁ？
あんた消えて良いですよ。

質問者が切れたら終わりですよ

質問もクソもねぇですし
回答者がクソなんだから。。

とにかく、ウザイので消えて欲しいですよ。あなたとか特に

>>509ではダメなことが判明しました・・・。

>>510>>511>>513>>515>>517
次からは名前の欄に「510」と入れてくれ。
NGワードにするから。

全く無礼な質問者が現れたもんだ。

それはさておき>>508
C1に
=IF(B1=1,A1,"")
C2に
=IF(B2=1,IF(B1=1,C1,A2),IF(B1=1,C1&",",""))
C3以降データ行+1まで
=IF(B2=B3,C2,IF(B3=1,C2&A3,IF(B1=1,C2&"-"&A2&",",C2&",")))
最後に余分なコンマを取る
=LEFT(C101,LEN(C101)-1)

>>507
>条件付き書式で二重線が選べません。

ホントだ、選べないな。初めて知った・・・。
VBAできるなら、「If」だの「Select Case」だの使って
条件で分岐させて、「.LineStyle = xlDouble」で二重線です。

無礼もクソも、具体的に教えてくれよ。
それができないなら無視してればよい。
簡単なこった。　　やれやれ・・

>>522
教えてやるぞ具体的に
まずは金もってこい、屑

屑とかさぁ
別に良いけど、自らの品格落としまくりですなぁ
目的に適わないのだから、お互いスルーで良いでしょうに？
なにを息巻いておるの？
まさか自分の聖域だとか言い出すんじゃないだろうな（ｗ

なーんてごめんちゃい。
失礼しましたぁ〜

つーかID出ない板じゃ本人か騙りかすら
判別できないわけで・・・何やってんだか。

マ版に通報しましょうよ

直接エクセルの使用法ではないのですが教えてください。

http://www.vector.co.jp/soft/win95/business/se105146.html

このソフトで作者が設定しているＡ４用紙１枚に６０面のインデックス
があるものってメーカーや型番は何なんでしょうか？
文具店に聞いてもググってもそれらしきのが見つかりません。
困っています。

>>528
タックシートの類じゃないの？

タックシートは封筒、ＤＭ等に貼る住所や宛名の部分ですよね。
ソフト名もインデックス印刷となってますし、インデックスであることは
間違ってないかと思います。

？

630円払ったなら作者にメールで訊けば？

てか、A4でかつ60面というのは、1面あたりの大きさが非常に小さくなるんだが。
ヒサゴもA-Oneも、コクヨも検索したが無かったし、そもそもそんなものが存在するのかと・・・。

532に1票

私が持ってるタックシールは65片あるよ。J8751っていうやつ。
マクセルのだけど、ヒサゴでもA-Oneでもおなじ品番だったような。
120片のも持ってたし、存在はするはず。

タックシールじゃなくてインデックスだと
言い張っているからややこしいﾜｹで、、、
どういうつもりでインデックス印刷と名づけたか
作者にしかわからないﾜｹで、、、

宛名・表示ラベルってなってるなｗ＞マクセル

528です。

インデックスシールで合っていると思います。
インデックスシールは中央から２つに折り曲げて見出し用に使うものです。
http://store.yahoo.co.jp/askul/336162.html

参考にタックシールも
http://www.coral-j.jp/Information/print_sample/seal.htm


自分でエクセルを使いインデックスへの印刷設定したのですが
肝心のシールをレーザープリンタに通すと、16枚中、決まった箇所の
1枚が剥がれてしまい、大きく斜めに歪んでしまいます。

で、シェアウエアを見つけたのですが、質問しようにも
作者の連絡先が分からないのです。ＨＰ見ても載っていないようです。

Excel2000です。
シートにリストボックスやコンボボックスを貼ってマクロを組んでるのですが、
リストボックスやコンボボックスなどのコントロールをTabキーで移れるようにすることはできないのでしょうか？
VBの場合はTabIndexプロパティで飛ぶ順番を指定してやればできましたが、
Excelに貼ったコントロールにはTabIndexもないし、Tabキーを押しても移りません。
しょうがないのでマクロでTabキーが押されたときに
次のコントロールにSetFocusメソッドでフォーカスを移そうかと思ったら、
SetFocusメソッドもないみたいです。
Tabキーでシートに貼ったコントロールのフォーカスを移す方法はありますか？

>538
「エクセルへの道」ってサイトに作者のメールアドレス載ってるじゃん。
ttp://ww8.tiki.ne.jp/~nikoniko/

>>538
A-ONEの用紙とラベル屋さんホームの組み合わせでいいじゃん。

シールが剥れるのはプリンタか用紙が原因であって、
シェアウエアソフトを入れる動機がわかりませんが。

>>542
はがき大のやつじゃなくてA4のにすれば
剥がれないかもしれないってことだろ。

グラフの省略を各方法が知りたいです。
たとえば縦軸を1.2.3・・・・ととっていて50-100を省略して100から始まるような。
いろいろ探したけど見つからないです。
助言をお願いします。

前のほうや後のほう、上端や下端を省略するなら
項目軸/数値軸のプロパティで上限下限を適宜指定。

途中を省略するなら、別々のオブジェクトとして作っておいてうまいこと重ねるくらいしかないかな。

>543
それは用紙が原因の説明になっても動機の説明にならない。

>>520
ありがとうございます！
レスの時間帯からみると、会社からですか？

>>546
さらっと読んだだけだけど、528はA4の印刷用の用紙にすれば
大丈夫かもしれないかもしれないって考えたのが動機じゃないの？

>>548
でも、元からエクセルで普通に作れた人なんだから、
A4にしようと思えばA4でも作れたはずなのに、なぜ
その段階でソフトを使うことにしたのかわからん。

>>549
ソフトを使うのが目的じゃなくて、
メーカと型番がわかれば注文できるから
A4で印刷できるインデックスのシートのメーカ、型番を
知りたいってことじゃないかな？

>538
>作者の連絡先が分からないのです。ＨＰ見ても載っていないようです。
DLしてみたら、readmeに作者サイトのURL(>540）もメールアドレスも載ってるじゃないか。
どこ見てんだ。

readme＝エクセルインデックス印刷.txt　な。

すいません質問です
給与奉行という会計ソフトがあるのですが、これのデータをエクセルのデータに変換することは可能でしょうか？
あと逆にエクセルのデータを給与奉行にいれこむことは可能でしょうか？
宜しくお願いします

>>553
http://www.obc.co.jp/PRODUCTS/STD/21/kyuyo/shiyou.html
↑ここで製品使用を見る限り、汎用データ作成という機能でテキスト出力が
できるようだから、基本的には大丈夫じゃないかな。制限はあるだろうけど。
逆は”当社指定フォーマットで作成されたデータの受入”とあるので、少なくとも
エクセル側でそれに合わせて加工してやらにゃならん。それ以上は不明。

>>553
両方可能

質問です。
A　B　C
D　E　F
↑のような表の中で、A以上B未満のときはCを返すというvlookupの様に
表の中のデータを参照するってこと出来ますか？

>>556
規則性がわかりづれー！

基本の質問ですが、　　�S　　←これの２１以上ってどうすれば
入力出来ますか？
無理ですか？

>>558
エクセルじゃ図形と組み合わせないとできない。
というか、どうどうと機種依存文字打ってるな。

>>559
すみません。　マックでは同じに見えても違ってたんですね。
初めて知りますた。

わかりづらくてすいません・・・
給料計算で使うんですが
http://www.nta.go.jp/category/pamph/gensen/1603pdf/zeigaku1504-2.pdf
↑の表をいちいち調べると大変なので、
数字を入力すると↑の表から参照されるようにしたいんですが･･･
お願いします！

>>554-555
ありがとうございました
使用中の給与奉行は2000のなんとか版で汎用データの読み込み？の機能自体がついてなくて
残念ながら無理の様でした。バージョンうｐも視野に入れて検討してみようと思います

>>556
「以上」の方の列（1列目）を基準にvlookupを使って
4つ目の引数にtrueを入れたらできるんじゃないかな。
リンク先読んでないからね。

会社でシステムの人が作ったシートなんですが、見えないシートがあります。
調べるとVBAのVisibleプロパティで消しているようなんですが、Bookにあるマクロを見てみても、そのような記述があるとことがありません。
これはどういうことなんでしょうか？別の理由？

ところでVBAって面白そうですね、自分でも最近色々いじり始めています。

>>564
VBE画面
ttp://www2.cty-net.ne.jp/~hidenori/vba/vba2/
のプロパティウィンドウの一番下にVisibleってのがあるんだけど、
これを直接変えたんじゃないかな。

>564

普通に、
書式−シート−表示しない

OS　ウィンドウズ２０００
エクセル　オフィス２０００　プレミアム
質問させてい頂きたいのですが
エクセルで家計簿を付けているのですが
家計簿を付けようと開きましたら、タブがファイル名だけになっており
あとは漢字などの羅列になっていました・・・・。
http://oshiete1.goo.ne.jp/kotaeru.php3?q=1020583
にあるような事は、すべて試したのですが全部ダメでした
このファイルはもう修復はできませんでしょうか？

>>567
バックアップファイルは残ってる？

はい、残っているのですが、そのファイルには９月分を付けていません。

>>569
やり直せば？

>>569
停電とか壊れたなら、自動バックアップから戻せるかもしれない
だめなら、下記のサイト見て。
http://hp.vector.co.jp/authors/VA014071/tips/brknfile.html
http://www.kumanan-pcnet.co.jp/excel.htm
OfficeにSPはいれてある？

Excel2000を使ってます。Word2000で差し込み印刷という機能が
あるのは知っていますが、Excelでも差込印刷ってできるんですか？

excel 2002
複数のセルの文字列の前後に
まとめてある文字を挿入するにはどうすればいいでしょうか
前と後別々に挿入する方法でもかまいません
↓こういう感じにしたい（かぎを前後に挿入）

　　　　A
1　あいうえお
2　かきくけこ
3　さしすせそ
　　↓
　　　　A
1　「あいうえお」
2　「かきくけこ」
3　「さしすせそ」

A1セル以外に　="｢" & A1 & "｣"
あるいは　　　　 =CONCATENATE("｢",A1,"｣")
見た目だけなら、A1セルの表示形式でユーザー定義"｢"@"｣"

>>573
B1に、="「"&a1&"」"って打って下までコピーし、
その後B列を選択→コピー→B列で形式を選択して貼り付け→値にチェックしてＯＫ

>>572
できません

>>573
=CONCATENATE("「",A1,"」")

>>574
>>575
>>576
ありが�d
やってみます

折れ線グラフの各点にコメントをつける方法ってないでしょうか？
例えばA列をグラフの実データ、B列をその各点のコメントって言うふうにして、
グラフに表示できたら最高なのですが。

教えていただいた事は、すべてやってみましたが、ダメでした。
９月分の領収書などをもう捨ててしまっているので
できれば修復！っと思っていたのですが・・・・
自動バックアップの方は、その機能を知らずに使っていませんでした。
SYMANTEC の Norton Utilities / SystemWorks
は、あまり効果が無いように書いてあったのですが
望みはありますでしょうか？

こんばんわ
エクセルですが、
会計報告書を作成しているのですが
シート別に収支・支出・合計のデータを打ち終えのですが
一画面ですべてを表示しまた、印字する方法を教えてください。
よろしくお願いします。

行幅や列高の書式が合うなら、コピペして一つにまとめる。
会わないなら、「カメラ機能」をぐぐれ。

Excel2000で順位表を作っているのですが、
順位表の中から、1位から3位までの点数を
合計させるにはどのような関数を使えばいいのでしょうか？
よろしくお願い致します。

>582
LARGE 1番目+2番目+3番目

どなたかよろしくおながいしまつ。

>>584
「項目軸ラベル」

Excel2000です。
マクロを作成したのですが、シート名の部分を変数として、
マクロを実行する際にシート名を入力できるようにしたいのですが、
どのようにすればいいか教えてください。

Source:=Sheets("Sheet1")

の("Sheet1")を変数として、
マクロを実行するときに
「実行するシート名を入力してください」
と表示させて、入力BOXを出したいです。

お願いします。

>>585
それだと、グラフの下に表示される項目のラベルが隣の列の値になってしまいますよね？
私がやりたいのはグラフの中のプロットされた点のすぐ横に、隣の列で指定した文字を
表示するようにしたいのです。

>>586
shtnameという変数を定義して（変数名は何でもいいんですけど）
それにシート名を手入力でもシートの一覧から選ばせるのでも
何かの方法で取得する。
Sheets(shtname)として扱えばSheets("Sheet1")とかやらなくてもダイジョビ。

こんばんわ
>581返信ありがとうございます。
カメラ機能を使用したのですが、
印字はうまくできました。
ただ、ちょこちょこと手直しをしたいのですが
一画面ですべてを表示したまま作業をできる方法はありますか
ご教授お願いします

>588
ありがとうございます。
変数の定義は
Dim shtname As Variant
で良さそうなんですが、シートの選択ができないです。（VB自体最近やり始めたのでかなりちんぷんかんぷん）
と言うか、さっき気がついたんですけど
今までマクロの実行がSheet1でしか出来なくて、わざわざSheet1に名前変更してやってたので
変数とか使わなくても、今開いてるシートでマクロが実行できるようにできたらそれでお願いしたいです。

>>590
sheets("sheet1")の代わりにactivesheetつかえばいいんじゃね？

エクセルで作った表とグラフをサイトにのせたいのですが
ワークシート上にある表・グラフを、jpgの画像に変換する
方法がわかりません。
フリーソフトを使わずにＸＰで出来ないでしょうか？
（会社ＰＣの為フリーソフト禁止されています。自宅mac）
教えてください。
よろしくお願いします。

ペイント

>>593
ありがとうございました。
ペイントは使った事がありませんが、明日会社でやってみます。

>>592
webページ形式で保存って言うのをやったらフォルダの中に
画像が別個に保存されるよ。jpegになるかどうかは知らないけど。

>591
sheets("sheet1")をactivesheetに置き換えてやったら、
オブジェクトは、このプロパティまたはメソッドをサポートしてません。
言われて出来ませんでした。
もうちょっとレベルを上げてから出直します。

>>595
その場合はgif
jpegへの変換は同じくペイントでできますが

>596
マクロをシートの中に書いてない？
標準モジュールで書けば動くんじゃない。

Sub ChangeSheetName()
　　Dim sheetName As String

　　sheetName = InputBox("シート名を入力してください。")
　　ActiveSheet.Name = sheetName
End Sub

質問です
表が2種類あって、一方の表を参照して他方の表を埋めたいのです。
例でいうと

表１
東京　380
大阪　780
名古屋　980

表2
東京　380
東京　380
名古屋　980
名古屋　980
名古屋　980

で、表2で文字列（この場合は東京名古屋等）を入力するとそれに対応した値を表1から
読んできて隣のセルに自動で表示という動作をさせたいのですが（例でいうと380や980など）
どのような関数を用いればいいのでしょうか？
FINDとかMATCH辺りかと思ったのですが上手くいかず・・・
どうかお力添えお願いいたします。

>>599
VLOOKUPが定番

セルにコード(地域コードとか)で入力する時に、
リストボックスみたいなの出てきて
選択式で楽に入力出来る方法ってないですかね？

[　　　　][▼]
|北海道|
|青森　|
|岩手　|
|秋田　|
+-----+

から選ぶと、
実際のセルには名称じゃなくてコードが記述されるようなイメージです

>>601
シートにコンボボックスでもリストボックスでも貼り付けるとかじゃだめ？

>>602
それでもいいですが、
visual studio系みたいに
入力しようとすると補足してくれる、みたいなのが理想です。
無理なら諦めますが。。

>>603
KeyPressイベントでも使ってコード書けばできるんじゃない？

>599
VLOOKUPかDGET

>601
名称の隣に地域コードを入力させるなら>599と同じでVLOOKUPかDGETで出来るけど、
選択セル自体に地域コードを代入したいならVBA使うしか無いね。

どちらにしてもまず地域コードの一覧を作る必要があるけど、C1がコードを代入したいセルで
A列(A1:A47)に都道府県名、B列(B1:B47)に各都道府県の地域コードが入力されてるとすると、
リストボックスから選択するのは[データ]>[入力規則]>[設定]の[入力値の種類]で[リスト]を選択、
[元の値]に｢=$A$1:$A$47｣を入力、VBAの方はシートのタブを右クリックして[コードの表示]を選択したら、

Private Sub Worksheet_Change(ByVal Target As Range)
　If Target.Address = "$C$1" Then　　　'"$C$1"は地域選択からコードを代入したいセル
　　For r = 1 To 47　　　　　　　　　　　　　'コード一覧の行数(1〜47行目)
　　If Cells(r, 1) = ActiveCell Then　　　　'(r, 1)の1は名称の入力されてる列(A列なら1、B列なら2･･･)
　　　ActiveCell.Formula = Cells(r, 2)　　'(r, 2)の2はコードの入力されてる列(上記参照)
　　Exit For
　　End If
　Next
　End If
End Sub

をコピペすればいい。あとは注釈を参考に書き換えてくれ。
あと、解ってるとは思うけど、コード一覧(名称とコードの2列)は非表示にしても問題無いから。

VLOOKUPで実現しました！！レスくれた方ありがとうございます

しかし一つ困ったことが・・・
未入力のところを参照したvlookup関数は#N/Aを返してくるのですが
これを数字の　0　にしたい場合どうすればいいのでしょうか

質問多くて申し訳ないです。。。

>>606
iferrとか使えばいいんじゃないの？

>>607
iferrでググってもわかりませんでした・・・
どういうものなのでしょうか？

>>605
どうもです。自作するしかないんですね。
VBAあんまり詳しくないんで教えて欲しいんですけど
ソースの10行目のターゲットをC列全部にしたい場合は
Target.Addressをどうにか加工する必要がありますか？
"$C$1"の記述を変えるだけで大丈夫ですか？

>609
　If Target.Address = "$C$1" Then
　　　↓
If Target.Column = 3 Then

>>608
ISERROR の間違いだと思う。

>>610
どうもです。VBA勉強して出直してきます。

>>603
>無理なら諦めますが。。
この一言は余計。あなたにとって、このスレ私たちはいったい何なのかって思ってしまった。

指定された範囲のなかの数値データだけの合計を求めるやり方を教えてください

>>641
SUM関数でよい。
範囲内に文字列や論理値があっても無視される。

　　Ａ　Ｂ
1　あ　い
2　あ　い
3.　　　い
4

と入力されているシートで、Ａ３を返すマクロはどのような感じでしょうか？
Ｂ列を無視してＡ列を検索してデータの入力されているセルの次のセルを返すということなのですが・・・

>616
A3が最終セルなら（A4以下にデータが無いなら）、
Range("A65536").End(xlUp).Offset(1, 0)使えばいいのでは
それか逆にA1からxlDownとOffsetか。

Ｑ：あるブック、たとえば Data???.xls をオープンしたときに、そのブックと
　同じディレクトリに AutoLoad.xls というブックが存在していたら、同時に
　オープンさせたいのですが、どうすればいいでしょうか？

　　フォルダには複数の Data???.xls があって、それらを共通に加工する
　ようなマクロを AutoLoad.xls に仕込んでおきたいのです。

　　Data???.xls の WorkbookOpen イベント処理で行うのが普通なのかも
　しれませんが、 Data???.xls の数が多いと、マクロの保守が大変になり
　ます。

　　Personal.xls は Excel の起動時にオープンされるので、ここに
　AutoLoad.xls をオープンする仕掛けを作ろうと思いましたが、これを
　させるイベントがわかりません。Personal.xls の WorkbookOpen イベント
　が処理される時点では、まだ Data???.xls が開いていないらしいのです。

エクセルをワープロ代わりに使う
みたいなスレってなかったでしたっけ？

>>618
AutoLoad.xlsを起動して、AutoLoad.xlsにData???.xlsを
一括処理するマクロを書くのはどうでしょう？

下は同じディレクトリにあるData???.xlsをA1から書き出すマクロです。
書き出すところを適当に変えてやれば目的のマクロの何か参考になるかと。

Dim f_name As String
Dim i As Integer
　f_name = Dir(ThisWorkbook.Path & "\data*.xls")
　i = 1
　Do While f_name <> ""
　　Cells(i, 1).Value = f_name
　　f_name = Dir()
　　i = i + 1
　Loop

>>618
AutoLoadを先に起動しても問題ないなら、>>620。
先に起動したくないなら、次の方法があります。

まず、PersonalのThisWorkbookに

Dim myE As New Class1

Private Sub Workbook_Open()
　Set myE.myEvent = Application
End Sub

クラスモジュールを挿入し、

Public WithEvents myEvent As Application

Private Sub myEvent_WorkbookActivate(ByVal Wb As Workbook)
　If Wb.Name Like "Data*" Then
　　Workbooks.Open ActiveWorkbook.Path & "\AutoLoad.xls"
　End If
End Sub

挿入したクラスモジュールの名前がClass1でないときは、PersonalのThisWorkbookの一行目を
適宜書き換えてください。

よく見たら、AutoLoadが存在しないときもあるようなので、
クラスモジュールの記述は、次のを使ってください。
上に書いたやつは、AutoLoadがないとき、エラーになります。

Public WithEvents myEvent As Application

Private Sub myEvent_WorkbookActivate(ByVal Wb As Workbook)
　If Wb.Name Like "Data*" Then
　　On Error Resume Next
　　Workbooks.Open ActiveWorkbook.Path & "\AutoLoad.xls"
　　On Error GoTo 0
　End If
End Sub

300A500.3
50B300.3
600C750.5
ちょっと適当なんですが上記のデータがあったときに
左側の数値に30.2を足して
300A530.5
50B330.5
600C780.7
というデータに変換したいのですが何かいい方法は無いでしょうか

右側の数値でした。すいません。

=LEFT(A1,LEN(A1)-4)&RIGHT(A1,4)+30.2　とか

繰上げに対応してないべ。

さいでげすね・・

ということで4を5に

必ず３桁＋少数点以下１桁ならね、

そこまで指定されてないから

んだね。

質問です。

A列に１行から10000行までのデータがあるとします。
ひとつのセルにはそれぞれ別の数値データがあります。

そのデータでは数が多すぎるので、適当な間隔で間引きたいです。
（たとえば、１行、１００行、２００行、、、、などの等間隔の値だけ取り出したい。）

こんなことって出来るのでしょうか？

よろしくお願いいたします☆

>>632
作業列を作って1〜100までの番号を1行から10000行まで繰り返しふってオートフィルタで抽出するとか

>>632
１行、１００行、２００行だと等間隔になってませんけど、
１行、１０１行、２０１行ってことでOK？

B列に出力するなら、B1に以下の式を入力。
=INDIRECT("A"&(ROW()-1)*100+1)

B1セルを下にコピーすると、B列にA1、A101、A201・・・の順で
値が表示されます。

>>634

わ〜！！すごいです！！
どーもありがとうございました☆

失礼なヤツだな

2ch で礼儀なんか求めるなよ
>>635 はちゃんとお礼いってるだろ

>>636
故意にやってる気がする

質問させてください。
当方excelXPを使ってるのですが、このまえ学校でExcel2003をつかう機会があり
そっちを使ってみたところ、とてもカラフルでした。
（windowsがXPに変化したときのように）
そこで教えていただきたいのですが、あれはver2003からのものなのでしょうか？
それともExcelXPでも、ああいうふうにできます？

どこがどうカラフルだったのか書かないと

すみません。
セルの部分じゃない、ツールなどがある周りの部分です。
僕のは全て灰色なのですが、学校のexcel2003はきれいな青でした。

質問です

　Ａ
1 10　
2 5
3 ×
4 1

とあった場合×を0として合計を出したいのですが可能でしょうか？

>>641
灰色って事はOSがXPじゃないか、XPだとしてもクラシックスタイルのスキンを使ってるんじゃ？
WinXPで使えばExcel2000でも設定したスキンの色になるよ

>>642
普通に　=SUM(A1:A4)
文字は無視してくれる。

>>642
やってみれ

>>643
OSはXPです。Excelのスキンはどこで変えれます？
ヘルプでインターフェイス、スキン、など調べてみたんですが、イマイチわかりません。

>>646
スキンは excel とは関係ないだろ

>>646
WinXPのスキンを換えろってこと

スキンの換え方が解らなかったら
●好き好き大スキン！WindowxXPスキンスレッド33●
http://pc5.2ch.net/test/read.cgi/win/1098034016/

>>623

マクロでやれば、

Dim i As Long, Num As Long, myCell As Range
　For Each myCell In Range(Range("a1"), Range("a65536").End(xlUp))
　　Num = myCell.Characters.Count
　　　For i = 1 To Num
　　　　If IsNumeric(myCell.Characters(i, 1).Text) = False Then Exit For
　　　Next
　　On Error Resume Next
　　myCell = Left(myCell, i) & Right(myCell, Num - i) + 30.2
　　On Error GoTo 0
　Next

A列のデータを置き換えます。もとに戻せないので注意。

>>639

ちなみに、ExcelXPではなく、Excel 2002です。（Officeの名前はOffice XPだけど）

>>644
ありがとうございます。

すみません、質問なのですが、エクセル97を使っています。

１つのセル内に、改行のない全角のみのテキストが入っているとして、
これを例えば８文字で改行させるにはどうすれば良いのでしょうか？
列幅を調節しての改行ではなく、データとして改行させたいのです。

例：今日はとても良いお天気ですね。
　　　　　↓
　　今日はとても良い
　　お天気ですね。

どうか宜しくお願い致します。

>>651
自動でってことではないよね？

手入力で改行なら、Alt + Enter

>>651
改行したいところで　Alt＋Enter

関数の質問なんですが
与えられた数字の中から特定の数字の合計を選び出す関数ってありますか？
たとえば23、43、63、12、54、の中から3個合計すると118になる数
字を探し出すというようなことです。
与えられた数字は100前後で桁数は4桁ぐらいあるので対応しきれなくて・・・。

宜しくお願いします。

>>654
ありません。

取り出す個数を限定してもいいなら、マクロでは可能です。

>>654
>>6を参照。

>>655-656
ありがとうございました。
FAQに入っていたとは、お恥ずかしいです。
助かりましたm(_ _)m

とある部署のＰＣをリカバリしたら今まで出来ていた作業ができなくなったとの苦情を受けました。

それは、ExcelファイルにCSVファイルをインポートする時の動きです。

Excelの表は
名前　　　　番号
名前　　　　番号
　：　　　　　：

で、CSVの中身は
名前,番号,名前,番号,名前,番号…
なのですが

インポートするとExcelの中身が
名前　　　　番号　　名前　　　　番号　　名前　　　　番号…
と横に挿入されてしまって表がグチャグチャになってしまうとのこと。

色々インポート時の設定を調べたのですが「データn個毎に改行」なんてｵﾌﾟｼｮﾝはありません。
以前の担当者が居ないのでどうやっていたかが分かりません。

これはマクロ等を使わないと不可能な事なのでしょうか？

すんません、解決しました。

>619
こういうスレなら知ってる。

Excelで仕様書書く椰子って100%無能だよな
ttp://pc5.2ch.net/test/read.cgi/prog/1078718768/l50

す、すみません・・・651です。仕事で外出してました
もうテキスト自体はできてまして、それを後付けで改行付きに
修正したいのです。
１セルずつ手動でもいいのですが・・・数が・・・膨大なので・・・
改行修正したいセルが、5000セルくらいあるのです・・・
なんとかなりませんか？今夜がヤマだ！（謎

それでは失礼致します。

教えて下さい
Excel2002を使っています
列に連続した数nがあります(A1.0 A2.0 A3.0…)
続いて連続したn以上の数があります(A8.1 A9.1…)
連続したn以上の数のまとまりを1つと数え
そのまとまりが幾つあるか
簡単に調べる方法を教えてください
説明下手ですいません…

>>661
置換すればいいのでは？

649のマクロをちょこっと弄れｑあｗせｄｒｆｔｇｙふじこｌｐ；＠

>661
>664が言うように>649のをいじるのが一番スマートだと思う。

それが無理なら作業列作って、=LEFT(B:B,8)&CHAR(10)&RIGHT(B:B,2)　
みたいな式を作ってセル内改行コードを入れて、その後、目的の列に値のみ貼り付け。
その後、セルの書式設定を折り返し表示に変更する、とか。

>662
集計かピボットテーブル使ってデータの個数で集計とれば？

業務用の端末で、実行環境の変更やソフトのインストール等を一切行って
いないマシンで、エクセルからの印刷が、突然印刷できなくなってしまいました。

同じようなトラブルに遭われた方いませんか？

環境
EXCEL 2000 SP3
WindowsXP SP1
ネットワークプリンタに出力

現象
CSV ファイルを開いて、範囲を指定して印刷を行おうとすると、EXCEL が落ちる。
再現性アリ。
範囲の指定を行わずに印刷すると問題なく印刷できる。
.XLS ファイルを開いた時は、印刷範囲の指定の有無にかかわらず正常に印刷できる。

補足
落ちる端末に関しては、２〜３ヶ月程度 Windows Update をさぼっていて、環境が
変化していません。

プリンタを接続している鯖（2000ServerSP4）には、セキュリティパッチ一式を当てました。
プリンタドライバはいじってません。

>>667
csvをxlsに保存しなおして印刷は？

逆に、xlsをcsvに変更して保存して印刷した場合はどうなる？

>>668
それは大丈夫です。

面倒なんで、 Office2003 に UG したら直りました。

しかし、一体なんだったんだろ。EXCEL2000 のバグだとは思うんだけど。

asdf.xls　（←同一フォルダにある、別のエクセルファイル
56 (←上記ファイルの特定のシート・列・行の値の表示）

と言うかんじで、１行目にファイル名の内容を２行目に表示
させるのだが、１行目のファイル名のところに、同一フォルダの
別のファイル名を入力すると、下の値も自動的に
ファイル内容で更新するようにしたい。

２列目の式を教えてください。

ちなみに、='[(=A1)]シート名'!$A$1
でやったら、上手く行きませんでした。
ファイル名を変えても値が変わらない。

宜しくお願いします

セルの結合に関する質問です。
セルを結合して中央揃え、のアイコンで結合させたセルを
選択しもう一度そのアイコンを押すことによって
結合が解除されるものでしょうか？
自分の使ってる97では無理でした。
できると言う人もいますが、バージョンによるものか、設定によるものか教えてください。

='[indirect(A1)]シート名'!$A$1
でどうよ

>>671

97じゃできないよ。
たしか、2002から。（2000からだったかも）

でも、97でも、ツール→ユーザ設定→書式　の中の、セルの統合の解除　ってのをツールバーに
置くことができると思います、たしか。

>>672

それでうまく行く？
俺は、
=INDIRECT("["&A1&"]シート名!$A$1")
みたいな感じでやるけど。

>>661

選択範囲内を8文字めで改行するマクロ。

On Error Resume Next
Dim i As Long, myCell As Range
　For Each myCell In Selection
　　If myCell.Characters(9, 1).Text <> Chr(10) Then
　　　myCell = Left(myCell, 8) & Chr(10) & Right(myCell, myCell.Characters.Count - 8)
　　End If
　Next


何か、ものすごい書き込みにくいのは俺だけ？

間違えた。

↓これが正解。

On Error Resume Next
Dim myCell As Range
　For Each myCell In Selection
　　If myCell.Characters(9, 1).Text <> Chr(10) Then
　　　myCell = Left(myCell, 8) & Chr(10) & Right(myCell, myCell.Characters.Count - 8)
　　End If
　Next

質問です。
今、検量線を作っていて、
グラフウィザードの平滑折れ線グラフで作ったのですが、
X軸の値が変えられなくて困っています。
散布図で作ればうまく行くのですが、
滑らかな曲線に仕上げたいのです。
おしえてください。

>>676

具体的に値をどういうふうに変えたいの？

質問です。
今、検量線を作っていて、
グラフウィザードの平滑折れ線グラフで作ったのですが、
X軸の値が変えられなくて困っています。
散布図で作ればうまく行くのですが、
滑らかな曲線に仕上げたいのです。
おしえてください。

>>673
できました。ありがとうございます。
ついでにセルの結合のアイコンもつくりました。
結合はしたいけど中央揃えはしたくないというパターンが多かったので、
これでかなり便利になります。

すいません(o*>Å<)o
えっと、X軸の値を変えたいのと、
滑らかな曲線にしたいです。

>>679

あ、そうそう。デフォでついてる「統合して中央揃え」だけだと、めんどくさいときあるよね。

>>680

グラフのことは詳しくないので、正しいこと言ってるかわからんけど、
たとえば、X軸右クリックで「軸の書式設定」で「目盛」「目盛の間隔」とか、
グラフエリアで右クリックで「元のデータ」「系列」「項目軸ラベル」とかで
なんとかできないのかな？
滑らかな曲線って、「平滑折れ線グラフ」じゃなくて、普通の「折れ線グラフ」じゃできないの？

とんちんかんなこと言ってたら、ごめんだけど。

ほう☆やってみます！！！

>>682
質問もよく理解してないので、お役に立てたのかわからないけど、
とりあえず試してみてください。

誰か、詳しい人が現れるのを願って。
わたくしは、就寝いたします。Good Night.

excelの2002と2003を使用しているのですが、ブックの中身を見えないように設定
しています。
このパスワードの暗号強度はどの程度なのでしょうか？

どなたかご存知でしたら教えてください。

>>684
頻繁に代えれば無限じゃないの？

>>684
そう言う意味じゃなくて、誰かにファイルをコピーされてパスワードを破られる可能性を
質問しています。

Excel2000のパスワードなんて１時間あればクラック出来るツールが出回っていますので
Excel2002以降に搭載されている
RC4, Microsoft Base Cryptographic Provider v1.0
RC4, Microsoft Base DSS and Diffie-Hellman Cryptographic Provider
RC4, Microsoft DH SChannel Cryptographic Provider
RC4, Microsoft Enhanced Cryptographic Provider v1.0
RC4, Microsoft Enhanced DSS and Diffie-Hellman Cryptographic Provider
RC4, Microsoft Enhanced RSA and AES Cryptographic Provider (Prototype)
RC4, Microsoft RSA SChannel Cryptographic Provider
RC4, Microsoft Strong Cryptographic Provider
の強度を知りたいのです。

パスワード管理ツールについて語れや(´ﾟc_,ﾟ` )
ttp://pc5.2ch.net/test/read.cgi/software/1053531339/l50

そういうのはこっちの方が詳しい人多いんじゃない？あんまり動いてないスレだけど。
それと↑に出てくるツールについて検索してみたらどこまで対応してるかある程度わかるだろ。

このスレでパスワードクラックに繋がる話をするのはどうかと思う。
686はパスワードで守りたい側の人間なんだろうけど、
クラックしたい人間へのヒントにもなりかねない。
実際、以前シェアウェアかなんかのExcelファイルのパスワード知りたいとか言う
厨が沸いたことあるし。

その程度でクラックされるなんて・・・

Sheets("Sheet1").Select

で、Sheet1の名前が変わると上のVBAのシート名も自動的に変わるようにするにはどうすればよいでしょうか？

よろしくお願いします。
エクセルでｼｰﾄ1に書いた文字数字を勝手にｼｰﾄ2に入るようにしたいのですが
できるのでしょうか？
もし出来るのでしたら教えて下さい。

>>691
同じ位置のセルに入ればよいなら、入力前にSheet1とSheet2を両方選択してからやればよい。
ひとつに入力したら他のシートにも同じように入る。

>692
ありがとうございます。

説明不足でしたが　決まった場所を常に同じ文字数字を入るようにしたいと思ってます。
今しようと思ってる事は納品書の金額をｼｰﾄ１に何列が書いて　それをｼｰﾄ２に
そのままかってにｺﾋﾟｰしてｼｰﾄ２で請求書をだそうと思ってます。
よろしくお願いします。

>>693
セル参照使え

自己レス
Sheets("Sheet1")をWorksheets(左からの番号)で指定すればいいんですね・・・

>>666
集計はやってみましたがうまくいきませんでした…
ピボットテーブルは使い方がよく分からないので
勉強してからやってみます。
A1 0 A2 0 A3 0 A4 3 A5 2 A6 0 A7 0 A8 2 A9 1 A10 0
この場合なら答えは「2」のように
いい方法ないですか？ちなみに行の数は一万行くらいです。

適当な列で１行目に次の式を入れて
１万行コピペ。あとはＳＵＭで、
=IF(AND(A1<>0,A2=0),1,"")

>696
666です。既に697さんが別の方法を出しておられるのでそちらをお使いになると良いと思いますが
集計、どこで躓きましたか？

言い忘れましたが、集計使うときは数字をソートしておきます。
なので、集計はシートをコピーしてそちらで行った方が安全です。
（でなければもとの順序に戻すためのナンバーをふった列を用意しておく）

ソートした後、集計します。このとき「列見出しを含む云々」というエラーメッセージが出ますが
そのままOKして、あとは「グループの基準」にA1で入ってる数字、集計の方法を「合計」から
「データの個数」に変更。うちではこの方法でいけますが。

ソートしたら０が集まっちゃうのでわ？

>699
んー。最初の質問だと集計したいのが「２」だけとは取れなかったし、
このやり方でも２であるデータがいくつあるかは集計できるからいいかと思ったんだが。

あと、ソートしとけば
0のデータの個数　12
2のデータの個数　2
という形で集計されるけど、ソートしないと、

0のデータの個数　10
2のデータの個数　1
0のデータの個数　2
2のデータの個数　1

…みたいになって役に立たない。

>>698
ものすごく説明がわかりにくい。nって普通個数を表すけど、そのnって単に数字のことだよね？
だとしたら、そのnの値をどうやって決めるの？　それを説明してくれないと、答えられない。
あと、A1 0 A2 0 とか、読みにくいです。普通に列挙したほうがわかりやすい。

0
0
0
3
2
0
0
2
1
0

↑これで、答えが2ということは、0以外の数字が連続してる箇所が、何箇所あるかということでしょうか？
俺はそう解しました。だとしたら、マクロでやるのか簡単。

Dim myCell As Range, Num As Long
　If Range("a1") > 0 Then
　　Num = 1
　Else
　　Num = 0
　End If
　For Each myCell In Range(Range("a2"), Range("a65536").End(xlUp))
　　If myCell > 0 And myCell.Offset(-1) = 0 Then
　　　Num = Num + 1
　　End If
　Next
MsgBox Num

数字が連続してる箇所の話だったのか…
ｽﾏｿ、666以下関連のレスは脳内削除ヨロです。

>>702

あ、ごめん。>>696（>>662）へのレスでした。
説明がわかりにくいって、>>662さんがってことです。

VBAでコードを書くたびに、新しいModuleを挿入して書いていたのですが、
これって、効率悪いのでしょうか？ファイル容量も重くなる？
Moduleを分ける必要もなければ、一つである必要も無いのですが、
どちらの方がいいのでしょうか？（効率が良い？）
よろしくお願い致します。

Excell2000 SP-1、OSはWinXPです。
これは世界のある都市の気温を現したものなのですが（左列が月、右列が気温）、
２列目だけを用いてグラフ作成を行なったところ、気温はY軸で表示されました。
作成された気温グラフを見ますと、Y軸の最低ラインが26、最高が28.5として表示されています。
このY軸の数値の範囲を0〜30としてグラフを作成させたいのですが、どのように設定すれば宜しいのでしょうか。


126.8
226.9
327.7
428.2
528.3
628
727.6
827.6
927.5
1027
1126.8
1226.6

訂正

1 26.8
2 26.9
3 27.7
4 28.2
5 28.3
6 28
7 27.6
8 27.6
9 27.5
10 27
11 26.8
12 26.6

ヽ（`Д´）ﾉ

軸の書式で最低値と最高値を指定

Excel2003でファイルメニューの下に最近使ったファイルが表示されますが、
これを消す方法はないでしょうか？

>>708
ツール→オプション→全般
最近使ったファイルのチェックを外す

簡単な質問ですが教えてください。
セルに数式を入力しているのですが、（PHONETIC）フリガナを自動でつける関数。
デリートキーで数式が消えてしまわないようにできますでしょうか。

>>710
ツール→シートの保護

ちょっとつまらんことを聞くけど教えて栗。
1,3,5,7,9,11行目という具合に１行飛ばしは１行おき？
それとも２行おき？

google等で「Excel 1行おき」で検索するとどうも「1行おき」という人が
多いみたいだが、「1日おき」ってのはどうも毎日のことらしい。

エクセルの表をパワーポイントにコピーしたいんですけど、
どうしてもエクセルに元々ひいてある罫線も写ってしまうんです。
どうしたら写らなくなるのでしょうか？
よろしくおねがいします。

>>712
一日おきは二日に一回。ぐぐってもそう。
>>713
ツール　オプション　表示　枠線　チェックを外してから作業

>>714
そうですか？
じゃぁ３日に１回は２日おきということになるの？
これなんか３日おきってなってるよ？
http://www.rakuten.co.jp/veritas/450916/573412/

ts

おき＝間隔をおいて

6時間おきに薬を飲む＝6時間隔をおいて薬を飲む＝6時後に薬を飲む
24時間おき＝24時間間隔をおいて＝24時間後
1日おき＝1日間隔をおいて＝1日後

直前にやった操作をもう一度実行するという操作はできないでしょうか？

たとえば、「行の挿入」を実行した後、もう一度行の挿入をしようとするとき
いちいちコマンドを選ばなくても、ある操作をすると、さくっとできる、そういう
のないでしょうか？

ほんとだ！できました^^
714さん、ありがとうございました。

>>718
ctrl + y

>>622
　亀レスになってすいません。
　望みどおりの動作ができました。ありがとうございました。

　それで、>>621,622 について少々お聞きしたいのですが、これはいったい
どういうテクニックなのでしょうか？自分の知識ではちょっとはっきりと理解
できてないので…下記の解説であってますでしょうか？

１）Personal.xls オープン時に、New したクラスモジュールのイベントに
　 Excel のイベントを関連付け（←？？？）

２）Workbooks.Activate イベント（←これはどのブックでも起きるイベント）
　で、アクティブワ−クブックと同じディレクトリにある AutoLoad.xls を
　オープン

>>618 では、ブックの Open イベントで行わせたい処理なのですが、
　Activate イベントでないとできない、ということなのでしょうか？

　というのも、実際には AutoLoad.xls は影でオープンしておきたい
ブックなので（加工用のツールバーをしこんである）、>>622 の
End Sub の前に次の１文を挿入してみたんですが…

　Workbooks( Wb.Name ).Activate

　無限ループになってしまいました。（ｗ

　質問が複数になってしまってすいません。もう少しお付き合い
願えますでしょうか？

>>717

(´-`).｡oO( １日間隔おいたら２日後なんだけど、、、

初歩的なことだと思いますが調べても分からなかったので質問させて下さい

セル[A1]の内容をセル[B1]に["]を付けて表示させたいのですが
セル[B1]の式に="""&A1&"""とすると最初の””と最後の””が何も無い文字列と認識され、
セル[B1]の表示が"&A1&"となってしまいます

多分["]の前に特殊な記号でも付ければ良いのではないかと思ったのですが上手くいきません
ご存知の方ご教授下さい

バージョン：エクセル97
容量削減の為かヘルプがインストールされていませんでした・・・＆媒体行方不明

>>723
=""""&A1&""""

>>722 皆の気持ちを代弁してくれてｱﾘｶﾞﾄｳ。

>724
ありがとうございました

えと、マクロで、現在アクティブになっているフォームの名前を
取得したいのですが、どうしたらよいでしょう。

>>717
1日間隔をおいたら１日後だろうよ。
24時間後だぞ？

しかし５行に１行なら５行おきっていう人多そうな気がするな。
５行に１行が５行おきなら、２行に１行は２行おきだもんな。

>>728は>>722へのレスだ。

おき＝間隔じゃないし・・・

Bookshelfによると
> 一日おきに〔＝間を一日あけて〕

>>728
今、午後１時です。１１時間後が明日です。
１日間隔をおいて３５時間後は明日ですか？

Excelの場合
おれなら偶数行奇数行について言うときは一行おきって言うけど

毎日と１日おきの区別がつかないやつがいるのか

>>728
1日おきって、24時間空けてと言う意味じゃないと思うよ。1日が最小単位なんじゃないの？
何時何分何秒であっても、その日を「日」という単位で見れば「1日おいた」というのは2日後と言うことになる。

Excelでマクロ組むときも含め、厳密に24時間間隔を開けなきゃいけない場合は
時間を単位にして算出するが、それ以外は日付から算出して「一日おき（隔日）」ってする。
起点が何時であろうと「10/23」から一日おきは「10/25」みたいに。

どうでもいいが、そろそろスレ違いだと思う。

結局これは間違いなの？
それとも正しいのか？
http://www.rakuten.co.jp/veritas/450916/573412/

粘着？

>>737
で、Excelについての相談を聞こうか？

Excel初心者に近い状態なんですが、質問させてください。

AとBに書いた内容の比較を行いたいんですが、
Exel自体にそういう機能は含まれてますか？
マクロ書かなきゃダメですか？

マクロは使ったことが無いので覚えるところから始めなきゃいけないんですが・・・。

>>740
ttp://www3.plala.or.jp/kazuasa/exdiff.html

>>741
ありがとうございます！使ってみます！

>>721

> １）Personal.xls オープン時に、New したクラスモジュールのイベントに
> 　 Excel のイベントを関連付け（←？？？）

Personal.xlsオープン時に、Newしたクラスモジュールの、イベント対応の変数myEventに、Excelの全てのオブジェクト（コレクション）を関連付けしています。

> ２）Workbooks.Activate イベント（←これはどのブックでも起きるイベント）
> 　で、アクティブワ−クブックと同じディレクトリにある AutoLoad.xls を
> 　オープン

そのブックの名前がDataで始まっていればオープン。

> >>618 では、ブックの Open イベントで行わせたい処理なのですが、
> 　Activate イベントでないとできない、ということなのでしょうか？

一行目をPrivate Sub myEvent_WorkbookOpen(ByVal Wb As Workbook)に変えればできますよ。
Application(Excel)の全てのイベントが使用できます。

> 　というのも、実際には AutoLoad.xls は影でオープンしておきたい
> ブックなので（加工用のツールバーをしこんである）、>>622 の
> End Sub の前に次の１文を挿入してみたんですが…
> 　Workbooks( Wb.Name ).Activate
> 　無限ループになってしまいました。（ｗ

無駄な実行を防ぐために、End IFの前に記述したほうがいいです。

↓みたいな感じで、A列の値が同じ場合、同じ行にまとめたいのですが、
何か良い方法はないでしょうか。

　　A　　　B
1　100　　aaa
2　100　　bbb
3　100　　ccc
4　101　　aaa
5　101　　ccc
6　102　　ccc

　　A　　　B　　　C　　　D
1　100　　aaa　　bbb　　ccc
2　101　　aaa　　ccc
3　102　　ccc

>>744

A列の数字がきちんと並んでいることが前提です。

Dim i As Long, myV As String, myCell As Range, SH As Worksheet
　Set SH = ActiveSheet
　Worksheets.Add , SH
　myV = ""
　i = 0
　　For Each myCell In Range(SH.Range("a1"), SH.Range("a65536").End(xlUp))
　　　　If myCell <> myV Then
　　　　　i = i + 1
　　　　　myV = myCell
　　　　　Cells(i, 1) = myV
　　　　End If
　　　Cells(i, 256).End(xlToLeft).Offset(, 1) = myCell.Offset(, 1)
　　Next

Openofficeで今日の日付と7日後の日付を表示させる方法を教えてください。

EXCELでは「TODAY()+7」とする事で7日後の日付を表示できるようですが、
Openofficeでは、「3????」と1900/1/1から数えて何日で表示されてしまいます。

両刀使いの方、何か良い方法はないでしょうか？

自己解決しました。
シリアル値で帰ってきたセルの書式設定で、
数→分類→日付と設定する事で日付に変換されました。

>>745
すごい、できました！
今までの苦労は何だったのだろう。。
ありがとうございました。

>>743
　ありがとうございました。

エクセル2000です
テキストのみのホームページをエクセルで直接表示は出来ますか？

ホームページ（全て選択→コピー）　→→　エクセル（マクロ→データベース化）
携帯サイトなので表示少の為、この作業の繰り返し、、、メンドイです

直接開いて、後はマクロ任せの編集にしたい訳で、、、ご指導願います

連書きゴメン
ハードディスクの保存htmファイルをエクセル表示は出来るけど
ネット上のhtmファイルをエクセルで表示させる方法が解らないです

Excelで二枚の画像などを重ねてもおくのが見れるようにみせるには
どうしたらよいでしょうか？？透けるかんじにしたいのですが・・

>>752
無理

>>752
手前の絵を　透過GIF　にする。

あ、半透明のことか！？
むりぽ

>>750
エクセルを新規に立ち上げたあと、
「データ」→「外部データの取り込み」→「新しいWebクエリ」
の「アドレス」にURIを入れて移動し、取り込みたい箇所の矢印をクリックして、
「取り込み」をクリックする。（テーブルなどあればそれだけ取り込むこともできる）
そのエクセルファイルを保存しておけば、あとは更新すれば最新データをいつでも取り込めます。
（自動更新に設定することもできます）

↑この方法はどうでしょうか？

EXCEL VBA で列の挿入をしたいのですが
挿入列にてセルが他の列にまたがってセル結合されていると
うまく１列のみの挿入ができません。

Columns(2).Select
Selection.Insert Shift:=xlToRight

Select時にセル結合された列も選択されてしまうのが
原因みたいです。

何か解決策ないでしょうか？

>>757

Columns(2).Insert Shift:=xlToRight

で、選択せずに、行を挿入するけど、これでどうでしょうか？

ゴッホさんありがとうございます

その方法で解決できました( ｀ー´)ﾉ

また、次のステップでつまづいていますが、、、

こんな質問はとっくに既出かもしれませんが…
エクセルで表示した複数のグラフを同じ大きさに
あわせることはできますか？

>>760
グラフを全部まとめて選択して、右クリックから「オブジェクトの書式設定」
あとは「サイズ」タブで高さと幅を指定する

それだとグラフの外側の枠は同じ大きさになりますけど、
グラフ自体は少し大きさが違っていたりもします。。
やはり目視による調整しかないのかなぁ？

>>762
それは無理じゃないかな。私はやり方知らない。
グラフエリア内にはいろんなグラフ要素があって、それぞれ個別に大きさ変えたりできるから。
どこを取って”グラフの大きさ”というのか…。

グラフの大きさってのは、四角形だったり円だったりのそのエリア部分
のことを言っています。それ以外の要素を全て同じにすればグラフは同じ
大きさになるのかなぁ？でも、要素を同じにするって言っても値をそろえられる
要素とそうでない要素(凡例の位置とか)もあるからやはり無理でしょうか(><)

Excelを使って物理量の単位を気にせずに計算し、最後に期待する単位に直したいのですが…
複雑な単位換算って出来るのですか？

>>765
ヘルプに書いてないか？

>>766
おぉ、CONVERT関数を使うのですね。
でも、m^2（平方メートル）などの面積を、cm^2への換算には使えないんですか？

a1,a2,a3,a4・・・にある偶数ばんめのデータ（つまりa2,a4,a6・・・）をb1＝a2,
b2=a4,b3=a6としたいのですが、これはVBAを使わない場合どういうふうにすればいいのでしょうか？

=INDIRECT("A"&ROW()*2)

>>768

B1に「'=A2」、B2に「'=A4」と書いて、その2つのセルの選択し、B2のセル右下のフィルハンドルを、
数式を入れたい行までそのままドラッグ。

B列を選択し（枠のBと書いてあるところをクリック）、「データ」→「区切り位置」をクリックし、何もせずそのまま「完了」をクリック。

IEからデータをコピーしたらシートにチェックボックスまでコピーされてしまいました。
これを削除する方法はないでしょうか？
行や列の削除では消えませんでした。右クリックも出来ません。

>>771
表示→ツールバー→コントロールボックス

一番左のデザインモードをクリックし、
チェックボックスをクリックし、
Deleteキーを押す。

>>771
デザインモードにして選択してDeleteキーを押す

>>772-773
Thanks!

>>756
ゴッホさん、アリです
更新をマクロボタンで出来るのは助かります
後は一連の作業のマクロを組んでボタン一発！！。ドウモです

>>769 770　どうもありがとうございます。

質問ですが、
セル内の文字間設定ってありますかね？
OCR用の印刷画面作ってるんですが、
リンクさせた数字がうまく枠に入らなくて・・・

a1=0,a2=1,a3=1,a4=2,a5=3,a6=-3,a7=-3,a8=-3・・・と前の値に比べて大きくなるか、等しいか、小さいかというふうに変化する数があるんですが、
「前の数に比べて大きくなるか、ひとしいを一つはないしは、いくつかはさんで大きくなる」に８を対応させ,
「前に比べて小さくなるか、ひとしいを一つはないし、いくつかはさんで小さくなる」に９を対応させたい。
つまり上の場合だったらb2=8,b3=8,b4=8,b5=9,b6=9,b7=9,b8=9・・・・
としたいわけです。これはVBA使わずに、行うにはどうしたらよいのでしょうか？

>778
B1に　=IF(A2<A1,9,8)
B2に　=IF(A2=A1,B1,IF(A2>A1,8,9))
B3以降はB2のコピペ

B5はA4⇒A5（2⇒3）だから8では中廊下

一行おきに（偶数セルのみを）足し算するには
どのようにすれば良いのでしょうか？

お願いします。

Excel2003にＩＥから文字データをコピーしようとするとデフォルトがhtml形式に
なってしまいます。
テキスト形式でコピーしたいので今は形式を選択してコピーしているのですが、
デフォルトをテキスト形式のコピーにする方法は無いでしょうか？

>>780
http://www.eurus.dti.ne.jp/~yoneyama/Excel/ex-q-a/q_keisan/index.html#itigyogotogoukei

>>779 どうもありがとうございました。

質問なんですけど、
会社で使う表を家のＰＣ作って、ＦＤに保存。会社のＰＣでファイルを開こうとしたら、
「アクセスできません。ファイルは読取専用であるか，または読取専用の場所にアクセスしようとしています。
またはサーバ上に保存されているドキュメントから応答がありません。」
となってしまい、開けませんでした。EXCELは家のも会社のも９７です。
原因はなんでしょうか？

上の補足ですが、読み取り専用にはなっていませんし、ＦＤが壊れているわけでもないです。
よろしくです。

A1=３,A2=３,A3=−４,A4=−５,A5=−４,A6=9,A7=−9,A8=１１、A9＝−２‥
という数列で負の数のちょうど前の正の数(この場合はA2=３とA6=9とA8=１１）の
大小を出てきた順に比較するため(この場合は、A2=３とA6=9を比較し、A6=9とA8=１１を比較したい）
にはどのようにしたらよいのでしょうか？

Excel2000を使って個人データを作ってるんですが
(A列に個人名・B列以降は住所とか電話番号)
個人別に、カード(バインダーと言うのか)のように
バラバラにする事は出来ないでしょうか？

>784
Excelファイルが壊れていると思う。
ＦＤに書込み途中で、ＦＤ抜いたりしていませんか？
私なら、メールの添付で会社に送ります。

>>788
今スキャンしてみたら、データが書き込まれているクラスタにエラーがありました。
そういえば、急いでＦＤを抜いたので、抜く時まだ、ディスクがカシャカシャいってたような・・・。
多分それが原因かなと思うので、明日また試してみます。
会社のＰＣがインターネットに繋がっていないので、メール添付はできないです。
ありがとうございました。

A1 B1 C1
A2 B2 C2

A3 B3 C3
A4 B4 C4
　　・
　　・
　　・
と続き、A1〜C2、A3〜C4、・・を1グループとしてまとめて並び替えを行いたいのですが、可能なのでしょうか？

Excel2000VBAを使用してアプリを作っています。
ユーザーフォームのマルチページについて２つ質問させてください

○あまりパソコンに詳しくない人間でも、視覚的に分かりやすいよう
マルチページ化したユーザーフォームの1ページ目は「赤」、2ページ目は「青」のように
任意の色に変えたいのですが、プロパティウインドウではページの色を変えられません。（背景？部分の色が変わるだけ）
どのようにして任意の色にするのでしょうか？

○プログラムから任意のページを表示するようにするにはどうすればいいのでしょうか？
例えば特定の処理をすると、タブをクリックしなくても２ページ目に移動するようにする

プロパティウインドウから推定して

userform.multipage.page2.activate=Enabled

としてみたりしたのですが何の反応もありません。
プロパティには無いのでしょうか？

以上二つどうかよろしくお願いします。

>>791
＞任意の色に変えたい
Pictureプロパティに、背景色にしたい色の画像(数ドット分)を指定して
PictureSizeModeプロパティをFmPictureSizeModeStretchにするのは
邪道でしょうか。

＞任意のページを表示するようにする
Me.MultiPage1.Value = 0 で１ページ目。=1なら２ページ目。

セルに入力した文字列と同じ名前のシートから参照する方法は？

2000年〜2004年というシート名があります。
メインのシートで2004と入力すると2004年のシートからデータを参照する方法です。
よろしくお願いします。

>>782
返事が送れましたが、ありがとう御座いました。

どなたかよろしくお願いします。

2軸上の折れ線グラフを作った後に縦軸が気に食わないので、右と左を逆転させたいのですが、方法がわかりません。
方法がわかる方おながいしまつ。

>>796
すんません、自力でわかりますた。

シートで作成できるフォーム(コントロールツールボックスではない方)の
文字サイズを変更したいのですが出来ないのでしょうか。

自己解決ですができないみたいですね。
あまり使われてないかな。

IEの右クリックに出る「Excelにエクスポート」って設定で消せないんでしょうか？

ピポット　テーブルを使って、社員の年齢分布グラフを作ろうとしています。
ところが、グループで年齢層をまとめると、その年齢層が居ないところは
表示から抜けてしまします。なにか良い手はないでしょうか？

例えば
元のデータは下記のようなデータです。
id 所属 種別 年齢 氏名
1 工場A 営業 20 なんとか1
2 工場A 営業 32 なんとか2
3 工場b 間接 26 なんとか3
4 工場A 営業 45 なんとか4
5 工場A 営業 60 なんとか5
ピポットテーブルウィザードでレイアウトを下記のように設定します。
ページ 所属 行 年齢と種別 データ id を配置してあります。
下記、実行例です。
所属　A工場
数値の個数/id
年齢　　種別 合計
20-24 営業 10
間接 2
工場 2
25-29 営業 10
間接 3
工場 30
30-34 営業 2
間接 34
工場 32
といった感じまでグループを使って作ることができました。