Excel総合相談所４

引き続きご活用下さい。

・質問する人は可能な限り具体的に書くこと。回答がなくてもキれないこと
・分かる人はできるだけ回答して下さいませ

Excel総合相談所３
http://pc.2ch.net/test/read.cgi/bsoft/1004432306/-100

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

>>1
がんばれ!

n行目以降のA,B,C…列を全て選択する方法ってありますか？

続きです。

なにがしたいのかと申しますと
1行目2行目には項目（文字列）がありまして
3行目以降に日々追加される数値データがあります。
この3行目以降を並べ替えるマクロを登録したいのですが
１，２行目以外の全ての行を選択する方法があれば教えていただきたいのです。

>>5

Sub test()
Dim myRow As Long, myCol As Integer

　With ActiveSheet
　　　　myRow = .Range("A65536").End(xlUp).Row
　　　　myCol = .Range("IV1").End(xlToLeft).Column
　　　　.Range(.Cells(3, 1), .Cells(myRow, myCol)).Select
　End With

End Sub

Excel2000で時間の計算をしたいのですが
例えば「80.9875分」の小数点以下を切り捨てて「80分」に丸めてから
それを「1時間20分」と表示させるにはどうしたらよいのでしょうか？

時間だけなら「=TRUNC(TRUNC(80.9875分のセル)/60)」かな？と思ったんですが
それだと時間と分は別のセルで計算させないといけなくなるので困っています・・・

それともう一つ質問なのですが、
計算結果の数値＋文字列を一つのセルに表示させるやり方はあるのでしょうか？
「(80/60)の整数部」＋「"時間"という文字列」→「1時間」
というように表示させたいのです。

わかりづらくてごめんなさい、すみませんがどなたか教えて下さい・・・

>6
ありがとうございます

>>7
時間の計算は私には難しいので、前半部分は他の方にお任せして、
後半部分のみ答えます。

>計算結果の数値＋文字列を一つのセルに表示させるやり方はあるのでしょうか？
>「(80/60)の整数部」＋「"時間"という文字列」→「1時間」
>というように表示させたいのです。

A1のセルに80、B1のセルに60が入力されている時、

=ROUND(A1/B1,0)&"時間"

でいかがでしょう。

>>9
ありがとうございます！助かります・・・
前半部分は、何分→何時間何分と計算する関数はないのかな？と思って
質問したのですが、&で繋げばなんとかなりそうな感じです。
本当に感謝感激雨あられです、ありがとうございました。

>>7
A1セルに「80.9875」を記入して任意のセルに「1時間20分」と表示させる場合
任意のセルに↓のような感じで記入しては？
=ROUNDDOWN(A1/60,0)&"時間"&((ROUNDDOWN(A1,0)/60)-(ROUNDDOWN(A1/60,0)))*60&"分"

もっと簡単な方法があるのかもしれないけど、とりあえず出来たので。

>>11
あああありがとうございます！
ちょうど今、悩んでいたところでした・・・
早速やってみたらばっちりでした、本当にありがとうございました！

エクセル2000の印刷トラブルなんですが、教えて下さい。
印刷プレビュー時はまともにシートが表記されているのですが、
実際印刷すると、

●−−−●−−−−−●●−−−
△−−△●−−−−◆−−−

↑
こんなグラフの出来損ないみたいのが印刷されてしまいます。
印刷の設定やシートを別のシートにコピーしたりと、色々といじってみましたが
直りませんでした。
ファイルが壊れているのでしょうか？
誰か原因がわかる方、教えてください（＾＾；

windos板ですれ違いと怒られました。
エクセルの新規ファイルが急に作れなくなりました。
ウィルスを疑っているのですが、WEBで調べてもマクロウィルスしかないようで。
それから一部ファイルも関連付けを変更されてます。
対処法を教えていただけると助かります。

疑ってるんならまずウィルスチェックしんさい。

これはどうですか？
http://www.yentown.net/erodepa-town/gal/pretty.html

EXCELでひとつのセルに =((A1*B1)+(A2*B2)+...+(A20*B20))
と入力してるんですが、簡単な式はありませんか？
わからんです・・・。

直前120日分のデータを別のシートにコピペするマクロを作ったのですが、
それをボタンによる起動だとオーバーフローしてしまいます。
　Private Sub データ_Click()
　　　〜
　End Sub
↑こうせずに↓このようにするとオーバーフローしません
　Sub データ()
　　　〜
　End Sub

ボタンから起動させたいのですが、どこに問題があるのか
もしわかる方がいらっしゃったら教えてください。

これがSub〜EndSub間の中身です。

'120日分のデータの取り出し、はりつけ
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim g As Integer '下端から119個上の行番号

Sheets("日単位").Select
a = 4 '上端
b = 1 '左端
c = Range(Cells(a, b), Cells(a, b)).End(xlDown).Row '下端検出
d = b + 6 '右端
g = c - 119
Range(Cells(c, b), Cells(g, d)).Select
Selection.Copy

Sheets("モナ").Select
Range("A6").Select
ActiveSheet.Paste

もともとのセルの色は変えないで数値だけ
オートフィルをすることってできますか？
使っているのは、MacのOffice2001です。

>>19

Range("A6").Select
　　　　↓
Sheets("モナ").Range("A6").Select

行はLongで宣言すべし。
Integerの範囲外では当然オーバーフローする。

Private Sub データ_Click()
Dim LRow As Long

　Application.ScreenUpdating = False

　With Worksheets("日単位")
　　　　.Activate
　　　　ActiveCell.Activate
　　　　LRow = .Range("A65536").End(xlUp).Row
　　　　If LRow < 123 Then Exit Sub
　　　　.Range("A" & LRow & ":G" & LRow - 119).Copy
　End With
　Worksheets("モナ").Range("A6").PasteSpecial (xlPasteAll)

　Application.CutCopyMode = False

End Sub

>>20

Mac使いじゃないので多少違うかも。

単純な数値や日付なら、先頭セルに値を入れてからフィル範囲を選択して、
編集−フィル−連続データ作成で連続データを作れます。

別のセルでオートフィルして、形式選択貼付けの値貼付けをする方が、
簡単かな？

>22さんレスありがとうございます
参照先のセルをオートフィルさせたいので
後者の方法でやってみましたらうまくいきました。
ありがとうございました。

はじめまして。
パート3に書いてしまったのですが4の方で質問させて頂きます。
マルチになってしまってすいません(>_<)
今度Excelを使わなくてはいけない状況になったのですが
ながーい√（ルート）を書きたいのですが
方法が分かりません。
どなたか教えていただけないでしょうか？
お願いします！

>>17
=SUMPRODUCT(A1:A20,B1:B20)

>>24
Wordの数式エディタで書いてからそれをコピーし
Excelの「編集」-「形式を選択して貼り付け」-「図（拡張メタファイル）」
じゃだめ？

チェックしたがウィルススキャンにはかからなかったし、EXECLは再インストール
した上でお尋ねしているのだが？

↑ネタは放置

ねたじゃなくて困ってるんだが。

それ、ニセモノ。＞社長

>>25
ありがとうございます。
うまくいきました☆

>>13
プリンタドライバを再インストールしてみたら？

>>24
挿入→オブジェクト→新規作成→Microsoft数式

webクエリをつかってDLしていると
たまに文字化けしてしまうのですが
なにか対処法ありますでしょうか

>>27
そういうことも書いてから聞いてね。
最小限の情報しか言わないで解決を要求してるんなら、俺らより近くの社員に
命令するのが早いでしょ。
それとも自営業の社長様？　暇だな〜

最小限の情報すら言ってないし。

>21
どうもありがとうございました。
うまいこといきました。

ｅｘｃｅｌの個人用マクロブックが開けなくなりました。
もちろん、新たに個人用マクロに登録しようとすると個人用マクロブックが開いてないからだめといわれ登録することもできません。
どうしたらよいのでしょうか？
個人用マクロブックには１０００行くらいのまくろが書いてあります。
同じことをさせるのは何とかなるのですが、個人用マクロブックに書けないのは困ってしまいます。

>38

バージョンやインストール先によって違うかもしれんが...

C:\Program Files\Microsoft Office\Office\XLStart\PERSONAL.XLS

を消せば良いだけでは？

マクロでINPUTBOXを出すと勝手に日本語モードになります。英数モードにするため
IMEMode = xlIMEModeOffを実行させても効きません。苦肉の策として
Range("B1").Select: SendKeys "{ENTER}", True '隣りのセルに入力規則で日本語モードOFFを設定しておく
SendKeys コマンドでオフにしてからINPUTBOXを実行しても同じです。
分かる方教えてください。

>40

ならんけど？

>41
当初はならなかったのです。次第になり始め、今では毎回出ます。アプリの再インストールしかないですかネ。
何とかそれをせず解決したいのですが。もしかしたら他のフォームを多用してるので
そのプロパティーを引きずってるのかも知れません。

>42

どんなソースか解からんけど、新規ブックで簡単なコードでもなるの？
InputBoxって、InputBox関数とInputBoxメソッドで2種類あるけど、どっち？

簡単なソースを書いてみては？

>43
解決しました。
Range("B1").Select: SendKeys "{ENTER}", True '隣りのセルに入力規則で日本語モードOFFを設定
Ｃ1セルに入力規則を設定し、日本語モードになっていても英数モードに戻りＩＮＰＵＴを実行できる処理を
しましたが、そのときの設定をオフ（英語モード）から無効にしたら直りました。日本語モードオフとオフ（英語モード）は同義
ではないようで、それでも途中までは正常に動作していたのでミスに気付きませんでした。

コードは
IMEMode = xlIMEModeOff----ではなく
IMEMode = xlIMEModeDisable---でうまくいきました。
しかし紛らわしい、普通は日本語モードを解除するには上の方と思いませんか・・・・
新規シートから実験したおかげで解決に到りました。産休です。

39>
ありがとさん
結局なんかの原因でファイルの置き場所をｅｘｃｅｌが忘れてしまったみたいで
ファイルを指定したら使えるようになりました。

すでに作ってしまったグラフの凡例を、違う文字に変えたいんですけど
セルを操作する以外に方法はありませんか？
直接グラフ上で任意の名前にしたいですけど。
お願いします。

グラフエリアで右クリック
＞もとのデータ＞系列＞名前
で判例の文字列を変更できます。

>>48
おぉぉ！！！ありがとうとうございます！ 助かりました。

フォームでセル内にチェックボックスを加えたのですが、
右側に出るチェックボックスの文字のフォントや大きさの変更は、
どこですればいいでしょうか。
現在は、UIゴシックになっているようです。
Win95 BでExcel2000です。

現在、セルA1に３桁の自然数を入力しています
セルB1にセルA1の数字の百の位を表示する方法を教えてください
セルC1にセルA1の数字の十の位を表示する方法を教えてください
セルD1にセルA1の数字の一の位を表示する方法を教えてください

自己解決しました

>>51-52
ほほぅ、さてそれは、どのように？

>53
INTとMODで解決します

X-(X mod 100)
(X mod 100)-(X mod 10)
X mod 10

こんな感じかいな

>>55
INT 要らないんですネー（藁

>>51
俺ならセルA1の書式は文字列にしちゃってですね、
LEFT( ) とか MID( ) とか使いますが、どうよ？

おらっちならright()だけで済ますぞ

百の位は INT(A1/100)
十の位は INT(MOD(A1,100)/10))
一の位は MOD(A1,10)

で計算していましたが文字列で扱えば便利ですね。
ありがとうございました

エクセルについて質問します。
昨日の夜に作った計算式なんですけど、チョット複雑で、昨日はいろいろ計算できたんですが、
保存して今日また再開したら計算してくれません。
なぜでしょうか？よろしくお願いします。

>>59
入力データが変化した
…に1俵。

エクセル関数についてなんですが、ちなみに当方初心者です、
countifの検索条件で、５以上２５以下のような、〜以上〜以下のような
検索条件で検索できるんですか？
　お願いします。！

コメントのフォントはVBAで制御できないの?

>61

A1:A25に数値が入っているとして、どうしても　Countif　を使うなら、

=COUNT(A1:A25)-COUNTIF(A1:A25,"<5")-COUNTIF(A1:A25,">25")

他には、

=SUMPRODUCT((A1:A25>=5)*(A1:A25<=25))

とか。

>>63
回答ありがとうございます
実際、countifで計算できなかったので
　=COUNT(A1:A25)-COUNTIF(A1:A25,"<5")-COUNTIF(A1:A25,">25") な
方法で私も計算したのですが、やはりcountifのみでは、無理なんですかね。

Excel総合相談所２ 661:にて既出なのですが、同じ問題に直面しています。
661:については回答が無かったようでしたので、改めて取り上げさせてください。

> 質問ですが
> EXCELのシート保護を使用して触られたくない部分は
> 保護しています。
> シートを保護していない部分には入力規則とか
> 書式とかを設定しているのですが、これらは
> コピーペーストすると入力規則が変わってしまいます。
> なんとか入力はできるけれども書式等を保護する方法
> はないものでしょうか。

詳しくはないのですが、クラスモジュールなどで解決できませんか？
とれとも、そもそも無理なのでしょうか？
よろしくお願い申し上げます。

コピペでセル内の値は変更したい、
だけど書式、入力規則は一定のままにしたい、っていうことなら
コピー＞磔対象セルの選択＞右クリック＞形式を選択して磔＞
＞値、数式、…
でどうかな。

>>65
なぜクラスモジュールだと解決できそうだと思われるのか、
発想の着眼点をお聞かせ願えれば…。後学のため。

なお、以下は俺が中央省庁に納入するシステムの仕事で気遣った点。

1. ユーザには、なるべくシートを触らせない。かわりに
　フォームなど（できれば別アプリケーション）を作っておいて、
　それに入力してもらう。
　（そのデータが自動的にシートに反映されるようにマクロを
　作っておいてあげる。）

2. ユーザが触るシートは、できるかぎり「保護」する。

3. ユーザが触る保護なしシートは、
　適切な書式等（書式、入力規則、…）を反映したものを
　新規作成して（既存のデータは自動入力して）
　入力の機会ごとに提供する。
　（テンプレート＋自動入力マクロを作っておいてあげる）

4. ユーザが入力作業をしたあと、もしシートの書式が崩れても
　復旧できるように、書式を元に戻すマクロを作っておいてあげる。

総じていえば、上記の 1「だけ」をやる、というのが
もっとも（あなたもユーザも）楽で、もっとも（書式に関して）安全です。

すみませんがおしえてちょ。
関数ＤＳＵＭを複数の列で使いたいんだけどどうやってもできないんです。

フィールド｜
−−−−−＋
条件１　　|
−−−−−＋
条件２　　｜　
−−−−−+
　　｜
−−−−−＋
条件Ｎ　　｜　
−−−−−+

でそれぞれの条件にあてはまる合計を右側に表示したいんですが
どうしたらよいのでしょうか。

>>67
なるほど。ありがとうございます。

Excelブックを閉じる際に変更点があると「XXXへの変更を保存しますか？」のボックスが
表示されますが、それを表示させずに常にセーブをしたかった時がありました。
それを解決するためにクラスモジュールを使いました（他の方の真似ですが）。

クラスモジュール C_Application にて
Private WithEvents I_Application As Excel.Application
Private Sub Class_Initialize()
Set I_Application = Excel.Application
End Sub
Private Sub Class_Terminate()
Set I_Application = Nothing
End Sub
Private Sub I_Application_WorkbookBeforeClose(ByVal Wb As Excel.Workbook, Cancel As Boolean)
If Not Wb.Saved Then
Wb.Save
End If
End Sub

標準モジュールのAuto_Open()にて
Private CApplication As C_Application
Set CApplication = New C_Application

浅はかな考えですが、このような制御ができないかと考え
クラスモジュールという言葉がでました。
例えば貼り付けを実行すると、値のみの形式指定貼り付けとして動作するとか。（無理かなー？）

ひとまず、ありがとうございました。

>>69
（´-`）.｡oO（　ほほぅ〜♥　）
イベントプロシージャをたくさん使いたいので、クラスモジュールを
使うんですね。とても　(･∀･)ｲｲ! 　と思います。

コンボボックス作ってプルダウンボタン（▼）押すと、
メニューが上に向かってできてしまうのですが、普通
に下に向かって開くように直すにはどうしたらよいので
しょうか？

モニタを逆にする

エクセルに詳しい方、教えて頂けないでしょうか？

sheet1

A B C
1 a1 a2 a3
2 b1 b2 b3
3 c1 c2 c3
4

sheet2

A B C D E
1 z1 z2 z3
2 y1 b2 y3　2
3 x1 x2 x3
4 w1 w2 w3
5 v1 a2 v3 1

エクセルで　sheet2のB列　と　sheet1のB列　をマッチングして、マッチしていたら、
その時の　sheet1のA列　の値を　sheet2のD列　に出力したかったのですが、
MATCH関数 （式は　 =MATCH(Sheet1!B:B,B:B,0)　　こんな感じです）を使ったら、
sheet2のD2　に2（sheet1の2行目という意味）が返って
きました。どのような関数を使えば　sheet2のD2　に　sheet1のA2　の値（=b1)が
返る様になるのでしょうか？

　　↑
sheet部分がずれててすみません

>>68
ＩＦ使ってるか？

例えばy=x^3+x^2+xという関数があったときに、yの値を入れることでxを出す
という計算をすることは可能なのでしょうか？

>>73-74
　　(￣￣)
　　 ）　 （
　／ 　 　＼
　|　∧ ∧　|／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　|　( ﾟДﾟ)＜　=IF(Sheet1!B1=Sheet2!B1,Sheet1!A1,"")
　＼＿＿／.＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

エクセルの新しいバージョンと古いバージョンの二つがPCに入っており、
xlsのファイルを開こうとすると古いバージョンのほうで開いてしまいます。
新しいバージョンの方で自動的に開きたいのですがどうしたらよいのでしょうか？
どなたかご助言願います。

微妙にスレ違いだな
拡張子の関連付けを変更すればよし

>76
マクロを使えばできない訳でもない。


Sub Macro1()
'
' Macro1 Macro
'
'

'
'y=x^3+x^2+x

Dim y As Integer, x As Integer
x = 0
y = Cells(1, 1)
Do Until x ^ 3 + x ^ 2 + x = y
If x ^ 3 + x ^ 2 + x > y Then
Exit Do
End If
x = x + 1
Loop
Cells(1, 2) = x

End Sub

これで、何とか動くと思うぞ。
ただしこの式は整数のみ対応で、尚且つ、
Ｘ＾３＋Ｘ＾２＋Ｘによってえられる数値がＹの数値以内であることだが
これ以上は自分で考えろ

>>71
どゆこと？
メニューが長すぎて、下向きに表示できないとき、
自動的に上向きに表示されるのは仕様どおりだけど？

>>81
ありがとうございます。
上向きだとメニューの上の方が画面から消えちゃって、
選択できないんです。画面は上にスクロールしないし・・
だから下向きにメニューが出ればと思ったんです。
仕方ないのかな〜？
ちなみにメニュー項目は６２個あります。

>>79

御返事ありがとうございます。
「エクスプローラ」→「フォルダオプション」→「ファイルの種類」
で関連付けをやろうとしているのですが、「登録されているファイルの種類」
で、肝心のXLSが拡張子のファイルが見当たらないのです。
新たに追加しようとしても、「xlsはすでにファイルの種類excel.sheet5で
使われています」との警告がでるのですが、そんなファイルは一向に
見あたりません。一体どこに隠れてるのでしょうか？

>>82
メニュー項目、多くて大変なんですな、と。 (´д｀)ノ
ていうか、なぜリストがスクロールできないんだろう？　謎。

「エクスプローラ」→「フォルダオプション」→「ファイルの種類」
で拡張子「XLS」の関連付けが表示されると思うけどなぁ

エクスプローラから任意の***.xlsファイルのプロパティを表示させて
「ファイルタイプ」→「変更」→「その他」
で新バージョンのエクセル本体(EXCEL.EXE)を指定すれば解決すると思うが？

それでも駄目ならまた相談してくれ

お邪魔します。
excel2002(XP)なのですが、
access2002からコピペした数字が言うことを聞きません。
書式を変更してもまったく反映されないんです。

具体的に言うと、

「239」という「数字」に対し、書式のユーザ定義で
「"A"0」もしくは「"A"#,##0と設定
（つまり数字の前に"A"という文字をつけたい）

・・・としてみても全然反映されません。
でも数式欄を見ても「239」という数字以外何も入っていないし、
もう一度「書式」で確認してみるとちゃんとなってるんですよ(;_;)

アクセスから持ってきたらこんなことになるのかなぁ？
どなたか原因と対処方法をご存知でしたらぜひご教授ください。
よろしくお願いいたします。

すいません、86ですが一応自己解決しました。
MSのサポートページで対処方法を見つけました。
数字に見えてこれは文字列だったようです。

だけど、「書式」でいくら確認したり設定しなおしたりしても
「数値」の状態だったのにぃー。
なんか納得いかない・・・。

取り急ぎ。ログ浪費すみませんでした。

ド初心者な質問ですみません。
並べ替え前
----＋---＋---＋---＋--
　1　｜A　｜1　｜ｆ　｜　
----＋---＋---＋---＋--
　2　｜B　｜3　｜ｇ　｜　
----＋---＋---＋---＋--
　3　｜C　｜5　｜ｈ　｜　
----＋---＋---＋---＋--
　4　｜D　｜7　｜ｉ　｜　
----＋---＋---＋---＋--
　5　｜E　｜9　｜ｊ　｜　

↓並べ替え
並べ替え後
----＋---＋---＋---＋--
　1　｜A　｜1　｜ｆ　｜　
----＋---＋---＋---＋--
　2　｜B　｜ 　｜　　｜　
----＋---＋---＋---＋--
　3　｜C　｜3　｜ｇ　｜　
----＋---＋---＋---＋--
　4　｜D　｜ 　｜　　｜　
----＋---＋---＋---＋--
　5　｜E　｜5　｜ｈ　｜　

上のように並べ替えるにはどうしたら良いですか？

これは並べ替えじゃなくて単に空白セルを挿入すれば良いのでは？

>>89
それを自動でやりたいのですが、できますでしょうか？初心者な質問ですみません。

>90
Excelのヘルプに『マクロを使って作業を自動化する』って項目があって、
そのなかに「マクロの記録」って部分があるからそこだけ読んでトライして。
なんかごちゃごちゃ書いてあってびびっちゃうかもしれないけど、マクロの
記録だけなら簡単だから。

>90
やりたいことは、１列目と３列目をマッチさせて、並び替えたいのかな？
それとも、データを列番号として移動させたいのかな？
いずれにしても、VBAなら余裕で出来る。
後々のこともあるので、Webで検索して勉強してみるといい。
みんながVBAを使い始めるきっかけは、そんなちょっとしたことからだと思うよ。

コマンドボタンを作ってコードにこれをコピペ。
「空白を挿入して1行下に移動させたい範囲」を選ぶ。
この例の場合は「３」と「G」が入力された範囲。
そして「キチガイ」のようにボタンを乱打するとｵｰｹｰ。

Private Sub CommandButton1_Click()

Dim retsu1 As Long
Dim retsu2 As Long
Dim gyou2 As Long
Dim gyou1 As Long

retsu1 = ActiveCell.Column
retsu2 = Selection.Columns.Count
gyou1 = Selection.Rows.Count
gyou2 = ActiveCell.Row

Range(Cells(gyou2, retsu1), Cells(gyou2, retsu1 + retsu2 - 1)).Select
Selection.Insert Shift:=xlDown
Range(Cells(gyou2 + 2, retsu1), Cells(gyou2 + 2, retsu1 + retsu2 - 1)).Select

End Sub

Excel総合相談所3があがってるのでage

>88

----＋---＋---＋---＋--
　1　｜A　｜1　｜ｆ　｜　
----＋---＋---＋---＋--
　　　　　　　　↑ここにセルを合わせて実行

Sub Test()
Dim LCnt As Long, Cnt As Long, LColum As Integer

Application.ScreenUpdating = 0

With ActiveCell
LCnt = .End(xlDown).Row - .Row
LColum = .End(xlToRight).Column - .Column + 1
.Offset(LCnt, 0).Resize(1, LColum).Activate
End With

Cnt = 1
Do While Cnt <= LCnt
Selection.Insert
ActiveCell.Offset(-1, 0).Resize(1, LColum).Activate
Cnt = Cnt + 1
Loop

End Sub

初心者です。低レベルな質問で申し訳有りません。
エクセル９７で、グラフを書く時
2種類の棒グラフと、2種類の折れ線グラフを
同じプロットエリアに書くことは出来るのでしょうか？
知り合いはＸＰのみの機能ではないかといっております。

>>96
グラフウィザードから｢ユーザー設定｣タブで
「折れ線−縦棒」でイケルかな？
それとも「2軸上の折れ線と縦棒」の方かな？
どっちも違うかも・・・

>>96
ペーストして。

>>96
「2種類の棒グラフと、2種類の折れ線グラフ」という意味がよくわからんが、
とりあえず、棒グラフか折れ線グラフのみで作ってから、グラフの系列（棒か線）を
右クリック-「グラフの種類」でグラフの種類を変更できる。
と思った。最近97使ってないんで違ったらスマソ。

数字から文字の変換について悩んでいます。
伝票に仕入れ金額を印字するのにそのままではダメというルールがあり
たとえば
　1000円→Ｃ１
　1200円→Ｂ２１
　1250円→Ａ５２１
　1252円→２５２１
というように､０の桁数をアルファベットに置き換え
それ以外は全て逆から記述しています。
これを関数などで実現できるでしょうか?

質問です。
Excelのファイルの中にある複数のワークシートの名前を
一覧として表示する方法ってありますか？

>>51-52を応用すれば普通のエクセル関数でもなんとかなりそうなきがする。
たとえば
1020なんかはc2c1となるの？
それとも
C201か？

>>100
4桁限定？

>>100
(´-`).｡oO(　つーか、そこまで言うなら　)
計算の手順（アルゴリズム）を箇条書きしてみぃ。
それくらい自分でやってくらさい。
(´-`).｡oO(　シートの関数ではチョー面倒。VBAでやろうぜ　)

>102さん
途中の０は考慮しませんので、C201になります。
>103さん
金額を表すもので、桁数は現実的には数十円（２桁）から
数百万（６桁）まであります。

>101
For INC = 1 To Worksheets.Count

Cells(INC + 1, 1).Value = ActiveWorkbook.Name
Cells(INC + 1, 2).Value = Worksheets(INC).Name

Next INC
これでＡ列にブック名、Ｂ列シート名が入る

＞９７さん
ありがとうございます！
９７さんのやり方でいけました。
おかげさまで、いい資料が作れます。
＞９８さん９９さん
お二方も回答ありがとうございました！

>105
行が長すぎると言われたので改行してるが下記の数式を
A列に２〜6桁の数値を入れてそれと同じ行に代入。
数値の列がA列でない場合は適当なシートで列の挿入などをつかって式の「A」を任意の文字に変更しる。


=IF(MOD(A3,10)*1000000=0,IF(((MOD(A3,100)-MOD(A3,10))/10)*100000=0,
IF(((MOD(A3,1000)-MOD(A3,100))/100)*10000=0,IF(((MOD(A3,10000)-
MOD(A3,1000))/1000)*100=0,IF(((MOD(A3,100000)-MOD(A3,10000))/10000)
*10=0,IF((MOD(A3,1000000)-MOD(A3,100000))/100000=0,"f","e"),"d"),"c")
,"b"),"a"),"") & MOD(A3,10)*100000+((MOD(A3,100)-MOD(A3,10))/10)
*10000+((MOD(A3,1000)-MOD(A3,100))/100)*1000+((MOD(A3,10000)-MOD
(A3,1000))/1000)*100+((MOD(A3,100000)-MOD(A3,10000))/10000)*10+(MOD
(A3,1000000)-MOD(A3,100000))/100000

>>101

http://www2.odn.ne.jp/excel/waza/macro.html#SEC10
↑どう？

しかしこれには欠点がある。

>>100
Function strFuchou(Kingaku As Long) As String
　　Dim Pos As Integer, ZeroCount As Integer
　　Dim strKingaku, strTemp As String
　　strTemp = ""
　　strKingaku = CStr(Kingaku)
　　Pos = Len(strKingaku)
　　If Right$(strKingaku, 1) = "0" Then
　　　　ZeroCount = 1
　　　　Pos = Pos - 1
　　　　Do While Mid$(strKingaku, Pos, 1) = "0"
　　　　　　ZeroCount = ZeroCount + 1
　　　　　　Pos = Pos - 1
　　　　Loop
　　　　strTemp = strTemp & Chr$(Asc("A") + ZeroCount - 1)
　　End If
　　Do While Pos > 0
　　　　strTemp = strTemp & Mid$(strKingaku, Pos, 1)
　　　　Pos = Pos - 1
　　Loop
　　strFuchou = strTemp
End Function

# Replace()使ってもよければ、もうちょっと短くできるけど。

ちゃんとした式にしようとしたら一つのセルでおさまらないので一つ目のセルに
　=MOD(A4,10)*100000+((MOD(A4,100)-MOD(A4,10))/10)*
10000+((MOD(A4,1000)-MOD(A4,100))/100)*1000+((MOD(A4,10000)-
MOD(A4,1000))/1000)*100+((MOD(A4,100000)-MOD(A4,10000))/10000)
*10+(MOD(A4,1000000)-MOD(A4,100000))/100000
　その横のセルに
　=IF(MOD(A4,10)*1000000=0,IF(((MOD(A4,100)-MOD(A4,10))/10)*
100000=0,IF(((MOD(A4,1000)-MOD(A4,100))/100)*10000=0,IF(
((MOD(A4,10000)-MOD(A4,1000))/1000)*100=0,IF(((MOD(A4,100000)
-MOD(A4,10000))/10000)*10=0,IF((MOD(A4,1000000)-MOD(A4,100000))
/100000=0,"f","e"),"d"),"c"),"b"),"a"),"")&IF((MOD(A4,1000000)-
MOD(A4,100000))/100000=0,IF(((MOD(A4,100000)-MOD(A4,10000))/
10000)*10=0,IF(((MOD(A4,10000)-MOD(A4,1000))/1000)*100=0,IF(
((MOD(A4,1000)-MOD(A4,100))/100)*1000=0,IF(((MOD(A4,100)-MOD(
A4,10))/10)*10000=0,B4/10000,B4/1000),B4/1000),B4/100),B4/10)
,B4)

これでOKかなぁ。ためしてみてくれ(ﾟДﾟ)ｺﾞﾙｧ

>108
試してみました。昔COBOLのプログラムを組んでいたのでIFのネスト
程度ならなんとかわかるけど、ここまですごいのは初めてです。
>110　はたとえば1234などの場合ですね。
勉強のために明日の”開店休業”的土曜出勤にとりくんでみます。
それと104さん、102さんのご指摘にあるよう、プロセスをばらしてみて
やってみます。

>100

後ろに 円 を付けない事。
数値を入れたセルを選択し、実行すると直接書きかえる。

1234560000 → D654321

Sub Test()
Dim buf, buf2, vCnt As Integer, cnt As Integer

　If Not IsNumeric(ActiveCell.Value) Then Exit Sub
　vCnt = Len(ActiveCell.Value)
　cnt = 0
　Do While vCnt > 0
　　 If Mid(ActiveCell.Value, vCnt, 1) = 0 Then
　　　　cnt = cnt + 1
　　 Else
　　　　Exit Do
　　 End If
　　 vCnt = vCnt - 1
　Loop

　buf = Left(ActiveCell.Value, Len(ActiveCell.Value) - cnt)
　vCnt = Len(buf)
　Do While vCnt > 0
　　 buf2 = buf2 & Mid(buf, vCnt, 1)
　　 vCnt = vCnt - 1
　Loop

　If cnt > 0 Then buf2 = Chr(cnt + 64) & buf2

　ActiveCell.Value = buf2

End Sub

>100
マクロでやったほうがいいが頭の体操と関数で組んでみた。長いよ
Ａ列に仕入れ金額を入れる
Ｂ列に=MID(A1,7,1)&MID(A1,6,1)&MID(A1,5,1)&MID(A1,4,1)&MID(A1,3,1)&MID(A1,2,1)&MID(A1,1,1)
Ｃ列に=IF(LEFT(B1,4)="0000","D",IF(LEFT(B1,3)="000","C",IF(LEFT(B1,2)="00","B",IF(LEFT(B1,1)="0","A",""))))
Ｄ列に=C1 & TEXT(VALUE(B1),"########")
Ｄ列には秘密の仕入れ暗号が入る。７桁まで対応。 後でＢ、Ｃ列は非表示にすればよい。疲れたフー
もっとスッキリの案もあると思う。関数の達人にリメイクを期待。

>>100

Function strFuchou(Kingaku As Long) As String
Dim i As Integer
Dim strTemp As String, strKingaku As String
strTemp = CStr(Kingaku)
If Len(strTemp) > 27 Then Exit Function
For i = Len(strTemp) - 1 To 1 Step -1
If Right$(strTemp, i) = String(i, "0") Then
strTemp = Left$(strTemp, Len(strTemp) - i) & Chr$(64 + i)
Exit For
End If
Next
For i = Len(strTemp) To 1 Step -1
strKingaku = strKingaku & Mid(strTemp, i, 1)
Next
strFuchou = strKingaku
End Function

セルの内容を編集するときっていちいちマウスでクリックして
入力ボックスを更にクリックしないと編集できないのが面倒だと思うんですが、
一発で入力ボックスにいけるショートカットってないですか？

>117
F2

大変多くの方からアドバイスいただきましてありがとうございました。
シート関数までが理解できた範囲なのでそちらを活用させていただき
ますが､ＶＢＡで教えていただいたものを自分のものにして理解できるよう
努力いたします。
長々と占拠してしまい申しわけありません､ほんとに助かりました。

＞エクセル相談所3の992、994さん
出来ましたありがとう。
朝のうちに郵便番号辞書がはいってるのは確認できたんだけど、
ｅｎｔｅｒ押したりスペースキー押したりしてて
出来ないって思って誠にお恥ずかしいです。
今、変換押したら出来て感動しました。すごいですね。
来週から家で内職するので、助かりました。ありがとう。

グラフを選択して右クリックしたときに、「オブジェクトの書式設定」がでるようにするにはどうすればいいのでしょうか？
複数グラフを選択した後右クリックするとメニューの中に出てくるのですが
一つのグラフを選択して右クリックしても出てこないのです。。

最近、初めてマクロ始めたんですが、マクロの記録をして、その後
そのマクロを削除しても、ファイルを開こうとすると、マクロを有効にする
か無効にするの選択画面が表示されるんですが（ちなみにその他のマクロは
記録されていないんです）この選択画面を表示させない様にするには
どうすればいいんでしょうか、初心者な質問ですが、お願いします。

>121
シフトキーを押しながら選択すると、一つのグラフでも
オブジェクトの書式設定がでてくるみたい。

>122
「そのマクロを削除しても」ってどうやってやった？
VBAエディタ上で行を削除するだけじゃダメだと思うよ。
プロジェクトエクスプローラでモジュールを選択して右クリか
ファイルメニューで「解放」ってやればいいはずだけど。

>>124
>122ですが
ツール−マクロ−マクロ名選択−削除という方法ですが

>125
その方法でもVBAエディタ上で行を削除するのと変わらないようだ。
VBAエディタ開いて124後半で書いたとおりにしてみてくれ。

>126
>122です　
ありがとうございました、解決しました。

データ→入力規則→入力値の種類”リスト”で
ドロップダウンリストから、データを選ぶように
しているのですが、このドロップダウンリストの文字を
制御できるでしょうか？もうちょっと大きくしたいんです。
コンボボックスで作れば、プロパティでフォント制御できるのですが、
上述の方法だとプロパティがないんです。
方法をご存知のかたがいらしたら教えてください。
よろしくお願いします。

厨房的な質問だったら申し訳ないのだが、
列番号のA,B,C...の所が1,2,3...になってしまったのを
元に戻す方法ご存知の方いらっしゃいますか？
OSはXPでEXCEL2002です。お願いします。

>129
ツール→オプション→全般
のなかにＲ１Ｃ１参照式にチェックが入っているはずだからそれを外せ
Ｒ１Ｃ１というのはエクセルの前のＤＯＳ時代の代表的表計算ソフト
マルチプランが採用していたやり方だ。

ＩＦ関数を使って空欄の時は空欄を示すのは
何て表記すれば良いのでしょうか？　
空欄＝空欄としたいのだが。。　

既出だったらスマン

>131
""ｼﾞｬﾈｰﾉ?

自己解決しました。　

>>131さん
それで良いみたいです、　（汗

>>106,>>109

ありがとうございます。
マクロはちょっと分からないので、これを機会に少し勉強してみます。

あるサイトでエクセルの裏技を見つけてやったのだが出来ないよ〜
誰か出来る人いるかな？

●エクセルの裏技
★フライトシミュレ−ター、、なんで？？（＾−＾；
エクセルを起動
→[f5]キーを押す
→参照先(R):のらんに　x97:l97　と入力してOKを押す（l97のｌはLの小文字）
→[TAB]キーを１回押す
→その状態で[Ctrl]と[Shift] を押しながら
　「グラフウィザード」を押す（上にある青と黄色と赤の棒があるボタン）
→操作はマウスの左右移動で旋回、上下移動で機首を上下に。
　左クリックで前へ右クリックは後へスピードが上がります。
　ＤｉｒｅｃｔＸが必要かもしれません・・・
→[Esc]で終了

今までは手作業でやってたんですが、一念発起、マクロ勉強中です。
Excel外のファイルからURLをExcelに貼り付けなければなりません。
URLをコピーしたあと、
「セル右クリック→ハイパーリンク→貼り付け→次のセルに移動」
のマクロを組みたいのですが、クリップボードの内容を貼り付ける
命令文がわからず困っています。
マクロの自動記録をすると以下のようになりました。
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"コピーしたURL"

なので、無手勝流で
ActiveSheet..Paste.Hyperlinks.Add Anchor:=Selection, Address:= _
""
と、「.Paste」を付け加え、URLを削除しましたら、実行時エラー424
オブジェクトが無効ですといわれてしまいます。う〜む、調べてるんですが
よくわかりません。どなたか助言いただけますようお願いします。

す、すみません、無手勝流編集後のコードは
ActiveSheet.Paste.Hyperlinks.Add Anchor:=Selection, Address:= _
""
です。ActiveSheetのあとのドットはひとつです。

大量のシートの同じ位置のセルのデータを抽出して
別のシートに縦に並べることはできないだろうか？
串刺し計算ならぬ、串刺し配列な感じで。
統合で合算やら平均やらはできるのに、ただデータを抜き出すだけ、
というのがどうしてもできない。
だれかお願いします。

>137-138
ActiveSheet.Paste
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=ActiveCell.Value

みたいなのはどうかな？

>140
できました。分けて命令すればよかったのですね。
で、address:= の内容はアクティヴセルに.valueと。
勉強になりました。ありがとうございました。

>>137
ハイパーリンクにしなくても「F2」-「Enter」でクリッカブルになるよ。

>>136
excel97じゃないとね。

>139

シートを1枚追加し、他のシートのシート名をA列に、他のシートのA1
の値をB列に記入

Sub test()
Dim ws As Worksheet, adws As Worksheet
Dim LRow As Long

Set adws = Worksheets.Add(Before:=Worksheets(1))
For Each ws In Worksheets
　If Not ws Is adws Then
　　With adws
　　　　　LRow = .Range("A65536").End(xlUp).Row + 1
　　　　　.Range("A" & LRow) = ws.Name
　　　　　.Range("B" & LRow) = ws.Range("A1")
　　End With
　End If
Next ws
Set adws = Nothing
End Sub

>>143さん
excel　2000では出来ませんか？

やたっ！！　まさしく求めていた物！
こいつはいい！
ほんまにほんまにマジ感謝ですぅ>144　m(_ _)mｱﾘｶﾞﾄｺﾞｾﾞｪﾏｽ

いままで手作業でやっていたのは何だったのか・・・。やっぱりマクロ勉強しよう・・。

>146

なれるとこのくらいなら、1〜2分くらいで書けるよ。ｶﾞﾝﾊﾞﾚ

基本はループと条件文

Sub aaa()

'アクティブブックの全シート
For Each a In Worksheets
　MsgBox a.Name
Next a

'開いている全ブック
For Each a In Workbooks
　MsgBox a.Name
Next a

'選択している全セル
For Each a In Selection
　MsgBox a.Address
Next a

End Sub

>>4
Sub raws3to1000()
Rows("3:1000").Select
End Sub

1000のところは、適当に。

>>7
基本的に、エクセルではデータの内容を変えずに見た目を変える場合、
表示形式を変えればいい。

80.9875のセルが、"分"が付かないで単に80.9875と表示されているなら、
分単位の数値として扱われているから、
B1に
=trunc(A1)/24/60
と入力して、B1の表示形式を
h"時間"mm"分"
とすればOK

意味は、数値として切り捨てた後、シリアル値と見なしているということ。
エクセルのシリアル値は、１日単位なので。

>>17
=SUMPRODUCT(A1:A20,B1:B20)

>>76
ツールメニューのゴールシーク

>>130さん
ありがとうございました。助かりました。
また厨房な質問するかもしれませんが、
よろしくお願いします。

申し訳ありません。エクセルで作ったグラフなのですが、
凡例で「９−８」と半角で記述したいのです。
なのに入力すると日付と勘違いしているらしく、
９月８日なんて表示してくれます。
ヘルプファイルのグラフのあたりを当たっているのですがそれらしき説明は見つからず・・・

お手数ですが、よろしければご教授ください････

>153

セルの書式設定で、表示形式を文字列にしておいて入力する。
又はアポストロフィをつけて入力する。

　' 9-8

即答ありがとうございました
上手くいきました。感謝いたします

人口ピラミッドのグラフが描きたいです。

左右に男女があって、だいたい10歳ごとにグラフを作りたいです。

どうぞご自由にお描きください。

130>>ありがとうございました！
長年の疑問が解決いたしました。感謝感激！！

Sheet1のデータをSheet2へリンクさせています。
（数値、文字を＝Sheet1〜で）
そこでSheet1を開かずにSheet2を開いた時に、Sheet1のデータが
Sheet2でリンクされて表示されるのですが
リンクのセル合計が40000くらいを超えると「メモリが足りません」と出ます。
ただ単にメモリが足りないのでしょうか（当方メモリ320MB）
それとも何か大量にリンクさせる方法があるのでしょうか？

>159

> そこでSheet1を開かずにSheet2を開いた時に、Sheet1のデータが
> Sheet2でリンクされて表示されるのですが

Book1とBook2？

> リンクのセル合計が40000くらいを超えると「メモリが足りません」と出ます。
> ただ単にメモリが足りないのでしょうか（当方メモリ320MB）
> それとも何か大量にリンクさせる方法があるのでしょうか？

使い方が無謀だと思います。
40000ものセルをリンクする必要性が理解出来ませんが？

>>160
すみません。Book1とBook2でした。

>使い方が無謀だと思います。
>40000ものセルをリンクする必要性が理解出来ませんが？
そうですよね。仕事で商品データを入力して使っていたので
膨大な量になってしまったのですが、やはり無謀な作業量なのですね。
何か他の方法を考えてみます。有難うございました。

>161

リンクが必要なのは、普通、リンク元の値が変更される可能性がある時でしょ？
確定数値でなく、見通し数値であるような場合とか。

40000件のデータが、絶えず更新される可能性が無いなら、必要なリンク以外は
リンクを切るべきだと思う。

>>162
ごもっともです。更新しないデータが沢山あります。
それらを確定データにして、リンクしないようにしてみます。どうも有難う。

>156
100％積み上げ横棒グラフを２つ並べれば？
元データの見せ方に工夫がいりそうだけど。

教えてください。
エクセル２０００でレジスターマークを印刷するとなにか四角いものが
印刷されます。プレビューではちゃんとしたマークなのですが。
そのシートをエクセル９７に送って印刷するときちんと出てくるのですが
バージョンの問題なのでしょうか。

>>165　(´−`).｡oO(そこだけフォントを変えてみそ。)

>>156
男性のデータをマイナスにして、
-10　10
-35　25
・
・
・
横棒積み上げグラフ一発でOK。

すみません。
文書を開くと、常にその文書とは別にbook1が同時に別ウィンドウで開かれてしまいます。
再インストールしてもだめです。設定等も一通り見たのですが、どうしてもわかりません。
おわかりになる方、教えてください。

>>168
（；´д｀）.｡oO（　http://www4.justnet.ne.jp/~evu/oshie327.htm　）

マクロをぜんぶ削除して開いても「マクロを有効にしますか」ウィンドウが
出てしまいます。もうマクロは必要ないし、操作系のマクロで表示にも
関係ないので出ないようにしたいのですが、どうすればいいのでしょう。。

>170
自分も同じ現象でなやんでます、
どうすればいいのでしょう。

>170
>122から数レス読んでみて。

>172
ガイシュツだったとは、ほんと申しわけないっす。。。
>>124でできました。ありがとうございました。

初心者です。どうか教えて下さい！
オートフィルタは行単位に出来ないのでしょうか？

初めて質問します。
AデータとBデータがあって、
そのなかでAとBに共通するものだけを抽出したいのですが。
どうすればできるのでしょうか？
よろしくお願いします。

>175

=MATCH

>174

ﾅﾆｶﾞｲｲﾀｲﾉｶ ｻﾊﾟｰﾘﾜｶﾘﾏｾﾝ

>>174
別なシートに行列を入れ替えて貼り付けてからやるのはダメ？

質問です。
Select　Caseで比較演算子を使って〜以上〜未満という場合をうまく
表現できず困っています。

たとえば1/3以上で1/2未満という場合ですが
Case Is >=1/3 And Is < 0.5
Case Is (　>=1/3 And < 0.5　)
というふうにしてみましたが駄目でした。

あらかじめ変数を宣言して1/3未満、1/3以上1/2未満、1/2以上1未満と
いうふうに分類して、それからSelect　Caseを使うしかないのでしょうか？

179です。それなりに解決しました。
VBAなら結構すっきり見えるから素直にIfを使った方がよさそうですね。
お騒がせしました。

フォームのチェックボックスで困っています。

ワークシートのA1セルにチェックボックスをつくり、このチェックボックスと
A1セルとをリンクさせました。これをA2セルにコピーしたらA2セルとリンクし
てくれるかと思いきや、A2セルにコピーしたチェックボックスのリンクするセ
ルは、元のA1セルなのです。どうやってコピーしたら、リンクするセルも自動
的に変化してくれるのでしょうか？ご存知の方がいましたら教えてください。

ちなみに、リンクするセルの絶対参照(=$A$1)をはずして(=A1)でもやってみた
のですが、同じ結果でした。
よろしくお願いします。

次のようなステートメントを書いてて使ってたんだけどデータ件数が0件と
表示されて使えなくなりました(データはあるのに)。
どこに問題があるのでしょうか？

Set fs = Application.FileSearch
With fs
.LookIn = "C:\data"
.Filename = "*"
If .Execute > 0 Then
MsgBox .FoundFiles.Count & " 個のファイルが見つかりました。"
<<処理>>
Else
MsgBox "ファイルは見つかりませんでした。"
End If
End With

Excel2000 で、ワークシート関数の sinh() が、
ゼロの付近で正しい値を返しません(例 : sinh(1e-17) がゼロになってしまう)。

自分で近似式を書くしかないのでしょうか？

>>182
コードをそのままコピペして実行したら、
Excelファイルだけ数えて数字出してくれた。
４個見つかったって。

へー、こんなこともできるんだー。←役立たず

わかった。
.Filename = "*.*"
にしたら、Excel以外のも合わせて数えてくれたよ！

>184
データはUNIXで作った拡張子無しのテキストデータなんです。
で、こないだまでこのコードで動いてたんですが配布した時に署名が
入ってなくて使えないって話だったから設定をいじってるうちに動か
なくなったんです。
未だに署名の仕方がわからないんだけど・・・
署名みたいのが入って使いにくくなったぞ、ＭＳ

>182

fs.NewSearch

グラフに関する質問です。
excel2000で折れ線グラフを90度回転させたいのですが可能でしょうか？
縦軸に時系列、横軸に数量を配置したいのです。
ちなみに数量はマイナスもあります。
今はいちいちjpgに変換してから回転させているのですが他に方法はあるでしょうか？

良スレに今日も感謝。

ＦＡＱでしたら申し訳ありませんが、質問です。
Execl２０００で、ファイルの最終保存日時をワークシート内に表示して、自動的に更新させたい
のですが、こうした機能はないのでしょうか？　Wordでは、SAVE DATEフィールドでできるので
すが、何か方法がありましたら、ご教示いただけると幸甚です。　

>189
回答じゃなくて悪いけど。これできたら便利だね。
漏れはいつも「Ctrl+:」してから保存してます。
他人がファイルいじるとやってくんないからちょっと鬱。

>>189
=now()か=today()としておいて、
計算方法を手動にして、保存前に再計算にしておくとできる。

ただし、ブック内のすべての計算が手動になってしまうけど。

>181

Sub Test()
Dim ch1 As CheckBox, ch2 As Object, i As Long

　ActiveCell.Activate

　For i = 1 To 5
　　With Range("B" & i)
　　　.Activate
　　　Set ch1 = ActiveSheet.CheckBoxes. _
　　　　　Add(.Left, .Top, .Width, Height)
　　　ch1.LinkedCell = Range("A" & i).Address(0, 0)
　　　Range("A" & i) = "TRUE"
　　End With
　Next i

　For i = 1 To 5
　　With Range("D" & i)
　　　Set ch2 = ActiveSheet.OLEObjects. _
　　　　　Add(ClassType:="Forms.CheckBox.1", _
　　　　　Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height)
　　　ch2.LinkedCell = Range("C" & i).Address(0, 0)
　　　Range("C" & i) = "TRUE"
　　End With
　Next i

End Sub

>>188
散布図としてグラフを作成し、
グラフを選択して、
=SERIES(Sheet1!$B$1,Sheet1!$A$2:$A$100,Sheet1!$B$2:$B$100,1)
のようになっているののAとBを入れ換える。

セルの塗りつぶしについて。

セルに入力された値が正の数か０か負の数かで、そのセルの
色を自動的に変える方法があったら教えて下さい。

正数だったら、青。
ゼロだったら、白のまま。
負数だったら、赤。

みたいな感じです。

条件付書式

Windows板の方でExcelについての質問があったんで、
こっち誘導するから分かる方よろしく。

くだらない質問〜スレより、
813 名前：卒研 ：02/02/16 11:03
この質問がこのスレでいいのかわかりませんが質問します。卒研でエクセル９７を使っているのですがどうしても分からないところがあります。近似曲線の使い方です。
例えば、０，０，３０，５０，６０，１００，１００，１００，という散布図を作って近似曲線を作ろうとすると、山形の２次曲線になってしまうのです。私が作りたいのは下のようなグラフなんです。
　このグラフはエクセルから作れますか？もし作れない場合はこのグラフの作れるソフトも教えてください。
　　　　　　＿＿＿＿＿＿
　　　　　／
　 　　　/
　　　　/
　　　 /
　　　/
＿＿／

>>196
この図が正しいなら、
別に近似曲線じゃなくて単に折れ線グラフで良いんじゃないの。

大体散布図って言うのはX・Yと必要だろ。

>197
いえ、折れ線は無理なんです。
０，０，３０，５０，４０，５０，８０，１００，１００
みたいなデータの時とか上のグラフのようにはいかないので、近似じゃないとダメなんです。

>>199
198の発言について理解しているか？
Ｘ　０，０，30，50，40，50，80，90，100
Ｙ　１，２，３，４，５，６，７，８，９　
でよろしいか？
いいとして、線形近似（すなわち一次直線）を選ぶ。それが君の望みに最も近い。
ただし勿論最初と最後の0,0や100,100には、君の希望では対応できない。
グラフが寝てる部分はデータ系列から外さないと…
ｎ次関数としてグラフを描く訳だからね。
エクセル以外の作れるソフトは知りません。

>>199
もしかして散布図の各点が結べることを知らないのかな？

>201
データ系列が必ず増加（あるいは減少）するとは限らないと思われ
たまには乱れるのだが、ギザギザは困ると

グラフィックな面では、全て思いのままを出来合いで！は難しひ。

【不幸のレス】
　　 このレスを見た人間は七日以内に死にます。

　　　　　　　※あなたに訪れる死を回避する方法が一つだけあります。
　　　　　それはこのコピペを一時間以内に７つ、別のスレに貼り付ける事です。

>>199
200、201に同感。
散布図の上に近似曲線をオートシェイプで手書きしろ。

200、202に同感。　スマソ

>>196

誘導ご苦労さんです。
Windows板のスレは↓だよね。

くだらない質問この指と〜まれ！
http://pc.2ch.net/test/read.cgi/win/1013016698/813-820


しっかし「卒研」君は、いろんな板知ってるな〜

モーグ　ビギナーズ　Ｑ＆Ａ掲示板（Excel 掲示板）
http://www.mougb.net/cgi-bin/mdboard.cgi?exopr+ML2002020074
Excelファンクラブ　Ｑ＆Ａラウンジ Excelグラフ
http://cgi.fuji.ne.jp/~fj2094/cgi-bin3/wwwlng.cgi?print+200202/02020017.txt
Excel Q&Aサロン(一般操作)
http://www2.yi-web.com/~Excel/exgeneral/excel.cgi?mode=all&namber=2678&rev=0

これ以外にも質問した板あるのかい？

まあどうやるにしても近似曲線の当てはめは、
理論的な裏づけが無きゃダメだよ。
ただつなげればイイってもんじゃない。

>>183
sinh(x)は、x<<1とx>>1で振る舞いがかなり違うし、
その両方を使うような用途はあまりないから、
目的に合わせて自分でやるしかないでしょう。

>>193
解答ありがとうございます。
しかし、うちのエクセル君はデータ範囲が複雑すぎるため、表示できません。
と言っております。
自分が散布図（初めて聞く言葉だ）に関して無知だからかもしれませんが・・・・

>=SERIES(Sheet1!$B$1,Sheet1!$A$2:$A$100,Sheet1!$B$2:$B$100,1)
>のようになっているののAとBを入れ換える。

AとBを入れ替えると言うことはA列の1月、2月・・・とB列の数量を選択してグラフ化するということですよね？

卒研くんは、いわゆるＳ字カーブを描きたいのだろうが、
>>207が言うように、どの種類のＳ字カーブを書きたいのかがわかれば
自然と答えが出るはず。

今出ていたsinh(x)の逆関数などもそのひとつ。

>>209
たとえば、
日付 データ1 データ2
2002/2/16 1 5
2002/2/17 2 6
2002/2/18 3 7
2002/2/19 4 8
2002/2/20 5 9
2002/2/21 -5 10
2002/2/22 -4 9
2002/2/23 -3 8
2002/2/24 -2 7
2002/2/25 -1 6
2002/2/26 0 5
というシートがあるときに、このA1:C12を選択して散布図を作ると、
へ
ﾍﾚ
みたいなのが出来る（折れ線グラフと同じ形状）。

そこで、ﾍﾚの部分を選択すると
=SERIES(Sheet1!$B$1,Sheet1!$A$2:$A$12,Sheet1!$B$2:$B$12,1)
となっているが、この第1項は見出しなのでそのままにして、第2項と第3項とを入れ換えて
=SERIES(Sheet1!$B$1,Sheet1!$B$2:$B$12,Sheet1!$A$2:$A$12,1)
とする。

同様に、へを選択し、（選択しにくいが、カーソルキーなどを使って）
=SERIES(Sheet1!$C$1,Sheet1!$A$2:$A$12,Sheet1!$C$2:$C$12,2)
を
=SERIES(Sheet1!$C$1,Sheet1!$C$2:$C$12,Sheet1!$A$2:$A$12,2)
にすれば、
И＞
のようになっている。

>>192
とてもありがとうございました。
迷惑ついでに質問しますが、選択したセル範囲にガバっと作るにはどうしたよいのでしょう？

>212

どっちのチェックボックスをよ？

>>213
ごみん、フォームのほう。上のほう。

先ほどからマクロを使ったブックが全てひらけなくなってしまいました。
（マクロ無しのは開けます。）
マクロを有効にするか、無効にするかをきいてくる
ボタンまでは進めるけどどちらを選択してもそこで画面が止まってしまいます。
最終更新が昨日のファイルでもこうなってしまいます。
自分で組んだマクロなのでウィルスはないと思います。

再起動や、エクセルの再インストールまでしても改善されませんでした。
なにかよい解決方法はありませんでしょうか。

>214

人に頼ってばかりではダメだぞ。
向上心をもて。

Sub Test1()
Dim r As Range, ch1 As CheckBox

　For Each r In Selection
　　With r
　　　.Activate
　　　Set ch1 = ActiveSheet.CheckBoxes. _
　　　　　Add(.Left, .Top, .Width, Height)
　　　ch1.LinkedCell = r.Address(0, 0)
　　End With
　Next r

End Sub

>>216
ありがとう！つきあって！
こんなことができるとわおとといしったばかりなの
べんきょします

>215

Shift を押しながら マクロ有効で開いてもダメ？

shift押しながらでも駄目でした。
その後試行錯誤したのですが、マクロの記述量が少ないブックは
すごく長い起動時間の後に開きました。
記述量の多いブックは有効無効選択後に応答無しになってしまいます。
どのくらいの行かは忘れましたが合計200行以上あったと思います。
ブック自体のサイズも1.3M、2.3Mと割と大き目です。
マクロ入りで開けるブックのサイズは190KBです。

このような現象になったのは午後8時ごろなのですが
それまでの2時間ほどは何の異常もありませんでした。
また普通に操作できていた今日の午前にLZHにして保存した
マクロ入りブックも開かなくなっているので
ファイル自体が急に壊れてしまったわけではないと思います。

osはwin98なのですが、これから再インストールしたほうがいいのかな。
今まで集めたエロ動画を失うのが無念でならないのでできればこの手段は選びたくないです。
もしwin再インストール後もブックが開かないと、エロもマクロも失ってしまいます。
この3種のマクロファイルは結構重要なので真剣に悩んでます。

いま試してみたのですが
新しく作ったブックにマクロを記述して保存したものも
再度開く事が困難になってます。
つまり原因はマクロを使用すること自体にあるものと考えられます。
一体何故こんなことになってしまったのでしょうか。
なにか対処法はないものでしょうか。

>>221
http://www.microsoft.com/JAPAN/support/kb/articles/JP211/4/81.asp
この辺りのスイッチどれか実行してみたらどう？

>>211
やっとわかりました〜
丁寧な解説ありがとうございます。
うちの事務所ではこのグラフを作る作業は何年も手書きでやっていたようです。
年度末には300枚ぐらい書くことになってました(^^;)
エクセル歴一週間の僕がこの成果を持っていったら一週間は天狗になっていられますよ〜♪
まだ、わからないこともありますがあとは勉強して来ます。
お世話様でした。

>215
excelのバージョンは？
2002（office-XP)なら開けなくなったファイルもＭＳのサーバーにつないで開けるようになる例がたくさんあるぞ。
大体アクティブ何たらが、悪さしているらしいが

解答してくださった方ありがとうございました。

エクセルのシートからリンクでワードのファイルを開くときに、エクセルを最小化させない方法は無いでしょうか？
質問は既出だと思うのですが、 http://pc.2ch.net/test/read.cgi/bsoft/986283001/375
前後のやり取りを見ていても、今ひとつ飲み込めません。シートにNOW()など埋め込んでもだめみたいです。
ご教授よろしくお願いします。

環境は、windows2000 office2000です

普通の折れ線グラフで　右がわに　y座標を増やすにはどうすればいいんですか？

Cドライブのフォーマット→win98の再インストール→オフィスのインストール
を行った結果解決いたしました。
ファイルではなくエクセル側に問題があったようです。
お騒がせしてすみませんでした。

追記
エロ動画の件ですがDドライブに移しておき、
Cドライブのみをフォーマットしたので無事でした。
二兎を追って二兎とも得られました。

>229
よかったね。最近質問しっぱなしで消えるﾔｼが多いなか、
ちゃんと報告してくれるとこっちも一件落着って感じでハッピーです。
卒研くんよ、どう解決したのか教えてほしいな。
自己解決した人もある程度説明してくれると資料価値が生まれて
いいと思うのです。

187さん

fs.NewSearchも試してみたんですが駄目でした。
スレが進んでて気がつかなかった、遅レスすみません。

>231

そもそも、提示した内容はそのままじゃないでしょ？
他の部分に問題があるって事はないの？

＞他の部分に問題があるって事はないの？
ソースを見ていただければわかるかと思いますが。
bookをエントリー.xlsで作って、以下のcodeを書いているだけです。

Sub Make_Report()
Dim source As Object
Dim target As Object

Set target = Workbooks("エントリー.xls").Sheets("Sheet1").Range("A1")

MsgBox "エントリーデータをc:\dataに置いて下さい。"
Set fs = Application.FileSearch
With fs
.LookIn = "C:\data"
.Filename = "*"
If .Execute > 0 Then
MsgBox .FoundFiles.Count & " 個のファイルが見つかりました。"
For i = 1 To .FoundFiles.Count
fname = Right(.FoundFiles(i), Len(.FoundFiles(i)) - 8)
Workbooks.OpenText Filename:=.FoundFiles(i), Origin:=932, StartRow:=1, _
DataType:=xlDelimited, TextQualifier:=xlNone, ConsecutiveDelimiter:=False _
, Tab:=True, Semicolon:=False, Comma:=False, Space:=False, Other:= _
True, OtherChar:=":", FieldInfo:=Array(Array(1, 2), Array(2, 2), Array(3, 2)), _
TrailingMinusNumbers:=True
Range("B13").Value = Range("B13").Value & ":" & Range("C13").Value
Range("C13").ClearContents
If i = 1 Then
Set source = Workbooks(fname).Sheets(fname).Range("A1:A13")
source.Copy
target.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Set target = Workbooks("エントリー.xls").Sheets("Sheet1").Range("K1")
target = "DO ID"
Set target = Workbooks("エントリー.xls").Sheets("Sheet1").Range("L1")
target = "ダブルスパートナー"
End If
Set source = Workbooks(fname).Sheets(fname).Range("B1:B13")
source.Copy
Set target = Workbooks("エントリー.xls").Sheets("Sheet1").Cells(i + 1, 1)
target.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Workbooks(fname).Close (False)
Next i
Else
MsgBox "ファイルは見つかりませんでした。"
End If
End With
Columns("A:M").EntireColumn.AutoFit
End Sub

テストデータは以下のフォーマット
PASSWORD:qwSfMtWHNsgPw
ＩＤ:ahahaha
名前:ＨＰ管理人
読み:テスト
性別:女
EMAIL:[email protected]
郵便番号:5430083
住所１:
住所２:
TEL:
備考１:
備考２:
登録日:2002/2/10(日)18:12

　バージョン2000新機能、メニューの項目を初めは一部分だけ表示して、しばらくポインティング
してると、残りの項目も表示するようになってるが、あれを無効にして、初めから全部の項目を表示
するように設定するにはどうすればいいのか。

>233

* を *.* で動いたが？
少しだけ改良。

Sub Make_Report1()
Dim fs, fName As String
Dim tBook As Workbook, mySheet As Worksheet

　Application.ScreenUpdating = 0
　Set mySheet = ThisWorkbook.Worksheets("Sheet1")

　Set fs = Application.FileSearch
　fs.NewSearch
　fs.LookIn = "C:\data"
　fs.FileName = "*.*"
　If fs.Execute > 0 Then
　　 For i = 1 To fs.FoundFiles.Count
　　　 fName = Dir(fs.FoundFiles(i))
　　　 Workbooks.OpenText FileName:=fs.FoundFiles(i), _
　　　 Other:= True, OtherChar:=":", FieldInfo:= _
　　　 Array(Array(1, 2), Array(2, 2), Array(3, 2))
　　　 Set tBook = Workbooks(fName)
　　　 With tBook.ActiveSheet
　　　　.Range("B13") = .Range("B13") & ":" & .Range("C13")
　　　　If i = 1 Then
　　　　　 .Range("A1:A13").Copy
　　　　　 mySheet.Range("A1").PasteSpecial _
　　　　　　　　　 Paste:=xlPasteAll, Transpose:=True
　　　　　 mySheet.Range("K1") = "DO ID"
　　　　　 mySheet.Range("L1") = "ダブルスパートナー"
　　　　End If
　　　　.Range("B1:B13").Copy
　　　　mySheet.Cells(i + 1, 1).PasteSpecial _
　　　　　　　　Paste:=xlPasteAll, Transpose:=True
　　　　tBook.Close (False)
　　　 End With
　　Next i
　Else
　　MsgBox "エントリーデータが c:\data にある事を" & Chr(13) & _
　　　　　 "確認して再実行して下さい。", vbOKOnly + vbExclamation, _
　　　　　 "エントリーデータが見つかりません"
　End If
　　mySheet.Columns("A:M").EntireColumn.AutoFit
　　Set mySheet = Nothing: Set tBook = Nothing: Set fs = Nothing
End Sub

>>235
ツール-ユーザー設定-のどっかのタブで設定できるよ。

Excel2000 SR1＆Win2000を使用しています。
「データ」→「外部データの取り込み」→「データベースクエリ」で
Accessのデータベースを取り込んだのですが、
「どのファイルのどのテーブルを取り込んだのか」が参照できなくて不便です。

Accessのリンクテーブルならﾃﾞｰﾀﾍﾞｰｽﾕｰﾃｨﾘﾃｨのﾘﾝｸﾃｰﾌﾞﾙﾏﾈｰｼﾞｬなどで
確認できるのですが・・・
Excelで同様のことは出来ないでしょうか？

シート内の全データをならびかえるマクロをつくりました。
この並び替えをおこなった後、一番下の行を表示するには
どのようなコードを書けばいいのでしょうか。
一番下の行は「aaaa」という変数ですでに取得してます。
.range("a" & aaaa).select
または
.range("a" & aaaa).activate
で表示できるかと思ったのですが無理でした。

すんません、例題集に乗ってました。
scrollrowで解決。

散布図でグラフを描いたのですが
プロット　以外の点の座標をしる方法はありますか？

大変困ってます。
たとえば、「３３３」を「３３．３」と表示させるには
セルの書式設定をどうすればいいんでしょうか？
わかりにくい日本語ですいませんが、ご教示ください。

>>242
10で割る、じゃないんだよね。
自分でもわかってると思うけどちゃんと整理してから書きこんでよ。

ワークシートのLOG関数は常用対数なのに、
プロシージャのLog関数は自然対数ってことになかなか気づかなくてはまった。

ヘルプにかいてあるのにね。

>>243
おっしゃるとおりです・・。
「３３３」と入力して、「３３．３」と
表示になるようにしたいんです。
関数を使わずに何とか出来ないもんでしょうか？
（グラフ内の数値をそのように表示したいので）

>>241　「プロット　以外の点の座標をしる方法」　意味が判らん。要説明。
>>242　ユーザ書式に『#"."#』ってこと？　

>>228　遅レスだけど。
Ｙ軸を右側（第二軸という)にしたいデータ系列の中の、グラフ中の任意の一点に
マウスを合わせて右クリック。（これでそのデータ系列がアクティブになるはず。）
出てきたメニューから「データ系列の書式設定｣−「軸｣−「第二軸｣の順で選択。
これで第ニ軸が出来るから、その後で第二軸をアクティブにして任意の設定をする。

>>245
隣のセルを=A1/10とかにしておいて、
グラフにはそちらのセルを利用すれば良いのでは・・・
いまいちかな。

187さん

どうやってもexecuteの結果が0件を返します。
そちらでも動作確認を取られたのでしょうし見た限りcodeに問題無いので
環境ではないかと考えるのですが・・・
windowsXP(pro)+officeXP(developer)、セキュリティ低＋デジタル署名無し
あと考えられるのは何だろう。

>>248

c:\data　にファイルはあるよね？
フォルダを変えてもダメ？

WinXPはまったく知らんけど、NT系なのだから、ログインユーザーによっては
特定フォルダにアクセス出来ないとかないの？アドミニで試すとか。。。

後はわからんねぇ。

例えば　x軸0,1,2,3,4,5でy軸10,23,33,45,66,70とし、
散布図で線で結んだ時 xの値が2.5の時のy座標の値を知ることは
無理ですか？　

>>242
00"."0

いかがでござるか？

>>242
訂正　##"."#
のがいいかな

>>242
なんども悪いんだけどもこれが理想的か？

#0"."0

不都合があったらあとは適当になおしてよ

>>250
単回帰で計算すれば。

すいません　単回帰ってどのようにすれば？

>>250
散布図では、単調増加になるとは限らない。
グラフが＜やＺやΣやξになる可能性もあり、
xを決めてもyは決まらない。

第１案
単調増加になるような近似曲線を求め、
その数式にxを代入する。

第２案
元データが単調増加であるということが予めわかっているのなら、
求めるxを挟む２点を求め、その間を補間する。

>>256で言っている単調増加とは、
yが増れば必ずxが増える、ということです。

というか、単調増加である必要無いですね。
酔っていて混乱してｽﾏｿ

ひとつのxに対して対応するyが必ずひとつであればよい。

みなさん>>238の質問も忘れないでね。

XIRRのような、範囲を要求する引数が複数ある関数で、飛び飛びの範囲を指定するこ
とは可能でしょうか。例えば、
=XIRR(A1:D1,A2:D2)
とするようなところを、
=XIRR((A1,C1:D1),(A2,C2:D2))
という感じにしたいのですが、当然エラーになります。[Ctrl]+[Shift]+[Enter]で、
配列変数にしてもだめでした。
引数が定数の場合は、配列定数でできるのに、変数になるとできないなんて、方手落
ちのような気がする。

Excel97の時はショートカットーキーを割り当て、ctrl ＋ Alt ＋ ３で起動するようにしていたのですが、
2000になってからショートカットのプロパティを開けてもｼｮｰﾄｶｯﾄｷｰ入力欄がグレーアウトして
入力できなくなりました。
WIN98SE・WIN NTともに駄目なのですがなぜかWin2000だけは入力可能です。
Win98やWinNTでもショートカットキーで起動したいのですが、良い手はないでしょうか？

めちゃめちゃ困ってるんで聞きます。
今、エクセルを開こうとするとなぜかＱ２の利用のあれが出てしまいます。
で、ケーブル回線なんで繋がる危険は無いのですが、エクセル自体ができないのでかなり困っています。一応今の状態のまとめ。
・エクセルを起動と同時にＱ２に入る前のあれが出てくる。
・ダイヤルチェッカーは既に起動済み
・エクセルのアイコンがダイヤルチェッカーの虫眼鏡が無いver
・セーフモードでは起動済み
ってとこです。どなたか改善法を教えて下さい。

>>255
知らないなら使っちゃいけません。
ただ示されたデータ系列みると単回帰でいけそうな気はする。

>241=250
グラフのデータ系列右クリックで散布図上に近似曲線を表示。
オプションでグラフに数式を表示させれば
各種の近似式が表示されるから任意のＸの時のｙの値が求められる。
250の例から考えると
線形近似　ｙ＝12.6x＋9.6667
多項式近似（３次）ｙ＝-0.0179x2＋12.689x+9.6071
指数近似　ｙ＝13.288e0.3772x

関数で切片やら傾き求めることも可能だが？

みなさん　いろいろありがとうございました
曲線で　だいたいの値を検討します

A1:E1の範囲に入力された値をF1を参照する事によってセルの色を変える様
にしたいのですが・・・この場合、条件付き書式を使えばいいのですが、す
でにそのセルの範囲で条件付き書式の設定を３つ使っている為、これ以上条
件付き書式は使えません。条件付き書式の設定を３つ以上設定できる方法、
または条件付き書式を使わない方法がありましたら教えてください。

遅レスですいません。
お答えいただいた皆さんのおかげで「３３３」→「３３．３」
の表示はうまくいったんですが、欲が出てきまして、
グラフ上で「３３３」を「３３．３％」と表示させたくなりました。
ご教示いただいたのでは、うまくいかないようなんですが、
再度教えてもらえないでしょうか？今のままでも充分なんですが
よろしくお願いいたします。

教えてもらった方へのお礼が抜けてました。
改めてありがとうございました。

>245

#0"."0"%"
じゃダメなのかな？

Aというファイルと、それを修正したBというファイルがあるのですが、
どこを修正したか比較検索するにはどうすればいいのでしょうか。

連続でセルをコピーすると、「クリップボード」とかいうツールバーが
偉そうにシートのど真ん中に出てきて、新（ﾁﾝ?）機能を
堪能してくれと言わんばかりに現れます。
いいかげん邪魔くさいので、この機能をごっそり抹消したいのですが
いい方法はあるでしょうか？

>>270　(；´д｀).｡oO(テキスト化して diff 掛ける、ぐらいしか思い浮かばないヨ)

>>270
変更履歴の応用
修正前のAで
【ツール】メニュー→【ブックの共有】で、「複数の〜〜〜」に
チェックを入れて保存

Bを全選択してコピー→Aに貼り付け
【ツール】メニュー→【変更履歴の確認】

ただし、書式の確認は不可であるため注意。
また、最初は失敗する可能性が大で取り返しがつかなくなるかも
しれないのでバックアップは必要です。

>>273
変更履歴の表示で「新しいシートに変更箇所一覧の作成」を
したほうがわかりやすかも

>>270
ExDiff
ttp://www3.plala.or.jp/kazuasa/exdiff.html

>>271
コピーしても3回連続で無視して閉じれば出てこなくなります。

>>266

マクロ

お世話になります。

　エクセル表計算の他シート参照に関しての質問です。
　決まった間隔での参照作業を簡単にしたいのですが
　作業シートのセルで別ファイルＡのセルから数値を参照した時、もう一つのセルに同じ別ファイルＡの一定数離れたセルから参照をさせたい時はどうすればいいのでしょう。

ＡファイルのＡ１からOFFSETして常に３っつ下のセルを参照させたいのですが・・・
　方法がありましたら教えてください。よろしくお願いします。

>>266
ユーザー定義書式
操作方法はヘルプを参照

>>278

マルチポストはダメだめだよ、やかく〜。

うーむ。場所違えばいーかとおもたよー。失礼＞280

>272さん　>>273-274さん　>>275さん
ありがとうございました。２７３の方法でできました。
２７５のツールも後で使ってみます。

275のツールを使ってみました。
全てのワークシートを一括して比較し、差異に色がついたり
差分についての表ができたりと、かなり便利です。
ありがとうございました。

VLOOKUPで検索した値に一致する別の値を、
他のセルに表示させたいのですが、どうすればいいですか。

例えば「2635-7AJ」と検索されたら、別のセルに「380ED」、「IBM」
と表示させたいのです。

>>277
マクロですか・・マクロはほとんど知識がない為にどうしたらいいのかわかりません。

>>279
ユーザー定義書式・・ヘルプを見ながら考えてみます。

わからなくなったらもう１度お尋ねするかもしれません。
有難う御座いました。

>>284
Vlookupをさらに使用。第3引数の列番号を有効に使いましょう。

A列に
0,0,1,1,1,0,0,0,-1,-1…
というように1,0､-1のいずれかが入っています。
そしてB列に
　=IF(A3=1,B2+1,IF(A3=-1,0,B2))
C列に
　=IF(B3=B2,0,IF(B3=1,1,-1))
というワークシート関数をいれてます。
これをしたまでオートフィルしますと、
A列において、「１」がひとつ以上出てきた場合、最初の「１」の行のC列に
「１」をかえし、
その後初めてA列に「−１」が出てきたときにC列に「-1」が返されます。
それ以外の場合は同じくC列に「０」が返されます。
このB,C列で行われている作業をユーザー定義関数にしたいのですが

（つづく）

エクセルで入力したデータを、ＯＣＲ用紙に印刷しようとしているのですが、
印刷位置の調整がなかなか上手くいきません。
途中に別のソフトを噛ませて印刷位置の設定等を上手く行えませんでしょうか。

Function sing() As Integer
Dim row As Integer '行
Dim col As Integer '列
row = ActiveCell.row
col = ActiveCell.Column

If Cells(row, col - 1).Value = 1 Then
Cells(row, col).Value = Cells(row - 1, col).Value + 1
ElseIf Cells(row, col - 1).Value <> 1 Then
If Cells(row, col - 1).Value = -1 Then
Cells(row, col).Value = 0
ElseIf Cells(row, col - 1).Value <> -1 Then
Cells(row, col).Value = Cells(row - 1, col).Value
End If
End If
End Function

このようなコードを書いたところ失敗におわってしまいました。
if文以下は間違ってないと思います。
予想ではユーザー定義関数が放り込まれているセルアドレスの取得法が
おかしいのだとおもいますが、どのようにすればいいのかわかりません。
よい解決法がありましたら教えてください。

すいません、質問撤回します。
どうやらひとつのユーザー定義関数では無理っぽいです。

すみません。ちょっとお聞きします。

Excel(に限らずMS系のOfficeツール全般なんですけど)
の直線オブジェクトに目盛をつけたいんですけど、そん
な事って出来ますでしょうか？

なんか変わりになるオブジェクトでも良いです。

これを
---------------------------------------------

こんな風にしたい
---+---+---+---+---+---+---+---+---+---+---+-

>>286
どうもありがとうございます。
検索値の、第3引数の列番号の具体的な記述が分からないのです。
変化する場合、何を入力したらいいのかが…。

お〜い！　誰か>>238に答えてくれよ！

>>261の質問にも誰か答えてやってくれ！

Ａ県Ｂ市Ｃ区ＤＥＦマンションＧ１０１号室
Ａ県Ｂ市Ｃ区ＤＥＦＧマンション蒲田２０２
：
：
：
これを分解するＶＢＡマクロ(エクセル)を作ったのですか、区以降をどうすればよいか教えて下さい。

>>295

どうにも出来ません。
固定長でもなく、規則性のないデータを区切れるわけないでしょ。

>>291

｜ を1つ作って選択し、Ctrlを押しながらドラック&ドロップして、何個も複写

オブジェクトの選択を押し、周囲をドラックして全て選択

図形の調整−配置・整列で「上揃え」と「左右に整列」

―　を作って上に置く

オブジェクトの選択を押し、周囲をドラックして全て選択

グループ化

>>291
表じゃだめでしょうか？

>>292
参照表のサンプルを教えてください。

>295
意図がよくわからん。

これは可能でしょうか？

チェックボックスオブジェクトの形状は、変えられますか？
丸とか、三角とか・・・

お願いします。

>>287

何いってるかｻﾊﾟｰﾘ解からん。
=IF(A3=1,B2+1,IF(A3=-1,0,B2)) はB列のどのセルにいれる？B1か？

A列のデータを元にどんな結果を得たい訳？

引数も与えない関数書いて、無理だって言い切ってるけど多分出来るぞ。
勉強しな。

>>299
シートCに管理番号を入力するだけで、
型番とモデルの値が反映されるようにしたいのです。

シートCのA2には、
=IF(ISERROR(VLOOKUP(A2,シートA!A2:B2,2,FALSE)),"",VLOOKUP(A2,シートA!A2:B2,2,FALSE))
としましたが、
B2が分からないのです。

ちなみにシートCは作業報告書のため、実際は一列ではありません。
あと、シートAはCSVで更新が多く、サンプルも800近くあるので、
変更が大変なのです。

＃長文すまそ。

┏━━━━┯━━━━┓
┃管理番号│　 型番 　┃
┠────┼────┨
┃ 　1234 　│26357AJ ┃
┗━━━━┷━━━━┛シートA

┏━━━━┯━━━━━━━┓
┃　 型番 　│ 　 　モデル. 　 　┃
┠────┼───────┨
┃ 26357AJ│ThinkPad 380ED.┃
┗━━━━┷━━━━━━━┛シートB

┏━━━━┯━━━━┯━━━━━━━┓
┃管理番号│　 型番 　│ 　 　モデル. 　 　┃
┠────┼────┼───────┨
┃ 　1234 　│26357AJ │ThinkPad 380ED.┃
┗━━━━┷━━━━┷━━━━━━━┛シートC

291です。

>>297 さん
どうもありがとう。こんな地道にやらないと
だめなんですね。これで実装してみます。

>>298
Excelで表を追加するのってできます？

シートのタブに色は付けられないの？

(;´д｀).｡oO(無理)

>>306
あれ？2002ではつけられなかったっけ？
手元にないから確認できないけど
>>305
少なくとも2000までは無理。＜シートタブの色

いつもお世話なります。

A2〜G2（計７列）：A1を参照している
I2〜O2（　〃　）：I1を参照している
Q2〜W2（　〃　）：Q1を参照している
　　以下同じように、７列カタマリでの
　　計算式はすべてそれぞれの１列目の
　　セルを参照しています。

A2で計算式を作り、G2までコピーするためには
式の中で登場するA1は、１の部分に絶対記号の＄
をつけなければいけませんが、A2〜G2までコピー
し終わってから、A2〜G2まで範囲指定して
I2やQ2にコピーするためには先ほどの＄マークを
消さなければなりません。

何とか、最初は絶対参照だったA2を、相対参照
させてコピーできないものでしょうか。

A1を含めて「切り取り」「貼り付け」だったら
うまくいきますが、エクセルは切り取ったら
一度の貼り付けしかできないようなのでだめでした。

indirect,address,column の関数を使って
A1,I1,Q1を割り出す式を作ってみたら
ものすごくながくなってしまいました。
他にいい方法があるような気がして。。。

>>308
切り取りでなくコピーを使ったら、何度でも貼り付けられると思うが。
Winでの用語はよく知らんが、ctrl-cからctrl-vかな。

>>299
自己解決しました。

シートCのC2に
=IF(ISERROR(VLOOKUP(B2,シートB!A2:B2,2,FALSE)),"",VLOOKUP(B2,シートB!A2:B2,2,FALSE))
で、できました。

どうもありがとうございました。

>>310
シートCのB2の間違いでし。

>>303

シートC!C2=
VLOOKUP(B2,シートB!A1:B2,2)

じゃぁだめなんですか？？

>>312
該当するものがなかった場合に、何も表示させたくなかったのです。

>>311は間違いでした。

複数グラフがあるんだけど、
整列させることできる？？
コピペじゃうまくいかないし、
図形の調整では外枠だけは整列できるんだけど。。。
プロットエリアもろもろまで整列させたいよ！！

今後ＶＢＡはどうなるの？

>>308

隠し列を作って良いなら．．．

１．A3〜G3にそれぞれ、0、-1、-2 ・・・ -6までの数値を入れとく。

２．A2に　=OFFSET(A1,0,A3)　と入れて、G2までコピー。

３．A2:G3までコピーし、I2とQ2に貼る。

４．3行目は非表示にする。

>316
その方法で完璧にできました！！！！
実際のセル番地や式の内容は複雑だったのですが、
OFFSET関数を使うことと隠しセルに数値を入れる
ことをそのまま実践してみました。

実はOFFSET関数は初めて見たので今からヘルプで
「なぜできたのか！」を調べまーす。

どうもどうもありがとう！

Excel2000とExcel97です。
チェックボックスを追加したんですが、
「コントロールの書式設定」の「代わりに表示する文字列」のフォントは、
どこで変更できるんですか。
あと、複数のチェックボックスを、
セル内で整列させるのもおしえてください。

>>314

テスト環境で試せよ。

Sub Test()
Dim myChart As ChartObject
Dim W As Long, H As Long, T As Long, L As Long

cnt = 1: T = 0: L = 0: W = 250: H = 250

On Error Resume Next
For Each myChart In ActiveSheet.ChartObjects

　With myChart
　　　.Activate
　　　.Top = T
　　　.Left = L
　　　.Height = W
　　　.Width = H
　End With

　With myChart.Chart.PlotArea
　　　.Height = 200
　　　.Width = 200
　　　.Top = 20
　　　.Left = 20
　End With

　With myChart.Chart.Legend
　　　.Top = 20
　　　.Left = 180
　　　.Height = 20
　　　.Width = 60
　End With

　If (cnt Mod 2) = 0 Then
　　 L = L + W + 10
　　 T = 0
　Else
　　 T = T + H + 10
　End If
　cnt = cnt + 1

Next myChart

End Sub

>>314
グラフのプロットエリアを整列させるなら
【グラフの種類】の【ユーザー設定】の【ユーザー定義】でどれかひとつを
登録してください。
外枠などの配置は【Shift】を使用して選択すれば【オブジェクトの書式設定】
が使用できるようになります。
あとは、【図形の調整】でよいかと思われます。

…変なの出来ました。御自由に御使い下さい。

>>208
Win98SE 付属の電卓では正しく計算出来るだけに惜しまれます。
同じ会社の製品ではないみたいですね。(藁
---8<------8<------8<------8<------8<---
Option Explicit



Private Function s(x As Double) As Double
Const c As Double = 2018349# / 4194304# '≒ asinh(0.5)

'sinh() の Maclaurin 展開用係数
Const f3 As Double = 1 / 6# '1 / 3!
Const f5 As Double = 1 / 120# '1 / 5!
Const f7 As Double = 1 / 5040# '1 / 7!
Const f9 As Double = 1 / 362880# '1 / 9!
Const f11 As Double = 1 / 39916800# '1 / 11!
Const f13 As Double = 1 / 6227020800# '1 / 13!
Const f15 As Double = 1 / 1307674368000# '1 / 15!

Dim y As Double


If x > c Then
s = s(x / 3)
s = s * (3 + 4 * s * s) '三倍角の公式
Exit Function
End If

s = x * x
s = (((((((f15 * s + f13) * s + f11) * s + f9) * s + f7) * s _
+ f5) * s + f3) * s + 1) * x
End Function

つづき

Public Function my_sinh(x As Double) As Double
Const c28 As Double = 1 / 268435456# '2 ^ -28

Dim sign As Integer


sign = Sgn(x)

Select Case sign
Case 0
my_sinh = 0
Exit Function
Case -1
x = -x
End Select

Select Case x
Case Is <= c28
my_sinh = x
Case Is < 22
my_sinh = s(x)
Case Else
On Error GoTo huge
my_sinh = Exp(x) / 2
End Select

my_sinh = my_sinh * sign
Exit Function

huge:
my_sinh = Exp(x / 2)
my_sinh = (my_sinh / 2) * my_sinh * sign
End Function

XLSをXML変換するフリーソフトはありますか?

サブプロシージャで求めた数値を
親プロシージャで使うにはどうしたらいいのでしょうか？

>324
グローバル変数でいいのでは。

＞324
サブプロシージャを関数にすれば、値を返せる。

>>324
結果を入れたい変数を、サブプロシージャの引数としてByRefで渡す。

>>327

それで出来る？下の例では、i は100のままだよ。
それとも使い方間違ってる？

Sub OYA()
Dim i As Integer
　i = 100
　Kodomo1 (i)
　MsgBox "Kodomo1の戻り値: " & i

　i = Kodomo2(i)
　MsgBox "Kodomo2の戻り値: " & i
End Sub

Sub Kodomo1(ByRef i As Integer)
　i = i + 1000
　MsgBox "Kodomo1の計算結果 " & i
End Sub

Function Kodomo2(i As Integer) As Integer
　Kodomo2 = i + 1000
End Function

>>328
()を抜いた、
　Kodomo1 i
も、やってみよう！

>>329

お、できた。

Call Kodomo1 (i)

と

Kodomo1 i

Callを省略する時は、引数ｶｯｺも省略しなければなりません。
使わないんでｼﾗﾝｶｯﾀﾖ、ｻﾝｸｽ。

変な仕様やね。

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

もうひとつ質問なのですが
あるプロシージャ内だけで使用する変数が番号違いで1200個あります。
kai0001〜kai1200という様に後ろの番号を変えたものだけなのですが
kai[0001-2000] as single　というようにシンプルに宣言する方法はありますでしょうか？

>>319
thanx!!
ChartObjectでやるんですんねん。
Legendはよくわかりませんが、
ﾏﾀｰﾘむさぼりますです。

>>331
なぜ配列を使わないの？
　Dim kai(1200) As Single

そんなのがあったのですね！
配列というのですか。これから勉強しておきます。
ありがとうございました。

ユーザーフォームにセルA1の文字列を表示させたいのですが、
どう記述すればよいかわかりません。

msgboxに表示させることはわかったのですけど・・・

Ａ列とＢ列は固定して、右にスクロールすることってできる？
項目は常に見たいので…。

すまそ。イルカに「固定」って聞いたらあっさりできたよ。

>>335

ラベルでも置いて、

Private Sub UserForm_Initialize()
　　Label1.Caption = ActiveSheet.Range("A1").Text
End Sub

とかやるんだよ。

http://www.atnavi.mlcgi.com/data/gif.cgi?id=askb&jl=13

>>338
おかげさまでできました。
ありがとうございました。

エクセル2000で作った表を2002が入ったＰＣで呼び出すと
マクロが実行できず、デジタル認証がどうのと出てきて機能しません。
どうやったら実行できますか？

ＰＭＴ関数やＦＶ関数で、支払期日の欄に、期首か期末か（1か0）を指定しますよね。
なんで期首と期末じゃ金額が異なるのでしょうか？
利率の発生の仕方がよく分りません。
どなたか教えてください！！

>>342
期首にすると、一回払いならば利子がつかない。
2回目以降で利子がつく

>>343
ありがとうございます。
支払い期間が３年だと、利子は期首だと３回ついて、期末だと１回ですよね。
どういう仕組みなのかさっぱり分りません。

>>344
すみません、支払い期間２ヶ月です。

エクセルのレコード一つ一つを、ワード文書１ページ１ページに
する方法はありませんか？

よろしくお願いします。

>346
差込印刷のこと？

>>345
まああれだ、PMTとは1万円の支払額があったとするだろ。
それを5分割にした時には一回あたりいくら支払えばいいかというのを
計算するわけだ。

通常考えれば2000円だわな。でも、1回目の支払いを通常行なったときに
残額は8千円ではないわけだ。利子がつくからだよ。残額は年利12%だとすると
一回の支払いごとに残額が1.01倍になるよね。つまり残額は￥8,080なのよ。
まあ、そうすると一回の支払いが2000円であるという前提が次から崩れるわけなんだけど
そういうのも考慮して1回あたりいくらずつ支払えば、たとえ一回の支払いごとに
元金が増えたとしても指定回数で支払い終わるかを計算してくれるのがPMTなんだよ。
ふつうに計算すると頭が痛くなるらしいよ。


さて話を戻すけどこれが期首なんだ。一回目の支払い時にはじめて利子が
発生する状態のことを指す。
まだよくわからんと思うので次の期末と対照して考えてみてください。

期末とはなにかというと、1万円借りた時点でいきなり利子がついている状態だ。
つまり、￥10,100からのスタートになるわけですね。

期首と期末と考えると頭がごっちゃになりそうならばこう考えてくれ。
期首=1で、期末=0だよね。このことから
「1とは一回目の支払い時にはじめて元金が利子分だけ増加する状態
　0とは0回目、つまり借り入れ時にいきなり利子分だけ増加している状態」

いかがでしょうか？

187さん

以前のVBA、0件を返すのトラブル、デジタル署名で解決しました。

341さん
以下を試してみて下さい。
http://www.microsoft.com/JAPAN/developer/library/odeopg/deovrsigningvbaproject.htm

>347

いえ、１０レコードのリストがあったら、
１０ページのワード文書にしたいのです。

>350

347じゃないが...

だから差込み印刷だろ。
使い方知らんのか？印刷も出来るし、文書にも出来る。

>350
ワードのヘルプよんでね

>>348
５分割って、年利は５で割るのですか？
すみません。もう頭ごっちゃです。
でも少し分ったような気もします。

>>353
利率・・・一回の支払い終了後にどの程度元金が増加してしまうか
期間・・・現在価値を何等分にするか
現在価値・元の値

さっきのたとえだと年利は12%だろ。ということは一回の支払いごとに
元金が増加する率は1%だ。年利を月利になおすのだよ。PMTでは1回の支払い後に
元金がどのくらい増加するかを利率で定義するんだよ。

1年間で12%増加するってんなら1ヶ月で1%だよね

>>354
そうですよね。月１％で５回支払いですよね。失礼。
期首なら全部で200円の利子がつくし、期末なら300円の利子がつく。
図に描いてみたら分りました！！期末は１回目は100円、２回目は80円…
で、期首は1回目80円、２回目60円…って感じですね。
ありがとうございました！感謝。

>>347
素早い情報ありがとうございます。

>ワードのヘルプよんでね
すいません。ヘルプで確認しました。
大変助かりました。

>>351
>使い方知らんのか？印刷も出来るし、文書にも出来る。
おっしゃる通りです。印刷だけの機能と勘違いしてました。
ご指摘ありがとうございます。

教えてください。

ちょっとイレギュラーな話になるのですが。
MODE（最頻値）という関数がありまして。
=MODE(1,2,3,4,4,5,5,5,6)
とすれば5が帰ってくるわけなんですが。

=MODE(1,2,2,3,4,4,5,6,6)
と言う感じで、最頻数が複数ある場合、仕様では一番手前にある2が帰ってきます。
これを、一番最後に出てくる値（この場合は6）を返してくるようにしたいのですが、
よい方法はありますでしょうか？

よろしくお願いします。

質問させてください。
たとえば、Ａ１とＣ５のデータをまるごと入れ替えたい場合、
いまのところカット＆ペーストでやってますが、
入れ替えたいデータが大量にあるとちょっとめんどうです。
もっとスマートにエクスチェンジするやるやり方ってありますでしょうか

>>357
(´-`).｡oO(　パラメタの順序を逆にして MODE( ) に突っ込む..で、いかが？)

>359
並び替えが出来る量ならそれでよかったんですが(^^;

　　　　　Ａ　 　Ｂ 　　Ｃ　　〜　ＣＩ
　　１　１６　 １４ 　１２　　　　　２
　｜
　２４　１０　 １０ 　１１　　　　１８
　２５A1:A25 B1:B25 C1:C25　　〜CI1:CI25
　２６　２８　 ２５　 １２　　　　２３
　｜
　５０A26:A49B26:B49　〜〜〜

ずれそうな気がするけど大丈夫かな？
こんなかんじで、２５行ごとに最頻値計算が入るものが数十列あるので、
各パラメータにソートをかけるのが物理的に厳しい情勢だったりします。

何かよい知恵はないものでしょうか？

VBAで書いてみたがどうだろう？
ドライバも作ったのでセルにデータを入れて動かしてみて下さい。

'x_range(string型): "A3:D11"(リテラル不要)のデータで引き渡す。
'X_mode(varient型): 最も頻繁に出現する値 (最頻値) を配列で返す。
Function x_mode(x_range As String) As Variant
Dim R As Object
Dim flg As Boolean
'セル値を配列に集計。C_arry()はC_arry(0,x)がセル値,c_arry(1,x)が出現数。
'(xは出現した数字の種類数)
Set R = Range(x_range)
Dim C_arry() As Integer
i = 0
ReDim C_arry(1, i)

For Each c In R
flg = False
For j = 0 To i - 1
If C_arry(0, j) = c.Value Then
flg = True
Exit For
End If
Next
If flg = True Then
C_arry(1, j) = C_arry(1, j) + 1
Else
ReDim Preserve C_arry(1, i)
C_arry(0, i) = c.Value
C_arry(1, i) = 1
i = i + 1
End If
Next

'最多出現数を求める
Dim max As Integer
max = 0
For j = 0 To i - 1
If max < C_arry(1, j) Then
max = C_arry(1, j)
End If
Next
'最多出現数の数字で配列作成
Dim tmp_x_mode() As Integer
Dim x_mode_cnt As Integer
x_mode_cnt = 0
For j = 0 To i - 1
If max = C_arry(1, j) Then
ReDim Preserve tmp_x_mode(x_mode_cnt)
tmp_x_mode(x_mode_cnt) = C_arry(0, j)
x_mode_cnt = x_mode_cnt + 1
End If
Next
x_mode = tmp_x_mode()
End Function

こっちがドライバ

Sub X_mode_Driver()
i = x_mode("A12:B15")
j = 0
For j = 0 To UBound(i)
MsgBox i(j)
Next
End Sub

ExcelVBAのユーザフォームで、ボタンをクリックすると、
・標準のブラウザにURLを渡して起動する。（ヘルプとして使いたい）
・標準のメーラーにあて先を渡して起動する。
という機能をつけたいのですが、どうすればよいのでしょうか。

>>363
Dim IE As Object

'オブジェクトの生成
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate2 Text1.text
IE.Visible = True

'オブジェクトの解放
Set IE = Nothing

>>363
メールはこれで逝けるだろ。

Mail = "[email protected]"
Shell Environ("COMSPEC") & " /C Start mailto:" & Mail, vbHide

>>365
バッチリ！
ありがとでした！！

>>364

-> IE.Navigate2 Text1.text

で
実行エラー424　オブジェクトが必要です
と言われるんですが...

あと、IEにこだわらず、通常使うブラウザを起動できないですかね？

>>367
Text1オブジェクトを作ってない、とかいうのは無しだぞ

>>368
失礼、IE.Navigate2 "http://www.2ch.net/2ch.html"
みたいにすればいいんだね。

うまくいきました。ありがとう！

>>367　(´-`).｡ｏＯ（ それこそ Environ("COMSPEC") ですやん？　だめっすか？）
/C Start http://www.hoge.hoge/hoge/
…とか。

>182さん
ありがとうございます。

とりあえずコードをそのまま貼り付けてx_mode関数を実行してみたのですが、#VALUE!が帰ってきました。
マクロの実行をしてみると「型が一致しません」となってしまいます。
デバッグを実行してみると
> C_arry(0, i) = c.Value
この行が引っかかっているようです。

当方、VBAはほとんどわからないので、見ていただけますでしょうか？
よろしくおねがいします。

やっぱりコピペするしかないの？

すいません、教えてください。
グラフの区分線をあるデータとデータの間には付けて、他のデータ間には
付けないなんてことは出来るんでしょうか？

>>349さん

デジタル署名の情報ありがとうございました。おかげでやっとマクロが使えました。

エクセル2000のＶＢで困っています。
ＶＢを起動してユーザーフォームを作成し､右クリックしてプロパティを
選択すると画面の左にプロパティの窓が開きますが､「全体」「項目別」
のどちらもいろいろと表に書いてあるのですが草書みたいな変なフォント
で文字も小さく何が書いてあるかさっぱりわかりません。
思いつく限りのメニューを探しましたがどうにもなりません。
ここの文字のフォント変更の仕方を教えてください

既出かもしれませんが
使用している行が６０行程度、列が１００程度で
画像等のオブジェクトを張り付けているわけでも
マクロを使っているわけでもないのに
ファイルサイズが１．４ＭＢを超えておるシートがあります
ＦＤに入らないし困ってます。
気になるのはスクロールバーを下に引っ張ると
65536行目まで行っちゃいます。

どなたか原因＆対処方を教えていただけませんが？

>376
Ｍ＄サポートに既出
検索キーは「ファイル」「サイズ」

>371さん
>> C_arry(0, i) = c.Value
>この行が引っかかっているようです。

多分、範囲内に数値以外のデータが入ってるんでしょう。
範囲とは"X_mode_Driver()"の
i = x_mode("A12:B15")
部分です。

数値以外はskipするようにした修正版をupしますが月末は仕事が立て込んで
て客先に張り付きになりそうなのでちょっと待って下さい。

Excel2000にて印刷時の罫線を極限まで細くしたいのですが、
Excelだと線の太さの数値入力が出来ないのでしょうか？

>>375
ココ逝け
http://office.microsoft.com/japan/downloads/2000/o9vbeupd.aspx

同じ計算をワークシートで行った場合と
マクロで行った場合で答えが3%〜5%くらい異なるのですが、仕様なのでしょうか？

>>370
ホントだ。これイイわ。

>>381
例えばどんな計算で、それぞれどんな値が返ってくるの？

>380ｻﾏ
あちこちさ迷いましたがそこだけは存在忘れてました。
無事解決しまして。ありがとうございました

プログラミングミスでした。
VBAにおいて、計算対象が本来の行とひとつずれてました。

皆様、お助けください。
エクセル２０００でセルの罫線を、
印刷しないようにすることはできるでしょうか？
もし、できるのならば、その方法を教えてください。
よろしくお願いします。

>>386
祈れ。

>>386
ファイル＞ページ設定＞シートタブで
「簡易印刷」にチェックを入れる

373は放置ですか？

377さんのご指摘で、
ＭＳサポートを検索しました。

解決策らしきものは「最後のセル」の修正だと思い、
65536行目から上に向かって必要部分手前までドラッグして
編集-削除しましたが、
行は消えず、「最後のセル」の位置は６５５３６行目の最終列のセルのままで
保存してもファイルサイズが小さくなりません。

ほかの方法があるのでしょうか？
どなたか教えていただけますと助かります。

新しいシートにグラフを作った時に
他のシートからリンクを張るのはどうやるのでしょうか？
ハイパーリンク設定しようと思っても「このドキュメント内」
にグラフシートが出てきません
ver2000です。文章が変ですみません

質問を２つさせて頂きます。
１．「縦３cm×横２cmの表」と言う風にcm単位で図形を
　　書くにはどうしたら良いのでしょうか。エクセルとワードでは
　　どちらが良いですか？
２．「平成○年○月○日」と入力したセルから、別セルに"年"、"月"、"日"を
　　取出すのはどうしたら良いのでしょうか？詳しい計算式を教えてください。
　　よろしくお願いします。

>>392
2.についてはleft（）、mid（）、right（）でいけるんじゃない？
3cm×2cmの表に関しては、ワード使って表のプロパティーから
自分で調節してくれ。mm単位で調節可能だから。

>>390
ぼくも何回か遭遇したことがある。
データコピーして新規シートに貼りつけ、
これでうまくいく場合もあったし、いかない場合もあった。

すみませんが、教えてください。
EXCEL２０００を使用しています。
ｓｈｅｅｔ１に計算式を作って、その答えをｓｈｅｅｔ２に表示することって
できますか？
ヘルプも読んだのですが、全然わかりません…

>378
お手数をおかけします。
よろしくおねがいします。

sheet1の計算式が入っているセルが仮に
B10だとしたら、sheet2のどこかのセルに
=sheet1!B10 と書けばsheet1のB10の
結果がそのまま出ます。

または、sheet1の計算式をそのまま
直接sheet2に入力してもできますよ。
計算式の前に　=sheet1! をつけるだけ。

>397　は、>395へのレスです。

＞397

ありがとうございます！！
これで進むことができます！

357さん

これでどうでしょうか？

'x_range(string型): "A3:D11"(リテラル不要)のデータで引き渡す。
'X_mode(varient型): 最も頻繁に出現する値 (最頻値) を配列で返す。
'範囲に含まれる値が文字列の場合、データが無い場合(empty)の場合は該当データをスキップ。
Function x_mode(x_range As String) As Variant
Dim R As Object
Dim flg As Boolean
'セル値を配列に集計。C_arry()はC_arry(0,x)がセル値,c_arry(1,x)が出現数。
'(xは出現した数字の種類数)
Set R = Range(x_range)
Dim C_arry() As Integer
i = 0
ReDim C_arry(1, i)

For Each c In R
If IsNumeric(c.Value) = True And IsEmpty(c.Value) = False Then
flg = False
For j = 0 To i - 1
If C_arry(0, j) = c.Value Then
flg = True
Exit For
End If
Next
If flg = True Then
C_arry(1, j) = C_arry(1, j) + 1
Else
ReDim Preserve C_arry(1, i)
C_arry(0, i) = c.Value
C_arry(1, i) = 1
i = i + 1
End If
End If
Next

'最多出現数を求める
Dim max As Integer
max = 0
For j = 0 To i - 1
If max < C_arry(1, j) Then
max = C_arry(1, j)
End If
Next
'最多出現数の数字で配列作成
Dim tmp_x_mode() As Integer
Dim x_mode_cnt As Integer
x_mode_cnt = 0
For j = 0 To i - 1
If max = C_arry(1, j) Then
ReDim Preserve tmp_x_mode(x_mode_cnt)
tmp_x_mode(x_mode_cnt) = C_arry(0, j)
x_mode_cnt = x_mode_cnt + 1
End If
Next
x_mode = tmp_x_mode()
End Function

やっぱり必要部分だけ
新シートに貼り付けるしか手が無いんですかね？
そうすると、幅とかの書式が新シートにあわせられるので、
書式をいじらないといけないので、めんどくさいのです。

>>399
ちょっと間違い。

　> 直接sheet2に入力してもできますよ。
　> 計算式の前に　=sheet1! をつけるだけ

ではなく、計算式の中の［それぞれの番地の前に］
=sheet1!をつける　　です。

>>393さん
その方法だと数字が一桁の時、年月日まで入ってしまうんですよ。
「平成11年11月11日」→"11"、"11"、"11"
「平成2年2月2日」　 → "2"、 "2"、 "2"
という風に数字だけを抽出したいんですが････。
申し訳ありませんが、よろしくお願いします。

１．平成11年11月11日というデータがどういう形式で入っているのか
　　（日付型か、文字列型か）
２．切り出したデータはどうあればよいのか
　　（表示さえ11ならよいのか、数値として11であるべきなのか…）

404さん
1.答えとしておかしいかもしれませんが、どちらでも構いません。
　出来れば両方お教え頂けますでしょうか？
2.表示が11なら構いません。

指名かよ！
405でどっちでも良いと言ってるからシリアル値で入っていると仮定して
＝YEAR（）-1988で標準で年
＝MONTH（）で月
＝DAY（）で日
仮に昭和の場合は当然-1925だ。

指名はするな。他の回答者に対して失礼に当たるし、
俺もここに張り付いているわけじゃない。

指名したわけでも、他の解答者の皆さんを
無視したわけでもないのですが、
不愉快の想いをさせて、どうもすみません。
とりあえず406さんに教えてもらった方法でやってみます。
どうもありがとうございました。

A1:C1のいずれかの値がD1と等しい場合、E1に○、等しくない場合は×、と表示させ
たいのですが・・・。

ifを使えばいいのかな、と思ってるんですが行き詰まってしまい困っています。
どなたか教えて頂けないでしょうか。宜しくお願いします。

>>408
=IF(A1=D1,"○",IF(B1=D1,"○",IF(C1=D1,"○","×")))
エクセルで動かしてないけど、これであってると思う。

>>388さん
無事、解決しました。
どうもありがとうございました。

>408
=IF(OR(A1=D1,B1=D1,C1=D1),"○","×")
比べるセル数がもっと多ければ配列数式の方がよさそうだけど。

=IF(OR(A1=D1,B1=D1,C1=D1),"○","×")

A1にシリアル値で日付データがはいっていて、表示が11ならよいと仮定して
年：=A1（表示形式:e）
月：=A1（表示形式:m）
日：=A1（表示形式:d）

>>408

=IF(COUNTIF(A1:C1,D1),"○","×")

質問です｡
Ａ１に例えば１５と数字が入っています｡同様にＡ２にも、Ａ３にも１〜２０の
数字が入っていまして、仮にＡ１１５で、Ａ２に９が入ったとき、Ｂ２に１３と入るように、
Ａ１とＡ２の差額？を記入していきたいのですが、どのようにしたら良いでしょうか？
初心者ですが　皆様よろしくお願いします。

A1に文字を入力したら自動的に
ActiveSheet.Name = Range("A1")
を行いたいのですが、どうすればできますか？

>>415
A1が15で、A2が9の時、B2に13？どこが差になるんだ？
と一応突っ込んでおく。
B2に =A1-A2 と入力しなさい。その後にB2を下方向にコピーしなさい。

回帰係数をもとめるアルゴリズムをつくってVBA上で計算するのと
VBAでワークシート関数「slope」を使用して計算するのでは
どちらが処理速度がはやいのでしょうか。

>>416
ThisWorkbookのSheetSelectionChangeイベントに
ActiveSheet.Name = ActiveSheet.Range("A1").Value

>>400
ありがとうございます。
なんとか動作させることができました。
ですが、返ってくる値がmodeと同じ値のようです。

あまり長々とご迷惑するのも悪い気がするので、なんとか自力でやってみます。
ありがとうございました。

>>417
ご返事ありがとう御座います｡しかしながらＢ２にＡ１―Ａ２と入れると
Ｂ２は６となりますよね｡答えが１３となるようにしたいのですが
そういうやり方はありますでしょうか？
上にも書きましたが､Ａ列には １〜２０の数字が不特定に入ります｡
よろしくお願いします｡

>>421
意味がわからん。
A1とA2の差額と書いている以上どう考えて13が入るんだ？
やりたいことをサンプルとして具体的に書け。
君のやりたいことが第三者にはちっともわからんのだがな。

>>421
パソコンの前に日本語の勉強をしる！

421>>
ご親切にアドバイスありがとう御座います｡

A B
1 15
2 9 13
3 1 15

図で示すとこんな感じです｡
つまり､A1に15で､次のＡ２に９ですから､
その間の16,17,18,19,20,1,2,3,4,5,6,7,8､で､１３個間があいていますよね｡
その個数のことです｡
初心者なので説明と用語がわかりませんが いかがでしょうか｡
よろしくお願いします｡

>>
423
さん､すいません｡上司に命令されて､切羽詰ってますもので｡
よろしくお願いします｡

>>424
その例だとB3に15って書いてるけど、これはどのセルとどのセルの比較なんだ？
A1とA3？A2とA3？

>>424
B3に15が入るはどういう計算だ？
そこの流れだと10,11,12,13,14,15,16,17,18,19,20になるんじゃないの？
ということは11だよな？
訳分からんよ。

単純に算数で考えると
=(20-A1)+(A2-1)ってことだろ。
なんじゃ、これ？

>>419
ありがとうございます。
この方法だと、どのセルが変更されても代入が行われるということでよろしいでしょうか？

あと、マクロが実行されると「元に戻す」が使えないのは仕様でしょうか。

すいません説明が下手で｡
>>426
A2とA3の比較です｡が､慌てていて例が間違っていました｡
A2が９なので､10,11,12,13,14,15,16,17,18,19,20､で､１０でした｡

ちゃんとした例をもう一度書きます｡
A B
1 15
2 9 13
3 1 10
4 7 5 (A3が１なので､2,3,4,5,6､で､Ｂ４が５になります｡)
5 2 14 (A4が７なので､8,9,10,11,12,13,14,15,16,17,18,19,20,1で､１４となります｡)

よろしくお願いします｡

>>429
=IF((20-A1)+(A2-1)<=20,(20-A1)+(A2-1),(20-A1)+(A2-1)-20)
これをB2に入れて下にドラッグしていけ！
間違ってる場合、訂正してくれよ。

>>430
さんどうもありがとう御座いました｡正確に出ました｡
A列で､A５が２で､A6が３の時は０になるのですが､
上記の式では２０となってしまいます｡
その点を訂正したいのですが､どうやるのかわかりません｡
よろしくお願いします｡

<=を<

お忙しいところどうもありがとう御座いました｡
本当に助かりました｡

グラフの外枠を修正するとき、alt+マウス移動でセル枠線に
合わせるってやりますよね。で、印刷範囲ギリギリのセルでこれやると、
Excel2000:普通に印刷範囲内。問題なし
Excel2002:なぜか印刷ページ数増加。当然追加ページは白紙。
フォントと見た目の関係でとか、外から貼り付けた図形とかでページが
増えることはあるけど、グラフでこうなるとは…他の人もそうなんでしょうか？

え〜、すごくマヌケな質問で申し訳ないのですが助けてください。

Excel2000を使ってますが、「ツール」→「オプション」→「移行」で
「Lotus1-2-3形式のキー操作」が『オン』になったまま戻りません。
『オフ』にしても次にシートを開くとまた『オン』に戻ってしまいます。

多分、以前に一度自分で『オン』にしたのだと思いますが直し方が判らず困っています。
アンインストールして再度インストールしましたが直りませんでした。
助けてください！お願いします。

>>409 >>411 >>414

教えて頂きありがとうございました。おかげさまで無事解決しました。
また困った事があったら質問させて頂きます。
本当にありがとうございました。

>428
仕様です。
新しいワークブックで
1."ツール"→"マクロ"→"新しいマクロの記録"で記録を開始します。
2.セル"A1"に文字を入力。"a"を入力してみます。
3."ツール"→"マクロ"→"記録終了"で記録を停止します。
4.「元にもどす」ボタンを押すと"a"が消える。
5."ツール"→"マクロ"→"マクロ"で記録したマクロを実行します。
6.「元にもどす」ボタンが無効になっている。
この操作で2と5の相違がわかると思います。

357さん
お役に立てませんでしたか・・・
元データとやりたい事をメールで送っていただければ見てみますが。

>>437
解りました、ありがとうございました。

Excel2000でのエラーメッセージなんですが、
メニューから印刷をクリックすると、
”ファイルにアクセスできませんでした”というエラーが表示されて、
印刷が出来ないのですが、どなたかこのエラーの解除方法を知っている方いらっしゃいますか？

Excelを起動した直後の何もセルに入力していない状態で出ます。
ただし、ボタンのほうから印刷すると普通に印刷されるのですが…

AAAAA
AAAAA
BBBBBBBB
BBBBBBBB
BBBBBBBB
CC
CC
CC

のように同じ内容のセルが複数あった時、同じ内容のうちの一つのセルを残して、

AAAAA
BBBBBBBB
CC

のようにするにはどうしたらいいんでしょうか？

「エクセルの学校」で調べてみたら バグ だと判りました。
書いてある通りにレジストリを削除して再インストールしたら直りました。

お騒がせしました。

>441

１行目にタイトルを入れる（リストが複数列の場合は全てに入れる）

ほげほげリスト
AAAAA
AAAAA
BBBBBBBB
BBBBBBBB
BBBBBBBB
CC
CC
CC

ほげほげリスト内のセルを選択し、メニューのデータ−フィルタ−
フィルタオプションの設定で「重複するレコードは無視する」を
選択してＯＫ（重複セルは非表示になる。再度表示させるには
メニューのデータ−フィルタ−全て表示）

必要に応じて別のシートにコピー

エクセルで昇順、降順に並べ替えるには
どうしたら良いのですか？

>>444
Excelのヘルプ＞キーワード「並べ替え」で検索

A B C D E F G H
1| 12 24 45 12 45 12 10 12
2| 11 13 84 25 14 44 21 13
前提：列番号EはA、FはB、GはCに関連したい値です。
ここで列E,F,Gを求める
上の図の例で行くと
１行目ならE1=45,２行目ならF1=44
H1に最大値E1に関連する値A1=12
H2に最大値F2に関連する値B2=13
を書き込んでいくにはどのような関数を使えばよろしいのでしょうか

>>446
１） E〜Gの範囲で最大値を求める。(MAX関数)
２） E〜Gの範囲で１の最大値が何番目にあるか探す。(MATCH関数)
３） Aを基準に2で求めた数だけずらした位置の値を求める。(OFFSET関数)

って方針でどう？
（E〜Gの間で最大値が２カ所以上出たとき、一番左のセルが使われるけど）

>>447
OFFSET関数かぁ
なるほど思いつかなかった、447さんの方針で試してみます
レスありがとうございました

何の問題もなく目的達成できました

エクセルの質問

仕事で管理しているファイルが200くらいあるんですが
これをエクセルでリスト作成したいんです。
ファイル名だけを縦に並べたいんですが、
1つ1つ手打ちしないで一気に並べる方法ってありますか？

よろしくおねがいします。

>>451
Sub ファイル名読み込み()
Dim fn As String
Dim i As Integer

i = 1
fn = Dir("C:\WINNT\*.*", vbNormal) '※C:\WINNTの部分を対象ドライブとフォルダ名に書き換える
With ActiveSheet
.Cells(i, 1) = fn

While fn <> ""
i = i + 1
fn = Dir
.Cells(i, 1) = fn
Wend
End With
End Sub

１　ファイル一覧をテキストファイルに出力してくれるソフトを拾う
２　実行
３　結果をエクセルにコピペ

エクセルのソフトを出力できるフリーのソフトはありませんか？？

>>454
やりたいことを自分で咀嚼してから書きこもう。

エクセルのファイルを出力できるですね・・・

>>456
紙のベータ版

　　Ａ　　 Ｂ　　Ｃ　　Ｄ　　 Ｅ　　 Ｆ
１　α　　β　 点　　α　　β　　点
２　 1　　　2　 30　　　4　　 5　　60
３　 6　　　3　 90　　　1　　 3　 100
・・・
という表があって、（α、βは１〜６まで）これをピボットテーブル（平均）で
　　β
α　1　　2　　3　　4　　5　　6
1　　　 20　 30　 40　50　 60
2　10　　　　40　 80　50　 90
3　30　50　　　　 70　70　 80
4　40　30　 55　　　　55　 60
5　50　90　 30　 30　　　　77
6　90　30　 10　 20　　　　88
というようにまとめたいんですけど、どーすりゃいいんすか？

紙のベータ版？
エクセルのファイルのビュワーソフトを
探してたんだけど、あった。自己完結と。

>>451って何のために質問しに来たんだろ？

>>460　（´-`）.｡ｏＯ（胃エーテル。）
ドス窓で DIR /ON /B > dir.txt
とかやって、ファイル嫁ばいいのﾆﾅｰ

データが1.4MBくらいなんだけど、LZHで圧縮すると112Bになります。
圧縮112Bってことは本来400MBだと思うんですが。。。
このデータはあるデータのシートをたくさん削除して作ったんだけど、
削除したハズのシートの残像がデータに残ってるとかってあるのかな？
データを軽くする方法知ってる方いますか？

>>462
> 圧縮112Bってことは本来400MBだと思うんですが
（´-`）.｡oO（んなこたぁ〜 ない）

>>463
「400Bぐらいだと思う」の間違いですね。
で、解決策はご存知？

文字列の出現回数を計算するのに、
=LEN(<文字列>)-LEN(SUBSTITUTE(<文字列>,<検索文字列>,LEFT(<検索文字列>,LEN(<検索文字列>)-1)))
ってしていますが、他にスマートな方法ってあります？
エクセルの文字列処理って、かなりトリッキーな事をしないと出来ないこと多すぎと思います。

>>464
> 「400Bぐらいだと思う」の間違いですね。
（´-`）.｡oO（んなこたぁ〜 ないよん）

てか、「本来」ってのがNGワード。
いつ（の時点のファイル）がオリジンなのかしらん…。

あと、出来合いのファイルからシートやその一部を
切り取るよりも、
新規ブックに対して 出来合いのファイルのシートやその一部を
コピー＆ペーストするほうが、（自分にとって）不要なデータの
混入に対しては強いです。
お試しあれ。

>>466
新規にコピペしたほうがいいんですね、では試してみます。
アドバイスありがとうございました。

>>465
(LEN(<文字列>)-LEN(SUBSTITUTE(<文字列>,<検索文字列>,""))) / LEN(<検索文字列>)

うう、全然スマートじゃないな...
さらに検索文字列長が0だとDiv/0エラー（藁

EXCEL2000で他人が作成した物なんですが
ファイルを開くときに

他のファイルへの自動リンクが設定されています　うんだらかんだら
・情報を更新する場合は[はい]
・情報を保持する場合は[いいえ]
をクリックして下さいと出るんですが

ワークシート中を検索してもそれらしいファイル名が探せず。
新しいファイルに内容をCOPYしても出て来るのですが
何とかこのリンクを切ることは出来ないでしょうか？
説明が陳腐ですみませんがよろしくお願いします。

>>468
どうも。
エクセルの組み込み関数に無い機能を使おうとすると、どうもパズルを解くようで、、
トリッキーなコードを使うと、後で虫取りが大変ですが、このまま使います。

ところで、自分で関数を定義するって出来るの？

マクロでフォームのテキストボックスからセルに文章を入力したいんですけど、
テキストボックス内で改行をすると、セルに『・』な文字が入力されてて邪魔です。
たぶんコレ、改行コードだと思うんだけど、消すにはどうしたら良いの？
よろしくお願いします。

>>470
VBAで標準モジュール追加して、
その中でFunctionプロシージャを定義してやれば呼べるね。

＃ 使ったこと無かった...

>>472　（´-`）.｡oO（うん。うん。）と、首肯してみるテスト。

Function プロシージャを自分でかけばよいのよさ。
特定の文字の数とか数えるの、簡単になるさ。
やってみそ >>465

>>472-473
サンクス！やってみます。

>>469
結合されてたり非表示になってたりするセルにリンクがあったりして。
以前そんなことがあったので。

すいません。。エクセルファイルが表示可能なフリーソフトをご存知
でないでしょうか？
エクセルを持ってなくて、どうしても至急表示させなければいけない
ファイルがあるのですが。
教えていただけませんでしょうか？宜しく御願いいたします

あげ

>>476
http://office.microsoft.com/japan/downloads/9798/xlviewer.aspx

>>475
Excelのツール＞オプション＞表示タブの「数式」にチェックを入れて
ファイルへのリンクがないかもう一度確認してみたら？

↑>>469宛の間違い

478さん。本当にありがとうございました！
ほんとに素早いレスで、感謝の言葉もありません。。
ありがとうございました。。

>475
>480
結合セルにありました!
でも、結合するときにどちらかのデータが無くなるはずなのに
なんで残っていたんでしょうね?
ありがとうございました。

初めてうかがいました。
早速質問させていただきます。
マクロで作成した表（入力シート）をｗｅｂ上に貼り付けたいのですがどうすればよいのでしょうか？

Ａ列に入社年度、Ｂ列に性別、Ｃ列に部署、Ｄ列に年齢が入力してあります。
このデータを元に「６０年入社」「男」「総務」「４２歳」の全ての条件に合致する社員数をカウントしたいのですがどのような数式を作ればよいでしょうか。

自分では、{count(if($a$2:$a$100"=６０",if($b$2:$b$100"=男",if($C$2:$c$100"=総務",$a$2:$100$,0))))}
としてみたのですが、ぜんぜん違う答えになってしまいました。

どのような方法をとればよいでしょうか。

ちなみにエクセル暦　１年。独学です。ようやくif式が何を意味しているのがわかり始めてきました。
また、自分が所有している書籍は、Ｘメディアの「超図解ＥＸＣＥＬ　２０００」基礎編、応用編、関数編です。ここにのってるよという指摘もお願いします。
同様に「エクセルの勉強部屋」「エクセル道場」にもあるぞという指摘もお願いします。
自分も検索をしてみたのですが探すことができませんでした。（あったのかもしれませんが理解できなかったのかもしれません。）

過去ログで検索した際、このスレの「１」で二つの条件のものは見つけたのですが４つのものに当てはまるのかどうかわかりませんでしたし、わたしがかろうじで理解できるＣＯＵＮＴ関数でなかったので再度質問をさせていただきたいと思います。
よろしくお願いします。

ゲ、同い年だ...
まとめてやろうとするんじゃなくて、条件にあてはまるデータにフラグを立てて、
そのフラグを数えればいいと思う。
各行のE列あたりにつぎのような式を書けば
　=IF(AND(A2=1960, B2="男", C2="総務", D2=42),1,"")
該当するデータだけ1がたつから、=COUNT(E2:E100)とかすればいい。

書いてから気づいたけど、=IF(AND(...),1,0) として =SUM(E2:E100) でもいいっすね。
いろいろな工夫があるってことで。

>>484
ピボットとかは使っちゃだめなの？

だめならF列くらいに次の式を使ってちょ。
=And(A2=60,B2="男",C2="総務",D2=42)

そうすると条件に適合した人にはTrue、ちがえばFalseとかえる。
あとは、どっかに
=Countif(F2:F100,true)

実験していないが多分出ると思われ。

>>483
質問がアバウトなのでよくわからないが……単にWebページとして保存コマンドじゃ駄目なのか？

>>483
スレ違い。Web製作板 か WebProg板 へ 逝っておいで。

…って、「入力シート」を Web ページに貼り付けて
何ををしたいんだろう。
かなり不便なものが出来上がるに違いない。

>484
フィルタとSUBTOTAL使うのはダメかな？

すみませんが、どなたか
ピポットテーブルの使い方教えて下さい。

>>491
教えようがありません。
自分で使ってみてﾆｭｱﾝｽをつかんでください。

ヒントとしてはデータの集計・分析に使用。

>>484
ダブルクォーテーションの位置が違う

>>485 >>487
配列数式を知らないのか？

>>471
=SUBSTITUTE(そのセル,CHAR(10),"")
置換したい場合は、ダイアログの中でCtrl+Jをおす。

>>491
EMIKOたんいくつ？　(;´Д`）ﾊｧﾊｧ....

>>493
元質問の COUNT() の使い方を説明するほうに頭が行ってたもんで。
指摘する手間で説明してもらえたらうれしかったと思うんだけど。

>>493
これで満足でしょうか？

{=SUM(IF(A2:A100=60,IF(B2:B100="男",IF(C2:C100="総務",IF(D2:D100=42,1)))))}

>>484
http://pc.2ch.net/test/read.cgi/bsoft/986283001/838-840

会社にExcel2000が入っているんですが、セル-書式の設定が「標準」なのにもかかわらず、
全ての入力した数値が1/10で表示されてしまうようになってしまいました。
やってた当人に聞けば「突然なった」とのこと。
本気で業務できなくて困ってます。誰か解決法知りませんか？

>>491　
ぴぼっとテーブルについては、
　　（´-`）.｡oO（ヘルプっつーか、チュートリアルっつーか、そういうのが）
　　　　付いていたんじゃなかったっけ？

みなさんありがとうございます。

＞４８５、４８６、４８７
　確かに別のセルに計算をさせてその結果を参照するという方法は初心者の自分にとって理解しやすいものでした。
　しかし、「６０歳」「男」「総務」「４２歳」の条件に合うものだけでなく、それぞれの年度や部署などの様々な組み合わせで集計をする必要性がありますので、この方法を採ると多量のセルが必要になるような気がしますがどうなんでしょう。
＞４９３
　ダブルクォーテーションの位置を修正すれば、わたしの立てた式は有効に働くのでしょうか？
＞４９６
　この、頭にＳＵＭがつく式で複数条件に合致した場合に特定セルの合計を求める式を作りうまくいった経緯から、ＣＯＵＮＴの式を作ったのですが、ＣＯＵＮＴが頭だと同じようにいかないのでしょうか。
＞４９７
　過去ログでこれを発見していたのですが、オートフィルタ等をすると表がぐちゃぐちゃになってしまうように記憶していたのですが、記憶違いなんでしょうか？

なんとかＣＯＵＮＴを使って１つの式にしたいと考えていたのですが、ピボットテーブルやデータベース関数を使うほうがわかりやすいのでしょうか？自分が理解できていない分、不安があるのですが。
もし、データベース、ピボットなどを使う場合、社員数（元の表となるサンプル）の増減によっては範囲の指定をその都度する必要があるのでしょうか。
ＳＵＢＴＯＴＡＬについては勉強をしてみます。

引き続きよい（物分りの悪いおやじが理解できる方法：都合がよいですが）方法がありましたらご教授願います。

Excel2000で、計算式のあるセルだけ入力出来ないように規制したいんですが
簡単な方法はないでしょうか。
(シートの保護とかで、セルを自分で一つ一つ選択するのではなく、
自動的に計算式のあるセルだけ選択して保護する技を、以前雑誌で見たような
気がするんです)

どなたか分かる方、教えて下さい。宜しくお願いします。

表示形式で
０９７２××××××（０９７５００００００未満）と入力したら
０９７２-××-××××と表示
０９７５××××××（０９７５９９９９９９以下）と入力したら
０９７-５××-××××と表示
０９７７××××××（０９７６００００００以上（上記以外））と入力したら
０９７７-××-××××と表示

までは出来たんですけど、
０９０××××××××（携帯）が
０９０××-××-××××になっちゃうんですね。
マクロでLEN関数（文字列数）で分岐してやってみたんですけど
　If Len("b18") = 10 Then
　　　Selection.NumberFormatLocal = """0""##-####-####"
　ElseIf Len("b18") = 9 Then
　　　Selection.NumberFormatLocal = "[<975000000]""0""###-##-####;[<975999999]""0""##-###-####;""0""###-##-####"
　Else
　End If
　↑こんなのじゃダメみたいで、どうすりゃいいですかね。

セルの複数範囲指定をVBAでやろうと思っています。
RANGEを使えば簡単なんですが、コードで制御したいため、CELLSを使いたいのですが・・・・
（変数で処理したいため。CELLS(x,y)みたいな感じで）

CELLSでの複数範囲指定の方法がなかなか載ってなくて困っています。
わかるかたよければご教授願います。

エクセルで、ばらばらに入力したセルを名前順に並べ替える
プラグインとかってありますか？
厨房くさい質問ですみません…。

>>503
expression.Range(Cell1, Cell2)
で対角にCELLSオブジェクト指定してやればええんじゃないの？

ヘルプからコピペ
> 次の使用例は、シート 1 のセル範囲 A1:C5 のフォント スタイルを斜体に設定します。
> Range プロパティの構文 2 を使用します。
> Worksheets("Sheet1").Range(Cells(1, 1), Cells(5, 3)). _
> Font.Italic = True

>>504
データ→並べ替え
だと何か問題が？

LOTUSだと
ワークシートタブの色を変更出るんですが
EXCEL2000だと出来ないですよね

ここ何年LOTUSいじっていないけど
好きだー!(だいぶ慣れたけど)

>500
SUBTOTALを使うとフィルタによって隠れたセルはカウントしなくなる。
フィルタでいろんな条件設定をかけてやれば
その都度、表示されてる行の数がSUBTOTALで計算される。
SUBTOTALの使い方はヘルプを参照。
フィルタはきちんとしたリスト形式になってないとダメ。
リスト形式なんかもヘルプになかったかな。

保守age

パソコンにインストールされている、昔のエクセル、ワードを、フロッピーにコピーすることってできないのでしょうか？
どなたか、詳しい方、お教えください･･。

>509
あなたは、輪レザーですか？
そんなことを書くのはやめてください

便乗質問気味なのですが、>>496を見てハタとひざを打ちまして、
当方の業務に活かすべく試行錯誤しております。が、どうしても
解決できない点がいくつかでてきましたので質問させてください。

Q. 配列数式では「C:C」のような範囲指定はできない？
{=SUM(IF($C$2:$C$100>=4,IF($C$2:$C$1000<5,1,)))}
だと、C2:C100の範囲で「4」「4.5」の数を集計できるのですが、
{=SUM(IF($C:$C>=4,IF($C:$C<5,1,)))}
とすると#NUM!となってしまいます（$を外してもだめでした）。
日々データを追加していきながら集計したいため、範囲を決め打ち
したくないのです。もちろん、C2:C100をC2:C10000などとすることは
考えたのですが、べつの問題（次に書きます）が発生して希望どおりの
動作にはなりませんでした。
最終行を見つけることのできる関数などあれば教えていただけると
幸いです。ヘルプなど見てるのですが、まだ発見できません。

>>511のつづきです。
すみません、いきなりですが訂正させてください。
×{=SUM(IF($C$2:$C$100>=4,IF($C$2:$C$1000<5,1,)))}
○{=SUM(IF($C$2:$C$100>=4,IF($C$2:$C$100<5,1,)))}
コピー＆ペースト時のミスです。○の式を入れているのですが#NUM!エラーに
なります。

さて、「C2:C10000」などと広い範囲を指定すると、集計したいデータに「0」が
あるためにうまくいかず、こまっています。
{=SUM(IF($C$2:$C$10000>=0,IF($C$2:$C$10000<1,1,)))}
として「0」と「0.5」の数を集計したいのですが、この式だと空白セルも「0」と
見做され、集計されてしまいます。ものすごく基本的なことかとは思いますが、
セルの書式設定を文字列にしたり数値にしたり、いろいろにしても空白セルを
数えないようにはできませんでした。ISBLANKを使おうとしてみたのですが、
これもうまくいきませんでした。なにかよい工夫があればご教示いただけると
ありがたく思います。

なお、説明が遅くなりましたが、0〜5段階で0.5刻みのデータを集計したいのです。
（「4.5〜4」が10個、「3.5〜3」が8個・・・という感じです。「0〜0.5」がうまくいきません）
自分でも試行錯誤しておりますが、アドバイスあればいただきたく。お願いします。

質問っす。
ウェブから､データをとって、それを今日の日付けの下に貼り付ける
ようなマクロをつくろうと思うんですけど、マクロ使い始めたばかりなので
よくわかりません。
誰か教えてください。

>>512

これじゃダメなんか？
=SUMPRODUCT((C2:C1000>=0)*(C2:C1000<=0.5))-COUNTBLANK(C2:C1000)

>>514さん
なるほど、ばっちりできました。まだまだ知らない関数が多くて勉強のし甲斐が
あります。ありがとうございました。取り急ぎお礼のみにて。感謝。

VLOOKUP関数で範囲内が空白セルの場合"０"と
表示されてしまいますが、空白セルとして
返すにはどうしたら良いでしょうか？

>>516
IF関数と組み合わせて、空白の場合は空白を返すようにする。

実はＩＦ関数と組み合わせてやっているのですが、
どうしたら良いのでしょうか？
詳しい計算式を教えてください

>>491
遅レス
http://www.microsoft.com/japan/office/suminaka/excel/
第３部　やってみようデータ分析
の、Ｉ．ピボットテーブルを操作してみよう
はどうでしょう。

>>518
あなたが具体的に書いてないので、詳しくも糞もないような気がするのだが、
IF関数の論理式に（VLOOKUPの検索値、仮にA1="")として、
真の場合""、偽の場合に計算させるじゃ、駄目？

訂正
検索値、仮にA1→検索列、仮にA列ならA1

>>520の意味がわからんが、
>>518=>>516はこれでできないか？

=IF(VLOOKUP(516の式)=0,"",VLOOKUP(516の式))

516-3655という電話番号を5163655にしたくて-を空白で置き換え、
516　3655にしたんですが、その後の空白のとり方が分かりません。
どなたかご存知でしょうか？

>>523
空白じゃなくて空白文字列""で置き換える。

>>524
（´-`）.｡oO（ "" は「空白文字列」 じゃなくて 「空文字列」ダ）

>>525
（ ´-`）.｡oO（あうあう、指摘アリガト）
（ ´-`）.｡oO（脊髄反射レスしたあと、微妙な違和感あったんですが...)

>>517さん
>>520さん
詳しく教えていただき、ありがとうございます。
でもいかんせん素人なのでうまく出来ません。
わかりにくいかもしれませんが、どういう状況で
どうしたいのかを出来るだけ詳しくお伝えしたいと思います。

シート『名簿』に"検索列"，"名前"，"ﾌﾘｶﾞﾅ"，"住所"，"電話番号"etc…，
という風に一覧表を作り、シート『ｶﾙﾃ』に一人ずつ引っ張るようにしているのです。
ちなみに名前欄の計算式は
=IF(A1,VLOOKUP(A1,名簿!$A$3:$T$300,2))
という風になっています。
名前，ﾌﾘｶﾞﾅは必須なので空白になることはないのですが、
他が空白になってしまう事があるのです。

長文の上、わかりにくいと思いますが、
どうか説明の方、よろしくお願いします。

>>527
いまいち状況つかめないけど、これでいけない？
=IF(A1="","",VLOOKUP(A1,名簿!$A$3:$T$300,2,FALSE))

ヘルプの「検索条件に基づいた値の計算について」あたりで、
IFワークシート関数について調べてください。

>>528
お返事ありがとうございます。
早速教えていただいた計算式の方、利用させていただきましたが
駄目でした。名前を空白したら"０"と表示されてしまいました。
ヘルプ機能を使ってみてもイマイチわかりませんでした。
すみません。

>>529
=IF(VLOOKUP(A1,名簿!$A$3:$T$300,2,FALSE)="","",VLOOKUP(A1,名簿!$A$3:$T$300,2,FALSE))
じゃ、こういうことかな。

＃ヘルプみてさっぱりわからないなら、入門書を一冊購入することを強く推奨するよ。
＃１から１０まで全部他人に聞くわけにはいかないでしょ？

>>529
=IF(VLOOKUP(A1,名簿!$A$3:$T$300,2,0)=0,"",VLOOKUP(A1,名簿!$A$3:$T$300,2,0))

いまいち、どのセルがどこを参照してるかわからないけど、
こういうこと？（522の書き直しをしてみた）
やってることは、Vlookup関数が0を返したら、空白をいれろって
してるんだけどね。

531さん
教えていただいた方法で試したところ
無事空白で返すことが出来ました。
ありがとうございました。
528さんもお世話になりました。
ありがとうございます。
これからも度々お邪魔すると思いますが、
よろしくお願いします。それでは失礼します。

教えてください！エクセル２０００で、ファイルを閉じようとするとフリー
ズしてしまいます。ワードでもなるのかと思いやってみましたが、フリーズ
しません。エクセルだけが閉じようとするとフリーズしてしまいます。
何か原因がわかる方教えてください。

グラフックウェザードを使ってグラフを作って
グラフの製作場所を新しいシートに指定しました
この時に他のシートからリンクを張りたいのですが
ハイパーリンクの何処を探してもリンクできそに
無いです

新しいシートのグラフを作った時に他のシートから
リンクするやり方を知ってる方がいたら教えて下さい

verは2000です

Excel2000で、すでに作成しているグラフのデータ範囲を変更するとき
Excel97ではshift+Ctrl+矢印でデータの最後まで範囲指定できたのですが
Excel2000では、できないのでしょうか？
データの範囲指定の状態ではEndキーや矢印が使えなく、大量のデータ範囲指定
をするときに困っています。

キーボードでの範囲指定の仕方を教えてください。

ちなみに新規グラフを作成するときは、Endキーと矢印で範囲指定できるのですが

おたずねします。
２０００を使ってるのですが、特定のブックを開いた時に
何秒かだけユーザーフォームを表示させるというのはでできるんでしょうか？

タイトルと注意書きを表示してすぐ消えるようにしたいんですが…
可能なら教えてください。

excelくれ。もってねーんだ。

>>536
（´−`）.｡oO（VBAでイベントプロシージャを使えばできます）

セル内の文字列を全部””でくくるにはどうしたらいいでしょう？
例えば、テレビ、ラジオー＞”テレビ”、”ラジオ”。

イベントプロシージャがいまいち？です…すみません。
例えばUserForm1を作ったとして、
「ブックを開いたときにuserform1を表示して３秒後に消す」
という命令をどこにどう書けばよいのでしょう？

よろしければお教え下さい。

>>540
http://homepage2.nifty.com/housaka/excel/bmpshow.txt

>541さん

ありがとうございます。
ビットマップを表示させるマクロとなってますが実行してもエラーがでます。
やり方がおかしいのでしょうか？

これと同じでUserForm1を表示させることはできますでしょうか？
重ね重ねすみません

http://cgi.members.interq.or.jp/leo/sinki/cgi-bin/photo/img-box/img20020312221011.png
こんな感じのカレンダーがあるんですが
月をかえるとその月の最後の日できっちり枠内に収まるように
するにはどうすればいいですか？
4月なら30日まででそのあとに合計の枠がくるようにしたいのです

色々と試行錯誤したんですがもうお手上げ
バージョンは2000です
よろしくお願いします

991015 10725 10760 10621 10627 0 0
991018 10537 10581 10499 10520 0 0
このように、データが並んでいるCSVファイルを、
配列変数に落とす上手い方法はありますか？

今は、OPEN で、一行一行読んでいますが…

>>543
俺だったら、３１日までの表にしといて、２８日までの月は
２９日から３１日までの列を非表示にするけどな。
あまった行を非表示にするやり方をよくする。

昨日はお世話になりました。
ＩＦ関数とVLOOKUP関数について質問させていただいた者です。
早速新たな質問をさせていただきます。
今作成中の一覧表は男女混合で五十音順に並べられており、
Ａ列に全体の番号が入力されているのですが、Ｂ列に”男性番号”、
Ｃ列に”女性番号”を表示するにはどうしたら良いでしょうか？
性別の区別はＦ列で『男性：1、女性：2』という風に入力してあります。
これまではオートフィルタを使って一つ一つ手入力していたのですが、
もし計算式で出来る良い方法があればよろしくお願いします。

>>539
表示形式を
"”"@"”"
とする。

しかし、””では囲んだことにならないから、“”にすることをお勧めするが。

>>544
スペースで区切られているのはCSVとは呼ばないと思うが、
=open.text()
でデータ形式を指定してワークシートとして開き、
その適当な範囲を配列変数にすればよいのではないか。

>>546
男性番号女性番号とは、それぞれの性での通し番号か？
全体の番号を単にその欄に表示するのか？
それとも”男性番号”という文字列を表示させたいのか？

>542

>542

UserForm1にこう

Private Sub UserForm_Activate()
　Dim Start
　　Start = Timer
　　Do While Timer < Start + 3
　　　 DoEvents
　　Loop
　　Unload Me
End Sub

ThisWorkbookにこう

Private Sub Workbook_Open()
　UserForm1.Show
End Sub

>546

どこかに通し番号を入力して
F列を基準にソート
F列に1が入力されているB列の範囲を選択
男性番号と入力後、Ctrlを押しながらEnterで確定
同様に女性番号も入力
通し番号でソートし直す

関数なら

=IF(F1=1,"男性番号","女性番号")

マクロについてなのですが、マクロの記録が出来ません。
ＯＳはＭＥで、エクセルはＸＰが入ってます。
セキュリティレベルを、中、低にしても「マクロを記録する」とやると
イルカに、記録できません。といわれてしまいます。なぜでしょうか？
ユーザーごとに分けてはいないので、管理者がどうこうではないと思います。
再起動してもやっぱり出来ませんでした。

ヘルプにも載ってないのでわかる方いらっしゃいましたらおねがいします

>>552
どのブックに記録できないの？
あと、「記録できません」と言われるタイミングは？
（マクロ記録ボタンを押した直後に言われるの？）

>>546
517だが、あなたの場合、質問が的確に状況説明できてないし、
とりあえず、初心者用のエクセルの解説書を購入したほうが
よいと思われる。

今回の質問も、IF関数のことと推測するが、A列の番号から
振り分けるんだろうけど、その番号の入力規則が判らないから
答えようがない。

お教えください。
「ちがうセル幅のセルが交じった表ってどうやってつくるんですか？」
セルの結合などをつかうんじゃなくて・・・。
表はつくれなくても印刷時に２つのシートやブックからケイセンごと表の
一部が飛んできて一枚の表になってプリントアウト、
そしてその表のセル幅がちがう（ようは上下でセルとセルの境目のラインがあって
ないってこと・・・、こんな風になりませんかね。教えてください！

>>554さん
説明不足の上返事が遅れてしまい、申し訳ありません。
Ａ列に全体の番号を表示した上で、
Ｂ列に"男性番号"、Ｃ列に"女性番号"を表示させたいのです。
表全体は五十音順に並べてあるので、男女とも上から
『1､2､3､…』という風に番号を表示させたいのですが…。
注文ばっかりで申し訳ありません。

>>555
それができればセル結合なんて機能は無かったはずだ

>>555
ごめん、わからん。

>>556
上でも指摘されているように、君の言ってることはよくわからんな。
“男性番号”、“女性番号”と言うのは何？
単にそういう文字列をB列とC列に入れたいのなら
B列は=IF(F1=1,"男性番号","")
C列は=IF(F1=2,"女性番号","")

君のやりたいことが、理解できないよ。
掲示板というのは、文字情報でやり取りするもんだから、
やりたいことを第三者に伝わるように、
サンプルで書くなり、的確な説明をしてくれないか？
>>516以降の君のやり取りを見ていると、回答が？付きばかりなのはわかってる？

>>556
次のような表に番号を入力したいとするなら
　Ａ列　　Ｂ列　　Ｃ列　　Ｄ列
　通番号 男番号 女番号 性別
1　 1 1 男
2　 2 1 女
3　 3 2 男
4　 4 3 男
5　 5 2 女
6　 6 3 女
7　 7 4 女
8　 8 4 男
9　 9 5 男
10　10 5 女

Ｂ列
=IF(D2="男",COUNT(B$1:B1)+1,"")
Ｃ列
=IF(D3="女",COUNT(C$1:C1)+1,"")
と入力してコピーすればよろし

すまん、スペースが半角なので無視されてしまったが
入力式は間違ってないぞ

>>556
それなら、F列を基準にソートして、
B列とC列にそれぞれ連番を入れていくしかないと思う。
関数で仮にできたとしても、あまりメリットもなさそう。

とりあえず、参考書１冊買うことを勧めるよ。
この板は人数少ないから、煽りもいないけど、
的確な質問をしないと、的を射た回答も出ないからね。

>550さん

求めていた通りにできました！
大変勉強になりました
ありがとうございます！

関数で他のシートを指定している時、
そのシート名を変更すると関数部分のシート名も同時に変更されてしまいますが、
変更されない方法はありますか？

>>556
回答してるみなさんが「何言ってるのかわからん」といってるのは、
Excel でのやりかたが分かんないというのではないよ。
紙に書く場合ですら分かんない、というぐらいの意味だよ。

まず、あなたが「今回の御仕事は、こうあるべきだ」って見本として
自分で紙に表を描いて御覧なさいな。

ていうか、氏名はどこへ？

あてずっぽうだけど、こんな感じかな？（CSV表記）

A, B, C, D, E, F
全体番号,　男性番号, 女性番号,　, , 性別
1,　, 1, , , 2
2, 1, , , , 1
3, 2, , , , 1
4, , 2, , , 2
…

ただし、
・ 全体番号、男性番号 および 女性番号は、それぞれ１からはじまる
　連番。

>>555
＞ 表はつくれなくても印刷時に２つのシートやブックからケイセンごと表の
＞ 一部が飛んできて一枚の表になってプリントアウト、

（´−`）.｡oO（なんで仕様に機能が増えてるんだろ？）

>>555
カメラ機能でやるとできるような気が
しますけど。。。

でも、作るのが面倒そうです。

>>553
速レスありがとうございます。言われるタイミングは、新しいマクロを記録のＯＫボタンを押した直後です。
ブックは作業中のブックです。フォームを使って、シートにボタンを作り、
そこにマクロの登録をしようとしてもできません。この場合はノーリアクションです。
マクロを登録、とすると、なにもならず通常画面に戻ります。

この質問は、既出なの？
放置されてるんで
回答求む。

>>568
ム板においで。

>>567
（´-`）.｡oO（Office XP は、よく分からんのだけれど）
Form を 創れるってことは、標準モジュールも作れるってことかなぁ。
標準モジュールが作れれば、なんだかうまくいくような気がするけど。

>>545
ありがとうございます

他の方法も聞きたいのでage
どうかひとつ>>543をお願いします

参照元のトレース矢印を複数のセルで同時に表示することって出来ますか？

遅くなって申し訳ありません。
"517"サン、"仕様書無しさん"、
私の説明が分かりにくかったため、大変ご迷惑をおかけしております。
とりあえずお二人がおっしゃられた様にイメージ図で
お伝えしたいと思います。
　Ａ　　　Ｂ　　　Ｃ　　　Ｄ　　Ｅ　　　Ｆ
1全体No　男性No　女性No　氏名　ﾌﾘｶﾞﾅ　 性別
2　１　　　１　　　　　　 孝　　ﾀｶｼ　　　１
3　２　　　２　　　　　　 宏　　ﾋﾛｼ　　　１
4　３　　　　　　　１　　清子　 ｷﾖｺ　　　２
5　４　　　３　　　　　　 淳　　ｱﾂｼ　　　１
6　５　　　　　　　２　　幸子　 ｻﾁｺ　　　２

簡単なモノで申し訳ないのですが、このような感じになります。
私の他にもたくさんの方がこのスレを利用しており、ご迷惑を
おかけしているとは思いますが、もうしばらくお付き合いください。
よろしくお願いします。

>>573
>>559氏の回答では不満ですか？
あなたのやりたいことと一致しているようですが。
自分宛のレスはちゃんと見ようよ。

>>574さんへ
おっしゃる通り>>559さんの解答通りで
やったら無事出来ました。
大変ご迷惑をおかけしました。
これからもよろしくお願いします。

散布図についてですが、個々の点に対する説明をテキストでワークシートから
参照するいい方法ありませんか？

Ｘ　Ｙ　コメント
１　３　Ａ
２　４　Ｂ
５　７　Ｖ
８　２　Ｋ

こんな感じでxｰyの散布図を作って、各点の横にコメントを書きたいのです。
数が多いのでテキストボックスでは処理し切れませんし。
よろしくお願いします。

http://www.geocities.co.jp/SiliconValley/5634/index.html

これをよく読め。

セルに対するデータ入力時、例えば括弧　（）　を入力後（この時点でカーソルは
入力文の最後尾にある）、括弧内にデータを入力しようとして←キーを押すと
カーソルが動くのではなく対象セルそのものが左のセルに移ってしまいます。

この現象を防ぐ方法はあるでしょうか。Shift+←とか色々試してみたのですが……

>>578
F2を押した後に←を押す。

質問です。教えて下さい。
日付データがA列にあります。H13.1.1〜H13.12.31まであり
各日付が複数ずつ有ります。
各日付を月ごとに、元のシートからコピーして別のシートにコピー
したいのですが、手動でフィルタをかけてコピーではなくて、マクロで
自動で行いたいのです。例えばボタンをつくり1月分コピー、2月分コピー
などを行いたいのですが、どなたかご教授ください。
よろしくお願いします。

>>578
セルの中をダブルクリックする。

>>580

日付データは文字列？それともシリアル？

582さん

日付はシリアル値です。

教えてください。

印字したとき
一連のセル内にかかれている文字（文字列）の
頭と尻をぞろりとそろえることはできますか？

教えてください　その2

カルク表からｸﾞﾗﾌを作成して基本ファイルを作成します。
この元ファイルを基本フォーマットとしてコピーして別の数字を
入力したときに、ｸﾞﾗﾌのリンク元がもともとの基本ファイルとなってしまいます。
そうではなくて、コピーした先の表としたいのですが
どうやったらよいでしょう？

教えてください　その3

1.一連のセル内の真・偽を判断して真のみのセルをカウントする。
2.一連のセル内の真・偽を判断して真のみの文字を赤くする。

どうやったらいいでしょう？

教えてください。
averageを求めるとき、0のあるセルを計算に含めないようにするには
どうしたらいいでしょう？

>>585
リンクを変更する。

>588
具体的にどのようにするのでしょう？
表をクリックしてもリンク先が見えません。

http://www.2xes.com/

>587
0を書かない(空白にする)ではだめ？

>>591
数値は他のセルで計算したものを、=c12とかでいれているのです。

>591
実は私も同じ事をしたいのです。
ゼロの数字のみを抜き出し、カウントできればマイナスすることができますよね。

>>592
=IF(C12=0,"",C12)ってな感じ？

>>587
スマートなやり方ではないが、countifを使って0の入るセルを計算。
後は、関数を使わずに合計/（セル数−countifの結果）で平均。

=c12　を　=IF(c12=0,"",c12)　にしたらどうでしょう？
とりあえずできます。

「もしc12が0だったら空白にする」って意味です。

>>594>>595>>596
皆さまありがとうございます。
解決しました。
countifやif使えば良かったんですね。
たくさんの解答どうもでした。

お尋ねします。

Web上に記入シートを作って、書き込んだ内容を メールすると同時に
Excelに記入内容を移し、データベースを作成したいと考えています。
この場合、EXCELのVBA機能を使ったほうがよいのか、もしくはPerlで
スクリプトを書いて処理した方がよいのかわかりません。
記入内容は数行の簡単なものです。 メール配信は同時に10ッ個所ほどです。

また、上記のような処理を行うのに、よい参考書、ページなどあればご教授
ください。
＃Web データベース Excelがキーワードでは数万件hitしてしまいます

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

今父に
エクセルの入力作業
任されたんですけど
4.0といれたり6.0と入れたいんですけど
入力すると自動的に
4や6になってしまいます。
とても初歩的なことだと思うのですが
忙しいのでサイトを探すわけにもいきません
おねぎします

>599
セルの書式設定→分類を"数値"に→小数点以下の桁数を"１"にする。

>>600
600さんありがとうございます
でも、セルの書式設定ってどこにあるんでしょうか？
ホントエクセルなんてちょっとしか触ったことないんで
さっぱりなんです。
すいません

セルを選択してから
ツールバーの「書式」または　右クリックすればあるよ。

>>598
イントラじゃなしに、インターネットってこと？
でしたら、擦れ違い、イタチ飼い。
WebProg 板へ ｺﾞｰｺﾞｰ

>>603
イントラです。 システムはWin2000上で動かします。
エクセルのVBA機能を使ってもできそうなのですが、良い参考書とか
Webが見つからないんです…何か良いものをご紹介くだせい。

セルに「赤」と入力したら、セルを赤で塗りつぶしたいのです。
「条件付書式」で可能なのはわかるのですが、
条件が３つまでしか設定できないので困っています。
４色に塗りたいので、他に関数やマクロなど使用して
設定できる方法はありませんでしょうか？

セルをクリックするとメッセージがでるようにしたいのですが、
「挿入」「コメント」ではなく、Officeアシスタント（いるかなど）が
メッセージを出してくれるものがありました。
これはどのように設定するのでしょうか？またこの機能で、
Officeアシスタントを非表示にすると、セルの右下にメッセージが
表示されるようになります。「コメント」ですと、
セルの右上にマークが付いてしまうので、是非上記機能を
使用したいのですが、設定の方法がわかりません。
よろしくお願いいたします。

>>604
IIS とか Apache とか使うんでしょ。それなのに
DB の「ファイル」型式がいきなり（GUI バリバリの）
Excel 型式じゃあ、メリット激減です。

もっとスタンダードな Web + DB な方法を導入するか、
Excel ファイルを 単に共有するだけにするか、
やりやすいほうを選ぶのがよいでしょう。

>605

赤etc.のセルをマウスで選択してからやる方法。どうでしょ？

Sub セルの色分け()

Dim cell

For Each cell In Selection

If cell.Value = "赤" Then
cell.Interior.ColorIndex = 3

ElseIf cell.Value = "青" Then
cell.Interior.ColorIndex = 41

ElseIf cell.Value = "黄" Then
cell.Interior.ColorIndex = 36

ElseIf cell.Value = "緑" Then
cell.Interior.ColorIndex = 4

End If
Next

MsgBox "終了しました"

End Sub

>605

608とほとんど同じだがRGBで適当な色付けをしてみる。
1.必要なシートだけならで良いなら、シートのタブを右クリック
2.コードの表示をクリック
3.あいてる所にコピペ

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim r As Range
　For Each r In Target
　　Select Case r.Text
　　Case "赤"
　　　r.Interior.Color = RGB(255, 70, 60)
　　Case "青"
　　　r.Interior.Color = RGB(40, 60, 255)
　　Case "黄"
　　　r.Interior.Color = RGB(255, 255, 60)
　　Case "緑"
　　　r.Interior.Color = RGB(60, 255, 60)
　　End Select
　Next r
End Sub

ブック内の全シートに適用したいなら、VBE画面のThisWorkbookを開き
あいてる所にコピペ

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Dim r As Range
　For Each r In Target
　　Select Case r.Text
　　Case "赤"
　　　r.Interior.Color = RGB(255, 70, 60)
　　Case "青"
　　　r.Interior.Color = RGB(40, 60, 255)
　　Case "黄"
　　　r.Interior.Color = RGB(255, 255, 60)
　　Case "緑"
　　　r.Interior.Color = RGB(60, 255, 60)
　　End Select
　Next r
End Sub

602さん有難うございました（＾＾）

>>607
ありがとうございます。エクセルは表示ツールとして使うことにして、
後はこのへん　ttp://www.i-say.net/cgi/listview.php3?category=11
のをモディファイして使うことにしました。

はじめまして初心者質問とは思うんですが
A1-B1=C1としてC1が「0」になる時は
「±0」と表示させたいのですが、やり方がわかりません。
IFを使うんじゃないかとは思って、色々試してみはしたんですが・・・
どうかお助けください。

>>612
表示形式のユーザー定義で出来そうな気もするが・・・

>>613
どのようにしたらいいんでしょうか？

文字列になってしまうけど、表示だけは出来る。
=IF(A1-B1=0,"±0",A1-B1)

>>615
ありがとございます！
これで十分です！助かりました！！

マクロが記憶できません！と言うのがでてくるんですが、
何でかわかりません、教えてください
おねがいします

>>612
表示形式は、
+の時の形式;-の時の形式;0の時の形式;文字列の時の形式
のように、４つの形式をセミコロンで区切って指定する。
+や-のときにどう表示したいかに依るが、例えば
#;#;"±0"
でできる。
詳しくは、セル書式の設定のところでヘルプ。

>>618
さんくーす。どうもありがとうございます。

『_ * +0;_ * -0;_ * "±0"』って感じでいいんですよね。

でもこれだと全角と半角がおりまざって・・・ヽ(´Д`；)ﾉ ｱｩｱ・・・

>>619
わかった！（ﾟ∀ﾟ）

『"＋"0;"−"0;"±0"』でよかったのか！

>>609
横から質問すいません。
上のマクロを入れて赤とセルに入力するとたしかに色が
赤になるのですが、赤という文字をDELETEしても赤い色
だけは残ってしまいます。文字を消したらセルの色も消える
ようにする方法はありますでしょうか？

>608,609
かなり参考＆助かりました！
丁寧なお答えありがとうございました。感謝！！！

609さんではないが
>>621
↓を付け加えたらいいかも。

Case ""
　　　 r.Interior.ColorIndex = xlNone

郵便番号の検索ってどれをダウンロードしたらいいの？
地域別で全部入れなくてはならないのでしょうか？
その後どうしたらいいの？
滅多に使わないものなのでさっぱり分らず非常に困っています。
宜しくお願いします

コード番号などで指定してやると
定型フォーマットの中の複数箇所に
決まった文字や数字などが自動的に流し込まれる

・・・というものを作りたいのですが
どういった手を使うのがいいでしょう。
ヒントや手がかりだけでもいただけたらがんばって勉強します。

3120415　とかいう数値を上の桁から消していく事ってできますか？
例えば
3120415　を　120415　にしたい時はどうしたらいいんでしょうか。
どうしても大量のデータを処理しなければならないので、、。
わかる方ぜひお願いします。

>>625
コード番号の種類が少ないのなら、各欄に
=if(a1=1,"男",if(a1=2,"女","おかま"))
のように入れる。
多いのなら、別のところに表を作り、=vlookup()などで参照。

すんません、自己解決しました。
RIGHT使えば良かったんですね、鬱だ詩嚢。

>>626
長さが７文字中の右６文字に決まっているのなら、
=right(a1,6)
左の一文字を除くのなら、
=mid(a1,2,len(a1)-1)

エクセルとワードって割れ物でもバレない？

EXCELで縦と横の変換って出来ますか？

>>625
VLOOKUP関数じゃだめなの？

>>632
ｽﾏｿ　６２７で回答でてるね。

>627，
ありがとうございます。
コード番号は1000くらいあります。

あと実は「流し込む」ってところもポイントなんです。
定型フォーマットの中に
文字数が多かったり少なかったりするものを
どんどん並べていくというか…
ちょうど、２ちゃんのスレッドが書き込みでどんどん
伸びていくようなイメージです。

あと、上下左右に位置の微調整がかけられることと、
できればオートシェイプも登録しておいて返せるようにしたいんです。

ムチャクチャ大変なことをいってるような気がしてきました…

ごめんなさい、一行目は>627>632です

>>631
入れ替えたい領域を選択してコピー
形式を選択して貼り付けで
行列を入れ替えるを選んで貼り付け

>>634

> あと実は「流し込む」ってところもポイントなんです。
よく分からない。
「流し込む」は「入力する」や「読み込む」とは違う特別な動作なのか？
シートを３枚用意して、
１枚目にコードを入力、２枚目にコードとデータの一覧表をおいて、
３枚目に =vlookup(Sheet1!a1, Sheet2!$a$1,$z$1000, n) (n=1,2,3...)を並べておくというので
何がまずいのか。

> あと、上下左右に位置の微調整がかけられることと、
> できればオートシェイプも登録しておいて返せるようにしたいんです。
位置の微調整をかけるとは何のことか？
データの内容によってA1に入力したりB2に入力したりする？
オートシェイプを返すとは？
結果によって、元のコードや、コードとデータの一覧表が変化する？

あるセルに決まった値（文字列）を入力したいのですが、
プルダウンメニューみたいな感じにして選ぶだけで入力できるようには
できますか？
いちいち入力するのがめんどくさいので。

具体例はこういうことです。
Ｄ３セルをクリックするとプルダウンメニューが出て、
「母」、「父」、「弟」、「兄」、「妹」、「姉」の６個の選択肢の中から
一つを選ぶと（例えば「母」）、Ｄ３セルの値が選んだ文字列（「母」）になる。

>>638ですが、ひょっとしてマクロだとかＶＢＡだとか使わないとダメなんすか？

>>639
　いちばん簡単なのは入力規則。

>>640
入力規則で設定しても結局、セルに値を文字入力しないとダメですよね？
選択肢を選ぶだけっていう入力スタイルにしたいのですが。。。

>>638
バージョンが分からないけど多分ヘルプで「リストから入力」とかすれば
出てくると思う。どこかに「母、父…」とか書いておくこと
（同一ワークシートが無難）。
あとは、D3セルをアクティブにして、データ→入力規則でリストてのを
探す。詳細はヘルプで見る方がいいと思う。

>638
>642

入力規則で入力値の種類をリストにし、元の値の所に

母,父,弟,兄,妹,姉

とカンマで区切って入れるだけ。
元リストはセルに書かなくてもできる。

>>643
いや、書かなくてもできるのは分かっているけど、
わかりやすいかなあと思って。
でも、そっちで入力する方がわかりやすかったかもしれない、
後で考えてみると。

みなさまありがとうございます。
最高に思った通りにできました。

やっぱり、ついでに聞いておきたいのですが、別のエクセルファイルにある一覧から
リストを持って来るにはどうすればいいのでしょうか？
教わったやり方だと同じシートにあるデータしか選択リストとして選べません。

>>646
フォームツールバーを表示してコンボボックスを選べばよし。

パソコン初心者のカテゴリから紹介され来ました。
よろしくお願いします。
エクセルで、マクロしてる方、いないでしょうか。
マクロ時にでる、アイコン消しちゃって、
表示、ツールバー、ＶＢＡしても「相対参照」ボタンがなくて。
初期化しても、出てこない。てんてこまい。
ご存知の方、アドバイス下さい。

648、いじっていたら解決できました。
お邪魔しました。

>>649
自己解決おめでとう
一応言っておくと、マクロの記録中にだけ、
ツールバーの右クリックで「記録終了」の
ツールバーのメニューがでてくる。
この仕様にはかなり疑問。

>>625
AccessかExcelかの際になりそうな問題だな。
Accessの方が簡単にできるけど、敷居がかなり高いからな。

詳細な住所録リストがあって、それを利用して別シートに
抽出したデータ一覧作るのはどうすればいいですか？
例えば「横浜市」を選ぶと、住所が横浜市の人だけ抜き出して
名前と電話番号と住所だけをピックアップして簡易一覧にするとか。

あとついでに全データの住所部分（「市」の部分のセル）を参照して、
「市」の候補を簡単に選べるようにしたいです。
>>642や>>647だと「横浜市」がたくさんあれば全部候補に出ちゃったりします。
ユニークなリストって言う方がわかりやすいかな？

>>652の下の方の質問は、要はオートフィルターを使ったときの選択肢みたいにしたいわけです。
オートフィルターだと表の形式は元表と同じ形式なので詳細データだと冗長になります。
別のシートに必要データだけを抽出した簡易一覧を作りたいのです。

>>652
オートフィルタを使って「横浜市」の条件に一致する条件で抜き出して
コピペ。

後半部分に関しては意味不明。

>>652
下の方は住所部分を都道府県、市町村、住所1、住所2等にセルごとに分けて
市町村の列をオートフィルタすればよいだけでは？
そうなってたらごめん。文章をいまいち把握できなかったもので。

上の方はそれを元にオートフィルタの抽出結果を別シートにコピーするマクロを書けば簡単だと思うけど

例えば印刷時に縦に20ページ分の表（１ページ分に30行、全体で20×30=600行）が有った時、
うしろ19ページ分（570行）が不要になったため 不要部分の行をまとめて「選択」→「削除」した場合、
その後も右端のスクロールバーは600行までの範囲をカバーしています。
なのでこの時点で（スクロールバーを使って）1ページ目の最後を表示したいと思った場合に非常に不便です。

こういう場合、スクロールバーを有効範囲内のみカバーするように設定し直す事は可能でしょうか。

すみません、基本的な事言うの忘れてましたが、５０過ぎのおばちゃんが
使うんです。

元データの詳細住所録シートを意識せず、別シートで「市」の選択肢一覧から選んで、
該当者の簡易データ一覧（元データの一部を抜粋）を表示させたいんです。
住所はちゃんと「市」の部分でひとつのセルになってます。

というわけで>>654さんのやり方ではおばちゃんには無理です。
また>>655さんの場合、元の表と同じ形式（列の種類とか）なので冗長です。
氏名、電話、住所くらいの表示で十分なのです。
（元シートには勤務先とか家族構成とかいろいろ入ってます。）

>>657
だから、オートフィルタの抽出結果から氏名、電話、住所の列だけをコピーして
他のシートに貼り付けるマクロ作れば良しということ。

>>658
ありがとうございます。
マクロって作り方が解らないのでその単語は無視してました。（笑
やっぱり避けてとおれませんね。

>>657
おばちゃんユーザのためには、前の工程の人が
粉骨砕身してあげなきゃ。
Access でやれば、SQLの文ひとつ（一行）で済んじゃうし。

セルに文字を打つとき、一度打った文字列の
最初の部分だけを打ちたいのに全部出てくるのを
どうやったら最初の部分だけ選択できるのか
わからないのですが。。。

たとえば、「電話番号」と打った後、別のセルで
「電」と打ちたくて、「でん」と打って変換すると
「電」と出るのでエンターキーを押すと、
「電話番号」と出てしまうのを、「電」で止めたいのです。
一旦出しておいて「話番号」を消してますが面倒ですので。

>661

ツール-オプション-編集タブのオートコンプリートを使用するのチェックを外せ

>>580ですが、
どなたか判りませんか〜。お願いします。

教えて下さい！お願いします
エクセルでセルに文字を入力した後Enter押すと
自動的に色塗りつぶしになるんです。
解除するにはどうしたら良いでしょうか？

「0001」って入力すると、ただの「1」の表示になるんだが
どこを設定すればいいの？

どなたか教えてください
ｴｸｾﾙでｺﾋﾟｰしようとすると、ﾌﾘｰｽﾞしてしまうんです。
考えられる原因はなんでしょうか？
今日、ｲｷﾅﾘそうなりました。

'0001
と入れるか文字列あつかいにする。

>>664さんと同じく
教えて下さい！お願いします
エクセルでセルに文字を入力した後Enter押すと
自動的に色塗りつぶしになるんです。
解除するにはどうしたら良いでしょうか？

ツールの条件付書式がかかってるんじゃないですか？

基本的なことで恐縮ですが，Excel2002(OSはXP)で数式の
入っているセルの左上の角に小さな三角印が付いて，お節
介な注意マークが出るのを解除したいのです。
どなたか方法を教えて下さい。

コメントですね？
削除でよければ右クリックから消すのが早いです。

回答ありがとうございます。
でもコメントではなくて，そのセルの左側に
黄色い！マークが出るのです。数字の入力中に
目障りでしょうがないんです。

>>663
「マクロで自動でやりたいのです」って仰ってますが、
できますよ。やってみてください。

672です。
誰か僕の疑問にも答えて下さい。

>>673
どうにかやってみます。

>>669
どうやって解除したら良いですか？

>>580
５８０氏
やり方として
ユーザーフォームを作る。もちろんこのユーザーフォーム上に１月〜１２月までに対応したボタンを作る。
ユーザーフォーム上のこれらのボタンに対応したイベントプログラムを書く。
イベントプログラムは、マクロの記録作成で１つやると後は、書く月別に書くよりラクチンである。
以上、

ユーザーフォームって何ですかとか聞かないように
まず、ＥＸＣＥＬのＶＢＡ解説書を買ってきてやってみるか学校に言って教えてもらうこと
ユーザーフォーム作成とかは、この板にはそぐわないと思う

再び672です。
お願いだから僕を無視しないで。

>>677
677氏
ありがとうございます。頑張って勉強してやってみます。
ついついこの板の皆さんに頼ってしまいます。スマソです。
解説書とか買う気はあるのですがどの本がいいかよく判らないもんで・・・。
色々探して見ます。いまから逝ってきます。

>>678
エラーチェックオプションからバックグラウンドでエラーチェックを行うのチェックをはずせ
http://ascii24.com/news/i/soft/article/2001/04/02/624820-003.html

>668
ツールバーの[書式]→[条件付書式設定]を見てみてください。
>672
わからない。ごめんね。

672です。
ご親切にありがとうございました。
目障りなものがなくなり，快適な入力ができます。
でも，これってみんな気にならないのかな〜

>>681
1つ目が「セルの値が」と、隣が「次の間の値」と
条件が真のとき〜が「書式が設定されていません」になっています

エクセルが急に立ち上がらなくなっってしまいました。起動画面で止まってしまいます。
納期前で、過去ログ見る時間がありません。
誰か助けて！！
さっきまで正常に動いていて、印刷もしてました。
思い当たることは、直前にｅｍを使って図を張り付けたということです。

>668
では。ちがったようです、、ごめんね。

>>668
どういたしまして
助けてくれようとしただけでも有り難いです。

>>668
Alt＋F11の後「ThisWorkbook」という項目をダブルクリックしたときに
右側のウィンドウに何かマクロが記入されてたりしない？

>>687
「ThisWorkbook」はどこを見ればわかりますか？

Office97にてエクセルで作ったファイルをエクスプローラから開くと「同じ名前のファイルが開かれています・・・」という警告がでます。
OKを押せば普通に編集できますが、毎回これが出るのはけっこううっとうしいです。
Excelを起動した状態でファイルをダブルクリックする分には警告は出てきません。
Excelを起動してから「ファイルを開く」でやっても警告は出ません。
当然、同じ名前のファイルが他にもあるということもありません。

いったいなにが原因かわかりますでしょうか？
Win2kにOffice97&Word98。
OSごと再インストールしたばかりなので修正プログラムなどはまだ当てていません。
パッチ当てれば治りますかね？
帰ってから試してみます。

>>689
こんなページ発見
http://www.scc-kk.co.jp/papa/q_a/q402.htm
バグっぽいですね。

>690
おおっ！ビンゴですね！
やっぱバグかぁ。今更直さないだろうなぁ。
情報どもです。

コンボボックスに以下のような日付データをリストとして指定すると
ボックス内の表示がシリアル値に変わってしまいます。
この値の埋め込み先でも同様で、セルの書式設定を変更しても表示が日付に戻りません。
シリアル値表示を日付表示に変えるにはどうしたらよいですか？よろしくお願いします。
37332.292025463　＜3/17を選択するとボックスの表示はこうなる。

2002/3/17
2002/3/16
2002/3/14
2002/3/10
2002/3/8

excel 2000, win98seです。

692ですが、もうひとつ教えてください.
ひとつのワークシートに次のように時系列データが入力されています。

11行目以降に最新値が11行目で最古値が最下行にある。
データ更新すると11行目に最新値が挿入され、既存データ全体が一行さがる。
1-10行でデータの計算をする式を記述する。
ここで最新値（11行）を常に参照するように式を記述するにはどうしたらよいですか？
例えば、11行より上にあるセルに
= $A$11
と記述しても、一行挿入後は
= $A$12
となって、下向きにひきずられていくのですが。

マクロを使って最新値が上に来るようにデータを配置したのですが、
普通、時系列データを扱う時はどちら向きに並べたほうがいいですか？
よろしくお願いします。

初心者で申し訳無いです。
大量のシートの数値を１枚にコピーしたいのですが、可能でしょうか？
集計するシートは縦１行横３０行です。
それを１枚のシートに縦枚数分に出来ますでしょうか？
どなたかお力を…。

>>580

遊んでみたぞ。
オートフィルタで抽出するんで、1行目はタイトル項目である事。
A列は日付データであり、1年分である事。
セルA2のデータを元に対象年を抽出している。

Sub test()
Dim tYear, tMonth, stDay, endDay
Dim Ws As Worksheet, copyWs As Worksheet

　Set Ws = ThisWorkbook.ActiveSheet
　If Not IsDate(Ws.Range("A2")) Then Exit Sub

　Ws.AutoFilterMode = False
　Ws.UsedRange.AutoFilter

　tYear = Year(Ws.Range("A2"))

　For tMonth = 1 To 12
　　stDay = Format(DateSerial(tYear, tMonth, 1), "yyyy/m/d")
　　endDay = Format(DateSerial(tYear, tMonth + 1, 0), "yyyy/m/d")
　　Ws.Range("A1").AutoFilter 1, ">=" & stDay, xlAnd, "<=" & endDay
　　Ws.Range("A1").CurrentRegion.Copy
　　Set copyWs = Worksheets.Add(after:=ActiveSheet)
　　On Error Resume Next
　　copyWs.Name = Format(stDay, "ge.mm")
　　copyWs.Range("A1").PasteSpecial (xlPasteAll)
　　Application.CutCopyMode = False
　Next tMonth

End Sub

>>692

こうかね？

Private Sub ComboBox1_Change()
　ComboBox1.Text = Format(ComboBox1.Text, "yyyy/m/d")
End Sub

>>693

A1に　= $A$11　を入れてるとして、 代りに

=OFFSET(A1,10,0)

でどーよ。

>>694

意味がわからん。

大量のシートの数値？を１枚にコピー？したい？
集計するシートは縦１行？横３０行？です。

複数のシートに分かれているデータを１枚のシートにまとめたい、か？

A・B・C・・・・が列
1・2・3・・・・・が行

>>697さん
　すいません。そうです。
　複数のシートにそれぞれ1行60列程度のデータがあるのです。
　それを1枚のシートにまとめたいのです。。

>>698

こうか？

Sub Test()
Dim copyWs As Worksheet, ws As Worksheet, LRow As Long
　Set copyWs = Worksheets.Add
　LRow = copyWs.Range("A65536").End(xlUp).Row
　For Each ws In Worksheets
　　　If ws.Name <> copyWs.Name Then
　　　　 ws.Range("1:1").Copy
　　　　 copyWs.Range("A" & LRow).PasteSpecial (xlPasteAll)
　　　　 Application.CutCopyMode = False
　　　　 LRow = LRow + 1
　　　End If
　Next ws
End Sub

できました！！！
ありがとう御座いました!!!!

ｈｔｍｌの外部データを自動的に取り込む方法を教えてください。

今は方法がわからないので
ｈｔｍｌファイルを開く、全て選択、コピー
エクセルのファイルを開く、A1セルを選択、形式を選択して貼り付け、ｈｔｍｌを選択

といった方法で行っています。
どなたかよろしくお願い致します。

>>684
再インストしたほうが早いかも。
お忙しいでしょうけど・・・。

699
2行目データを1枚にだったり、1列目のデータ1枚だったりするときにはどこをかえたらイイですか？便乗質問でｽﾏｿ

>>701
(；´д｀).｡oO(　大変だよ　）
HTML の 頁をそのまま （Internet Explorer で） マウスなどを
使って手動でコピれば、シートに貼り付けることは可能。
更新も、キー操作 （F5とか Ctrl+R とか）や マクロで
なんとかなりそう。

しかし、HTML にはデータ項目の定義が含まれていないのです。
したがって、マクロなどで上記「コピー」の部分を自動化するためには、
「どのタグから数えて何番目の文字が目的の文字列なのか」と
いうようなデータ並びの書式を自分で （マクロで） 定義しなきゃならない。
もとの HTML データの書式が （見栄え向上のために） ときおり変更される
のであれば、その度に自前の書式定義を （また考え直しながら）
書き替えなければならないので、けっこう大変。

しかも、URL すらときどき変わったりすると、劇的に落ち込みます
　 （ ´Д⊂ヽｳｴｰﾝ

>>695
エクセルさん。有難うございます。
まさに私が求めていたものです。いままでのモヤモヤが吹っ飛びました。
何度もお願いした私に回答して頂きスマソです。どうもでしたm（_ _）m。

今１００行程データが有るのですが、それをＡ４一枚の紙に一行ずつ印刷するにはどうすればいいですか？

>>706
（´-`）.｡oO（　一行ごとに改頁　）

＞７０７
それのやり方がわからないんです。
改ページプレビューで一つずつ手作業でやらないと駄目ですか？（;´д｀）

>>701
excel2000ならウェブクエリで取り込めると思いますが、表だけとか、全体とか指定して

>>706
印刷プレビュ→改ページプレビューで線をドラッグして1ページだけ
設定。あとは自動的になる。

>>696
ありがとうございました。


Private Sub ComboBox1_Change()
ComboBox1.Text = Format(ComboBox1.Text, "yyyy/mm/dd")
End Sub
で解決しました.。　　mm/ddにしないとダメでした.。

>>693
OFFSET、勉強になりました.。

シートに数値が埋まっていて、1列ずつどの数値が何個あるのかカウントしたいのですが、
なにかよい方法は無いでしょうか？
ソート掛けて数えてるのが苦痛な量で…。
よろしくお願いします

>>712
COUNTIF関数じゃダメなの？
例：A列の数値が2であるセルの個数
=COUNTIF(A:A,2)

>>704
ありがとうございます。

URL指定するのではなくあらかじめ落としてあるもので行おうと思っています。
それもある程度、データの並びも決まっていてファイル名も001.ｈｔｍ〜100.ｈｔｍなどと簡単なものです。
001.ｈｔｍを1というシートにといった具合に何番目の文字とかではなく
ページごと丸々貼り付けたいだけなのです。

>>709
ウェブクエリというものもいじっていたら出てきましたが
これをマクロで定義すれば自動化が可能ということですか？

マクロを使ってやってみたのですがなにから始めればいいか分かりません。
知恵をお貸しください。

>707,710
ありがとうございました。

=IF(A1=1,B1,IF（A2=1,B2,IF（A3=1,B3,””）））

といった具合にIFを使うとき何個まで使うことができますか？

>>716
イルカにきけば分かるだろ。

最大 7 つまでの IF 関数を真の場合、偽の場合としてネストすることにより、
より複雑なテストを行うことができます。

>703

2行目？大体解りそうなもんじゃないか？
ws.Range("1:1").Copy　を　ws.Range("2:2").Copy

1列目？意味が解らんけど、全部まとめる例。
ただし、元データのA列の使用行数がB列以降の使用行数より
少ないと１枚にまとめる際にデータが欠ける。

Sub Test2()
Dim copyWs As Worksheet, ws As Worksheet, LRow As Long
　Set copyWs = Worksheets.Add
　LRow = copyWs.Range("A65536").End(xlUp).Row
　For Each ws In Worksheets
　　　If ws.Name <> copyWs.Name Then
　　　　 ws.UsedRange.Copy
　　　　 copyWs.Range("A" & LRow).PasteSpecial (xlPasteAll)
　　　　 Application.CutCopyMode = False
　　　　 LRow = copyWs.Range("A65536").End(xlUp).Row + 1
　　　End If
　Next ws
End Sub

誘導されてきました。

excelで行を「区切り位置」で区切ったものを、
再度結合させるのってどうやるんでしたっけ？

ごめん、列の結合だった。
解決しました。

質問です。
A行に123 B行に456 C行に789
といれてTXT出力したときに
123456789
とするにはどうすればいいんでしょうか？
普通にやったら
123 456 789
ってなってしまいます。

>>721
テキストエディタでtab文字を空欄で置換するとか。

>>721
別のシートに、
=Sheet1!A1&Sheet1!B1&Sheet1!C1
のように入れて、そのシートをテキスト形式で保存。

質問です。。

エクセルでよく使うマクロをｍｙマクロとしてコレクションしたいのです。
ここで作ったマクロが保存されるのって確かＢｏｏｋごとでしたよね？
Ｂｏｏｏｋごとではなくいつでも即使えるようにマクロをためておくことはできますか？

>>724 personal.xlsに保存・・・

EXCELでC4のセルに書かれた2002/03/21, 07:00と言う日時データを
協定世界時(東京の時間より９時間遅い）に修正して曜日を挿入して
2002/03/20,22:00 水曜日
とD5等の他のセルに出力させることはできるでしょうか？　

ヤフーオークションで、凄い人気商品、発見！！！

「高性能ビデオスタビライザー」↓
http://user.auctions.yahoo.co.jp/jp/user/NEO_UURONNTYA

ヤフーオークション内では、現在、このオークション
の話題で、持ちきりです。

>>726
=C4-(1/24*9)
でそのセルの書式設定＞表示形式タブ＞ユーザー定義に「yyyy/mm/dd ,h:mm aaa"曜日"」
でとりあえず出来たけど。

あ、時間が常に二桁表示だと「yyyy/mm/dd ,hh:mm aaa"曜日"」だね

>>728
教えていただいた通りにやっても#VALUE!になってしまうのですけど、
Ｃ４のデータは７２６に書いた通りに入れた状態でもきちんと表示されるのでしょうか？

Win２ｋでオフィス９７つかってます。
エクセルファイルを開くと

「'*.xls'と同じ名前のﾌｧｲﾙが既に開かれています。・・・
２つめのﾌｧｲﾙを開く場合は、一方のﾌｧｲﾙを閉じるか、またはいずれかのﾌｧｲﾙの名前を変更してください。」

などと出ます。何が悪いのでしょう？
administrａtorでインストールしなかったからかな？

http://www.users.gr.jp/ml/archive/windows/Windows64.asp
ここの
[Windows:06418] Windows2000 でOffice97
あたりが同一の症状みたいだけど...解決したのかどうかわからないな（ｗ。
SRは最新のモノをあててる？

>>730
色々と試したのですが、やっぱり駄目です。
2002/03/21 07:00　とすると大丈夫なのですけど、
2002/03/21, 07:00 とするとどうしても駄目です。
回避方法を知っている人がいたら教えてください。

折れ線グラフに関する質問です｡
折れ線グラフを作成した後に、数値軸と項目軸を逆に表示させる（入れ替える）ことは可能でしょうか?

>>733
７３０ではないんだけど、「yyyy/mm/dd ","hh:mm aaa"曜日"」ではどう？

・・・どう？って聞く前にまず確認しろよ＞自分

>>733
Excel & Windows は , を日時の区切りとして解釈する仕様がなく、データが日時では
なく文字列として処理されてるから。これはいくらごねてもどうしようもない。
普通はスペース区切りだと思う。
どうしても残したければ、式で , を削除したデータを別セルに書き出して
そのセルの表示形式を操作すればいい。

Ａ列に日付を,Ｂ列に投資損益を記入しといて
Ｃ列にそれぞれの投資ごとの複利の実質利回りを年率で表示する式はどう書くNO?

>>735
駄目でした。考えてくださってありがとう。

>>736
表示形式の操作をやろうと色々と検索をしてみたのですけど、どうしても分かりません。
やりかたを教えていただけないでしょうか？
とっかかりだけでも結構です。

>738

2002/03/21, 07:00　が固定長なら >728さんの
例を修正して、

=REPLACE(C4,11,1,"")-(1/24*9)

で良いのでは？

>>739
やってみたのですが、#VALUE!になってしまいました。
-(1/24*9)の部分を削除すると37326.1069 4444となってしまいます。

日付と時刻は固定長です。

>>740
事故レスです。
出来ました。ありがとうございました。

>>734
データの性質にも寄るが、俺がこのスレの>>211で解説しているのを見よ。

>>737
=RATE(期間, 定期支払額, 現在価値, 将来価値, 支払期日, 推定値)
詳しくはヘルプを見よ。

おねがいします〜。　
初歩的なことと思うので恥ずかしいのですが､､､
過去レス読んでもよく分かんないので
質問させていただきます。

I69とR69が空白なら、空白
そうでなければ、N69+T69+Y69+AD69ってのを
書きたいのですが、、、、、、

=IF(AND(I69="",R69=""),"",N69+T69+Y69+AD69)

では、#VALUE!　って出てダメなんです。。
何処がおかしいのでしょうか。
この2〜3日これでつぶれています。　　　^^;

=IF(ISBLANK(AND(I69="",R69="")),"",N69+T69+Y69+AD69)
でどーでしょーか。

すいません、寝ぼけて嘘書いちゃったみたいです。
識者の出現を待ちましょう。。。ごめんなさい

質問です。教えて下さい。
不定期に不特定多数の人から更新されるシートがあります。
シートの任意の部分に、最終更新日を表示させる方法はありますでしょうか？
色々探したんですが判りませんでした。どなたかよろしくお願いします。

=IF(AND(I69="",R69=""),"",(N69+T69+Y69+AD69))
かな。

>>748さん

それでも、#VALUE!　になってしまいます。　　　^^;

>>744
まず、数式から IF 関数をなくして
=N69+T69+Y69+AD69
だけで試してみよう。これでも #VALUE? と表示されるのだったら
=N69 とか =N69+T69 とか も試してみよう。

また、上記が OK だったら、
=IF(I69="", "真です", "偽です")
つぎに
=IF(AND(I69="", R69=""), "真です", "偽です")
などを試してみよう。

要するに、構成要素の数について累進的に試してみよう、ということ。

>>747
ヘルプをキーワード「イベントプロシージャ」で検索してみてちょうだい。

>>744
=IF(AND(I69="",R69=""),"",(N69+T69+Y69+AD69)
なんか、（）が多いような。
これでいけない？

>まず、数式から IF 関数をなくして
>=N69+T69+Y69+AD69
>だけで試してみよう。これでも #VALUE? と表示されるのだったら
>=N69 とか =N69+T69 とか も試してみよう。

う〜ん。。
=N69は良いけど =N69+T69 だと　空白部分があると、
#VALUE!　になってしまう。。

>>752さん

張り付けたら、
『入力した数式にエラーが･････』って
出てエクセル君に修正を求められました。。。　^^;

>>744
確認してみたら744で君が書いた数式でエラーでないけど？
もしかしてN69、T69、Y69、AD69の値が数値でないとか？

748ですが私のところは出来たんですよ？
なぜだろう。

N69tが=IF(L69="","",I69*L69)
T69tが=IF(R69="","",80*R69)
Y69が=IF(W69="","",80*W69)
AD69が=IF(AB69="","",30*AB69)
です。んでこの合計が知りたかったのですが。。。

>>744
""を0に
N69が=IF(L69="",0,I69*L69)
T69が=IF(R69="",0,80*R69)
Y69が=IF(W69="",0,80*W69)
AD69が=IF(AB69="",0,30*AB69)

>>758

何も記載されない時は空白にしたいのですが、
ダメでしょうかねぇ。

>>759
ツール＞オプション＞表示タブ＞ゼロ値のチェックを外す

>>743
RATEは期待しているのと違ったYO!
私の説明が下手だったのかな。
例えばA1に02/01/01と日付あって、B1に100000と金額があったとするYO。
同じくA2に02/01/02とあって、B2に105000と金額があるYO。
このデータだと一日で５千円儲かってるけど、これを一年複利になおすと何％相当に
なるのかが財務関数で検索したんだけど分からなかったのYO。
EXCELを全然使いこなせてないのでうまい使い方や財務関数で出来るのかもしれない
けど、どなたか詳しい方教えてPlease。

>760さん〜〜

ありがとうございます。
これならIF関数もAND関数もいらないようで。。。。。。
お答え下さった皆様方ありがとうございましたぁ。　(゜゜)(。 。 )ペコッ

VBAの質問もＯＫですか？

当方、一太郎＆花子で広告を作ってます。
一太郎には差込項目という機能があって、改行で仕切られたデータのテキストファイルを読み込み、
一太郎ファイルの差込項目部分にデータを流し込めるようになってます。
このデータ用テキストファイルをエクセルの表から作成するのにＶＢＡを利用するつもりです。

で、質問ですが、ＶＢＡを利用してデータ用テキストファイルを吐き出すだけではなく、
一太郎のオープン＆クローズや印刷まで制御することは可能でしょうか？
もしくはテキストファイルを介さずに、エクセル＆ワードのように直接データを流せるようにできるでしょうか？

やっぱ最初からワードで広告作っておけば良かったでしょうか？（泣

ＶＢＡは、文字通りアプリ（excel.word,Access）に特化したもの
だから、他のアプリを起動することはできても、その先の作業は一太郎のスクリプトを書く必要がある。
これが、wordだったら良かったのにね
無論、ＶＢＡじゃなくてＶＢならどうかとも思うが、やはり一太郎の操作を行うことは無理かと思われ