Excel総合相談所 60

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

▼━ 質問のしかた ━━━━━━━━━━━━━━━━━━━━
★1 質問するときは環境や条件はきちんと書いてね。情報後出しはダメ。
★2 要望は具体例や図を使って明確かつ具体的に。
★3 質問前に>>2-20あたりの注意書きやQ&Aを必ず読むこと。
★4 質問テンプレ(雛形)は必須じゃないけど、
　　　OSやExcelのバージョン､VBAの可否など(下記テンプレ1〜4の情報)は必須情報。

▼━質問テンプレ (出来れば使ってね) ━━━━━━━━━━━━
【1 OSの種類 　 　 　 　 .】 Windows**
【2 Excelのバージョン 　 】 Excel**
【3 VBAが使えるか　 　 .】 はい･いいえ
【4 VBAでの回答の可否】 可･否
【5 検索キーワード 　 　 】 Googleやヘルプでの検索キーワード

※【4】は、VBAはわからないけどコード書いてくれるならVBAでもいいって場合は｢可｣
　 VBAを使うのは避けたいって場合は｢否｣にしましょう。丸投げする場合は､必要に応じてブックをアップすること。

※【5】は、あなたがGoogleやヘルプで検索した際に使ったキーワードを書いてください。
　 まだ検索してないなら、質問の前にGoogleやヘルプで検索してみてください。
　 ttp://www.google.co.jp/

前スレ
Excel総合相談所 59
http://pc11.2ch.net/test/read.cgi/bsoft/1186753724/

＊推奨NGネーム＊
せんせー ◆adhRKFl5jU

▼━質問時の注意･決まり事━━━━━━━━━━━━━━━━━━━━
･1 現行スレ内で既出の質問が無いか、ページ内検索をしよう。(Ctrl+F)
･2 図やコードを書く場合、TABや連続する半角スペースは無視されるので注意
･3 VBAコードを貼る場合は、部分的に伏せたり省略したりせずに全て貼りましょう。何レス使っても構いません。
･4 2回目以降の質問では名前欄に初回質問の番号を入れよう。
･5 回答内容でわからない部分があっても、すぐに聞き返さずにヘルプやGoogleなどで検索しましょう。
･6 バグ･動作上の不都合･仕様に関する質問などはマイクロソフトのサポートを受けましょう。
　　ここは技術的な質問のみで。
･7 VBAはプログラム言語のVisualBasic(6以前)に近い処理が可能で　Excelに関係ないことも出来ます。
　　Excelの操作に関係ない部分は、スレ違いなのでここで聞かずにVB言語やAPI､COMについて自分で勉強し､
　　どうしてもわからない部分はVBスレやAPIスレなどの該当スレで質問しましょう。
　　但し向こうはプログラマのスレなので､構文規則などの最低限の事は覚えてから質問しましょう。
　　ここみたいに丸投げはダメですよ。
･8 うまくいかなかったにしても自分でやってみたこと(組んだ数式やコード)は書きましょう。
　　例えエラーになる式やコードでも、何をやりたいのかを的確に把握する手がかりになります。
　　その上で、どううまくいかないのかを具体的に書きましょう。
　　エラーが出るなら、何処でどういうエラーが出るのか、
　　想定外の結果が出るなら、条件と想定上の結果、実際の結果などを詳しく書いてください。
･9 マルチはダメ。一度マルチしたら､謝っても他のスレの質問を取り下げても回答は得られないと思ってください。
･A テキストボックス(エディトボックス)、コンボボックス(ドロップダウンリスト)、リストボックス、コマンドボタン、
　　チェックボックス、オプションボタン(ラジオボタン)、スピンボタン、スクロールバー、等の質問をするときは、
　　ユーザーフォーム、コントロールオブジェクト、フォームオブジェクトのどれなのかを必ず書くこと。
･B 書籍や解説サイトの紹介依頼はスレ違い。ここは技術的な質問のみで。

★ルールを無視すると…
　>>1-2あたりのルールに従うか否かは自由だけど､従わないと以下のような不利益があるよ

　1．マルチをしてしまったら…
　A．謝っても他での質問を取り下げても､以後その質問に対する回答は付かない物と思ってください。
　　　それが嫌なら初めからマルチなんてしないように。>>2にマルチ禁止と書いてあり､
　　　マルチの意味が分からなければ検索すれば出てくるので､｢知らなかった｣は通用しません。

　2．>>1★4に従わず､必要な情報を出さないと…
　A．自分の使用しているバージョンで使えない機能を答えられたり､VBA使えないとか使いたくないと書かないと
　　　VBAでの解決OKで自分でコード書けるものと勝手に解釈されて､｢VBAで出来るから自分でコード書いて｣程度の
　　　適当な回答を返されたりします。また､ここではVBAコード書けない人の丸投げ依頼を許可してますが
　　　これはきちんとルールに従って質問､依頼した人のみの特権です。

　3．情報･条件を後出しすると…
　A．後から出された情報は意図的に無視されたり､質問自体を放置されたりします。
　　　>>1★4の必須情報はもちろんのこと､要望や条件､既に試したことなどは､
　　　長文になってもいいので詳細かつ明確かつ具体的に書きましょう。


★VBAについて
　VBAとは､『Visual Basic for Application』の略で
　　Application
　　├Workbooks
　　｜└Workbook
　　｜　 ├Worksheets
　　｜　 ｜└Worksheet
　というApplication以下のオブジェクトを､VB言語で操作するものを指します。　
　例えExcel付属のVBE(Visual Basic Editor)を利用しようとも､このApplication以下のブックやシート､
　セルやオブジェクト等を操作するもの以外はVBA分野の話ではないので､ここでは聞かないでください。

★ Excelで出来ないこと、仕様上の制限 (括弧内は代用法)

　▼環境･書式
　 ･ 列数を256列以上、行数を65'536行以上に増やす (Excel2007では16'384列､1'048'579行扱える)
　 ･ Excel2003以前で条件付き書式を3つ以上設定する (文字色だけなら、入力規則でも3つ設定可能。それ以外はVBA)
　 ･ 行の高さを0.25きざみ以下の単位で指定する
　 ･ セル内の文字を○で囲む、一部のみ2段にする (オートシェイプ、オブジェクト)
　 ･ オートフィルタで英字の大小文字を区別する (小文字 → 半角、大文字 → 全角、と使い分ける)
　 ･ 祝日を判断する (作業セルに祝日を列挙、VBA)
　 ･ 同一列内でセル(行)ごとに列幅を変える、同一行内でセル(列)ごとに列高を変える (セルの結合)
　 ･ ヘッダー･フッターのページ番号の開始番号任意指定、ページ番号演算、同シート内で違ったものを指定など
　 ･ セルのサイズ(幅､高さ)を､長さの単位(ミリメートルなど)で指定する
　 ･ 罫線幅の自由指定
　 ･ 表示形式で｢10/ 1｣といった書式を指定し､日付が一桁の場合のみ日付の前にスペースを入れる (TEXT関数､VBA)
　 ･ 書式設定の｢折り返して全体を表示する｣と｢縮小して全体を表示する｣を同時に使う (折り返しを有効にして､手動で文字サイズを調整)

　▼操作
　 ･ ファイラーの右クリックメニューからの新規作成で、Excelで設定したシート数のブックを作る (任意のシート数のテンプレートを作成)
　 ･ 複数シートを選択して入力規則やシートの保護を設定する (VBA)
　 ･ オートコンプリート機能を、別列や離れたセルで動作させる (VBA)
　 ･ 選択範囲から一部を除く､Ctrlを押しながらの複数選択で一部を取り消す (VBA)
　 ･ 優先キーを3つ以上指定しての並べ替え (優先度の低い方から順に並べ替える)
　 ･ 1セルを分割 (分割したいセル以外を結合)

★ Excelで出来ないこと、仕様上の制限 (括弧内は代用法)

　▼数式･関数
　 ･ 表示形式以外の書式の取得設定、書式情報を条件とする数式 (ユーザー定義関数)
　 ･ 関数式でセルの選択状態を取得する (VBA)
　 ･ セルの値でパスを補完して、開いてないブックのセルを参照する (VBA)
　 ･ 入力したセルに結果を返す (VBA)
　 ･ 範囲を引数にしての文字列連結 (ユーザー定義関数)
　 ･ 値の書き換え、値の保持 (VBA)
　 ･ 複数の結果を抽出、不定な数の結果を返す (VBA、結果の最大数が解っていれば最大数以上の式を論理式で組む)
　 ･ 空白のセルの部分を上詰め、左詰めなどで表示する (作業セルを使って別セルに詰めて表示なら可能、それ以外はVBA)
　 ･ VLOOKUP,HLOOKUP,MATCH等の関数で､検索語を全半角両方にマッチさせる (ユーザー定義関数)

　▼VBA
　 ･ ExecuteExcel4Macroの参照で空セルと0値を区別する
　 ･ セルの値や変数値で直接変数名を指定する (配列、コレクション)
　 ･ VBのコントロール配列と同じような操作をしたい
　　　(イベント以外ならコントロール名を｢同名+連番｣にしてControls(名前 & インデックス)で処理､イベントはクラスでWithEvents)

　▼ユーザーフォーム
　 ･ フォーム上から変更したプロパティ値の保持 (シートや外部ファイルに書き出して、次回読み込む)

　▼グラフ
　 ･ 棒グラフでひとつだけ突出したデータがあった場合に波線を入れて位置を合わせる
　 　(オートシェイプなどで見た目だけそうなるように弄る、別アプリでグラフを作り、オブジェクトとして挿入)
　　┌┐
　　〜〜
　　｜｜

上記 ｢Excelで出来ないこと、仕様上の制限｣ は､一般的に出来ないとされていること､出来ないと思われるものです。
間違いがある可能性もあるので､上記に挙がってるもので｢コレはこうすれば出来るよ｣というものがあったらご指摘ください。
Excel2007についても未確認な項目が多いので変更点が有ればご指摘下さい。

また､ここに書かれてないことでも､Excelで出来ないことはたくさんあります。
ここに書かれてないからといって必ず出来るはずだなんて思わないように。

＞▼環境･書式
＞ ･ セルのサイズ(幅､高さ)を､長さの単位(ミリメートルなど)で指定する
補足
2007ではページレイアウトビューの表示時に限り、幅・高さともｃｍ単位で表示され、
指定も同じくcm単位でできる。
ただし大元がインチ系なのでなかなかピタリの値は出ない。1cm→0.98cmのように
近い値に勝手に丸められる。

【1 OSの種類 　 　 　 　 .】 Windows2000 sp4
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可

セルの４色の色分けのやり方を教えてください
VBAの記述になると思います。自分なりやってみましたが
上手く動作しません

例としては、下のようなセルの色塗りです
どうぞ、ご教授ください

　0.51 〜 0.99　:緑色
　1 〜 1.99 　:橙色
　2 〜 2.99　:赤色
　3 〜 3.99　:紫色
　4 〜 :青色

数値の変化で自動的に色が塗り変わるようにしたいです。
どうぞよろしくお願いします。

３色までならVBAつかわずに条件付き書式で可能

>>7-8
9の言うように、とりあえず3つまで条件付書式で設定してみる。
その際にマクロを記録しておく。
文法は分からんかもしれんが、どこで範囲指定、色指定してるかは
見ればなんとなく分かるから、残りの範囲については自分で追加してみれ。

まあどこが４色やねんという話ではあるな。

前スレ >>971 さん。
前スレ 970です、コメント、ありがとうございました。

ツールバーとにらめっこしましたが、やり方が・・・。
(Defaultじゃダメってことで良いでしょうか)
VBAでツールバーを描けば、何となくできそうな気もしてきました。
自信なしですが、ちょっと頑張ってみます。

・・・、できなかったら泣きつかせてください。。(^-^;;;

OS　　Windows 2000
Excel 97 SR-1
VBA　 使用、回答不可
検索　Excel 関数 繰り返し 範囲

=SUM(IF(OR(EXACT(A3,ﾞSﾞ),EXACT(A3,ﾞsﾞ)),(B3=2,IF(D3<0.2,E3,),),),
IF(OR(EXACT(A4,ﾞSﾞ),EXACT(A4,ﾞsﾞ)),(B4=2,IF(D4<0.2,E4,),),)……
IF(OR(EXACT(A48,ﾞSﾞ),EXACT(A48,ﾞsﾞ)),(B48=2,IF(D48<0.2,E48,),),))
といった関数を書きたいのですが、17回繰り返したところで
数式が長すぎる、と言われてしまいます。
複数のセルで計算して、最終的に目的のセルでまとめることは可能なのですが
なんとかして一つのセル内で計算できないでしょうか？

ユーザー定義関数にすれば？

【1 OSの種類 　 　 　 　 .】 Windowsxp
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 エクセル　シートが無い場合　エラー　回避

すいません。相談があるのですが、「A」ファイルで、別のファイルの複数ある
シートを参照して、「A」というファイルのシートに数値を読み込ませたいのですが、
別のファイルの複数あるシートが、例えば、今日はa〜f迄のシートがあったとしても
次の日はa〜f迄の中のgとdが無いと言うことがあり、エラーになると言うのでしょうか？
別のシートの値を読み込んでしまいます。
なんとかシートが無いなら無いなりに、「０」（ゼロ）を表示するような記述は
無いものでしょうか？　　ちなみに、今はこのような参照式にしています。
どうか知恵をお貸しください。

=COUNT('C:\Documents and Settings\まるまる\デスクトップ\[かくかく.xls]a'!$M$6:$M$100)

ISERROR関数をつかえば？

>>14
ユーザー定義の関数は使ったことがないので、どういったことができるのか
今一わかりませんが、勉強してみます。
ありがとうございました。

>>16
すいません。　解らないなりにこういう風にしてみても、エラーになってしまいます・・。

=IF(ISERROR(COUNT('C:\Documents and Settings\まるまる\デスクトップ\[かくかく.xls]a'!$M$6:$M$98),"0",
COUNT('C:\Documents and Settings\まるまる\デスクトップ\[かくかく.xls]a'!$M$6:$M$98)

>>18　かっこの数が足りない。ちゃんと数えろ

>>19

=IF(ISERROR(COUNT('C:\Documents and Settings\まるまる\デスクトップ\[かくかく.xls]a'!$M$6:$M$98))),"0",
(COUNT('C:\Documents and Settings\まるまる\デスクトップ\[かくかく.xls]a'!$M$6:$M$98))

一か八か↑のようにしてみたら、一度はうまく表示されたんですが、「aシート」を復活させても↓のようになってしまい
表示が変わらなくなってしまいます・・・・。

=IF(ISERROR(COUNT('C:\Documents and Settings\まるまる\デスクトップ\[かくかく.xls]#REF'!$M$6:$M$98)),"",
(COUNT('C:\Documents and Settings\まるまる\デスクトップ\[かくかく.xls]#REF'!$M$6:$M$98)))

じゃこれは？
=IF(ISERROR(COUNT(INDIRECT("C:\Documents and Settings\まるまる\デスクトップ\[かくかく.xls]a'!$M$6:$M$98"))),0,
(COUNT(INDIRECT("C:\Documents and Settings\まるまる\デスクトップ\[かくかく.xls]a'!$M$6:$M$98"))))

>>21
本当におつきあいくださり申し訳ありません。

試してみたところ、「かくかく.xlsのaシート」の有無を問わず、勝手に式が変わることは
無くなったようですが、シートの内容にかかわらず表示が「０」のままになっています。

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel 2002
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 エクセル、Excel 2002、条件、自動、設定

持っている動画のリストを作りたいです。
そこで「A1」に高さ21、フォント指定（M+2P+IPAG circle）、中央揃え、塗りつぶしの色（薄い緑）。
「A2〜D2、A3〜D3、A4〜D4」のそれぞれにセルを結合、高さ21、フォント指定（M+2P+IPAG circle）。

これを全部手動で1つ1つ指定していたのですが、自動で設定することは可能なのでしょうか？

じゃ、式を簡単にして、ふたつにわける。

[かくかく.xls]a'!$M$1にCOUNT(M6:M98)を入れる。[かくかく.xls]a'!$M$1がエラーでないことを確認したうえで

A1=INDIRECT("C:\Documents and Settings\まるまる\デスクトップ\[かくかく.xls]a'!$M$1")
A2=IF(ISERROR(A1),0,A1)

A1はシートaがなければエラーになるし、シートaがあれば必ず値が表示される。

>>23
> 【4 VBAでの回答の可否】 否
の条件では不可能

以上

>>25 ｽﾝﾏｿﾝ　VBAは可でｵﾅｶﾞｲｼﾏｽ。

>>25
VBAというプログラムが必要だと思っておらず、申し訳ありませんでした。
よろしければ、その指定方法をアドバイスいただけませんでしょうか？

>>27 「Excel VBA」でｇ２って基礎がわかればすぐにできると思うのだが。

>>24さん　ありがとうございます。
> じゃ、式を簡単にして、ふたつにわける。
>
> [かくかく.xls]a'!$M$1にCOUNT(M6:M98)を入れる。[かくかく.xls]a'!$M$1がエラーでないことを確認したうえで

これはクリアしました。が・・・

>
> A1=INDIRECT("C:\Documents and Settings\まるまる\デスクトップ\[かくかく.xls]a'!$M$1")
> A2=IF(ISERROR(A1),0,A1)
>
> A1はシートaがなければエラーになるし、シートaがあれば必ず値が表示される。
>

もうこれは・・・、式をふたつにわける　↑？　私の手持ちの参考書にも載っていないです・・・。(T.T)

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 否

お店▼ 商品　▼　　値段▼
A商店　ピーマン　　\150
　　　　　たまねぎ　 \210
　　　　　にんじん　 \170
B商店　ピーマン　　\120
　　　　　たまねぎ　 \170
　　　　　にんじん　 \160
C商店　ピーマン　　\130
　　　　　たまねぎ　 \180
　　　　　にんじん　 \140

この表でたまねぎの値段を比較するために商品でオートフィルタを
かけると、お店の名前が分からなくなります。
各行にお店の名前を書いとけば分かりますが見栄えが悪い。
フィルタをかけないときは見栄えよくお店の名前をまとめ、
かつフィルタをかけてもお店の名前が分かるようにする方法は
ありますか？

条件後出しは無視の方向で


>>30
店名部分を結合しておけばいいよ

>>31
ほんとだ。ありがとうございました。
お察しの通り、結合したくない理由もあるにはあるんですが、
ふつうにできるって分かっただけでちょっと感激です。

>>29
単純に、シートのA1、A2セルにその式を入れるってだけのことなんだけど

環境：Excel 2003
質問：キーボードにて、自動連続データ入力する方法わかりませんか？
（ マウスでは「１」「２」いれてから、フィルハンドルを引っ張る）

>34
Alt+E → I → S

>>35
出来ました〜。
もう1年ほど悩みの種だったので、気持ち晴れ晴れです。
ありがとうございました。

連投ですいませんが、もう１つの悩み。。
環境：Excel 2003
質問：行コピー後、コピーした行を挿入（ctrl + [+] など）した場合。
再度行コピーを行わずに、コピーした行を続けて挿入来る方法は
ありますでしょうか。
※クリップボード履歴の設定とかそんなイメージなんですけど。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel97
【3 VBAが使えるか　 　 .】（�V_�V）
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 累積 Kakunou

教えてください
A１に入力した数字をB1に累積として表示
A2に入力した数字をB2に累積として表示
　　　　　　　　　・
　　　　　　　　　・
　　　　　　　　　・
シートの何ヶ所かでそれぞれに入力セル累積表示セルを作りたいのですが
過去ログや各所HPのサンプル等から似たようなのをコピーしてやってみたのですが
なかなか上手くいきません。どうか教えてくださいおねがいします。

参考にしてやってみたもの （サンプルとは違うところ）
http://www.geocities.co.jp/SiliconValley-SanJose/2310/excel/setumei_m/setumei12.htm
（数ヶ所の特定のセルの入力だけを特定のセルで累積表示したい）

Excel総合相談所 55
http://pc11.2ch.net/test/read.cgi/bsoft/1174961523/744
（確認や入力日表示はいらない・複数箇所での入力と累積）

【1 OSの種類】 Windows XP Pro SP2
【2 Excelのバージョン】 Excel 2007

デフォルトの列幅のセルに、幅を超える数字を入れると、セルの幅が自動で広がってしまったり
数字、文字問わず、入力した際にフォントの大きさに合わせてセルの大きさが変わるのですが
これを止める方法はありませんでしょうか？

>38

累積とはA1に1→2→3と入力するごとにB1へ1→3→6と表示させると
言う意味ですか？
入力ミスした場合はどうするのでしょうか？
いつかリセットする必要があると思いますがそれはどうするのですか？

仕様に無理がありそうです。
後出し仕様がかなりありそうなのでキーワードだけ。

Worksheet_Change(ByVal Target As Range)

XPでExcel2000を使用しています。
マイドキュメント等に保存したファイルのアイコンをクリックしてもExcelは開くのですがデータが出てきません。
シートの部分が灰色になってます。Excelからファイルを開けば出てくるのですが‥ 。
再インストールしても駄目でした。
どなたか解決策教えていただければありがたいです。よろしくお願いします。

すいません、最近Excelを使うようになり、今関数を勉強中なんですが、
SUMPRODUCT((A1:A5=100)*(B1:B5=100)*(C1:C5))
この場合の"*"にはどのような意味が有るんでしょうか？

>>41
ツール→オプション→全般 [他のアプリケーションを無視する] チェックが入っていたら、チェックを外す
かな？

>42

俺は必要性が無いのでその関数をよく知らんのだが、
ここで聞くよりググった方が早いぞ。

ttp://www.excel.studio-kazu.jp/lib/e3h/e3h.html

>>42
かけ算の記号。
SUMPRODUCTは「配列」って考え方を知らないと難しいんじゃないかな。
その数式は、A列とB列が100の行のみの、C列の合計を出す式。

真偽をうまいこと使ってるのねｗ
関数は関係なかったわ･･･orz

>>45
レスありがとうございます。
この場合の"*"は純粋に掛け算という意味ではなく、
そのニュアンスをとって条件を並列（〜かつ、and）する、意味合いで使っているのでしょうか？
IF関数など他の関数でも、たまに使用しているのを見るんですが、純粋に掛け算の意味で使っている分けじゃないよな〜。
と疑問に思っていました。

>>43
ありがとうございます。
今出先で携帯からなんであとで試してみます。

>>47
FALSE、TRUEは数値の「0」、「1」として判断してくれる性質を使ってるのよ
=10*TRUE　　これ10
=10*FALSE　これ0
SUMPRODUCTはこれを配列で計算するわけ

>>47
純粋に掛け算という意味で使用してる。掛け算＝AND　足し算＝OR
論理値という概念を覚えるとExcelを使う上でなにかと便利

>>48
これで直らなかったら関連付けというWindowsの設定の問題なので
該当スレに移ってね

アドバイスお願いします。
関数を使い結果を出し、その結果に対してRANK関数で順位を出しています。
そこで質問なんですが、データがなく結果が出せなかったリストにはIF関数を使い、
結果欄は空欄になるようにしているんですが、これで順位を出すと、結果が空欄のリストの
順位に#VALUE!が出てきます。結果が空欄のものは、順位も空欄にしたいんですが出来ないのでしょうか？

IF関数をつかえばいんじゃないかな

>>52
ISERROR関数

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 『Excel Unicode ダブルクォーテーション』

あるアプリケーションのプログラム(Unicode形式)エクセルで読み込んで編集し保存しました
その後、メモ帳で内容を確認したところ文字列の前後に有無を言わさず『"』が入力され
更にプログラム内の『"』は『""』に変換されてしまいました


元データをメモ帳にて確認 エクセル上 保存後メモ帳で確認した時
　 ex) aaaaa 　 |aaaaa| 　 "aaaaa"
　 a"a"a ⇒ 　|a"a"a| ⇒ "a"""a"""a"
　 a""aa 　|a""aa| "a""""aa"
　

『|　　|』で１セルです


保存形式をprn形式にして保存したら『"』が入力されずに保存できたのですが文字数制限があるのか途中で途切れてしまいました

『"』を入力させず文字数を維持したままに保存することは可能でしょうか？

レスありがとうございます。
やはり、新たに関数を追加して定義づけるしかないんですね。
ちなみに、RANK関数で順位付けした際、同じような空欄でも、
#VALUE!と#N/Aが出るケースがあるんですが、この違いは何なんですか？

>>55

excelに何を期待してるんだか･･･

しつもん。表XとYから表Zを作りたい。

【1 OSの種類 　 　 　 　 .】 XPSP2
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 多少
【4 VBAでの回答の可否】 VBAを使わずに可能かどうかが知りたい
【5 検索キーワード 　 　 】 excel　複数の表　結合　マッチ　とか

表X　　（A列だけ）
A列
A001
A002
A003
A004
･･･

表Y　　（A、B、･･･列）
A列　　B列
A001　　○○
A003　　××
A003　　□□
A004　　△△
･･･　　　･･･

表Z
A列　　B列
A001　　○○
A002
A003　　××
A003　　□□
A004　　△△
･･･　　　･･･


要するに表Aに表Bの内容を付け加えたいだけなんですが。
表ZのセルB1=if(isna(match(A1,表Y!A:A,0)),"",match(A1,表Y!A:A,0))
とするとA列が同じ部分の行（例えば□□の行）が表示されずに飛ばされてしまう。
複数マッチングする行があるときは全部書き出したい。

やっぱVBAでifとかdo whileとかで地道に調べていくしかありませんか？
VBAでやれば出来ると思うけどできれば使いたくないので。
この関数使えば出来るよ、的な感じで十分ですのでお願いします。

>>58
vlookup

違ったか

スマねえ
>>5に書いてあったわ

>　 ･ 複数の結果を抽出、不定な数の結果を返す (VBA、結果の最大数が解っていれば最大数以上の式を論理式で組む)

つまり不可能ってことでおｋ？

すいません、IF関数についてなんですが、関数のナビを使って関数を作る際、
IF関数の論理式の右側に＝TRUE、FALSEと表示されている所がありますが、
これは特に気にしなくても良いんですよね？
不等号を変えると勝手に変化しているようですが・・・。
また、これはどういう意味なんでしょうか？

>>63

普通は気にする。
評価式を満たしているか（True）否か（False）は、すごく重要でしょ。

64に追加

このような質問をするぐらいのスキルならば、
そこはよく注意して見た方がいいよ。
そこは式の結果が表示されているのだからね。

【1 OSの種類 　 　 　 　 .】 Windows2000
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 少し
【4 VBAでの回答の可否】 −

Visual Basic Editorの右側コードのウインドｩで
マウスのスクロールが効かないのですが、
みなさんそうでしょうか？
マイクロソフトのｲﾝﾃﾘﾏｳｽなんですが。

>>66
そう。んで、俺はVBWheelってフリーソフトを使ってる。これはもうダウンロードできないみたいだけど。
最新のExcel2007ではどうなってんのか知らんけど。

2007では知らんけど、「どこでもホイール」使ってるよ

>>59
表ＸのＢ列でデータ分セル選択、↓入力、Ctrl+Enter
=IF(ISERROR(MATCH(A2,Sheet2!A$2:A$50,0)),A2,"")
選択状態のままコピー、表Ｙのケツに値貼り付けして
データ並び替え（表ＹはSheet2で50行とする）

【1 OSの種類 　 　 　 　 .】 Windows2000
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 可
【4 VBAでの回答の可否】 可

A1・・・・・・
・
・
・
A23　（A列最終データ：可変　途中空白無し）

で、A1にA23のデータを表示したい。
どのようにすればよいですか？
なるべく軽く、関数でいければ、関数（ユーザー定義含む）が良いです。

>>70
INDEXの第2引数にCOUNTAをネストすればOK

>>71
ちょっと考えてみます。

>>70
しばらくレス見れないから答え書いとく

=INDEX(A2:A65536,COUNTA(A2:A65536))

>>70-73
この質問になぜこういう回答がつくのか理解できないのはおれだけですか

君だけ

むしろなぜ理解できないか理解できない

>>66
マジレスすると仕様です。

・WindowsXP　・Excel2000　・VBAはよく分かりません。

すみません、質問させてください。

とあるExcelのデータを開くと、

「開いてるブックには、ほかのファイルへの自動リンクが設定されています。
このブックを更新し、他のブックの変更を反映しますか？」

と表示されるのですが、リンク設定した覚えはないし、仮にしてたとしても不要なので削除したいのです。


「編集」→「リンクの設定」では削除の項目が無く、
該当するシート内を .xls とか リンク元のファイル名で検索しても引っかからず、
試しにシート内の全セルを削除し、上書き保存して再度開いても上記の文章が出てくる状態です。

反映しますか？を「いいえ」にすると問題はないのですが、
開くたびにメッセージが出てくるのは目障りなので何とかしたいです。

分かる方居ましたらご教授お願いします。

>78
どっかにリンクが設定されてんでそ。探してみ？

>>79
それが探しても見つからないんですよ・・・。
セルの中にリンク元のアドレスが含まれてるなら、
ファイル名や.xlsで検索すれば引っかかると思うんですが、ダメでした。
でもシートごと消すと、メッセージは出なくなるのでそのシートなのは間違いなさそうです。

>80
もしかしたらだけど
挿入-名前の定義で外部のファイルが参照とかされてるとそうなるかも

*book*で検索

だれかひまな人でいいので、>>70と>>73について解説してくれるとうれしいです

>>74 の書き込みは「どーしてこんな発想が出来るか理解できない」
の意味だと思っていたけど、ホントに分っていなかったんだ。

だいたい問題の意味がわかんないし。A1にA23の値を表示するんなら＝A23でおわりじゃん

>>85
>>70は最終行の値を常にA1に
自動で表示したいって意味だろ

>>73は実際にA列に値を入れて
A1の値がどうなるか実践してみれ

>85
バカはすっこんでろ

>>70は最終行の値を常にA1に

ああ。はじめからそう書けばいいのにな。

以下のように、A列にフラグとなる値が飛び飛びに入っている表があって、
B列に数式を入れて、A列にフラグがある所を飛ばして連番を振りたいのですが、
どのような数式を入れれば良いでしょうか？

A列　B列
　　　　1
　　　　2
aaa
　　　　3
　　　　4
　　　　5
aaa
aaa
　　　　6
　　　　7
　　　　8


フラグが連続しなければ1個上を参照すれば問題ないのですが、連続する為、
どうすれば良いか分からないのです。
(連続する個数は2個とは限りません)

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

B2＝IF(A2="",MAX(A$1:A1)+1,"")
これをB3以下にコピー

訂正
B2＝IF(A2="",MAX(B$1:B1)+1,"")

>>90-91
ありがとうございます！

情報の後出しで申し訳ないのですが、連番が100に至ると、1に戻って
数えなおしたいので、MAX以外でなんとかならないでしょうか・・？

B2＝IF(A2="",IF(MAX(B$1:B1)=100,1,MAX(B$1:B1)+1),"")

WindowsXP/Excel2000
VBAの質問です

コントロールボックスを使って（imageBox)その範囲の中にイントラネットワーク上に
おいてある写真を自動でリサイズして貼り付けたいのですがうまく行きません。

コマンドボタン等をつかってもエラーで帰ってきます
どなたかえろい人コードのご教授お願いします

>>92
後だし厨うざ

>>93
それじゃむり

>>93
見た感じ、100超えたら全部1になりそうな予感ですが…？

>89
作業列使っていいなら
B2=IF(A2="",MAX(B$1:B1)+1,"")に加えて

C2=IF(ISERROR(MOD(C2,100)),"",IF(MOD(C2,100)=0,100,MOD(C2,100)))
てのはどうだろう

作業列ほどダサいものはない

>>96=>>98
知識無い癖にしゃしゃり出てくる程ダサいものはない

>97
スレ汚しすまん
C2=IF(ISERROR(MOD(B2,100)),"",IF(MOD(B2,100)=0,100,MOD(B2,100)))だ

これで
=IF(A2="",IF(INDEX($B$1:B1,MATCH(101,$B$1:B1,1))>=100,1,INDEX($B$1:B1,MATCH(101,$B$1:B1,1))+1),"")

あいかわらずここは罵倒しか能がないダサいところですねｗ

>>89
100番目は100にするの？それとも1にするの？

100にするなら
B2=IF(A2="",MOD(COUNT($B$1:B1),100)+1,"")

1にするなら
B2=IF(A2="",MOD(COUNT($B$1:B1),99)+1,"")
で下にコピーしやがれ
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　悪霊退散
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　悪霊退散

うわ！ちょっとマテ！コノヤロ！何をす(ry

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ、ですが関数なども含めて本を読んで勉強中です
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 エクセル 住所録 見出し 目次

住所録を作っています。
B列にナンバー、C列に名前、D列にふりがな、E列に…という感じでいろいろと項目が並んでいます。
新たにA列に、「あ」や、「い」など見出しをつけたいと考え、いろいろしているのですが、うまくできません。
見出し自体はLEFTという関数でふりがなから取得できましたが、

あ　安藤
　 　安西
い　伊東
　 　井村
なんていう風にその50音が出てくる最初の一つのセルにのみ見出しとなるひらがなを出したいのです。
=IF(LEFT(D7,1)=A6,"",LEFT(D7,1))
なんていう風にもしてみたのですが、これだと空白とひらがなが交互になってしまいます。

なにかうまい表示のさせ方を教えていただけないでしょうか？

>>103
A6じゃなく、そこもLEFT(D6,1)とふりがなから取り出す

>>104
なるほど！
試してみたところ思い通りに出来ました。

ありがとうございました。すっきり眠れそうです。


明日あさってでA列を追加したことによるマクロとか他のシートからの参照のずれを
直さなくちゃいけないのが憂鬱ですが、思い通りに出来そうなので助かりました。

>>105
少しマクロに慣れたら、セル範囲に名前つけたり、変数使うようにした方がいいよ
ソースをちまちま置換したり、一括置換はリスクが高すぎる
同じ初心者の俺が断言する

>>81
レス有難うございます。
色々設定してたようなので試しに全部消去してみましたが、
結果は残念ながら変わらずです・・・。
うーむ。

>>107
新規ブックにぜんぶコピーして、そっちを使えばいいじゃない

>>107
検索文字を"["で試してミソ？

一応、関数辞典とか見たんですが、わからなかったので質問させていただきます。

在庫管理のようなことをしてるのですが、
A3からA100までの間で、A3からA4,A5,A6と連続して下に向かって入力してある数値の一番下の数値を抜き出す方法はないでしょうか？
抜き出したい数値がその時々によって変化するのでうまい式が思いつきませんでした。

すいません、いい方法を教えていただけないでしょうか？

>>110
連番ならMAXで。

>>110
=INDEX(A3:A100,MATCH(MAX(A3:A100)+1,A3:A100))

>>111
連続(空行無し)とは書いてあるが､連番(公差1の等差数列)とは書いてない

>>110
作業列をつかったらダメなん？

>>110-113
お前ら馬鹿だろ？
>>73の範囲変更すればいいだけじゃん

すまん>>112は除外な

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 QueryTable 複数行 CSV

QueryTableで普通のCSVを取り込むのはうまくいくのですが、
複数行セルを組んだCSVの取り込みがうまくいきません。

この複数行セルを含んだCSVは普通にオープンするとうまく読み込めるのですが、
QueryTableから読み込もうとすると、ダブルクオートで囲まれている所でも改行の所で
次の行に移ったと判断されてしまいます。
QueryTableで複数行セルを含んだCSVを取り込むにはどうしたら良いでしょうか？
もしくはVBAでQueryTableの代わりにシート上の任意の位置に複数行レコードを含むCSVを取り込む方法を
教えて下さい。

110ですが、どうもありがとうございました。
勉強になります

誰か教えて下さい。円グラフで外枠の四角の大きさは変えずに円だけを大きく出来るのでしょうか？
書籍を色々読んだのですが分かりません。
誰かヨロシクお願いします。

>118

出来ます。
いかにもな質問の仕方なのでヒントだけ。

つ「プロットエリア」

>119
レスありがとうございます。しかし、プロットエリアをいくらさがしても分かりません。
どうやればたどり着けるのでしょうか？

>>120
用語貰ったら検索しれ馬鹿

http://www.google.co.jp/search?num=50&hl=ja&inlang=ja&ie=Shift_JIS&q=Excel+%83v%83%8D%83b%83g%83G%83%8A%83A+%83T%83C%83Y&lr=

>121

フォロー謝謝。
言いたいことそのまんまだｗ

>〉80

たしかリンクもとの変更はできたと思うんでリンク先に値の入っていない空のシート指定でなんとかできたような

起きたの大分前なんで違ってたらスマソ

Excel には第１及び第２不完全ガンマ関数はないのでしょうか？
ガンマ関数はあるのですが。

知識ひけらかして気持ちいいかなんか知らないけど、例でも出さないと、誰も分からんと思うよ。

そうだな、本当に教えて欲しいければ、OKWaveに行った方がいい
あっちの方が大人

大人というよりここがガキが大杉

この季節はしかたありせん、
毎年、秋は幼稚な質疑応答で夜が更けます。

>>128
春も、夏も、冬もじゃあるまいか？

夏は課題のオンパレード、夏厨の天下です
冬はちょっと落ち着くが、何故か言葉はトゲトゲしい
春は浮かれたコテが出てくる

>>127
オマエを筆頭にしてなｗ

>>128
傍観者なら書くなよ( ﾟ,_ゝﾟ)ﾊﾞｶｼﾞｬﾈｰﾉ

excelにもwordのような囲い文字機能ありますか？

>>132
ありません。
セルの罫線を使うか、文字ボックスを使って囲むことは出来ますが…

書き込んでしまった時点で傍観者じゃないということに気付いてない恥ずかしい奴発見w
まあ､こういう奴は大抵元から傍観者じゃないわけだがww

>>131
オマエもなｗ

「傍観者」って文字ぐらいに対してしか言い返せないのかい

　　　　　　＿＿＿　　　━┓ 　＿__　　　　━┓
　　　　 ／　―　　＼　 ┏┛／　―＼ 　　┏┛
　 　 ／　　(●)　 ＼ヽ ・. ／ノ　　(●)＼　 ・
　　/　　 （⌒　　(●) /.　｜　(●) 　 ⌒）＼
　 /　　 　 ￣ヽ__） ／ 　 ｜　　 （__ノ￣　　|
／´　　　　　_＿_／ 　　　 ＼　　　　　　　 /
|　　　　　 　 ＼ 　　 　 　　　 ＼　　　　 _ノ
|　　　　　　　　| 　　 　　　　　　/´　　 　 ｀＼

Mac 2004。全くの素人です。教えてください。

データは１列で
--------
あああ
いいい
ううう
--------
あああ
いいい
ううう
--------
の繰り返しです。
それぞれの間に区切りはなく、それぞれは１行とはかぎりません。
これを
-------------------------
あああ｜いいい｜ううう
-------------------------
あああ｜いいい｜ううう
-------------------------
にすることはできませんか。よろしくお願いします。

【1 OSの種類 　 　 　 　 .】 WindowsXPProSP2
【2 Excelのバージョン 　 】 Excel 2003SP2, SP3
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 Goolgeで"近似曲線　平方完成 Excel"
57 53.65
58 53.55
59 53.45
60 53.45
61 53.45
62 53.55
63 53.7
上記のようなデータを打ち込んで、散布図のグラフを作った後に、近似曲線で多項式(2次)としました。
出てきた関数を平方完成して、最小値を調べたかったのですが、グラフ上で表された数値よりも
明らかに大きい値が出てきてしまうんですが、仕様でしょうか？

>>138
VBAで出来るから自分でコード書いて(>>3 2．)

自己解決しました。
分析ツールの回帰分析を用いたところ正常な値が出ました。
どうやら、数値切り捨てによる誤差だったようです。

乱数についてお聞きします。
マクロなしでお願いいたします。

指定する範囲内の乱数を、指定する比率に応じて、指定する回数、出したいのです。

例：1-10の範囲で、1〜5は12％の率で、6〜10は8％の率で、5回出す。

なにがやりたいかというと、ミニロトの予想をしたくて、１から３１の過去の出目の回数を、過去の出現率を参考にして、選びたいのです。

現在、１から３１の数字に、それぞれ何％までの数字（全部の計は100％）は出ているのですが、その比率に応じて応じての選択をエクセルの乱数で行いたいのです。
説明がうまく通じるか判らないですが、３１面体のさいころの表面積を調整したのですが、振り方がわからないということです。
（こっちのほうが、判らないか・・・orz）
また、もし可能ならば、一度出した数字は、二度と出ないようにしたいです。よろしくお願いします。

乱数じゃねーし､Excel分野の質問でもねー

放置

３回読んでみたけど、乱数じゃないね

>>142
１．A1:A31に、1〜31の比率を整数で入力。１〜５が12%だったら、A1:A5前部に「12」
２．B1:A31に、累計を入力。A1に「=SUM(A1:$A$1)」でドラッグすればおｋ。これが「しきい値」になる
３．しきい値のどっかに当てはまるように乱数。=RAND()*SUM(A1:A31)とか
４．３の答えをしきい値の表に照らし合わせて、対応するB列を探す。で、その右のA列の値が今回の値
５．３〜４を繰り返す。というか、何個か知らんけど別のセルに数式入力。あとはF9で再計算するたび値変わる

基本こんなじゃね？しきい値から数値探すとこはmatch関数でもindex関数でもoffset関数でも好きなの
使って数式作れば、自動で探せんじゃね？

重複についてはワークシート関数だけだとめんどい。100個くらい作ってピボットテーブルでまとめちまって、
運用に必要な数だけ上位n個からとるとか、そんなんかな。

>>143-144がバカで
>>145がネ申に見えるwww

そうでもないか

言っとくが>>147は俺じゃないぜwww

>>147は俺です

>>148は偽物です

どちらにも信憑性は無いし
別にどうだっていいことだ

つーか､間違ったことを､さも正解のように書いてるあたりがネ申なのか？
あからさまに叩くのではなっく､巧妙に騙せと？

そうでもないか

というのは勘違いだった

どちらにも信憑性は無い

>>142
50の乱数を30未満なら6で割りそれ以上なら5で割る。
乱数の発生は1ヶ所にしてIfの中で何度も使わない事。
ﾛﾄ当ったら5%頂きます。

余程悔しかったんだねw

>>142　ソルバーって機能がある。勉強したら役に立つよ。

パソコン質問版からこちらに誘導されてきました。

エクセルのセルの設定に関する事になります。
セルの書式設定では、セルに色をつけたり、線を囲ったり出来ますが、
エクセルを起動し、ｓｈｅｅｔを一枚開いた状態で、最初からついている枠色を消したいのですが、
どこを設定したらいいのかな？
具体的に、表を作ってから、表の周囲のセルの枠の色を消したり、表の中の隣り合わせのいくつかのセルを結合せずに、指定した範囲内の枠色を消したりという方法です。


色々いじってみて、エクセルの設定orウィンドウズの設定かもわからななかったので、こちらでどなたか教えていただければ・・と思いました。
意味通じている事を願います。

バージョンがわからんが、
2003ならツール→オプション→表示→枠線のチェックをはずすって事？

「表を作ってから」「指定した範囲内」
とあるからセル色を白で塗る、とか

>>158
１５８さんの方法で出来ました。
それです、それ！
意味が通じて良かったです。

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

>160
>具体的に････指定した範囲内の枠色を消したりという方法です。

要求と違うんだが･･･

>>161
残念だが、そこはエスパーしないと。。

>162

ｽｹﾞｰなｗ>158
んでちゃんと要求に対する案を出してくれた>159は放置かよｗ･･･>160

済んだ質問にいつまでもウダウダうるせーんだよ
お礼言われたきゃコンビニで買い物でもしてこい豚

一人、常に殺伐とした雰囲気を出す、旧世代の2chから進化していない奴がいるな

　　　　　　　　　　　　　　　　　　　　　 ﾉ;;;;;;;;;!　　　<ﾆﾆ)　　 ￣￣￣￣￣￣i;;;;;;;;;;;;;;〈
　　　　　　　　　　　　　　　　　　　　　_i;;;;;;;,r'　　　　　　　　　　 (ﾆﾆﾆ〉::::::::::::l;;;;;;;;;;;;;;;;i
　　　　　　　　　　　　　　　　　　　　/rl;;;;;;r'　　 　 ..,,　　　　　　　..: ::: :::::::::／;;;;;;;;;;;;;;;;l
　　　　　　　　　　　　　　　　　　　　l.l l;;;;;!　　 ,,-==‐..,　　　　..:::::::_,,:::::::::::::ヾ､;;;;;;;;;;;;;;l
　　　　　　　　　　　　　　　　　　　　'l.ｌi;;;;!　　 ,-r―ｪ､　　　. : :::.,,-―-､::::::::::::i;;;;;;;;;;;;;l
　　　　　　　　　　　　　　　　　　　　 l.`;;i　　　`'ｰ='‐-',　　: :: :,_-ｪ―ｯ､`:::::::::::'i;;;;;;;;;ｽ
　　　　　　　　　　　　　　　　　　　　 .l l;l　　　 `'ｰ=-'´　　 : :::::;;`'=='"ｰ':::::::::::::!;;;;;;/;;;}
　　　　　　　　　　　　　　　　 　 　 　 ! i;!　　　　　　　　　 .: ::: :::`'==='"´::::::::::/;;;;;/;;/
　　　　　　　　　　　　　　　　　　　　　`i;!　　　　　　　　　 :: :::::::::::::':::::::::::::::::::/;;;;;/;;/
　　　　　　　　　　　　　　　　　　　　　　!　　　　　　（,､　..::::::ヽ､:::::::::::::::::::::::::i;;;;;/;;/
　　　　　　　　　　　　　　　　　　　 　 　'l　　　 ,/´　　 ヽ-r'~`' 'l,::::::::::::::::::::::l;;;;i_,ﾉ 　　　　　　　　　　　　　　　　　　　　　
　　　　　　　　　　　　　　　　　　　　　　 l　　 ,/　　　　 l　:::::::::::::i､::::::::::::::::::l;;;l´
　　　　　　　　　　　　　　　　　　　　　　 ヽ　　 ,-―-,､_,__　　　 　〉:::::::::::::/／
　　　　　　　　　　　　　　　　　　　　　　 ∧　　　 `'ｰ===-`ー―::::::::::::::::::/
　　　　　　　　　　　　　　　　　　　　　　/( ヾ､　　　:: :::::::::::::::::::::::::::::::::::／,､
　　　　　　　　　　　　　　　　　　　　＿/　! l　ヽ　　　,..:: :::: :::::::::::::::::／::i .l:::＼
　　　　　　　　　　　　　　　　　　／ ./　　 ! i,　 ヽ､_..: :: :::: ::::::::::::,r'´:::::::l　l::::::::l`ヽ､
　　　　　　　　　　　　　　　 , - ´ .／　　　 i　i,　　　`'ー---―‐':::::::::::ﾉ　 }:::::::ヽ:::::＼

ちょっと複合的な問題になるかもしれませんが、ここが一番適切かなと思い
相談させていただきます。

【1 OSの種類 　 　 　 　 】 Mac OS 9
【2 Excelのバージョン 　】 Excel 2001
【3 VBAが使えるか　 　 】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 差し込み印刷　ハイフン

他の人からもらったエクセルファイルで作られた住所録をワードの差し込み機能を使って
ラベル印刷しようとしています。

ですが、差し込んでプレビューすると、数名分だけ住所の番地のハイフンが
アンダーバーで表示されるものがあり、印刷してもそうなってしまいます。

元データであるエクセルファイルは見た目同じハイフンです。（セルの書式設定は「文字列」）

「検索」をしたら、アンダーバーになる方のハイフンをコピーして検索しても、
該当の番地セルは検索にひっかからず、正常に表示される番地セルがひっかかります。

正常に表示されるハイフンとアンダーバーになるハイフンを一つずつセルにコピーして
CODE式で文字コードを調べましたが、同じ番号です。
でも、その２つのセルをEXACT式で調べると「false」となります。

こちらでハイフンを入力しなおすと正常に表示されるようになりますが、１０数件あり、
一括処理できないものかと困っています。

古くから管理している住所録なので、元々はワープロで作られたものと思われますが、
パソコンが普及してエクセルで管理されるようになり、今に至ります。
現在、すぐに確認してもらえるWinユーザーがおりませんので、Winでも同じ状況になるかは不明です。

原因がなにか突き止めることはできないでしょうか？

>>167
�@ダメな方の文字をコピー→置換で置き換えられないか。
�A住所の入っている列だけを新規ブックに貼り、csvで保存、テキストエディタで置換、
　 再度貼り戻すのではどうか。

殺伐とした雰囲気じゃないと2chじゃ、ないやい！

十数件なら手作業でいいじゃない　原因を突き止めるのはそれからでも

質問です。ググってもどうしても解決できませんでした。

【1 OSの種類 　 　 　 　 .】 WindowsXP-SP2
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 ハイフン　自動　挿入　文字　挿入　セル　等　色々･･･

セルに入力する項目は、12345678、もしくは、1234567A　等８桁の文字です。
表記どおり、８桁の数字の場合のほか、末尾が”A”の８桁の場合があります。
その入力された文字を、123-4567-8　や　123-4567-A　のように自動で表記させたいのです。
ハイフンの位置は、上記通り以外にありません。（=○○○-○○○○-○　の形式のみ）

理由：入力者が私以外にも多数いて、ハイフン入れるのが面倒臭いとの意見続出のため

数字だけなら簡単なのですが『Ａ』のために困っております。
どなたかご教授をよろしくお願いします。

>>168
ありがとうございます。

1.ダメな方の文字をコピー→置換はやってみましたが、正常なハイフンだけ置換対象となり、
ダメな方は置換されませんでした。
（ハイフンで置き換えるとややこしいので★に置換してみました）

2.CSV保存→ワードで開いて、ダメな方をコピーして「すべて置換」で★に置換したところ、
正常なのもダメなのもすべて★に置換されました。

2が一番早そうです。ありがとうございます。

>>170
その通りですが、今後も住所録の人数が増えますので、入力時にならないように
原因が分かったらと思ったんです。

MIDとかLENとかで解決

>>173
私（=171）に対する解答でしょうか？

現在は入力セルと表示セルを別々にして
おしゃるようにMIDを使ってピックアップして表示しています。

しかし、別なファイルで入力セル＝表示セル　にしなくてはならなくなり、
簡単にできないもんかぁ･･･と思ったわけです。

VBA使ってでもできるものなのでしょうか？

>>174
表示だけなら、書式設定で出来る。
値自体を変えなければいけないなら、VBAが必要かと。
てゆーか、印刷範囲外に入力させるとか仕様自体変えればいいんじゃね。

>>175　様
表示設定だけでいいです。
値自体の変更は今回は必要ありません。

000-0000-0　ってセルの書式設定で表示形式設定しても
『A』が入るとだめだったもので･･･

仕様変更すればいいのは重々承知の上です。大変申し訳ございません。

>>169
黙ってろハゲｗ

と、ハゲまっしぐらが抜け毛を気にしながら一言。

>>176
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, s As String
For Each c In Target
If c.NumberFormatLocal = """?"";@" Then
s = Replace(c.Value, "-", "")
s = Left(s, 3) & "-" & Mid(s, 4, 4) & "-" & Mid(s, 8)
c.Value = s
End If
Next
End Sub
と書いて書式を「"?";@」にする

>>179　様

すげぇ〜〜〜〜〜〜〜〜〜〜！！！！
解決できました！VBAは自分なりに勉強します。
ありがとうございました！感謝！！

プロットする点が多すぎるときに
間引いてくれる機能がグラフの機能の中に
あればいいのに…・

いちいち間引いたデータを生成する
マクロを使わなきゃならにのは面倒。

>>181
データの隣に乱数発生させ，フィルタリングしてはいかがでしょう。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

Sheet2のA1のセルでSheet1のC列を参照してドロップダウンリストで選択出来るようにしているのですが
選択した項目によりA3のセルに固定した数値を表示出来るようにはどうすればいいのでしょうか？
Sheet2のA1でりんごA(Sheet1のC5)を選択した場合A3には1000
りんごB(Sheet1のC6)を選択した場合1500というようにしたいのですがどなたかご教授お願いします。

遅レスごめん。

>>108
新規ブックにコピーしてもダメでした。
シートまるごとコピーと、シート内のセルを範囲選択してコピーと両方試しましたが、
やはり新規ブックでも同じ症状。

>>109
検索しても出てこなかったです。

図とかグラフじゃない？

【1 OSの種類 　 　 　 　 .】 WindowsXPSP2
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 Execel 段落　表示　方法
Excelの画面から段落が消えてしまいました。
表示を元に戻すにはどうすればいいのでしょう？
Execel 段落　表示　等で調べたのですが探すことができませんでした。
あまりにも初心者な質問で申し訳ありませんが、何卒お願いします。

>183

=INDEX(【他対応した数値の範囲】,MATCH(A1,【ドロップリスト範囲】,0))

>186

Excel画面の段落ってそもそも何？

>186

セル内で改行してある文字が隠れたってことか？
該当行を選択して Alt+O → Alt+R → Alt+A

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 ExcelXPか2003か2007（どれでもいいです）
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 これから検索したいので、どんな機能を使ってするのか教えて

質問：エクセルで、以下のようなことがしたいんですが、簡単にできますか？

・1列目にいろんな単語があります。それを2列目にある検索するとか調べてみるとか
いう単語をクリックするとインターネットのサイトで検索します

例えば、1列目に色んな学校名が何行にもわたってあります。
そして、2列目に「学校名を検索する」みたいな語句があります。
で、2列目の語句をクリックすると、wikiで検索できる。

こういうのをマクロとかを使ってできるんでしょうか？
もしできるならどんな風にやるかとかこんなマクロを使えばいいとかを
簡単にでいいので教えてください（自分で後は調べます）。

ちょっと面白いバグが見つかってる

Excel 2007 Multiplication Bug
http://it.slashdot.org/it/07/09/24/2339203.shtml

=COMBIN(10,6)-209=1
こんなのもあるぜよ

>190

ヒント
・ハイパーリンク
・ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="http://www.google.co.jp", TextToDisplay:="ググる"
・選択列の文字を検索コード化。

>>193
全然わからん・・・。

とにかく、今1列目に膨大な数の単語があるんですよ。
そんで、それをwikiで検索したいんですが、数が1000個以上あるので、
検索結果を貼り付けるのがしんどい。50個目で疲れた。

>194

仮のマクロを組んで一回処理すれば済むと言う発想は無いのか？

>>195
わからん・・・。まじで・・・。簡単にでいいので、→使ってこうやってこうやってこうしろみたいなのを教えて。
やってみるから。わからなかったら調べてから聞くから。俺、頭いいねってよく言われるから多分理解できるから。

>196
>わからなかったら調べてから聞くから。

さっさと聞いてるヤツに１から教える気はない。

>>187様

感激です！！
有難うございました

>>197
わからんなら、いちいちレスしてこなくてもいいですよ、無職さんｗ

>190
できた。

Sub test()

Dim i As Double
Dim s As String

For i = 1 To 65536

If Worksheets("sheet1").Range(CStr("a") & i) = "" Then Exit For

n = Worksheets("sheet1").Range(CStr("a") & i)
ActiveSheet.Hyperlinks.Add Anchor:=Worksheets("sheet1").Range(CStr("b") & i), _
Address:="http://www.google.co.jp", _
TextToDisplay:=n

Next i

End Sub

>>199　ヘンなヤツ

質問です。
　　A B C
1
とありまして、C1のところを　＝A１＊B1　と式を入れて、C１はA1、B1を入力した時だけに自動入力され
C1からは直接いじくれないようにするには（ロックをかける方法）どうすればいいでしょうか？

>>202　セルをロックしてシートを保護する　詳しくはヘルプ見てね

OSはXPでXPに最初から搭載されてるエクセルなんですが質問させて下さい。
セルAが「１」　なら　セルBは「あ」　とかはできるのですが、
セルAが「１」　なら　セルBはリスト表示で「あ」「い」「う」なんてことは可能でしょうか？
可能ならその方法を教えて欲しいです。
リスト表示っていうのは、データ　入力規則　設定　入力値の種類→リスト　みたいなやつのことです。
セルAもリストで、セルAが「１」ならセルBは「あ」「い」「う」、セルAが「２」ならセルBは「か」「き」「く」なんてしたいです。
どなたかお願いします。

>204
A1のセルをきっかけにvlookup関数で呼び出しの
リストを書き換えればできるよ。

>>203 ありがとございます。
やってみたらうまくいきました。

そういうときは複数のリスト範囲に範囲1、範囲2みたいな名前をつけてINDIRECTで振り分けるといいよ

>>205
>>207
ごめんなさい。よく分かりません。
具体的に言うとどうなるでしょうか。
本当にすみません。

いくつか方法はある。たとえば
範囲1=[あ、い、うのセル範囲]
範囲2=[か、き、くのセル範囲]
と名前をつけて、A1に1を入れる。B1でデータ−入力規則−設定でリストを選んで、
[元の値]に　=INDIRECT("範囲"&A1)　を入れる。こんだけ。B2以下にそのままコピー可能。

【1 OSの種類 　 　 　 　 .】 WindowsXP sp2
【2 Excelのバージョン 　 】 Excel2003 Excel2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 シート　伝票　伝票

お知恵を貸して下さい<(_ _)>
説明が下手なので、参考Bookをうｐしました。宜しくお願いたします。
　ttp://up.shinetworks.net/cgi-bin/snup/src/shine49436.zip.html
DLKEY：1234

「つぼ」のシートにデータを記入していくと、1〜5のシートに、売りと買いの集計表のような伝票を作りたいと考えています。
つぼのシートのGとMの列に数字をいれると売買人（モナやギコ、ゾヌ）が出るようにはできたのですが、１〜５のシート（買と売）に「つぼ」のデータを振り分けて集計、順次反映させる方法はありませんでしょうか？
シートの１〜５は買い主の１〜５の伝票番号として見ていただけたら幸いです。
よろしくお願いいたします。（３〜５シートは空ですが、１〜２と同じようになりますです）

>>210
ピボットテーブルを勉強するといいです。すごく便利なので感動すると思います。

>>210
数式を駆使すれば可能でしょうけど、ファイルサイズも小さくなるので私ならVBA使う。
これを機会にVBAを始めてみれば？VBAデビューに難度が丁度良いとおもうよ！

Excel2007+Vistaです。
一度作ったピボットの
元データの範囲を変えたいのですが
昔はウィザードでデータ範囲指定まで
遡れたのですが2007ではどうしたらいいでしょうか？

お願いします。

>>213
ピボットを選択した状態で
オプションタブ−データグループ−データソースの変更

>211 >212　有難うございます。VBA・ピボットテーブルでがんばってみたいと思います。<(_ _)>

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

【1 OSの種類 　 　 　 　 .】 Windows　xp
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 画像　文字

御願いします。

今、結婚式に使う席札を作っているのですが、
画像の上に文字（人の名前）を書きたいのですが、どうしても
画像が文字の前にきてしまいます。
テキストボックスを使えば文字が前になるのですが
今、関数（VLOOKUP）を使っているため（人の名前の所）
テキストボックスが使えません。（テキストボックスを使うと関数が
使えないみたいで）
画像の順序を変更してもダメでした。
何か良い方法は、有りませんでしょうか？
宜しく御願いします。

>>217
エクセルでやってることが間違っていそう
ワードならできそうです。

>>218

お返事有り難うございます。
席札の他にも色々作成してまして、リストを作り（VLOOKUP）で
参照出来るようにしているため
ワードですと、関数も使えず１回１回名前を打ち込むことになってしまうので
今回エクセルを使ったのですが、ワードの方が良いのですかね
何か方法があればと思ったのですが。

>>217,219
図のリンク貼り付けで出来るよ

面倒でなければ、まず画像を印刷して、その上に名前を重ね印刷するとか

Excel 2007 に面白いバグがあるんだって。
おにぎろ。

>>220
>>221
有り難う御座います。
図のリンク？ハイパーリンクを使ってやるのでしょうか？
もし宜しければ、詳しく教えてください

http://it.slashdot.org/article.pl?sid=07/09/24/2339203

2007ｗﾜﾛﾀ　こんな欠陥品つかえるかよｗｗ

はいはい

>>222
それどんな計算させればいいの？

Ｎ速＋見たら書いてる人がいた。

47 名前： my.unixkernel.is.made.at.m1crosoft.ws 投稿日： 2007/09/26(水) 21:44:54 ID:42A8EQe50
あれ、みんなは 
不良品のExcel2007を買ってないのかい？ 

早速、おいらが作ったブックをそのままコピペするよ 
隣の列に850を掛ける計算だ 

76.8　　　65280 
76.9　　　65365 
77　　　　65450 
77.1　　　100000　　　＜＝＝ワロス 
77.2　　　65620 
77.3　　　65705 

これで自演バレてないと思ってるの？

>>191-

おまえら英語も読めないのか　あわれだな
ttp://itpro.nikkeibp.co.jp/article/MAG/20070926/283042/
ttp://headlines.yahoo.co.jp/hl?a=20070926-00000009-cnet-sci

>>231w

ヒント
=850*77.1-65534-1

>>233
ひでえｗ

これは、850*77.1の値で計算式をつくるとダメポなわけですか？？

浮動小数演算を含み演算結果が65535になるけど
Excelの内部表現では65535に近い値で実際は65535で無い場合
と思う。

無い場合の一部 な

この現象は2003や以降のバージョンでもあるのでしょうか？

>>238
2003で試して見ました
少なくとも =850*77.1 では起きないようです

>239　ありがとうございます。2007でやってみましたらビンゴでした。
=850*77.1 は 100000 となり
=850*77.1-65534-1 は -7.27596E-12 となりますた（数値スタイルに変えると大丈夫なようで）

ttp://pc.nikkeibp.co.jp/pc21/special/gosa/eg2.shtml
も読んで、ためしにやってみましたが、2007も起こりますた。

>>239
「Excel2007で」って書いてんだろが。
これ以前のバージョンで起こるようであれば、もっと前に祭になってるだろ。

>>192を試してみろ

うぜえ

セルの境界線？を消すにはどうしたらいいでしょうか？

下記のようにしたいです
ttp://vista.undo.jp/img/vi9085472398.jpg

＞244
>>158

おお、ありがとうございました

Excel2000を使用しています。
中身を改ざんできない様にはシートの保護でできるようですが、
Excelで作ったファイルを開く際にパスワード入力を求めるようなセキュリティー設定は出来ますでしょうか？

すいません、上記の追加でファイルの暗号化の方法もありましたら、
ご教示お願い致します。

>247-248

何か根本的に間違ってないかい？

>>247
名前をつけて保存＞全般オプション

Excel2000をつかっているのですが
英語のキーボードでCTRL+'の操作で出来ることが日本語のキーボードでどうやるのかわかりません
教えてください

普通に

【1 OSの種類 　 　 　 　 .】 WindowsXP sp2
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 少々
【4 VBAでの回答の可否】 可

ワークシートの選択について質問です。
ＶＢＡのウインドウでは、シートの名前をsheet1から管理しているようですが、
これをＶＢＡでrangeに対するcellsのように使うことはできないのでしょうか？

ワークシートの名前がバラバラなので、これで選択できるようになるとすごく楽なのですが・・・。

sheet&変数　などで使えると、すごくラクチンだなーと思ってます。

>>223
その関数とやらで一度リストを作り
ワードに差し込むことはできないのかね。

>253

Sheets(i).Select

>>254
ありがとうございます。
ワードは、あまり詳しくないのでｱﾚなのですが、
たぶんワードに挿入すると大変な数！？になる気がします。
すみません

>>255
ありがとうございます！

手元の本には載ってなかったです。
助かりました。

1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】編集モード　ハイパーリンク

お願い致します。

セルにURLをコピペしてそのままの状態だと、
リンクが貼られていない状態（黒い文字）で表示されてます。
そのセルをダブルクリックで編集モードにし、Enterを押すと、
URLへのリンクが貼られます。

上記のようなセルが膨大な量あるのですが、
ひとつひとつダブルクリック（かF2）＞Enterするのは大変なので、
とても困っています。

各セルは同じリンク先を参照するのではなく、
URLはひとつひとつ異なりますので、
全セルを選択＞ハイパーリンクの挿入　の手順は不可能です。
何かよい方法がありますでしょうか？
よろしくお願いいたします。

>>258
VBAしか無理だな。
適当に書いたが試して無いので動くか微妙。

Sub test()
Dim c As Range
For Each c In Selection
If Len(c) <> 0 Then
ActiveSheet.Hyperlinks.Add c, c
End If
Next c
End sub

当該セル範囲を選択してから実行。

>>259

動きました！！
助かりました、ありがとうございます！

103です。
住所録に見出しとなるひらがな一文字を追加する件で追加で質問があります。

濁点のある文字を濁点のない文字と同じと見なすようなそういう方法はありますか？

ぱ　パイオニア
は　ハドソン
ば　バンプレスト

となるのを

は　パイオニア
　 　ハドソン
　 　バンプレスト

としたいのです。
これが出来れば、ひらがなごとに罫線を引いたり色を分けたりもすることができると思うのですが
ここがどうしても引っかかってしまってわからないんです。

どなたか教えていただけないでしょうか？

ファイルを開いたときにリンクを更新するか聞いてくるけど
「リンクの編集」してもリンク先しか編集できず、
どのセルが外部リンクしているのかわからない
どうしたらリンク元を編集できるの？

2000です。
最初にグラフ作るときはセル選択時にCtrl+Shiftで一気に選択できるけど、
一回グラフ作ってから再度選択範囲を変えようとするとCtrl+Shirtが効かなくなるんですが、これは仕様なんですか？

1. WindowsXP
2. Excel2003

VBA ですが、引数付きメソッドの引数を変数で指定するとエラーになってしまいます。
上手な方法があるのでしょうか？よろしくおねがいします。

例）ソート↓

Sub Macro1()

'メソッドの名前付き引数に変数をセットする（ Order1 引数）
Dim t_str As String

Range("K23:L73").Select

t_str = "xlAscending"

Selection.Sort Key1:=Range("L24"), Order1:=t_str, Key2:=Range("K24" _
), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, SortMethod:=xlPinYin, DataOption1:= _
xlSortNormal, DataOption2:=xlSortNormal '★実行時エラー '1004':
End Sub

※ ためしに引数全体をまるごと変数に格納もやってみましたがペケでした。
※ 実際にはテキスト区切り TextToColumns で非定型のテキストに区切りを入れる
　　スクリプトをつくりたい。

>>262
http://www.google.co.jp/search?num=50&hl=ja&inlang=ja&ie=Shift_JIS&q=excel+%83g%83%89%83u%83%8B+%83%8A%83%93%83N&lr=

>>261

ユーザー関数作ってしまうのが簡単そう。
実行部はstrconvとleftだけでいけると思う。

266に追加

ヒントとしては、濁音・半濁音は半角カタカナにすると2文字になることかな。

2個目のBOOKを開くとタスクバーから消えてしいます。
ナゼ？
エクセルのWINDOWを見ると全て開いてます。
ただタスクバーでは常に最後に開いたＢＯＯＫ見れません
誰かここらあたりある方お願いします

>>268
ツール→オプション

>264
xlAscending は文字列じゃなくて定数。
a=10 : cells(1,1)="a"　としても
A1に10は表示されないでしょ。

Excel2007は答えが65,535付近になる計算を間違えるよ!
今パッチ作ってるから待っててね! 石の上にも三年!
ttp://blogs.msdn.com/excel/archive/2007/09/25/calculation-issue-update.aspx

またこの子かw

【1 OSの種類 　 　 　 　 .】 Windows XP (SP2)
【2 Excelのバージョン 　 】 Excel 2002 SP3
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】

例えば　=B2-B3　という式をB4のセルに作ります。
B2とB3に数値が入力されていない状態では、B4のセルには 0 と出ます。

B4のセルに0と表示しないようにしたい（表示だけでなく、計算結果として存在させたくない）


何故かというと、例えば別の場所にB4のセルを使用した式を作った時に、0と認識してしまう。
B2とB3の値次第では、B4の結果が0になることもあるので、未入力だから0なのか、結果が0なのか混同したくない。
というのが理由です。

よろしくお願いします

=IF(OR(B2="",B3=""), "",B2-B3)

>>274
ありがとうございます！

>>270
どうもです。例示していただいた部分はわかるのですが
もんだいはメソッドの引数を変数で指定する方法について、なんすけど...
根本的に取り違えてますね？＞ワタシ。

>>276
引数という部分を変化させようとするから無理なんだよ。
ダメなら次の手を考えろよ。
Sort自体を分岐の中で、引数代えて２回書けば良いだろ。

【1 OSの種類 　 　 　 　 .】 WindowsXP　Home SP2
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 不可
ttp://vista.undo.jp/img/vi9099617130.jpg
画像のカウントの数字が各ミス数と一致したときのペナルティの数値を表示させたいのですがどう記述すればいいのですか？

>>278
=vlookup(b32,$c$37:$d$47,2,0)

【1 OSの種類 　 　 　 　 .】 Windows2000、XP
【2 Excelのバージョン 　 】 Excel2000、2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

時間を入力しなければいけないのですが、量が多いので楽にしたいです。

1.　入力時には0012、0500、5904といった風に入力し、
　　表示は00:12、05:00、59:04という風になるように。

　＊ 00:12は12秒、59:04は59分4秒です。分かりにくくてすいません

2. そして別の行には秒変換した値が入るようにしたいです。
　　0012は12、0500は300、5904は3544と言う風に。

秒を分:秒表示する方法は分かったのですが、逆は分かりませんでした。
お願いします。

>>280
VBA否なのでひたすら演算を行なう方法になる

１．これはセルの書式設定で1234をあたかも12：34と表示させる方法
　書式
　↓
　セル
　↓
　ユーザー定義
　↓
　00":"00　を設定する
ただし、Excel内部では千二百三十四として扱われる。
従って、56：78 なんていうありえない表記も可能になっている。
また12.34と誤って入力した場合、00：12となる。

２．ひたすら計算
A1セルに12：34（1234）が入力されている場合、
　=LEFT(RIGHT("0000"&A1,4),2)*60+RIGHT("00"&A1,2)*1
で秒表記になる
ただし、12.34などと小数を誤って入力した場合、表記は00：12、秒の計算値は154となる
（12.34の10桁目以上は取り除かれ2.34の文字を対象に計算をおこなう）

いろいろ問題あるからあとは自分で入力規則を設定するとかしてエラー対策してちょ

Excel で英語の単語帳を作りたいと思っています。
英語の text file を読み込んで、単語と単語の間の
スペースを手がかりにしておのおのの単語を１行に
１つずつ読み込ませてソートし、同じ単語をカウントして
（例えば the はたくさんあっても１つ）やればできそうな
気がするのですが、そんなことは可能でしょうか。

>>282
できるんじゃね？
やってみれば？

>>279
できました、ありがとうございます

>>282

ハイフォネーションに注意してやれば、出来るとは思う

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 多少ならば
【4 VBAでの回答の可否】 否で

ある関数の範囲指定の所に、あるセルに表示させてある数値を利用したいと考えています。

つまり、例えば

「=sum(A1:A25)」という関数式の「=sum(A1:A○○)」の○○の部分を、
他のセルに書かれている数値にしたいのです。
（B1が「10」であれば、「=sum(A1:A10)」となるように）

VBAをはじめとする様々なプログラミングの場合だと
変数にB1の数値を返した後、（この場合「i」とする）
「"=sum(A1:A" & i & ")"」
というように書くこともできますよね。

こういう風に、なにか関数内に他のセルの数値を利用することってできませんかね？

>>280
＞秒を分:秒表示する方法は分かったのですが、逆は分かりませんでした
表示形式を[s]

>>286　INDIRECT()を使用

>>280
１．入力セルの書式設定を「文字列」にする（ここではA1）
２．セルB1に変換式　=LEFT(A1,2)/24/60+RIGHT(A1,2)/24/60/60　シリアル値になる
　・・・表示形式はmm:ss又は[s]
３．参考）チェック式　C1=IF(A1=TEXT(B1,"mmss"),"","？")
　・・・入力値とシリアル値が違った場合「？」を表示

>>288
回答どうもです。(__)

けど、これだとINDIRECT()を使用した場合、
例えばA10の行（10の部分）だけでなく、列（Aの部分）まで
INDIRECTの指定先に書き込む必要がありますよね？

>>286の例に示したように○○の部分のみを指定したいんです。

それともただ私がINDIRECTを理解してないだけでしょうか？

>290
>それともただ私がINDIRECTを理解してないだけでしょうか？

INDIRECTを理解していないんじゃなくてもうちょっと頭をひねってみよう。

>>276
例示がわかるなら、どうすれば 10 が表示されるか考えれば？
「" "」を外すだけでしょ。　当然 String 宣言もダメ。
277はオレじゃないからね。

>>291
R1C1とか結局いろいろ試してみたけど駄目でしたorz
結局全然わからないです。
頭固いんですかね・・・orz
すいません一体どうすれば・・・？
せめてヒントだけでも・・・

B1=10
=SUM(INDIRECT("A1:A"&B1))

INDIRECT("A"&*)

>>294
ありがとうございますm(_ _)m

なるほど。
""と&ですか。意外と基礎的な初歩を知らなかっただけかもでした。

>>280
入力したセルに「：」を表示させるには
>281の１の方法しかないんじゃないかな。

ありえない表記が可能になるが、じゃあ
ありえる入力ミスなら良いのかという事で
ヒューマンエラー処理はまた別の話。

で、２の計算で
=(INT(A1/100)*60+MOD(A1,100))/86400
とシリアル値にしてやれば、正しい入力値となり
後は表示形式を好きにいぢればよろしい。

時間をテンキーでダダダっと入力するなら、別にこれで良いんじゃね？
http://www.eurus.dti.ne.jp/~yoneyama/Excel/ex-q-a/q_jikoku.html#ten_key
やってみれば、そこまで苦ではないよ。

【1 OSの種類 　 　 　 　 .】 WindowsXP sp2
【2 Excelのバージョン 　 】 Excel2003
【4 VBAでの回答の可否】 不可

上から順に数字が並んでいる時に、
その一番下の数字を取得できる関数とかはありますか？
B2に100・B3に200・B4に300があるときに、
300を取得できるようなものです。

このスレの>70あたりから読んでみると
いいと思うよ。

>>300
ありがとうございます。
そこを読んで試してみて自分の仕様ミスに気づきました。

空白行にも対応しないと駄目でした。
正しくは、B2に100・B3が空・B4に300があるときに、
300を取得できるようなものです。
後だしになってしまって本当に申し訳ありません。

いちばん下の数字が最大値ならMAXをつかえばいい

>>302
最大値ではないです。

そういう関数はありません。作業セルをつかうしかないです。終了。

【1 OSの種類 　 　 　 　 .】 WindowsXP sp2
【2 Excelのバージョン 　 】 Excel2003
【4 VBAでの回答の可否】 可

rows を使って、2から変数　ｙ-20　の行までをselect という形を取りたいのですが、
どのような表記ですればよいのでしょうか。

手元の本には変数の例が載っておらず、rowes("4:5")を見習って、
rows("2:y-20").select と表記してもエラーが出てしまいます。

どなたか詳しい方、ご教授下さい。

rowsプロパティのヘルプを見ると　値の取得のみ可能です。
と書いてある。

俺は、それを見てrange(〜の形式でセットするようにした。値のセットを出来るの？

yが50だったら、こういうことか？


y = 50
Rows("2:" & y - 20).Select


そもそも、VBAの話って事でいいのか？

>>307
はい、VBAの話です。

その表記そのままでやってみましたが、なにやらエラーが出てしまいます。
こちらの入力ミスかもしれませんが・・・。

反応ないな・・・
相当に不便だと思うけど、2000だけの仕様なんだろうか

>>304
知識ねーくせに偉そうな事言ってるなカス！

>>303
>>112

>>310
……それだと最大値を拾ってきてるだけですよね？

>310

ｫｨｫｨ･･･

>301

>300の指摘を再度よーく読んでみれば？
「空白行」がnullならどうしようも無い。>304でFA

>>311-312
何度も言わせんなバカども！
とりあえずやってみろカス！

ひとりｷﾁｶﾞｲがいるな

>>308
Rows("" & "4:" & CStr(y - 20) & "").Select

>>302
> MAXをつかえばいい
MAX"も"使うけど､｢MAX"を"つかえばいい｣では不正解


>>304
> そういう関数はありません。
は正解だけど
> 作業セルをつかうしかないです。
は不正解

作業セル使わなくても､単一関数ではなく関数式使うことで解決する


>>312
> 「空白行」がnullならどうしようも無い。
不正解

>>112はnullというか､何も入力されてないEmptyのセルが有っても対応出来る

実は>>110みたいに完全な数値の連続で空セル無しなら
=INDEX(A3:A100,COUNT(A3:A100))
と､もう少し簡単な式でも対応できるんだが､あえて空セルが有っても柔軟に対応出来る式を紹介した
=INDEX(MATCH(MAX+1))
の式はこういった場合の常套手段
但し数値と空セル以外(エラーや文字列)が有る場合は配列数式使うか作業セル使うことになる

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可

お願いします。

VLOOKUPで指定した別シートの対象データの１文字目（または２文字目以降）を取り出したいのですが、
VLOOKUPとMIDを使って取り出すことは可能でしょうか？
関数の組み方で躓いております。よろしくお願いいたします

=VLOOKUP(BA2,変更データ!B7:AE312,16,MID(変更データ!M7,1,1))？？？？

>317
=MID(VLOOKUP〜,1,1)
じゃない？

>316

>73の方法しか思いつかなかった！
（>73はnullに対応していない）
matchってあえて並べ替えてなければこういう技が出来るん
ですね。（まぁ設計者の想定の範囲外でしょうがｗ）

勉強になりました。m(__)m

>318 ありがとうございます　無事できますた。<(_ _)> =MID(VLOOKUP(BA2,変更データ!B7:AE312,13,),1,1)

本人が出てきてやっと落ち着いたよ。
やっぱりここにはこない方がいいな俺は。
俺も熱くなりすぎた

matchじゃなくても
=LOOKUP(MAX(B:B)+1,B:B)

でもできるんだぜ

uzee

皆さんありがとうございました。
うまくいけました。
なぜ>>112でうまくいけるのかがまだ理解できていませんが、
色々と読み返してみます。ありがとうございました。

＊推奨NGネーム＊
せんせー ◆adhRKFl5jU

あんた、まだうろついてたのね
全然成長してないね　( ´,_ゝ`)ﾌﾟｯ

>>324
成長か？
これからは衰えるばっかだからな
よる年波にはかなうもんじゃない

ところで、スレを立てる奴はテンプレの>>1に

＊推奨NGネーム＊
せんせー ◆adhRKFl5jU

って入れるのやめてくんないかな？
せめて>>2あたりにしてくれよ。さすがに>>1はありえんだろ

さてと、またしばらく来ないつもりだぜ

すいません。質問です。

例えばセルA1に5、A2に8、A3に1、A4に6（実際はA800くらいまであります）

とあった時、A1に6、A2に1、A3に8、A4に5というふうに数値を逆にしたい時はどうすればよいですか？

>>326
B列に1〜800まで入れて、B基準で降順に並び替え

>>327

ｔｒｙしましたが、A1に8、A2に6、A3に5、A4に1

というように、ただ大きい順になってしまいました。

僕のやり方間違ってますかね？

>>292
ありがとうございます。そいうことですね（痛）。
sort が簡単そうなので例にしたのですが、TextToColumns の固定長区切りで、
テキストの区切り位置とデータ形式を指定する引数 FieldInfo

FieldInfo:=Array(Array(0, 2), Array(3, 2), Array(14, 1), Array(17, 2))
↓
FieldInfo:=変数

てな感じで、セットする配列式を文字列の変数にしちゃって制御できたらと
おもったのですが、文字列では扱えないとなると初心者お手上げっす。

>>328
372じゃないが
B列基準にしないからだろうな

>>328
1.　とりあえず元の状態に戻す
2.　B1〜B800に1〜800を入力
3.　A、B列を同時に選択
4.　データ→並び替え→最優先されるキーに列B、降順にチェック
でたぶんいける

初心者なんですいません。

＞B1〜B800に1〜800を入力

　これって効率よく入力できるやり方ないですかね。
　僕の場合B1に1、B2に2ってかんじで、一個ずつしか入力できません。

>>332
B1に1、B2に2を入れる
B1:B2を選択した状態でB2セルの右下の角をダブルクリック

解決しました。皆さんありがとうございました。

沢山の方から返信いただきありがとうございました。
早速アドバイスを参考にさせていただいたところ、かなり効率的に入力できるようになりました。
本当に助かりました。ありがとうございました。

Excel で英語の単語帳を作りたいって書き込んだ282です。


>>283
>>285


やってみたいんですが、どうやればいいのか？

こうすればっていうアイディアがあれば教えてもらえませんか。

HPから表をコピーして、ワークシートに貼り付けました。
ところが、ワークシート内でオートSUMで計算したところ、計算結果が"０"と出てしまいました。
貼り付けた表の数値を、セルの書式設定で『数値』にしてもダメでした。
どうすれば数字として認識させ、計算結果に反映させることができるのでしょうか…

>>336
エディタでやるんじゃだめかい？
スペースを改行に置換して、ソートしてついでに重複行削除するだけなんだが

>>337
少ないんだったら数字の上にF２押してEnterを繰り返す

以下のところがわからないのでどうかおしえてください
いちおうテンプレートを使ってこたえておきます。
【1 OSの種類 　 　 　 　 .】 ウィンドウズビスタ
【2 Excelのバージョン 　 】 Excel２００３
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 エクセル ≠をつかうには
以上です。どうかおしえてください

>337
数値部分をコピーして、そのままで再度数値として貼り付けるといけた気がする。

>340
<>　で≠の意味になる。

>>336

1 スペース区切りでテキストファイルをオープンする
2 それぞれのセルで語尾にピリオドがあったら削除する
3 右端のセルで語尾にハイフンがあれば次行左端のセルの単語とくっつける
4 並び替えをする
5 重複を削除する
6 行数をカウントする

ってな具合？338が言う様にエディタでやった方が早いと思うけど w

343

3と4の間に1行を列にする作業があったのを忘れてた

エディタでやるなら

記号類の前後で改行するといいね。
記号類しかない行は削除してしまえばいいのだから。
（行末のハイフンに関しては、そういう入力をしてあれば、要注意ね）

単語帳を作るのだから、またExcelに読み込むのでしょ？
行数カウントは要らないかと。

ああ、もちろん、スペースで改行してね。

単語の出た順を維持したければ、連番を付けておくといい。
単語でソートして重複行を削除した後、連番でソート。

【1 OSの種類 　 　 　 　 .】 win xp
【2 Excelのバージョン 　 】 Excel２００３
【3 VBAが使えるか　 　 .】 多少ならば

マクロ・VBAや関数、タブを多量に使い、容量の結構多めなxlsを作成してしました。
（というか、必要な量、計算や集計などを行った結果多くなっただけですが。）

そのせいか、1回1回なぜか読み込みが遅かったり、保存する際も時間がかかったり、
あるいは、関数による計算処理によって数値が表示されるのが遅かったり、など、
様々な点で重い状態になっています。
何かあるたびに行われる「calculate cell」が非常にタルイです。


データのサイズは大体10MB。
一番の重くなっている原因は、間数式を入れている表のタブが全部で30ほどありまして、
そのタブの数が多いせいかと思われます。

何か軽くする方法や、対策はないでしょうか？

タブを減らしたりしても、結局は一つのファイルにまとめなければならないので
実質的には変わらないだろうと思っています。

やっぱりタブや関数式の多さでしょうか？

>>348
タブタブってシートの事だろ。
んで、そんな状況説明だけでは、どこを変更しろとか、誰も分からんと思うぞ。
とりあえず、使うときは手動計算に変えれ。

>>348
>>タブを減らしたりしても、結局は一つのファイルにまとめなければならないので
>>実質的には変わらないだろうと思っています。

やってみれば？

>>348
重い原因
・数式の組み方が下手
・VBAの書き方が下手
・データが多い

タブとか言ってる時点でグダグダな数式やマクロだらけなんだろう。
早くすることはできるだろうが>>348には無理だろうな。

>>348
どういう式を使ってるんだ？
使っている関数名をここに書いてみろ。
揮発性か何数とか配列数式とかVLOOKUPを沢山使ってるんじゃないのか？

揮発性か何数じゃなくて揮発性関数ね。

【1 OSの種類 　 　 　 　 .】 WindowsXP sp2
【2 Excelのバージョン 　 】 Excel2003
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 excel　凡例　フォント 一部 OR 1文字
グラフの凡例の一部の文字のフォントサイズを変更したいのですが、
可能でしょうか？

あまりにデータが重いんなら、記入用のブックと計算用(報告)のブックは分けた方が良いよ。
俺は記入用ブックと歩掛(収支)と進捗で必ず分けてる。
レコードが多いならアクセスで入力して、エクセルでDBを読み込んでる。アクセスのレポートがよくわからないので・・・。

>>355
不可

ＡシートA列に約９０００件、ＢシートＡ列に約９０００件の数値データがそれぞれ昇順に並んでいて、数件のデータがＡシートとＢシートで行位置で異なっているとき、並べて比較でスクロールして見つけています。

ＶＢＡで最初に異なる行位置を返すようにならないでしょうか。excel２００３、ｘｐです。

なんて原始的なことを。比較する式をつくって違ってたら×を表示するとか思いつかないのか

>>359
一般的な入力オペレータのスキルレベルは、そんなもんだよ。

×行位置で異なっているとき
○ＡシートにあってＢシートにないもの、ＡシートになくてＢシートにあるとき
最初のものを見つける

VBAに発想がとんじゃうあたりがなんとも

すみません、後出しになってしまいましたが、このプロセスの前処理、後処理をＶＢＡでやる予定なもので。

myﾙｰﾙでｽﾊﾟｹﾞｯﾃｨなんだろうな、そのｺｰﾄﾞ･･･('A`)

悪いことは言わん。職場なら他の人に相談しろ。

これはひどいｗ

>>358
VBAとか言い出す前にワークシート関数の基本的な部分覚えろ
http://www.google.co.jp/search?num=50&hl=ja&inlang=ja&ie=Shift_JIS&q=Excel+%8A%EE%96%7B+%8A%D6%90%94&lr=

ｏｋ、サンキュ。
相談できる職員がいればね。
エレガントなのを期待したかったが、設問からして一方的だったので、退散します。

丸投げだと言われて困っております。
正直に分からないものは、分かりません。

丁寧に教えてくださる方、探してます。
温泉旅行も当るので、教えてくれないものでしょうか？

皆様の良いお知恵を下さい。

http://www.kotaete-net.net/Default.aspx?pgid=14&qid=140526685671

>>367
何がわからないのかが分からない
これだけの回答があるのに

>>367

つうか、2chでそのサイトより優しい対応がしてもらえると思える
その幸せな思考が理解できない。
あっ、釣りですか。

こんな糞ばかりのとこにそんなの求められてもな

矢部吊られた

>>367
正解は、「この件から手を引く」、または人間(ry

>>361-362
VBAが最も合理的。
関数なら
ＡシートにあってＢシートにない最初のものは、配列数式
{=MIN(IF(A1:A9000<>LOOKUP(A1:A9000,B1:B9000),A1:A9000))}

ＡシートになくてＢシートにある最初のものは
{=MIN(IF(B1:B9000<>LOOKUP(B1:B9000,A1:A9000),B1:B9000))}
だが全部を評価するので無駄。
VBAならループを回して、最初のものが見つかった時点で抜ければ良い。

俺の答えはAシートBシートじゃなくてA列B列になってる。
適当に直せ。

excel2000
win XP

家計簿代わりに使い初めています。
1行目が列の見出しになっています。
ですが、今日10/1分をつけたら見出しが消えてしまいました。
マウスをグルグルして下を見ても１行目が常に表示されるようにすることは不可能でしょうか？
可能でしたらやり方を教えて下さい。宜しくお願いしますm(__)m

>374

A2セルを選択してｳｨﾝﾄﾞｳ(W)→ｳｨﾝﾄﾞｳ枠の固定(F)

OSXPでエクセルもXPを使ってます。
1/8と表示させたいのですが１月８日となってしまいます。
どうすれば1/8とセル内に表示させることができますでしょうか？
教えてください。

単純に1/8と表示させたいだけなら
'1/8と入れるかセルの書式設定-文字列にして再入力

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

Book1のシートをBook2へ移動したいんですが、移動先のBookで印刷プレビューすると横にはみ
出てしまいます。（余白は統一してあります。）

http://www.uploda.org/uporg1047772.gif
原因はよくわからないのですが、２つのBookを見比べたとき、こんな風に列ヘッダのサイズが
MDI内で違うことに気づきました。

これを統一させる事が出来ればなおるような気がするんですが。。。
列ヘッダのサイズを一緒にするにはどうしたらいいですか？

【1 OSの種類 　 　 　 　 .】 win xp
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 多少

ユーザーフォームのラベルで起こった問題ですが、他にも症状はあるような気もします。
どのフォントを選んでも、普通の横書きなのに漢字・ひらがな・かたかなだけ左に倒れたような状態になってしまいます。
（数字は普通なのですが。）

フォントの問題ではなく、どのフォントを選んでもそうなるところを見ると、他の設定の問題かな？とも
思いましたが、少なくともユーザーフォームのラベルのプロパティのフォントの部分では、それらしき
部分が見つかりません。

一体何が原因なのでしょうか。
詳しい方、よろしくおねがいします。

>>375
うわ！
一発で思っていた事が実現できました！
ありがとうございます！

>>378
からかわれてないか？

>>380
SSをうpしろ

>>382
本当にわかりませんでした、エクセルの講義を三時間ぐらい受けただけで
今台帳の製作を始めて解説本を片手に作ってますが、どうしてもわからなかったの質問
させていただきました。
たるい質問で申し訳ございません。

今後質問するときは嫌がらせと思われないように名前欄に「いつかの376」と書き込みます。

>>357
不可なんですか、ありがとうございます

>>383
SSってなんですか？

>386

Screen Shotだと思われ。

>>380
フォントスタイルが斜体になってんじゃないの？

斜体だと右に倒れるだろ？

winXP excel2000

( + ) / ( 143 - )
と書いてあるセルがあります。
これは初期値にしてます。
=( 660 + 90 ) / ( 143 - 21 )
のようにして使うわけです。

最後に=を付け足すのが面倒です。
SHIFT押しながらエンター押したら自動で「セル内を式として受け取って計算」みたいにならないものかと思っています。
痴漢をするほどのことではないのです。１日１件程度なので。
そんなショートカットはありますか？

>>390
変わった使い方してるな
普通の人は考え付かない。

>>390
変数2つを別のセルに分離させたほうが効率いいと思う。
=(A1+90)/(143-B1)　とか。答えになってませんが。

>>390
馬鹿だろ。Excelの使い方間違ってる。

>390
最後に「=」を入れるのは面倒だけど、
660とか90の数値を入れるのは面倒じゃないんだね。
たかだか１日１件なら
=(0+0)/(143-0)
と入れておいて　F2で書き換えれば？

>>392-393
言いたい事はわかります。
見せたい数字は一つだけ。入力したい数値は２０くらいある。
入力用の列を２０個用意するのは激しくウザイ。見た目もウザイ。存在が邪魔。

だからあーいうことにしてるんです。
効率が全てじゃないんですよ。

>>394
0を消す手間があるそれでは何の為の初期値かわかりません。

とりあえず無理そうですね。
＞Excelの使い方間違ってる。
でもこういう使われ君の理屈は嫌いです。

VBAを使う
ツールバーにでも登録してボタンひとつで変換

あー、0に上書きするのも嫌なのかぁ。困ったな。
'=(+)/(143-)
と入れておいて、Shift+Enter　の代わりに
データ→区切り位置→完了
これも使われ君だから気に入らないんだろうな。

>>358 です。
>>372　さんへ
今、レス見ました。エスパー組、今も、健在だなとうれしくなりました。サンクス。
データシートは、他に大量のデータがあること等いろんな意味で変更したくなくて、また、プロセス化の一作業なので、ＶＢＡで見つけて、抜けたかった気持ちが伝わっているのもうれしくなりました。明日から、がんばってみます。

>>390

表示したいセル
A1→=(Z1+Z2)/(Z3-Z4)

以下印刷範囲外のセル
W1→660
X1→90
Y1→143
Z1→21

これで何か問題あるのか？
印刷の問題以外で、入力する箇所を1つにしたい理由は何？

回答者全員の代弁になるけど、

　　俺は>>390＝>>395の存在が邪魔。

>>399
その遠い列まで行くのが面倒。
気分が悪い。
そもそも印刷しないんです。

>>397
すいません。=を入れた方が簡単そうです。


もしかしたら本当に理解してもらえてないのでしょうか。
う〜ん。なんて説明したらいいんだろう。この感じを。
キーボードを打つよりもしゃべった方が早い。でもそれよりもテレパシーの方が早くて楽なんだから、テレパシーが使えないかをまずは聞いてみる。
みたいなことと
掃除は好きだけど、汚されると腹が立つ
みたいなことと
筋トレは好きだけど、肉体労働は嫌いだ
みたいなことが入り混じってるんですよね。

伝わらないかな。この感じ。

>>401
マイノリティが主張を声高に叫ぶと排除される事くらい、いい歳してるなら学んでおけ
それともまだ義務教育課程か？

初期値を　=( + ) / ( 143 - )　にすれば

>>390
VBAの標準モジュールに下記の通り記述


Sub Macro1()

Dim i

i = Range("A1")
Range("A1") = "=" & i

End Sub


メニュー［ツール］−［マクロ］−［マクロ］をクリック
　↓
［マクロ］ダイアログ−［マクロ名］欄でMacro1を選択
　↓
［オプション］ボタンをクリック
　↓
［マクロオプション］ダイアログ−［ショートカットキー］欄に割り当てたいキーを入力
　↓
［マクロオプション］ダイアログ−［OK］ボタンをクリック
　↓
［マクロ］ダイアログ−［キャンセル］ボタンをクリック

>>390
＝を入力するどこが面倒なのかを言わないと
数字を入れるのも面倒じゃん手は無しになるのでは。

伸びてると思ったら馬鹿登場か。
普通にスルーしろよ。

テンキーから手を動かしたくないんだろ

よくある話でしょ。
テンキーだけだったら=の代わりに+でいけると思うよ

煽ってるわけじゃなく、もっと情報をくれれば
今以上に簡単操作で動くようになるよ。


とここの住民は言ってるんだよ。
多分。

キー配置変更ソフト使って テンキーの一部に ＝ を割り当てればいいんじゃないの

なんで>>403の方法じゃだめなんだろうと一瞬思った。まあ常人には窺い知れない理由があるんだろうが。

エクセル2007　IMEはATOK2006という環境で使ってますが、
以下の不具合で困ってます。

結合されたセル内に文字を入力していて、間違いに気がついた場合に
BACKSPACE押しっぱなしで消そうとすると、７〜8文字目で固まった
ような状態になることがあります。

しばらく編集していると、そういうこともなくなりますが、そういう症状の
方いませんでしょうか？

1-10
のように　-　を使ったら1月１０日のように勝手に月日がつくのですが
どうしたらなおせるでしょうか？

・書式を文字列にする
・先頭に'をいれる

だれか、↓ここの計算ソフトをチョコチョコっと改良できる椰子いるかな？  
http://www.kabarai.net/  

たとえば、Aの借り入れで過払いが発生した都度、
Bの借り入れ元金に充当できる計算にしたいんだけど・・・

できるんであれば、借金版で語り継がれると思うんだけど・・・  


プログラマー板・プログラム板でﾚｽが無いので、こちらに来ました。 

【WindowsXPsp2 , Excel2003】

「文字列の中に項目名と一致があれば１を返す」っていうのを作りたいです。
「文字列」はこんな感じです。
http://vista.jeez.jp/img/vi9140858308.png

紫から水色を拾って黄色へ返す方法を教えてください。

>>414
さんくす

>>416
VBAの可否くらいかけば？

>>415
出来るけど､態度が気に入らない
(マルチ&>>1-2完全無視)

それにそんなところで語り継がれても嬉しくないw


>>416
B2=IF(ISERROR(FIND(B$1,$A2)),"",1)
あとは縦横にフィルコピー
1行目が文字列として入ってることが条件ね

1行目が数値+表示形式｢00｣の場合は
=IF(ISERROR(FIND(TEXT(B$1,"00"),$A2)),"",1)

>>419
マルチといってもﾚｽないし、断りも入れたんだけどダメですか？

是非、借金版の救世主になってほしい！

だとしても､>>3の★ルールを無視すると… 2．により

｢VBAで出来るから自分でコード書いて｣

の回答で終わりなわけだが

>>421
今更と思われるけど

【1 OSの種類 　 　 　 　 .】 Windows 
【2 Excelのバージョン 　 】 Excel95以上
【3 VBAが使えるか　 　 .】 いいえ 
【4 VBAでの回答の可否】 否

是非是非、借金版の救世主になってほしい！

更にしつこいけど、プログラマー板・プログラム板は
それぞれ1日置いてﾚｽが無いので、こちらに来ました。

>>422

Excelでできる。
だが断る！

>>423
今巷に出回っているソフト（フリー・シェアー含）は、2口を同時には計算ができない。
これが可能になれば（簡単に操作ができる）、多くの多重債務者が救われるんだが・・・

是非、借金版のヒーローになってくれ！

しつこい

>>424
出来ない奴に言っても無駄。
余所逝け。

たった1日で･･･

そうやって待つこと我慢することをしないから
多重債務に苦しむ羽目になるのでは？ ┐(´ー｀)┌

> 今更と思われるけど
今更だね。今回の失敗(テンプレ無視)のツケは今回､回答貰えないことで払い､
次回はちゃんと回答貰えるように気を付けろ。今回は既に失敗してしまってる以上､やり直しは利かないので。
借金だって､一度借りて無利息返済が可能な期間を過ぎたら利息というツケを含めて払わなきゃならないだろ。
借金して買った物を借入先に渡したり､利息分以外の借りた金額のみ返したって無かったことには出来ない。

ウザ

>>419
ありがとうございます。
ご回答を参考に発展形に取り組んでいます。　が、煮詰まりそう・・・

ExtoolsというExcelのAddinのソフトがあります。以下のサイトで配布されていました。

http://www.extools.info/

ツールの使用期限が3ヶ月と制限されていて、その制限に到達する毎にAddinを入れ替えなくてはならないという以外は、とっても便利でよく使っていたので
すが、どうやら作者の方が忙しくなってしまったのか、サイトがここ数日メンテナンス中のままになっています。8末に期限切れになって依頼、使えなくなっ
てしまいました。

代替のツールは無いでしょうか？やりたいことは以下です。
(「|」はセルの境界。「_」は空白）

１）行方向か、列方向のいずれかに、選択した範囲でセルの値が同じ個所を結合してくれる。

　元：|A|A|A|A|A|A|A|A|B|B|B|B|B|B|C|C|C|C|C|C| 　　　　
　先：|A______________|B__________|C__________|

２）１）と同じだが、同じ値ではなく、空白の場合に結合してくれる。

　元：|A|_|_|_|A|_|_|_|B|_|_|_|_|_|C|_|_|_|_|_| 　　
　先：|A______|A______|B__________|C__________|

３）行方向か、列方向のいずれかに、選択した範囲で、結合されたセルに同じ
　　値を詰めてばらばらに分割してくれる。（　１）の逆）

　元：|A______________|B__________|C__________| 　　　　
　先：|A|A|A|A|A|A|A|A|B|B|B|B|B|B|C|C|C|C|C|C|

以上、よろしくお願いします。

用途はわからんが、まあマクロでやれば難しい部類には入らないと思う。

>>431
VBAで自作しれ。

簡単だね

うん、簡単簡単。

excelの試験受けるんでFOMの問題集を勉強したんですけど、その本には関数がデータベース関数とVLOOKUP・HOOKUP関数、IF関数ぐらいしか出てきませんでした。
他にどんな関数を勉強しといたほうがいいですか?

まえにここで質問して嫌な思いした者だ
激暇なので、

ああそうだ　あそこ荒らすか

と思ったけどめんどくさいな

まったく掲示板の荒らしはめんどい

こいつらって

ただ優越感に浸りたいだけだろ
なんてこんな偉そうなんだよ

俺が得意な分野のスレで答えるとき
そんな態度とったことねーけどな

これだからオタクはｗｗ


うぜ＾−

これどんくらいのペースで投稿すると自動規制かかるわけ？

いい機会だから
２ｃｈの荒らし方でも覚えるかな

結構無茶やっても
いきなり２ｃｈ全部アク禁にはならんでしょ？

こんな板絶対来ないから
板アク禁になっても痛くねーし
実験台だなｗｗ

チャットみてーでなかなかいいな
こういうレスのつけかたも

普段は長文が多いからな
一行レスなんて馬鹿な真似はせん

あんま関係ないことばっか書いて
すぐに規制されてもツマんない

そこで考えた。

無駄にエラソーな奴に制裁を加えるのが
俺の目的なので、（その目的はスレにとっても
間違っていないと思うので）そういう馬鹿レスを
バンバン批判していくことにした。覚悟しろ
そしてここから精神性の腐ったオタクを追い出して
健全なスレにしてやる

飽きなければな。まあ今日中に飽きると思うがｗｗｗｗ

飽きた。ラーメン食ってくるわ。

ちなみに俺はなあ
色変えて保存更新したのに次回にアイコンがその色の
ままになってねー教えてちょ
って言って、３レスくらいスルーされたからもう一度ききなおした

だけで

催促すんなとかめちゃ偉そうにいわれた人間だ
許さんよｗｗｗｗｗ

こんなレスと

制裁レスと

スクリプト荒らし？？


で生涯埋め尽くしてやるよｗｗｗｗｗｗ
ゲハハハハ

オマエが偉そうに優越感フワァアアアアアっと
気持ちいい思いがここでできるのも最後だｗｗｗ

残念だったな

しかし1000も埋めるの大変だな
考えると

文章をどんどんバラスという

ことと、

そうだな

頭で考えた

ことはどんどん書いていくということ

これで埋めれるかな

さてラーメン食ってくるよ

これで30レスにも満たないのかよｗｗｗ

スレの流れとか全然みてないけど

まあエクセル興味ねーしよｗｗｗ

どうなの実際？

ここって問題ある奴いる？？
回答者ね

>>419
こいつじゃねｗｗｗｗｗ」

なにこのエラソーな態度ｗｗｗｗ
＞出来るけど､態度が気に入らない
よくエクセル教える程度のことで
しかもネット上の掲示板でｗｗｗｗ
思い上がれるよなｗｗｗ

さっすがオタクｗｗｗｗ

オマンコビスタの新発売です
オマンコビスタにはオマンコ写真の画像が満載にインストールしてありますよ。

はいはい質問者のみなさ〜ん

教えてgooに移動してくださいね
こんな奴らにヘコヘコする必要なし

あのＡＡのレス連発するのってどうやんだろ
ツール使ってるよな
荒らしって。
ちとしらべっか

勘違い全開のイタイ回答者がいるって
ＶＩＰで宣伝すっか
でも意外と全然あつまんねーもんなんだよなｗｗ

タイピングの練習したいやつはここへ集まれみたいな！

。。。。だめかｗ

まあ、俺は丸１年かけてあるサイトを破滅させた
実績があるからな。

でもエクセルの質問スレはどうやっても
なくなんねーだろうしな
一時的になくしてやるくらいはできるだろうけど

じゃあ　どうするかだよな

うざい奴がいるのは事実だし
とりあえず質問者を
他エクセル質問回答サイトへ誘導してやっか

よし決めた
質問者が問題ない質問のしかたをしてるのに
うざいやつが偉そうに答えないことがあるどうか監視して、
答えてないようだったらその質問者を他へ誘導だな

>>475
超親切だな、お前。

それはそれで質問者のためになるだろうから是非やってあげてくれ。

【1 OSの種類 　 　 　 　 .】 win xp
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 多少

超初歩的な質問なのですが、エクセルのＶＢＡである操作をした場合に
音声を鳴らしたいのです。例えばあるボタンをクリックするとピッと鳴ったり・・・

本を調べたところ、読み上げ機能しか載っていなかったのですが、やはりないのでしょうか？

Beep

おい荒らしてる奴！
ちょっと共感する部分あるから応援する
がんばれ！

>>477


関連づけされている拡張子のファイルであれば、
ShellExecute関数で実行可能とか。

これはPDFを開く例。

＜標準モジュール＞
Declare Function ShellExecute _
Lib "shell32.dll" _
Alias "ShellExecuteA" _
(ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd_ As Long) _
As Long

Sub Sample()
Dim Ret As Long
Dim ファイル名 As String
Dim フォルダ名 As String

ファイル名 = "無題.txt"
フォルダ名 = "C:\My Documents"

Ret = ShellExecute(0, "open", ファイル名, "", フォルダ名, 1)

義が有って体制に刃向かってる奴はカッコ良くも見えるが
義も無しに不平不満を並べて喚いてるだけの子は哀れだなw

>>415を教えて欲しい！

ダメならどっか誘導してください。
お願いします。

>>482
誘導がないと移動も出来ないのかよ
そんなんだから･････

なんで過払いを他にまわせると語り継がれるのかわからん

>>484
>>424

>>415
>>420
>>422
>>424
>>482

>>482
OKWEBへ

すみません。教えてください。
同じ部署の人から「このマクロブックを保存して。
場所はCO:\Program Files\Microsoft Office\OFFICE」
というﾒｰﾙが届いたのですが
マクロはよくわからず、どうやって開き、保存すれば
いいのかわかりません。
どうかご教示下さい。
よろしくお願いします。

なんで同じ部署の人にきかない

添付ファイルがあるの？
それをそこへコピーしろって意味じゃね？

C:\Program Files\Microsoft Office\OFFICE
だろ。

>489

激しく同意。

【1 OSの種類 　 　 　 　 .】 WindowsXP Pro
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 少々
【4 VBAでの回答の可否】 設定の問題だと思うので否？
【5 検索キーワード 　 　 】 ブック共有、非活性、選択できない等で調べました。

あるExcelファイルだけ何故か「ブックの共有」が非活性で選択できません。
読み取り専用にもなっていないし、他の誰かが開いていることもありません。
同じディレクトリに置いてある他のファイルは問題なく共有できます。

設定されていた「読み取り専用を推奨する」は外し、
リンク切れになっている不正リンクや名前の参照も全部消しました。

「ブックの共有」が非活性になる原因をご存知の方いましたら
教えていただけないでしょうかm(_ _)m

>>489
質問に答えない人間はレスするなゴミ
ここはおまえのゴミのような４級人間の５級人生の
ストレス発散場所じゃねーんだ

>>492
一行レスは５級人間の証

>>493
何か、オブジェクトとかにフォーカスがあるんじゃないかい？
もしくは、VBE開いて、何かコードが書かれていないか見た？

おはよう
はははは

今気づいた。この板ＩＤないのかあ

勘違い、高飛車、高圧的、自己満足、ストレス発散、
優越感回答者はどこかに？

【1 OSの種類 　 　 　 　 .】 WindowsXP Professional
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否（極めて初心者）
【5 検索キーワード 　 　 】 上書き更新反映されない・色、罫線、ロック設定など反映されない・セル内の文字のみ反映される…など


初めまして
質問のタイトルそのまんまなのですが、よろしくお願いします。

現在仕事で使用しているエクセルファイル（.xls）
にて上書き更新ができなくなってしまいました（保存はできるのですが、次回反映されていない）。
↑仮に「原因不明.xls」とします。
（その場では変更できて終了できるので、シートの保護ではないと思います…）

症状
・文字列や数値などを記入している普通の「原因不明.xls」（１）
・（１）に罫線や色付けなどをおこなって、上書き保存する（２）
・次に（２）を開くと、上書き前の（１）に戻っている

しかし、セルの装飾（？）ではない「一般的な数値や文字列」などを入れて上書き＆終了すると更新されています（３）

他のエクセルファイルは全く問題なく、「原因不明.xls」だけの症状です。

拡張子（.xls）は取引先との関係上、今の所は変更できません。
（.xlsxにおいては正常動作を確認しています。）

他のシートを開いてコピー＆ペーストでもいいのですが、問題の発生理由と対処法を知りたくて質問しました。

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

読み取り専用？

今日もここの自治に周りますよ。
勘違い回答者、高飛車回答者、高圧的回答者、自己満足回答者、
ストレス発散目的の回答者、優越感目的の回答者に制裁を下します


大多数のまともな回答者の皆様は、ごくろうさまです。

■■■■■■■■■■■■■■■■■
大多数のまともな回答者の皆様は、ごくろうさまです。

本日も勘違い回答者、高飛車回答者、高圧的回答者、自己満足回答者、
ストレス発散目的の回答者、優越感目的の回答者に制裁を下します
■■■■■■■■■■■■■■■■■

前にも書いたが
荒らすのはメンドイので止めた。

そのかわり自治厨にまわるよ。
くだらねーやつは覚悟しな！


ほんで、引き換えに俺のエクセル質問は解決されずに永遠闇の中だ
わっははは

完全自治

diffender of the faith

Metal Got

メ〜〜〜〜〜〜タボ〜〜〜〜〜〜〜

ニハハハハハハ

>500

・（２）の時点でファイルの更新日時が変化しているか。
・（２）でファイル名を変えて保存→開くでどうなるのか。

Excelと関係ない部分で何か勘違いしていると思われ。

sageのチェックボックスにチェックはいらねえぞこら！！
俺のエクセルの問題と同じじゃねーか

>>509

ごくろうさまです。　邪魔して荒らしてすみません

てすｔ

てｓｔ

あ、これで　おｋ

てｓｔ

パッと送信するには、、、

うーん　３キーかあ
じゃあ　マウスの方が早いかなぁ

いや　ちょっとなれてきたぞ

■■■■■■■■■■■■■■■■■
大多数のまともな回答者の皆様は、ごくろうさまです。

本日も勘違い回答者、高飛車回答者、高圧的回答者、自己満足回答者、
ストレス発散目的の回答者、優越感目的の回答者に制裁を下します
■■■■■■■■■■■■■■■■■

>>509
更新日時は変化していました。
ただ、内容は「文字や数値」以外全く反映されていませんでした。

また、名前を変更して保存しても同じく内容は反映されていませんでした。

>520

私はｷﾞﾌﾞｱｯﾌﾟです。すみません。

ギブアップしていませんが…
お前らの役立たず！！！

↑こういうのには関わりません。
私の担当ではないのでそっちで処理してください

■■■■■■■■■■■■■■■■■
大多数のまともな回答者の皆様は、ごくろうさまです。

本日も勘違い回答者、高飛車回答者、高圧的回答者、自己満足回答者、
ストレス発散目的の回答者、優越感目的の回答者に制裁を下します
■■■■■■■■■■■■■■■■■

■■■■■■■■■■■■■■■■■
大多数のまともな回答者の皆様は、ごくろうさまです。


昔ここで私が礼儀正しく質問をして、何も問題なかったはずなのに
ひどい言い草をされたので復讐します。

本日も勘違い回答者、高飛車回答者、高圧的回答者、自己満足回答者、
ストレス発散目的の回答者、優越感目的の回答者に制裁を下します
■■■■■■■■■■■■■■■■■

>>500
保存場所はローカルですか？
マクロは記録されていますか？

新規ブックに該当シートのみをコピーして、ローカルに保存後、
内容変更して保存するとどうでしょうか。

excelで円型に文字を書くことは可能でしょうか？
ちょっと凝ったロゴを書いてみたいと思い質問させていただきました。
よろしくお願い致します。

>526
ワードアート

まさか、開く時と保存する時のディレクトリが違うとかw

>>500
式を入れるとどうなるか試してください。＝１＋２　とか。
次に開いたときに式の結果じゃなくて式が保存されてるかどうか。

あ、原因不明.xls.csv

>>500
開くときor閉じる時に書式を消して上書き保存みたいなマクロが走ってたり？

csvならアイコンがふつうのExcelファイルとちがうからすぐ気づくはず

ｲﾊﾟｰﾝ人はアイコンなんて気にしてない、と
アイコンを偽装したウィルスを踏んでしまった俺が言ってみる

>>412
うちもなる。セルの中で日本語を編集してると一瞬固まるんだよね。直し方は不明。
オートコンプリートとかスペルチェックあたりかな〜？とは思ってるんだけど……

>>266
レス遅くなってすいません。
266の意味が全然わからなくて一から調べないとなーなんておもってたら
267でいいヒントが。

VBAやユーザー関数使ってスマートにするのは僕にとってまだまだ
難易度が高そうなので、ここはとりあえずふりがな欄だけテキストエディタにコピーして
半角に変換してきます。

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

>>500
もしかしたら色データが壊れてるのかも。
ツール→オプション→色、でリセットしてみて。
悪いことは起きないし、でも関係なかったらごめんね。

書式の上限こえちゃってんじゃねーの？
確か上限あったよな？

偉い人、助けて下さい。
MACのExcel 2004で前のバージョンで作成したファイルを開くと、
全角スペースの箇所が全て半角スペースになっています。
文字入力しても全角スペースになりません。

どこを設定すれば良いのでしょうか？

■■■■■■■■■■■■■■■■■
大多数のまともな回答者の皆様は、ごくろうさまです。

本日も勘違い回答者、高飛車回答者、高圧的回答者、自己満足回答者、
ストレス発散目的の回答者、優越感目的の回答者に制裁を下します
■■■■■■■■■■■■■■■■■

何だか変な子が張り付いちゃってるみたいだね
こりゃ楽しめそうだ

windowsxp EXEL2003です。
初心者でVBAが何かもわかりませんが失礼します。
同じシートを毎月コピーして管理しているものがあるのですが、
いろいろな所にテキストボックスが表示されます。
一箇所クリックするとそこに10〜20ほど隠れています。
シート内全てのテキストボックスを一括削除はできますか？
またシート内にテキストボックスが隠れていないか探す術はあるのでしょうか？

>541

「オブジェクトの選択」状態でA1からIV65536までを囲って削除

>542
ありがとうございます。これのせいでファイルがものすごく重くなってました。
愛してます！

【1 OSの種類 　 　 　 　 .】 Vista
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 不可

セルに入力した数字により
返す数字を変える事は出来ますか？
例えば
Ａのセルに３と入力されたらＢのセルに１０と返す
４と入力されたらＢには１１と返すなどのやり方を教えて下さい。

=A1+7

ｘｐ　２００３使用中
最近まで、そうではなかったのに、目的のエクセルファイルを開くと、必ず、ｐｅｒｓｏｎａｌファイルが同時に開かれるようになりました。
ｐｅｒｓｏｎａｌファイルが開くことなく、目的のファイルだけが開くように元に戻すにはどうすればいいですか。よろしく。

>>545さん
返答ありがとうございます。すいません説明の仕方を間違えました。
入力した「数字ごとに対応した数字を返す」やり方を探しています。
例えば１と入力された時は５と返す、２と入力された時は１８と返すなどです。
説明不足ですいませんでした。ご指導お願いいたします。

>>544
とりあえず下記の関数あたりから、HELPで調べて目的に合うものを探しだせ
ＩＦ，ＶＬＯＯＫＵＰ，ＣＨＯＯＳＥ

>>547
何が入力されたら何を返すかを別表に作って置いて
=VLOOKUP(A1､別表範囲､2,FALSE)

別表を作りたくなければ､対応一覧埋め込みで
=VLOOKUP(A1,{1,5;2,18},2,FALSE)

入力される値が1〜29の整数なら
=CHOOSE(A1,5,18)

>>547
折れ、質問者だから、答えられるかどうかわからないけれど、その「数字ごと」の数字とはどれだけあるのか知っていないと答えに窮するのでは。

>>546
個人用マクロが保存されているから。

>>546
C:\Program Files\Microsoft Office\Office\XLStart
の中のpersonal.xlsを削除しなされ。

>>546
ウイルスでも仕込まれてんのでは？ w

大多数のまともな回答者の皆様は、ごくろうさまです。

本日も勘違い回答者、高飛車回答者、高圧的回答者、自己満足回答者、
ストレス発散目的の回答者、優越感目的の回答者に制裁を下します


あれ？いなくなったか、、、ざまあｗｗｗｗ
でもずっと見張っててやるからなｗｗｗｗｗｗ
ゲハハアハハハ　こりゃ愉快

質問！

大量の数値を文字にするにはどうすれば？
エクスル２００３です。

それは書式を文字にする仕方の質問なのか、選択をする方法の質問なのか？

＞それは書式を文字にする仕方の質問なのか、選択をする方法の質問なのか？

書式を文字にするほうです。よろしくお願いします。

>>555
選択→Ctrl+1→文字列を選択→おｋ

>549さん
　別表を作りたくなければ､対応一覧埋め込みで
　=VLOOKUP(A1,{1,5;2,18},2,FALSE)

入力も他からの関数だったため小数点以下の数字があり
悩みましたがTRUEを使って解決しました。
本当に助かりました。
他の回答をして頂いた方もありがとうございました！

ニハハハハ
俺は本当に長いよｗ

可哀想な子いなくなったのかなぁと思ってたら
まだいるじゃん！
でも、ここのみんなは賢くて坊やの相手をしないようだから
俺が遊んでやるよ。
いつも見下されてる鬱憤を言ってみろ

>>561
いつも？ｈａ？

脳みそをフル回転させて理解するんだ！坊や

uzee

cells(10,2)から、cells(10,22)までのセルを、
ダブルクリックした時に以下の様に文字を入力したいです。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Cells = Worksheets("sheet1").Cells(2, 2) Then
Select Case Target.Value
Case ""
Target.Value = "○"
Case "○"
Target.Value = "△"
Case "△"
Target.Value = "×"
Case Else
Target.ClearContents
End Select
Cancel = True
End If
End Sub

とやると、一つのセルでは可能なのですが、複数の範囲が指定できません。
どなたかヨロシクお願いします！

追伸。
５６５です。
以下のようにすると、引数は省略できませんとエラーが出ます。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Range = Worksheets("sheet1").Range(Cells(10, 2), Cells(10, 12)) Then
Select Case Target.Value
Case ""
Target.Value = "○"
Case "○"
Target.Value = "△"
Case "△"
Target.Value = "×"
Case Else
Target.ClearContents
End Select
Cancel = True
End If
End Sub

>566

If Target.Cells.Column = 10 And 2 <= Target.Cells.Row And Target.Cells.Row <= 22 Then
スマートなやりかたは知らん。

>>555,>>557
書式を文字列にしたって中身は数値のままだぞ？
=ISTEXT(A1)なんてやってみりゃ分かる。

中身も文字列にしたければ
データ、区切り位置、次へ、次へ、文字列
とすれば良い・

>565
>複数の範囲が指定できません。

複数を選択してダブルクリックって定義がおかしくないか？
仕様を見直したほうがいいと思う。

565です。
早速の返事有難うございます。
567さんの方法で以下の様な例にしてみました。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Cells.Row = 10 And 5 <= Target.Cells.Column <= 8 Then

Select Case Target.Value
Case ""
Target.Value = "○"
Case "○"
Target.Value = "△"
Case "△"
Target.Value = "×"
Case Else
Target.ClearContents
End Select
Cancel = True
End If
End Sub

すると１０行目で有れば文字が入力されます。
上記例では、１０行目かつ５〜８列にのみ適用したいのですが・・・。

569さんへ。
御心配有難うございます。
全てを選択してダブルクリックでは無いです。
その範囲内のセルを１つずつダブルクリックします。

×5 <= Target.Cells.Column <= 8
○5 <= Target.Cells.Column And Target.Cells.Column <= 8

565です。
お蔭様で解決しました！
またよろしくお願いします。

今んとこ非常識回答やろーは姿現してないみたいだな

在庫管理のリストを作ろうと思っています。

仕入れ数　単価　仕入れ金額　販売数　単価　販売金額　在庫数　在庫総額

と表の項目を作っています。（実際は日時やコメントの欄なども作ってありますが）
この表の在庫総額の欄で苦労しています。

具体的には、10個を1000円で仕入れると仕入れ金額と在庫総額の欄に10000円
次に10個を900円で仕入れると仕入れ金額に9000円、在庫総額の欄に19000円

で、問題は販売したときの在庫総額です。
10個販売したとしたら在庫総額の欄に9000円、
5個販売したとしたら在庫総額の欄には14000円
15個販売したとしたら在庫総額の欄には4500円という風に
したいのですが、在庫総額の欄に入れる式がわかりません。
入荷が古いものから販売していき、入荷時の値段で在庫の額を出したいのです。

なにかいい方法がありますでしょうか？
説明が下手で申し訳ありませんが、お願いします。

入出庫を1個単位で管理するしかないね。で、売れたら古い順に売れたしるしをつけて、しるしのついてない商品の総額を出す。

１回の仕入れが数万個だったりしたら大変だね

仕入の新しいものから順に在庫数分の仕入れ金額を計算させるってのはどう？

>574
俺の理解力が無いのかな？

単純に(仕入れ数合計-販売数合計)x仕入れ単価で良い気がするんだけど

同じ商品でも入荷時期によって仕入れ単価違ってたりするから、>>575のように個別に管理するか
>>576のように積算していくかしないといけない

どっちにしてもたいへんだわ。excelはこういう管理には向いてない。

>>577
例えば、
1000円で10個仕入れる
1500円で10個仕入れる
2000円で10個仕入れる

こういった場合に、古いものから15個売ったとすると
在庫金額には、1500*5と2000*10の合計が出るようにしたいんです。
単に仕入れ単価をかけるとすべて2000円だったり1000円だったりで仕入れた計算に
なってしまいませんか？


たぶん、イメージでは576の方のレスが正解だと思うのですが、式がわかりません。
在庫数から最終の仕入れ数を引いて、0より大きければ最終の仕入れ数と仕入れ単価をかける
0より少なければ在庫数と最終の仕入れ単価をかける。で、0より大きかった場合には、
さらにその次の入荷数を引いて…て感じで繰り返していけば思い通りの数字が出せそうな気がするのですが
やはりよくわかりません。

まず、最終の仕入れ単価を取得する方法、というか
その列の一番下に入力されている数字を取得する方法がわかりません。

>579

手違いや廃棄などで、数が古い順でなくなったらどうするの？
例えば、1000円で10個仕入れる。1500円で10個仕入れる。内
1000円を９個、1500円を６個とか･･･
必ずFIFOが保証されているんだろうか？

同じものであれ仕入れ１件に対して管理しないと収拾が付か
ないと思うんだが。必要があれば品種で合計を演算すればい
い。

>>575と>>576の折衷案としては、売れたらどの仕入れ分から充当するかを管理する方法があるな。

仕入01　1000円×10個
仕入02　1500円×10個

のとき、12個売れたら

出庫01　仕入01×10個
出庫01　仕入02×2個

ってかんじ

金銭出納帳の表を参考にしろ
システムの設計をタダでしてもらうなんて考えんなよ

エクセル２００３のＶＢＡで

２行〜65,536（最終）行までにデータがない列は全て削除って可能ですか？

おかしいな？変なやつ全然いないな。
俺がいなくなったら　またカマそうと思ってんだろ
甘いよｗｗｗ
ずーっとみはってるからなｗｗｗ

>>583
非表示にすることは出来る
というか実際は君が想像してるだろう事とは逆なんだけどね

データが無いのに表示されてるセルは､
用意されてるのに使ってないセルではなく
存在しないのに有るように見せかけてるセルだから

見せかけてるだけで存在しないのだから削除するという概念自体が間違いで
納得できるかどうかは別として､非表示にするだけで目的は達成される

おおまかにエスパーすると、
データが入っている最終行までと、それ以降の行の処理を別にする

まずなにもデータが無い行を「削除」し、
データが入っている最終行の次から最終行までは「行を非表示」にする

答え：可能　

俺にはできんが・・

>>583
どこにデータがあるかわからんシートなんて削除してしまえ

>>587
こんくらいはＯＫ．
こんくらいのことは全然ある。ここは２ちゃんだしな

違う俺が体験したのはこんな程度のもんじゃないんだぜ
まるでゴールデンエクスペリエンスだったんだぜ

>>583は歯抜けを詰めたいんじゃないの？

>>583
こんなかな
Set Table = ActiveSheet.UsedRange
endRow = Rows.Count
For i = Table.Columns.Count To 1 Step -1
　Set r = Table.Cells(1, i).End(xlDown)
　If r.Row = endRow Then r.EntireColumn.Delete
Next

【1 OSの種類 　 　 　 　 .】 Windows vista
【2 Excelのバージョン 　 】 Excel 2007 or 97
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 エクセル グラフ 値 シート

小遣い帳で、シートごとに「2007年10月」「2007年11月」…と月ごとに分類して、全てのシートのC1に「その月の支出」を書いておくとして、
自動的に「自分以外のすべてのシートの$C$1」の値を元にグラフを作ることって出来ませんか？

>591

作業シートに全部の$C$1を集めたほうがいいと思わないか？

Cellsを使って、n行全体を選択するのはどう書くのですか？

>593

Rowsを使え

>>593
cells(n,1).entirerow.selectかな

>>594-595
サンクス

>>560
一年位がんばってくれる事に期待

>>590
上手くいきました！ありがとうございます！

さらに、エクセル２００３のＶＢＡで
２行〜65,536（最終）行までにデータが
空白ともう一種類しかない列
（例�@　2行〜最終行までにデータが空白（なし）以外は全て　２　という列）
（例�A　2行〜最終行までにデータが空白（なし）以外は全て　Ｂ　という列）を
全て非表示にする
（2行〜最終行までにデータが空白の他に２種類以上ある列は表示のままにしたい）
にはどうすればいいのでしょうか？
　

>>598
次から次にまあぬけぬけと。。

>598

つ「新しいマクロの記録」

少しは自分で努力しろや、な。

現実世界で頑張ってる私が何故に仮想世界の事まで努力する必要があるんでしょうか？
あなた方どうせ暇なんだから私にさっさと回答くれればいいだけなんですけどね
なんか相談所を道場か何か勘違いしてる人ばかりですね。このスレッドは

なんて香ばしい流れ

こういうヤツが

>■■■■■■■■■■■■■■■■■
>昔ここで私が礼儀正しく質問をして、何も問題なかったはずなのに
>ひどい言い草をされたので復讐します。
>■■■■■■■■■■■■■■■■■

とかいって荒らしだすんだろうなｗ

>>598
worksheetfunction使うのが楽かな

Set Table = ActiveSheet.UsedRange
endRow = Rows.Count
For i = Table.Columns.Count To 1 Step -1
　Set r = Table.Cells(1, i).End(xlDown)
　If r.Row = endRow Then
　　r.EntireColumn.Delete
　Else
　　r2 = Table.Rows.Count
　　Set c = Range(Cells(1, i), Cells(r2, i))
　　c1 = Application.WorksheetFunction.CountIf(c, "")
　　c2 = Application.WorksheetFunction.CountIf(c, r.Value)
　　If (c1 + c2) = r2 - 1 Then r.EntireColumn.Hidden = True
　End If
Next

>>604
いいですねぇ〜
そういう感じで答えてくれると判りやすいですよ
これでもう聞く事なくなりました
はい　もうあなたいいですよ
さよなら

↑

>>603
こんな奴と俺を同じにすんな！！

583みたいなのが居るから他の真面目に聞きたい人間が迷惑する

583、市ね

ヘンチクリンなボクちゃん花盛り
こいつ↓
せんせー ◆adhRKFl5jU
も潜入してるのか？

６０１と６０５は偽者、荒らしです！
無料で教えていただいて
６０１や６０５のようなカキコする訳ないじゃないですか。

>>604さん、ありがとうございます。今から試してみます。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 勉強中
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 住所録 転記 関数

A1郵便番号
A2住所
A3宛名
A4電話番号

という送り状シートと

A1郵便番号　B1住所　C1宛名　D1電話番号

という住所録シートがあります。

会社名を入力すると、郵便番号、住所、電話番号などが自動で入力されるように
したいのですが、うまく出来ません。

住所録の方の項目をそれぞれ郵便番号、住所、宛名、電話番号という名前付き範囲にし、
送り状の方の例えば郵便番号の方に、=LOOKUP(A3,宛名,郵便番号)とすると同じ行のデータを
取得できるのかと思ったのですが、なぜかうまく取得できません。
何が間違っているのかいまいちわからないので、いい方法があれば教えてもらえないでしょうか。お願いします。

>>610
vlookupの使い方を間違えているかも
A:Dを別の名前を付けてミソ。


また、A3は入力ではなくて、入力規則を適用させると吉かも
データ→入力規則→入力値の種類をユーザー設定→数式に宛名

>>611
Vlookup じゃなくて Lookup な

>>610
LOOKUP関数の使い方はそれで間違いないはずだ
どう上手くいかないのか、どんな結果になるのかを説明してみそ

>>611
VLOOKUPは一番左の行のデータしか参照出来ないとどこかで見たので、
LOOKUPを使ってみました。

と、今気づいたのですが、LOOKUPに指定する範囲は
昇順に並んだ数字じゃないとダメみたいですね。

>>612
全然違う行のものが出てくるんです。

<<< KENSYO~1.LZH for MS-DOS ( use jis7 ish ) [ 41 lines ] >>>
!!CY!)gR!2"DRo2TjV@=N3DZXXQ~!&"H[?7NeP!"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&o
!!CY!)gR!2"DRo2TjV@=N3DZXXQ~!&"H[?7NeP!"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&o
!!CY!)gR!2"DRo2TjV@=N3DZXXQ~!&"H[?7NeP!"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&o
"3U:E:BbBlN@!!!!$E!!&[mu9^rjcoe:3@J5k[C>Caj1e>lVE!KdfhZn5s~"gI{1}>a(]CO+IJfV@V
$/SYQ|AO&y+Z]Fo%8{Tm$"LPYApMA-sS<jBoiosDj&f7%,A*gc)x1lR0TIDuFUPV}&S(X<w=B-$r(N
%O]"S]"z4'FTW<6ugJ|Zwb}/Df_)5~jZl/%v!@LoIuqD{AU]8lC3t3P;xaW^ZrnI4N,LL!6yh+O]-+
&S)B"pp8f>mc&'(U%9nnv\M\;au\{h21E2T5Rjy))f@El$I(:ggKBT88@h)>F:82h[-p7Q|Cw,+vFU
'SAM;FO1lphwewP'g?,Mh{@8aq?ZR?*;nrQ,^ZSaY<(K^90S<hs]'p2:Vgabl@1G|Ce!@6;5="v(3>
(W>+ql1Zm>]SuhDo35l9cou7qeBkv3B@U2|X8{AjM,Na{=SqdRV?}mKy'd36<VC%@$${,}/V=Yg*3\
)7*Wo7cFC_Dqo2Wi?Xg%zlb-Q|f0[id3@I?yB80Bz13F}<y:zEL;(=UbOh!*RtLCnOA'_3XM(IPM)^
*C3?;*(oTuivP*J\/cdcuiaM*02&;g@uDLz+5gLz+cG$5EU<nzz,R|EoSo*l16A"4'2K'M\s_OTh6{
+&4"6R+u}gV$P:-jZdK__d197s%9OR61HhB(wPa'RH)a4N="U>hQWtj|6e6F\l8sj%@uNg&KU/")J%
,C*]PF1C^lPk}zTdMpxE*}">$W~!|?8:%uzy:9Ci8'H_|pr'{Ux'&1en:TD,[sn7ryF($W3M?Y*qJT
-3bH^,FTL[uo\a>H!Zy,ix7B3]Jj@g1uH;X>Y5z=n&/,s?]u<0{L1oylUrRBh-cg@)zVL_ip10kcGJ
/!AMTZ^u]/_63IeSEtX{tM(dK3_HpkI=QeDt/hRW?@V!mE'bJhngB_1T2j<DDN$QPj$nV+8~vl6sJx
0W'1+xDSu7Ek:;?o'/d4f"64(*dxj_/i3jjW]$ywdi@_X@Vu>(?HOe\uP0WjG]YF/!B[?l>mhH6VGA
1*(8lE|g%"]8,[|5_=Ne(A4z/uS@<Tq*kc1~C4Ol}ZDenA50%sD-1E'gbQFb_AFAXrgeQ7vZzCq3KF
2?L\Ty:*B>8Bgwm&U<x6afGZx~p/x'ls}gb}I[8HAoV-$rO^*:r'rIyUU:/"/|LNUMWdzolb)8)93k
3/35jtP[d[(\>8%3eg!uV5NQ4*fC{4d1YJF1M}X>lkM-gQ{S/r/@LRh5[U}9ZL>elh=mw|{I{D(<*V

4ORF0~]IHF8vt4j+NOM,=|1H:pQOCtwoNeNz_h9{x0wY"<x3_!3ZU@ZN2vN=tM)BS@SC=<FXe*OtIO
57WH8~,'z~6bp9(e'[X0uwPF/:8hqr0K"1SBd\QcxT[+EE=|;nQ2/ESI7UoA"@;7z-Shh2f7G5B21,
6_3_!TfLu:TZ"YUUEYqKBd&4+oH;CXGVM4{w,)dw_I1tn|Q~@f<ffq_q]wHKUG2go&yP^ePht(_c1W
7/ZDm&{1X27[_}Q6>}$i0R3+&r;Kp*>%3=>J>7PrHucg(\)gAt=Fa1eH<PGJjDoe[w_P'pcRPnPpJ7
8O)aFeQ)p$*niRgt>CB/aJoRs7zbR{Y$+dS&F{?mL&j/b8VWauUxDv->j\a|Udt@-;4vU^{Trj?aL[
9_W-%zB$VX,f>+\([zE&A!Y^]Z/$TqYE,oIofQBG@nF8n<lvldI|Id8RqVf1sO2{s/;H<wG4c/T--k
:OU0,FCvYM8^fQnrjtV=HckMEDp*4Fq1mrX&Y^&rG:GD6_'+3LJe\=Tv6Ko!z,@?fkBn{KWT{V,E)-
;7CWi<{|Kj^o4Bzrt{C@1gy|ROE*+2WY$6wZ${{RgWTT^?1A>d$jx=:$0}QnirHWssFnQPpi>nJ%,{
<O^0DD!y87^4,N7P/-L$([2\ui*<F&E4!tIsF)r+a421-/f-OD6uL&pat0W{8@_\n>2A$}Y/_F;/?b
=W0+{f7R[1saODJ_l2^bzrD74sdkJdO<A@xQ'1?t,]]ZVE6J5VpsjQoUhW{1yEdJ69{+j<Gtr7C@Mq
>_R]V8OY|m6vy2,mXS(7f_qEkLt6\w-zzez&Y-X8ytu9CgF+O<8~G;y]qCGUYL='dHW~5Sd{owWo$a
?7)NZSI+e>L"rVOi1f2@,R|yT|JwglQ*hoE3;h*_&=Ph4@*W"NE^40$zi>E=f+j@MOMSG2fdNpaJ:)
@;Z9GV3B1'}>kvxqj"9Ey8l'f~rFR!3$JATZyhx1xD|1{3DW[!tl/e{<N]gT'*!Z,vV(zaovAuHGID
A!"@|r/-UV$lF{UYC??+SWZ>>JV-N0P&-Bn27G5U74X]H6?qk4)ZME||(2}!B*Db&_9/fS3Aq4o[J3
B76+BM(_?|kn[-kzevHlw~9PkZLn5L1BhQR79s*_&=Ph4@*W"NE^40'H]7-'pKg0Z5Zne)*sfk*=-s
C/bZ;sa^t-e6wMwq[0O8pb}h}t(|gGN/Dbo1;)i[8ixyuxD;^>uwc-%,]]r$>{,jg(i+(}=E7~8<F5
D_=_E2Z}0b2reF[xiCtQtq;qA1z'oZHw[64+fVm/J{j]u7!j{/5@O=;2wb$yClkHl$ym_*lxyM:~(p
ECHGDfq^y*f+iD;{m|s>s:1I9CL<yy31rhK-$jRw!W!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!U]%U
aG'2tCxfSSd}GxnhT)&MS?@8D$oE$slo&LeMl~D~{j[M;RkJs>Jj75jXF|SkNI4$/:DxKXF3:W'=(~
c!BE|C^zn?LEKaQ(Ql,HxeNJ_mBV!9qF^m([:?4RW]8Amu29z67k%M|>-AhqUvX74^LrbW[J*mL3Ap
--- KENSYO~1.LZH (41/41) ---

うざいぐらいレスしてしまってすいません。
上のファイルの場合、県名を入力すると色を表示するようにしているのですが、

銀色 神奈川県
灰色 岐阜県
山吹色 京都府
段ボール色 群馬県
リンゴ色 埼玉県
うんこ色 滋賀県

神奈川県が銀にならないといけないのにうんこになってしまいますし、
岐阜県が、N/A表示になってしまいます。

>>616
自己解決したようだけど一応書いとく
その場合、住所（検査値）を昇順に並べ替えておく必要がある

データの入力されている範囲を選択して
　データ → 並べ替え → 並べ替えで優先されるキーを住所の列にする → 昇順を選択 → OK

>>617
いえ、解決してないんです。
並べ替えて、>>616の状態です。

手間かけて申し訳ないんですが、>>614-615のファイルを誰か開いて確認してみては
もらえないでしょうか？

>>618
いや・・・だから

＞データの入力されている範囲を選択して
＞データ → 並べ替え → 並べ替えで優先されるキーを住所の列にする → 昇順を選択 → OK

これやれよ

>>614-615のファイルを開け　　て言うけど、どうやってそれをこちらが開くの？
どっかのうｐろだにアップされたって告知もないのに。

ﾊﾞﾛｽw

>>614->>615ってファイルなの？
変な文字列がドバーッと表示されてるのは俺だけ？

全世界でオマイだけ






























な筈ないだろw

610にしてみれば、ファイルなんでしょ。俺には開けないけど。

lzhファイルを強引にテキストで開いたような文字列だな(ｗ

なつかしーなバイナリをアスキー化してうｐするの。
どうやって復元するのかぜんぜん思い出せないわｗ

たんに610の釣りでしょ
ほっとけばいいよ

　　　　　　　　　　　　　　　　610(笑)



　　　　　　　　　　　　　　　　　

お前ら、自分のわからないことを知ってる質問者にはえらく攻めるな。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 エクセル データがない場合空白を返す
流れをぶった切って初歩的な質問で申し訳ないんですが、ｸﾞｸﾞっても初歩的すぎて出てこないようなので・・・

Sheet2のA1に「=Sheet1!B5*0.001」と入力した際に
Sheet1!B5にデータが入って無くても「0.000」と表示されてしまいます。

これをSheet1!B5にデータが無い場合はSheet2のA1に
ナニも表示させないようにするにはどうしたらよいのでしょうか？

>>630
=if(Sheet1!B5="","",Sheet1!B5*0.001)
これでどうでしょう

>>631
あっさり出来ましたー有り難うございます。
これからはifとかもちゃんと勉強していきます。

>>627-628
ishも知らん奴等が逆ギレか…
魚を親に毟ってもらわないと食べれらないガキそのものだな。
ま、時代の流れで無理もないがね。

>>633
デコードまでこっちにやらせるのか？いくらなんでもそれは手間かけさせ過ぎだろ。
610がどっかろだに上げれば、良いだけの話だ。

>>604さん、上手くいきました！ありがとうございます！
面倒な手動での作業から解放されました！

質問です。

Excel2003なんですが、
起動すると入力モードは半角ですよね。

そこで、キーボードの「A」を押下すると、
今までは「a」が入力されていたんですが、
いつの間にか半角の「チ」が入力されるようになってしまいました。

何が原因かわかる方いますか？

>>636
Excelの問題じゃない。
http://www.google.co.jp/search?hl=ja&ie=Shift_JIS&q=%83%4A%83%69+IME&num=50

単純に、変数aaにworksheets("abc")の現在行を代入したいのですが、うまくいきません。
aa=worksheets("abc").rowのような感じかと思っていたら、全く出来ませんので、教えてください。

>>637
６３６じゃないけどサンクス！俺も時々「？」だったよ。

>>638
現在行って何？

アクティブセルの行番号のこと？
それとも非アクティブシートの選択セルの行番号？
はたまた表示領域の上端の行番号？

俺用語ではなくちゃんと書いてよ

アクティブセルの行番号です。
よろしく、お願いします。

>>641
aa = ActiveCell.Row

>>640
そういう時は逆に、消費レス数を考えて、思いついたのの全部の答えを書くもんだぜ？

>>640 >>642
サンクス。

>>642
で？

>>642じゃないけど、答えじゃないのに無駄レスすんなって事じゃねーのｗ

>>633
ish…いやマジで知らんかったです。今日2ch見てて一番の収穫でしたw.

>>645
2chでそんなこと言っちゃう恥ずかしい子はさすがに居ないだろw

だまってろカスブタ

（　ﾟдﾟ）ﾎﾟｶｰﾝ

>>640 >>642
折れにとって、ｅｘｃｅｌ総合相談所は２ちゃんの最大のお気に入り。
折れは、ほとんど、質問をする方で来るが、エクセルに関するどんなレスも意外なものがある。
質問者も、回答者も、いろんなレベルの人がいるわけで、いろんな人のいろんな回答を皆が認めているのがいいところ。

折れにとって、ｃｈｏｏｓｅ関数の使い方は端から見ていてだが、とても勉強になったよ。

このスレで勉強って・・・
どんだけー低脳なんだよw

この流れﾜﾛﾀ

【1 OSの種類 　 　 　 　 .】 WindowsXPPRO
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】リソース不足　VBA

自作のマクロを実行するとリソース不足で実行できません
というようなエラーメッセージが出ます。どうすれば出なくなるでしょうか。
（多くのシートにたくさんデータが入っているのでそのせいかと思えるのですが）

質問です。

例えばセルＡ1に1、Ａ2に2
とやって、Ａ1とＡ2を選択して
Ａ2の右下角をクリックして
下にやるとＡ3＝3、Ａ4＝4、Ａ5＝5・・・・・・
ってなるじゃないですか。

例えばＡ60000までやりたい時
効率的に早くできるやり方ありますか？

６５４さん　ＶＢＡつかいなさい。

ヤダ

>>654
右ドラッグで適当な所までドラッグ(60000以上)
連続データ
停止数60000でどうでしょう

655は僕ではありません

>>657

そのドラッグに時間がかかるんですよ。
60000までやるのに二分くらいかかります。

ＶＢＡって無料ですか？
そもそもＶＢＡって何ですか？

↑
655は僕では・・・→656は・・・

ググレカスさんの登場です

こんなクソスレで聞かないで他いった方がいいよ

お願いします。
今すぐ知りたいので。
すいません。
ＶＢＡではありませんよ。
速いやり方です。

>>662
だから他に行った方がいいよ
つうか、そんな事書いている間にドラッグすればいいじゃん

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 Excel 空白行　挿入　VBA

Excelのデータを元にWordへ差込印刷を行いたいと思っています。
Excelの元データはこんな感じ↓
番号　住所　　　　名前　　　持参品
001　　●●　　　　△△　　　　□□
001　　●●　　　　△△　　　　××
002　　●▲　　　　□×　　　　▲×
003　　■■　　　　◎◎　　　　×○
003　　■■　　　　◎◎　　　　○○
003　　■■　　　　◎◎　　　　●○

Wordの様式はこんな感じ↓
<<住所>> <<名前>>　様
あなたの持参品は
　　<<持参品>>
　　<<持参品>>
　　<<持参品>>
です。

番号毎のデータは1〜30行程あり、Wordで１ページに差し込む上限は7行です。
番号毎に印刷したいので、Excelのデータの方で空白行を挿入することで調整しようと思うのですが、
空白行＋データ行=8行になるように空白行を挿入できる方法はありますか？
　（例えば、番号001のデータの後には6行、002の後には7行、003の後には5行空白行を挿入、
　　データが7行以上の場合は7行毎に空白行）
データが膨大なため、手作業が厳しい状態です。
よろしくお願いします。

ふぁ〜ぁ
さてそろそろ寝るか

A2に=A1+1と入力
これをコピー
次に名前ボックスにA60000と入力しエンター
シフト＋コントロール＋ホームキーを押してから貼り付け
A1に1を入力

>>662
１．A列の左側に列を挿入
２．A1からA60000までダミーのデータを入力する
３．B1とB2を選択してB2の右下をダブルクリック
４．A列を削除

これでどうでしょう。

662宛てです

みんなまじめだね
俺も一案

>>662
名前BOX（右上のセル番が入っている所な）にA1:A60000と入力
A1:A60000が選択された状態になるから
=ROW()
と入力してCtrlを押しながら確定

>>exc

1がまずわかりません。
Ａ列の左側ってセルないんですけど。

2もわかりません。ダミーのデータって
任意の値ですか？
ちなみに関数式をドラッグしたいんですけど。
Ａ1＝1Ａ＝2ってのは例えです。

>>580、>>581
遅くなりましたが、レスありがとうございました。
管理方法など含めて時間をかけてゆっくり考えていこうと思います。

>>670
＞ちなみに関数式をドラッグしたい

それを先に言え！カス！！

名前BOX（右上のセル番が入っている所）にA1:A60000と入力
A1:A60000が選択された状態になるから
作った関数式を入れてCtrlを押しながらEnter（確定）

>>670

>Ａ列の左側ってセルないんですけど。

セルを挿入しましょう。やり方は「A列を選択して挿入メニューのセルを選択」で

>2もわかりません。ダミーのデータって
>任意の値ですか？

そうです。

>ちなみに関数式をドラッグしたいんですけど。
>Ａ1＝1Ａ＝2ってのは例えです。

これはよくわからないですね。

トライしてますがうまくいきません。
まず右上のセルの名前のところって
左上にあるんですけど。（僕は2003使ってます。）

Ａ1：Ａ60000と入力して
関数式の欄をクリックすると名前欄がＡ1に戻ってしまいます。
（ちなみにＡ1の関数式の欄には関数式がすでに書いてあります。）


関数式→=IF(Q14="ＡＢＣ",M14-10,"")

×右上
〇左上

すいません。厳密に言うと
Ｗ13からＷ60000まで一括で入力したいんです。


式はIF(Q13="ＡＢＣ",M13-10,"")

何度も訂正してすいません。

>>674
＞関数式の欄をクリックすると名前欄がＡ1に戻ってしまいます。
これは正解（そうなってもいい）

コピー範囲は本当にA1:A60000でいいのか？
とりあえずA1:A60000だとしたらA1に入れるべき式を入力してCtrl+Enterだよ

どうもA14:A60000ぽいな。
だとしたら、名前BOXにはA14:A60000とも入力して
=IF(Q14="ＡＢＣ",M14-10,"")
をCtrl+Enterで確定するんだよ

>>676
最初から厳密に書け、ボケ

それならば
名前boxに「W13:W60000」といれて=IF(Q13="ＡＢＣ",M13-10,"")をCtrl+Enterで確定

うまくいかないいいいいいいいいいいいいいいいいいいいい

手順通りやってますが・・・
成功すればＷ14にもＷ15にも
関数式が出てますよね？
空白なんですけど・・・

>>679
名前ボックスにW13:W60000　と入れてからエンターを押して確定していますか？

Ｗ13の関数式欄に=IF(Q13="ＡＢＣ",M13-10,"")　があります。
要はこの式をＷ60000までひっぱりたいわけです。
結果当然Ｗ14もＷ15も関数式は微妙に変化しますよね？（そうでないと困るんです。）

僕の手順が間違ってるのか？
Ｗ14もＷ15も空白です。
Ｗ13：Ｗ50でやっても空白でした。
成功すればＷ13からＷ50まで
それぞれ微妙に違った関数式が出てますよね？

>>680
確定してませんでしたＷＷＷＷＷＷＷＷＷＷＷＷＷＷＷ

みなさん解決しましたＷＷＷＷＷＷＷＷＷＷＷＷ
ほんとこんな馬鹿者に付き合ってくれてありがとうございました！

みなさん本当に感謝してます。

>>679
選択範囲を解除するような動きしちゃダメだよ

関数式は直接、数式バーに入力した方がいい


>>680
フォローサンクス！

>>682
アホｗ

まあ、でも解決してよかった




やっと寝れる…

672さんも丁寧な解説ありがとうございました！！！

WinXPでエクセルを導入したく、Officeを検討しています。
最も無難なバージョンを教えて下さい。

2003

>687

賛成。

2003も、先日SP3という地雷があったけどな。
でもまあ回避方法はあるからいいか。
次点は2000かな。

>>687-689
2003が良いようですね。参考になりました。
皆様、レスありがとうございました。

大多数のまともな回答者の皆様は、ごくろうさまです。

本日も勘違い回答者、高飛車回答者、高圧的回答者、自己満足回答者、
ストレス発散目的の回答者、優越感目的の回答者に制裁を下します

ニャハハハハ

あらあら
ここはいつからガキの溜まり場になったんだ

協力して下さった皆さん、遅レスすみません。
ただ、未だ問題は解決していません…

>>525
保存場所はローカルで、マクロの記録はありません。
新規ブック作成後、シートのコピー→ローカル保存→内容変更→保存→更新されず

>>528
ディレクトリは同じです。

>>529
計算式は保存されています。
どうやら文字情報は記録されるみたいです。

>>530
「.csv」ではねぇ！

>>531
そのようなマクロの存在は確認できませんでした。
(マクロは一つも設定されていません)

>>536
色だけではないので、上手くいきませんでした。



また今週が憂鬱です。

>694

あなたが何か勘違いしてないのであればファイル名やシート名に
特定の文字とかの特殊なバグかもしれん。

具体的なファイル名やPATHを教えてくれれば分かるかもしれない
が、こんなところでは出せないし、出さない方がいいだろう。
他所（ttp://www.kenzo30.com/bbs/situmon.htm）とかで専門家
に聞いた方がいいと思います。

>>694
personal.xlsは？

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel 2003
【3 VBAが使えるか　 　 .】 いいえ

ＡＭ列の計算式（行のタイトル：２００３　１回目）
=IF(OR($AK2="20031",$AL2="20031"),"機能",IF(OR($AK2="20031H",$AL2="20031H"),"放出",""))

ＡＮ列の計算式（行のタイトル：２００３　２回目）
=IF(OR($AK2="20032",$AL2="20032"),"機能",IF(OR($AK2="20032H",$AL2="20032H"),"放出",""))
　　　　　・
　　　　　・
　　　　　・
ＡＵ列の計算式（行のタイトル：２００７　１回目）
=IF(OR($AK2="20071",$AL2="20071"),"機能",IF(OR($AK2="20071H",$AL2="20071H"),"放出",""))

ＡＶ列の計算式（行のタイトル：２００７　２回目）
=IF(OR($AK2="20072",$AL2="20072"),"機能",IF(OR($AK2="20072H",$AL2="20072H"),"放出",""))

こんな計算式でＡＭ列〜ＡＶ列のセルに「機能」、「放出」、「（からっぽ）」のどれかを表示させたいのですが
ＡＵ列とＡＶ列だけ「機能」を表示してくれません（「放出」は表示される）。
同じことをマクロが分かる人がマクロで作った物でも同様でした。
これってソフトのバグか何かなんでしょうか？

もしAK2とAL2が計算式だったりするのなら、直接数値で書いてみてどうなるか

＞697
20071と20072が数値になってるんじゃなかろうか？。
僕のは同じ数式で要求どおりの動きをしました。

>697

ちゃんと"機能","放出",""は出る。
実際の数式と>697のどこかが違っている･･･ハズ。

>699

多分それだろうね。
数式をOR($AK2=20071,$AL2=20071)にするかAK/ALの書式を見時列にして再確定してみ

×見時列
○文字列

再確定を忘れずに。

質問じゃないんですが誰かこの中でエクセル1000円ぐらいで売ってくれる人いますか？
できれば2003か2007で宜しくお願いします

今使ってる奴のコピーで結構です
ただし海賊版は困ります
送料入れても大変お得かと思われますのでご一考下さいませ

>>703-704
コピーで結構なのに海賊版は困るとか意味不明なこと言う前にまともな店行って買ってこい。
それに最低でも1000万円くらい貰わないとコピーを売る側にはリスクに見合うお得感はないぞ。

最近荒らしが増えたと思ったら、とうとうこんなゴキブリまで現れたかｗ

20071と20072だけ後ろにスペースが入ってました。

aho

ufo

通報されたい人がいるみたいね

大多数のまともな回答者の皆様は、ごくろうさまです。

本日も勘違い回答者、高飛車回答者、高圧的回答者、自己満足回答者、
ストレス発散目的の回答者、優越感目的の回答者に制裁を下します

げはははは

スレが落ち着くまでMultiplanの相談受付中

すいません、Excelでデータを入力後保存をしようと思ったら、
1人で使っていたにも関わらず共有違反がどうこうと警告が出て保存できませんでした。
しかし、その後一時キャッシュを保存するかどうかポップアップが出て、とりあえず、
指示どうり保存してみたら、Excelファイルと同名の拡張子がわからないファイルができました。
取り合えず、出来たExcelファイルを開いて見たら、データがすべて入っていたのでこちらのファイルに別名で
保存されたようです。
そこで、質問ですが、
新しくこの別名でできたファイルを、本来このデータが入っているべきファイルに上書きするか、このファイル自体の
名前を変更しようと思っていますが大丈夫でしょうか？
もう一つ特にこちらが心配なんですが、このExcelファイルと一緒に出来た同名の拡張子が不明のファイルは削除してしてしまっても問題ないんでしょうか？
もしそこにデータが入っていて、そのファイルを消したら、新しく出来た同名のExcelファイルの中身が全部消えてしまったら怖いので、
削除できずにいます。
どうかアドバイスをお願いします。

>>714
＞新しくこの別名でできたファイルを、本来このデータが入っているべきファイルに上書きするか、このファイル自体の
＞名前を変更しようと思っていますが大丈夫でしょうか？

問題ない。つーか、別の所にコピー（バックアップ）しておいて、やってみればいいんじゃね？
ダメなら戻せばいいし。やってみることが出来る事象は質問する必要なし。強くなれ。

＞もう一つ特にこちらが心配なんですが、このExcelファイルと一緒に出来た同名の拡張子が不明のファイルは削除してしてしまっても問題ないんでしょうか？
＞もしそこにデータが入っていて、そのファイルを消したら、新しく出来た同名のExcelファイルの中身が全部消えてしまったら怖いので、
＞削除できずにいます。

保存中に出来た中間ファイルみたいなものと予想。
ものによって、「.xls」の拡張子をつけると同じものが開ける場合があるので、やってみて。
基本的にExcelは複数ファイルが連動するなんてないと思うので、それ単体を消す事は問題ないハズ。
これも、別の所にバックアップを取って消すとか、試せるよね。色々頑張れ。

>>715
レスありがとうございます。
新しく入った派遣先でデータの入力を頼まれたんですが、
すべて完了し、保存しようと思ったら上記のような状態になって焦ってしまいました。
下手な事をしてファイル自体を紛失したら大変な事になると思って、現状維持しておきました。
取り合えず、新しく出来た（データがすべて入っている）ファイルの名前を元ファイルの名前に変更し、
元ファイルと同名で出来た不明のファイルは削除します。
助かりました。
後で、元々あるファイルを開いて、データを入れるだけなのに、なぜこんなに無駄なファイルを作ってるんだと
おこられそうで心配でした。
お陰で安心して、無駄なファイルを削除できます。

エクセル２００３で
既存のマクロの名前を変更するにはどうすればいいのだろうか？
名前がマクロ１、マクロ２・・・という感じで見にくくなったきたorz

環境 Office2000 SR-1

エクセルの表をパワーポイントに貼りプレビューすると
エクセルのセルがそのまんま表示されてしまい
困っております
消す方法を教えてください

>>717
ブック開いたまま、Alt+F11押すと良いことあるかも

>>718
一旦ペイントに貼り付けると良いことあるかも

>>716

仕事なのに怒られそうで心配だから2chで聞くって･･･
お前は本当に社会人なのかと。

>>718
一時的に、ツール→オプション→表示タブでウィンドウオプションの中の枠線をOFFしとけばいいんじゃね？

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否？
【5 検索キーワード 　 　 】Excel 自動挿入　計算　関数

収入、支出の計算書で項目を増やしたいのですが
やりかたが分からなくて困ってます。

一つのエクセルファイル内にシートが何枚かあって、
「コード表」（雑費は16、広告費は14、等々）の分類どおりに、
「支出」に追加していくと（2,000円　コードは16）、
「収支予算書」に反映される仕組みになっています。

新しい分類のコードを追加して（交際費　31　←既存には存在しない）
そのコードを使って「支出」シートにデータを追加したら、
収支予算書の追加した項目に反映させたいのですが、
検索しながらいろいろ見てもやり方が分かりません。

外見だけ整えても反映はされませんでした。

うまく問題が伝わってるかあやしいですが、
解決のヒントでも教授ください。

>>722
とりあえず今のブックをうp

>722

「収支予算書」でコードに対応した項目が表示されているセルの
数式をupしてください。

ブック自体のUP…しちゃっていいか分からないので最後の手段で。

とりあえず「収支予算書」「収支計算書」内で、
「コード表」によると31番の分類の「支出」合計が反映されてるはずの部分数式
↓

=SUMIF(支出の部!E3:E201,31,支出の部!D3:D201)

ブック出せないなら､小出しな情報でゴタゴタしそうだから漏れはパス

>725

正常に反映されている部分の数式も教えてください。

正常に反映されてる部分のつもりだったのですが…

http://kjm.kir.jp/pc/

↑にUP　44075　JPGと拡張子変えてますがZipです

失礼しました。うまく落とせないみたいです。
再UP
http://up-sv.ath.cx/up/1/upup2.html
1132.zip

>729

例えば雑費の16など、正常に反映されている部分の数式だけでOK。
ファイルを貰って開くほど他人を信用してませんのでファイルはいらん。

「コード表」（なんたら…は自分が追加した部分）
3 同窓会入会式関連費用
0 入会式費用なんたら 30
1 開催費用負担金 31
2 祝賀パーティー補助 32

「支出の部」（なにか…は反映のテストをしようとしたもの）
１９．８．３ ホームページ作成費(支払手数料=企業処理） 233,100 61
１９．８．２０ USBメモリー代 3,860 67
19.8.21 なにか 5,000 31

「収支計算書」（数字は予算ー反映されたものー予算と使ったものの差）
開催費用負担金 520,000 451,000 69,000
祝賀パーティー補助 170,000 152,541 17,459

この開催費用負担金はコード31に対応してるはずで、451000の部分の数式が
=SUMIF(支出の部!E3:E201,31,支出の部!D3:D201)

こんな感じです。

>>724氏
申し訳ありません。いろいろいじっていたら今追加したコードが
ちゃんと反映されました。

お手数かけました。ありがとうございました。

う

ん

ち

すまんが、教えてくれ。
=index(範囲,行,列) 等の列表示を具体的列番号（5とか等）でなく、列挿入しても変わるように（いちいち修正しなくていいように）するにはどうしたらいいですか。
E:Eでやってみたら、データが異なってしまいました。

列の位置を示す式をつくって、その式（またはその式を指す名前)をつかう。
E列の場合は　=COLUMN(E1)　とかしておいてこの式を使うようにすれば、A-D列に列が挿入されてもおｋ

>>737
ありがとう。
=column()も、やっていたが、えへへwww。使い方が間違っていたw

j

a

v

a

n

なんで誰も質問しねえんだよ！
さっきからずっと張り付いて待ってやってんのによ
イライライライライライライライラ

　　　　　　　　　　　　　　　　　　　　　　＿ ／-　イ､_
　　　　　　　　　　 ＿＿　　　　　 　　／: : : : : : : : : : : (
　　　　　　　　　 〈〈〈〈　ヽ　　　　　/: : : : ::;:;: ;: ;:;: ; : : : ::ゝ
　　　　　　　　　　〈⊃　　}　　　　　{:: : : :ノ　--‐'　､_＼: : ::｝
　　 ∩＿＿＿∩　 |　　 |　　　　　 {:: : :ノ ,_;:;:;ノ､ ェｪ ヾ: :::}　　
　　 | ノ　　　　　 ヽ !　　 !　　　、　　ｌ: :ﾉ　／二―-､　|: ::ﾉ
　　/　　●　　　● |　　/　　　，,･_　　|　/／　 ￣7/ /::ノ
　 |　　　　( _●_)　 ミ／　, ’,∴ ･　¨　 〉(_二─-┘{／
　彡､　　　|∪|　　／　　､･∵ ’　　／､／/|　￣￣ヽ
/　＿＿　 ヽノ　/　　　　　　　　 ／　　 //　|／／＼ 〉
(＿＿＿）　　　/　　　　　　　 　/　　　 //　　 /＼ ／
オラァ!

　　　　　　　　　　　　　　 ＿＿
　　　　　　　　　　　　　 〈〈〈〈　ヽ
　　　　　＿ ／-　イ､_ 　〈⊃　　}　　　
　　　／: : : : : : : : : : : ( 　 |　　 |　　　　　　　 ∩＿＿＿∩
　　/: : : : ::;:;: ;: ;:;: ; : : : ::ゝ !　　 !　　　　　　　 | ノ --‐'　 ､_＼
　　{:: : :ノ ,_;:;:;ノ､ ェｪ ヾ: :::} 　　/　　　、　　 /　,_;:;:;ノ､　　● |　　
　　　ｌ: :ﾉ　／二―-､　|: ::ﾉ ／　, 　　，,･_　 |　　　　( _●_)　 ミ
　　　　|　/／　 ￣7/ /::ノ　　　　, ’,∴ ･　¨彡､　　　|∪|　　ミ
　　¨　 〉(_二─-┘{／　　　　　､･∵ ’　　／　　　 　ヽノ￣ヽ
　　/　＿＿ヽ￣￣　/　　　　　　　　　 ／　　　　　　　／＼ 〉　　　
　　(＿＿＿）　　　/　　　　　　　　 　/　　　　　　　 /　　　
ざけんなテメェ

　　　　　　　　　　　　　　　　　　　　　　＿ ／-　イ､_
　　　　　　　　　　 ＿＿　　　　　 　　／: : : : : : : : : : : (
　　　　　　　　　 〈〈〈〈　ヽ　　　　　/: : : : ::;:;: ;: ;:;: ; : : : ::ゝ
　　　　　　　　　　〈⊃　　}　　　　　{:: : : :ノ　--‐'　､_＼: : ::｝
　　 ∩＿＿＿∩　 |　　 |　　　　　 {:: : :ノ ,_;:;:;ノ､ ェｪ ヾ: :::}　　
　　 | ノ　　　　／ ヽ !　　 !　　　、　　ｌ: :ﾉ　／二―-､　|: ::ﾉ
　　/,_;:;:;ノ　　　● |　　/　　　，,･_　　|　/／　 ￣7/ /::ノ
　 |　　　　( _●_)　 ミ／　, ’,∴ ･　¨　 〉(_二─-┘{／
　彡､　　　|∪|　　／　　､･∵ ’　　／､／/|　￣￣ヽ
/　＿＿　 ヽノ　/　　　　　　　　 ／　　 //　|／／＼ 〉
(＿＿＿）　　　/　　　　　　　 　/　　　 //　　 /＼ ／
くらえ！能無し

　　　　　＿ ／-　イ､_ 　　　
　　　／: : : : : : : : : : : ( 　 　　l⌒)OOo　　　　　　　 ∩＿＿＿∩
　　/: : : : ::;:;: ;: ;:;: ; : : : ::ゝ 　 {　　）　 )　　　　　　　 | ノ --‐'　 ､_＼
　　{:: : :ノ ,_;:;:;ノ､ ェｪ ヾ: :::} ..｜　::::::/　　　　　　　 /　,_;:;:;ノ､　　● |　　
　　　ｌ: :ﾉ　／二―-､　|: ::ﾉ　/　　::::|　, 　　，,･_　 |　　　　( _●_)　 ミ　･∵ ’
　　　　|　/／　 ￣7/ /::ノ　/　　　　）　, ’,∴ ･　¨彡､　　　|∪|　　ミ　　,∴､･∵
　　¨　 〉(_二─-┘{／　　/　　 /￣.　､･∵ ’　　／　　　 　ヽノ￣ヽ
　　/　＿＿ヽ￣￣　/　../　　../　　　　　　　 ／　　　　　　　／＼ 〉　　　
　　(＿＿＿）　　　　/../　　. /　　　　　　 　/　　　　　　　 /　　　
テメェの事だろタコ

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 　　 　 　 　| | | |
　　　　　　　　　　　　　　　　　　　　　　　　　＿ ／-　イ､_　　　　　 |_|_|_|_
　　　　　　　　　　　　　　　　　　　　　　　 ／: : : : : : : : : : : (　　　　/　〉〉〉〉
　　　　　　　　　　　　 　l⌒)OOo　　　　/: : : : ::;:;: ;: ;:;: ; : : : ::ゝ　　{　　⊂〉
　　 ∩＿＿＿∩　　 　{　　）　 )　　　　{:: : : :ノ　--‐'　､_＼: : ::｝　 |　　 |　 ∩＿＿＿∩
　　 | ノ　　　　　 ヽ　　｜　::::::/　　　　　{:: : :ノ ,_;:;:;ノ ////ヾ: :::}　 l　　 l /　　　　　　ヽ |
　　/　　●　　　● |　 /　　::::|　　　、　　ｌ: :ﾉ　／二―-､　|: ::ﾉ　　ヽ　　| ●　　　●　　ヽ
　 |　　　　( _●_)　 ミ/　　　　）　　，,･_　　|　/／　 ￣7/ /::ノ　.・,，; ＼彡　(_●_ )　　　　|
　彡､　　　|∪|　　　/　　 /￣, ’,∴ ･　¨ 　 〉(_二─-┘{／　∴ ;・, ;　　＼　　|∪|　　　　ミ
/　＿＿　 ヽノ　　/　　　/　　､･∵ ’　　 ／､／/|　￣￣ヽ　　､;:，・　　　　ヽ. ヽノ＿＿＿　ヽ
(＿＿＿）　　　 /　　　 /　　　　　　　 ／　　 //　|／／＼ 〉　　　　　　　　　ヽ　（＿＿＿＿_)
残像拳！

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　＿ ／-　イ､_
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　／: : : : : : : : : : : (
　　　　　　　　　　　　 　l⌒)OOol⌒)OOo　　　　　　/: : : : ::;:;: ;: ;:;: ; : : : ::ゝ
　　 ∩＿＿＿∩　　 　{　　）　 ){　　）　 )　　　　　　{:: : :ノ ,_;:;:;ノ､ ェｪ ヾ: :::}
　　 | ノ　　　　／ヽ　　｜　::::::/｜　::::::/　　　 　　　 ｌ: :ﾉ　／二―-､　|: ::ﾉ　　ｶﾞﾊ！
　　/,_;:;:;ノ　　　● |　 /　　::::|　/　　::::|　　　　　　　　　|　/／　 ￣7/ /::ノ
　 |　　　　( _●_)　 ミ/　　　　）/　　　　）　，,･_　　　 　　 〉(_二─-┘{／
　彡､　　　|∪|　　　/　　 /￣/　　 / ’,∴ ･　¨ 　　　　／､／/|　￣￣ヽ
/　＿＿　 ヽノ　　/　　　/　/　　　/　､･∵ ’　　　　　／　　 //　|／／＼ 〉
(＿＿＿）　　　 /　　　 /　/　　　 /　　　　　　　　　/　　　 //　　 /＼ ／
これで地獄へ落ちな

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 ∩＿＿＿∩
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 | ノ＿＿△＿ ヽ 　　　　　　　　　　　　　　　　　　
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　/　　〇　　　〇 |　 　　　　　　　　　　　　　　　　　　
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 |　　　　( _○_)　 ミ
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　彡､　　　|∪|　　､｀＼
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　/　＿＿　 ヽノ　/´>　 )
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　(＿＿＿）　　　/　(_／
　　　　　　　　　　　　　　＿＿ 　　　　　　　　　　　　　　＼　　　　 /
　　　　　　　　　　　　　 〈〈〈〈　ヽ　　　　　　　　　　　　
　　　　　＿ ／-　イ､_ 　〈⊃　　}　　　　　　　　　　／／／／／／
　　　／: : : : : : : : : : : ( 　 |　　 |　　　　　　　 ∩＿＿＿∩ 　
　　/: : : : ::;:;: ;: ;:;: ; : : : ::ゝ !　　 !　　　　　　　 | ノ --‐'　 ､_＼
　　{:: : :ノ ,_;:;:;ノ､ ェｪ ヾ: :::} 　　/　　　、　　 /　,_;:;:;ノ､　　○ |　　
　　　ｌ: :ﾉ　／二―-､　|: ::ﾉ ／　, 　　，,･_　 |　　　　( _●_)　 ミ
　　　　|　/／　 ￣7/ /::ノ　　　　, ’,∴ ･　¨彡､　　　|∪|　　ミ
　　¨　 〉(_二─-┘{／　　　　　､･∵ ’　　／　　　 　ヽノ￣ヽ
　　/　＿＿ヽ￣￣　/　　　　　　　　　 ／　　　　　　　／＼ 〉　　　
　　(＿＿＿）　　　/　　　　　　　　 　/　　　　　　　 /　　
会心の一撃ぃ！

うぜえよ

うぜえよ

うぜえよ

ゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラ
ゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラ
ゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラ
ゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラ
ゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラ
ゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラ
ゲラゲラゲラゲラゲラゲラゲラゲラゲＷＷラゲラゲラゲラゲラゲラゲラゲラゲラ
ゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラ
ゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラ
ゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラ
ゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラ
ゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラ
ゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラゲラ

うぜえよ

おっ！いい感じになってきたなwww

うぜえよ

■■■■■■■■■■■■■■■■■
大多数のまともな回答者の皆様は、ごくろうさまです。

本日も勘違い回答者、高飛車回答者、高圧的回答者、自己満足回答者、
ストレス発散目的の回答者、優越感目的の回答者に制裁を下します
■■■■■■■■■■■■■■■■■

ゲハッハハハハハ

どこどこだ馬鹿は？＞？

ごいあじえｊぎあえ＾＾＾＾＾＾

回答者ぶってた人必死だなｗ

うぜえよ

帝国ソフト　エクセルスレ崩壊www

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 VBAが理解できないので、もし使わないで済む方法があれば
　　　　　　　　　　　　　　それを教えていただきたいです
【5 検索キーワード 　 　 】 計算結果、計算式、参照、セル内容、引用、途中

あるセルに表示された値を用いて計算式を立て、
その結果をもとに参照するセルを決定し、
さらにその値を用いて計算したいのですがどのようにすればよろしいでしょうか。

具体的には、例えばA3に｢217｣という計算結果が表示されているとき、
B行の（A3*3+124）列の数値(=B775)を使って
sum(B3:B775)/B775といった計算式を立て、
それをC11に表示したい、というような作業なのですが。
よろしくお願いいたします。

（また、すみませんが、上とは別にエクセルの使い方に関して質問があります。
あまりに初歩的すぎるせいか手持ちの入門書にも解説されておらず、
検索にもうまく引っかからないので教えていただきたいのですが、
計算式中の「"」と｢&｣の意味はどういったものなのでしょうか。
こちらも、もしよかったらご教授をお願いいたします。）

>>765
ヘルプで INDIRECT関数を調べると幸せになれると思う。

「"」（ダブル・クォーテーション）は括弧と同じで二つ一組で使う。
基本は "りんご" というようにして使う
　="りんご"
これでセルに「りんご」と表示される
すなわち、ダブル・クォーテーションで挟まれた文字を「文字列」として扱うことを示す。
A1セルに「ジュース」が入力されているとして
　="りんご"&A1
では、「りんごジュース」とセルに表示される。
この「＆」（アンドパサントまたはアンド）は前後の文字列を繋ぐ記号を示す。
　="りんご"&"みかん"&"れもん"
では、「りんごみかんれもん」とセルに表示される。
　=A1&B1&C1
などといった使い方もできる
　=SUM(INDIRECT("B3:B"&A3*3+124))
といった応用も可能

=SUM(INDIRECT("B3:B"&A3*3+124))/INDIRECT("B"&A3*3+124)

お助けください

郵便番号をこれまで0123456と入力していて
書式設定のその他→郵便番号を選んで
012-3456と表示させていたのですが
これを値自体を012-3456に変更したいのですが
何か方法はありますでしょうか？
量が多いので同時に変換したいのですが・・・

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 作ってあるマクロ自体を走らせることなら可能です。
【5 検索キーワード 　 　 】 予測変換機能　ショートカット　文字　色


�@Excelでの予測変換機能

「ツール」→「オプション」→「編集」→「オートコンプリートを使用する」のチェックを外すことにより、
予測変換機能を使えなくすることは調べて分かりました。
上記、チェックを外す方法だと全てのセルに対して機能停止状態になります。
ある特定の列（例えばＡ列）のみを予測変換機能停止状態にすることは可能でしょうか？


�A文字の色を変えるショートカットキー

「文字の色を○色にする」というようなショートカットキーは存在しますでしょうか？



上記２つにおきまして、ご存知の方おりましたらご回答の方よろしくお願いします。

>768

=TEXT(元セル,"000-0000")
で一旦外に出してから、コピー→形式を選択して貼り付け→値

>769

�@�A共にマクロでしか出来ないと思われ

�@Application.EnableAutoComplete
�ASelection.Font.ColorIndex

＞７７１さん

ご回答ありがとうございます。マクロを作れる人に相談してみたいと思います。

添削希望です。ごく簡単な処理なんですが

A列に
Adam/shnauzer/Bear
Alan/Labrador/Butters
Andrey/shiba inu/Eclair
Ann/Chihuahua/Murphy
○○○/□□□/△△△
・・・・・・・・・・・・・・・
のうような文字列が入っています。
これを/で区分して文字列の切り出しをするために
次のように関数を組みました。

B列に○○○を切り出す関数。
=LEFT(A1,FIND("/",A1,1)-1)

C列に□□□を切り出す関数。
=MID(A1,FIND("/",A1,1)+1,FIND("/",A1,FIND("/",A1,1)+1)-FIND("/",A1,1)-1)

D列に△△△を切り出す関数
=RIGHT(A1,LEN(A1)-FIND("/",A1,FIND("/",A1,1)+1))

これで目的は達成されているのですが、なんかごちゃごちゃしていて自分でも
分かりにくい。もっとスマートですっきりした関数なり方法はないものでしょうか。

当方マクロは不得意。マクロをコピペしてトライしてみるくらいならなんとかというレベルです。

大量のデータを処理しようとすると再計算のときにエクセルが固まってしまいます
止むを得ないのでしょうか？
何か対処方法は無いのでしょうか？

OSの種類： WindowsXP
CPU:Pen4 2.4GH
メインメモリ:1GB
Excelのバージョン： Excel2003 SP3
Excelのデータ量:205MB
Excelの使用行数:一番多いページで4万行を超えている

>>774
ｽﾍﾟｯｸ並べられても分かる訳ﾈｪｰﾀﾞﾛwww
止む得ないと思っておけ。

>773

いくつまで横が増えるのか知らんが作業列推奨。

作業列a=MID(A1,FIND("/",A1,1)+1,n)
結果=LEFT(作業列a,FIND("/",A1,1)-1)

>>776
レスありがとうございます。例示されたのは□□□部分を切り出す分ですね。

773の関数はもともと作業列で"/"の位置を示す数値を計算した後に、関数を
一個に合成して作ったものです。

最初の質問で書くべきでしたが、作業列を使わずに一発でもっと明快な方法
は無いものかと質問しました。

>777

>776の意味が分からなかったみたいだが相手する気が失せた。

>>774
ワークシート関数でも処理が早いものと遅いものがあるので、調べたまえ。
http://www.google.co.jp/search?num=50&hl=ja&inlang=ja&ie=Shift_JIS&q=excel+%83p%83t%83H%81%5B%83%7D%83%93%83X&lr=

沢山のシートがあり、その列幅などの書式の変更を
いっきに全シートに適用させる方法はないでしょうか？　同一ブックです。

>>780
CtrlやShiftを押しながら対象としたい複数シートを選択してから
書式設定すりゃ、同じセル番地に書式が摘要されるよ。

>>775
同じ計算式でも少量のデータなら固まらないから、スペックに関係してるのかと思いまして。。。

>>779
リンク先を見て、もしやノートンの影響ではと思いノートンを切って動かしてみましたがだめでした
なお、処理が遅くなるのではなく、再計算の途中（例えば55％）で完全に止まってしまう状態です

>>778
折角レスして頂いたのによく分かっていないようですみません。
こういうことでしょうか。

B列の関数はそのまま。
=LEFT(A1,FIND("/",A1,1)-1)
例えは空いているE列に
=MID(A1,FIND("/",A1,1)+1,n)と入力する。
C列には
LEFT(E1,FIND("/",A1,1)-1)
D列には
=MID(E1,FIND("/",E1,1)+1,n)

nはA1に入力されている最大の文字数より大きい任意の数値。

>>773
ウダウダ言ってる前に
A列を選択して、データ→区切り位置→次へで区切り文字に/を入れて完了しないのはなぜなんだ？

ピポットテーブルってどんな時に
使うものなの？

表をかんたんにいろいろなやりかたで集計したいときに使う

>>785
そういうレベルのは、さすがに質問前にマニュアル本読むか、ググれよ。

>>782
止まってるように見えて、異常に低速で計算中の場合は多いが、
それでも止まっていると言い張るのなら、止まっているのだろう。

１シートずつ、大量に数式の入っているシートだけを別のブックに移すなりして、
行数減らして計算したり、特定の数式が引っかかっている可能性も考えて
部分部分を別ブックで実行してみるなどで切り分けを行う他ないな。

つーか、別のpcでやって、同様の症状かどうか、まず見た方がいいかも。

タスクマネージャで応答なしかどうかわかるやん

低速計算中でも、20秒くらいすると応答なしの表示になる罠
お前らはまず普通のパソコンを買え

でも4万行は大杉ね？　おれのPCだと3000行超えると格段に再計算速度が落ちる
250MBもあるファイルはたぶん開くのすら無理

Excelは表計算ソフトでデータベースソフトじゃない

2007＋vistaが快適に動くスペックにすれば
100万行以上扱えるよ

行幅のダブクリ自動調整ができない
手動では調整できるんだけど・・
なぜ？

>>788
マジレス有難うございます
ノートPCでテストしてみることにします
（と言っても、もっと低速な訳ですが。。。）
それでだめなら、>>788氏の言われるとおり切り分けて使うことにします

>>その他のレスしてくれた方
レスの中に、解決のヒントがあるような気がしてきました
有難うございました

お礼が遅れてしまってすみません。
>>766さん、>>767さん、
すばやい返信ありがとうございました。
だいぶ早く、楽に作業を進めることができて助かっております。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可

ユーザーフォームのテキストボックスが1から順番にずらっとあるのですが、
これらのデータを配列変数にすべて取り込みたいと思っています。

テキストボックスの末尾の数字は途切れなく、1〜20まであり、少し面倒です。
for を使って、userform1.textbox(変数)のようにできると大変便利なのですが、そのような表記方法はあるのでしょうか？

textbox(変数)ではエラーが出てしまいます・・・。

>797

("TextBox" & i)

>>798
ありがとうございます。

つまり、userform1.("textbox" & i).value のように表記するのでしょうか。

今のところエラーが出ています・・・。

UserForm1.Controls("TextBox" & 1).Value

あとは疑似コントロール配列って手もあるよ
詳しくはググってね
> userform1.("textbox" & i).value
なんてやってる奴には理解できないとは思うけど

>799

出かけてたんでフォロー遅れた。
口は悪いが>800の通りだ。

ブックＺに、AシートとBシートがあり、BシートのB列に約１００位の品名データがあり、C列に数量をいれるのだが、売上のない品名は抜いて売上のある品名（１日１０件程度）をAシート１行に順次、品名だけセルに入力させたい。
マクロで教えてほしい。思いつきそうで全く浮かばない力量の私にわかるようにお願いします。

>802

頑張ってｴｽﾊﾟｰﾓｰﾄﾞで文章を読んだが･･･意味不明
あとマクロは無理だと思う、色んな意味で。

>>802
何がしたいのか見えてこない

>>802
とりあえずオートフィルタを試してみてはどうだろう。
もしかしたらそれだけで満足できるかもしれません。
はずしてたらごめん。

>>802
コード書くのﾏﾝﾄﾞｸｻｲので、これをマクロの記録で。

・シートBにコマンドボタンを作り、押した時イベント
・シートAをクリア
・シートBのデータが入っているB、C列を対象にオートフィルタを展開
・C列を空白以外で絞る
・データ範囲をコピーして、シートAに貼り付け
・シートBのオートフィルタを外す
・シートAをアクティブ化

すみません。エスパーモード、頼りです。次の通り、直してみましたが？

ブックＺに、AシートとBシートがあり、BシートのB列に約１００位の品名データがあり、C列に数量がいれて「ある」のだが、
売上のない品名は抜いて（飛ばして）売上のある品名（１日１０件程度）「だけ」をAシート１行に１データを１セルに順次、品名を入力させたい。

時間差で807は失礼しました。
結果は　>>806　さんの予想のとおりの内容です。
ただ、シートＡはデータを貼り付けるだけにしたいのです。

やっと、イメージができあがりました。サンクス。

BシートC列で、１行ずつ下にスキップさせながら、値が１以上なら、左セルのデータを配列変数に取り込み、それをＡシートの行セルに順次、吐き出す。

>>809
つまり自分でフィルタを作るんだね。

A1:E10に0〜100の数値があります。
３の倍数の数を数えたいのですがどうしたらいいですか？
3と6と9なら
=SUMPRODUCT(COUNTIF(A1:E10,{3,6,9}))
で出来るのですが、{}の中に3の倍数を全部を書くのも大変なもので。

MODを使う

>>811
Mougのヴァカ共は=COUNT(INDEX(0/(MOD(A1:E10,3)=0),))とかやる。
これはINDEXを無駄に使った間違い。

=COUNT(0/(MOD(A1:E10,3)=0))としてCtrl + Shift + Enterとか
=SUMPRODUCT((MOD(A1:E10,3)=0)*1)とか
=SUM((MOD(A1:E10,3)=0)*1)としてCtrl + Shift + Enterなどとやればいい。

0や空白の数も入ってるから都合が悪ければ適宜修正するように。

人からワークシートをもらった時、そのワークシートがどういうことをしてるか
調べるのってどうすればいいんでしょうか？

セルの中身を一個ずつ見て調べるしかないんですか？
それともセルの内容をリストとかVBAみたいな形で表示する方法とかあるんでしょうか？
よろしくお願いします。

>>813
Morgでお前の意見が無視されてるからって
こんなとこで吠えるなよｗｗｗｗｗｗ

はいはい

こうやってクソ遅いシートが作られてくんだな

>>814
セル１個１個見るしかない。

【1 OSの種類 　 　 　 　 .】 WindowsXP sp2
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 リソース不足

1500x1000セルぐらいの大きさを張り付けると、途中でリソース不足です
と言われて、続けますか？と聞かれます。
（1セルの中に３つほど、別シートを参照しています。）
はいにすると、そのまま貼り付けができる場合もありますし、
固まったままになる場合もあります。（繰り返すと、固まる確率が
高くなるような気がします。）
メモリは2G積んでいますが、タスクマネージャーで見る限り、
全体で1.3G程度、excelだけで0.9G程度使用しています。
メモリ的にはまだ余裕があるように見えるのですが、
リソースとは何を指しているのでしょうか？
アドバイス等ありましたら、お願いします。