Excel総合相談所２

スレ乱立するのもあれだからExelの質問・回答はここでまとめてやりましょう。

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

Excel総合相談所
http://mentai.2ch.net/test/read.cgi?bbs=bsoft&key=965792827&to=50

旧スレで質問した人は質問し直した方がいいかも

あるデーターを編集してるんですが４０００行のうち
データーが書き込まれていない空白の行を消したいのです
いまはいちいちスクロールして手動で行を削除して１０００行くらいに
コンパクトにしてから作業しています
毎日不規則に現れるので作業をマクロ化してもうまくいきません
そこで空白行を消せるような関数は作れるでしょうか
初心者な質問かもしれませんがよろしくです

>>3
どうでしょう
Sub aaa()
Dim c, e
e = ActiveSheet.Cells(20000, 1).End(xlUp).Row
For c = 1 To e
If Rows(c).Cells(1, 1) = "" Then Rows(c).Delete
Next c
End Sub

もっといい方法があったらどなたかフォロー下さい
習ったことがないのでいつも自己流で苦労してます

あ、これだとA列が空白の行全部消してしまう
条件のとこがわかんないよう

>>3
マクロがうまくいかないとなると、
スマートではないけど、こんな方法でどう？

１．A列の前に２列挿入。
２．挿入したA1セルに
　　　=if(counta(C1:IV1),1,0)
３．B1セルに
　　　=row(b1)
４．A1・B1セルをデータの行数分、下にコピー。
５．挿入したA列・B列を含め、データ全体をソートする。
　　　最優先されるキー　列A　降順
　　　２番目のキー　　　列B　昇順
　　　３番目のキー　　　なし

オートフィルタでデータを抽出した時に「○○レコード中○個が見つかりました。」と言うのが
表示されなくなってしまったんですが、どうすれば表示させることができるのでしょうか？

>>3
1.先頭がA1として、A1を選択後 ctrl+shift+endなどを使いながら
レコード全体を範囲選択
（次の作業で、自動的に範囲が選択されると、
空白があると全レコードが対象にならない場合があるので念のため）
2.オートフィルタ（データ＞フィルタ＞オートフィルタ＠Ver2000の場合）で
ある列の空白セルを抽出。
3.まとめて行番号を選択
4.ctrlを押しながらテンキーの「-」を押す。
か、編集＞行の削除
5.データ＞フィルタ>オートフィルタをもう一度クリックして
フィルターモードを終わらせる。

と、手動ならフィルタを使うんだけど
マクロやユーザー定義関数の場合はよくわからないなー。


>>7
[XL2000] オートフィルタで抽出を行った際のステイタスバーの表示について
http://www.microsoft.com/JAPAN/support/kb/articles/J009/4/97.htm

そもそも、ステータスバーが表示されていないと言うのであれば、
表示＞ステータスバー

初めて質問します。現在、不動産業で事務をしているのですが
どうしてもわからない式（関数）があるのです。

「物件Ａの契約件数」と「物件Ｂの契約件数」の「合計件数」が
０〜３だと「特別手当」は０円になり、
４から７だと＋50000円になり、
８以上だと＋100000円になる。

参考書等で調べても該当するものがなく困っております。
どなたか、よろしければご教授下さい。
「特別手当」の欄で作業がストップしています。

>>5
IsEmpty() なる便利至極の関数あり、覚えておくがよい。

Sub bbb()
    Dim rn As Long, rend As Long
    
    '最終行取得
    rend = Activesheet.UsedRange.Rows.Count
    '最終行から第1行まで
    For rn = rend To 1 Step -1
        If IsEmpty(Rows(rn)) Then Rows(rn).Delete
    Next rn
End Sub

For Each...Next を使ったほうが手っ取り早いのだが、上から順に削除していくとエラーの原因となるため、このようにケツから逆順にナメるのである。

>>9
==IF(合計<4,0,IF(合計<8,5000,10000))

>>4 5 6 8 10様

レスありがとうございました
なにぶん初心者なもので苦労しそうです
それぞれ試させていただきます　成功したらカキコさせてもらいます
それぞれの式の意味がいまいち理解できませんがコピペでやってみます

>>8
解決しました。ありがとうございました。

>>45
それではうまくいかないと思うよ。
IsEmptyは行をまとめて調べることはできないよ。

Ａ列が空白の行を消すなら、
Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
でいいし、
矩形範囲内の行全体が空白だったら消す場合は、

Sub ccc()
Dim targetRow As Range, blankRow As Range
Dim myFunc As WorksheetFunction
Set myFunc = WorksheetFunction '変数に代入しておくとほんのすこし早くなる

For Each targetRow In ActiveSheet.UsedRange.Rows
If myFunc.CountA(targetRow) = 0 Then
If blankRow Is Nothing Then
Set blankRow = targetRow
Else
Set blankRow = Union(blankRow, targetRow)
End If
End If
Next

blankRow.Delete shift:=xlShiftUp '行全体の削除にあらず
End Sub

スマソ
上は10に対してだった。それにコードにインデントが入ってないじゃないか。
どうしたらいいんじゃ。全角スペースを入れるのか？

全角スペースのテストをやらせてくれ。
Sub 行削除()
Dim targetRow As Range, blankRow As Range
Dim myFunc As WorksheetFunction

Set myFunc = WorksheetFunction

For Each targetRow In ActiveSheet.UsedRange.Rows
If myFunc.CountA(targetRow) = 0 Then
If blankRow Is Nothing Then
Set blankRow = targetRow
Else
Set blankRow = Union(blankRow, targetRow)
End If
End If
Next

blankRow.Delete shift:=xlShiftUp
End Sub

ンガー！
ぜんぜんインデント入ってないじゃないか。
どうすりゃいいんだ？
教えてくれ。

11さん＞
関数を教えてくださって、本当にありがとうございました。
無事に問題は解決いたしました。
これで、部長に提出できます。
嬉しくって、ちょっと涙目。

Excelでセルにハイパーリンクで他のフォルダーにある
デジカメの写真をリンクして管理しているのですが、
Win98のときはMicrosoft Photo Editorで写真が開いていたのですが
Win2000にしたところ、Internet Explorerで開くようになってしまいました
フォルダーオプションでjpg、jpegの関連づけをMicrosoft Photo Editorに
しましたが、やはりInternet Explorerで開きます
Microsoft Photo Editorで開くようにするにはどのような設定をしたら良いのでしょうか
Win2000の問題かもしれませんが、解る方教えていただけると助かります。

>3
これなんかどうよ？
http://www2.odn.ne.jp/excel/waza/macro.html#SEC4

>>3
あんまり数の多いデータを扱ったことがないので、どのくらい重い作業になるか
わかんないけど、
Ａ列の前に１列挿入して行にフィル連番を振っておき、他の列をキーにして並べ替えすると
空白行は一番下にまとまるから、まとめて削除して、
Ａ列で並べ替えすると元の順番に戻る。というのはどうだろう。
スクロールしながら探して削除するより早いと思うんだけど。

>>8
空白行があったら、データ範囲全体の選択は難しいのでは？？

>>10,14
勉強になります。「マクロの記録」で記録された物を加工したのがプログラム初体験、
その後も全て独学なもんで。

>>21
うん、だから 「ctrl+shift+end」なの。
A1をアクティブにした後、3つのキーいっぺんに押してね。
家ではうまく動くけど。。。。

ただし、Ver2000の場合 [ツール] メニューの [オプション] [移行] タブ
[Lotus 1-2-3 形式のキー操作] チェックはオフの場合。
入っている場合がどうなるかは、試したくないので試してません。

ところで 一回↑のチェックを入れちゃうと、外してもExcel起動し直すと
チェックがONにもどっちゃうバグは修正されたのかな 。
SR１じゃ直ってなかったけど。

4000行だから、メモリが多くないと
重くなりそうだね。

隣の開いている列に、IF,AND関数を使って（4000行全部に）
どの列にも、文字が入ってる時は「Ａ」で
どの列も、空白の時は「Ｂ」と表示させ
オートフィルで、「Ｂ」を選択し
空白の行だけを表示させて
空白の行を一気に行削除をする。面倒くさいか。

がいしゅつだったらすみません。

ダメもとで聞きますが、
EXCEL2000で、Lotus123の機能だった
[F3]で、直前に入力したセルの内容を表示し編集する。
がなくなっちゃいましたよね。
これ、愛用してたので、なんとかこれに代わる機能がほしいのですがなんかいい方法無いですか？

>>24
ほんとだー。1-2-3形式のキー操作ONにしても
Excel97ではできたけどExcel2000では使えなくなってるね。
ctrl+cでコピーして、Enterかctrl+vで貼り付けるぐらいしか思い浮かばない。

あとは、マクロでF3に割り当てるとか　可能そうだけど
そのへんのことは、よくわかりません。

参考情報↓
http://www.microsoft.com/JAPAN/support/kb/articles/J055/3/68.htm

>>19
ファイルの関連付けはレジストリに関わるから難しい。
ここを参照
www.din.or.jp/~t-takako/faq/windows/relate/relate.html

散布図のことで教えてください。
例えば、
取引先名 売上 利益率
Ａ社 50,000 30%
Ｂ社 35,000 20%
（以下略）
というレイアウトのデータがあったとして、売上をＹ軸、利益率を
Ｘ軸にした散布図を描きたいのですが、このテーブル全体を選択して
グラフを描くとＸ軸は会社名の文字列を数値に置き換えたものになっ
てしまい、値が全部「１」になってしまいます。「売上」列と「利益」
列のみ選択して描画するとＸ軸はちゃんと利益率になるのですが、そ
れでは会社名がわからなくなってしまいます。

ものすごくおバカな質問かも知れないのですが、会社のみんなで頭を
かかえています。（うわ〜情けない。涙）よい方法をご存知の方が
いらっしゃったら教えてください。

>>14
Excel95/97 の IsEmpty() は、Range オブジェクトに対して有効。
Rows でも Columns でも UsedRange でも調べられるぞ。
仕様が変わったのか？

せっかくだから、もう1例示してやろう。

Sub&nbsp;空白行削除()
&nbsp;&nbsp;&nbsp;&nbsp;Dim&nbsp;rd&nbsp;As&nbsp;Range
&nbsp;&nbsp;&nbsp;&nbsp;Dim&nbsp;us&nbsp;As&nbsp;Range

&nbsp;&nbsp;&nbsp;&nbsp;Set&nbsp;us&nbsp;=&nbsp;ActiveSheet.UsedRange&nbsp;&nbsp;'範囲指定
&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;Set&nbsp;rd&nbsp;=&nbsp;空白行検索(us)
&nbsp;&nbsp;&nbsp;&nbsp;Do&nbsp;Until&nbsp;rd&nbsp;Is&nbsp;Nothing
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;rd.Rows.Delete
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Set&nbsp;rd&nbsp;=&nbsp;空白行検索(us)
&nbsp;&nbsp;&nbsp;&nbsp;Loop
End&nbsp;Sub

Function&nbsp;空白行検索(us&nbsp;As&nbsp;Range)&nbsp;As&nbsp;Range
&nbsp;&nbsp;&nbsp;&nbsp;Dim&nbsp;rs&nbsp;As&nbsp;Range
&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;For&nbsp;Each&nbsp;rs&nbsp;In&nbsp;us.Rows
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If&nbsp;IsEmpty(rs)&nbsp;=&nbsp;True&nbsp;Then
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If&nbsp;Not&nbsp;空白行検索&nbsp;Is&nbsp;Nothing&nbsp;Then
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Set&nbsp;空白行検索&nbsp;=&nbsp;Union(空白行検索,&nbsp;rs)
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Else
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Set&nbsp;空白行検索&nbsp;=&nbsp;rs
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End&nbsp;If
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End&nbsp;If
&nbsp;&nbsp;&nbsp;&nbsp;Next
End&nbsp;Function

Excel95 ではループする必要はなかったが、Excel 97 で試すと削除漏れがあったのでこうしている。
14のコード、Excel 97 で動いているか？

インデントというのは、空白文字のことだろう。
全て実体参照だ。知らなければ、ソースを見よ。

>>N5
あまりいい加減なこと書かない方がいいよ。
Excel97もExcel2000も変わってないぞ。
Msgbox IsEmpty(Columns(1))
ってやってみたら？

君は前スレッドの901でも動かないコード書いてたぞ。
添削しようかと思ったがやめておいた。

君はHTMLは得意みたいだけどVBAはもう少し勉強しなさい。
おれはHTMLを勉強する。

>>21
私も同じ。
でも実務で使うときは、それがないと
手書きだったり、手計算だったり･･･色々と大変でしょ。
そのために必死で使えるように、マクロや計算式を考えてるんだ。

コードを見たら、他の人は笑っちゃうかも知れないけど
自分で考えて考えて、失敗して、実行エラーを沢山出したり
永久ループさせたり、本当に失敗の連続。

だけど苦労した分、出来たときの満足感もあるし、身にも付く。
お互いに、がんばろう！

>>27
他のグラフはX軸は項目軸なんだけど
散布図はX軸も数値軸になるから、それはどうしようもないと思います。
テキストボックスで項目を書くか、
折れ線グラフの線なしで散布図に見せかけるしか、ないんじゃないかな。

>>25
コピペだと計算式のアドレスをそのまま持って行きたいときに不便なんですよね。
ああ、便利な機能だったのにM$のバカ。

マクロも考えてみることにします。

あまりに基本的な質問ですが。

「上書き」すると毎回FD(A:)にアクセスに行ってしまいます。
煩いし時間の無駄です。

エクセルで３枚のシートを１つのブックとして作成して使用しています。
VBAマクロで作業の効率化を計っていますが、外部のデータは参照していません。
ファイル内に外部ファイルへのハイパーリンクも見あたりません。
一つ気になることは、以前は厨房NECの厨房PC98シリーズで作業している期間がありました。

何が原因なのでしょうか。使用上は差し支えないんですよ。
それから上書き時にFD入れとくと、A:にアクセスに行きますが、
何もデータは記録されません。
まぢエクセルむかついてます。

>>33

AT互換機で編集→PC9821
PC9821で編集→AT互換機

これやるとドライブの関係でだと思うが、この状態になる。バグ。
解決策はExcel2000持ってないのでExcel97の場合しか解からんが．．．

対象のブックを開いて、
1.ツール−マクロ−VisualBasicEditorを起動
2.VisualBasicEditorのツール−VBAProjectのプロパティを開く
3.プロジェクト名を本当に変更するか一度編集した状態にする
（VBAProjectとなっている所に一文字加えて消すなど、編集した実績を残す）
4.そのままフロッピーボタンを押して上書き保存する

次回からFDを読みに行かなくなる。

>>28
> 14のコード、Excel 97 で動いているか？

>>29
> 君は前スレッドの901でも動かないコード書いてたぞ。

うちのExcel97でも14は動くが、N5のコードは前板の901も含めて動かんぞ。

>>32
これでどうよ？
[f2]　→　[shift]＋[↑]　→　[ctrl]＋[C]　→　セル移動　→　[f2]　→　[ctrl]+[v]

>34
感謝します。excel2000でも復旧しました。
感動的に何事も起こらなくなりました。
ありがとうございます。

>>26
www.din.or.jp/~t-takako/faq/windows/relate/relate.html
が見れませんが?

>>31 anonymousさん
どうもありがとうございます。やっぱり出来ないんですね・・・
地道にテキストボックスで項目名を書くことにします。

ある列内の作業で　繰り返し現れる特定の文字
の2行下（列は同じ）のセルの数値を抜き出すにはどうすればよいでしょうか
この数値だけを合計したいのです

>>27 ＝ >>39
コピペだからずれるかな。
売上 Ａ社 Ｂ社 C社 D社
50000 30% 空白 空白 空白
35000 空白 20% 空白 空白
20000 空白 空白 10% 空白
55000 空白 空白 空白 15%
という表を作成して 系列方向は、列を指定。
一応、各社別の色・形のマークでプロットされ、
会社名は凡例に表示される。この例でのデータラベルは、
値＝％、ラベル＝売上になるので、点の横には会社名は表示できない。

必ずしも、散布図のX軸のように認識されなくても良いのであれば、
>>31の言うように折れ線。
=A1&" "&B1のような式を書いて、X軸項目名用列を用意するとか。

>>
その列をA列として、条件をaとして、
=IF(A1="a",OFFSET(A1,2,0,1),"")
=IF(A1="a",INDEX(A1:A3,3,1),"")
=IF(A1="a",INDIRECT("a"&CELL("row",A1)+2),"")
などを隣りの列に作成。その式を下方向へコピーし、
IF式の入った列を合計する。

>>42は、>>40への回答。番号入れ忘れた。
なんかもっとスマートな解決方法無いかなぁ。

>>38
www.din.or.jp/~t-takako/faq/windows/relate/relate.html
を
www.din.or.jp/~t-takako/faq/windows/
までさかのぼると、移転したことがわかる。
移転先は、
www.tkcity.net/~nobusan/
そこから予想して、
www.tkcity.net/~nobusan/faq/windows/relate/relate.html
を開いたら、あった。たぶん、これのことを言いたかったんじゃない。

31です。
>>41さん、感動しました！
そんな技があったなんて。今後使わせていただきます。
実を言うと私も>>27と同じ悩みにハマったことがあって、
結論として出したのが>>31でした。もっと発想を豊かにしないとダメですね。
勉強になりました。ありがとうございました。

>>45 + >>27
もし 下のような表のままでテキストボックスを使って
社名を入れるなら、（>>41の表でもそーだけど）
売上 利益率
Ａ社 50000 30%
Ｂ社 35000 20%
Ｃ社 20000 10%
Ｄ社 55000 15%
売上と利益率のみ選択して散布図を描かせた後、
あえてラベルを表示にして、各ラベルを選択
（ラベルをダブルクリックにならない程度にゆっくり3回クリック）
して、それぞれのラベル名をこつこつと社名に変更した方が
場合によってはテキストボックスより扱いやすいかも。

ゆっくり2回クリックで選択後、数式バーをクリックして
「=」を入れた後、マウスでセル選択をして
セル参照を入れる。というのも有るけど、元表の社名が変わっても
簡単に反映させたいというのでなければ、かえってめんどうかな。
（Excel2000でのみ確認。他のバージョンでもできるかどうかは不明）

X軸のところに表示させたいなら、やっぱりテキストボックス。

Ａ＋Ｂ＋Ｃ＋Ｄ＋Ｅ＝Ｄという作業を行っております。
それぞれの数値がある場所は独立しており不規則に行ごと削除されることがあります。
今は何種類かの雛形を作って対処してるのですが。
一つの形式でエラーを出さずに計算できないでしょうか。

>>47
「Ａ＋Ｂ＋Ｃ＋Ｄ＋Ｅ＝Ｄという作業を行っております。」
の時点で、もう質問の意味がわからない。
列名なのか、単なるある場所の略なのか。
そもそも足し算の中にＤがあるのに、＝Ｄって？？？

たとえば、A2をA1と常に同じ値にしておきたい時、A2に　=A1　としますよね。
で、A2を常にA1と全く同じ（値、塗りつぶし&パターン、文字色、フォントサイズ）に
しておきたい時は、どうすればよいのでしょうか？

Excel97で円グラフを作成しています。
ラベルとパーセンテージを両方表示させると、円が小さくなるので
ドラッグして大きくしていますが、たくさんグラフを作ると大きさが
バラバラになってしまいます。
すべての円を同じ大きさで固定して作成することは
できるのでしょうか。

>>50
グラフをコピペしてデータ範囲をいぢってはどうか。
おやすみ

>>49
A1セルをコピーして、A2を選択後
shiftキーを押しながら、編集メニューをクリック＞図のリンク貼り付け
で代用。
文字によっては、欠けることもあるバグがあるので完璧ではありません。

>>50
自分のはExcel2000なので、多少メニュー名が違うかも。

一個デフォルトのプロットエリアの大きさで、
お好みのサイズのグラフエリアで調整したグラフを作ってそれを選択して、
右クリック＞グラフの種類＞ユーザー設定＞ユーザー定義＞登録
で登録しておいて、いつもユーザー定義の種類からグラフを作成。
多少ずれることもあるかも知れないけど、せっかくだからお試しあれ。
プロットエリアは、altキーを押しながらサイズ変更すると、
セルの線に添うのでサイズを揃えやすい。

自分なら>>51の方法をとるけど、こんなのもあるよってことで。

右クリック＞グラフの種類＞ユーザー設定＞ユーザー定義＞登録
じゃなくて、・・・（中略）・・＞追加

51さん、53さん、ありがとうございました。
さっそく今から両方試してみます。

検索しましたがなさそうなので、質問します。
あったらすみません。

A1に"3月1日"と入力し、B1に自動的に"(木)"を表示するには
B1に =text(A1,"(aaa)") と入力すると表示されますが、
これはヘルプに載っていません。どこに明記されていますか？

また、これ以外の曜日の表示方法（aaaの他に）ありますか？

>>56
他の方法としては、B1に=A1と入れて、書式設定を"aaa"にするというのが
あります。
どこに書いてあるかは、ごめんなさいわかりません。

>>57
本当だ！！
ありがとうございます！！

>>56
57さんに蛇足。
"ddd"にするとSun、
"dddd"にするとSunday
とも表示できます

今まで　=index({"日","月",・・・},Weekday(日付))　ってやってた。感動

>>56
Excel2000ならVBAのヘルプで、質問(A)で「表示形式」とすると
出てくる下のに書いてあるよ。

日付/時刻表示書式指定文字の使用例

ただし嘘も書いてあるけど。
ddddddなんてぜんぜん嘘だね。

>>52 ありがと〜（はぁと

>>41, >>46
ありがとうございます。こんな方法があったなんて、まったく
想像もできませんでした。目から鱗、でした。

結局>>46のほうの方法を使って資料を作成しました。これで、
グラフを拡大・縮小してもラベルがずれないようになりました。

当然ですがテキストボックス使用の場合は拡大縮小すると
座標とテキストの位置がずれてしまうのですが、座標点が集中
している部分だけは文字が重なってしまうのでやむなく>>31
の方法で手作業でテキストボックスをつけました。

というわけで、無事に資料を作成できました。>>31さんも、
>>41,>>46さんも、どうもありがとうございました。

http://www.vector.co.jp/soft/win95/business/se132403.html?g

ここのＥＸＣＥＬ履歴書を使っていたら、ＥＸＣＥＬのメニューが消えてしまいました。
どうすれば良いでしょうか。

質問です。
というかMSへの文句。
INDIRECT関数で、ファイル名をほかのセルから拾って外部のファイルから参照させると、#REFエラーになります。
そのファイルを開くと、正常に参照しますが、閉じて再計算させると#REFになります。
なんとかしろ>MS

識者の方、教えてください。

行や列をマウスでなくキーボードでドラッグするには
どう操作すればよいのでしょうか

>>66
編集＞ジャンプ（または、ctrl+G）
参照先に、「A:A」と基準点になる列を入れてEnter。
その後は、shiftを押しながら矢印キーで。
行の場合は、「2:2」のような書式で。
もちろん、「2:4」って入れておけば2行目から4行目が選択される。
列も同様。これの応用で。

これでキーボードだけで選択ができます。

>>63
座標点が重なっている部分のラベルは、
ラベルをゆっくり2回クリックで そのラベルを選択すれば
マウスで移動できますが、それじゃだめ？

ま、既に作成完了しているようなので念のためってことで。

>>64
*.xlb
でファイルを検索して、出てきたものをごみ箱に捨てる。
で、Excelを起動し直して見て下さい。
これをすると、今までツールボタンをカスタマイズしていた場合は
それも、リセットされます。

これで直らなければ、直し用のマクロ作成が必要かなー。

>>64
>>69さんがおっしゃっている「直し用のマクロ」はこちらにあります。

http://www.microsoft.com/japan/support/kb/articles/j027/0/64.htm

>>60
私も最初はそうでした。特に関数を覚え始めた時って
なんでもかんでも関数でやるしかないと思ってしまってました。
書式設定でできるとわかった時は、かなりショックだったなぁ。
曜日を出そうとする度に長い関数書いてたからね・・・。

>>69の補足。
Excel2000の場合（他のバージョンでも似たようなもんでしょ）
ツールボタンが表示されているなら、
ボタンの領域辺りを右クリック＞ユーザー設定＞ツールバーのタブ。
ワークシートメニューバーのチェックをON。
念のため、ワークシートメニューバーが選択されたまま、
リセットボタンも押しておこう。

ついでだから、手動でメニューに何か足りないものや余計なものを増やす方法。
コマンドタブに移り、分類では、「組み込みのメニュー」を選択し、
コマンドからメニューバーに必要なものをドラッグする。
いやがらせ？でメニューを減らすなら、ユーザー設定モードの時に
編集メニューなどをボタンの間とか欄外へドラッグ。
通常のモードでALTキーを押しながらドラッグも有り。

私の使ってるExcel2000では、条件付書式の条件が３つしか付けられないのですが、
これを20通りくらいにすることはできないんでしょうか？
たとえば文字の色をセルの値が、1〜5の時は赤、6〜10の時は青、11〜15の時は緑、
16〜20の時はオレンジ、・・・・・96〜100の時は黒とかいうふうにしたいのです。

A11からA20に、1〜10のデータが順不同で入っている時、B1にA11：A20の
範囲の中にたとえば5というデータが何行目にあるか表示させる関数って
ないですか？うまく表現できなくてスマソ・・・

>>74
A11からの相対的な行になるが、
=MATCH(5,A11:A20,0)
絶対的な行なら
=MATCH(5,A11:A20,0)+ROW(A11:A20)

>>75
　できました、ありがとうございました。大感謝です！

EXCEL 2001で、複数列間でそれぞれの列に固有の幅を設定したいんです。
どなたか、お教え下さい。

>>77

それぞれの列で固有の幅を指定すれ。

EXCEL2001て・・・　マカー？それともネタ？

>>78
有難うございました。

>>79
Mac使いです。

>>73
誰の使っているExcel97・2000でも、3つまでしか条件は
設定できないと思われ。仕様でしょ。
まぁ、20種類ぐらい区別したいならマクロとか作成する必要があるんだろーなー。

5種類程度ならセルの書式設定＞表示形式>ユーザー定義での
[黄][>20]#,##0;[青][>10]#,##0;[赤]#,##0
と条件付き書式を組み合わせるという手も有り。
ユーザー定義の表示形式も、たくさんの条件は付けられないみたい。

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
<br>Dim myRange As Range
<p>For Each myRange In Target
<br>　With myRange
<br>　　If IsNumeric(myRange.Value) = True Then
<br>　　　Select Case .Value
<br>　　　Case 1 To 5
<br>&nbsp;&nbsp;&nbsp;&nbsp; 　　　　　.Font.ColorIndex = 3
<br>　　　Case 6 To 10
<br>&nbsp;&nbsp;&nbsp;&nbsp; 　　　　　.Font.ColorIndex = 4
<br>　　　Case 11 To 15
<br>&nbsp;&nbsp;&nbsp;&nbsp; 　　　　　.Font.ColorIndex = 5
<br>　　　Case Else
<br>&nbsp;&nbsp;&nbsp;&nbsp; 　　　　　.Font.ColorIndex = 1
<br>　　　End Select
<br>　　Else
<br>&nbsp;&nbsp;&nbsp; 　 .Font.ColorIndex = 1
<br>　　End If
<br>　End With
<br>Next
<br>End Sub

ツール−シート保護を解除したいんですが、パス忘れました。
ご教示お願いいたします。

罫線で表を作成したのですが、
表内のデータにオートフィルをかけたりすると、
せっかく引いた罫線が消えちゃったり書き換えられてしまいます。
罫線を固定させる方法ってあるのでしょうか。
シートの保護等で試したりしたのですが、どうにもわからないです。

すみません。EXCELのグラフについて質問させて下さい。

EXCELグラフ内のプロットエリアで、X軸の要素
として期間の系列(2001/4/1〜2002/3/31など)
をセットしているのですが、この期間の長さを
変更すると(例えば、2001/4/1〜2004/3/31など)
、プロットエリア自体の大きさ(長さ)が変更され
てしまい困っています。
このプロットエリアの大きさを固定する方法をご
存知の方、教えて頂けませんでしょうか。

>>83
パスワードがなければどうすることもできないのが、保護の機能です。
あきらめて下さい。ていうかがいしゅつ。

あきらめきれないなら、検索サイトで
Excel パスワードを忘れた
ででも検索して下さい。

>>84
罫線、すなわちセルの書式を固定させる、という考え方はないと思います。
・オートフィルをする時に、右ボタンでドラッグして「値のコピー」（連続データの場合はダメ）
・形式を選択して貼付け（書式）
・形式を選択して貼付け（値）
あたりを駆使して効率化を図って下さい。

>>85
私がやってみた限りでは、グラフを作った後、データ範囲を変更しても
プロットエリアの大きさは変わらないのですが……Excel2000です。
私がご質問の意味を理解できていないのでしょうか。

>>88
あ、すみません・・。思いっきり私の説明不足でした。
ワークシートでX軸の期間データを変更した際に、VBAで

ActiveChart.SetSourceData Source:=Sheets("sheet1").Range("B10:H" & num), PlotBy:= _
xlColumns

で期間の値を再セットしているため、プロットファイルの大きさが変更
されてしまうとは思います。期間のデータの個数が冗長的であるため
この方法しか思い付きませんでした。

この方法だと、期間データをセットする度に、なぜかプロットエリアの大
きさ(ピクセル値)が変わってしまうので、データセット後にプロットエリ
アの大きさを指定するような方法が無いか教えて頂きたいです。

>>87さま
なるほど！
すごくためになりました。
これならなんとかなります！
ありがとうございました。

>86
そんなんふざけた検索で出てくるわけないやろ
ぼけっ。
さっさとバイナリつかえや。

>91
俺は86じゃないが、
Excel パスワードを忘れた
で検索したらぞろぞろ出てきたよ。
ボケはお前だ。氏ね！

>>89
With ActiveChart.PlotArea
&nbsp;&nbsp;.Top = 10
&nbsp;&nbsp;.Left = 10
&nbsp;&nbsp;.Width = 600
&nbsp;&nbsp;.Height = 300
End With

あげ

>>91
ちゃんと検証してから回答しとります。恥を知ってください。あ、無理か。

>>92
反撃ありがとう。救われます。

数字を漢数字に一発変換する方法はありますか？

>>96

置換したら？

すべて置換

>96-98
単位に万とか千とか使いたいっていう意味じゃないのだろうか
なら置換では難しいかと
書式の設定では漢数字表示も無いみたいだしね

正直な方法としてはif関数で長い式を書くか、ユーザー定義関数作るかっていう感じだが

計算式の答えが#VALUEになってしまったとき、0または空白、―　などを
表示させるにはどうしたらいいですか？
なんか設定があったような気がしたんですけど・・・忘れちゃいました（涙

26　　置換+ユーザー定義でなんとかなるかと思ったらすでに手でかきかえたそーです (実は他の方の仕事)で も、いっこセルの中の一部だけ向きを変える(ワードの組文字みたいに)ことはできますか？

>>100
設定はないのでは。IF関数で条件分岐を。

>>101
基本的にはExcelにそんな機能は無い（と思う）。
いっこのセルの中みでも、「F2」で編集状態にして特定の文字を選択して
「書式」-「セル」で、
上付き・下付きやフォント変えたりなどは可能だけど。

エクセルでハイバーリンクを止めたい
http://mentai.2ch.net/test/read.cgi?bbs=bsoft&key=988270084
の１への回答。ネタ的にはたぶん、がいしゅつなんだけどね。

Excelには、Wordのようにその機能を止める設定はありません。
1.「’」を入力してから入力する（「'aa@aa」のように）
2.入力後すかさず ctrl+z（or もとに戻すボタンクリック）
3.ぜんぶいれちゃってから、関係の無いセルで「１」を入力してコピー。
shiftや矢印キーを使いながらなど、クリックしないように
ハイパーリンクになってしまったセルを選択。
右クリック＞形式を選択して貼り付け＞乗算 でいっきに解除。
4.ハイパーリンクにならなくするマクロ（VBA）を記述する。
http://www.microsoft.com/JAPAN/support/kb/articles/J058/5/96.htm
5.場合によっては4のマクロを応用し、
ブック全体且つ開いているブックすべてにその設定が反映されるように
作り変える。それを、xlstartに入れておいたりする。
6.5のマクロ付きブックをアドイン化する。

1から６の好きな方法で回避してください。

※５について：VBAヘルプの
「Application オブジェクトでイベントを使用する」を参考に。

>>104の続き。
＞Windows全体でその様な指定が可能であれば合わせてお願いします。

ファイルタイプで、「url:MailToプロトコル」とかを
削除すれば、Windows全体働かなくなるのかなぁ。
めんどーなので、検証はしてない。

　値1　　　　　　　　　　　　　　　　　　　　　　　値2
　.100|　　　　　　　　　　　　　　　　　　　　　│10
　　90|　　　　　　　　　　　　　　　　　　　　　│9
　　80|　　　　　　　　　　　　　　　　　　　　　│8
　　70|　　　　　　　　　　　　　　　　　　　　　│7
　　60|　　　　　　　　　　　　　　　　　　　　　│6
　　50|　　　　　　　　　　　　　　　　　　　　　│5
　　40|　　　　　　　　　　　　　　　　　　　　　│4
　　30|　　　　　　　　　　　　　　　　　　　　　│3
　　20|　　　　　　　　　　　　　　　　　　　　　│2
　　10|　　　　　　　　　　　　　　　　　　　　　│1
　　　└──────────────┘
　　　　A　B　C　D　E　F　G　H　I　J　K　L
　　　　　　　　　　　サンプル

すみませんExcelのグラフについて質問させてください。
上のような縦軸が2軸の「棒グラフ」を作りたいのですがどのようにしたら
よいのでしょうか？
片方棒グラフ、片方折れ線グラフって言うのは見つけたんですが。
ご存知の方教えていただけないでしょうか。

>>106

１．「2軸上の折れ線と縦棒」グラフを作る
２．折れ線になったやつを選択
３．右クリックの「グラフの種類」で縦棒に変える
４．適当に太さを調整する

両軸の棒グラフって意味あんの？
何だか解からんと思うが。

最近、Excelのファイルを閉じると、
勝手に保存されてしまうんだけど何故でしょう？
（左下に、保存の時の青い目盛が表示されて、実際に保存されてる）
前までは、上書きをせずにファイルを閉じると、
「変更を保存しますか？」ってウィンドウが聞いてきたと思うのですが。
このままでは、「保存せずに閉じる」というのが出来ない〜。
ヘルプを見ても、そんな設定はないみたいだし・・・。

>>108
[保存確認メッセージ] を表示せずに Excel を終了する方法
はあるので、何かマクロ付きのファイルを開いてそのなごりがあるか、
Excelが壊れたのでしょう。
Office2000なら修復セットアップとか、アンインストール＞再インストール。
それでダメならOSから入れなおしか？

http://www.microsoft.com/JAPAN/support/kb/articles/J013/4/32.htm
http://www.microsoft.com/JAPAN/support/kb/articles/J015/9/73.htm

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

＞両軸の棒グラフって意味あんの？何だか解からんと思うが。
さあ？えらい人(講師)の考えることはよくわかりません。

セルに小数点２桁まで表示して、最後に集計もするのですが
小数点のフォントを小さくして上詰めに配置する方法ってありませんか？
セルをふたつにわければキレイに表示できるんですが、集計できないし。
だれか教えて下さい、おねがいします。

>>110
異なった量の相関を見たいときに
グラフを二つ書くより見やすい場合があるので両軸棒グラフがある

EXCELでセルにダウンリストを貼り付けたいのですがどなたかご存知ですか？

>>113
フォームかコントロール/ツールボックスのコンボボックス。
（コンボボックスの詳細は自分には解説できません）

セルそのものをクリックしてプルダウンさせるなら、
Excel97、2000の場合 データ＞入力規則
「入力値」の種類を「リスト」へ。
「元の値」にプルダウンさせる項目をそれぞれのセルに入力済み
のセル範囲を指定する。
「a,b,c」のように「,」区切りで入力しても良し。
設定しているセルとは別のシートを元の値にしたい場合は、「名前」機能を使う。

質問するなら バージョンぐらい書いておいて欲しいものです。

>>111
小数点以下の場合は、>>103の方法で手動でフォントを変えても反映されないし、
そんな機能なさそうだし。
そのままで我慢するか、どーしてもそのように表示させたいなら
やっぱりセルを分けるしかないんじゃないかな。
セルを分けた場合は、別のセルに
=VALUE(A1&"."&B1)
のように設定すれば、その関数を入力したセルは計算に使える。

96.101>103
ですよね(^^;;

しかし、なんでワードでやらんかな
計算式が必要なわけでもない表に
今日も（3/1）彼女のおかげで残業でーす（爆涙）
（あとの3/2は上司と別の同僚）

3/1じゃねーよ1/3
鬱だ

>>108
>>109
この症状は、どうやら今流行ってるウィルスのようですよ。
ワクチン配布はまだと聞きました。

>>116
＝26じゃなくて96。 ＝101だよね？

事情はよくわからないけど、
どうしてもExcelで提出しなければならない資料ならば、
挿入＞オブジェクト＞MicrosoftWord文書
のオブジェクトを挿入し、その中で仕上げるという手も有り。
今まで作成した表は、Wordオブジェクトをダブルクリックして編集状態の
時に、形式を選択して貼り付けで「リッチテキスト形式」にすれば
Wordの表になる。（Office2000でのみ検証）
Wordオブジェクトがアクティブな時は、メニューやボタンもWord用になるし。

そこまでするなら、Excelで表を完成させてから、
素直に普通のWordドキュメントにリッチテキストで貼り付けて
細かい書式に対応した方がいいとは思うんだけど。

がんばってくださいませ。

がいしゅつだったらすいません

±を使ったグラフを書きたいのですが上手くいきません。
株価のような、あの縦長の棒が入っている
（棒グラフではなく）折れ線グラフです。

どうすればよいのでしょうか？

>>120
グラフの種類で、株価ってのがあるけど、ダメ？

>>120
Excel2000のことしかわかんないけど、
データ系列の書式設定（折れ線の特定の系列を選択して）
Y軸誤差範囲とかオプションタブの高低線・ローソクとか
そういうこと？

えーと、エクセル2000sp1なんですがなぜか起動するとすぐ閉じてしまいます。
起動するたびに一瞬表示されるファイル（Book1.xlsとか）が繰り返すごとに
増えていくのですが、どちらにしてもすぐ勝手に終了してしまうんです。
この状態から修復する方法ってありますか？

>>122さん、ありがとうございました
Y軸誤差範囲で調節できました。

>>121さん温度の表からグラフを作りたかったので
折れ線グラフでで質問してみました

ついでに、ご教授頂ければさいわいなのですが、
14.1±1.2℃のような数値の場合
14.1+-1.2と、14.1±1.2とではどちらがよいのでしょうか？

ズブの素人ですいません
私が作るとグラフがすべて、０の値になってしまいます。

>>124(自己訂正)

14.1+-1.2と、14.1±1.2とではどちらがよいのでしょうか？

訂正：どちらでセル入力したほうがよいのでしょうか

私は後者でやってみたのですがうまくいきません

>124,125
数値のセルに+,-等の文字が入った時点でそのセルの値は
文字列(=数値としては0)と評価されます。
誤差範囲つきのグラフを作りたいということであれば、測定値のセル列と
測定値+1.2の数値のセル列、測定値-1.2のセル列をつくって３系列のグラフとして
表示すると良いのでは。

商品番号と商品名の対照表があるのですが
それを利用して
あるセルに商品番号を入力すると別のセルに商品名が自動的に入力
されるようにできるものでしょうか？
何をキーワードに調べたらいいのかわからないので、
どういう機能をつかえばできるか教えていただけないでしょうか。

>>127
VLOOKUPを使いなさい。

>>126
そうなんですか！
教えてくださり、ありがとうございます
基本的なことだったんですね

結局、私の技術では
Excelを使いこなしてグラフを作ることは無理そうなので
昨日落としたばかりのKyPlotを使うことにしました。
英語がバッカリでよくわかりませんが
偶然にも理想的なグラフが作図できたので、大丈夫そうです。

>>親切に相談にのってくれた皆さん
ありがとうございました。

＞１２８
ありがとうございました！
関数の所だったのですね！
調べる所がしぼれたのでほんとにたすかりました！

文字に　"node" "summery" "acknowledge"
を含む列を抜き出して、他の列を削除し、間隔を詰める。

ヒントだけでもお願いします。

>>131
僕ならマクロでまわすかな。
文字列検索はfindで。

>131
含む列で正しいか？(行じゃないの?)
列の操作と行の操作でできることが違うので
"列"で正しいのなら列数が1000とかいうことはないと思うので
目視と手動操作でもそんなに大変じゃなさそうだけど

そう、行が7000行以上です。抜き出すのはせいぜい150くらい。
DBではないので：区切りしかなく､余計なところにも：が
使われていて区切り文字には使えません。

ヘッダーに日付（"YY/MM/DD"の書式ではなく"平成YY年MM月DD日"）
を入れたいのですが出来ますか！

>131
では一応132を踏まえて手順を。
目的の文字列がB列として
・A1に"=find("目的の文字列",B1,1)を入力
・A1をA1:A7000へコピー
・目的の文字列がB列に含まれる行では何らかの数値が、ない場合は#VALUEが戻ってくる
・A列をキーにして全行をソート
・#Valueの列がまとまるはずなのでまとめて削除

注意:現在の行の並びに意味があるのなら予めインデックス番号を振っておく

>>131
遅い...

Sub Del_Col()
Dim stRow As Long, LRow As Long, i As Long
Dim stCol As Integer, LCol As Integer, j As Integer
Dim flg As Boolean, fs As String

Application.ScreenUpdating = False
ActiveCell.Activate
With ActiveSheet.UsedRange
    stRow = .Offset(0, 0).Row
    stCol = .Offset(0, 0).Column
    LRow = stRow + .Rows.Count - 1
    LCol = stCol + .Columns.Count - 1
End With

For j = LCol To stCol Step -1
   flg = False
   For i = LRow To stRow Step -1
    fs = Cells(i, j).Text
    If fs Like "*node*" Or _
      fs Like "*summery*" Or _
      fs Like "*acknowledge*" Then
      flg = True
      Exit For
    End If
   Next i
    If Not flg Then
      Columns(j).Delete
    End If
Next j

End Sub

ENTERキー押したら、
カーソルがtabキーみたいに横移動するんですけど・・・

>>138
ツール−オプション−編集タブ−入力後にセルを移動するの
方向を直せ。

>>137
ありがとう。
連休明けたら実行してみます。

必要に迫られてグラフに初挑戦中のエクセル初心者です。
（テニスの挑戦をするわけではありません(^^;）

私は今折れ線グラフを作成しています。その際、
Ｘ／項目軸を０から始めたいのですが、Ｙ／数値軸
との交点は１以上の数字から始めなければならない
ようで弱っています。
私は、Ｘ軸の目盛と目盛ラベルを０から始めて
１０の倍数に設定したいのですが、
（０，１０，２０，３０、・・・）
Ｙ軸との交点を１とすると、
１，１１，２１，３１、・・・
という情けない状態しか作れません。

あまりに初歩的な質問で恐縮ですが、みなさんは
このようなときにはどうやって解決していらっしゃる
のでしょうか。
よろしくご教授下さい。

自己レスですが、いろいろいじっているうちに
解決しました。
散布図を利用すればよいのですね。
お騒がせいたしました。

VBAを使っての保存のことについてですが、
TXTのCDのアルバム名、アーティスト名のあるデータ
↓
EXCELでOpenTxt使って読み込み、処理する。
↓
最後に処理したデータをxlsで保存、元のtxtのデータは
保存しないで閉じる

このときどうしてもxlsで保存がうまくいきません。
保存をするかどうかのダイヤログボックスも表示したくないのですが
いい方法はございますでしょうか？

>>143

Sub Test()
Dim FName As String, FPath As String

  FPath = ActiveWorkbook.FullName
  FName = Dir(FPath)
  FPath = Mid(FPath, 1, Len(FPath) - Len(FName))
  FName = Mid(FName, 1, Len(FName) - 3)
  FName = FPath & FName & "xls"

  Application.DisplayAlerts = False
  ActiveWorkbook.SaveAs FileName:=FName, FileFormat:=xlWorkbookNormal
  ActiveWorkbook.Close
  Application.DisplayAlerts = True
End Sub

ありがとうございます。
おかげさまで、うまくできました。

すみません、どなたか教えてください。

Excelのファイルをもらって、ファイル名を任意のものに変えたところ、
ボタンを押してもプログラムが動かなくなってしまいました。
中のモジュールをエクスポートして、改めて 新しい名前のファイルに
インポートしてみてもダメでした。

単純にファイル名を変更したいだけなのですが･･。

146です。
ボタンというのは、シートの中に作ってある、VBAのボタンのことです。

モジュールの中にファイル名が書いてないか？

>>137
使用してみましたが、今ひとつ手順がつかめません。
どのように使うモジュールか教えていただけないでしょうか。
現状だと（a1-7000のみデータあり）データがまっさらになります。

>>148
レスありがとうございます！
モジュールの中の、直にファイル名書いてあるところは修正したんです。
ただ、モジュール名そのものが、ファイル名と結びついているようで・・
だから、ファイル名を変えてしまうと、ボタンを右クリックしてマクロの編集も
出来なくなってしまいます（呼び出せない）。

>>149

> 文字に　"node" "summery" "acknowledge"
> を含む列を抜き出して、他の列を削除し、間隔を詰める。

例えば、A1〜Z100までの範囲にランダムに上記文字を含んだ表がある。
各列に上記文字があれば、何もしない。無ければ列を削除する。

例）
A列の範囲（A1〜A100）に上記文字がある　→ そのまま
B列の範囲（B1〜B100）に上記文字が無い　→ 列を削除
      ・
      ・
Z列の範囲（Z1〜Z100）に上記文字がある　→ そのまま

これの意味が違うのなら修正が必要だね。

エクセルの300行程度の範囲の中で
獲得したスコアの上位者50名を
自動的にピックアップしたいと思います。

私がしたこととしては
１　エクセルのヘルプで確認
２　グーグルで”上位者”で検索
ですが
どうも私が望む答えがありませんでした。
適切な方法があればご教授ください.

>>152
オートフィルタでトップテンじゃダメなんか？

>>152
large関数使えば？

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

まちがい。
>>153
>>154
試してみます。ありがとうございます

>>135
ヘッダーの編集で、"平成YY年MM月DD日"と手入力ではダメ？
今日の日付でなく、文字列だから印刷のたびに編集しないといけないけど。

妥協案として、ワークシートの１行目に=today()を入れておき、
表示形式を希望の物にして、[ファイル]-[ページ設定]-[シート]の[印刷タイトル]
の[行のタイトル]で$1:$1を設定、ではどうでしょう

簡単な質問ですみません。
セルの書式設定のユーザー設定で“１０月”と入れたいんですけど、
どうしても入りません。どうしたらいいですか？

列全部の合計を求める関数を誰か教えてください！！
それか、１つのセル以下全ての合計を出す式を教えてください！！

SUM関数

ポケットエクセルのことも聞いていいんですか？

10と入力するなら[DBNum3]0"月"
2001/10/1などと入力するなら[DBNum3]m"月"
ただしこの場合は年を省略して10/1などと入力できないみたいよ。

スマソ
上は158へだった。

フィルタオプションで、シートを超えて抽出する方法をどなたか教えてください。
別に、フィルタオプションで無くてもいいです。
他に機能があるなら、それで構わないので。

>>164
マクロ（ＶＢＡ）を使っても、「各シートを順番に処理する」と思うので、
シートを越えて抽出するのは難しいのでは

エクセルで、ある列の数値が０の行だけ
行非表示or行削除ってできますか・・・？
ん〜ありそうでなさそうな気が。。。

オートフィルタで、「０と等しくない」を設定すれば非表示になる。
削除するんだったら、その列をキーにして並べ替えて、まとめて削除したら？

エクセルでツールバーが消えて、最インストール、修復、レジストリの削除も試したけどなおりません。
賞味タイトルバーだけで罫線も引けず非常に困っているのですが、同じような方おられませんか？
環境はWin2K+Office2Kです（ちなみにサービスパック1もインストールを試したけどなおりませんでした）

>168
プルダウンメニューの「表示」→「ツールバー」にチェック。

>>168 メニューバーはあるのかな？

なんにもないのです・・・・
これはバグ？

>>168
↓を解凍して実行してみて
http://cgi25.freeweb.ne.jp/computer/pcqa-2ch/cgi-bin/img/24.zip

メニューバーもろとも消えたときは
Excel.xlbというメニューバー設定一時ファイルが
壊れているので、それを消して再起動すればいいんじゃなかったっけ？
>>172の謎のマクロ（？）はナニ？

？？いけません・・・

>>172は一応メニューバーとツールバーを表示するようにするマクロなんだけど効かない？
ウィルスじゃないよ。

>>172
凄いです。復活しました。
とても感謝しています、どうもありがとうございました。
・・・ところでこのマクロは前からつくられてたんでしょうか？
それとも、同じ現象になやまれたのですか？

>>176
VBAを勉強する過程でエクセルの画面のオプションをリセットするのや
いろいろな機能のユーザーフォームを作ったんだけど、それから抜粋しただけ〜。

>>177
大変助かりました、ありがとうございました。

ちなみに、アンインストール　→　最インストール　×
　　　　　アンインストール　→　Office97インストール　→　アンインストール　→　Office2K　×
などといろいろ試したけどダメでした。
Office97ではきちんとでたんですけどね・・・　　

Excelに限ったことではないのですが、
ヘルプを起動すると、Excelの横幅が
自動的に半分ぐらいになってしまいます。
ヘルプを閉じるとまた自動的に元のサイズに戻ります。
なんかうざいしむかつきます。
なんとかなりませんでしょうか！

>>179
俺もいつも鬱陶しいと思っているけど、多分仕様じゃないのかな
どうしようもないと思うよ
その代わり、F1キーを殺すマクロをここで見つけたけど
どこだったか忘れたよ
誰かもう一度書き込んで!

ヘルプが表示されるウインドウを画面のはじっこから
ドラッグして少し離すとむかつかずに済むかもね。

セルの高さと幅をピクセル単位で変更するにはどうしたらいいのでしょうか？
マックで製作した画像埋込み済みのexcelファイルをウィンドウズで読み込むと
立て横比が狂ってしまいます。どのようにして二機種間で揃えればいいんでしょうか？

>>181
おぉぉぉぉぉーーーーーーーーー！！！！！！！！！！！
何のこといってるのかわからなかったけど
やってみたら意味わかりました！

すげカンドーです！
ありがとです！！

エクセルを起動すると、このシートにはマクロが含まれています
なんなたらかんたら〜と出て、最初にPersonal.xlsが
表示されています。
普通にBooks.xlsを表示させるようにするにはどうしたらよいでしょうか？

というか、マクロを作ってPersonal.xlsに保存したんですけど、
どこか設定がおかしかったのでしょうか？

personal.xlsのシートを非表示にすれば？

>>184
普通にマクロを含むブックを作って「Personal.xls」の名前を
付けて「XLStart」フォルダにおいたんでは？

マクロ保存で保存先に「個人用マクロブック」を選択して作る
「Personal.xls」とは別もん。

>>182
該当する行と列をそれぞれ選択して
列と行の幅をそれぞれ指定するのではダメですか？
ピクセルで指定できますが

#行・列選択時のコンテキストメニューに行・列の幅・高さがあります

連番の振り方なんですが
セルに

北海道
北海道
青森
岩手
岩手
岩手

と並んでいてそれぞれに
北海道　　　１
北海道　　　１
青森　　　　 2
岩手　　　　 3
岩手　　　　 3
岩手　　　　 3
と連番をふりたいんですが
何かいい方法ないでしょうか

>>188

初心者向けの説明じゃないけどわかるかな？

１．それぞれの番号の一番上の１つだけはとりあえず手入力する。
（フィルタオプションの設定で[重複するデータは〜]で、１コだけ表示してもいい）

２．番号を振る範囲全体を選択

３．ジャンプで「空白セル」を選択（意味わからんかったらもう１回質問して）

４．「=A1」（１つ上のセル）を入力し、Ctrl+Enterで選択したセル全部に同じ式を入力。
（相対参照だから選択してあった空白セル全部に「＝一つ上のセル」が入る）

５．[コピー]して、同じ場所に、[形式を選択して貼付け]の、[値]。

ちなみに私ならマクロ(VBA)考える。
c=1で、県名が変わったらc=c+1で…

>>189
おおお、これから試してみます
ありがとう

>>190
マクロも考えてたんですが
いかんせん勉強中の身で
方法は思いつくんですがなかなか…

すみませんが　どなたか教えて下さい。

エクセル９７　OS　win98で使っています。保存をする時にフリーズ
したようになった後、エクセルが終了します。閉じるまでに長い時で
２０秒程かかってしまいます。
他のアプリケーションはその様な事は起りません。
再インストールしてもだめでした。
この様な経験した方、アドバイス頂けますか。
宜しくお願い致します。

>>192
保存時の対応ではないが↓ではどう
http://pcgaz.nikkeibp.co.jp/excel/67.shtml

>>191
Sub test()
Dim myRange As Range
Dim i As Integer

If Selection.Columns.Count > 1 Then
    i = 1
    For Each myRange In Selection
        myRange.Offset(0, 1).Value = i
        If myRange <> myRange.Offset(1, 0) Then
            i = i + 1
        End If
    Next
End If

End Sub

>>194
間違えた。
範囲を選択してから実行

Sub test()
Dim myRange As Range
Dim i As Integer

If Selection.Columns.Count = 1 Then
    i = 1
    For Each myRange In Selection
        myRange.Offset(0, 1).Value = i
        If myRange <> myRange.Offset(1, 0) Then
            i = i + 1
        End If
    Next
End If

End Sub

>>190
マクロ組むまでもないような。

A B
----------
北海道 1
北海道 =IF(A2=A1,B1,B1+1)
青森 以下同文（↑からコピー）
岩手 ：
岩手
岩手

まあ遅レスだからもう役に立たんか

>>196
ずれた鬱氏

A列
---
北海道
北海道
青森
岩手

に対して
B列
---
1
=IF(A2=A1,B1,B1+1)
以下同文（↑からコピー）
：

ってことね

>>196
うううまただ。「あ、答えられるー！」と思ったのに結局こっちが勉強になる(笑)
マクロで自動化することを覚えると、数式（関数）で工夫する努力を怠るようになるな。
んでマクロも詳しい訳じゃないから結構時間かかったりして。
精進します

俺は188さんじゃないのですが、
189さん194さん196さんのレスは、特に勉強になりました。
本当にありがとうございました。

A1からA1000（？）ぐらいまでのセルに不規則に並んでいる文字を
上から20セルづつ
B,C,D････のセル列に割り振りたいのですが
そんなことってできるのでしょうか？

>>200

1.[B1]セル→ =INDEX($A:$A, (COLUMN(B1)-1)*20 + (ROW(B1)), 1)
　　→[A21]の内容が参照される
2.[B1]セルの数式を1〜20行目＆ C列以降にコピー

INDEX(), COLUMN(), ROW() 各関数で何をやっているかは
ヘルプを見れ.

# もっとスマートなやり方がありそうなのでsage

INDEX関数の２番目の引数だけ補足しておくと
(COLUMN(B1)-1)*20 + (ROW(B1))

→自セルが（ｎ列目・ｍ行目）だとして
　　取得したいＡ列の行数＝(ｎ−１) * 20 + ｍ
と力ずくで計算してるわけだ。

各関数の振る舞いについてはやっぱヘルプ見てちょ

>193
エクセルの終了に時間がかかる件で質問させていただきました。
おかげで終了時間が、うそのように
早くなりました。
感謝いたします。
有難う御座いました。

どなたか教えてください・・。Excelのカメラ機能で、同一シート上でのカメラ
機能は使えるのですが、例：Sheet１からSheet２へのカメラを使っての貼りつけ
が出来なくなってしまいました。

貼りつけようとすると、『リンク貼りつけ出来ません』とエラー
が出てしまいます。・・・使用しているのはExcel2000です。
すみません。どうしたら直りますでしょうか？？
時間が無いので、過去ログ読んでないのでもし、同様レスがあれば
申し訳無いのですが・・・。どなたか教えてください！
・・・・困ってます・・・。

質問させてください。
Ａ列に商品の項目、Ｂ列に金額が入力されているとして、
そのうちのどれか10項目分を合計した金額が3000円だとわかっていたとします。
この合計を導き出す金額の組合せをもとめることはできるのでしょうか・・・？

>>205
セルを選択すると、画面下、タスクバーのすぐ上のところに
「データの個数=4」とか「合計=2000」とか出るところがあって、
右クリックで「合計」を選ぶと常に選択したセルの合計が表示される機能が
あるのですが、それをご存知でおっしゃてるのでしょうか？
ctrl+クリック(またはドラッグ）の選択でいろいろ試してみては？

組み合わせをもとめる、と言っても、セルに表示されるイメージがわかないので
関数では難しいかと…

よいしょ！

マクロで２つのフォームを同時に表示するにはどうしたらいいですか？

以下、Sheet1からSheet2へのコピペを記録したマクロです。
ここで、Sheet1に戻るところを「さっきのシートに戻る」みたく出来ませんか？
Sheet3からSheet2へのコピーも同じマクロでやりたいんです。
余談ですが、
クリップボードを使ってＡ１，Ｃ１セルを一気にコピペしたのを記録したマクロを
実行するとエラーがでます。

Range("A1").Select
Selection.Copy
Sheets("Sheet2").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Range("C1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Range("C1").Select
ActiveSheet.Paste
Range("A1").Select

>>209
現在のシート名は
mysheet = ActiveSheet.Name
てな感じで取得します
Sheets(mysheet).Select
で、このシートに戻ってこれます

>>209

選択したシートのA1,C1を次のシートのA1,C1へコピーする。

Sub Test()

With ActiveSheet
  If .Index = Worksheets.Count Then Exit Sub
  Worksheets(.Index).Range("A1").Copy _
         (Worksheets(.Index + 1).Range("A1"))
  Worksheets(.Index).Range("C1").Copy _
         (Worksheets(.Index + 1).Range("C1"))
End With

End Sub

>Sheet3からSheet2へのコピーも同じマクロでやりたいんです。

Sheet1からSheet2へコピーして、Sheet3からSheet2へまたコピー？
同じセルに？意味が解らん。

>>205
Excelの関数としてはその類をサポートするのはないのではないかと。
本気でやるならマクロ作りこめばできるが、プログラミングの世界になる。ちょっちめんどくさいと思うよ。
(205がプログラマなら「動的計画法」とか「ナップサック問題」あたりでアルゴリズム調べてプログラム組んでみれ)
てなわけで206の言うように人手でやるのが（非効率だが）現実的かと思われ。

>>208
openしたフォームをcloseしないで次を開いたら？
Windowの切り替えができるかどうかは知らないごめん

>>209
プログラムはExcelVBAしか知らない私の邪道な方法。
Sub hoi()
Worksheets("Sheet2").Range("A1").Formula = Worksheets("Sheet1").Range("A1").Formula
Worksheets("Sheet2").Range("C1").Formula = Worksheets("Sheet1").Range("C1").Formula
Worksheets("Sheet3").Range("A1").Formula = Worksheets("Sheet1").Range("A1").Formula
Worksheets("Sheet3").Range("C1").Formula = Worksheets("Sheet1").Range("C1").Formula
End Sub

質問させてください。
グラフの件ですが、同じ様式の表が２つあり、その両方のデータを
使って、１つのグラフを作成するのは可能でしょうか。
具体的には、店舗の売り上げを、上半期・下半期に分けて作成している
場合、年間を通した１つのグラフが作成可能かどうかということです。
この場合、表の方は列が月、行が売上高です。

初心者で申し訳ありませんが、何か方法がありましたら、お教え願えませんか。

>>215

グラフ用にどっかのシートにつなげてコピぺして
作れば良いだけじゃねーの？

初心者だそうなので少し丁寧に（要するに216さんと同じことを言ってると思う）
１．新しいシートを作成
２．上半期のシートから、必要な範囲を選択して、コピー
３．１．で作ったシートの適当なところ（Ａ１でいいか）で形式を選択して貼付け、の、
　　リンク貼付け（１回限りなら、普通に[貼付け]でＯＫ）
４．下半期のシートからも同様に、上半期の表の右（かな？）にでもコピーしてくる
５．という風に表を並べたらその表からグラフが作れるべ？

見出し部分は普通に作って、データ部分だけをリンク貼付けしたらいいのかな
リンク貼付けしたら、元のデータが変更された時、自動で更新してくれます
（手動更新にもできるけど、初期設定ではそのはず）
同じブック内だったらエラーも比較的出にくいでしょう。

ありがとうございました。
大変参考になりました。
これからも、勉強に励みます！

>>206、>>212
レスありがとうございます。
ド素人なので、ものすごくトンチンカンな質問をしてしまったようで
すみませんでした。
>>206さんの教えて下さった方法でがんばってみます。

基本的な質問で申し訳ないのですが
数値として入力してあるデータをアクセスに
インポートした場合に、セルに表示され
ている状態ではなく数値を表示する
データが渡されてしまいます。
数値として入力されているデータを
表示されている文字列のデータに
変換するにはどうしたらよいのでしょうか。

フィルターオプションをかけると強制終了になるけど、これバグかな
知っている方居たら教えて下さい

都市名　人口　商店数（以下繰り返し）
みたいな組のデータがあったとき、人口vs商店数の散布図を描き、
散布図中の各プロットに都市名のラベルをつける、というような
グラフを描く方法がありましたら教えてください。

あと、散布図を二軸上の折れ線グラフみたいに、
ｙ軸メモリを左右両方におくことはできるでしょうか。

>222
意図するところとは違うかもしれないが
都市別の人口-商店数表を作成
それぞれの表を系列としてグラフに挿入(3都市なら3系列)
系列毎に名前を都市名としマーカの色を変え、都市名は凡例に表示させる
というのではだめでしょうか？
名前をX,yに関係ない値をラベルにするのは難しそうなので

下のような事をエクセルの関数やマクロを利用して解決したいの
ですが、、、教えて下さい。

元データの合計値を計算します。
元データは小数第１位までのデータです。
元データも含めて合計値も小数第１位を四捨五入して結果を表示
します。
整数表示後の合計値が、整数表示後の元データの合計と一致しな
い場合は、元データのうち最も大きな元データの表示値で調整する

元データ
Ａ　＝　８.１
Ｂ　＝　７.４
Ｃ　＝１９.４
合計＝３４.９ → 整数表示時は３５

表示
Ａ　＝　８
Ｂ　＝　７
Ｃ　＝１９
合計＝３５　← ８＋７＋１９＝３４と一致しない。値＝３４も誤

最終的に表示したい形
Ａ　＝　８
Ｂ　＝　７
Ｃ　＝２０
合計＝３５

ご教示ください。
文字等が入力済みのセルに、追加入力をする方法なのですが
・セルをダブルクリック。
・上のバーで入力。
の２通り以外の入力方法は無いでしょうか？
マウスを使わないでコマンドだけで追加入力したいのですが

冴子先生を超える方お願いします。

http://home9.highway.ne.jp/cym10262/

>>226
F2を押す。

>>221
http://mentai.2ch.net/test/read.cgi?bbs=bsoft&key=991703742
と同じ方ですかね？ だとしたらExcel2000だよね。

[XL2000] フィルタオプションの設定で垂直スクロールバーをドラッグするとエラー
http://www.microsoft.com/JAPAN/support/kb/articles/J056/1/64.htm
（再現方法等は省略。知りたい場合は上記サイトを参照してください）
状況
この問題は既に弊社にて Excel 2000 の問題として確認しており、現在調査中です。
詳細がわかり次第、サポート技術情報でお知らせする予定です。

回避策
以下のいずれかの方法で回避することができます。
1.[ツール] メニューの [ユーザー設定] の [オプション] タブで、
"ツールバーにボタン名を表示する"をオフにします。
2.スクロールバーをドラッグしてスクロールおこなわずに、
スクロールボタン (下矢印) をクリック、キー操作でスクロール、
ホイールマウスの場合はホイールを使用するなど、他の方法でスクロールします。

>>228
有難う御座います。
冴子先生は、こんな簡単なこ事は教えてくれませんね。
聞き方が悪いのかな・・・

>>230
元々知ってたけど、さっきあえているかのカイル君に聞いてみました。
2000：「セルの編集」で質問＞セルのデータを編集する
XP：「セルの編集」で質問＞セルのデータを編集する＞ヒントボタンを展開

質問です。入力規則の設定で「リスト」を選択し、入力時にこのドロップダウンリスト
を開いたときにこのリストは５列展開されますよね。
この展開列数は増やせるのでしょうか。

>>232
家で、2000と2002の両方インストールされている混在環境で
両方試してみましたが、「5列」ではなく
「8行」表示されました。また、特に設定項目は無いと思いますケド。

エクセル９５ではテキストボックスに影を付けたり、角を丸くできたのですが、
エクセル２０００では出来ません。
その機能は無くなったのでしょうか？

年度別の経理の集計表を作成しています。

sheet1「集計表」　
sheet2「1999｣　1999年のデータ
sheet3「2000」　2000年のデータ
　　･･･以下、毎年西暦のシートにデータを作成していく。

集計表に過去3年分のデータを表示させるようにしたいのですが、
参照シートが毎回変更になるので

=SUMIF(INDIRECT(N5&"!"&C:C),"=現金",INDIRECT(N5&"!"&G:G))
　　※セルN5にはシート名を入力する。

と作成してみたのですが、#REFエラーが出て上手く表示されません。
なにが原因なのでしょうか。ご指導お願いします。

ちなみに　=SUMIF('2000'!C:C,"=現金",'2000'!G:G)
とシート名を直接入れると表示されます。

>>235

あんたが、間違えてるだけ

=SUMIF(INDIRECT(N5&"!C:C"),"=現金",INDIRECT(N5&"!G:G"))

>96
[DBNum1]G/標準
[DBNum2]G/標準
[DBNum3]G/標準
でどだ　いまさら

「フォームツールバー」と「コントロールツールボックス」
何が違うの？
後者のほうができること多いのはわかるんだけど。。。

>>236　できました！ありがとうございます！

自分でもｳﾞｧｶな間違いだろうとは思っていたけど、
こんな単純なミスだったなんて･･･。

ほんとに助かりました。ありがとうございます。愛してます。

>>238

フォームツールバーは前バージョンとの互換性の為にある。

俺は、シートにボタンを置く時は今でも使ってるけど。

COUNTIFについてです。
範囲内の数値の、ある値以上ある値以下の数を出したいのです。
値の上下限値はセルに入力して決めたいのですが上手くいきません。

※自分が試した式です。
=COUNTIF(B3:B12,">=D1")-COUNTIF(B3:B12,">=E1")

つまり、D1以上Ｅ１より小さい数が出るようにしたいのです。
どこを直せば良いのでしょうか？

>>241

=COUNTIF(B3:B12,">="&VALUE(D1)) で D1 以上は出る。
=COUNTIF(B3:B12,"<"&VALUE(E1))　で E1 未満も出る。

でも差引して「D1以上Ｅ１より小さい数」にはなんねーだろ？

俺なら、C3とかに　=IF(AND($D$1<=$B3,$B3<$E$1),1,0)
と入れてC12までコピー、その後、=COUNTIF(C3:C12,1)で
数えるかな。

>>242
ありがとうございます。
ちゃんと出来るようになりました。

えと、Ｄ１以上−Ｅ１より多い　で上手くいきました。
でも、Ｃ列に式を入れるというのも色々と使えそうです。
本当にありがとうございます。

Ｄ１以上−Ｅ１以上　でした。失礼。

エクセル９５ではテキストボックスに影を付けたり、角を丸くできたのですが、
エクセル２０００では出来ません。
その機能は無くなったのでしょうか？

ロックをかけてるセルとかけてないセル、
ひと目で分かるような方法ってあります？？

期待age

>>245
できますが？表示⇒ツールバー⇒図形描画　で、図形描画ツールバーを
出しておき、テキストボックスを選択後、図形描画ツールバーの影ボタン
をクリックし、好きな位置を選んで下され。

ひにち 内訳 金額
6月12日 通信費 123300
6月14日 交通費 113335
6月15日 食費 13255
6月13日 通信費 15453
6月15日 交通費 11434
・
・
・
内訳
交通費 ここに交通費だけの合計を出したい
通信費 ここに通信費だけの合計を出したい
食費 ここに食費だけの合計を出したい

仕事できねー 帰れねー 教えーてー

ロビーより。

単純に金額だけ出すなら、＜データ＞→＜集計＞使えば？
あとは、ＳＵＭＩＦ関数？

客先名称 商品名 型番 売上
（株）EC産業 グッズA N8100XC \68,900
（株）共栄産業 付属品B PB2-A \192,000
（株）三平商会 製品C N8100XC \137,800
　　　　・　　　　　　・　　　　・　　　　　・
　　　　・　　　　　　・　　　　・　　　　　・

こういう売上表の売上金額を、全商品がのってるマスターの、売上
金額欄に自動で入れる方法を教えて下さい。
客先名称、商品名、型番、売上金額、の体裁は同一です。

売上表とマスターを同一にして、３−Ｄ参照でしょうか？
一番左を並べ替えしても、同じ客先がたくさんあるので、
ＶＬＯＯＫＵＰでうまくできません。

>>245
さんきゅー

うまく説明できないのですが、、、
行A
行B
を、編集して
行A
行A
行A
行A
行B
行B
行B
行B
と言う風に、1行をコピペで4倍にしたいのですが、、、。

600行あるファイルで、これを4倍の2400にしたいのですが、手動だと厳しいのです。
どなたか効率いい方法をご教授ください。
よろしくお願いします。

4回こぴぺしてからならびかえたら？

>>253
マクロ使う

２５４補足
１列追加して連番でＩＤを作ってから４回こぴぺ。
「データ」「並び替え」でＩＤの列をソート。

レス下さった方ありがとうございます。
マクロはわからないので、まあ色々と頑張ってみます。

>>254さらに補足いたします。
A B
1 mona
2 giko

というデータがあったとして１列挿入してＩＤを作る。
A B
1 1 mona
2 2 giko

３回コピペする。
A B
1 1 mona
2 2 giko
3 1 mona
4 2 giko
5 1 mona
6 2 giko
7 1 mona
8 2 giko

範囲を選択して、メニューバーから「データ」「並び替え」
「最優先されるキー：列Ａ」を実行。
A B
1 1 mona
2 1 mona
3 1 mona
4 1 mona
5 2 giko
6 2 giko
7 2 giko
8 2 gik
列Ａを削除して完了。

うぉぉぉぉ！！
>>258
マジ、感謝します
あなたに幸あれ

258さん、頭柔らかいですねぇ
それとも、俺がアホなだけかなぁ

VBAのプロパティウィンドウの文字だけ変な文字体になって困っています。
エディタの文字はオプションで変更できるのですが、
プロパティウィンドウのフォントはいろいろ探しましたが
変更することができません。

これは僕だけの現象なのでしょうか？
なぜこんな読みづらいフォント使うんでしょうか？
誰か解決方法教えて下さい。

>>251
セルフレス（w
客先名称、商品名、型番、を「＝A1＆A2＆A3」というひとつのセルにして、
VLOOKUPをかける！

いやー、今日はビールうまい。

>>261
http://www2.odn.ne.jp/excel/waza/macro.html#SEC2

263さん
ありがとう。

グラフの横軸をきめるにはどうやるの?

シートの起動時にマクロを自動実行したいのですが
どうすればいいんでしょうか？
へんな質問ですみません。

>>266
標準モジュールではなく、各シートの振る舞いを書く欄がある。
プロジェクトエクスプローラのシート1とかをダブルクリックするとでてくる。
シートを選択した時に実行するマクロなら、
Private Sub Worksheet_Activate()
MsgBox "test"
End Sub
のように書く。
ちなみにそのファイル(Book)を開いたときに実行するマクロは
Thisworkbookというのをダブルクリックして、
Private Sub Workbook_Open()
MsgBox "Test"
End Sub
のように書く。

初めてexcelを使いました。

小学生の算数に出てくるy=2xのような
1次関数のグラフを作りたいのですが､
どうしてもxとyが別々の線になってしまって困っています｡
普通の折れ線グラフでは駄目なのでしょうか｡

>>268
xの列とyの列があるのならば散布図でOK

グラフの横の目盛の最大値を変えるにはどうすれば良いですか？
何回変えても変わらないんです…

３次関数の解き方を教えてください．
また収束計算の方法も教えてください．

>>270
グラフの種類は何？
散布図とかだったら軸の書式設定で変わる。
縦棒とか折れ線なら元のデータの範囲で決まる。

掘り起こしage

データが書き換えられないようにセルにロックを掛けていると、
オートフィルタが使えないみたいです。

オートフィルタは使いたい、でもデータは保護したい・・・
どうしたらいいでしょうか？

XP買え↑

>>271
関数の解き方って何じゃ？
方程式の解き方ならわかるけど。
３次方程式なら「カルダノの公式」が一般的。
それ以上は数学板へ逝って訊いてくれ。

>>184
アドインとして保存して、[ツール]--[アドイン]で組み込んではどうよ？
亀レススマソ。

>>277
personal.xlsをシート非表示にしてたらいいんでは？

割り込みしてすみません｡読み情報について教えて下さい｡
Excelのテキストの次のようにかいてありました。
「五十音順の並べ替え」
　　Excelでは，日本語入力と共に「読み情報」を記憶します｡この「読み情報」を使うと、ふりがなが表示されていなくても五十音順に並べ替えることができます。
　　※固有名詞など，一般的な「読み」を変換できないものは「読み情報」を修正しておきます。
この「読み情報」て何ですか？漢字が同じでも読み方の違うものがあります。並び替えをするとき，パソコンが正しく読んでくれないと並び方の結果が違ってくるので，辞書登録などに登録しておくとよいということでしょうか？
ご存知の方，教えて下さい｡よろしくお願いします｡　　　　　　　　　　　riahona

時刻の集計について

　　　　　Ａ　　　　　　　Ｂ　　　　　　　　　　Ｃ
2001/6/15　15:30　　　　　　　　　　　　　　　100
2001/6/20　9:10　　　　　　　　　　　　　　　　200
2001/6/8　11:40　　　　　　　　　　　　　　　　150

こんな風にＡ列に日時、Ｃ列に個数が入力されてます。
Ａ列は半角で日時を入力してあるので文字列じゃないです。

この表から日付を無視した時刻だけでの、時間帯別の個数の集計をしたいのです。
それで、Ｂ列にはＡ列を参照して時刻だけ値が出るようにしたいのです。

　　　　　Ａ　　　　　　　Ｂ　　　　　　　　　　Ｃ
2001/6/15　15:30　　　　15:30　　　　　　　　　100
2001/6/20　9:10　　　　　9:10　　　　　　　　　200
2001/6/8　11:40　　　　11:40　　　　　　　　　150

↑こんな風にするにはどうしたら良いでしょうか？
それとも、わざわざＢ列を作らなくても
時間帯別の個数の集計は出来るのでしょうか？
分かる方、お願いします。

>>279
セルに保存されているふりがなの５０音順に並ぶ。
ツールバーから「書式」「ふりがな」で修正可。

>>280
Ｂに「Ａ参照」を入れてセルの書式設定で表示形式を時刻にしただけじゃだめなの？

２８２ＮＧならＢをこんな感じかな
=TIME(HOUR(A□),MINUTE(A□),)

>>280
ヘルプでDSUM関数を見るとよいかも

すみません。
EXCELのマクロで質問させてください
EXCEL4.0の式で

=SELECT(OFFSET(ACTIVE.CELL(),,):OFFSET(ACTIVE.CELL(),,1))

というのはVisual Basicではどういう式になるのでしょうか？
お願いします。

282さんへ
>>283の方法で上手くいきそうです。
すっごく助かりました！！
本当にありがとう！

>>245
（遅いかな？）
ツール　→　図形描写　→　オートシェイプ　→　基本図形（好きなの選ぶ）　→　つかんで右クリック　→　テキストの追加
でテキストボックスみたいに使えるよ。
ちなみにオートシェイプの中に角がとれた四角図形があるよ。

Excelでタイトルバーの一番左のメニューをショートカットで表示したい場合Alt+スペースですが、Excel内のブックのタイトルバーの左のメニューを出すショートカットキーはなんでしょうか?

>>288
PC初心者板にレス付いてたよ。
マルチはやめたほうがいいよ。

範囲選択だよね。
ActiveCell.Resize(1, 2).Select
や
Range(ActiveCell, ActiveCell.Offset(0, 1)).Select
で、どう？

>>285
を書き忘れた。

PCG-C1VJ + IODATA 128 + IBM 20GN
タイトル：OH!!!! Smart Capture cannot run!!!!


After change to win2000 from WinME , I have try that the "Capture" button can use ga! but i don't know why today when i press it ,a message box come out "can not find MFC42.dll"
Is it cause of winsp2 ? what can i do ?

オフィス持ってないのだが、xlsファイルを見る方法はないかね？

表計算ソフトは持っていないのだが。

http://saki.2ch.net/test/read.cgi?bbs=qa&key=993396409

Excelで+4-2って打つと勝手に計算してしまうのですが
+4-2って表示したい時はどうするのでしょう？

初歩過ぎだと思うのですが、Excelでソートする場合、キー列は３列までしか設定
できないでしょうか？
元々Lotusを使ってたんですが、その時はいくらでもキー列を設定できたので、すっかり
それに依存してしまって困ってます。
Excelでキー列をもっと多く指定したい場合に、何か特別なアドインとかありませんでしょうか？
最悪は関数とマクロを駆使して何とかと思ってますが。

>>296
単純に文字列として扱えばいいだけなら、頭に'を付けて入力して。

>>293
検索したのかね？（藁）
http://www.google.com/search?num=100&hl=ja&safe=off&q=%82d%82w%82b%82d%82k+%83r%83%85%81%5B%83A&lr=lang_ja

>>290
ありがとう！！
「〜から」を4.0みたいに「:」でやるとエラーになっちゃうから悩んでいたのです。
（「"A○:A○○"」だと名前（？）で選択できないので・・・。）
感謝！

■Windows板 ローカルルール案 ■
--------------------------------------------------------
レイアウト見本　以下の案のどちらか賛成のほうを教えて

Win板のローカルルールを作ろう
http://yasai.2ch.net/test/read.cgi?bbs=win&key=986162000

422案
http://logdanyan.virtualave.net/up/image/1728.htm
482案
http://logdanyan.virtualave.net/up/image/1729.htm

どっちもいやだったら
http://logdanyan.virtualave.net/up/upload.cgi
にでもアップしてくれってことで

期限は 06/27 24:00 まで
知らなかったとか、んなことを後から言わないように。
--------------------------------------------------------
ローカルルールに入れてほしいルールがあれば箇条書きにして、
要望を出して下さい。

例）

マルチポストに関して　←ここは、内容ではない。

同一の質問を複数のスレッドにするときは、必ず、その旨を書き、
他のスレッドで解決した場合には、責任をもって結果を報告するように。
--------------------------------------------------------
コピペWindows板内自由　期限06/27 24:00まで

>>274
>オートフィルタは使いたい、でもデータは保護したい・・・
>どうしたらいいでしょうか？
エクセルファンクラブで解決方を見ました。マクロを使いますが
//cgi.fuji.ne.jp/~fj2094/cgi-bin1/wwwlng.cgi?print+200009/00090058.txt

すみません、誰か知ってたら教えて下さい。
excelの書式で進数を制御する事はできるのでしょうか？

>>298
できたよ!!ありがとぉ〜
今日からはﾃｷｽﾄﾎﾞｯｸｽ使わないで済みます（藁

>>297参考に
http://pcgaz.nikkeibp.co.jp/pg/pcgaz/excel/159.shtml

>>302
ありがとうございます！！
明日さっそく試してみます。

紹介されたサイトはExcelのワザが満載で、すごく役に立ちそうです。
ネットって本当に便利ですね。本屋で足がくたびれるほど探しまわったのに・・。

>>299 　ビューアって言葉を知らないと、検索できないのでは？

>>293 どうぞ
http://officeupdate.microsoft.com/worldwide/japan/downloaddetails/office/Excel/viewer/default.htm

>>299
ごめんなんか私、嫌な感じだ。すんません。ご苦労様です。お世話になってます（多分）

何もいじってないファイルを閉じるときに「保存しますか」と聞いてくるものと
そのまま閉じられるものがあるのですが、何かファイルに設定みたいなものが
あるのでしょうか？

>>305
ありがとうございます。
実は、書いてから念の為探し回って、見つかったのはそれだけでしたと書こうとしてました（汗）
結局地道が一番て事なんですね．．．。

>>309
savedプロパティってのがあるよ。
Falseになっていれば保存ダイアログが出る。
一部の関数でもブックを開くたびに再計算されるものがある。
そういうのを使っていればダイアログが出るよ。

>>297
エクセルファンクラブで見つけました
ttp://cgi.fuji.ne.jp/~fj2094/cgi-bin1/wwwlng.cgi?print+200006/00060053.txt

>>309
設定の他にも、todayとか あといくつか（だったと思う）
のある特定の関数が含まれていると、保存しますか。と聞かれます。
設定というよりは、仕様。

あまりにもうろ覚えだったので、やっぱり調べた。
えっと関数以外にもそうなるケースがあるようです。
http://www.microsoft.com/JAPAN/support/kb/articles/J014/1/08.htm
バージョンは違うかもしれないけど、その辺の仕様は変わってないはず。

>>309
あとは、ウィルスかな？
感染していないファイルを開いたときに、感染したせいで
変更が加えられ。

エクセル９７で、連立方程式を解くことは出来ないでしょうか？？
やってみたのですが、循環参照などというものが出てきて、もういっぱいいっぱいです。
どなたか分る方、お願いします。

>>315
excel2000には反復計算というのがあるけど
ツールバーから「ツール」「オプション」「計算方法」

>>311>>313>>314
どうもありがとう！
ずっと疑問だったのでうれしです。
自分で>>313みたいなところで調べなきゃダメですね。
すみません・・・。
>>311の「savedプロパティ」っていうのがよくわからないのですが、これはどこにあるのでしょうか。

>>312
ありがとうございます〜。やっぱりみんな悩んでるんですねぇ。大変参考になりました。

>>315

逆行列を使って解こう！
かんたんだよ。

Excel2000でExcel自体ではなく、BOOKのタイトルバーの一番左の小さなアイコンを
クリックするとメニューが表示されますが、そのショートカットキーは　Alt←↓と
聞いていますが97の場合はそれで問題ないのですが、2000の場合は一度BOOKを最大
化表示してしまうと、ショートカットキーではBOOKのメニューが表示されなくなって
しまいます｡なぜでしょうか?

質問させて下さい。
目的はゲーム（麻雀）の対戦表作成です。
参加人数はその都度違うのですが概ね25人前後です。

1.ゲームは4人が一つの卓で対戦する。例えば25人だったら6卓のゲームを
同時に行い参加できない者が1名出るわけです。
2.上記を4回戦行いたい。

このような条件で重複対戦を極力減らしたいわけです。
現在は毎回手作業で時間をかけて行っているのですが、
Excelを使い多少の手作業は残るとしても良い対戦表が出来ないものか
皆さんのお知恵を拝借したい次第です。

グラフ作ってます。
そこで、例えば
y=2とかx=1
などのような
x軸、y軸に平行な直線のグラフを
つくりたいです。
ただ、参照するあたいは
y=2だったら、2と入力されている
ひとつのセルから
直線を引きたいです。

何か良い方法ございますでしょうか？
お願いします。

>>322
わがままなやつだ。

グラフを作って、元データを消したいのですが、消すとグラフも消えてしまいます。
リンクを切ってしまう方法を教えてください。

>>324
jpegにしな

>>320
なぜでしょうかって・・・ここじゃなくてMSに聞けば？

>>322
せめて二つのセルには値が無いとねぇ。
一つ入力用で、もう一個は=b2とか入れれば一応入力一つにはなるけど。

>>324
Shiftキーを押しながら、編集＞図のコピー後 どっかに貼り付け。
又は、
系列を選択したら、数式バーにカーソルを置き「F9」後Enter。
これは、各系列ごとにやらなければならない。

初心者です。「エクセル2000関数ハンドブック」という本を読んでみたのですが、
今一つよくわかりません。
ビジュアルで初心者にもわかりやすい関数計算の解説書を教えていただければ幸いです。
よろしくお願いします。

各都道府県の就労人口とその産業別人口の内訳を円グラフにして表示したいの
ですが、第一次第二次第三次を選んでグラフを作ってもその総和を面積に対応
させることが出来ません。
各県のグラフを作ってそれぞれの就労人口も同時に視覚的に捉えて比較したいので、どうしても「就労者
人口」を円グラフの面積に対応させたいのですが。。。

セルの結合のショートカットを教えてください。
よろしくお願いします。

>>329
Ctl+1（テンキーはダメ）を押し、その後Alt+M

訂正
Ctl+1, →（カーソル）, Alt+M

っていうか、セルの結合のアイコンを増やせば？
念のため、メニューから表示＞ツールバー＞ユーザ設定＞
コマンド＞分類（G）から「書式」、コマンド（D)から「セルの結
合」アイコンをさがして、ツールバーへドラッグ。

↑早く寝ろ！アホ！

すみませんが教えてください
シート名を変更するには､シート名の所をダブルクリックしますが､これを行うショートカットキーはありますか?

すいません、グラフのことで質問させてください。

たとえば、１年分の各月データを入力しようと、１年分（１２ヶ月分）の
表をあらかじめ作り、折れ線グラフを書こうとしてるのですが、グラフもあらかじめ
１２ヶ月分のものを作っています。
しかし、６月分まで入力した時点で、残りの未入力の月のデータも「０」とされて
グラフに現れてしまいます。
この場合、未来のデータを表示させないことはできるのでしょうか。
御教授願えればと思います。よろしくお願いいたします。

本当に初心な質問ですが、
計算式を入力したセル情報だけをプリントアウトしたいのですが
これって出来るものなのでしょうか？
昔ロータスでやっていたので、エクセルでもやりたいな、と思いまして。

>>336
ツール->オプション->表示->ウィンドゥオプションの数式チェック
でどよ。

>>327
ttp://homepage1.nifty.com/kenzo30/index.htm
ここの「Excelの基礎」から「関数とは」「関数の構造」あたりはどう　

クリップボードビューアを使いたくないんですけど、
使わないようにするにはどうしたらいいですか？

いちいち出てきてうざくないですか？

>>339
イッコしかコピーしなけりゃでないでしょ

クリップボードビューア

邪魔だったから何回も消してたら「出さないけどいいか？」って聞かれた気がするが
夢だったのかもしれない

>>328さん
有り難う。参考にさせてもらいます。

質問です。
ひとつのセルに数字の１から５までのような範囲のある数字を入力し、さらに
それを数字として認識することができるのでしょうか？
誰か教えてください。

hage

>>343　意味不明。どうやって入力するんだ？　A1のセルに、
12345か、それとも1,2,3...か？　後者なら無理だわな。

>>345
つまり、ここにある石のデータがあります。
この石の屈折率は1.2から1.7である。これを１つのセルに入れたいわけ。

>>346　ごめんなさい、僕にはよくわからない。
関数に詳しい人だったら、答えられるのかな？

>>343
エクセルでは一つのセルに一つのデータを入れるのが基本。
事情により二つのデータが入った場合は「区切り位置」で
二つのセルに分けます。
最初から二つのデータを入力してそのままで計算させるなん
てのはアホ。やってできないことはないが。

前任者（退職済み）が使っていたデータを使用しているのですが、
セルをみると長い計算式が入っていることが多くて
その計算式の意味が解読できずに困っています。
計算式を解読することができるようなツールやサイトをご存知の方がいれば、
教えていただけませんか？よろしくお願いします。

>349
ワークシート分析って機能がありますが
ただし、これ使ったから式の意味が分かるとは限らない。
式を入れるときは、1セルで式の全て計算するより、
計算式のコントロールポイント毎に式を区切って表示させた方が
メンテナンス性はあがります。
長い式を作った前任者を恨みましょう

>>346

ひとつのセルにこだわる理由に興味あり。
おしえて。

例えばAのセルに"1"と入力したらBのセルに"東京都"と表示
そしてAのセルに"2"と入力したらBのセルに"大阪府"と表示
簡単に言えばAのセルに商品コードを入れたら
Bのセルに商品名が出る…みたいな感じなのにしたいのですが
いかがなものでしょうか？

>>352
vlookup関数を使うとよい。
最初にマスタとしてデータを持っておくこと。
ツールのアドインで、Lookupウィザードを
インストールしておくと、もうちょっと簡単に
できるかも。

>>350さん
レス有り難う。明日から少しずつワークシート分析を使って解読していきます。

>>353
vlookup関数って、覚えたら操作性抜群にあがるよね。
俺大好きです。
なぜかhlookupは使いません。。

先日インストしたオフィス2000のExcelなのですが、どうも
会社のとインターフェイスが違っていてこまっています。
というのはツールバーやメニューなどが一切みあたらないのです！
Excelを開くとシートだけがでてくるだけなのです。
右クリックでできる範囲だけでは厳しいのでなんとかしたいです。
どなたかご指南をおねがいします。

再インストールしましょう。

>>357
もちろん試してみたのですが結果は同じなんですよー

過去ログは読んでください。
このスレの64・69・70あたりを参照しそれをトライしてみて。
http://mentai.2ch.net/test/read.cgi?bbs=bsoft&key=986283001&st=64&to=70&nofirst=true

あ、>>359は >>356へのレスね。付け忘れた。

>>360
レスありがとうございます。
*.xlb の削除について試してみましたが、どうやらFileが存在
しないようです。
「直し用のマクロ」についての記述についても読みましたが未だ解決に
いたってはいません。
というかどうすればいいのかが理解できませんでした。
ttp://www.microsoft.com/japan/support/kb/articles/j027/0/64.htm

>>356
>>172

>>362
ありがとうございます。
無事解決でございます。済

ちょっと難しい事かもしれませんが
A1のセルからC10のセルのみほCSVファイルで
保存したりする方法はあるのでしょうか？
コピペや範囲を指定してというやり方以外に
ボタン一つやクリック一回で出来る方法が
あればありがたいのですが

初心者です。教えてください。
VLOOKUP関数だとひとつの条件を指定して一致したセルのとなりの数値をひっぱて
くることが可能なみたいですが、２つの条件から検索をする場合はどうしたら
いいんでしょうか？

こちらのページ
http://www.interq.or.jp/jupiter/star3385/
なんですが

なにやら、Win98の問題が解決するソフト？資料？を販売しているのですが
どなたか購入された方いますか？

なにやらインチキくさいのですが、
それでも、本当にフリーズしなくなるのなら、
ほしいと思も思うので検討中なのです。

>>364
そういうの、マクロ組むしか無いと思う。
又は、ベクターでキーボードマクロのソフトを探して外部から操るかね。
因みに下のあたりね。
http://www.vector.co.jp/vpack/filearea/win/util/operate/index.html

VBAで列の件数を表示したいんですけど。
A = Application.WorksheetFunction.Count(Range（"A2:D3"）)
では、範囲がA2からD3になりますよね？
そこでA２からA５０００と入れてみたのですが･･･。
動いてくれません･･･。Range関数が悪いのでしょうか？

>>368
あれ〜？試してみたけど動いたよ。
A = Application.WorksheetFunction.Count(Range(ActiveCell, ActiveCell.Offset(5000,0)))
とかはどう？

既出かもしれませんが、
エクセルで２乗を表示するにはどうしたら良いのでしょうか？
ワードや一太郎みたいに数字を左上小文字で表せるか？って
事なんですけど。よろしくお願いします。

>>370
小文字にしたい文字だけを選んで「書式設定」の「上付き」ってこと？

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

>>369
有難うございます！

>>365
直接の解答になるかどうかわからないが､｢配列数式｣を使いこなせれば､｢2つ以上の条件に合致する値の合計｣を導くことはできる
あとは､データベース関数DSUMなども利用できるが､間接セルが必要なので､あまり美しくない｡

ハイパーリンクでHTMLを設定して、そのHTMLをブラウザで表示させると
エクセル側では何も表示されなくなりますよね？

んでもって、HTMLを表示してる時も、エクセル側も表示させたいんですが
ハイパーリンクの設定でそのように出来るんでしょうか？

それとも他に呪文があるのでしょうか？

Excelで作成したデータベースから、数値を
一定の形式にあてはめて次々と印刷するにはどうしたらいいのでしょう。

年賀状作成ソフトの宛名書きみたいな感じで
名簿を規定の形式の用紙に印刷したいんです。

…めっちゃ基本的な使い方だと思うけど、わからない…

>>376
Excel単独で行うならマクロを使わなきゃ無理だろう。
１、印刷用シート作成⇒２、データベースの一行をコピー⇒
３、印刷
この２と３をＶＢＡで連続して行わせる。
Wordと連携させればワードの差込み印刷を使用。

>>375の回答さえ出てこない板なんていらねぇんじゃねーの？

>>378が謝るまで答えません。

しってます（ｗ

=NOW()

ところで375と378は同一人物？

違うやつだとしたら超嫌味なやつだね。
もったいぶらないですぐに教えてやれ。ヴォケ！

=TODAY()
=RAND()
などなど何でもよい。

同じやつだとしたら他所で教えてもらったろ？

http://www2.to/05F

http://www2.to/03F

http://www2.to/01F

指定したセルを固定して他のセルをスクロールさせる「ウィンドウ枠の固定」を解除しても、
印刷すると解除したはずのセルが各ページの頭に印字されてしまいます。
これを解除するにはどうすればいいんでしょう？

前任者のファイルを引継いだはいいけど、これを外す事が出来なくて困っています。
（本見ても、どんな目次を見ればいいのかわからないし・・）
すみませんが、ご存知の方がいらっしゃれば教えて下さい。よろしくおねがいします。

>>384
[ページ設定]の[シート]タブに､印刷タイトルというのがある

>>385
ありがとうございました！
おかげで助かりました。

数式パレットを折りたたむ&元に戻すショートカットキーはあるでしょうか？

エクセルの新しいバージョンっていつ頃出るんですか？

超、くだらないかもしれませんが、教えて下さい。
VBAのマクロ記録終了ボタンがある日突然でなくなりました。

俺も今日消したぞ。
記録ボタンの×印を押したからだよ。

で、どうやって復活させるんですか？

設定のバーが実は隠れているね。ちょうどアンフィニのマークの横の
▽印押してみて頂戴ね。ボタンの表示、非表示ってでてくるから！

わかんない！

>>389
ツール＞ユーザー設定＞ツールバーで、
それらしい、ツールバーのチェックをオンにしても 出せます。

Exelのワークシートを対話機能にチェックをいれてWebとして保存をクリックしてもWeb ページを対話的に使用するには、 Microsoft(R) Internet Explorer 4.01 以降および Microsoft Office Web コンポーネントが必要です。詳細については、Microsoft Office Web サイトを参照してください。
とエラーがでます。
どうしたらよいでしょうか？

↑Win2000です

IEは5です。誰か教えて！！

Officeの下級バージョンではサポートしていないのでは。
私も実際使えないから。

↑御免、いい加減な答えをしてしまった、訂正します。
設定の手順から
ファイル→Webページとして保存
（ファイル名をつけて保存画面）選択シートにチエックを入れて
ファイルの名前を入力（○○.HTML）
タイトルの変更をクリック
名前をいれてOK
そして、発行ボタンをクリック
（WEBページとして発行画面）
選択でファイルを選択して、
対話機能を追加のチェックを入れる。
発行をクリック
こんなもんでどうでしょうか？

>>395
文字通り Webコンポーネントがインストールされていないのでは？

アプリケーションの追加と削除＞Office2000を選択＞追加と削除ボタンをクリック
＞機能の追加と削除＞Officeツールを展開 で
「Office Web コンポーネント」は、マイコンピュータから実行
になっていますか？

セル内に入る数値で全てに小数第3位まで値があります。
各々の数値を

10000以上 → 1の位を四捨五入
100〜9999 → 小数点第1位を四捨五入
10〜99　　→ 小数点第2位を四捨五入
9以下　　 →　小数点第3位を四捨五入

以上のような関数を組みたいのですがどなたかご教示してください。
よろしくお願いします

>>401
ごめんなさい、頭悪いからこんなのしか浮かばないや・・・。

=IF(A1>10000,ROUND(A1,0),(IF(A1>100,ROUND(A1,1),IF(A1>10,ROUND(A1,2),ROUND(A1,3)))))

もっとスマートなのがありそう・・・。

>401

１以下の数字がないことを前提にすると、
ROUND(A1,IF(A1>1000,5,4)-LEN(ROUNDDOWN(A1,0)))
が綺麗かと思います。

もしあるのなら式がもう少し複雑になりますが。。。

>401
有効数字を4桁にしたいのなら､
=ROUND(A1,3-INT(LOG(A1)))
みたいにかけるけど､いかんせん､401のケースでは
1000以上の場合のルールが不規則だから､if文でわけるしかないでしょう

>>377
出張はいっちゃってお礼がおそくなりましたが、ありがとうございました。
なんとかやってみます。

>402
>403
>404
レスありがとうございます。402さんの数式を使用することとしました。

もお1つ教えて頂きたいのですが、複数セルからの文字列引用で
「MID(A1,1,1)MID(A2,2,2)」のように1つのセルに表示したいのですが
記載した数式のままでは"#VALUE!"になってしまいます。

どおしたらエラー回避できますか？

MID(A1,1,1)&MID(A2,2,2)

>407

教示ありがとうございます。
＆が使えることを始めて知りました。

仕事で日報をつける羽目になり困ってます
うちの１１店舗の毎日の成績をつけていくんですが、当日分、累計分と
一つずつ手入力してるので大変困ってます。
当日に入れると累計が更新する方法はないでしょうか？

>>409

Sumで良いように思うが？

マクロでセルの位置を設定して、覚えさせておけばいいじゃん。
そんなに複雑なことしていないと思うから。
エクセルでこの程度の内容が出来なけば、他のソフトさえも満足に
使えないよ。（関数ぐらい調べて使える能力を身に付けないとね。）
エクセルの関数の落とし込み方は初心者でも間違いないように
ウイザード形式にしているから、大変便利だよ。
時間があったら、ヘルプを読むなり、簡単な参考書を見て勉強
したら、

シート名を変数として扱う方法って何かないですかねぇ？

>>412
indirectではだめ?

４１２です。

早速のレスありがとうございます。

え〜と。。。
たとえばINDEX(oooo!A1:C5,F5）のような式を作るときの
oooo！の値としてシート名を変数で持ちたかったのですが。
エクセルでは無理なんでしょうか？

プレビューでは表示されるのに、実際プリントアウトすると
表示されない部分があるのですが…何ででしょう？

>>412
シート名じゃなくてセル範囲を変数としてもつ方がいいんじゃないの？
名前を付ければ変数みたいに扱えるよ。

oooo!A1:C5のセル範囲に「表」という名前を付ければ
=INDEX(表,F5,G5)　なんてできるよ。

>>414
それなら、indirectでできますけど

誰か優しい日と教えて下さい
仕事で管理台帳を作る羽目になりました
例えば、Aさんが７月２８日に３０万で購入し８月１７日に納期予定
このようなデータを1ヶ月で１００人ほどいれますが、納期ベースで
みれませんか？シート、セルはいくつ使ってもかまいません
例えば８月カレンダーに勝手に入るような都合のいい事出来ませんか？

>>418

RDB使えば？

ひとつのセルに”１＋３＋４＝”と文字列入力して、隣りのセルに
その答えを表示する方法わかる人いますか？Str関数では出来ませんでした。
ってゆうかそんな関数用意されてません。
簡単なようで、頭のうすい俺には思いつきません。
ヒントだけでもお願いできませんか？

>>420
以下のモジュールを､そのワークシートに張り付けよ
Function Eval(x As String)
Eval = Evaluate(x)
End Function

>419さん
すみません初心者もんなんでRDBの意味がわかりません
それと、話変わりますが、＞＞４１８ってリンク？どうやってやるんですか

421さんありがとう。
ちょっとやってみます。

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

indexの中でindirectを持てばよかったんですね。
すべてindirectでくくらなければならないのかと思って
苦戦してました。

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

よろしくお願いします。

住所録の打ち込みを初めて頼まれたのですが、
市外局番が入っているところと入っていない
所があって、当初「そのまま」だったのですが、
「やっぱり市外局番が入っていない奴にも入れて」
と頼まれました。

マクロと言う物があるのは分かっているので
H列に混じった電話番号が入っているならば、
「Ifを使って数値の頭が0でなければもと有る数字に
"0XXX-"を追加する」
と、やればいいのですが、メニューのどこを選び、
どんな風に書けばいいのか見当も付きません。

よろしければご教授願います。このホームページを
見ろとか言うのでも結構です。よろしくお願いします。

>>425
元々入ってる局番は全て同じものですか？

例えば
０３−５５５５−６６６７
０３−５５５５−６６６８
０３−５５５５−６６６９
５５５５−６６７０
０３−５５５５−６６７１
５５５５−６６７２
０３−５５５５−６６７３
みたいな感じで入っているのでしょうか？

いえ、ばらばらです。
0720-20-111z
20-111x
21-111c
32-111v
0720-33-111b
みたいな感じなので、「一文字目が0以外なら0720
を追加(局番は0以外なのは確定ですし)」かな？と。

じゃ、例えばA列に番号で、B列に
=IF(LEFT(A1,1)="0",A1,CONCATENATE("０720-",A1))
をフィルとかではダメっスか？

できました。有り難うございます。
なんか>>428さんの"０720"の０だけ全角だったので、
一応半角に直して、列全体に書式をペーストで出来ました。

教えて君だとアレなので、CONCANTENATEを調べると、
「文字列をくっつける」関数みたいですね。先方が指定して
来なかったんですけど、多分文字列だと駄目かも知れないので
そのあと全部数値に置き換えました。

>>426さん、>>428さん(同一人物でしょうか？)有り難うございました。
当方同人版の腐女子ですかホッペにCHUってしていいですか？(笑

＞なんか>>428さんの"０720"の０だけ全角だったので
あっ、ホントだ。
直してください。

CONCATENATEじゃなくて
=IF(LEFT(A1,1)="0",A1,("0720-"&A1))
でも大丈夫みたいです。

Excel2000なんですが、
VLOOKUPのヘルプを呼び出したときに載っている例題でいまいちわからない
ところがあるのでお訊きします。

VLOOKUP(1,範囲,1,TRUE) = 0.946

一番目の引数なんですが、ここで1とあるのですが、実際の表には1という
値はないのです。どうやら0.946がそれらしいのですが、検索値には近似値
もOKということなのでしょうか。

解説
・検索の型 に TRUE を指定し、検索値 が見つからない場合は、検索値 未満で最も大きい値が使用されます。
・検索値 が 範囲 の左端の列の最小値より小さい場合、エラー値 #N/A が返されます。
・検索の型 に FALSE を指定し、検索値 が見つからない場合は、エラー値 #N/A が返されます。

>>431
も〜と簡単にいえば、
コードなどの正確な情報を呼び出したいときにはtrueを、
いくら以上いくら未満はこれ〜みたいな指定をしたいときにはfalseを
指定すべし。

>>433
ごめん逆だった。

>>432
レスありがとうございます。
第一引数ばかりにとらわれて、すっかり検索の型を見落としていました。
今ヘルプをみたらそのことがしっかり書いてありますね。（汗

A1に 50 と入力したらB1にも　50　と表示させる事はできるのでしょうか？

説明不足かもしれませんがよろしくお願いします。

ん？

>>436
B1のセルに =A1 の数式を入力でＯＫですが､A1セルが空白の場合
B1は ０ と表示されます｡これを避けるためにIF文を使いB1セルには
=IF(ISBLANK(A1)=TRUE,"",A1) とする｡
A1が空白の場合にはB1も空白になる｡
これとは別にセルの表示形式で空白にすることも出来る｡
こんな基本的なことを聞くな｡ヘルプを見て勉強しろ｡

イルカと会話しながら作業しなくてはならないようなエクセラーは逝ってよし！

あの〜・・

11.5 11.2 10.7 平均11.1
ではなく
11.1から　11.5 11.2 10.7を出したいんですが・・・
無理ですか？

>>440
一度手計算でやってみてください｡手計算で出来るならEXCELでもＯＫ。

>>441
それは
手計算で出来ることは
エクセルでも出来るってことですね？

ね？(T_T)

>>440
そんで手計算でやったの？
Ａ，Ｂ，Ｃ 三つの数字の平均が１１．１になる｡
この11.1になる三つの数字の組み合わせを求めよ｡
どのくらいの組み合わせがあるかやって頂戴｡

>>443
はい
やってみます

ちと時間かかります
一応仕事してますので・・一応

>>440
＞11.1から　11.5 11.2 10.7を出したいんですが・・・
っていうのはあらかじめに11.5、11.2がわかってて
平均11.1になるような数字（10.7）を求めるってことですか？

すみません・・・
説明不足でした

平均の11.1は決まってますが
データの11.5 11.2 10.7は
平均ﾌﾟﾗﾏｲ1.0ぐらいで
ランダムでいいんです

Ａ列 Ｂ列 Ｃ列
10.6 10.7 12.0
10.7 10.8 11.8
10.8 10.9 11.6
10.9 11.0 11.4
11.0 11.1 11.2
11.1 11.2 11.0
11.2 11.3 10.8
11.3 11.4 10.6
11.4 11.5 10.4
11.5 11.6 10.2
　　　　　　・
　　　　　　・
　　　　　　・
　　　　　　・
みたいなこと？

>>447
うわ・・
わざわざすみません・・

Ａ列 Ｂ列 Ｃ列 Ｄ列
11.7 11.5 10.9 11.4
10.3 11.2 10.6 10.7
11.6 11.9 10.4 11.3

D列で平均が出ます
でもその逆をしたいのです
11.4を入力してやると
Ａ　Ｂ　Ｃに11.4ﾌﾟﾗﾏｲ1.0ぐらいで
ランダムな数値が出るようにしたいのです

説明下手ですみません・・
わかってもらえたでしょうか？
放置でしょうか？？
おねがいします〜〜！！

ＶＢＡの標準モジュールに下記コードを貼り付け実行｡
Sub Heikin()
Const Ar As Integer = 111 '平均を記入｡整数値にしてください。
Const Mi As Integer = Ar - 10, Ma As Integer = Ar + 10
Dim L As Integer
Dim I As Integer, J As Integer, K As Integer
L = 1
For I = Mi To Ma
For J = Mi To Ma
For K = Mi To Ma
If I + J + K = Ar * 3 Then
Range(Cells(L, 1), Cells(L, 3)).Value = Array(I / 10, J / 10, K / 10)
L = L + 1
End If
Next K
Next J
Next I
End Sub

>>441

すご・・
ややややってみます！

・・・・VBA・・・
とにかくやってみます！！


有り難うございます！

>>441
やってみました！
出ました！

３３１行も！(T_T)
・・見るとわりと規則性がありますね・・
やっぱりランダムに・・てのは難しいのでしょうか・・

自分でも勉強してみます！

441さん横から失礼。
rand関数を使えばよいのでは？
rand関数は0から1のランダムな値を返す関数なので、
次のようにすればaを中心に±bの範囲でランダムな値がでます。
=(RAND()-0.5)*b*2+a
11.4を中心に±1なら次のようにします。
=(RAND()-0.5)*1*2+11.4
どうでしょか？

>>452

実はそれっぽいの作ったんです

単純に11.4の±1.0ならいいんですが・・
その式で数字を三つ出して割っても
・・・・11.4には・・・・

つーか３つともランダムに出したら11.4になるはずなかろうて。
二つをランダムにだして、残りの一つは帳尻合わせの計算で出せばよかろうが。

日頃ランダム関数なんて使ってないから遅レスでスマソ｡
ランダムを入れる変数を二つ（Ｍ，Ｎ）作りそれぞれが一致したときに書き込む｡
ランダムで一致する回数は（Ｒ）でアジャストする｡Ｒが大きければ書込みは少ない。
Sub Heikin()
Const Ar As Integer = 111 '平均を記入｡整数値にしてください。
Const R As Integer = 8 '１〜８の乱数を発生さす｡
Const Mi As Integer = Ar - 10, Ma As Integer = Ar + 10
Dim L As Integer, M As Integer, N As Integer
Dim I As Integer, J As Integer, K As Integer
L = 1
For I = Mi To Ma
For J = Mi To Ma
For K = Mi To Ma
M = Int((R * Rnd) + 1)
N = Int((R * Rnd) + 1)
If I + J + K = Ar * 3 And M = N Then
Range(Cells(L, 1), Cells(L, 3)).Value = Array(I / 10, J / 10, K / 10)
L = L + 1
End If
Next K
Next J
Next I
End Sub

もっと良い方法が有ると思うがタダで動くのは地震だけだ。
２chはインデントが利かないがインデントを利かす場合はどうしたらいいのか
どなたか教えて下さい｡

>>455
めんどいけどTABをスペースに置き換える
貼り付けた時点でのインデントはTABだから無視されるよ
ま、ソースまで貼り付けてるんだから文句はないでしょ

>>454

(ﾟдﾟ)・・・・・・

あ・・頭フニャチンですね・・・・！
目からウロコです・・
何とか解決しました！！
・・ところで・・４５４さんは
どんな式で帳尻会わせる計算したでしょうか？
気になります・・

>>455

わざわざすみませんでした！
一応の解決はしました
455さんが
買ってもさっぱり見なかった
VBAの本を開く気にさせてくれました！
感謝！

精進します。

ＶＢＡでインデントを利かすためのテスト｡
Sub Test()
Dim 'スペース４個
' Dim 'クォーテーション＋スペース
_ Dim 'アンダーコア＋スペース

ここにこられる方はどこで勉強されたのでしょうか？
エクセル、VBAと取り組みたいんですが・・
どこから手をつけるべきかもうさっぱりで・・・

1-2-3と88basic

>>459

じどうきろく

>>438
ありがとうございました。
頑張って勉強します。

>>438
ありがとうございました。
頑張って勉強します。

>>438
ありがとうございました。
頑張って勉強します。

区切り文字が<>で書かれたログファイル(.txt)をEXCELで編集し、
そのままの形式で保存したいのですが、
保存形式で.txtを指定すると強引にタブ区切りにされてしまいます・・・
何とか保存時に区切り文字をカスタマイズできる方法はありませんでしょうか・・・

すみません、区切り文字は<>の2byteでなくでも結構です、
とりあえずタブ、スペース、カンマ以外の区切り文字のフォーマットで
保存したいのです。

他に方法があるのかもしれないけど、私ならカンマ区切りにして、
テキストエディタで開いてカンマと<>を置換しちゃうかも
なんか頭悪い方法だなー

あと、データの数が多いとしんどいけど、
=A1&"<>"&B1&"<>"&C1&"<>"&D1&"<>"&E1&"<>"&F1&"<>"&G1
っていう列を作って文字列を表示させちゃって、コピーしてメモ帳に貼り付け。

sed や awk 使えば .txt から一発だし自動化できるでしょ。
カンマやスペースはデータにまじってる可能性があるけど、タブは普通ないから、
タブで保存して s/\t/<>/g; するとよい。

EXCELのデータの並べ替えは,最大３項目までですか？
並べ替えの対象項目を増やせませんか？

>>469 下記のページに書いてあるよ。
http://pcgaz.nikkeibp.co.jp/pg/pcgaz/excel/159.shtml

上がってないので、上げておきます。

Windows Me で Excel2000を使っております。

・セルを入力する際、例えば
　半角の１を入力したら、「はい」と
　半角の２を入力したら、「いいえ」などと
　セルの表示を自動的に置き換えることはできませ
　んでしょうか。

過去ログや解説書など心当たりのものは一通り見回
し、友人にもあたってみたのですが、どうしてもわ
かりませんでした。
稚拙な質問で恐縮ですが、みなさまのお知恵をお借
りできれば幸いです。

最後の頼りが２チャンネルです。
どうぞよろしくお願いいたします。

>>472
VBAでフォームを使えば簡単に出来ると思うけど。
使わない場合は・・・・うーん。後で一括変換するぐらいしか思いつかん

ＶＢＡのシートマクロの Changeイベント を使えば簡単に出来るが､
シートの設計自体を工夫をすれば良いのでは思うが｡
もう一つ意味がよう分からん。
こんなのも出来る｡
A1に１or２を入力した時にB1に「はい」「いいえ」をあらわす場合、
B1セルの式は =If(A1=1,"はい",If(A1=2,"いいえ",A1))

>>472
表示形式を
[=1]"はい";[=2]"いいえ"
にすれば、見た目上は変わる
でも、「置き換え」は無理
それよりも、あなたの頭を変えた方がいいと思う

>>473-475

みなさまさっそくのレスありがとうございました。
大変参考になりました。
特に474の方、私がやりたかったのはこの方法でし
た。
表現が稚拙で、意味が伝わりにくかったと思いま
すが本当に助かりました。

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

ウィンドウの固定をして行や列を隠して印刷したいのですが、うまくいきません。
どうしたらよいのでしょうか？既出だったらすいません。急いでいるもので、過去ログ見てませんでした・・。

>>477
印刷時だけ任意の行または列を隠したいのなら、
１．まず保存。
２．列幅、行高さをゼロにしてから印刷。
３．保存せずに終了。
でどうです？

エクセル９７でグラフ（散布図）を作成しました。
横軸を対数軸とした片対数グラフなのですが、
数値軸の最大，最小値が任意に設定できず困っています。
（1,10,・・・10^nに丸めた値に変更されてしまう）

なにか良い方法があればご教授ください。

エクセル97でVLOOKUPで検索し該当データが無い場合、
該当データより小さい値の中で最大の値が表示されますが、
最も近い値を表示させるにはどのようにすればよいでしょうか？

例えば検索値が14700で
データ表に14701と14698がある場合、14698でなく
14700に近い14701の方を表示させたいのです。
既出だったらスイマセン、どなたか教えて下さい。

複数のシートの中から１ページのみ添付文書としてメールを送りたい場合、コピーをとらずにダイレクトに送る方法は無いでしょうか？
アホな亭主はコピーをとって新規文書に貼り付けると、、、アホなことを言ってます、、、

ワードで作ったファイルをフロッピーにいれて、
知り合いに渡しましたが、そのひとのパソコンで
開こうとすると、なぜだかパスワードを要求してくるのです。
パスワードをかけたこともなく、不思議です。

どういうことが考えられるのでしょうか。ご教授くださるとありがたいです。

しまった、スレ違いでした。。ここはエクセル。。。

>>481
[ファイル]-[送信]-[メールの宛先]で選択したシートのみを送信できますが、
添付文書とは違いますし、Outlookでないとシートのように見えないので、
相手のメールソフトがOutlook以外の場合は迷惑だと思われます。
全く内容がわからないという訳ではありませんが。

シート見出しを右クリックして、[移動またはコピー]で、移動先ブック名で(新しいブック)、
[コピーを作成する]にチェックを入れて、できたブックを名前をつけて保存、
保存したブックをメールに添付して送信…（[ファイル]-[送信]-[メールの宛先(添付ファイル)]でも可？）

私にはご主人がアホとは思えないのですが……私もアホなのかしらん

フォルダにある複数のExcelファイルから、ファイルを開かずに
特定のキーワードを探す方法、ソフトってありますか？
いろいろ探してみたのですが、見つからないです。
結構使われそうな機能だと思うのですが、どなたかご存知ないでしょうか？

エクセル２０００を使用中。
何故か解らんが、ファイルにプロテクト（ロック）がかかった。
読取専用で開こうとしたら、不正な処理が出て終わるし。
削除しようとしたら、プロテクトがかかってるって。
オイオイ。どーすらいいのよ？
教えて、ヘルプミー！

>>486
ファイルをコピーしてそっちを編集・・・じゃだめ？

>>477,478
表示メニューの､ユーザー設定のビューという機能を使うがよろし

>>486
FAQです｡下記参照
http://www.microsoft.com/JAPAN/support/kb/articles/J042/3/69.htm?LN=JA&SD=SO&FR=0

>>480
INDEXとMATCHを使ってしこしこと計算しましょう。
まずMATCHで照合の型を1として、返った値をINDEXの中に入れる。
次にMATCHで返った値に1を足して、同じくINDEXの中に入れる。
これらと元の値の差の大小で比較して導き出せばよい。

これ以上は自分で考えること。

セルの数式をそのまま他のセルにコピーしたいのですが。
「=c1」とゆう数式を他のセルに「=c1」のままコピーする方法を
おしえてください。

>>491
「=$c$1」としてからコピーしてみ。
「=$c$1」は直接打ち込んでもいいし、c1にカーソルもってって［F4］キー
押してもよい。

$の意味はヘルプで「絶対参照」を調べるのじゃ。

いくすせぷと
河ジャン寝巻きこごとわれ
ぴありでエクセルだと思った

>>492さん　ありがとう
もうすこしいいですか。
２００個ぐらいのセル全部に対していっきに
相対参照から絶対参照に切り替える方法はありますか？
ひとつひとつきりかえていかなければならないのでしょうか？

>>494
コピーすればいいじゃん。。

期間計算をしたいのですが、どうすれば・・？

２０００年６月１日〜２００１年８月１日

１年２月←これを出したいのですが。

DATEDIF(2000/6/1,2001/8/1,"Y")　期間内の年数の"1"が出てくる
DATEDIF(2000/6/1,2001/8/1,"YM")　１年未満の月数の"2"が出てくる

で、これを連結してみる

>>490さんありがとう、出来ました!
5日間も悩んでたのがやっと解消されたっす。

エクセルの列表示が「アルファベット」でなく、
「数字」になってしまい使い辛いです。

一番左上のセルは「Ａ１」でなく「Ｒ１Ｃ１」となります。

これって、設定があるんでしょうか？

>>499
ツール＞オプション＞全般＞R1C1参照形式を参照する
のチェックをはずす。

＞４９７

ありがとうございました！！

>>500さん、ありがとうございます！直りました。

ほんと、感謝です！

ちなみに、R1C1形式はブックごとに設定されるため、
エクセルを開いたときに開かれるブック(personal.xlsなど)が
その形式だとチェック外しても直りません。

質問です。

エクセルからメールを添付資料として送信するときには
「ファイル」「送信」「メールの宛先（添付ファイル）」でできますが、

これを毎回同じ宛先にメール送信するような形でマクロを組むことは可能でしょうか？
またはマクロ以外でも同様の処理（メール送信）が、ど素人でもできる方法はあるのでしょうか？

環境はWin２０００でエクセルは２０００とXPが混在しています。

どなたかご教授お願いします。

>>504
メール送信用マクロ
ActiveWorkbook.SendMail Recipients:="※メールアドレス", Subject:="※件名"

※部分は自分用に適宜かえてくださいな。

↑※メールアドレスの部分は「送信先のメールアドレス」ね

>>505 さん
す。。。すごい。。。こんなに簡単な命令で処理できるとは！
感動です。　と同時に自分の勉強不足を痛感。

本当にありがとうございました。

　どなたか、アドインソフトで、カード型ＤＢ機能を取り込んだ良い物
ご存じ無いでしょうか？
　vector上に「エクセルでデーターベース 2.1」
http://www.vector.co.jp/soft/win95/business/se102333.html

　と言うのは有ったのですが、シートとカードが、別シートになって
いるため一覧できません。
　ＭＳ−ＷＯＲＫＳライクなカード型ＤＢが使えれば、一番手頃なん
ですが…。

>>508
どんな内容のデータベースを作りたいのかわからないので
お勧めのしようがない。
とりあえずgoogleで「Excel　カード型データベース」で１番目にヒットしたやつ
http://dennou.gihyo.co.jp/books/4-7741-0879-0/

プリインストールされてた　office personal　をアンインストールして
office2000をインストールしました。
ところが、エクセルで使えるページ設定（紙の大きさ）がポストカード、Ｌ
とか見たこと無いのと、Ａ４しかありません。
Ａ３にしたいのですがどうしたらいいのでしょう。

>>510
プリンタのドライバをインストールすれ

>>511
ありがとう。解決しましたあああ！！

　エクセルで、何か字を打った後、同じような字を打つと、
自動的にコピーされた字が出てきます。
これを解除するのはどうすれば良いのでしょうか？

　例えば、
「１　２　３　４　５」と打った後に、
「１　２」と打つと、
自動的に「１　２　３　４　５」
と出てくるのですが。

　宜しくお願いします。

>>513
「ツール」-「オプション」-「編集」タブの
「オートコンプリートを使用する」のチェックを外す

　>>514さん、レスありがとうございます。
感謝です。

すいません、エクセルに限らないんですが
仮名入力のときでもスペースキーで半角の空白にするには
どこで設定すればよいのでしょうか？

>>516
「ctrl+space」
エクセル，ワードに限ってはダメですが・・

>>516
IMEのプロパティにスペースキーを常に半角で使用する設定があるから
そこを設定してみて。

>>516-518

Shift+Spaceで無理なのか？

>>519
感謝です。

メールの添付ファイルで貰ったエクセルのデータが
「チェックシート．xlsファイル形式が正しくありません」と
表示され開けなくて困っています。
バカな試みで拡張子を.docに変えてワードで開いたら
それらしい文面が表示されましたが文字化けで読めませんでした。
環境は Win95 Excel ver7.0(not Office)
取り込んだファイルの拡張子は確かにxlsと認識しているので
上位互換の問題は無いと思っているのですが．．．．
チェックシート云々の概念を理解していないので含めてご教授
いただけないでしょうか。宜しくお願いします。

エクセル2000なんですけど･･･
文字列が入力されたセルが多数ある。
これを「切り取り」または「コピー」で
任意のテキストボックスなどに「貼り付けたい」んですけど
どうやればいいのでしょうか。
よろしくお願いします。

>>522
複数のセル（例えばA1:E10）の文字列を一つのテキストボックスにコピーしたいって事？
それとも一つのセルに対して一つのテキストボックスってこと？

前者です。複数セルの文字列をひとつのtxtボックスへ
コピペしたいのです。

>>522
Excelで、その「入力された多数のセル」を選択して、コピー、
メモ帳(テキストエディタ)を開いて貼り付け。
これでタブとか改行とかが入りつつも文字列になるから、必要なら編集して、
全部選択してコピーし、「任意のテキストボックスなど」に貼り付けたら？

質問の意味わかってないかな私

>>521
送ってもらった相手にお願いして、相手のＰＣでは正常に起動している
ことを確認してもらったファイルをもう１度送信してもらって確認しては？
Excelを起動しておいて、[開く]で開いてもダメ？
相手はMacでこっちはWinってことはない？
ウイルス対策はちゃんとしてる？
建設的な解決法でなくてごめん

>>522
その通りでした。メモ帳に一度貼り付けて簡単にできました。
ありがとう。

>>527
あらら解決したのね
でもとりあえず書いておくね

Sheet1にテキストボックスとコマンドボタンを一つずつ配置したとして
TextBox1のプロパティで
MultiLine：True
ScrollBars：3-ScrollBarsBoth
に設定

CommandButton1のクリックイベントに
Private Sub CommandButton1_Click()
　　　Selection.Copy
　　　Me.TextBox1.Paste
End Sub

あとは貼り付けたい範囲を選択してからCommandButton1をクリックするだけでどう？

成績表があるんですがセルを結合してるため、成績順に並び替えをしようとすると
エラーが出て出来ません。１回全部入れ直すしかないんのでしょうか？

526さんアドバイスありがとうございます。

その後の展開ですが．．．．
先方にバージョンダウンしてもらったフォーマット（v5.0）で
再送信していただいて解決しました。
結果的に上位互換でアウトだったんですね．．

>>529
それだけじゃ答えようがないと思うが・・・

エクセル2000．
リストを「データ」「集計」で集計すると
簡単に集計してくれるんだけど、
品目等のところに「計」の文字が入ってしまう。この「計」が入らない方法、又は
「計」を一回で全部消す方法は無いでしょうか。よろしくお願い致します。

＞５２９
結合が多くないなら、全結合クリアして並べ替え後再結合かな。

517、518、519さん
遅くなりましたがありがとうございますっ。

あ、途中で送信してしまった････
IMEのプロパティまでは見ていたんですけど
入力設定まで気づかなかった・・・・・
ほんとに感謝ですっ

>>532
「計」が書き込まれてるセルを選択して
「計」の文字を「置換置換後の文字列」欄を空欄にしてで置換すれば？

ここで尋ねるべきかわからないんですが、
サーバー上のエクセルファイルを直接リネームしたのですが、
開けなくなってしまいました。
「ファイルを読み込めません」のメッセージが出てしまいます。
これって復旧不可ですか？

>>536さん
すいません。具体的な入力はどうなるのでしょうか。

>538
３５６じゃないけど
「計」の入った列を選択して「編集」「置換」
「検索する文字列」に計と入れて、「検索後の文字列」はブランクのまま
それで「全て置換」を押せってことだと思う

>>539さん
感動しました。完璧です。
ありがとう。

既出ですが、
メニューバーが消えてしまいました。
xlbファイルを探して削除しましたが、治りません。
他に方法はありますか？お願いします。

>>541
だから>>168-172の>>172だってばー

いや、それは分かってるんですけど、
１７２が無いんです。

>>543
ダウンロードできるおれのがおかしいのかな？

>>543
ブラウザのアドレス欄に貼り付けてEnterでもだめ？

成績表をつくっているんですが名前のセルを結合してるため
成績順に並び替えをしようとするとセルを結合してるため
同サイズのセルが必要ですのエラーが出ます
セルの結合を解除する方法を教えて下さい

>>546

ヘルプ読め

>172
う〜む、コワイ！

>>548　>>172後のレスも読んでみれ

>>546
聞いてることはセル結合を解除する方法でいいんだよね？

ツールバー上で「右クリック」あるいは「ツール」-「ユーザー設定」の
「コマンド」タブ-「書式」に「セルの結合」「セル結合の解除」等のボタンがあるので
それをツールバーの任意の位置にドラッグ＆ドロップ。
あとは解除したいセルを選択してツールバーに追加した「セル結合の解除」ボタンを押すだけ。

↑ツールバー上で「右クリック」-「ユーザー設定」に訂正

いきなり質問です。

コピペした時にコピペ元ではなく、セルの書式を優先させるには、どうしたらいいんでしょうか？

例

セルの書式ゴシック９ポイント赤文字、背景水色。
そこへ、テキストとかワードとかからコピペすると、書式がコピペ元のを採用されてしまい
それを又、元に戻すのがめんどいんですが、何とかなりますか？

M$ Officeの各アプリに対応しているThinkfree Office。

使った人がいたらインプレッションを教えてくれ。

>552
「形式を選択して貼付け」を選べば？

>>552
普通にコピーして
編集＞形式を選択して貼り付け＞すべて

俺(2000)の場合、ただのコピペでペースト先の書式が優先される
みたいだけど、、

>>555
>>552はセルの書式（ワークシートで設定されてる方）を優先したいみたいだよ
「形式を選択して貼り付け」-「テキスト」だね

>>480 ゴチバトルへ
今ごろ見てるかどうか知らんが、某所にこんなのがあったぞ。

参照範囲がA1:A10、検索値がB1とすると
=MAX(IF(ABS(A1:A10-B1)=MIN(ABS(A1:A10-B1)),A1:A10))
としてCtrl + Shift + Enter
または、
=MIN(IF(ABS(A1:A10-B1)=MIN(ABS(A1:A10-B1)),A1:A10))
としてCtrl + Shift + Enter

上のMAXは、たとえば1000に対して990と1010というように差の絶対値が同じ
ケースで大きい方(1010)を表示。下のMINは小さい方(990)を表示する。
参照範囲が昇り順になってる必要はない。

ただし何個も検索するなら前に書いた方法の方がよい。

>>554
>>555
>>556
ﾃﾞｷﾀ、ﾖｶﾀ。　実はここで初めてのｶｷｺだったんですけど、ここの人は優しい。
また、何かあったらよろしくお願いしますです。

グラフが重くて画像にしようとすると変な結果になる。
画像にする方法ないでしょうか。もととなった数値と関係が
切れればいいのですが。よろしくお願い致します。

>559
Ｓｈｉｆｔキーを押しながら「編集」「図のコピー」「ＯＫ」
貼り付け先をクリック「貼り付け」　でどう？

その方法でだめなんです。
「図が重過ぎます。カットされます。」
とでてきて図がずれてしまいます。

長さ 80mm 90mm 100mm 110mm
径 Ａ社 Ｂ社 Ａ社 Ｂ社 Ａ社 Ｂ社 Ａ社 Ｂ社
20 450 100 550 250 650 100 650 450
25 530 160 630 260 630 160 750 550
32 730 490 730 690 850 650 950 750

上のように直径と長さが異なる製品の２社の定価を比較したエクセルの表があります。
３Ｄ縦棒グラフを使って、「径」「長さ」「Ａ社」「Ｂ社」ときちんと表現し
定価を比較するグラフ書くにはどのように設定すればよいでしょうか。
径と長さの交点に２社の縦棒グラフが並ぶイメージにしたいです。

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

超初心者的な質問でスミマセンが、よろしくお願いします。
・文字を入力して、画面上ではセル幅の中にちょっと余裕もって
　入ってるぐらいなのに、印刷するとはみ出してしまう・・・。
　これは、単純にセル幅をもっと多めに取れ！って事なんでしょうか。
　多めに取っても、印刷するとダメという事もあるから、
　画面上で的確に判断するポイントは？
　プレビューで見ても大丈夫だったのに・・・。
・セル結合して、「折り返して全体を表示する」をチェックしても
　画面上ではバッチリ入っているのに、印刷すると文字が埋まって
　しまって見えない・・・。
　これも結合させるセル数を増やせ！なんでしょうか？
エクセルをワープロのように使う事自体合っていない事なんでしょうけど、
会社の提出書類のフォーマットがなぜかエクセルなんです。
しかも最終的には印刷された紙が重要なんて・・・、
変てこりんなんですけど、解決法をご存知の方いらしたら、お願いします。

>>563
「Ctrl+A」あるいはワークシートの左上角をクリックして全セルを選択してから
「書式」-「列」-「選択範囲にあわせる」を実行してから印刷してみては？

>564
う〜、ありがとうございます。やってみます。

>>562
表を↓のようにするってのはダメ？
　　　80-20　80-25　80-32　90-20　90-25　90-32　100-20　100-25　100-32　110-20　110-25　110-32
A社　450　　　530　　730　　　550　　630　　　730　　　650　　　630　　　850　　　650　　　750　　　950
B社　100　　　160　　490　　　250　　260　　　690　　　100　　　160　　　650　　　450　　　550　　　750

>>566
ありがとうございます。
やっぱり566さんのこういう方法が安定して確実なんですね。
いろいろやってみたけど、あと一歩希望通りに行きません。
３軸２要素（正確にはなんていうかわかりませんが）は
エクセルでは限界みたいです。グラフ作成ソフト探します。

こんにちわ。
勤務表を作っていてつまってしまいました。
下のようなものを作る時　”○”と”△”を1つ「14時間30分」で計算
させてその下の行に「43:30」のように表示させたいのですが
どうすれば良いのでしょうか？

　　A　 B　 C 　D　 E
1　○　休　△　休　○
2　　　　　43:30　　　　←ここにこのように表示させたい。

よろしくお願いします。

>>568
合計を出したいセルに（A2:E2を結合して）「=SUM(A1:E1)」と書き込んで
そのセルの書式（「右クリック」-「セルの書式設定」-「ユーザー定義」）で「[h]:mm」にするってのはどう？

>>569さん
ありがとうございます〜〜〜！！
あっさりと解決してしまいました。
また何かありましたらよろしくお願いしますっ！

こっちを上にあげ

マクロで。。。
圧縮ソフトを起動させて既知のエクセルのシートを圧縮し、
かつその圧縮ファイルをメールに添付して既知のアドレスに送信
なんてことはできますか？

圧縮せずに添付・送信することはできるのですが、回線がとろいので
送信が遅いと言われてしまったので。。。

っていうか、送信待てないなら自分で圧縮して添付するやり方くらい
覚えろ！って感じなんですが、馬鹿どものためにどうかご教授ください。

よろしくお願いします。

それは、WindowsScriptingHosts(WSH)の出番だと思う。

…エクセルのマクロぢゃ無いね。エクセルの中でやることでもないし。
漏れはWSH詳しくないから、Webをあさるかスレ違いって事で
他逝って聞いたほうがいいでしょ。

私もマクロでの圧縮の仕方は知らないけど、圧縮されてないファイルを貰う
迷惑さは解るんで ５７２さん頑張ってねと応援。
ここで聞いてみたら？
ttp://www.fuji.ne.jp/~excelyou/index.htm
Ｑ＆Ａラウンジから「Excelマクロ・ＶＢＡ」に関するＱ＆Ａ ってとこ

>>573
>>574

やっぱりマクロではできないんですね。
レスありがとうございます。
ご教授いただいたところで探してみます。

ここで聞くのが一番かと思い、質問です。
VBAを勉強しようと思ってるんですが、みなさんは、どうやってそんなに、
知識を付けられたんでしょうか？
VBAのスレさがしたんですがみつけれず、新規スレ書くような内容でもないし
悩んだ挙句エクセル＝VBA詳しいと勝手に判断しました。

>576
興味をもったら簡単なことを自分で試してみて・・って感じかな。
まだ簡単なことしかできませんけど。
あとここいらのページが初心者にはお勧め。
ttp://shinjo.dewa.or.jp/tsucchy/index.htm
ttp://www1.plala.or.jp/happyday/

>>576
Visual Basic Editorの操作も全くの素人って言うのなら
↓の「挑戦VBA初めてのプログラム」をやって概要をつかんでみるといいかも
http://www.twin.ne.jp/~sweep/flam.htm

100%積み上げ縦棒グラフで
A班、B班、C班の月別の売上げを
5種類の商品の100%積み上げのグラフで
表したいです。
そのとき、各グラフはある間隔で開いてますが
各月でA班、B班、C班を間隔０にして
くっつけたいです。
グラフの書式のオプションの重なりや間隔で
調整すると全部のグラフが対象になってしまいます。
何かいい方法はありますか？

５７７さん５７８さんありがとうございます
こつこつやってみます

散布図（線でつなぐ）について、質問があります。
たとえば、下のようなXYデータがあり、これらを直線で結んで閉じた多角形を
作ります。
そして、このできた多角形の内部を塗りつぶしたいのですが、どのように
したらよいのでしょうか？
図形描画でやっても、印刷したときにずれてしまいます。

本来やろうとしていたことは、Y方向に誤差を含むデータ系列があって
その値の存在領域をエラーバーではなく、領域の塗りつぶしで表現したいのですが、
Excelではそういう機能がなさそうなので上に書いた方法で代用しています。

x,y
1,12
2,15
3,16
5,17
5,5
3,4
2,1
1,2
(1,12)

列方向、又は行方向のセルを一個おきに足したいときの
方法はありますか。

>>582
http://www.microsoft.com/japan/enable/kblight/t001/3/01.htm

↑列の場合はROWの部分をCOLUMNに変えてね。

Excelで０以上と設定してあるカラムに-1を入れるとエラーになりますが、
ActiveCell.Value = -1
とかすると、問題無く値が入ってしまいます。
エラーにするにはどうするんでしょう。

>>585
どのようにしてActiveCell.Value = -1 を入力してるのかわからないけど
仮にTextBox1に入力した値をCommandButton1を押すことでアクティブセルに入力するとして
↓の様にエラーの時はメッセージボックスとともにActiveCellの値を空欄に戻すってのじゃだめ？

Private Sub CommandButton1_Click()
ActiveCell.Value = TextBox1.Value
If TextBox1.Value < 0 Then
MsgBox "入力した値は正しくありません" & vbCrLf & "正の値を入力してください", vbCritical
ActiveCell.Value = ""
End If
End Sub

有難うございます。>>586
セルの入力規則でやる場合も知りたいです。

>>587
＞どのようにしてActiveCell.Value = -1 を入力してるのかわからない

2本の折れ線グラフがあり、
囲まれる領域に応じて色分けすることは
可能でしょうか？
x　　　　1　　2　　3　　　4
y　a　100　200　300　400
　 b　100　300　200　400

ここで、1<X<2.5 2.5<X<4 の範囲で分けられる
領域を前者は赤、後者は青というように。

>>583,584ありがとう

知人がEXCELで、見積書か何かを印刷しようとしたときに「結合された
セルの一部を変更することはできません」というエラーメッセージが
でたそうです。それって、どういうことをしようとしたときにでる
メッセージですか？どなたか教えてください。

エクセル歴初級のものです。
名簿を作成しています。
所属している部署ごとに他のシートに抽出したいのですが
どのようにやればよいのでしょうか？

名前 部署 役職 住所
ああ 営業 課長 ・・・・
いい 企画 課長 ・・・・
うう 営業 主任 ・・・・

このような表を
営業課の人間のデータを抽出し
営業課の名簿を他シートで表にしたいのです。

教えてください。

>>592
データ→フィルタ→オートフィルタで部署から営業課を選択して抽出。
で、コピーしてシートを切り替えて貼り付け。じゃ、だめ？
わかりにくかったらごめんね。

>>593
ありがとうございます。
表を使用するのがかなり年配の上司なんですよ。
あまり操作せずに使用してもらいたいもので・・・

関数を使って表にするっていうのは無理なのでしょうか？

>>752
ズバリその機能のシェアウェア（700円）があったよ
http://www.vector.co.jp/soft/win95/business/se138920.html

↑>>572宛の間違い

>>592
PIVOTで簡単にいけそうだよ。

ＥＸＣＥＬの表の行の間に一行づつ空行を挿入したいのですが。
誰か方法を知りませんか？
力業で入れていく方法もありますが、データだけで千ありますので、ちょっと。

>>598
とりあえず↓でできるよ。

Sub 一行おきに行挿入()
　　Dim n As Integer
　　For n = 1 To 1000 '←1000はデータ最終行
　　ActiveSheet.Cells(2 * n, 1).EntireRow.Insert (xlShiftDown)
　　Next n
End Sub

CircleInvalidで入力値エラーとなるべきセルを赤丸にすることが分かったんですが、
赤丸にアクセスする（数だけでも知りたい）にはどうするんでしょう？

>>598
もし、マクロを使いたくないなら、
１列追加して、データ部分に奇数の連番を入れ、
データの下に偶数の連番を入れ、
その列をキーにして並べ替えてから、追加した列を削除、
でどうでしょう。

>>598
連番は「オートフィル」か「連続データの入力」で入れてね。
意味わからなかったらまた聞いて下さい

=IF(AND(R[-1]C[-1]=0,RC[-1]=1),R[-1]C[5],IF(AND(R[-1]C[-1]=1,RC[-1]=0),R[-1]C[4],(R[-1]C[1]-R[-1]C)*R[-1]C[3]+R[-1]C))
例えばこんな式あったら
どんな意味になるの？

あと、名前ボックスのＡ１とかって普通でるじゃないですか？
どうやったら、アクティブセルの名前をかえられるのでしょうか？

>>603

オプションでR1C1形式のチェックを外す。

セルB2にある関数だとして
=IF(AND(A1=0,A2=1),G1,IF(AND(A1=1,A2=0),F1,(C1-B1)*E1+B1))

A1が0でA2が1ならG1を表示、そうではなくA1が1でA2が0ならF1を表示、
そうでないなら(C1-B1)*E1+B1の計算結果を表示

>>604

挿入-名前-定義

>>605

ありがと〜♪
なんとなくわかってきました〜。

Ａ1のところがＲ１Ｃ１のままになっちゃいました。
定義で変えるとセル1づつしか変えられないのですか？
シート全体はＡ１などにもどす事できなくなりますか？
会社からデータ入力シート持って帰ってきてから
列。行番号が全て数値になってしまっているのです。

お忙しいところ申し訳ございませんが何卒宜しくお願いいたします。

〜♪

オプション理解できました♪

ほんとありがとうございました♪

>>605

ところでＲ１Ｃ１参照形式をしようするってなんでしょうか？

>>608

Row（行）とColumn（列）を数値で表す方法

R1C1（行1列1） = $A$1（A列1行）

603の例だと R[-1]C[-1]=0 は、この関数が入力されているセルが R[0]C[0]
となり、それより1行マイナス位置、1列マイナス位置の値が 0

RC[-1]=1 関数のセルと 同じ行の1列マイナス位置の値が 1

この条件が両方一致したときに R[-1]C[5] の値を表示しろ...って感じ。

ヘルプくらい読んでみれ

>>608
R1C1形式にするとＶＢＡを書くときに楽なの｡
Ａ列とかＢ列で表示させれば目的の列を計算で表示させにくいため｡

ありがと〜♪
>>609

ん？ヘルプ見てもこんな感じだったんです〜
スイマセン！
しかし、また助けてください♪

>>610
なる♪
サンキューでした〜♪

>>610
VBA書くときは､表示形式を意識する必要はないんじゃない?

あと､セル内の数式を考えるときは､OFFSET関数があるし､表示形式を変えなくても足りる人は足りる｡

>>599
598じゃないけど、コピーして貼り付けたら出来た。
とりあえずアリガトウ。

がいしゅつかもしれませんが教えて下さい。
エクセル９７で罫線を最初から細く設定できないのでしょうか？
デフォルトは太くてかっこわるいし
「セルの書式設定」で変更するのは面倒なので。

オバカな質問ですみません。
VBAでのセルの選択についてですが、
EXCEL4.0では SELECT=("R1C[1]") のように、列は固定で、
行はそのアクティブセルのひとつ下を選択させたいとき
（例えば
C5（マクロ前） → A6（マクロ実行後）
F9（マクロ前） → A10（マクロ実行後）
みたいに）
ＶＢＡではどういう式にすればよいのでしょうか？

>>616

こんな意味か？

With ActiveCell
   If .Column > 2 Then
      .Offset(1, -2).Select
   End If
End With

>>616
こんな意味？

Sub 一行下A列にセルを移動()
Dim R As Integer
R = ActiveCell.Row
ActiveSheet.Cells(R + 1, 1).Select
End Sub

>>618

Dim R As Long　にすべき

>>619　はーい

>>616
ActiveCell.Offset(1).EntireRow.Cells(1).Select

えくせる初心者ですいまそん。

一行でﾊﾝｶｸｶﾅと漢字と数字入力を
全部まとめてしないといけないのですが
なにか入力作業を少しでも楽にやれる方法ってないですか？

フリガナ、氏名、郵便番号、電話番号などがかいてある
アンケートはがきの入力処理を
セルごとにしたいのですが・・・。
（フォーマットはできあがっているのですが
1行ごとにいちいち漢字、半角ｶﾅ、数字変換などに
かえていかないといけないので入力が面倒なんです・・・。）

>>622
各列ごと（列を選択してから）に「データ」-「入力規則」-「日本語入力」タブで設定。

エクセル９７、２０００、２００２ではどういう機能がどのように変わったかを
教えてもらえませんか？

>>624

2000
バグフィックス＆重くした

2002
バグフィックス＆重くした＆謝るようにした

質問なのですが、罫線のみのセルを認識するにはどうすればいいのでしょうか？

横の罫線が引いてあるところまでを認識してそこまで縦の罫線を引けるようにしたいのです…
過去ログ見ましたが、うまくいくような例が有りませんでした。
どなたかご教授ください。

エクセルのファイルが急に読み込み出来なくなりました。開こうとすると「このファイル形式を認識できません」
とのエラーメッセージが出てしまいます。データが壊れたとは思えないのですが、読み込ませる良い方法はないでしょうか？

>>627
そのファイルは自分で作成した物なの？
そのファイルを作成したEXCELと開こうとしているEXCELとのバージョンの違いはないの？
仕事で使ってるのなら他のマシンで開いてみれば壊れてるか壊れてないかわかるんじゃない？

＞６１７−６２１
どうもありがとうございます。
＞６１７そんな意味です。
＞６１８そんな意味でもあります。
＞６１９、６２０その辺も勉強します。
＞６２１ありがとう。それで新たに質問なのですが、
この式をColumnにする場合どういう風になるのですか？
ActiveCell.Offset(1).EntireColumn.Cells(1).Select
にしても上手くいかないので・・・。

あとVBAで、EXCEL4.0の"R[1]C[1]"のような"［］"にあたるものは
あるのでしょうか？

>>629
ActiveCell.Offset(,1).EntireColumn.Cells(1).Select
ActiveCell.EntireColumn.Cells(1).Offset(,1).Select
どっちでもいいよ。

>>629
"［］"にあたるものはOffset

お世話になります。

エクセル２０００を使っているのですが、
ファイルのプロパティ→統計　に改訂版号と総編集時間がありますよね。
それを表示させたいのですが、どうすればよいのでしょうか？

みなさまのお知恵を拝借したいと思います。
お願いします。

エクセルのマクロである範囲のセルの値を
配列の値として取得したいのですが、どうすればいいのでしょうか？

イメージとしては
X=Array(Range(A1:A10))見たいな感じなのですが。。。

ご教授お願いします。

PC初心者板に書き込んだんですが
スレ違いみたいなのでこちらに
書き込みました
マルチポストウザイなんて言わないでください

Excel2000について質問させてください

現在、各個人の出金関係のシートを作っているのですが
たとえば、明細があって最後に合計金額が表示させる様
にしていますが、合計金額が「\126.214」とした場合、
別のセルに金種別に表示させることは可能でしょうか？

ちなみに「\126.214」と合計が算出された場合、

壱万円札＝12枚・五千円札＝1枚・千円札＝1枚
500円玉＝0ヶ・百円玉＝2ヶ・50円玉＝0ヶ
10円玉＝1ヶ・5円玉＝0ヶ・1円玉＝4ヶ

とこんな感じに別のセルに表示させたいのです
いろんな書籍を見たのですが、ずばりこれといったものは無く
関数を使うのか、マクロを使うのかよく分かりません

どなたかよろしくお願いします

　A　　　　B　　　　　　　　C　　　　　　　　　　　　　D
----------------------------------------------------------------
126214　10000　　 =ROUNDDOWN($A$1/B1,0)　　　　　 =B1*C1
　　　　　5000　　=ROUNDDOWN(($A$1-(D1))/B2,0)　　=D1+(B2*C2)
　　　　　1000　　=ROUNDDOWN(($A$1-(D2))/B3,0)　　=D2+(B3*C3)
　　　　　500　　 =ROUNDDOWN(($A$1-(D3))/B4,0)　　=D3+(B4*C4)
　　　　　100　　 =ROUNDDOWN(($A$1-(D4))/B5,0)　　=D4+(B5*C5)
　　　　　　50　　=ROUNDDOWN(($A$1-(D5))/B6,0)　　=D5+(B6*C6)
　　　　　　10　　=ROUNDDOWN(($A$1-(D6))/B7,0)　　=D6+(B7*C7)
　　　　　　5　　 =ROUNDDOWN(($A$1-(D7))/B8,0)　　=D7+(B8*C8)
　　　　　　1　　 =ROUNDDOWN(($A$1-(D8))/B9,0)　　=D8+(B9*C9)

>>634
C列に、B列の数値円札(玉)の枚数(個数)が出ます。
上の２行目まで入力したら、C列D列の３行目以下はオートフィルで一発入力できますよん

>636
634じゃないけどこれ面白いね〜 何かに使ってみたいyo

>>634
やっぱマルチポストはウザイ。
初心者板でレス付いてるぞ。わび入れてこいよ。

ありがとうございます
早速やってみます
（マルチポストすみませんでした）

>>633
配列の数が予め分かっている場合は以下のコードでどうでしょう。
Sub Test()
Dim X(10) As Variant
Dim I As Integer
For I = 1 To 10
X(I) = Cells(I, 1).Value
Next I
MsgBox X(10)
End Sub

配列の数が分からない場合は別の記述になる。

こんな自前のワークシート関数を作りました。（以下参照）
使い方はセルに=gfunMySum(A1:A4)　ってな感じです
でもこの関数、たまにエラーが出ます。
なぜかっていうとRangeのValueとかRow,Columnは
取得できるのにTextプロパティやその他多くのプロパティが
なぜか取得不可だからです。
なんで取得不可の状態がおきるんでしょうか。
教えてください。

ちなみにエラーメッセージは「Range クラスの Text プロ
パティを取得できません」です


' 機能 : 表示されている数値でSUM計算を行う
' 返り値 : 計算結果
' 引き数 : rngCheckRange - SUM計算する範囲
Public Function gfunMySum(rngCheckRange As Range)

Dim rngWk As Range 'ループ用オブジェクト
Dim curSumWork As Currency 'Sum計算用ワーク変数

''Sum計算用ワーク変数初期化
curSumWork = 0

''セル内のループ
For Each rngWk In rngCheckRange

'''チェック中のセルが数値の場合
If IsNumeric(rngWk.Text) = True Then

''''数値（表示内容）をワークに足しこむ
curSumWork = curSumWork + CCur(rngWk.Text)

End If
''ループ終了
Next

''関数正常終了
gfunMySum = curSumWork

End Function

>>626
Cells(x,y).Borders(???).Weightが1以上のやつは線が
ひいてあるんじゃないかな

???はVBAでかっこまで入力すれば勝手に出るから
すきなの入れてみましょう。

これでわかんなかったらまた質問して。

>>642
1以上じゃなかった。
xlThin
xlThick
xlMedium
xlHairline
が既定値みたい。その中にマイナス値があるから注意

>>641

解決するかわからんけど

Public Function gfunMySum(rngCheckRange As Excel.Range)
Dim rngWk As Excel.Range 'ループ用オブジェクト

とかにしてみては？

＞短小 さん
重ね重ねありがとう！
勉強します。

>>644
対応ありがとうございます！
一応やりますが、
これが有効なのはADOとDAOを混在しているときの
Recordsetみたいにどちらの参照かが限定できない場合です。
オブジェクトブラウザで確認しましたがRange型はEXCEｌライブ
ラリのメンバ鹿存在しないため（隠しメンバも含め）Range型で
どの参照であるかが１対１の対応を確立できるため、今回の
場合はあまり効果がないように思われます。

ひきつづきRangeのプロパティがたまに取得できないという
ことが起こった人は特にご回答お待ちしています。

>>646

シートに置いたボタンなどからマクロを実行すると
同じようなエラーが出ることがあったような。。。

そん時は、
ActiveCell.Activate
の１文を加えると大抵おさまる。

641です
事象の特定ができました!
sheet1にワークシート関数をはりつけていて
sheet2のマクロからsheet3をコピー､削除後に
必ず発生します。
ちなみにシートの削除等を行うと
外部変数は全て消去されます。
ただし外部変数は１つも使用していないため
変数に関してはまったく問題ありません。

>>647
ありがとう！
いまやって見ます。

うぉー
おちた。

のでもうちょっとまって

>>647

なんか必ず落ちるようになっちゃった。なぜ？
もうちょっと調べます。

ちょっとまって下さい。
ActiveCell.Activate はどこに追加？
マクロの中？
ワークシート関数の中？

ご回答お願いします

>>648

意味わからん。

gfunMySum　はどこに書いてるの？
モジュール？シート？

sheet2のマクロとは？

>>651
gfunMySumはワークシート関数ですので
シート１のA1セルに=gfunMySum(B1:B10)
みたいにつかいます。
シート２のマクロはボタンを押すとシート３を
削除します。

>>652

Excelのバージョンが不明ですが、可能なら、シート2の
ボタンを表示−ツールバー−フォームのボタンに変える。

又は、ActiveCell.Activateをユーザー定義関数のRange
操作前に入れる。

>>641
この自作関数は集計ですから既存のＳｕｍで集計を出せば良いと思いますが､
なにか特別の目的があるのですか？　　初心者ですみません。

>>654
ええとですね、Sumワークシート関数は
各セルのValueを足します。

私がやりたいのは各セルのフォーマットにより
表示される値（Textプロパティ）を足したいの
です。

>>653
>Excelのバージョンが不明ですが、可能なら、シート2の
>ボタンを表示−ツールバー−フォームのボタンに変える。
画面仕様が決まっているので無理です

>又は、ActiveCell.Activateをユーザー定義関数のRange
>操作前に入れる。
これを入れたらシート２マクロ実行時に必ずEXCELが
落ちるようになりました。

>>>653
>>Excelのバージョンが不明ですが、可能なら、シート2の
>>ボタンを表示−ツールバー−フォームのボタンに変える。
>画面仕様が決まっているので無理です
頓珍漢なことを書いてしまいました。
メニューバーに埋め込むのかと思いました。
ツールボックスのボタンとフォームのボタンは
何か違うのでしょうか。とりあえずやってみます。
ありがとうございます。結果はまた書き込みます。

641です
皆様のご意見でActiveCell.Activateを入れてみましたが
異常終了の嵐のため、それに代わるメソッドを画策しました。
シート２のマクロ実行後かつgfunMySumが発生する前に
Activesheet.Calculateが実行されれば問題は発生しなく
なりました。

ちなみにgfunMySumワークシート関数も
シート２マクロでシート３削除
手入力でSum計算に引っかかるセルに入力
この手順だとエラーが発生せず

シート２マクロでシート３削除
シート１ボタンのマクロによるSum計算に引っかかるセルへ
の入力
この手順だとエラーが発生してました。

でもとりあえず上記手法で解決しそうです。
このままいろいろいじってみます。
ご協力いただいたすべてのみなさま、
大変ありがとうございます。

>>641
なにか解決したようなので蛇足になりそうですが。
ご存知のように　Range　はオブジェクトとプロパティと両方有ります。
Dim rngWk As Range　はオブジェクトではないですよね。
Dim rngWk As Variant　（このようにしてみては）

>>659
Rangeはオブジェクトです
Rangeがプロパティになるのは
上位クラスのメンバという書き方をする場合のみです
Sheet1.Range("A1").Value=1
Application.Range("A1").Value=1
Range("A1").Value=1

一番下は標準モジュール時は上位クラスが
Application、シート内マクロで使用すると
そのシートが上位クラスになります

Dim　で宣言するということはオブジェクト宣言
しかありえません。なぜならプロパティは
クラス内で定義するもので、宣言するものでは
ないからです。

ちなみにVariantに変更するとVariantの中身は
内部処理系Object/Rangeクラス型のオブジェクトが
代入されているために動作はまったく同じになります。

そのため現象はやはり発生しました。

蛇足にまじれすすんません。一応アフターケアいた
だいてるのにほっぽっておくのもとおもいまして･･･

質問ですが
EXCELのシート保護を使用して触られたくない部分は
保護しています。

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

>>657
> ツールボックスのボタンとフォームのボタンは
> 何か違うのでしょうか。

フォームのボタンは前バージョンとの互換用に
残してあるもののハズです。でもこっちの方が
私は使いやすいので。。

以下テスト

フォームのボタンをシートに置き、下記マクロを
割当てます。

Sub ボタン1_Click()
   ActiveSheet.Copy
End Sub

正常にコピー出来ます。

コントロールツールボックスのボタンをシート
に置き、下記のように書きます。

Private Sub CommandButton1_Click()
   'ActiveCell.Activate
   ActiveSheet.Copy
End Sub

「WorksheetクラスのCopyメソッドが失敗しました」
と出て、ActiveCell.Activateを有効にしないと動
きません。

ボタンを押した瞬間に、ボタンの方にフォーカスが
いってしまいExcelを見失う？のかなって思ってます。

Range操作でも同様の事が起こった気がするので、
コントロールツールボックスのボタンから実行する
マクロは意図的にActiveCell.Activateを入れてます。

>>662
やってみました。
たしかにちがいますね。
なぜか全てのマクロが表示されない
Privateサブとか関数とかがが表示されてないのかな？

いや、現在のシートには
計算ボタン
終了ボタン
2つのボタン(新バージョンのね）と
それに関連するイベントサブが記述してあるはず
なのに、古いほうのボタンには終了用のサブしか
表示されない。　？？？？？
まあ、いいや。こっちはつかうまい。

かなり大きなエクセルの表(約200KB：1250行×10桁程度)をhtml形式に落としたところ、いくつか問題が生じました。みなさんのアドバイスをお願いします。

問題１：
　エクセルのアドインでHtmlへのコンバートをしましたが、約1MBという非常に大きなサイズになってしまい、とても編集出来る状態ではありません。Htmlファイルを覗いた感じでは、無意味に大きくなっている感があります。

　エクセルの表をhtmlへコンバートするツールで良いものがアドイン以外にありましたら（あるいは、アドインで変換されたhtmlファイルをシェイプアップするツールがありましたら）紹介をお願いします。

問題２：
　オリジナルのエクセルの表で、各桁の幅を設定していたのが、アドインでコンバートされたhtmlファイルに全く反映されていないため、再設定（htmlファイルの加工・編集）が必要です。

　当方、今まで全くhtmlを触った事が無いのですが、上記目的が快適に行えるようなフリーのツールの紹介をお願いします。



　お願いばかりで恐縮ですが、よろしくご教授お願いします。

６６４です。

書き忘れましたが、使用しているVerはWin用の97です。

>>664
1250行もある表なんて普通にTABLEタグ使ってHTMLファイル作ったとしても
読み込みに時間がかかって使い物にならないと思うけどね。

>>666

とりあえずExcel→TABテキスト→エディタで置換して表TAG化しましたが、一応許容範囲かと思います。＾＾＞読み込み時間

でも後々の加工を考えると、何か良いコンバータが欲しいところです、、　どなたかご存知ないでしょうか？

エクセルVBAで結合したセルの幅の取り方が分かりません、お願いします。
これだと、結合前の幅になってしまいます↓
Dim oRange As Range

Set oRange = Sheet1.Range("A1")
MsgBox (oRange.Width)

webbrowserコントロール使用時に、ボタン等でJavaや
ActiveXのオン／オフを切り替えられるようにしたいのですが、
そのようなIEの設定をVBAからコントロールする方法をご存知の
方いらっしゃらないでしょうか？宜しくお願いしますΩ。

>>668
結合したセルも記入する必要あるのでは？

Set oRange = Sheet1.Range("A1:B1")

エクセルで使えるJANコード作成/管理のアドインとかVBなんとか
とかはあるんでしょうか？連番の自動チェックディジット計算とか
できればいいのですが

氏ね＞イルカ

よくわからんのだが友達が質問してくるんで教えて。

エクセル？で上のバーのとこに
「両そろえ」と「中央そろえ」（たぶん文字だと思ふ）があるんだけど
「左そろえ」と「右そろえ」につかいわけたいができないらしいぃぃぃ
新しいパソコン買ったら変わっててわからなくなったとか。
だれか教えてやってくれ俺に（いや友達に）

>>673 その前にまず貴様が日本語を勉強しなおしてこい

質問します。
たとえば、１２３−４５６−７８９と入力するときに、最初から
”−”が、表示なるように書式設定は出来るのでしょうか？
よろしくお願いします。１２３を入力すると、自動的に”−”が、
出てきて欲しいのですが、やり方がよく分かりません。

VLOOKUP関数で範囲にセルの参照を使うことは出来ないのでしょうか？
たとえば
=VLOOKUP(D3,範囲,2,TRUE)
と言うときに、範囲の名前をA1セルに書いておいて
=VLOOKUP(D3,A1,2,TRUE)
とかというふうにして、使えればと思ったんですが、
うまくいきません。いい手があればご教授願います。

>>675
そのようにしたいセルあるいは列を選択して
「右クリック」-「セルの書式設定」-「表示形式」タブ-「ユーザー定義」で
「種類」欄に「000-000-000」と記入して「OK」

モロ、無修正画像サイト発見！

http://www.sex-jp.net/dh/01/
http://www.sex-jp.net/dh/02/
http://www.sex-jp.net/dh/03/
http://www.sex-jp.net/dh/04/

>>676
=VLOOKUP(D3,INDIRECT(A1),2,TRUE)
としてみ。

>>676

=VLOOKUP(D3,INDIRECT(A1),2,TRUE)
としてみ。

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

ブックを開いた時に自動的にユーザーフォームを表示できるようにするには、どう記述すればよいでしょうか？

>>682

ThisWorkBookに

Private Sub Workbook_Open()
UserForm1.Show
End Sub

又は標準モジュールに

Sub auto_open()
UserForm1.Show
End Sub

>>683
ありがとうございました。

トラブルの解決策を教えてください。
Windwows 2000 で office97 を使用しています。
適当なフォルダで右クリック→新規作成→新規Microsoft Excel ﾜｰｸｼｰﾄ.xls
を作り、そのファイルを上書き保存しようとすると、
毎ドキュメント内に
"新規Microsoft Excel ﾜｰｸｼｰﾄ.xls"
という名称のタブ区切りのテキストファイルを作るというダイアログが出ます。
この解決方法はないでしょうか。

カーソル操作について教えてください。

カーソルキーを押すと、カーソル方向にワークシートがスクロールしてしまいます。
設定が悪いのでしょうか？
ちなみに使っているのはＨＰのＮｏｔｅＰＣです。

ある特定のセル内のデータが更新された日時を表示する関数（または関数の組み合わせ）はないでしょうか？

例えば A1 のセルのデータがしばしば書き換えられ、
そのたびに自動で書き換えられた日時を C5 のセルに納めたいのですができませんか？

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

685です。自己解決しました。
ログオンしているユーザーのdocuments and settings\ユーザ\Templates内に
EXCEL8.XLSが存在しないとなるようです。
その後。xlbファイルを何回かひらいていたりすると、
ツールバーもxlbの仕様になりました。
これらのファイルのセキュリティ権限はユーザーのフルコントロールにしてください。

>>686
ScrollLockボタンを押しちゃったんじゃないですか？
もっかい押したら直ると思うけど。

>>687

標準モジュールに以下の関数を作って
Function aaa(rng As Range)
aaa = Now()
End Function

C5セルに
=aaa(A1)としておけばよいのでは。
C5はプロパティで書式を日付型にしましょう。

>>673
ツールバーの上で右クリックし、出たメニューの「ユーザー設定」を左クリックすると、
「ユーザー設定ダイアログボックス」が出ます。
「コマンド」のタブをクリックし、左側の「分類」の中の、「書式」をクリックすると、
右側のリストに「両ぞろえ」も「右ぞろえ」も出てきます。
好きなボタンを、ツールバーの中にドラッグアンドドロップして下さい。

質問です。見積書の見積番号を自動で更新するにはどうすれば
よろしいのですか？お願いします。

前に作った見積書に＋１でいかんか？
式にすれば　「=（前回に作った見積もり番号の）セル番地＋１」

いずれにせよその基準になる見積書が同じシートにあるのかはたまた
別のBOOKにあるのかによっても答えが変わると思いますが・・・・。

>>691
以前の見積もりが別シート、別ファイルなのかとか
変更のトリガが何かとか、更新する番号の規則と
かがわかんないと答えようがないような。

たとえば同じ見積書を開いたら番号が自動的に
更新されるようなのだとWorkbookのイベントで
発生させると思うんですけどその場合使えそうな
イベントって
OpenかBeforeSaveくらいな気がするんですが。
そのイベント内で

Range("Sheet1!A1").value=Range("Sheet1!A1").value+1
とかやれば？

691です　返答有難う御座います。
別のＢＯＯＫにもあるのでセル番地+1だとだめです。
年月、時間からとれる見積番号を教えてもらえれば
助かります。では、お願いします。

691です
皆さん返答有難う御座いました。
早速やってみます。

>>694
たとえばI2に見積番号を記入するとして
見積書のシートにコマンドボタンを配置して↓を記入でどう？

Private Sub CommandButton1_Click()
　　Sheet1.Range("I2").Value = Year(Now) & Month(Now) & Day(Now) & Hour(Now) & Minute(Now)
　　Application.Dialogs(xlDialogSaveAs).Show
End Sub

ページごとに列の合計を自動で出す方法があるでしょうか?
そのページの最終行にでも反映されると便利なんですが。
改ページを手動でして、行数が一定でない場合もあります。
行数が一定なら簡単なんですが。

ちなみに合計値は同じ列に出なくてもかまわないです。

>>697
最終行に記入するのも一応出来たけど、ちょっとだけ不具合があるみたいで書き込めないっす。
とりあえずより簡単な一行目に記入するようにしてウィンドウ枠を固定じゃダメ？

↓を合計を出したいシートのWorksheet_SelectionChangeに渡す

'A列の合計をA列1行目に記入する例

Sub 使用セル1行目に合計を記入()
Dim LastCell As Long
LastCell = ActiveSheet.UsedRange.Rows.Count
ActiveSheet.Range("A1").Value = "=sum(" & "A2:A" & LastCell & ")"
End Sub

>>699
ありがとうございます。
今仕事が忙しいので、後でゆっくり試してみます。

質問です。

2000でユーザー定義関数なるものを使うにはどうすればいいのでしょうか？
例えば
f(x)=x*2+1
a=(f(n)^n)+(f(n-1)^(n-1))+(f(n-2)^(n-2))+...+(f(1)^1)+(f(0)^0)
みたいな数式を計算し、aをセルに表示したいんですが
nが 0になるまで繰り返すというのはどこで設定できるんでしょうか？

すいません。
なんだかVBAなるものを使うらしいと判明しました。
今から調べ直します。

Win2000でExcel2000を使っています。
作業中に突然、エラーが出ました。

アプリケーションエラー
エラーが発生したため、EXCEL.exeを終了します。
プログラムをもう一度開始する必要があります。
エラーログを作成しています。

やったことは、スキャンディスク、デフラグ、再起動です。
あと、これが出る前には、CD2WAVをインストールした
ということしか思い浮かばないのですが・・・

マクロに関してですが
ブックを複数開いていて
全部のブックに同じ操作を行いたいのですが，
複数のブックをアクティブにするマクロはありますでしょうか？

もしくは，開いているブックを検索して
繰り返し処理を行う方法でもいいのですが．

>>701
x入力欄をA1
f(x)の計算式欄をB1
g(x)の計算式をC1に設定しておけば
ゴールシークで収束値が決まるんだけど
問題はg(x)の項数が不定であることなん
だよね。うーん。

C1からC100くらいまで各項の計算式作れば？
(n-?)の値が０以下の場合は無視するように
If文で作って
D1でC1:C100の全てを合計する。

あとはゴールシークすればOK
これでx<=100までは対応OK

>>704

For Each Obj in WorkBooks

>>704
↑まちがい
For Each Obj in WorkBooks
Obj.Activate
Call Macro1
Next

こんなんでいかが

>>699
それってページごとの小計ではなくで
全データの列の合計ですよね。

>697　が求めてるのは行数が一定で
ない場合の各ページの小計だと解釈
しているのですが >697 さんどうです
か？

もしそうなら隠し列を設定し、そこに
現在ページを返すワークシート関数
を配置。その後データ→集計で小計を
自動的に挿入してはどうでしょう。
ちょっと改ページがどうなるかは疑問
ですが。

そういうわけで現在のページがわかる
ワークシート関数 or マクロはどんなの
があるのでしょうか？
皆様に質問。

セルの表示を実際の数値→数式に切り替えるときの
ショートカットキーってなんでしたっけ？
どなたか教えてくだされ

>>708
もしも>>697がページの合計を出したいと質問してるのであれば
そのページごとの最終行(UsedRangeの最終行ではない)にsum関数を記入しておけばいいだけでは？

>>708
確かに・・・
>>699でとらえた意味だとA1セルに=SUM(A1:A10000)とでも記入しておけば済むことだったね
まったく意味なかった(^-^;

あ、SUM(A2:A10000)の間違い
（10000は使用セルよりとにかく大きな数字ととらえてね）

>>710
質問をよく読んでください。
「自動で」となってます。
多分データがたくさんあって
かつ不規則で1つ1つSamの
行を入れるのがだるいんじゃ
ないですか？

とはいうものの699さんのお
かげでUsedRangeプロパティ
の使用法をしり、自分も勉強
になり大満足。
いままではSpecialCellで
LastCellを取得してたんだけ
どUsedRangeのほうがいい！

>>705
アドバイスありがとうございます。
予定のデータは最大でも30個ほどなのでなんとかなりそうです。

>>708-713
すみません。
スレ見る暇がなかったもので。
>>708さんの言うとおり、行数が一定でない場合の各ページの小計です。
>>713
まさに、ひとつひとつsamをいれるのが面倒なだけです。
少しでも簡略化できる方法があればと思いまして。
皆さんの意見を参考にまた工夫したいと思います。
何か良い方法を思いつきましたら、ここに書いていただけるとありがたいです。

↑
なんか違和感あると思ったら
×sam
○sum だね。
おれがまず >713 で間違ってた。

>>715
ページ番号を取得する何かは絶対あると
思うんだけど。みつかりませんな。
これが見つからないと無理。

でなければ改ページするところはすべて
改ページが挿入してあればまた違うんだけ
ど。そうすればHpageなんとかいうシートの
プロパティを使って何とかなるんだけどな

694です。
696番さん　有難うございました。あとでやってみます

ＣＳＶファイルで複数行の各Ａ列が未入力の場合は
ＣＳＶで保存した場合、その行は削除されてしまうのですか？
ＣＳＶファイルをエクセルで加工して保存すると
未入力列のカンマが削除されているんです。
各行の先頭のカンマを残したいんですが・・・

>>719
Excelのバージョンは？
Excel2000で試してみたけど、A列が空欄の時はB列の前にちゃんとカンマが付いてたよ

>>720
えーとですな
A行の全てのセルが空白に時は
EXCEL2000でも >719 の現象が
発生しますね。

お手上げですな。セーブ時の仕様
だもん。
先頭行にフィールド名でも入れと
けばだめ？そしたらj空白行も
最低1つはデータがあるわけだか
らカンマができる。

生成したCSVの先頭行がどうしても
いらない場合は別途何とかして頂戴

>>717
検索して見つけたんですが、この"HPageBreaks"を使えば自分のやりたいことができるようになるでしょうか?
これだと、２ページ目の最初のセルを取得できますよね。
自分でも考えては見ますが、マクロはあまり詳しくないので、知恵を拝借したいのですが。

ttp://www.moug.net/technic/exvba/technic.cgi?D070010006

あ、>>719のはA列すべてが未記入ってことか・・・
たしかに>>721さんが書いてあるようにA列のどこか一カ所でも記入しておけば済みますね。
あとはエディタで行頭に文字を挿入するマクロでも使うとか。

　エクセルのセル幅の数字、行の高さの数字のことでお聞きします。
　これって単位は何ですか？（単位があるのかどうかわからないですけど・・・。）
　又ミリ単位（0.1mmとかも）であわせるようなことはできませんか？
　どなたかご存知ないでしょうか？

>>722
できる！ただ前述のとおり改ページは
全て自分で入れたやつでないとだめ。
自動で入れたのはHPageBreaksコレク
ションにはいってないから。

小計行の挿入は簡単かな。
For Each Obj In HPageBreaks
Rows(Obj.Location.Row).Insert Shift:=xlDown
Next

こんなかんじかな？（多分）
へたをすると逆順からループしないとだめかも。
挿入によって次以降の改ページが変わるでしょ。


問題はSumを挿入するとこなんだけど
1つ前の改ページから現在の改ページまでの
合計となるような計算式をRangeのFormulaR1C1
プロパティに代入してくんだけど、説明めんどい
どうしよう。気が向いたら作ってあげるけど
今仕事忙しい。ので簡単にポイントを

for i=2 to HPageBreaks.Count
終値だけどCountの値とページ区切りオブ
ジェクトの数合わないんでエラー出るまでループ
に変更して

a=HPageBreaks(i).Location.Row-HPageBreaks(i-1).Location.Row+1
で上の改ページまでの行数わかるでしょ。

for j=1 to ???
???は好きな数入れて（Sumを挿入したい列数分）

Range(HPageBreaks(i).Location.Row-1,j).FormulaR1C1=
"=Sum(R[" & -a & "]C[0]:R[-1]C[0])"

next j
next i

こんなかんじ（数値の増分+1,-1は間違ってる可能性おおあり
ためしてないので）

あとはがんばって。
そういえば上のロジック1番目の改ページから
その上は計算してないので別のロジックが
必要です。上を真似て作ってください。
ループが無くてaの設定がかわるだけなので。

>>725
ありがとう！
がんばって作ってみます。
本当に感謝!
また行き詰まったら質問しにきます。

>>696
やってみましたけど、
エラー「入力した数式にはエラーがあります」
とでてしまいます　いろいろすみませんが、教えてください
よろしくお願いします。

Excel2000で16進数の連続データの作成をしたいのですが可能でしょうか？
80103A44から＋04CHで80104A68までとかです。

>>728
ワークシート関数にまったく詳しくないので
こんな方法しか思いつきません

標準モジュールに
Public Function MyHex(rng As Range)

MyHex = Hex(rng.Value)

End Function

こんなのを作っといて

B1〜B100位まで
=MyHex(A1)
=MyHex(A2)
=MyHex(A3)
:
を入力する

A1には-2146420156を
入力しておいてA2以降は
増分1の連続データを
D&Dで作成。

完成。必要ならB欄の内容
をC欄に値のみコピーする。

どなたかHEXを返すワーク
シート関数知ってたら教えて
あげてください。

ちなみに-2146420156は
以下のように算出しました

VBAのイミディエイトウィン
ドウで?val("&H80103A44")
として求めました

>>727
こっちで試したら正常にでたけどな。
新規シートで試してみたら？

ところであの計算式だとFormatが
かかってないので1桁の月と2桁の月、
または日が存在するため値に一意性
がなくなる可能性があります。
Format関数を使用して桁を固定する
ことをお勧めします

たとえば2001/1/11と
2001/11/1の場合かな？

>>730
つーかこれでOKだね
Sheet1.Range("I2").Value = Format(Now, "yyyymmddhhnn")

ただしエラーの出る問題は解決しないよ

>>730　その通りだね。考えもしなかった(^-^;
>>731　修正どうもっす

>>709
ショートカットなんてあるの？
あったら僕も知りたい。

わかんなかったら悩むより
マクロにしたら？
オプションで数式表示をOnにするのを
マクロ記録しておいて、マクロメニュー
でショートカット割り当て。
おわり

お勧めは、記録したマクロにはたくさん
いらないごみがついてるはずなので
すべて削除しないとそのマクロを実行
したときにそのマクロを記録したときの
オプション設定に戻っちゃうものが出て
くるので、いらんコードを全て削除する
ことです。

>>709
>>733
ショートカット・・たぶんこのスレかパート1か
そうじゃなくても、この板だったと思うんだけど
2chで見たよ。試してみたし。
ただ、バージョンによってできたりできなかったりあったような。
この700件以上あるレスから探すのはめんどう。

と前置きが長いけど、ヘルプで「ショートカット」って調べたらあった。
うちではうまく働かなかった。
ctrl+shift+’
らしいが。

>>709
>>733
>>734
http://www2.odn.ne.jp/excel/waza/file.html#SEC18

本当に有難う御座いました。

すみません質問です。
excelを起動すると『不正な処理を行ったので強制終了します』というエラーが出てしまいます。
EXCEL の 0 による除算エラーです。
モジュール : <不明>、アドレス : 0000:00000204
Registers:
EAX=00008000 CS=003b EIP=00000204 EFLGS=00000097
EBX=00000000 SS=39c7 ESP=00000fd0 EBP=0000c950
ECX=00000000 DS=03af ESI=00000000 FS=201e
EDX=00000000 ES=55cf EDI=000f3ea8 GS=55de
Bytes at CS:EIP:
cd 30 cd 30 cd 30 cd 30 cd 30 cd 30 cd 30 cd 30
Stack dump:
003b0204 ba180000 0246039f 5a6fc4d8 00000372 0000003b 00000246 00000204 0000003b 00000204 0000003b 00000206 00000000 00000000 00000000 00000000
何が問題なんでしょうか？

詳しい方、教えて下さい。

すみません。Excel 97です。

セル選択状態で、セルの属性（枠とか）を外して
中身の文字列だけをコピーする方法って？

テキストファイルに吐き出せばできるんですけど、
直接中身だけクリップボードに入れられないかなぁ、と。

>>739
なにがしたいのかによる。他のセルにコピーしたいのなら、貼り
付けるときに「形式を選択して貼り付け→テキスト」で貼り付け
ればいい。
テキストエディタとかで使うなら、普通にコピー→貼り付けすれ
ば中身だけが（タブ区切りで）コピーできる。

識者の方教えてください。
以前のExcelから使っていた勤怠表が、XPをインストールしてその後も繰り返し
更新して使っていたら、気が付いたらいつの間にか、列がなんと
アルファベットではなく数字になってしまっていました。(行と同じイメージ)
こうなるとセル内の数式までわけの解らないものに変わってしまいました。
これでは数式をいじれません。
誰か列を元のアルファベットに戻す方法をご存知でしょうか。
大変困っております。何卒よろしくお願いします。
なお、ガイシュツだったらごめんなさい。

>>741
XPは持ってないので正確なことはいえないが、EXCEL2000でいうところの
［ツール］→［オプション］→［全般］の「R1C1参照方式を使用する」
がチェックされているんじゃないか。

excel2000で並び替えがうまくできない。困った〜
「最優先されるキー」のデータが同じ物同士で集まって欲しいのに、
いくつかのカタマリにばらけてしまう。同じに見えて、中身が違う
のかな？　データをコピーして並べ替えるとちゃんとヒトカタマリ
になるからなあ……
でも、何度見ても同じだ。同じ「組織名」がちゃんと入ってる。
大文字/小文字？　全角/半角？ スペース抜けてる？
フォントのサイズまで同じだ。　なんでだ〜？？？　

コピーして並び替えるとちゃんと動作するのであれば、中身を
全部コピーして新しいブックで使ったほうが手っ取り早くてよ
いのではないか。
ひょっとしたらフリガナの関係かもね。

>>742 さん
言われたとおりやってみたらなおりました！　本当にありがとうございました♪
助かりました。

４万行を越えるようなシートである程度凝った数式使う事って無理なのか？
メモリ不足は克服不能なのだろうか…、アクセスとかは詳しくないから…。

メモリを増やす…

>>740
>「形式を選択して貼り付け→テキスト」で

そんなのあるんすか。やってみます。

やりたいことは、セル→セルへのコピーで
セルの枠（太線とか点線とか）はコピーしない、
っていうのを「設定」できればいいな、と。

表計算って、ボランティアでやってる団体の会計作業ぐらいで、あとはあんまり出番がない。
簡易データベースとかテキストビュワーとして、あるいはHTML変換なんかを使うと、エクセルの用途が広がりますね。
本来の目的とは離れるけど。
たくさんの画像貼り付けてもワードよりサクサク動くし････。
ほかに変わった使い方してる人きぼん。

XLS ファイルを編集中にサーバーに
コピーしたのですが、そのコピー先の
ファイルを開こうとすると、なぜか
「編集のためロックされています」云々の
ダイアログが表示され、使用中のユーザーが
「私」であると言われます。
再起動して開き直しても結果は同じ。
しかも削除しようとしても共有エラーが出て消せません。
どうにかこのファイルを編集可能な状態、
あるいは削除する方法はないのでしょうか？

>>750
↓の10でダメならコマンドプロンプトから削除してみては？
http://moreexcellent.cool.ne.jp/excel/open.html

>>751
レスありがとう御座います。
どちらも試してみたのですが、TEMPファイル自体が削除不能で、、
コマンドプロンプトで削除しようとしても失敗してしまいました。

>>752
なら、Win98の起動ディスクで起動してMS-DOSから削除するか
DOSモードで起動出来るOSならDOSモードで起動してから削除。

あ、サーバーにあるファイルなんだね。
う〜ん、以前検索中に同じような症状の解決方法をどこかで見かけたような・・・

>>752
http://www.keep-on.com/~excelyou/2000lng5/200001/00010009.txt

Ｅｘｃｅｌで2次関数のグラフを作成するには
どうすればよいのですか？
昨日、トライしてみたのですが
うまくいきません。誰か、助けてください。

>>756
１．A1〜A20に-1,-0.9,-0.8･･･と入力
２．B1〜B20に=A1*A1,=A2*A2と入力
３．挿入-グラフで散文図を選択
４．データ入力範囲にB1〜B20を設定
５．その後はダイアログを適当に進む
完了

２の計算式を適当にかえてやってみてください

セル内の数値を任意の桁数で切り捨てたいのですが
どなたか教えて下さい

　シートが多くなると、一行だけで表示させているととても不便なので、
複数行（？）で表示させたいのですが、そうゆう事って可能でしょうか？

　シート名が書いてあるタブを２行以上で表示させたいって事なんですが、
やりたい事がわかってもらえますかね・・・

　やり方をご存知の方いらっしゃいましたら、レスお願いします。