Excel総合相談所 100

▼━ 質問のしかた ━━━━━━━━━━━━━━━━━━━━
★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総合相談所 99
http://toro.2ch.net/test/read.cgi/bsoft/1319632190/

▼━質問時の注意･決まり事━━━━━━━━━━━━━━━━━━━━
･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で出来ないこと、仕様上の制限｣ は､一般的に出来ないとされていること､出来ないと思われるものです。
間違いがある可能性もあるので､上記に挙がってるもので｢コレはこうすれば出来るよ｣というものがあったらご指摘ください。
Excel2010についても未確認な項目が多いので変更点が有ればご指摘下さい。

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

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

以上でテンプレ終わり

>>1乙

質問！

CTRL+Fで検索した後、キーボードで検索窓を消す方法は
・タブキーで「閉じる」まで動かす
・ALT+F4
以外に方法ありますかね？

あと、消さなくてもエクセル本体側がアクティブになる方法とか・・・

>>7
ESC?

>>7
alt+tab

>>8
おお、ESCは知らなかった！ありがとう！！

>>9
ALT+TABは嫌だなあ

おそくなりましたが、今年もよろしくお願いいたします

>>813
チルダとはそんなに便利な不思議なマークなのですね！ありがとうございました
>>815
ＣＯＬＵＭＮ()と、()の中が何もないときは、式の入ってる列の意味なのですね？
もう少しよく考えてみます、ありがとうございました

あと、早速ですが２００３エクセルで、右下にデータの個数としてＡ列を選択したところ
Ａ列自体は空欄セルばかりなのに、個数が２６個と出ました
Ｂ列に＝ＬＥＮ（Ａ２）のようにして文字数を数えてみてもどのセルもゼロでした

人から渡されたブックなので、何か仕込みがあるのでしょうか
スペースも入ってないならなぜ、見た目は空欄なのにデータの個数がゼロとなったのか
よろしくお願いします。検索は「エクセル　データの個数」「エクセル　個数」でしてみました

>>12
=""
でもデータの個数は1個でlen()は0になるよ
=IF(B1>5,B1,"")
みたいな式でも入ってると予想。A1にカーソルを合わせてctrl+↓で検索できる

早速の回答をありがとうございます。ファイルが職場なので本日には確かめられませんが
その＝ＩＦ(Ｂ１＞５、Ｂ１，"")の式はＡ列に入っているのですか？？
１００行くらいしかなかったので、ctrlは使わなかったものの、↓で
一個一個下がってみたのですが、本当に何も入ってなかったのですね
気持ち悪かったです

>>14
そう
ctrl+↓なら次にデータがあるところまで行くから、
下の方に入ってると思う

PC録画してるし

http://rurl.jp/window

>>7
Alt+Space c

>>15
うーん、、、火曜日に早くそのファイルでctrl＋↓をやって確かめたいと思いました
幽霊データと名づけたい
アドバイスをありがとうございました

【スタッフ募集】路線名を擬人化させたエロゲ【鉄オタも】
http://hayabusa.2ch.net/test/read.cgi/news4vip/1326032146/

【wiki】
http://www38.atwiki.jp/train_erog/

【避難所】
http://jbbs.livedoor.jp/game/54004/

昨日、Windows7のPCを買ってその中にあるOffice2010を使い始めたばっかりなんですけど、、、、
外付けHDDにあるexcel2007で作ったファイルを開くとなんで読み取り専用になってしまうの？？？

解除する方法ありませんか？

>>20
右クリックで属性を変えられる
外付け、2007は特に関係ない。
以下のページに書いてあるけど、ファイルを作る時に設定してると思う。
http://www.kenzo30.com/ex_kisopoint/onepoint_sonota5.htm

右クリックで出てくるプロパティの読み取り専用 隠しファイルのチェックの
ことですよね？
そこにはチェックは付いてません。
念のため、フォルダのプロパティ→セキュリティタブからアクセス許可で
Usersをフルコントロールにしてみたら通常どおり開けましたが、いちいち
こんなことしないといけないのですか？

ファイルプロパティの読み取り専用だけでなく
保存オプションの読み取り専用もちゃんと解除してる

あと外付けHDDの書き換え防止機能が働いていると
ファイルのプロパティで読み取り専用になってなくても、読み取り専用として開かれる

いや、それってNTFSのセキュリティとかアクセス権とかの話でしょ
スレ違いっていうか板違いじゃないのかな

そうだね
Excelの機能とか設定は関係なくて、それはWindows側の問題だね

EXCEL2007でシートAに50個のデータがあり、
条件に合う商品名だけ別シートに抜き出しています
手動でやっているのですが、関数を使って表示させたいです
出来るならアドバイスがいただきたいです。

シートA（フォーマットなので加工出来ない）
　　　　B　　　　C　　　　D　　　・・・
1　　りんご　みかん　ばなな　・・・・　
・
10　合格　　不合格　合格　

シートB（今回作りたいシート）

　　　B
1　　りんご
2　　ばなな
・　　　　・
・　　　　・

>>26
Sub 合格を抜き出す()
　　r = 1
　　For c = 2 To 51 'B列から横に50個分くり返し
　　　　If Worksheets("シートA").Cells(10, c) = "合格" Then
　　　　　　Worksheets("シートB").Cells(r, 2) = Worksheets("シートA").Cells(1, c)
　　　　　　r = r + 1
　　　　End If
　　Next
End Sub

>関数を使って表示させたいです
　~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

>>28
ということは >>27 の「合格を抜き出す」は
不合格ですね

>>27

ありがとうございます。
VBAなら出来るんですね。

出来れば、関数で実現したいんです。
何か方法はありませんか？

SubをFunctionに変えれば関数になるよ

結果を表示したいセル１つ１つに if 関数入れて表を作り最後にオートフィルターで空白セルを非表示にするか
TRANSPOSE関数使って一括で表を作り最後にオートフィルターで合格セルを表示するか

今回は行と列を入れ替える作業があるから後者の方が導入は楽だけど
業を増やしたりと後々の加工は手間になる。
前者は真逆。

図形描画について質問です
オートシェイプ→線→曲線　で中を塗りつぶせるのでこの機能を多用していますが
いちいちオートシェイプから線→曲線とたどらなければいけないのでしょうか
何かショートカットがあって、それを押すとすぐその曲線にたどりつく方法はありますでしょうか
２００３ですがよろしくお願いします

ユーザー設定で曲線のボタンを好きなところに出しておく

>>26
シートAはいじれないけど選択はできるよね？
>関数を使って表示させたいです
を俺も無視するけど、

１．シートAのデータのどこか1セル選択
２．ｃｔｒｌ＋Aで表全体を選択
３．ｃｔｒｌ＋Cでコピー
４．シートBの表にしたい左上（A１）を選択
５．右クリックで形式を選択して貼り付け→行列を入れ替えるを選択して貼り付け

これでオートフィルタかければ合否で表示分けれる。フィルタ状態がだめならフィルタ
かけた状態でｃｔｒｌ＋A　ｃｔｒｌ+Cでコピーして貼りたい場所を選んでｃｔｒｌ＋V

VBAも関数も使ってないけどショートカットボタンになれたら手作業時間は1分ぐらい。
手間のかからない自動化したいなら自分もVBAで考えた方が楽だと思った。

>>30
LOOKUPを駆使すれば
なんとかできるよ。

>>30
シートAが加工できないのならどこか別のシートへ行列入れ替えでコピーしてフィルタオプション。
もちろんタイトルは入れる。

あら>>35で類似の案が出てたわ。

>>34
ユーザー設定は確かめており、曲線なかったのになぁ、と思っていましたが
「図形描画」でなく「オートシェイプ」の方にありました！！！ありがとうございました
ちん毛のようなマークですねｗ

仕事でマクロ（VBA）を使えるようにしたいと考えているのですがお勧めの最初の参考書とかありますか？
スレ違いだったらすみません。（誘導していただけると・・・。）

質問です！
COUNTIF関数で、例えば99〜90の範囲の数が何個かあるかって数式はどうやって入力すれば出来るでしょうか。

90>=の数−99>の数

質問

スクロールさせても特定の行とか列を表示したままにする(htmlのフレームみたいに)のはどうすればいい？

ちなみにvistaでExcel2007

>>40
まったくの初心者なら
つぼとコツがぜったいわかる本

>>43
ウインドウ→ウインドウ枠の固定

>>45
おおできた！ありがとう

どういたまして

>>41
その他の範囲の個数も色々出すならピボットテーブルでグループ化
またはFREQUENCY関数。

>>41
CountIFでなくCountIFSを使ったらどうでしょ
=COUNTIFS(範囲,">=90",範囲,"<=99")
てな感じです

C列のセルの文字数のカウントを取得したいのですが
いろいろ制約があって
=LEN(C1)の記載では無く
=LEN("C" &ROW())見たいな記述にして
それが4行目でも100行目でも同じ内容で取得できる方法にしたいのですが
上手く行きません

ご教授ください

>>50
もちろんその記述が100行目にあればC100の文字を28行目にあればC28の文字を取得したいです。

>>50
=LEN(INDIRECT("c"&ROW(),1))
こんな感じ？

=INDEX(C:C,ROW()) じゃないの

>>53
なるほど

>>44
買ってみます。ありがとう(；ω；)

どういたまして

>>50
なんで=LEN(C1)じゃだめなの？
R1C1形式にしてみりゃ分かるが全部同じ式だ。
=LEN(INDEX(C:C,ROW())じゃC列に入力すると全部の式が再計算するから無駄もいいとこ。

>>57
なるほど

>>50
複乳的に作業列使って間接的に文字数を取得するとか。
例：
D1　=C1
E1 =LEN(D1)

n^a=b（aとbは定数）
でnを求める式をExcelで記述したいんだが、どうすればいい？

ttp://homepage1.nifty.com/gfk/Exp-Log.htm

対数分からないとか言うなよ？

いや、対数で出せるのはa（指数）の方だろ？
じゃなくてn（基数）の方を出したい

nをa乗したのがbだから
bを(1/a)乗すればnになる。
よって
　n=b^(1/a)
という形で求めてもいい

済まんその通りだ
何を俺はテンパっていたのだろう
ありがとう

いや、皆そんなもんだよ。

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

ファイル1の、A列に社員IDが、テストの得点が記入されています。
ファイル2の、A列に社員IDが、テストの得点が記入されています。

テストは同じもので得点も同じです。
ファイル1に入っている社員とファイル2に入っている社員は重複している人もいます。
このファイル1,2に分けられている社員+得点を1つのエクセルファイルにしたいのですが
どうしたらいいでしょうか？

ファイル1の一番最後の行へ
ファイル2のデータをコピペ

重複ウィザードで重複データを削除で出来ないかな

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい（コードは理解出来る）
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 VBA　加算　振り分け

〈入力フォーム〉
A　　　　　　　　　　　　　　 　B　　　　　　　 　C 　　　　　　D 　　　　　　E
商品コード：0009648　　　　1.非常に良い　　2.良い　　3．普通　　4.悪い
項目1：内容　　　　　　　　　　　3　　　　　　　　2　　　　　　　1　　　　　　　2
項目2：パッケージ　　　　　　　　3　　　　　　　　3　　　　　　　2　　　　　　　0
項目3：内容量　　　　　　　　　　2　　　　　　　　4　　　　　　　1　　　　　　　1
項目4：味　　　　　　　　　　　　4　　　　　　　　3　　　　　　　1　　　　　　　0

〈反映させるフォーム〉（極一部）
A　　　　　　　　　　　　　　 　B 　　　　　　　　C 　　　　　D 　　　　　　E
商品コード：0009648　　　　1.非常に良い　　2.良い　　3．普通　　4.悪い
項目1：内容　　　　　　　　　　　3　　　　　　　　2　　　　　　1　　　　　　2
項目2：パッケージ　　　　　　　　3　　　　　　　　3　　　　　　2　　　　　　0
項目3：内容量　　　　　　　　　　2　　　　　　　　4　　　　　　1　　　　　　1
項目4：味　　　　　　　　　　　　4　　　　　　　　3　　　　　　1　　　　　　0

入力フォームと反映させるフォームは同じシート内にあります。
“3”や“2”と言った数字はその月のその項目の回答数です。
入力フォームに商品コードとそれぞれの項目の回答数を入力し、「OK」ボタンを押すと下の反映させる商品コードに合致したフォームに
加算されていくと言う形にしたいのです。
よろしくお願いします。

集計はピボットで

>>69
とりあえず商品コードで検索、あとは16個の数字を足すだけだからプログラム自体はすぐできるというか、
簡単すぎて具体例を出す以外に答えようがないんだけど
具体例を出すためにはシートの構造をもっと詳しく書いてくれないと

そうやって入力したデータをどんどん加算していく方式より、まず入力したデータはそのまま蓄積して、
集計は最後にした方がいいと思うんだけどなあ
入力ミスの検査とか、合計以外の別の視点での分析とかまったくできなくなるよ

>>70
質問をよく読め
単純な集計と違う

>>69の入力フォームがすでに集計後の形になってますね。
普通に集計するなら

商品コード　　　項目１　　　項目２　　　項目３　　　項目４

の形でテーブル作ってからピボットでしょう。
>>70じゃないけど、単純な形の集計にして、集計はピボットでと言いたい。

その形だと商品コードの数だけシートを用意する気なのかよくわからない
けど、なんか集計としての方向が少し間違ってる予感はする。

http://park7.wakwak.com/~efc21/cgi-bin/exqalounge.cgi?print+201201/12010019.txt

集計として機能しないのは確かですねそれ。ミス一発で全てのデータがゴミになりそ。

目的がVBAの勉強ならもうちょっと自力でコード考えるだろうし、本気で集計が目的なんだろうか。

皆さま、本当にありがとうございます。
言葉足らずでした。
商品コードは全部で200件ほど有り、これを4つのグループに分けています。
反映させるフォームは4月〜翌年3月までのそれぞれの項目の件数を追加しています。
でも確かに間違えてしまったら、データはゴミになりますね。
もっと他に良い方法がないか考えてみます。
ありがとうございました。

売り上げを集計しているのですが、まったく売れなかった場合"値なし"となってしまいます。
ピボットテーブルを作ったとき、"値なし"となったセルを数字の"0"と扱うのはどうしたらいいですか？

ピボットテーブル内で右クリック→

ピボットテーブルオプション→レイアウトと書式　の中の「空白セルに表示する値」にチェック入れて
値を０と入力

>>75
なので、入力データは１行ごとに履歴として残しておいて、集計はピボットでするのが正しい

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

集合縦棒グラフを使っています。
常に
グラフの解像度(640x480)
縦軸の目盛りの間隔(例えば10pixelで1増加)
などを一定にする方法はありますか？

>>75
コンソリデート（データ＝＞統合）を利用したんじゃだめなの？

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

あるセルの値を取得し、その値を使って別のセルを参照して、計算したいです。

具体例を挙げると
A1のセルに１という値が入っているとします。
この１という値を使ってB1の値を得、C1に(=B1+1)の計算結果を表示するようにしたいです。
（同様にA1が２ならB2の値を得るようにしたい）
Bだけでなく、他の列も任意に指定したいです。
=B(A1) とか適当なことやってみましたがだめでした。

お願いします。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 エクセル2010 ソルバー 整数 エラー

「ソルバーのパラメーター」ダイアログボックスで制約条件の対象欄に
「○△×が整数」と加えたいのですが、制約条件の追加ダイアログボックスに
セル参照　=　制約条件
○△×　　_=　整数
と入力するとエラーが出てしまい、うまく入力できません。
色々、Googleなどで検索をしてみたのですが、回答を得られせませんでした。
お答えよろしくおねがいいたします。

>>82
=(INDIRECT("r"&A1&"c"&A2,0)+1)
A1が行、A2が列。+1は特に意味ないけど、まぁこんな漢字ですよってことで

>>82
=INDIRECT(ADDRESS(A1,A2))+1

=INDEX(B:B,A1)+1
INDIRECTは揮（以下省略)

>>83
試してみたら確かにエラーでるね
でも条件は追加されたし、実行もできた

お三方ありがとうございます。できました

>>85
ADDRESS関数いつも忘れるわ

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 Google→「エクセル 文字 含まれる セルだけ選択」

下の表B2〜B50に数式を入れる部分で、現在はB2に数式入れる・コピー〜スクロール〜B50を＋shiftで選択ではりつけ
して入れてますが
スクロールせずB2〜B50を選択（というよりA列で文字列を含んでいる範囲の行までだけD列を選択）できませんか？


　　A（品名）　　　B（価格）　　C（個数）　　　　D（金額）
1　ノート　　　　　\150　　　　　　　3　　　　　　　　=B1*C1
2　ボールペン　 \100　　　　　　　8　　　　　　　　=B2*C2
3　クリップ \120　　　　　　　　　　 4　　　　　　　=B3*C3
（この間にも行）　
50　はさみ　　　\500　 　　　　　　2　　　　　　　　=B50*C50

ctrl+shft+↓
ctrl+shft+→

shiftだった

>>90
D1セルを選択後、セル左下隅にマウスあてカーソルが十字になった状態でダブルクリック

>>93
右下隅

>>91
すみません、わかりませんでした…

>>93-94
ありがとうございます！

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

既に立ち上がっているインターネットエウスプローラに表示されている
とあるサイトのテキストボックスに、エクセル上の値を、貼り付けて「提出」ボタンを
押したいのですが・・

その開いたサイトでは、アドレスバーもメニューバーもなく、かつ右クリックもできないので
目的のテキストボックスやボタンのオブジェクト名が分りません。

オブジェクト名を調べる方法や、オブジェクト名が分らなくても
何とかなる方法（Tabキー操作の感じで動かす？方法）等の回避方法を教えてください。

>>96
Ctrl + S で保存も出来ない？

>>96
Sendkeysとかでキーボードの動作を真似てデータを入力する方法もあるけど、
動作中にうっかりマウスにさわったり、ちょっとしたミスで間違ったデータを送ってしまう危険性があるので、
これは最後の手段と考えた方がいい

まずは本当にコントロール名を調べる手段がないかどうかを考える
最初に試すのはF11キーを押す
サイトによってはこれでメニューバーが出てくるからソースの表示を選択できるようになる

次に、セキュリティ設定でJavascriptを停止して右クリックできるようにする、
右クリ禁止を回避するソフトとか入れてみる

IE以外のブラウザだとサイトの設定を無視してソースを見る機能があったりするので試してみる

ほかにもパケットをキャプチャしてソースを見るとか、方法はいくつもある

「横書きテキストボックス」 のデフォルトの設定を変更したいです。
たとえば、「MSゴシック11 中央ぞろえ」をデフォルトにしたいとすると、
いったいおれ どうな て

>>99
テキストボックスを作成し「MSゴシック11 中央ぞろえ」にしたあと
枠線付近で右クリックし、「規定のテキストボックスに設定」

かゆ うま

>>100
「オートシェイプの規定値に設定」
を選択しても、次にテキストボックスを作ると
またもとのデフォルトで作成されるんだよね。
もしかしてExcel2002のバグだったりするのか

２０１０だと「規定のテキストボックスに設定」とでる
「オートシェイプの規定値に設定」に相当？と思われる「規定の図形に設定」も別途あるので２００２ではできないのかも

>>96
目的のテキストボックスやボタンのオブジェクト名うんぬんの前に
とあるサイトを表示しているIEの IEオブジェクトは取得できてるのかな？
できてるなら
IEobj.document.body.outerhtml
とかで
<BODY>〜</BODY>のソースならとれると思うけど(今回の場合これで十分だと思う)

それとも IEオブジェクト以外の方法でコントロールしようとしてるのかな？

【1 OSの種類 　 　 　 　 .】 WindowsVISTA
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 はい
・つくりたいもの
�@Ai　の行に　数値　i　をそれぞれ表示 (i　には任意の整数を代入したい）
�ABi　に整数の乱数（１〜i　の範囲で）を表示
�BCi　でBi の乱数の値が=1 の時Ci　に 1 を表示させる
�CDjにCiでの１の数をカウントし、表示する(jは試行回数）

やりたいことは
サイコロを10回振って１が出た時の回数の記録＊１０回分を書き出したい
ってことです

よろしくお願いします

一応自分で書いた奴をはります
現状で困ってることは、１が出た回数を書き出すところで、
１〜１０回分全部同じ値になってしまうことです

Sub test()
Dim buf As Integer
Dim sum As Integer
i = 1
j = 1
Do While j <= 10 '以下を10回繰り返す
Do While i <= 10 '�@　10行まで試行
Worksheets("Sheet2").Cells(i, 1).Value = i
'�A　１〜６の範囲の乱数を表示
Worksheets("Sheet2").Cells(i, 2).Value = Int((6 - 1 + 1) * Rnd + 1)
'　表示された乱数を取得
buf = Cells(i, 2).Value
'�B　buf が１ならcell(i,3)に１を表示
'�C　buf=1 の個数をsumに代入
If buf = 1 Then
Worksheets("Sheet2").Cells(i, 3).Value = 1
sum = sum + 1
Else
Worksheets("Sheet2").Cells(i, 3).Value = Null

End If
i = i + 1
Loop
Worksheets("Sheet2").Cells(j, 5).Value = sum
j = j + 1
Loop
End Sub

>>105
こうか？

Sub test()
　　Dim buf As Integer
　　Dim sum As Integer
　　Worksheets("Sheet2").Activate
　　For j = 1 To 10 '以下を10回繰り返す
　　　　sum = 0
　　　　For i = 1 To 10 '�@ 10行まで試行
　　　　　　Cells(i, 1) = i
　　　　　　'�A 1〜6の範囲の乱数を表示
　　　　　　buf = Int(Rnd * 6 + 1)
　　　　　　Cells(i, 2) = buf
　　　　　　'�B buf が1ならcell(i, 3)に1を表示
　　　　　　'�C buf=1 の個数をsumに代入
　　　　　　If buf = 1 Then
　　　　　　　　Cells(i, 3) = 1
　　　　　　　　sum = sum + 1
　　　　　　Else
　　　　　　　　Cells(i, 3) = Null
　　　　　　End If
　　　　Next
　　　　Cells(j, 5) = sum
　　Next
End Sub

>>107
そうです！ありがとうございます
もし面倒じゃなかったら何が間違っていたか教えてください

意味がわからん
サイコロなら乱数は1〜i じゃなくて1〜6でしょ？
問題の2番では1〜i になってるけど、プログラムは1〜6になってるし
どっちが正しいのか気になる

>>97 >>98>>104
ありがとうございます。
セキュリティで設定されているのか、なかなか突破できないっす。

こっちも業務上のPCなので他のブラウザもインストールするには時間が掛かる。

>>98
>ほかにもパケットをキャプチャしてソースを見るとか、方法はいくつもある
教えてください。

>104
できるかどうかやってみます。

>>110
目的のサイトのURLが「http://」じゃなくて「https://」で、使用しているマシンがポリシーで色々禁止されてると
突破するのはかなり難しい
Sendkeysあたりでシコシコやるのが無難かもしれない

自力で考えるより、マシンの管理者に相談した方が早いかもよ

>>109
ほんとはi（１〜３００）くらいまでの物を作りたいんだけど、
言葉で説明するときに分かりやすいかなっておもって
サイコロの例を出しただけです

表を作成して下の方まで長く作って
スクロールした時に上の３行目まで
その位置で留まって
４行目からスクロールされるなんで事で来ますか？

>>113
4行目を選択した状態でウィンドウ枠の固定をクリック

感謝

>>111
仮に、相手のサイトも、こっちのPCもがちがちにポリシーで自由にできないとして。

エクセルの値を、とあるサイトのテキストボックスに入力するマクロは、
　　　・エクセルから値をクリップボードに入れて、
　　　・IEを開いて
　　　・Sendkeysで｛TAB｝で入力フィールドまで動かして
　　　・Sendkeysで｛Cntl+V｝で貼り付け
を繰り返すしかないのでしょうか。

ためしに作ったところ、動作は遅いわ、なぜかTABキーが不安定で狙ったとこに到達しなかったり上手くいかないので。。

>>116
ガチガチな構成なら画面のデザインも固定されてるだろうから
Win32APIを使ってマウスカーソルを移動、クリックしてフォーカス移動までVBAでやってしまうという手もある
SendMessageなんかも調べてみるといいよ。Excelからは外れるから適切なスレに移動してね

あとは、画面上に表示されてるテキストボックスとかボタンとか、コントロールの素性を調査してくれるフリーウェアもあったはず

>>116
http://msdn.microsoft.com/en-us/library/Aa752084.aspx
これはダメなの？

すまん、>>110で>>104が実現できないって書いてるの見落としてたわ
>>118は忘れてくれ

書いてるか？

>>117
ありがとうございました。
そちらも調べてみます。

>>108
いろいろおかしいけど、
致命的なのは i=1 の書いてある位置
jのループの外に書いてちゃ無意味
sumも同様にiのループが終わるごとに０を代入しなきゃダメ
つまり、
do while j...
と
do while i...
の間に
i=1
sum=0
がないとダメ

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

A列に項目、B列にその内容が書いてある
縦に連続しているデータがあり
その中から、A列にある特定の項目と
対になるB列のデータを
縦の並びを変えず、抜き出したいです

続きです

例えば
　　　　A　　　　　B
1　　都市名　　東京　
2　　人口　　　　123
3　　コード　　　　456
4　　面積　　　　789
・
・
7　　都市名　　神奈川　
8　　人口　　　　456
9　　コード　　　　789
10　　面積　　　　123
・
1　　都市名　　広島
2　　人口　　　　875
3　　コード　　　　425
4　　面積　　　　185

抜き出したいデータ
　　　　A　　　　　B
1　　都市名　　東京　
2　　コード　　　　456
3　　都市名　　神奈川　
4　　コード　　　　789
5　　都市名　　広島
6　　コード　　　　425

と抜き出したいです
同シート内でも、別シートでも構いません
よろしくお願いします

>>124
単純にフィルタで都市名とコードだけを選択するだけじゃいかんの？
もしくは、いらない項目をフィルタで絞って行削除するとか。

まず項目のタテヨコ変換をするほうが先だろう

ちょっと教えてほしい。
エクセルのマクロ有効の拡張子はmlsmだけど、
これはマクロを有効にするかどうかを聞いて来るよね。

記憶が曖昧なんだけど、マクロを有効にするかどうか聞いてこない
拡張子ってあったように思うんだけど記憶違いかな？

セキュリティでエクセルファイル全部を有効にするのではなく
ファイルごとに有効にするのはどうすればいいの？？

>>127
ツールオプションセキュリティ
で信頼のおける発行元に入ってれば聞かれない
拡張子は関係ない
詳しくは「信頼のおける発行元　追加」辺りでググれ

>>127
フォルダ単位で設定も可能だから、マクロ付きファイルは専用のフォルダを作って入れておくという手もある

Excelで、縦にも横にも非常に長い表があります。
タイトル行・列とも全ページに印刷したいので、「タイトル行$1:$3、タイトル列$A:$C」と両方を指定します。すると、各ページの右端がやたらと余白が余るのですが、なぜでしょうか？
タイトル行・列のいずれか片方だけ指定したなら、余白を十分に有効活用できるのですが・・・。

質問です。今までセルの右下にポッチ(ドラッグすると日付が1日づつ変っていったりするヤツ)がなくなってしまいました。どーやったらもどせますか？

フィルハンドル 表示されない でググれ

>>130
ページ設定で余白を小さくしてもダメ？

＞＞１３２,１３３
ありがとうございます。
早速やってみます。

>>133
それが駄目なので、困っています。
ページ設定で右余白を0.8と設定しても、実際には3.0以上はあるような余白が右に出来てしまいます。

エクセルは横幅の広いセルを２分割して２ページにわたって印刷したりしない。
余白がいやなら、ぴったりに収まるようセルの幅を調節しないと。

>>135
それは次のセルを印刷するだけの場所が足りてないんだよ

どこまで印刷されるかは印刷プレビューでも確認できるし、
一度プレビューすればワークシートに点線でページの区切りが表示される

タイトルや上下左右の余白をもっと小さくしてみ
調整していくとリアルタイムで点線が動いてくれるから、どこまで入るかすぐに確認できる

先頭に付いてる文字列によって計算を変えさせたいのですが可能でしょうか？
例えば△10となっていたら100-10の値を計算に使い○10となっていればそのまま10を計算に使いたいんです
実際に入力されているのは△10で表示されるのも△10、平均などを取る時の計算だけ90を使ったりしたいです

>>138
可能です

すいませんその方法を教えてください

>>138
状況も理解できないし、やりたいことも理解できない
シートにどんな風に値が入ってるのか提示してみて
計算ってのもよくわからないから具体的に書いてみて

　 　 　 |19日|20日|合計　　|平均
Aさん　|△10|○20|110      |55　
Bさん　|○50|△20|130      |65　
Cさん  |○90|○10|100      |50　
Dさん　|△20|△30|150      |75　

先頭△は100から引いた数、○はそのままの数を使用します
入力するのは日付の所だけで合計平均は計算式で出したいです

>>142
置換2回でダメですか？

1回目
検索する文字列：○
置換後の文字列：

2回目
検索する文字列：△
置換後の文字列：=100-

>>143
うまいこと計算できない＞＜
置換はsubstitute関数でいいんですかね？
>>138で書いてるんですが入力、表示されてる△10は変えたくないんです

=SUM(SUBSTITUTE(B2,"△",100-):SUBSTITUTE(C2,"○",""))
これじゃ合計が出ませんでした。

とりあえず、強引に式にした。
でも　これじゃ使い物にならないね。

=SUM(IF(LEFT(B2,1)="△",SUBSTITUTE(B2,"△",""),100-SUBSTITUTE(B2,"○","")),IF(LEFT(C2,1)="△",SUBSTITUTE(C2,"△",""),100-SUBSTITUTE(C2,"○","")))

>>142
作業列を使うほうが、簡単だしわかりやすいね
それじゃだめなの？

作業用の非表示列作って、“△10”とか“○20”とかを加工して入れて、計算には作業用の非表示列を使ったら？
=IF(LEFT(A1,1)="○",0+SUBSTITUTE(A1,"○",""),IF(LEFT(A1,1)="△",100-SUBSTITUTE(A1,"△",""),0))
みたいな感じ

>>145
すまん。△と○が逆だった。やっぱり実用的でないね。

なるほどsheet2とかに作業用の表をそのまま作った方が早いかもですね
アドバイスありがとうございます

>>142
チラ裏ですが、

文字列で△が付いている数字を置換
△　→ - (三角からマイナスへ置換する）
セルの書式設定で表示形式を
数値→　頭に△の付いた負の数の表示形式　を選択する

とすれば表示上頭に△付くし計算もできるようになります。

>>142を読んで、昔できなかったことを思いだしました

８０と入力したら−２０と表示、１２０と入力したら２０と表示
セルの書式設定で、こんなことできませんか？

１００との差を表示したいのです。

>>150
お前は何を言ってるんだ？

>>151
無理ですなぁ

>>153
それはそれで、すっきりしました。ありがとう。

せいぜい100行程度の短いデータなのに、気がつくと（マジで条件がわかんないんです）
右側の上下スクロールバーの幅がすごく狭くなってて、たくさん行がある感じになっちゃいます。
ずーっと下までスクロールしてったらエクセルの限界？の65536行目までいって、そこから100行目（データ終わり行）まで
選択して「削除」したけど変わりませんでした。
案外不便なんですけど、このスクロールバーを元に戻すにはどうしたらいいんでしょう。

それって新規ブックでもそうなの？

>>155
新しいシート作って100行目までをコピーする

>>155
例えば101行目が空白ならそれ以下65536行までを選択して削除
その後上書き保存終了し再度開き直してみる。

それでダメなら、可能性として図形やテキストボックスなどのオブ
ジェクトが残ってるかも・・
オブジェクトは、その範囲の行や列を削除して画面上は見えてい
なくても残っていることがある。
編集→ジャンプ→セル選択からオブジェクトにチェックしてOKを押す
その状態で Deleteキーを押して削除する。
その後上書き保存終了し再度開き直してみる

一度閉じて開きなおさないと反映しないよ？

>>156
>>157

結局、今のところは>>157さんの言うとおりに新規ファイルへ必要データをコピーしたりしています。
新規ブックの状態でそう・・・なんだと思います。
たとえばある企業の法人向けサイトから、各種利用料金だとかの明細をCSVデータでDLしてきて
それを開いて、ちょっと加工しつつExcel形式で保存しなおして・・・とかやってて気がつくともうスクロールバーが短くなってたりします。

Excel2010をインストールして、開発タブを追加したのに
マクロの記録もできず、Alt+F11も利きません＞＜
どうすればいいですか？

158>>
それじゃだめなんだよね

>>142
これって書式設定に

"○" #,##0;"△" #,##0

これ入れるのはだめなの？
セルに -10 って入力すれば △10 と表示されて 20 って入力すれば ○20 って表示される
そーすれば普通にセルの足し算で計算もできるんだけど。

>>163
△10は、−１０じゃなくて１００−１０なんだけど

>>160
関係ないと思うけど一応こういうのも
http://support.microsoft.com/default.aspx?scid=kb;ja;405492

合計欄で 100+セルA+セルB　にすれば答え同じじゃん？

>>163
>>138と>>142は同一質問者だと思う
入力も「△10」で表示も「△10」じゃないといけない

>>166
CさんやDさんの場合は？

>>165
リンク見ました。ジャンプからの設定は試してなかったです。明日、試してみます。

>>168
自己レスだが、countif 使えばできないことないな

ごめんごめん、CとDは見てなかったｗ
微妙に出来ないな（'A｀）
でも出来そうな気もする

VBA使っちゃいかんのか？

いいんじゃね？
数式だけでがんばってみたけどどーしても式が長くなる

=IF(AND(B5<0,C5<0),ABS(B5+C5)+100,IF(AND(B5>0,C5>0),B5+C5,B5+C5+100))

>>173
>>167

自己解決しました

>>152
逆に言うと
セルの書式設定によりそのまま数値として扱える表示方法があるということ。
入力で"-10"と入力すれば"△10"と表示されるということそれを活用しましょう。

今までに文字列として△入力していたところについては置換を使って"△"を "-"（マイナス）
に置き換えれば良いでしょう。

ご理解できましたか？

【1 OSの種類 　 　 　 　 .】 WindowsVISTA
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 ファイル コピー作成

開いているファイルを別の名前でコピーを作成したいのですが
VBAで処理するにはどうすればいいか教えてください。

開いているファイルは処理後も開いた状態にしておきたい。
別の名前で作るコピーは開かなくてOKです。

開いているファイルが、その別名の物の方になって良いなら
普通に別名保存(SaveAs)するだけだろ

開いているファイルは、元のファイル名の方のままにしたいなら
コピーを作って名前をつけて保存しコピーした方を閉じれば良い

>>176
まったく度し難い

>>177
カレントフォルダ
という言葉を知ってると色々便利だと思う

>>179
どのような点がわからないの？

>>176
いい加減質問内容を理解しろよ
何が逆に言うとだ、勝手に逆に言ってんじゃねーよカス

>>144
>>>138で書いてるんですが入力、表示されてる△10は変えたくないんです

>>167
入力も「△10」で表示も「△10」じゃないといけない

>>182
△の付いた文字列を数値として扱える方法を幾度となく説いているのだが
カス呼ばわりされるとはな。

君のようなボンクラ君には越えられない壁があるようですね。

>>183
あなたの言うようにデータを扱った場合、
合計取るなら、たとえば
=IF(B2<0,100+B2,B2)+IF(C2<0,100+C2,C2)
としないと、いけないんじゃないかな。

>>138,142
この場合作業列を使うのが普通かなとは思うけど

VBAでの回答を否定していないようなので
ユーザ定義の関数を作るってのを提案してみる
VBAはイヤってなら無視してくれ

Public Function pfcSumX(セル範囲 As Range) As Long
　Dim セル As Range
　Dim 合計 As Long
　合計 = 0
　For Each セル In セル範囲
　　　Select Case Left(セル.Value, 1)
　　　　　Case "△": 合計 = 合計 + (100 - Mid(セル.Value, 2))
　　　　　Case "○": 合計 = 合計 + Mid(セル.Value, 2)
　　　End Select
　Next
　pfcSumX = 合計
End Function

として
合計したいセルへ =pfcSumX(A1:B1)
とかする

【1 OSの種類 .】 Windows７pro32bit
【2 Excelのバージョン 】Excel2007
【3 VBAが使えるか .】 可
【4 VBAでの回答の可否】 可
【5 検索キーワード 】Excel　関数　抽出　など

Excelのシートで使用している関数の一覧と
その関数が入力されているセル番号を
出力したいのですが、方法が分かりません。

色々検索をかけたのですが出てきませんでした。
数が多くて困っております、宜しくお願い致します

>>186
http://msdn.microsoft.com/ja-jp/library/microsoft.office.tools.excel.namedrange.specialcells(v=vs.80).aspx
後は頑張るしかないでしょう

みなさんありがとうございます
昨日はとりあえずSheet2に作業用の表つくって対処できました。
今日見たらもっと良い物があったので使わせて貰います。

>>185
完璧です。
VBA使ったことなかったけど普通にコーディングみたいに使えるんですね知らなかった。
平均はこれでいいかな？

Public Function pfcAveX(セル範囲 As Range) As Long
Dim セル As Range
Dim 合計 As Long
Dim セル数 As Long
合計 = 0
セル数 = 0
For Each セル In セル範囲
If セル > 0 Then
セル数 = セル数 + 1
End If
Select Case Left(セル.Value, 1)
Case "△": 合計 = 合計 + (100 - Mid(セル.Value, 2))
Case "○": 合計 = 合計 + Mid(セル.Value, 2)
End Select
Next
pfcAveX = 合計 / セル数
End Function

>>188
↓ここがまずいよ　#value! にならないか？
If セル > 0 Then
セル数 = セル数 + 1
End If
(入力セルは、あくまで文字列だから　単純に数値比較できない)

で変更点だけど　見る限り
下のどちらにするの？

1)○20 + ○0 + ○10 ---> 平均 15
2)○20 + ○0 + ○10 ---> 平均 10

つまり ○0 と △0 をセル数として入れるのかって事

入力のないセルは計算しないつもりです
なので 1) の方ですね
確かに文字列を数値比較はまずいですねアホだった。
んじゃIF消してCaseの中で+=かな

>>190
ある程度プログラミングの知識は あるようなので
変更後のコードは割愛するんでがんばってみて下さい。
分からなかったら改めて質問をしてね

>>186
http://www.asahi-net.or.jp/~zn3y-ngi/YNxv13.html
結果だけいいなら、ここにあるアドイン（おまかせ数式印刷）を試してみたら

横レスすまん

＞Public Function pfcSumX(セル範囲 As Range) As Long
これはどういう意味なんでしょうか？
マクロはSubで始まるものだと思ってましたし、
〜 As Longは変数を長整数型に指定するものだと思ってました。

ユーザー定義関数

>>193
値を返す関数だよ。戻り値が長整数型ということ。あとは↑

>>193
【】内は引数

>142
ifとleftとfindで行けそうな気がする

間違った、left→mid

本来であれば値を返さない関数のほうが異例だと思うんだけどな。
用意されている関数、たとえばlenを使って結果が返ってくることに疑問を感じなかったのだろうか。

何言ってんだこいつ

>>199
君はまだ何も解ってないんだね

関数が入った表の合計値（２０セルぐらい）を毎日朝昼晩コピーペーストして別表に記録しているのですが、

数式の値をコピーペーストするときは
「形式を選択して貼り付け」を選び、「値」を選択しなくてはいけませんが
日々回数がかさむとこの作業がかなりつらく苦痛に感じるのですが何とかショートカットキー一押しや1発ボタンで簡単にできるようにする方法は無いのでしょうか？
詳しい方いらっしゃいましたら宜しくお願い致します。

>>202
残念ながらオレも10年以上探してるけど、その方法は無いんだ。

>>202
補足ですが
メニューの箇所の貼り付けアイコンのプルダウンメニューから値を選択する方法は把握しています。
しかしながらこの操作はマウス操作をミスる場合があるので使っていません、今の所多機能マウスのボタンにマクロを割り当ててそれでやってますが
ＰＣ内で他の作業が突如割り込むと誤作動を起こします、本当に胃が痛くなります。シンプルに1コマンドで出来る方法がありましたら宜しくお願い致します、、

>>203
まじですか・・。（'A｀）

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 エクセル　スペース　削除

セルに複数の単語が入っています。
セルは１列で３００行弱です。
単語の文字数は決まっていません（だいたい１〜１０文字）。
単語と単語の間にはスペースがあります。
スペースの数は不規則です。
１文字目にもスペースがあることもあります。

こんな感じです。

山田太郎　　　愛知県名古屋市　３５歳
　石田健一郎　　　　東京都　　２０歳　　男

これを、スペースを削除し、さらに１つのセルに単語１個ずつ入った状態に振り分けたいです。
よろしくお願いします

>>204
２０１０ですか。

右くりっくで値貼り付けのボタンがあったと思うけど。
それじゃだめなの。
意味取り違えているかな？

>>207
2003です、今見てみましたが2003にはまだついていないようです、、（'A｀）　

>>208
ゆーざー設定でボタンを出しておくことができる

>>202
2003なら
ツール → ユーザー設定 → コマンド
→ 分類から編集を選択 → コマンドの値の貼り付けを適当なメニューバーへドラッグ

俺はこの４つのボタンはよく使うな

値の貼り付け
書式の貼り付け
数式と値のクリア
書式のクリア

2002にはその機能無いんだけど

>>212
あるよ

>>209
>>210
>>211
出来ました！これはいいですねぇ。これで苦痛の種が消えそうです、、どうもありがとうございました。m(._.)m

>>212
よく覚えていなけど、95でもあったと思う

>>206
”区切り位置”使ったらどう？

前スレ>>980
バグみたいですね
http://www.moug.net/faq/viewtopic.php?t=61767

前スレ981

　　981 名前：名無しさん＠そうだ選挙にいこう[sage] 投稿日：2012/01/07(土) 12:47:48.33
　　　　 >980

　　　　 数式が違ってる or 眼科

>>216
できるんですね。”区切り位置”で検索してみます。ありがとう。

>>216
ありがとうございます。できました。
スペースから始まるセルはズレちゃうけど、満足です。
これで格段に作業が捗ります。

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

ドロップダウンリストから選択した項目にそれぞれデータを与えて
セルに代入する方法を探しています。

具体例としてドロップダウンリストにa〜dの項目をセット
a が選択された場合にA1〜D1に1,2,3,4を代入
b の場合は　2,3,4,5 を代入と言うようなことをやりたいです

・ユーザフォームは使いたくありません
・項目に与える値はコード内に記載したいです。

自分で調べたのですがいまいちヒットしません
検索ワードなどでも教えて頂けると助かります。

>>221
Worksheet_Changeで
ドロップダウンリストかどうかは関係ない

>>202
2007ならよかったのにね。
2003で、マクロでやろうとしたんだけど、間違えたときに戻せなくて諦めたよ。

>>221
入力規則（valodation)とWorksheet_Changeの組み合わせか
コンボボックスかリストボックスを配置する

すまん。validationの間違い。

>>222
>>224
ありがとうございます　試してみます

質問です
2003を使っているのですが印刷プレビューではちゃんと画像が表示されているのに
印刷すると真っ白で印刷されてしまいます。
何が原因でしょうか？

>>206
trim関数で値貼付けしたら消える
>>227
インク切れ
ページの指定間違い(ページを指定せずに印刷してみる)

>>228
ありがとうございます。
インク切れではないです。
ページを指定しなくても真っ白になります。
ただページ設定なんですが普通の状態だとちゃんと印刷範囲が設定されているのですが
印刷プレビューに切り替えると画像はちゃんと出ていても印刷範囲が設定されていなくて
設定することも出来ない状態です

>>227,229
オブジェクトを印刷する　のチェックが外れてるのでは？

すみません
オブジェクトを印刷するはどこにあるのでしょうか？

>>229
> 印刷プレビューに切り替えると画像はちゃんと出ていても印刷範囲が設定されていなくて
> 設定することも出来ない状態です

ここがどういう意味かよくわからないんだが、説明しなおせる？
ところで２０７は俺だよ。

>>230
それだとプレビューにでないと思うんだが。
プリンタによって違うかもしれんけど。
>>23１
図をダブルクリック

すみません、作ったファイルは印刷プレビュー画面にするとちゃんと表示されています。
そこで設定を押してシートをみると印刷範囲が灰色になっていてせっていできないじょうたいになっているんです。
印刷プレビューじゃない通常画面だとここには数値が入っているんです。

Excel2003でも2010でもいいけど、自分で設定したセルの表示形式(セルの書式設定の「表示形式」タブに当たる部分)を、
次から一発で再利用できるように、ツールバーとかに登録できないかな？
次のような方法では、ちょっと困る。
�@自分が好きなセル表示形式を盛り込んだテンプレートファイル(.xlt)を作っておく。
→臨機応変(気まぐれ)に、あちこちのセルで表示形式を簡単に再利用したいので、ちと柔軟さに欠ける。
�Aどっかのセルをコピペする
→あくまで「表示形式」だけを再利用したい。罫線とかまでコピペされると嫌。

>>234
ファイル-印刷範囲-印刷範囲のクリア

>>235
VBA

>>233
すみません図はないんです。ただの申込書を作成しただけですから。
>>236
クリアしましたがやはり白紙で出てきます。
インクチェックもしましたが正常です。
yahooのトップページを印刷したら正常にカラー印刷できました。

>>238
すまん。画像というのが図形だと思い込んでた。

他のエクセルファイルが印刷できるか。
新規ブックにコピペして印刷できるか。

すみません他のも印刷できませんでした
新規bookにコピペシテもだめでした

>>240
ごめん。お手上げ。

>>238
改ページプレビュー画面だとどうなっているの？

>>242
普通に作成した文章が表示されています。

あっ、他のファイルも印刷できないのね。それじゃ関係無かった。
無視してください。

>>243
他のプリンタはないですか。pdfプリンタとか。

すみません、プリンターはひとつです。ためしに再起動してみましたがだめでした。
エクセルを再インストールしてみます。
今日はありがとうございました。

これはわからん／(^o^)＼

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

商品（ここがA1セル）
バラ
サクラ
ウメ
商品
モモ
アジサイ
商品
ペチュニア
シバザクラ
コチョウラン
カスミソウ
商品
ケイトウ

こういう列があるとして、「商品」含むセルだけを（A1セル以外）行ごと
終わりの行まで削除したいです
よろしくお願いします

>>248
・オートふいるで抽出して削除
・作業列に番号を振って商品の列で並び替え→商品を削除→先の番号順で並び替え

>>249
申し訳ありません、言葉が足りませんでした
VBAだとどうなるでしょうか？

>>250
Sub Macro1()
Dim gyo
gyo = Range("A65535").End(xlUp).Row + 1
For i = gyo To 2 Step -1
If Cells(i, 1).Value = "商品" Then
Rows(i).Delete Shift:=xlUp
End If
Next
End Sub

for eachの方がいいんだろうけどねぇ
まぁいいか

>>251
どうせなら"A65536"にしてはどうだろうか

そうかA65535にした理由がわかった

12分か
気づくの遅すぎｗ

>>251
やってみます、ありがとうございます

>>254
２行修正しました。これじゃだめですか

gyo = Range("A65536").End(xlUp).Row
Rows(i).Delete

>>248
解決しちゃったようだけど・・・

For Each〜Nextではこんな感じ

Sub test()
Dim r As Range
For Each r In Range("A2", Range("A65536").End(xlUp))
If r.Value = "商品" Then
r.EntireRow.Delete
End If
Next
End Sub

>>256-257
こちらもまた参考にしてみます、ありがとうございました

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

シート名：1日〜シート名31日までの31個のシートがあるファイルがあります。

その31個のシートのデータを一つのファイルに集めるのにはどうするのが一番早いでしょうか？

基本はX行目〜Y行目までの行をそのまま持っていけばいいのですが、
ただし、シートによってデータの行数がことなります。

>>259
元々1つのファイルなんじゃないの？？？

もし31シートの内容を1つのシートにまとめたいって質問であれば、
1. コピー元シートを選択
2. [Ctrl]+[↑] => [Ctrl]+[←] => [Ctrl]+[End] => [Ctrl]+[C]
3. ペースト先シートを選択
4. [Ctrl]+[V]
が一番早いと思う。

>>260
何書いてるんだ俺は・・・
×2. [Ctrl]+[↑] => [Ctrl]+[←] => [Ctrl]+[End] => [Ctrl]+[C]
○2. [Ctrl]+[Home] => [Ctrl]+[End] => [Ctrl]+[C]

>>261
あぁ、さらに間違っていた、恥ずかしい・・・
×2. [Ctrl]+[Home] => [Ctrl]+[End] => [Ctrl]+[C]
○2. [Ctrl]+[Home] => [Ctrl]+[Shift]+[End] => [Ctrl]+[C]

>>257
おいおい、駄目だと思うぞ？

ここでUnionが出る悪寒

【1 OSの種類 　 　 　 　 .】 Windowsvista
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
　　　A　　　　B　　　　　　C　　　　　D　　　　　　　E　　　　　　 F
１　番号 名前 国語 英語 合計 平均
２　105 黒田 70 81 151(=sum(C2:D2) 75.5(=avarage(C2:D2)
３　104 南 95 93 188(=sum(C3:D3) 94(=avarage(C3:D3)
４　102 加藤 68 72 140(=sum(C4:D4) 70(=avarage(C4:D4)
・
・
・
最終行

EとFの数式を終わりまで持ってくのをVBAで作る場合どうやったらいいでしょう？

>>264
労働組合が出てきちゃったりして

>>235
「スタイル」は？

>>265
フィルハンドルをダブルクリック
http://www.relief.jp/itnote/archives/001648.php
これをマクロの記録で

>>268
どうもですm(_ _)m

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

シート名　「結果」・「X」・「Y」・「Z」と４シートあります。

結果シートの　A１セルに　X　と入力すると、　
XシートのA1セルの値を表示するには何がいいでしょうか？

>>270
結果シートに以下を定義するのはどうでしょう。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 And Target.Column = 1 And Target.Value = "X" Then
MsgBox Worksheets("X").Cells(1, 1).Value
End If
End Sub

YやZに対応すると不正解という引っ掛けか

>>270
indirect関数とか
=INDIRECT(A1&"!A1")

indirect使うと、何も解ってない癖に難癖付けるバカが出てくるぞ

という難癖

【1 OSの種類 　 　 　 　 .】 Windows xp
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 ほんの少しです。
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 cells 範囲　複数
それなりの頻度で範囲が変わってしまうのでcellsと変数にて範囲を指定したいのですが
If Intersect(Target, Range("B17, B19:B26, B28:B35")) Is Nothing Then Exit Sub
どうにもこうにもここだけがrange(cells(,),(,)を繋げても上手く認識してくれません。
何か特別な書式があるのでしょうか？
申し訳ないですがよろしくお願いします。

>>276
質問の意味がほとんど理解できないんだけど、こういうこと？

Intersect(Target, Union(Range(Cells(17, 2), Cells(17, 2)), Range(Cells(19, 2), Cells(26, 2)), Range(Cells(28, 2), Cells(35, 2))))

>>277
まず、こんなに早く返信をいただき本当にありがとうございます。
思ったとおりに動いてくれました。
Unionとは初めてみましたが、まだまだ知らないものだらけだと痛感しました。
質問の仕方もまずかった様で本当申し訳ないです。

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 エクセル　各月　グラフ　比較

http://www1.axfc.net/uploader/Sc/so/312266

上記のファイルにグラフがあります。

各月の４つの製品の作業時間を号機別に比較できるようにしたいのですが
現状だと１２月、１月分、・・・と各月のグラフを用意いないと比較できません。
また、パワーポインタのスライドに貼り付けるため、グラフだけが増えていく状態です。

１つのグラフで、各月の作業時間の比較（特にＣ，Ｄ，Ｅの製品の作業時間が多いことを魅せたい）
のですが、どのようなグラフにすると見やすくなるでしょうか？

どうかよろしくお願いいたします。

>>279
どのようなグラフにすると見やすくなるか、というのはExcelの質問ではない

>>279
保存時にファイルのプロパティから個人情報を削除する
をしないとプロパティに作成者とか会社名が入ったままですよ

>>280-281

大変失礼いたしました。
以後気をつけます。

>>273
ありがと。できました。
ちなみに何で難癖？

【1 OSの種類 　 　 　 　 .】 Windows xp
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 正規表現　VBA
A列に1500件ほどのメールアドレスが入っています
このメールアドレスにメールアドレスに使えない文字
（a-z、A-Z、ハイフン、アットマーク、アンダーバー以外全て）が混ざっていないかを検索したいのですが、
どのようにすればいいでしょうか？

2バイト文字や空白なら検索できたのですが、これ以外全てとなるとどうすればいいかわからないです
よろしくお願いします

>>284
> 【5 検索キーワード 　 　 】 正規表現　VBA
これでググればいくらでもヒットするけど？

> メールアドレスにメールアドレスに使えない文字
> （a-z、A-Z、ハイフン、アットマーク、アンダーバー以外全て）
この認識がそもそも間違っている
RFCをちゃんと読もうな

メールアドレス 正規表現
で検索

しかし数字もドットも使えないのか？

>>285-286
ありがとうございます
解決しました

execlが入っていないPCでexcelで作成したデータをそのまま印刷する方法はありますか？

>>288
Excel Viewer を使用すると、Excel がインストールされていなくても、Excel ブックを表示、印刷、およびコピーできます。
Excel Viewer から別のプログラムにデータをコピーすることもできます。
ただし、データの編集、ブックの保存、またはブックの新規作成を行うことはできません。

>>288
openoffice
グーグルドキュメント
どちらかを使う

>>289
>>290
ありがとうございます

上司「１２３４５−６７８９＝の答えを３３３３３になるにはどうすればいいか考えてきて＾＾」


おまえら助けろ下さいおなしゃっす

俺の職場では、色んなデータがCSVで提供されるけど、みんなCSVはExcelで開いて別ブックへコピペしたりしてる。
またExcelで開いたまんまCSVを上書き保存したりとか、平気でしてる。
それらのCSVは、先頭にゼロの文字が付されたコード(00020とか)が頻出するタイプのCSVであり、
それをExcelで上書き保存までされてると、危なっかしくて気になる。
一応、外部データ取込みウィザードのやり方とかも教えたんだけど、みんな難しがってそのやり方は採用してくれない。

あまりこの辺を、PCに強くない人達に強く言ってはいけないものだろうか？
貴方たちの職場なんかでは、どういう風にCSVをみんな扱ってる？
Excelで開いて上書き保存とかも、あまり目くじらを立てずに黙認しておくべきものだろうか？

>>292
書式設定のユーザー設定で{}

>>292
間違えて送信してしまった
書式設定のユーザー設定で「33333;;;」
とすれば
=12345-6789
と入力すれば33333と出る

>>293
危ないならデータベースからひっぱってくるシステムにするべきだと思うんだが

>>293
それで業務が正常に回ってるならいいんじゃないの？
他の職場の状況を聞いて何の意味があるんだろう

>>293
本人が不都合に感じる事態にならないと無理じゃね？
そこで初めて気をつけようという方向に頭が行くんだから
CSVとエクセルの関連付けは止めたほうが世の平和に繋がるとは思うけどね

>>293ですが。
業務が正常に回っているとは、俺には思えなくて不安です。
CSVのデータがExcelで化けてしまうのを平気で放置している状態では、データの改竄をしているのと同じなんじゃないかと思うのですが。
そこまで大袈裟な問題ではないんでしょうか？
他の職場の状況というか、CSVとExcelに対する、あるべき姿勢というものを聞きたいわけで。

>>299
思えない、って想像なのですか？
その業務のあなたの立場がよくわからないです
問題があるのであればその業務の責任者に伝えて改善すればよいと思います
もしあなたが責任者なのであれば指導して改善すればよいでしょう
これはExcelに関する質問ではないですね

>>299
大手なら既にシステムがあり、データの加工はほぼ一切しない。
得意先の住所でAグループ、Bグループ、など個人的に分けてる人はいるぐらい。
零細なら俺が作ってデータベースから引っ張ってくるようにした

その状態が及ぼす影響を考えてまとめて、然るべき場所に進言するのが君の役目かと

A列の9行分にαβγの３種類の文字列が１文字づつ入っていて
B列にそれぞれ適当な数値が入っています
A列9行分の範囲に同じ文字列が5個以上入っていて
それがA列と一致する場合にB列の数値を1.1倍させた数値をC列に表示
違う場合もしくは5個同じ文字列がない場合B列の数字のままC列に表示
というものを関数のみでできますでしょうか？
質問が下手ですみません
エクセルのバージョンは問いません

>>302
=IF(COUNTIF($A$1:$A$9,A1)>=5,B1*1.1,B1)

>>303
出来ました、ありがとうございました

オートシェイプへの質問です。

オートシェイプを入れ子構造化したいと思っております。

イメージ的には親のオートシェイプに子になっているオートシェイプを
関連付けてマクロからその関係理解して利用できたらと思っています。

このようなオートシェイプの作成方法はございますでしょうか？

まー無理だな
親子関係はセルにでも書いとけばいいんでないの

>>306
なるほど・・・、無理でしたか。
ありがとうございました。

303の回答を見て302の質問の意味が分かったよｗｗｗ

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 エクセル　階層　リスト　入力規則

エクセルで　発注書を作りたいのですが、入力規則のところでつまづいています。

次のようなデータがあります。
メーカー　車種　　年式
トヨタ　カローラ　2000
トヨタ　カローラ　2010
トヨタ　カルディナ　2000
ホンダ　アコード　2001
ホンダ　アコード　2003
ホンダ　ＮＳＸ　2000
ニッサン　ＧＴ−Ｒ　2011
ニッサン　ムラーノ　ホワイト


行いたいのは、３つの入力規則のリストを使用して、メーカー→車種→年式　へと
リストボックスで　選択を行わせていきたいのです。

名前の定義を行い　各メーカーにわけて名前をつけて方法はわかったのですが、
そうすると、メーカーのリストは、データの数だけ表示させれてしまいます。
また、3階層以上になると、名前の定義だけで複雑になってしまいそうです。


どうにかして、　リスト内の同一の名称をはぶきつつ、階層構造のようなリストをつくれないものでしょうか？？

>>309
Excel 入力規則 リスト 絞り込み
でググってみる

リストボックス？
コンボボックス？
ドロップダウンリスト？
プルダウンリスト？

A1　　　B1　　　　C1　　D1
私は　テニスを　空欄　する

「私はテニスをする」にしたいのですが、C1の空欄がスペースとして入ってしまいます。
この空欄を無視するにはどうすればいいですか、
式は＝CONCATENATE（A1," ",B1," ",C1," "みたいな感じにしています。
C1が空欄でないときもあるしB1が空欄の時もあるので、空欄をスペースにしないで文章を繋げたいのですが、お願いします。

ifでネスト

>>312
=A1&B1&C1&D1

>>314
アレッ、＆でいいんですね！
ややこしい式にしてました。
>>313
あの式でやるならifをつかってとかですね、

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

>>315
＆が簡単でいいけど
=CONCATENATE(A1,B1,C1,D1)
でもいいとおもうぞ

みんなすごいな、俺には>>312の質問内容が理解できなかった

>>317
「私はテニスを空欄する」　とおもった？

>>318
いや、なぜ空欄がスペースに置き換わるのか理解できない

なるほど、するどい
もともとC1はNullでなくスペースが
入っているのかな。
だとすると、回答でも入るはずだな。

まぁ>>315で本人は解決してるみたいなので別にいいんだけど、
横で見ていて理解できないから気持ち悪いだけ

確かにキモい
314でも316でも解決しないしな

見た目的にスペースがはいれば何でもいいんじゃないっすかね
=TRIM(CONCATENATE(A2," ",B2," ",C2," ",D2))
が正解だったと思うけど

入れるんかい

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

下の表で「スカート」「ズボン」→「ボトムス」
「シャツ」「セーター」→「トップス」として
B11　B12（できたらこのセル1つずつだけ使って）に関数使って合計入れたいです
宜しくおねがいします

　　 A B　　　　　　　
１　スカート　　　\40,510
２　ズボン　　　　\59,000
３　シャツ　　　　\34,650
４　セーター　　 \27,890
５
６　スカート \63.900
７　ズボン \31,580
８　シャツ \40,760
９　セーター \35,750
10
11 ボトムス \194,990
12 トップス　　　\139,050

スカート、シャツの横にボトムスとかトップスって入ってないと集計できないよ
べつにテーブル作ってVLOOKUPで表示させるといいね

>>325
B11 ： =SUMIF(A1:A10,"スカート",B1:B10)+SUMIF(A1:A10,"ズボン",B1:B10)
B12 ： =SUMIF(A1:A10,"シャツ",B1:B10)+SUMIF(A1:A10,"セーター",B1:B10)

>>327
出来ました、有難うございます
>>326さんも有難うございました

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

ある数値から５づつ足していって
１８０までいけばそこからは逆に５づつ引いていって
０までもっていくって方法はありますか？？

>>329
はい、あります。

　別に難しくないとは思うけど・・。

>>330

すみません、教えていただけますか？？

>>329
A1に数値が入ってるとすれば
A2=IF(COUNTIF($A$1:A1,">180")>0,A1-5,IF(A1>180,A1-5,A1+5))
こんな感じで下にオートフィル

ただ180を越えた時の扱いが分からんのと0を下回った時が分からんのでテキトー

>>332

ありがとうございます。
この式でやってみます！！！

excelの短い日付形式がデフォルトでyyyy/MM/ddにならないんだけどレジストリいじるしかない？

>>334
短い日付形式ってなんだ？
日付のデフォルト書式って yyyy/m/d じゃないの？
レジストリいじってなんとかなるってわかってるならレジストリいじればいいんじゃないの？

初めて、このスレを知ったんですけど、少し質問させてください。
今日、エクセルで作業をしていて、間違ってシートを消去して
保存し、終了してしまいました。
その後、シートを削除した事に気づきましたが、既に、必要な
シートは無くなっていました。
こういう場合、シートを復元できる方法はあるのでしょうか？
ネットで色々と検索しましたが、難しいのかなと思っています。
もし、方法があるようでしたら、どなたか教えてください。
すいませんがよろしくお願いします。

>>336
削除したシートを復元する方法はありません

>>336
ウィンドウズ７なら昔のファイルが復元できるんじゃない？

複数のセルを選択した状態で右クリックすると選択状態が解除されちゃうんだけど、これってバグ？
ちゃんと選択したセルの上で右クリしてるのに
ちなみに右クリックの代わりにアプリケーションキーを押せば問題なく作業できます
＠Excel2010

>>339
うちじゃ問題ないからバグではなさそう
Win7 32bit Excel 2010

>>334
こんぱね

>>338
ウィンドウズ7でエクセル2010を使用していますが、昔のファイルが
復元できるとはどのような方法なのでしょうか？

>>342
それはOSの話なのでExcelとは関係ない、スレチだ

>>335
レジストリいじるところがOSに関わるんで他の方法がないかと探してる
>>341
それはわかってる
長い日付形式は反映されるんだが短い日付形式は反映されないんだ

テンプレで質問しとこう
【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 Excel　日付　デフォルト　とか色々検索

コンパネ→地域と言語のオプションから形式のカスタマイズができるが
短い形式をyyyy/MM/ddにしてもExcelの日付の表示形式にはyyyy/M/dになってしまう
長い形式の変更は反映されているので自分の環境のせいなのかどうなのかがわからない

>>342
http://snow-white.cocolog-nifty.com/first/2010/06/windows-7-2fdf.html

>>343
うるさいねえ

>>344
逆に聞いて悪いけどどこのレジストリいじると変えられるの？

>>344
確かに短い形式は反映されないな。
俺のところはyyyy/M/dとyyyy-M-dにしかならん。

>>344
システムに影響される書式を使うのは何故？
こだわるならユーザー定義のほうがいいと思うんんだが。

>>344
こんな設定あったのか
地域オプションの標準と形式を「北サーミ語(スウェーデン)」
にした状態でエクセルを開き、「1/1」と入力すれば「01月/01日」と表示される
エクセルを開いたまま日本語に戻しても継続される
しかしファイルを開きなおすと元に戻る
謎仕様すぎるので、エクセルの仕様と思って色々諦めた方がいいと思う

>エクセルの仕様と思って色々諦めた方がいいと思う
それって「仕様がない」とおもってあきらめろってこと？

駄洒落でした

>>1-349>>351-1000
ｸｯｿﾜﾛﾀwwwwwwwwwwww

辞書引いてみた
【しょうがないは、本来「仕様がない（しようがない）」と書く。
「仕」は当て字で、動詞「為・・・・・】

駄洒落じゃなかった・・・・

>>346
HKEY_CURRENT_USER\Control Panel\Internationalの
icountryを81（日本）から1（米国）にいじる
そうするとsShortDateの変更が反映される。

気がついたのは地域と言語のオプションで英語（米国）にして短い形式を変更すると
Excelに反映されたんでどっかいじれば日本語でもできるんじゃね？と思って。
>>349
それは普通だｗ
Excelは日付は数値で持っていて表示形式で表示方法を変更してるんだから

Officeツールの言語設定を使えばシステム全体まで影響を及ぼさずにできないかな?

>>353
へーなるほど

で、こんなの見つけた
http://support.microsoft.com/kb/904128/ja
2003のKBだけど、仕様っぽいね。

> 日本語版 Excel では地域のオプションの "短い日付" の順序のみを反映し、
> その形式については直接反映しません。

>>353
日付を数値で持つのはどの表計算でも同じじゃなかったっけ？
OpenOffice系でも同じだよ。三四郎もだけど・・・

>>345
ありがとうございます。
やってみましたが、【利用可能な以前のバージョンはありません】と
出てしまいました。
残念ですが、あきらめます。

>>356
まあ表計算に関係なく、昔からシステムおよび言語系ではそれが通常。
開始日などは、システムで違うけど。

確かにサーミ語だけがmm/ddになる
なにこれ

Excelのシートは何故65483行までなのですか？

Excelのシートは何故 65536行 までなのですか？

>>361
バイトで表してみればわかるのじゃねえの？

>>361
この変でもみて
http://soudan1.biglobe.ne.jp/qa6277423.html

内部的には0行目から始まって65535行まであると思えば良い
見栄えを気にして1行目から初めたので65536行までになっている

>>361
Excelを設計した人たちが決めた仕様なので我々にはわかりません
Microsoftに問い合わせてみてはどうでしょう？

>>361
仕様だからです。
グラフの線の太さが4なのも仕様だし、使用可能なワークシート関数が329なのも仕様です。

オレのエクセルは１０４８５７６行まであるぜ

>>361
2010 32bitなら1048576行ありますよ。65536行の旧製品では行数が足らないということなら2010へ
アップグレードしてみてはどうでしょうか。

>>361
2007からふえてるよ。
以前は、行数のコントロールに短い整数（16bit分）使って65536行コントロールしてる。
2007からは、それを20bit分に変えてコントロールしてるんで1048576行。

OSは32か64bitなんだけど、フルに使うとメモリー等で問題に
なるんで、16bit+4bitを選んだ見たい。

Excel95では16384行だったよな。
オートフィルターなどからコピーできる最大エリア数はそれに由来してる。
Excel95では最終行まで1行おきにフィルタリングされても問題は起きなかったが、97から2007までは問題が起きる。

最近まで65536行なんて一生使うわけがないと思ってたけど
とある統計データをいじってたら早速足りない状況に直面した・・
数字って無限に存在するのにそのボリュームから考えると65536行じゃ全くたりないわな・・ｗ

>>370
>>367

数万行なんてExcelでつかおうとしても実用にはならないけどね　重くて

データ数が多いと確かにアクセスが圧倒的に便利

外部に出力したほうが捗るぞ

Excel2007
1万行x4列で各項目7、8桁程度の数値を入れて単純なグラフを作ることがしたいのですが
重すぎてしゃれになりません
グラフの設定ちょっといじるたびに激重でフリーズして何分もかかってしまいます
どうにか軽くする方法ってありますか？

>>375
・行数を減らす
・PCのスペックを上げる

>>375
計算方法を手動にしてもグラフってダメだっけ？

>>376
行数減らすのは無理ですね
CPU2500Kなのでこれ以上あげるのはきついw

>>377
ちょっとよくわからないのですが
入力している数値は計算式から出したものじゃなくて全部生の値ですよ

>>378
2007以外のバージョンを使う

>>375
OOo使ってみては

Accessでもグラフはできるんじゃなかったっけ

質問させてください

【1 OSの種類 　 　 　 　 .】 Windows７
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 検索したけど理解できる回答がわかりません


社内で共有ファイルを使い入力作業してます（数十人）
保存できません（ディスクがいっぱいです）の表示
ローカルデータとして残すのも不能で閉じれません
対処法を教えてください

データの保存先はネットワークドライブなんですよね？
これの拡張？で解決するのでしょうか？
拡張方法も知りません
どうかよろしくお願いします

>>382
残念ながら質問内容や状況が理解できません
想像で何とかわかるところもありますが、ものすごいラリーが続くと思われます
状況を明確に説明できる方(社内の管理者等)に質問内容を書き直してもらって出直して下さい

>>383
具体的に質問の内容で解らない点を示してくれるとたすかります
全部解らないって言われたらそれまでですけど

エクセル→共有ファイル→保存先→あたりの質問です

>>382
テンポラリファイルがおかしくなってるキガスる
ネットワークドライブがいっぱいになってないか調べる→いっぱいならテキトーに色々削除
隠しファイルを見えるようにして、テンポラリファイルがあるか調べる。残ってたら削除。

とりあえずは一度ローカルに保存してから作業、共有先にコピーなら作業はできると思う

>>384
>【1 OSの種類 　 　 　 　 .】 Windows７
>【2 Excelのバージョン 　 】 Excel2010
>【3 VBAが使えるか　 　 .】 いいえ
>【4 VBAでの回答の可否】 否
>対処法を教えてください
>どうかよろしくお願いします

この6行以外は正直言って理解できませんでした
こちらから状況の確認をしてもあなたでは正確に答えられないと思います
エスパー機能を持った人がレスをくれるかもしれませんがそれで悪化する可能性もあります
まずは社内の管理者等に確認されるべきだと思います

>>382
自分以外だれも編集してなければ閉じれるんじゃないかな

>>385‐387
ありがとうございました

>>382
そもそもdisk fullなんだったらExcelは関係ない
原因の切り分けぐらいしてくれ

>>389
そうですね失礼しました

>>385
とりあえず一番つうようしそうな指摘なのでやってみます
スレ違いすいませんでした

>>375
根本的に軽くする方法じゃないけど
グラフの書式設定をいじろうとするとフリーズするなら、
とりあえずフリーズしない程度の行数でグラフ作る
→納得するまで書式設定をいじって完璧に仕上げる
→最後にデータ範囲を広げる
…って手順にしたらどう？

>>369
非表示列があるとExcel95でもNGだよ。
まぁ昔からExcel使いこなすスキルのない奴で3000行以上ならAccessとかを勧めるやついたよな。
重ければ軽くすりゃいいだけなのに、VLOOKUPとか平気で使ってるんだもんな。

65536行以上のデータベースはアクセス使えやってことをMSは言ってますよ。

>>375
単純なグラフというのは、
生データを全部プロットするとかしたいのか？
それとも、棒グラフのようにまとめたいのか？
どんな感じにしたいの
それ次第で対処は変わるよ

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

　A列　　B列　　　C列　　　D列　　　　　　E列　　　　F列　　　G列　　　H列　　 I列　　　J列　　　K列　　L列　　　M列
潮留店　麻布店　赤坂店　六本木店　日本橋店　品川店　新宿店　渋谷店　銀座店　墨田店　港店　港東店　江東店

A：潮留店〜B：麻布店、E：日本橋店、H：渋谷店〜I：銀座店を消すため

Sub test()
Columns("A:B", "E:E", "H:I").Delete
End Sub

と入れると「コンパイルエラー：引数の数が一致していません。または不正なプロパティを指定しています」
と出ます。潮留〜麻布店だけの

Sub test()
Columns("A:B").Delete
End Sub

は普通に消せますが、最初のコードのどこが間違ってるんでしょう？。
おねがいします。

>>396
まさにエラーメッセージの通りだと思いますが？
「コンパイルエラー：引数の数が一致していません。または不正なプロパティを指定しています」

Range("A:B,D:D,E:E,G:G").Delete
なら動くぞ

>>397・>>398
できましたすいません。
「”」が多すぎたんですねorz

Columns("A:B" & "," & "E:E" & "," & "H:I").Delete
でもおっけー

>>400
型が一致しません。

>401
すんまそん
Range("A:B" & "," & "E:E" & "," & "H:I").Delete
でした

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 エクセル　チェックボックス　カウント

一括で複数のチェックボックスとセルをリンクさせる事は出来ないのでしょうか
チェックボックスの数が多くなってくると一つずつ地道にやるのが大変で…

>>403
VBAがNGなら無理じゃないかな
UWSC等の外部ツール使ってやってもいいと思うけど、
それならVBAでいいじゃんって事になる

>>404
なるほどそうなんですか…
これをきっかけにVBA勉強してみようと思います
ありがとうございました

>>404あきらめろ、おまえにはむりだ。

>>406
マジですか…
そこをなんとかできないでしょうか？

5万行も計算させていたのに、気付いたパソコンの奴が勝手にデータ更新しやがって再起動してた...
保存はされないみたいね。一からやり直し。
お気をつけて。

データ範囲にセルを合わせないようにできるでしょうか？
自分で入力するセル番号以外、セルが行かないようにしたいのですが･･
Excel2003を使っています。

>>409
色々方法はあるが、ScrollAreaをOpenイベントにでも書いておけば？

なんか質問を取り違えたかな？
よく読むといまいち意味が分からん

触りたくない範囲に、セルを動かせないようにしたいのです

直接動かないようにはできないが、動いたことによってどっか別のｾﾙに
飛ばすことはできる。

んで>410に至る。

>409
シート1のA1とC1、E2など飛び飛びに入力したいときは
シート2A1=シート1のA1
シート2A2=シート1のC1
シート2A3=シート1のE2
みたいにリンクさせると打ち間違いが少ない

じゃなきゃVBAで>410かな

>>408
質問の意味がわからない
>>1-6をよく読んで！

>>409
発想の転換で入力作業を行うセルのみアクティブにさせればいい。
その方法は過去レス読んでね。

>>413 >>416
ありがとうございました

最近はEnableSelection使う人少なくなったねぇ。
Excel97からScrollAreaが備わったからかな？

>>418
>最近はEnableSelection使う人少なくなったねぇ。

参考までにどこの情報か教えて貰えませんか？

ｸﾞｸﾞrｶｽ

ｿｰｽはｸﾞｸﾞrです(ｷﾘｯ

て

>>408
ttp://attosoft.info/blog/item-noautoreboot/

これだろ？　みんなが一度は通る道だ。

>>420-421
ググったけど見つからなかった…
もしかすると>>418はウソ情報じゃなかろうか？

>>424
はい
根拠も何もない与太話です
便所の落書きってやつです

>>418
はEnableSelectionのステマじゃね？

誰得

エクセル2007で勉強中なんですが
挿入→図の図・クリップアートってどういった物なんでしょうか？
両方ともJPGとかの画像ファイルをエクセルに挿入できるだけな気がするのですが
使い方の差異や、出来る事の違いを端的に言い表すとどんな感じになるんでしょうか？

>>428
元の画像ファイルの置き場所が違うだけ

>>410も>>418も俺なんだけどな。
他は俺じゃない。

excel2003つかってます。

６か月分の来客数を　縦軸を客数　横軸を日付で作成されたグラフがあります。
月単位の区切り（1/31と2/1の間や2/28と3/1の間など）に縦線を入れたいのですが、やり方がわからず、
オートシェイプで縦線を引いてごまかしています。

うまいやり方ってありますか？

>>431
[Ctrl]+[1]でセルの書式設定ダイアログを表示して罫線タブを選択して罫線を引く

ごめん、グラフなのね
>>432は忘れて

>>431
目盛線の書式設定で補助目盛間隔を1月にする

Excelの集計(2010でいう小計)機能が、最近やたら不便に感じられてきたんだけど、
あまり使わんでピボットに一本化した方がいいのかな。
集計機能の何が嫌かって、集計の優先順変更などが生じて「すべて削除」ボタンを押して集計行を
削除するというのを何度かやってると、馬鹿みたいに時間がかかるようになること。
集計機能を使うのは、パッと見の分かりやすさを重視したいときだけにすべきかな。

俺は特に不便が無いのでどっちも使うよ
環境により遅いようなら無理して使わなくてもいいんじゃない？

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい（コードはある程度わかる）
【4 VBAでの回答の可否】 VBAで希望

　Ａ　　　　　　　Ｂ　　　　　　　　 Ｃ
商品コード　　商品名　　　　　　単価
Ａ01　　　　　　ひみつ　　　　　　　700
Ｂ01　　　　　　きりんのつばさ　　 1680
Ｃ01　　　　　　そつぎょう　　　　　 620
Ｄ01　　　　　　よちむ　　　　　　　 530
↓
略

優先1：Ｃ列（単価）・昇順　　優先2：Ｂ列（商品名）・昇順で
最後行（その時によりまちまち）まで並べ替えたいです
よろしくおねがいします

>>437
マクロの記録でソートを実行すればVBAコードが出力されます

句読点が打てないバカ

>>435
集計や統合はデータが多いときには使えないよ。
ピボットも昔は使えなかったが今は使える。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 出来れば非
【5 検索キーワード 　 　 】 セル内　数字　抽出

一つのセル内にある、
x=123456y=1234z=12
という文字列から3ヶ所の数字をそれぞれ取り出したい。
各数字は1桁から6桁まであります。
数字の桁数が固定ならMID関数を使って取り出せるのですが。

よろしくお願いします。

>>441
=MID(A1,FIND("y=",A1)+2,LEN(A1)-FIND("z=",A1)+1)

>>442はy=のあとね
後はテキトーに変えればなんとかなるじゃろ

>>441
検索キーワードが酷すぎるだろこれ

>>443
ありがとうございます。（先ほどは会社からのため、IDが替わっています）
>>442だと、y=の後ろの数字が123456になった場合、1234しか抽出出来ません。
数字の桁数が変わっても（ｘとｙは1〜6桁、ｚは1〜2桁）対応できるようにしたいのです。

>445
gomennnnasaii
=MID(A1,FIND("y=",A1)+2,(FIND("z=",A1)-FIND("y=",A1)-2))

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel 2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 時間入力


　　　　A　　　　B　　　 　C　　　　　D
1　　　　　　　開始　　　終了　 　単位
2　　　　　　 16：40　　17：50　　　 7
3
4

こんな感じでB2とC2にこの形式で時間を入力すると
分の十のくらいだけ出力されるようにするにはどのように
すればよろしいのでしょうか？
できないのであれば代替案などをお教えいただければ
ありがたいです。

>>447
「出力」ってのはどういう意味？
B2に"16：40"って入力したら、B2に"4"って表示されればいいの？
それともB2に"16：40"って入力したら、どこかのセルに"4"って表示されればいいの？

>>447
=INT(TEXT(C2-B2,"[mm]")/10)
見本としてtext関数は良くないかな
イマイチ他が思い浮かばなかった

>>448
言葉足らずですいませんでした。
B2に16:40、C2に17:50と入力したらD2に70分の
十のくらいの7とでてくるようにしたいのです。

>>449
ありがとうございます。この関数を試したところ、
出力された数値にマイナスがついてしまうのですが
これは計算式的に消すことは無理なのでしょうか？

>>451
http://www.dotup.org/uploda/www.dotup.org2592128.jpg
つかないはずだけどなぁ
B2が1/2　16：40
C2が1/1　17：50
なら起こるので
=ABS(INT(TEXT(C2-B2,"[mm]")/10))
絶対値でくくっておけば問題ない

使いにくそうなGUIですね

>>452
エクセル2007だからとかじゃないですよね？
絶対値でくくってできました。ありがとうございます！
本当に助かりました。

>>453
OS再インストールしてな
メニューバー等、保存できるならしておけばよかったよ

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

【1 OSの種類 　 　 　 　 .】 Windowxp*
【2 Excelのバージョン 　 】 Excel7
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 シート・一致・別シート・・・
シート１
　A　　　　　B　　　　　C
りんご　　青森　　　100円
みかん　　愛媛　　　200円
みかん　　和歌山　　100円
りんご　　長野　　　150円

シート２
　A　　　　　B　　　　　　C
青森　　　りんご　　　　うまい
青森　　　にんにく　　　ふつう
愛媛　　　みかん　　　　まあまあ
北海道　じゃがいも　　　そこそこ
埼玉　　まんじゅう　　　　うまい　　　　　というデータがあったとき

シート２のA列とB列が、一致するシート１のデータを抽出・連結して、
別シートに書き出すにはは、どうすればいいのでしょうか。

シート３
りんご　　青森　　　100円　　うまい
みかん　　愛媛　　　200円　まあまあ

はぁ？

"りんご青森"をひとつの値としてVLOOKUP()のキーにする

>>441とか>>447>>とか>>457とかみたいな
とんでもキーワードで調べている人ってなんなの？
まじめにやれよと思う

>>460
実務データってのはこんなもんだよ。
教科書的な設計で綺麗に作られたデータなんて
割と少ないものさ。

【5 検索キーワード 　 　 】
に並んでる言葉のことを言ってるのだろう

>>460
よろしければ、どんなキーワードで検索すればよいか教えていただけないでしょうか

>>462
ああそういうことか。スマンね。
ただ、適切な検索キーワードというのも
結局はExcelやPCのスキルがあるからこそ思いつくことだ。
まじめにやれってのは非常に失礼な言い方だ。
本人にしてみれば、これくらいで精一杯なのだから。
こういうモノの言い方をする人間に書き込みをしてもらいたくない。

>>457
シート1やシート2の余白を使っていいかによってやり方が微妙に変わってくるけど、
とりあえずシート1のD列に=B1&A1、シート2のD列に=A1&B1という数式を入れてオートフィルしたあと、
D列同士を比較、検索するのが単純でわかりやすい

>>463
表引き、マージとか文字列の比較

>>457
Dim i as Integer
Dim V, W, X
Dim m

V = Sheets("シート1").Range("A1").CurrentRegion
ReDim Preserve V(1 To UBound(V), 1 To 4)

W = Sheets("シート2").Range("A1").CurrentRegion
ReDim Preserve W(1 To UBound(W), 1 To 3)

ReDim X(1 To UBound(W))

For i = 1 To UBound(W)
X(i) = W(i, 1) & W(i, 2)
Next i

For i = 1 To 4
V(i, 4) = V(i, 2) & V(i, 1)
m = Application.Match(V(i, 4), X, 0)

If IsError(m) Then
V(i, 4) = ""
Else
V(i, 4) = W(m, 3)
End If
Next

Sheets("シート3").Range("A1").Resize(UBound(V), 4) = V

修正
For i = 1 To 4はFor i = 1 To UBound(V)

>>467
早速ありがとうございます。目的の処理ができます。

りんご　　　青森　　　100円　　うまい
みかん　　 愛媛　　　200円　　まあまあ
みかん　　 和歌山　 100円
りんご　　　長野　 　 150円

こんな結果になるけど、いいの？

>>470
ここまでくれば、後はマッチしていない行を削除するマクロかけばいいのかな。と思ったもんで。

>>471
重複チェックとcountifでググれ
複数セルを一意としたい場合は＆使って別セルで結合して非表示にでもしとけ

>>471
Dim i as Integer, j as Integer, k as Integer
Dim V, W, X, Y
Dim m

V = Sheets("シート1").Range("A1").CurrentRegion
ReDim Preserve V(1 To UBound(V), 1 To 4)
W = Sheets("シート2").Range("A1").CurrentRegion
ReDim X(1 To UBound(W))
ReDim Y(1 To UBound(V), 1 To 4)

For i = 1 To UBound(W)
X(i) = W(i, 1) & W(i, 2)
Next i

For i = 1 To UBound(V)
m = V(i, 2) & V(i, 1)
m = Application.Match(m, X, 0)
If Not IsError(m) Then
V(i, 4) = W(m, 3)
k = k + 1
For j = 1 To 4
Y(k, j) = V(i, j)
Next j
End If
Next i

Sheets("シート3").Range("A1").Resize(k, 4) = Y

>>464
VBAが使えるレベルでこの検索キーワードが精一杯？
どうかしてるわ

>474
回答もできない無能は黙ってたほうがいいっすよ

配列でMatchかよ。
そんなもの使うより、馬鹿の一つ覚えとよく言われるDictionaryの方がマシじゃね？

>>474
ここは相談所。
キーワードが適切でないことを非難する場所じゃないだろ？
君のすべきことは、「xxのキーワードでググると回答が一杯出てくるよ」
とか、そういうことじゃないのか？
相談に乗ってあげる意志のない人は書き込まないでくれ。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 エクセル　グラフ　表示　分数

横軸が0, 0.1, 0.2, …0.9, 1のグラフ（散布図）があります。
表示を0/10, 1/10, 2/10, …, 9/10, 10/10にしたいのですが
軸の書式設定の表示形式で「分母を10に設定」を選ぶと
0/10と10/10だけが分数になりません。0と１のままです。
どうすればできるでしょうか。

書式を0/10に

出来ました！大感激です。
今まで、テキストボックスを上に貼りつけて小細工していたのが恥ずかしいです。
４７９さん、ありがとう。

Excel2010を買いました。
2010を覚えれば2007も難なく操作できるでしょうか？

>>481
嫌がらせはやめろよ
俺がふざけて質問してるように見えるだろ

嫌がらせの意図があったのかどうか知らんけど、481と同じことを感じています。
会社がもうすぐ2007になるので。
まだ2010買っていないけど。

>>483
Excel 2010 での変更点
http://technet.microsoft.com/ja-jp/library/cc179167.aspx

検索キーワード：excel2007と2010の比較

質問するなら>>1-6を読みましょう

>>484
ごめんなさい。483は質問したかったのじゃなくて。
481がふざけて質問したんじゃないのではと言いたかっただけでした。

　　∧＿∧　 　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　( ´･ω･) ＜　嫌がらせじゃないのに・・・ｼｮﾎﾞｰﾝ　
　　( つ旦O　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　　と＿)＿)

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

Excel2010を買いました。
2010を覚えれば2007も難なく操作できるでしょうか？

>>487
はい

>>487
無理

表計算ソフトの基本部分(数式や関数の使い方)はだいたい同じだけど、メニューのデザインが全然違うから、
何がどこにあるか探すのが大変すぎて鳴きそうになるレベル

>>489
本文ちゃんと読んだ？

【2 Excelのバージョン 　 】 Excel2003
に翻弄されてない？

>>487
マジレスするとExcelで何をするかによって答えは変わってくると思う

例えばうちの会社だと勤務表と簡単な書類作成にしか使わないので
97でも2000でも2002でも2003でも2007でも2010でも難なく操作できたよ
2003→2007で若干戸惑ったけど

なので、具体的にどんな風にExcelを使ってるか(使いたいか)を書いた方が的確なレスが貰えるハズ

Excel初心者ですが
Excelマスターになると何か得することはあるのですか？！

>>492
会社で人気者になれる！

「ねえねえ、これやっといて・・・」
あなたのおかげで周りが楽できる

>>492
このプリンターの調子悪いんだけど・・・とか得意以外のことで使われるようになる

>>494
軒並み氷点下のこの時期はプリンター調子悪いよな。w

エクセルの関数について質問です。

B1セルに10が入っていたらA1セルに100と返し、
　　〃　11か12、13のいずれかの数字が入っていたらA1セルに200と返し、
　　〃　14が入っていたらB1セルに300と返し、
　　〃が空欄もしくは、10.11.12.13.14以外の数字が入っていたら100と返す
数式を組みたいのですがIFとORを組み合わせてもうまくいきません。
どなたかご教授頂けますでしょうか。

>>496
>B1セルに10が入っていたらA1セルに100と返し、
>　　〃が空欄もしくは、10.11.12.13.14以外の数字が入っていたら100と返す

B1=10はA1=100なんだからこの条件おかしいよ（矛盾じゃなくて無駄なだけだけど）

正しくは
B1セルに11か12、13のいずれかの数字が入っていたらA1セルに200と返し、
　　〃　14が入っていたらB1セルに300と返し、
　　〃が空欄もしくは、11.12.13.14以外の数字が入っていたら100と返す
で十分でしょ

てことは
=if(or(B1=11,B1=12,B1=13),A1=200,if(B1=14,A1=300,A1=100))
とかじゃね？
ところで、もしB1に数字以外に文字も入るなら、そのときはどうするの?
B10が文字のときにA1は空欄のままならこんな感じかな。
=IF(ISNUMBER(B1),IF(OR(B1=11,B1=12,B1=13),200,IF(B1=14,300,100)),"")

> 　　〃　14が入っていたらB1セルに300と返し、
不可能

あれ？
条件よく読んだら

>B1セルに14が入っていたら「B1セル」に300と返し、
>　　〃が空欄もしくは、11.12.13.14以外の数字が入っていたら100と返す

これどういうこと?
「B1」に14が入ったら「B1」に300を返すってVBA無しじゃできないよね?
A1に300を返す　の間違いだよね?

>497
レスありがとうございます。
＞A1に300を返す　の間違いだよね?

すみません。A1に300を返すの間違いでした。

>>496
=IF(OR(B1=11,B1=12,B1=13),200,IF(B1=14,300,100))

>>495
プリンターどころかパソコン本体やモニターが低温で壊れてることがけっこうある
朝イチで電源が入らなくなったマシンがどれだけあったことか

>>500
=100+OR(B1=11,B1=12,B1=13)*100+(B1=14)*200

=(1+OR(B1=11,B1=12,B1=13)+(B1=14)*2)*100

>>503,504みたいな論理式でやるメリットは全くないので>>497はマネしないようにね

↑スマン、>>497じゃなくて>>496だった

＞501
できました！
誠にありがとうございます。

>501
たびたびすみません。
空欄があった場合、
100で返されず、200で返ってきてしまうのですが、何故でしょうか。

>>508
式を手入力せず、501をコピペしてもそうなる？

あ、大丈夫でした。
すみませんです。

普通はLOKKUP使うよなぁ。
空白の時の例外はIF使うんだろうが。

すまん、LOOKUPだった

Excel中級者ですが
数式が想定通りに機能せず原因がわからない状態が3時間以上続くと頭が重くなり強烈な吐き気がする事があるのですが一体どうすれば良いのでしょうか？

>>513
吐き気がするなら吐けば楽になるよ

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 エクセル　折れ線グラフ　ドラッグ

Excel2003の折れ線グラフは折れ線上でクリックすると、折れ線のデータの
ところ（折れていくところ）がドラッグできて、対応するデータが入っているセルの
値も自動的に変わったのですが、2010では出来ないのでしょうか？
よろしくお願いします。

できません

>>516
即レスサンクスです。
マジですか。
何でなくしたんだよ。
客に出来るって言っちゃったよｗ

相当複雑なExcelでの表計算はお金を出せば代わりにやってくれる人がいるのでしょうか？

>>518
excel 代行
ぐぐれ

>>513
一人で悩まないで

>>513
ツール　ワークシート分析　数式の検証
で吐き気が収まるかもしれません

>>513
中級者意識から初級者意識へ変われば楽になりますよ。

>>522
菅が総理の時に教えてあげればよかったのに

アンケートの集計をしているのですが横軸に質問番号があり縦に各質問に対する選択した番号が並んでいます。
q1 q2 q3.......
2. 3.
3. 4
2. 1
1. 3

そこで各質問ごとに選択番号の構成比を円グラフ表示させようと悪戦苦闘しているのですがよくわかりません。教えていただけないでしょうか。

>>524
質問の意図を取り違えてたらゴメンなさいね
選択肢毎の回答数を集計してそれをグラフ化すればいいんじゃないですか？

　　　　　　　q1　q2
質問番号1 1　　1
質問番号2 2　　0
質問番号3 1　　2
質問番号4 0　　1

>524
ピボットグラフを使う

1.範囲選択してピボットグラフを選択
http://www.dotup.org/uploda/www.dotup.org2604255.jpg
2.ドラッグ
http://www.dotup.org/uploda/www.dotup.org2604256.jpg
3.完成
http://www.dotup.org/uploda/www.dotup.org2604258.jpg

>>525
一発で出来る機能があるはずと思いまして
ありがとうございます
>>526
ご丁寧ありがとうございます。
このとおりにします。あとから、1は大変良い、2は普通とか凡例を置き換えれますでしょうか？

>>527
googleで
excel　ピボットグラフ　凡例
と検索し、上から8番目
検索できるようになろう

マルチポストはやめよう

俺はこのスレしか見てないからマルチポストとか関係ないもん

マルチとか最近どうでもよくなってきたこれが年ってやつかね

そうだよね>>2とかどうでもいいよね

わりと長い間回答者してるけど>>2とか見たことなかった

解決しましたっていえば別にマルチはいいかなと
もしくは最初からxxとhogehogeで聞いてますみたいな
解決したのに放置はよくないね

>>2-6みたいなクソ長いもの誰も読まないだろ
こんなの読んで理解できるようなやつなら自分で調べて解決できるわ
質問テンプレも1-4だけでいい
質問者が調べた時に使った検索キーワードなんて何の役に立つんだ

次スレからは>>2-6は削除の方向でよろしく

>質問者が調べた時に使った検索キーワード
こんなキーワードで調べるなんて（ｗｗｗ
と楽しむためにある

検索キーワードから質問者のレベルが何となく想像できる
が、質問内容でそれもわかっちゃうので、結局不要な情報だな

より明確に相手のレベルがわかる
上中下だけでなく、コイツは中の下かな？みたいな

回答者だが検索キーわ-ドなんて見てない
レベルなんて見ずにテキトーに回答してるわ

大体こんなとこで質問してる時点でレベル低いんだからそこに優劣つけてもしかたないだろ

Windows7,Excel2010での構造化参照について質問です。

構造化参照は、入力規則のリストの元の値には使えないのですか？

例えば、元の値
=商品マスタ[商品]
などと、設定できれば、分かりやすく、わざわざ名前を増やさなくて済むのですが。

検索キーワードを書かせるのは「質問する前にまず自分で検索しろ」って意味なんじゃね

A1
＋15
＋10
＋05
−05
−10
−15
−20

プラスに関係なくマイナスの上位3コを（例の場合−05.−10.−15）色付けする方法を教えて下さい。

>>543
B列に作業列、LANK関数かな

条件付書式でRANK()

>>543
どうして上位3個が−10、−15、−20じゃないんだろう

>>546
-20＜-15＜-10＜-5＜0

>>543
B列に作業列を作って数式を入れる
=VALUE(IF(VALUE(ASC(A1))<0,ASC(A1),-9999999))

A列に条件付き書式で色を設定する
数式：=RANK(B1,B$1:B$7)<=3

なんかイマイチだな

たとえばC列からM列まで数字が並んでる表がある。
この表のC列からM列までが全てゼロの行だけを、効率よくフィルタで除外するには
どうしたらいいでしょうか。
作業列に「 =IF(AND(C3=0,D3=0,・・・,M3=0),1,0) 」と式を打つのは、AND式の中に
ひたすら何度もセル参照を打たないといけないのでパスしたいです。
できればVBAなんかも無しで。

初心者で申し訳ありません。
auto tab（Enterなしで次の行へ行く）のやり方を教えて下さい。
使っているのはExcel2010です。

ググってもよくわかりませんでした。お願いします。

>>549
=IF(AND(MAX(C3:M3)=0,MIN(C3:M3)=0),1,0)

>>550
TABキー、カーソルキー

>>551
そういう手があるんですね。考えつきませんでした。
有難うございます。

>>549
=COUNTIF(C3:M3,0)=11

>>549
=SUM(C3:M3)=0

>>555
それだと0以外が入力されててもTrueになる可能性があるよ

Windows XP、Excel2003です。
=1+1のような文字列として計算式がかかれたセルがあります。
これをどうにかして、隣の列に計算式として計算させた答えを入れたいのですが
何かアドバイスをお願いします。

>>555
マイナスのデータがあると全部が0じゃなくても合計が0の場合が出てくる

>>557
VBA使わないと無理

>>557
四則演算で数値が2つなら
findで+-*/の位置を探し、ifで分岐
数値はmidで取得すればおｋ

>>560
かなりアナログですがmidで数値取得していけました！
ありがとうございました。

559 VBA使わないと無理（ｷﾘｯ　とか、もうね

>>561
え、まじｗ
いうだけっておいてよかった

>>559
つかえば何でもできるんだな

計算式をふつうにいれといて、それをVBAで文字列として隣に表示する方がかんたん

ユーザ定義関数を
Evaluateで作ったほうがいいよ
func = Evaluate(str)
1行でしょ

>>566
Replaceでイコールを置き換えるだけじゃダメなの？

普通に数式として入れといて隣のセルには値貼り付けする。
式は式として表示する設定にしとく（ctrl+shift+'だっけ）
テストの模範解答みたいなもの作るならこの程度でいいんじゃね。

1.OS　XPから7までなんでも可
２．EXCEL２０００から２０１０までなんでも可
３．VBAは多少分かりますが、
むしろそれ以外のエクセルの基本的なことがほとんど分かりません。
4．VBA以外の方法を教えてください。（VBAなら簡単に出来ることです。）
5.　Excel　範囲　取得　−VBA

質問内容
シート上に行数不定で5列の表があります。
4列目に数字が入っていて、5列目が空欄の行だけ
4列目の数値を加算した合計がつくりたいです。
検索範囲はセル（D３）から下に向かい表が終わるまでで、
合計値はセル（D2）に入ります。
現在は表が２８行までなので、
D2に以下の式を入れてます。
=SUMIFS(D3:D28,E3:E28,"")
今後も行数は増えるのですが、表の大きさを動的に取得する方法はないでしょうか？
VBAならCells(Rows.Count,4).End(XlUp).Rowで簡単に分かるのですが、
セキュリティーの都合上、VBAの使用が禁止されています。

>>569
A:Aみたいに全体の取得じゃダメか

>>569
表の大きさって行数を把握するのだったら
空欄のない列をCOUNTとかCOUNTAすればいい

あとはセル参照を返すOFFSETと組み合わせて
A列で行数を計るとすると、べたに書いてだいたい
=SUMIFS(OFFSET(D3,0,0COUNTA(A:A)-1),OFFSET(E3,0,0,COUNTA(A:A)-1),"")

実際は行数取得部分を別セルにするとか
名前を使うべきだし
テーブルを使った方がいい

>>570
ありがとうございます。
私はダイレクトにデータ終端を探すことばかり考えていました。
列全部を範囲指定するというのも確かに一案ですね

>>571
ありがとうございます。
私はExcelに関しては本当にズブの素人でして、
普段はなんでもかんでもVBAで片づけるひとなので、
ExcelではIF文さえろくに使いません。
ましてやOffsetなんてろくに使ったこともないし
（VBAではよく使うんですけど、Excelのはちょっと違うんですよね？）
名前とかテーブルとかピボットとかも
『そういう単語を聞いたことがある』というレベルです。
いまから、教えていただいた単語をキーワードに検索しようと思います。

お二方とも、本当にどうもありがとうございました。

>>572
なんでもかんでもVBAで片づけてしまえるぐらいの人なのであれば、
関数リファレンスに目を通せばどうにでもなると思うんだけどな
ボリュームも高が知れてるし
http://office.microsoft.com/ja-jp/excel-help/HP010342656.aspx
http://office.microsoft.com/ja-jp/excel-help/HP010079186.aspx
http://office.microsoft.com/ja-jp/excel-help/HP005204211.aspx

VBAでなくVBの間違いだと思うが、EXCELになれてなきゃ
キーワードすら思いつかないだろうな。

あるいは･･･ry

>>574
質問の中で「VBAならCells(Rows.Count,4).End(XlUp).Rowで簡単に分かる」って書いてるので
Excel及びExcelVBAに慣れていない訳がない
VBAがNGなのであれば関数で対処するしかない
関数で対処するならリファレンスぐらい目を通すでしょ、全部読んでもたいしたボリュームじゃないんだから
VBAわかるぐらいの人なら関数リファレンスに目を通してるときにピンとくるものがあるでしょ

何ムキになってんだよｗ

>>573
どうもありがとうございます
そういうのあまり読んだ事なかったので大変勉強になりますです。
>>574
いえ、VBは触ったこともないです。
VBAは仕事で2年ぐらい使ってるので少しは分かります。
ただ、572を改めて読み返すと
私がVBAのエキスパートであるような書き方になってますが、
より正確にいうと、
自分の業務で必要なことを
Excelの基本的な関数などをつかえれば簡単なのに
分からないからわざわざVBAでやってる、という意味です。

実際に普段よくやる業務は、複数のCSVファイルから必要なデータを抽出して
新規ブックにコピー、そこから相関分析したりグラフを作成したり、という感じのことでして、
ブックなどを操作する関係上、VBAとの親和性が非常によろしいのです。

>>575
私が変な書き込みしたせいで
なんかフォローしてもらってどうもすみません。

で、実は572の書き込み後に知人の訃報が舞い込みまして
ちょっとバタバタしてましたのでまだ何も調べてない状態です。
せっかく教えてもらったのに申し訳ないです。
週末に葬儀なのでそれが終わってからじっくりやります。

訃報とか葬儀とかは我々にとっては関係が無い。申し訳ないが。

>>578
宇宙人？

個人的なイベントを質問スレでいちいち報告するな

なんこもある円グラフの大きさを揃えるのってどうすればできますか？2007です。

>>581
適当に改造してくれ

Dim s As Shape
For Each s In ActiveSheet.Shapes
With s
.Width = 100
.Height = 100
End With
Next

>>582
vbaがいるんですね

>>581
VBA使わないなら

グラフをコピー＆ペースト
元のデータの参照先を変更

グラフ100個とかあるならVBA使った方がいいと思う

>>582のような1文字でもWith使った方がいいの？

withって入力を少なくする以外に、処理が早くなるとかそういう面でのメリットあったりする？

>>585
オブジェクトの参照回数が減るので、厳密に測ればちょっとだけ速くなるけど100個程度なら違いはわからん
個人的な基準だとwithの中が5行以上ある時はまとめる

分かり易さの問題が大きいかな
For Each使った時は必ずセットでWithを使う
みたいな自分ルール作っておくとプログラミングが楽

>>585
入力を少なくするってのは論外な気がする
コードの読みやすさ(メンテナンス性)と処理速度のトレードオフだと思うよ

withはマクロの自動記録ぐらいでしか使わない
慣れてないせいか非常に読みにくい、書きにくい
余程でない限り処理速度はほぼ0だろう

>>588
入力を少なくするって十分メリットだと思う

一つのオブジェクトに対して複数の操作をするときに便利だし、
With節の中で"."で始まるものは全て同じものに対する操作だと分かるから
個人的には見やすくも感じる
まぁWith無しでオブジェクト変数に突っ込んでも同じようなことできるけど

>>589
確かに慣れの問題ってあるよね

>>590
書き方が悪かったかな
プログラムは如何に正確に如何に速く動くかが重要で、そこにコードの読みやすさが加わる
コードが少なくて重いよりはコードが多くて軽い方が利用者にとってはありがたい
>>585みたいに、入力を少なくするという理由を第一に上げるのは論外だと思った
Withステートメントを使うことで結果的にコード量が減るのはそれでいい、見やすくもなるしね

Excelで勤務時間を管理する表を作っているのですが
時刻を入力するセルの表示形式は [h]:mm にしています
集計しやすいように10進数に変換する時に、=A1/"1:0:0" という式を使用して正常に集計できているのですが、
この /"1:0:0" の意味がよくわかりません
どなたかこの意味をご存じないでしょうか

１時間で割ってるんじゃないの？

>592

Excelの中の人は日時を扱う時ｼﾘｱﾙ値という単位で扱ってる。
あとは　[ Excel ｼﾘｱﾙ値 ]　でｸﾞｸﾞﾚ

マクロの自動記録でwithを使うってどうやるの？
Selection Selectもマクロの自動記録のとき無くしたいんだけど・・・

"1:0:0"は1/24(24時間のうち一時間)
こんな記述方法は初めて見た

>>595
そのへんは自動だからどうしようもない
いやなら自動記録したあと手動でなおす

なるほど、こういうことなのですね
"1:0:0"＝TIME(1,0,0)＝1/24＝0.04166…

例えば入力が"27:45"の場合のシリアル値は 1.15625 で、
1.15625/"1:0:0"＝1.15625/TIME(1,0,0)＝1.15625/(1/24)＝27.75
ということなのですね

元々の勤務時間表を作った人は既に会社を辞めていて
今回それの改造を頼まれて式の意味が理解できずに困っていました
みなさんありがとうございました

【対アフィブログ転載監視・通報対策総合スレ 10】
http://engawa.2ch.net/test/read.cgi/poverty/1328593580/

見えなくなってる行や列を含んだ範囲をコピペすると、
コピーされる側は、その見えなくなってた行や列も表示されてしまうんですっけ？

(1) フィルター機能を使って見えなくしたとき
(2) 表示にして見えなくしたとき
(3) 集計機能を使って見えなくしたとき
(4) (他にあったっけ？)

のそれぞれの場合で振る舞いは違いますっけ？
自分の場合、コピーは表示されたり表示されなくたり気まぐれの印象だけど
これを機会にきちんと理解して覚えようと思うので、お願いいたします。

>>600
その質問する間に試したほうが早くないか

>>601
あなたのExcel分析力を試しているのですが・・・

ぇぇぃ。
自分で試した結果を教えてやる。

フィルター　→　コピペ先で表示されず
非表示　→　コピペで表示される！
集計　→　コピペで表示される！

みんなもそうなったか？
役に立つ情報だろう。
みんなもしっかり覚えたまえ。

>>601
そう返す前に自分で試した方が早くね？

>>603
このスレ荒らして何がしたいの？

寂しいから構って欲しいの
どうやったら釣れるか必死に考えてるの

>>603
その辺りはバージョンによる変更が怖いので毎回試してる

マクロの記録で、2003までは記録できていたオートシェイプの操作が2007では記録できなくなりましたが
2010はどうですか？

>>608
2010発売直後ならともかく
ググれよ
その質問200回以上答えたよ

>>609
何度も釣られるなよ…

>>610
608のGoogle検索力を試しているのですが・・・

200回も答えたならあと1回くらいどうってことなくね？

そういえば200回くらいその質問したわ

【1 OSの種類 　 　 　 　 .】 WindowsVista
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 表示形式　文字　複数　@

ひとつのセルに例えば「00:D1:F2:08:24:C8」っていうのを入れたいんですが
「:」を入れるのが面倒なので「00D1F20824C8」って入力するだけで
「00:D1:F2:08:24:C8」になる方法はないですか？

表示形式のユーザー定義で@とか#や0を使う例は見たんですけど
数字だけじゃなくて英数字で複数の場合に何か方法はないでしょうか？
隣の列に関数入れてっていう方法はフォーム上使えないので
表示形式とか入力規則とかでやれたらと思ってます。

>>614
VBAじゃないと無理

＞隣の列に関数入れてっていう方法はフォーム上使えないので
いや、使えるよ？

>>616
あ、シートじゃなくてフォームだったの？

>>616
>614は会社で用意されてるフォーマットって意味で使えないと言ってるんだと思う

会社で用意したファイルにデータを打ち込んでいくって仕事だったら
そもそもユーザー定義や入力規則を勝手に弄れない（弄るべきでない）でしょ。

途中経過は何でもいいから最終的に決められたファイルにデータが入力されてればいいって話なら
作業用のブックを用意して00D1F20824C8を00:D1:F2:08:24:C8にする関数でも入れてやって
入力が全部終わってから値貼り付けでもすればいい。

a

b

c

d

という一行おきのデータが大量にあるのですが
これを
a
b
c
d
にする方法はありますでしょうか？

>>620
その列を選択し、Ctrl+Gで空白セルだけを選び出し、それを削除。
何か聞いてきたら上に移動。

>>620
セルの削除した後F4（繰り返し）をテキトーに連打

>>620
オートフィルタかけて「空白セル」だけ抽出→行削除　ではダメでしょうか？




質問です。簡単にいうと「1円単位で割り勘」させたいのですが、どうしたものかと思っています。
入力そのものはエクセル全く解らない人にお願いするので、「数字入力用のシート」と「計算式を入れたシート」を別にして
計算式用のシートにリンクで入力用シートから数字を引っ張ってきて、そこで計算させようとしています。
入力用のシートに、金額としてたとえば「１０００」を、割り勘する人数としてたとえば「３」と入力したときに
「３３３」「３３３」「３３４」という回答を返すいい方法はあるでしょうか。
金額も、割り勘する人数も毎回変わります。また、負の数を割り勘することのほうが多いです。

>>621
>>622
>>623
ありがとうございます。
全部試してみます。

>>621
のやり方で出来ました。

2010のオートフィルターむずいorz

>>622>>623
>>625によると>>621の方法が採用された。
見たか？オレの偉大な力を。

>>623
その1
A1に金額、A2に人数
A3="一人あたり"&(INT(A1/A2)&"円。端数は"&A1-(INT(A1/A2)*A2))

その2
A1に金額、A2に人数
B1=IF(ROW()>$A$2,"",(INT($A$1/$A$2))+IF(($A$1-(INT($A$1/$A$2)*$A$2))>=ROW(),1,0))
B1から下へ、テキトーにオートフィル

>>626
すげー！まじアンタ天才！！
って言いたいとこだけど>>621は思いついた上での回答よん

度々すいません

1 アキ
2 ミホ
3 ミキ
4 ユミ
5 リエ

というデータと

1 5000
3 800
5 9000

というデータがあるのですが

これを統合して

1 アキ 5000
2 ミホ
3 ミキ 800
4 ユミ
5 リエ 9000

という風にするにはどうすれば良いでしょうか？

>>623
こういうのはExcelの問題じゃなくて
算数の問題じゃないのか
x円をn人で割る(小数点以下切り捨て)
残りはm円(n円未満)になるので
m人に1円ずつ足す

>>628
ふつうにVLOOKUPか、OFFSETとMATCH
じゃないのか
VLOOKUPも知らないのか？

>>628
しばらく最初の人が「アホ」に見えっぱなしだった。
もう寝る。

>>628
実際はどのシートのどんなセルに入ってるの
多分それは行っておいたほうがいいと思う
>>630
知らないんじゃないの
>>631
おれも。寝不足はよくないにあ

>>630
知りませんでした。調べてみたけど難しい…

>>632
もともと2つのシートがあって
今はそれを同じシートに適当に入れています
最初の数字の代わりに文字列のIDが入ってます
名前はそのまんま
数字は金額です

データは何百もあります。

>>633
こんなんでいいかね
http://www.dotup.org/uploda/www.dotup.org2622389.jpg
ABEF列は>623の通り
C1=IF(ISERROR(MATCH(A1,E:E,0)),"",INDEX(F:F,MATCH(A1,E:E,0)))

>>634
出来ました！
有難う御座います。

>631

俺も>631見るまでアホだと思ってたｗ
不思議〜

>>619
アホか
そんな手間かけるなら最初から：を含めて入力した方が早いわ

>>637
データ量や作業頻度によるんじゃねーの

>>618,619
どこにも「会社」なんて書いてないぞ？

>>636
そっか。
俺は、ミホとユミは後期の試験で忙しくて、
１月中はお店休んでたのかな〜
とか、考えてた。

>>637
わずか2行で書けるものを手間とか

>>641
意味が理解できていないのに無理してレスするなよ

>>641
参考までに教えて

この手の質問はどんな仕事あるいは趣味で使うのか、
どういった目的や背景があるのか、
その辺が分かると答えるの楽なんだけどなあ

VBAありなら、楽なんだろうけど

楽してもログな事はないよ
人間は苦労すべき

>>646
よかったな、いっぱいレス付くぞ

いやVBA使えるようになるために、努力するからいいじゃないか

ログじゃなくてロクでした・・・

もし6バイトのデータをひたすら打ち込んでいく業務だとしたら
根本的なところで間違った考え方をしてるんじゃないかな、という予感がする

なるほど

MACアドレスみたいな感じだね

作業列にユーザー定義関数で修正してから値貼り付けじゃだめ？
Function マクド(s)
s = Right("00000000000" & s, 12)
マクド = Left(s, 2) & ":" & Mid(s, 3, 2) & ":" & Mid(s, 5, 2) & ":" & Mid(s, 7, 2) & ":" & Mid(s, 9, 2) & ":" & Right(s, 2)
End Function

>>653
VBAはだめらしいよ

>>653
作業列はだめらしいよ

>>653
マクドは関西人らしいよ

>>653
VBAって値貼り付けもできるらしいよ

>>655
作業列は別ブックらしいよ

いろいろ、ありがとうございました。会社で使うデータで
私がその様式を作るので、表示形式（ユーザー定義）などは変更できます。
他の人と共同でデータを追加していくので、作業列は見せたくないのと
他にも入力項目があるので横幅（列）がこれ以上多くなるとスクロールするのが面倒だからです。

日々追加していくのは数件ずつなので、手動で「：」も入れようと思います。
今は紙の状態のものをデータ化していて、大量に入力しないといけないので
何かいい方法はないかと思いました。データ化自体は作業列を作ってやろうと思います。

表示形式（ユーザー定義）では、複数の任意の英数字・文字列を入れることはできないのですね。

>>659
データは毎回12文字？

紙から入れるんならOCRがいちばん速い

>>659
http://www.dotup.org/uploda/www.dotup.org2624545.xls.html
作ってみた
>>661
OCRなら読取革命がよかったな
フリーの期間は短いけど最強だった

>>662
アスペって言われたことない？

>>662をパクって複数行対応してみた

Private Sub Worksheet_Change(ByVal Target As Range)
Dim TMP, RET$, i%, j%
On Error Resume Next
With Target
If .Column = 1 Then
TMP = .Value
For j = 1 To UBound(TMP)
If Not IsEmpty(TMP(j, 1)) Then
If Len(TMP(j, 1)) < 12 Then
TMP(j, 1) = String(12 - Len(TMP(j, 1)), "0") & TMP(j, 1)
End If
If Len(TMP(j, 1)) = 12 Then
RET = ""
For i = 0 To 5
RET = RET & Mid$(TMP(j, 1), 1 + i * 2, 2) & ":"
Next i
TMP(j, 1) = Left$(RET, 17)
End If
End If
Next j
.Value = TMP
End If
End With
On Error GoTo 0
End Sub

>>663
よく言われるよ

>>663
別に良いじゃんよ
>>614が気に入るかどうかは彼自身にしか分からんのだし、
作業列が嫌だとかVBAが嫌だとかは
使って便利なら心変わりするかもしれないジャン。

>>662,666
ありがとう。関数のほう使わせてもらいます。
自分もわからないのに、VBAとか難しいことやると、担当変わったり
何かあった時に困るから・・・
ついでに教えてほしいんだけど
半角12ケタ（プラス「:」）以上や以下でもエラーとかの表示にするにはどうしたらいいんだろう？

>>667
入力規則で文字列の長さを指定すればいい

空気を読まずに再投稿するよ
>>664だとA列への直接入力に対応してなかったから修正した

Private Sub Worksheet_Change(ByVal Target As Range)
Dim TMP, RET$, i%, j%
On Error Resume Next
With Target
If .Column = 1 Then
TMP = .Value
If IsArray(TMP) Then
For j = 1 To UBound(TMP)
ここら辺>>664と同じなので省略
Next j
Else
If Not IsEmpty(TMP) Then
If Len(TMP) < 12 Then
TMP = String(12 - Len(TMP), "0") & TMP
End If
If Len(TMP) = 12 Then
RET = ""
For i = 0 To 5
RET = RET & Mid$(TMP, 1 + i * 2, 2) & ":"
Next i
TMP = Left$(RET, 17)
End If
End If
End If
.Value = TMP
End If
End With
On Error GoTo 0
End Sub

>>668
ありがとう。簡単なことだった・・・
>>669
それでも私はVBAは使わないですからごめんなさい。

>>670さん
気を使わせてごめんね
俺は>>662さんと違って貴方のためじゃなくて
完全な自己満足でやってることなので気にしないでください。

わかりました。続けてください。

Excel2007と2010だと、名前の定義にAKB48って付けれません。

互換モードなら付けられる

>>673
本当だね、面白い。何でなんだろう
アンダーバーとかを入れれば大丈夫みたいだけど

2007からはXFD列まであるからだろう

おお、ナルホド。思いつかなかった。ありがとう

>>673から>>677までがネタって事？

Mac板でも聞きましたが、こちらでも質問します。
Excel2011の質問です。
Macro1、Macro2、Macro3を作りました。
上記を組み合わせを連続実行する為にはMacro4で「マクロの記録」→Macro1→Macro2→Macro3→「記録終了」だと思うんですが、
記録されません。
どうすればいいでしょうか？

>>679に追加です。
この方法です。
ttp://kabu-macro.com/macro_apply/macro-mix.html
自分のでは1、2、3を4に記録出来ないんですよね。

バージョンによって自動記録の動作もかわるからな、なんとも言えない
2003では
Sub Macro2()
Application.Run "Book1!Macro1"
End Sub
となった
他にはcallで呼び出すって方法もある

>>681
出来れば「ttp://kabu-macro.com/macro_apply/macro-mix.html 」に載っている、
Excelの「マクロの記録」で行いたいんですよね。。
VBAの編集ではこれで大丈夫ですよね？
Sub Macro4()
Application.Run "Macro1"
Application.Run "Macro2"
Application.Run "Macro3"
End Sub

Excel2011では「マクロの記録」では出来ないもんなんでしょうかね。。

>>682
「マクロの記録」

>>683
それでやってるんですけど出来ないんですよ。
Macro4で1、2、3の実行を記録しようとしても記録されません。

>>684
答えがでているのに何でマクロ記録にこだわるの？

>>682
マクロの作成が目的ではなく、自動記録することが目的ってこと？

>>685
「ttp://kabu-macro.com/macro_apply/macro-mix.html 」見る限り出来るようなので
Excel 2011はこの機能がそもそも未対応なのか、なにか他なのか解らずでして。
出来ればボタン押してやる方が解りやすいのもあります。
調べましたがCallでも出来るんですね。ボタンで出来ると助かりますが。。

>>682
> >>681
> VBAの編集ではこれで大丈夫ですよね？

OK

あと６８１がいってるようにcall

Sub Macro4()
Call Macro1
Call Macro2
Call Macro3
End Sub

>>687
ん？
作成したMacro4をボタンに登録して実行するんじゃないの？

>>687
何2011のせいにしてんだよ
お前が分かってないだけだろ
的外れな質問繰り返すなタコ

>>687
ボタンなら
Private Sub CommandButton1_Click()
Call macro1
End Sub

>>687
マクロの自動記録は、マクロを作成するための補助機能だよ。
通常、自動記録したマクロはそのままでは使えないので、少し編集する。
それで、作成したマクロをボタンなりショートカットに登録して実行する。

おまえは、毎回記録するとでも思っているのか。

トンチンカンな回答ばかりでﾜﾛﾀ

「マクロの記録の中でマクロの実行は出来ない」
これで済む話だろ、お前らどんだけ会話が出来ないコミュ障なの？

>>686
>マクロの作成が目的ではなく、自動記録することが目的ってこと？
そんな感じです。

>>688
Callで出来るようになりました。

>>689
Macro1、Macro2、Macro3をMacro4で全実行したいという感じです(CallとApplication.Runでの記述により出来るようになりました)

>>691
ボタンの設置は、、今勉強中ですが、なんとかそこは解りそうです。

>>681の「バージョンによって自動記録の動作もかわるからな、なんとも言えない」との事で、2011では自分が言っているのは出来ないのかもですね。。
それだったら諦めますが。

「ttp://kabu-macro.com/macro_apply/macro-mix.html」に下記記載を見て、あぁ便利そうと思ったんです。

>小さなマクロを組み合わせたマクロの記録
>「マクロの記録」の開始
>↓
>マクロＡ の実行
>↓
>マクロＢ の実行
>↓
>マクロＣ の実行
>↓
>マクロの記録の終了

>>695
> Macro1、Macro2、Macro3をMacro4で全実行したいという感じです(CallとApplication.Runでの記述により出来るようになりました)

だったら自動記録は、もう必要ないじゃん。

>>696
自動記録は諦めた方が良さそうですね。Excel2011だけこうなんでしょう。。アップデートで改善される事を祈ってます。。

他Bookに記述してるマクロを実行(あるいはSubやFunctionを呼び出し)することって
できる？
頻繁にやるのは望ましくない？

>>698
できる。>>681

>>695
そのページはウンコ中のウンコだから参考にしなくていい

自動記録はただの参考にするもので、
マクロはそもそも書くものだからな

そしてまたトンチンカンな回答が…

マクロでコントロールを状況に応じて増やしたいんだけど
そういうことってできる？

たとえば5と入力したら別Window(Form)を開いて
そこに5つのラベルとテキストボックスを挿入したいの。

>>698
>頻繁にやるのは望ましくない？
何にどんな影響を与えるマクロなのかわからないので
望ましいか望ましくないかは第三者には判断できない

>>702
もちろんできる
やり方はVBAスレで質問したほうがいいでしょう

>>702
あらかじめ必要な数のラベルとテキストボックスを用意しておいて
入力した数字に応じて、Visibleプロパティをtrue／False切り替える

>>703
そんな当たり前のことを言ってやるなよカス。
質問者はそれくらいご存知で質問してると思うよ。
なにか手かがりが得られると思って助言を求めてるんだから
あなたが少しでも親切心があるなら教えてやれよ。
単なるストレス発散でいじめ目的なら止めんが。

>>702
Controls.Add
ググれ

>>706
どう見ても質問者から手がかりを得るための書き込みだろうが

>>708
第三者には判断できない

>>709
質問者への回答なので第三者には関係ない

>>709
うまいw

それくらいご存じの上だとしたら>>698みたいに答えようが無い質問をするはずが無いんだがなあ

>>706
まあ６９８はそもそも、できるかどうかすら知らなかったんだし。

>>698
> 頻繁にやるのは望ましくない？

開いているかどうかわからんし、普通しないじゃない。

理解力が低いわりに偉そうな人がいるね
具体的には>>694さん

私、傍観者

>>715
ここはお前のイライラをぶつけるスレじゃないんだからもういい加減にしとけ

FOMの2010はテキストと問題集が1冊にまとめてあって
いいな
内容はブツ切りの連続で学びにくいけれど

問題1
(1)じゃがいもの皮を剥いてください。
(2)冷蔵庫から弁当を取り出してレンジで温めてください

(1)の結果が(2)につながっていかないところが疲れる

Ex2003で出来てた円の図形で塗り潰し(ﾊﾟﾀｰﾝ)右上がり対角線で透過性50％の図形作成がEx2010で出来ません。やり方を教えてくれませんか？図形やグラフについてEx2010に凄いストレスを感じてます。

>>719
http://office.microsoft.com/ja-jp/word-help/HA010355174.aspx

Ex2010てｗｗｗ

Word2010ならWo2010か？

>>720
そのﾏﾆｭｱﾙには塗り潰し(ﾊﾟﾀｰﾝ)での透過性はないので困ってるんです。

>>723
http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1153189826
これかな？
Ex2010持ってないからわかんないけど

>>724
おお〜ありがとございます。出来ないみたいですね。おかげでスッキリしました。

Excel2003条件付き書式の設定方法の質問です。
セルB1〜B10までが条件付き書式の対象です。
違うセルにある数値（例えばA1）

セルA1にある数値より小さい数値に色を入れたいのですが
どうやればいいのですか？
なるだけ作業スペースを作らない方法で教えて下さい。

>>726
基本的すぎるだろ(笑)
どんな入門書にも載ってるだろうし
ググればすぐ見つかる
掲示板で訊くことじゃない
今後気をつけろ

>>726
空白が色付でもイイ
「セルの値が」「次の値より小さい」「=$a$1」
空白で色を付けたくない場合
「数式が」
=AND(B1<>"",B1<$A$1)

>>726
条件付き書式の設定で
セルの値が
次の値より小さい
=$A$1

OS Win7Home 64ビット

このPCにOffice2010がインストールされてますが、このOfficeが32ビットバージョンなのか64ビットバージョンなのかって
どこを見れば判るんでしょうか？

>>730
ファイル−ヘルプ

あぁありました w
スマソです

すでにフィルターがかかってるシートがあります。
つまり行がたくさん見えなくなっています。

そのフィルターしたところのうち選択して選んだ四角の範囲に
別シートで用意したデータをコピペしたいんです。
どうすればうまくいきますか？

エラーみたいなメッセージが出て困っています。

↓エスパーさん出番ですよ

そのメッセージ読みなよ

>>733
フィルターを解除すればいいのではないでしょうか

>>733
TTBaseのプラグインでKill_windowというのがあります
http://funipon.blog73.fc2.com/blog-entry-67.html

これでメッセージダイアログを閉じるのはどうでしょう？

メッセージなんて読んでも意味がわからないので読む必要はありません

いいから答えを教えろカスども

>>738
まず服を脱ぎます

>>738
>>733を騙るなら
「会社でしか再現できないのです。どなたか再現していただけないでしょうか」
って方がイラつくよ★

>>733
昔同じ事になりました
その時は結局ウィルスが原因だったので
ウィルス対策ソフトをインストールしてウィルスを駆除しようとしたら
ウィルス対策ソフト自体がウィルスに感染してしまって
結局OSをインストールし直すハメになりました
無事直りました

お前らマジ役立たず

自己解決しました。

>>742
サーセンｗｗｗｗｗｗｗｗｗ

>>743
どう解決したの。教えて。参考まで。

>>745
フィルターがかかっているわけではなく非表示になっていました

よくわからんが、736は正解に近かったってことか

↑ここまで自演↑

A課 | 1月 | 10
A課 | 2月 | 20
A課 | 3月 | 30
B課 | 1月 | 40
B課 | 2月 | 80
B課 | 3月 | 100

というデータがシート1にあるとする。数字は完全にランダムで、課は他にたくさん続くし、毎月データ蓄積するので月も12月まであり得る。
ここで、3月時点のデータをシート2に

A課 | 単月 | 30
A課 | 累計 | 60
B課 | 単月 | 30
B課 | 累計 | 220

と、1行おきに単月・累計にしたい。ピボットテーブルを使えば楽勝ではあるが、この1行おき表を更に色々加工し
もう一回ピボットテーブルに組み替えなければならないので、避けたい。
数式の長さやカッコも少なめで、マクロもなしで、何とかならないでしょうか。

>>749
無理ですね
何かを妥協しないと

>>749ですが、B課の単月は100の間違いです。

ここはひどいインターネットですね。

あなたは、もしかして例の人ですか？

質問したいことがあるのですが、今日は雰囲気悪いので明日にします。
よろしくお願いします。

>>749
配列数式あたりでいけるかなぁ
やってみる

>>749
とりあえずsumproductで
単月
=SUMPRODUCT((A1:A6="A課")*(B1:B6="3月")*(C1:C6))
すべての累計
=SUMPRODUCT((A1:A6="A課")*(C1:C6))
1月〜2月はできるかどうかわからん。

こんなデータがあります

うんこ　1
うんこ　2
しっこ　3
ちんこ　4
まんこ　5
うんこ　6
まんこ　7
ちんこ　8
ちんこ　9
うんこ　10

これにうんこでフィルターがかけたらこうなります。

うんこ　1
うんこ　2
うんこ　6
うんこ　10

この状態で別シートの下記データを第3列にコピペしてやります。

うんこ1号
うんこ2号
うんこ3号
うんこ4号

<つづく>

そうすると、こうなるべきだと思いますよね？

うんこ　1 うんこ1号
うんこ　2 うんこ2号
うんこ　6 うんこ3号
うんこ　10 うんこ4号

しかしそうならず、こうなるんですよ。(★)

うんこ　1 うんこ1号
うんこ　2 うんこ2号
うんこ　6
うんこ　10

試しにフィルターをほどいてやるとこうなってました。

うんこ　1 うんこ1号
うんこ　2 うんこ2号
しっこ　3 うんこ3号
ちんこ　4 うんこ4号
まんこ　5
うんこ　6
まんこ　7
ちんこ　8
ちんこ　9
うんこ　10

(★)を実現するにはどうしたら良いでしょうか？

(★)の場所が間違ってた。

(★)は>>758の一行目の最後、
「そうすると、こうなるべきだと思いますよね？(★)」
でした。

>>758
勘だけどまんこにちんこを入れてみたら？

>>760
難易度たけーな

>>757
多分無理だと思う
vlookupかなにかで引っ張ってくるほうがいいかな

並べ替えはダメなの？

vlookupとかは分かった上でExcelってこういう所変だよな
みたいな問いかけしてるように見える

一つのセル内にこんな文字列があるとする

[△△ ○○○ □□□□□]

3つはそれぞれ半角スペースで区切られていて、それぞれの文字数はランダム。
別セルに□□の文字だけを抽出したいのですが、どんな式だとできますか？

それぞれランダムと言いましたけど、それぞれ10文字以上はありません。

>>765-766
VBA使って良いの?
使って良いのならinstr関数とかinstrrev関数を使えば出来る
Cells(a,b)に値が入ってるとして、
一番右端の□□□□□を変数Sに取り出したいなら

S = Mid(Cells(a, b), InStrRev(Cells(a, b), " ") + 1)

(式中の" "は、半角スペースを""で囲んだもの)

>>765
=RIGHT(A1,LEN(A1)-FIND(" ",A1,(FIND(" ",A1)+1)))

>>765
=MID(D13,FIND(" ",D13,FIND(" ",D13)+1)+1,10)

>>765
=SUBSTITUTE(MID(A1,FIND(" ",A1,FIND(" ",A1)+1)+1,9),"]","")

>>768で綺麗にできた。

>>767>>769->>770もありがとう！！

区切り位置でよくね？

Excel2010で作成した図形をｺﾋﾟｰ貼付けする作業中にｼｮｰﾄｶｯﾄで｢ここにｺﾋﾟｰ｣という項目が時々出ます。毎回出すにはどうすればいいのですか？

>>729-730
ありがとうございます！
申し訳ありません。質問を勘違いしてました。

セル
B
1→90点
2→80点
3→70点
4→60点
5→50点
6→40点
7→30点
8→20点
9→10点

セル
C
1→2(上位2個この場合90点と80点)
2→3(下位3個この場合10点と20点と30点)

C1とC2はデータにより毎回変動します。
C1C2が指定した個数の上位と下位にB1〜B9の条件付き書式で色づけするにはどのよにすればいいでしょうか？

>>774
D列を作業列にして以下の式を設定
=VALUE(SUBSTITUTE(B1,"点",""))

B列に条件付き書式で以下の数式を設定
=OR(RANK(D1,$D$1:$D$9)<=$C$1,RANK(D1,$D$1:$D$9,1)<=$C$2)

B列の表示形式を「0"点"」にすれば、D列の作業列は不要になりますね

すいません。実際は点は省略してます。
90
80
70
で表示してる場合はどうすればいいのでしょうか？

>>777
=OR(RANK(B1,$B$1:$B$9)<=$C$1,RANK(B1,$B$1:$B$9,1)<=$C$2)

>>778さん
本当にありがとうございます！出来ました。
B10〜B19などの行数は同じですが異なったデータにコピペした場合は反映されないのですがどうすれば反映されますか？
あと上位は青、下位は赤など異なる色を付けることはできますか？

>>779
>B10〜B19などの行数は同じですが異なったデータにコピペした場合は反映されないのですがどうすれば反映されますか？
意味がわからない

>あと上位は青、下位は赤など異なる色を付けることはできますか？
=RANK(B1,$B$1:$B$9)<=$C$1 → 青
=RANK(B1,$B$1:$B$9,1)<=$C$2 → 赤

>>779
> B10〜B19などの行数は同じですが異なったデータにコピペした場合は反映されないのですがどうすれば反映されますか？
コピペしなければいい
=RANK(B1,$B$10:$B$19)<=$C$1 → 青
=RANK(B1,$B$10:$B$19,1)<=$C$2 → 赤

>>780さん
何度もありがとうございます！色付けも出来ました。
データ数が多いのコピペして使いたいのですが>>781の方法みたいにその都度B10B19のように手打ちで作るほかないのですかね？

OK

はーい！

>>782
$の意味を理解している？

>>782
そのデータ構造だとコピペで条件付き書式を設定するのは難しいと思います
VBAを使えば簡単にできますのでFormatConditionsでヘルプを検索してください

>>785
理解していないと思います

>>786
つかこの程度の質問する奴がVBA使えるわけねーじゃん。そんな歪んだ性格だと孤立するよ社会でw

>>788
お構いなく＾＾

>>789
www

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


Excelなのですが計算式の組み立て方に関しての質問です。

例えば
金額が５万より上ならばかける1.05
５万より下ならばかける1.03
とします。

Excel表のA-1に金額を書き込むと５万より上か下かを判別して後のかける割合も計算できるようにはならないでしょうか？

式が２つになっても構いません。
金額だけ打ち込むと計算できる式構成が全くわからずご面倒ですがどうぞよろしくお願い致します。

>>791
IF関数

>>792
IFですか。確かに！
書いてからも少しいらってみたのですがなかなか・・・
式が出来ているならご教授頂けないでしょうか。

>>792
だな。

ちなみに>>791
金額が５万、では？

>>785
絶対と相対ですよね。いろいろ触りましたがやはりコピペでは出来なかったです。
先生方アドバイス下さい。

>>793
ヘルプはインストールしておいたほうがいいよ

=IF(A1>=50000,A1*1.05,A1*1.03)

>>793
> IFですか。確かに！
いやいや、知ってたけどど忘れしてたみたいなフリしなくていいよw
IF関数って言葉が分かるなら検索すればいくらでも例が出て来ますよ。

>>794
そうです。金額が５万ということでの計算式なのですが

５万より上だとＡ
５万より下だとＢ

かける割合が1.05だとC
かける割合が1.03だとＤ

とすると

Ａの場合はＣをかける
Ｂの場合はＤをかける

金額を入れるとこれらを関数で計算できるようにしたいのですが、もう全くわからなくて。
すみません・・・

>>795
>>786

>>799
マクロは使えないです。

>>795
データのほうをコピペで対応できるように配置しておけばどうでしょうか

>>798
５万ピッタリの場合がわからないので1をかけるようにした
=A1*IF(A1>50000,1.05,IF(A1<50000,1.03,1))

>>798
説明がへたすぎｗ

>>796
今、確認してみましたが完璧です！本当にありがとうございます！
膨大な数を打ち込んでいかないといけないことがあり電卓でしていましたがおかげさまでかなり早く進みます。
ヘルプもインストールさせて頂きます。
ご親切にありがとうございました。


>>797
てへっ。
やっぱりわかっちゃいますよね。
テンプレに試した関数は入れて下さいと書いていましたがIFでやってみたものの的外れ過ぎて書けずでした・・・
ググることもしたのですが検索も上手くできずで・・・申し訳ないです。


レス下さった方々本当に感謝です！ありがとうございました！

>>804
５万のとき1.05なのか1.03なのか？
必要なら自分で修正してね

>>802
すごいです！
先ほど４万と６万でしか試していなかったのですが５万を入力しても数字が出るようになりました。
>>796さんと言い>>802さんと言いすぐに出るそのスキルが高過ぎて感謝です！


>>803
自分で書いてからも疑問符でる程の質問下手です！
ですがそれを汲み取って的確に回答されるここの住人さんたちがすごいです！

>>805
説明下手の前の段階でした・・・
５万の場合は1.05です！

>>800
=RANK(B1,OFFSET($B$1:$B$9,INT((ROW()-1)/9)*9,0,9))<=$C$1 → 青
=RANK(B1,OFFSET($B$1:$B$9,INT((ROW()-1)/9)*9,0,9),1)<=$C$2 → 赤

>>805
=A1*IF(A1>=50000,1.05,IF(A1<50000,1.03,1))

これで良いのでしょうか？

>>808
ぶーーーーーーーーーーーーー

>>808
IF（論理式，真の場合，偽の場合）

>>891
これでも一応５万は出るのですが何か不具合が出るんですね？
さっきから数字をいれていろいろ試しています。どのようにすれば良いのでしょうか。

>>808
５万以上の場合：1.05
そでない場合：1.03

>>809
>>810
>>812

ということは一周回って５万以上は1.05をかけることとする>>796の式でいけるということですか？

>>813
どっちも同じ
=IF(A1>=50000,A1*1.05,A1*1.03)
=A1*IF(A1>=50000,1.05,1.03)

>>813
５万でやってみればわかるでしょ。
式の意味を理解しないと後々困るよ。

>>814
>>815
本当にありがとうございます！
助かりました！
関数は敷居が高くて後退りしていましたが今回の件で式を感がえるのが楽しいと感じました。
全部教えて頂きましたが・・・
これから取り組むきっかけになりました。
式の意味をきちんと理解して真剣に向き合ってみます。


レスくださった方々、ご親切に対応して下さり感謝感謝です！

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

>>807
すごいな。まさに関数を使いこなしてるって感じ。

やってることはわかるけど、自分で考えるのは嫌だなあ。
メンテも大変そうだし。

え？>807程度で「使いこなしてる」なのｗｗ

>>818
絶対的な基準なんてないんだからどうでもいいだろそんなことは
質問に答えられないなら黙ってろ

自分も言葉だけで使えもしないVBA使えとかこの程度とかなんなの？

>>786
コード書いてw

なんか荒れてるな
会社で義理チョコ貰えなかったのか？ｗ

１）こうすれば列を変えてもコピペOKだよね

=RANK(B1,B$1:B$9)<=$C$1 → 青
=RANK(B1,B$1:B$9,1)<=$C$2 → 赤

２）とりあえず他の列の１〜９行にデータを移動させ書式をコピペ
３）その後、データをもとの位置に戻す。

>>779で「B10〜B19などの行数は同じですが」って書いてるのが引っかかる
B1〜B9は9行だけど、B10〜B19は10行なんだよね

>>807さん
何度もありがとうございます。まだうまくいかないです。。。

>>823さん
B1〜B10に他の関数を使ってるので移動するのその関数が消えちやます

>>824さん
書き込みミスです。
B9〜B18の9行です。

>>825
=(RANK(B1,B:B)<=$C$1)
=(RANK(B1,B:B,1)<=$C$2)
上下に数値が入ってたら使えない+C1C2の位置が変わるとどうしようもないけど

>>825
B9〜B18も10行だけど

>>825
誤情報と後出し情報とが多すぎて質問の意味がわからんよ
整理して質問し直すかあきらめるかどっちかにしてくれ
質問し直すのであれば身近にいる人に質問の文面が読みとれるか聞いてから書き込んだ方がいい

>>828
ごもっともです。もう一度自分なりに試し質問も整理し改めます。
回答をして頂いた方々ありがとうございました。感謝しています。

2003
2007
2010

次の最新版はいつ頃だろ

【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】実人数
お知恵をお貸し下さい
のべ人数ではなく実人数を出したいのです。
例　　　　サービスＡ　サービスＢ　サービスＣ　　　合計人数

氏名Ａ　　　　１　　　　　　０　　　　　　　１　　　　　　　　１
氏名Ｂ　　　　１　　　　　　１　　　　　　　１　　　　　　　　１
氏名Ｃ　　　　０　　　　　　０　　　　　　　０　　　　　　　　０
こんな感じです。

>>831
やり方は死ぬほどあるけど
=if(sum(b2:d2)>=1,1,0)
がわかりやすくていいかな

>>831
どういうこと？数字は1か0しかないってこと？
それなら=MIN(SUM(氏名AのサービスAからサービスC),1)で良いんじゃない？

エクセル勉強中だけど
知らないだけでいろんな便利機能が次から次へと出てきて
ゲイツとその手下すげええ！！と思う毎日です

よかったね

どうでもいい余計な機能が付き過ぎて世界中で毎日大量のゴミファイルが産み出されホワイトカラーの生産性を下げる原因にもなってるみたいな話は雑談スレの方でやりましょう

>>831
=OR(B2:D2)+0

>>831
=JIS(0+(COUNTIF(B1:D1,"１")>0))

>>833
数字は整数で０か２の入力
>>832〜839
式までありがとうございます。いろいろ試してみます。

> 数字は整数で０か２の入力

意味不明

0か2なのになんで例では1を使ったの？

>>841
0から２の間違いです。０か１が多い。たまに２があります。

>>842
じゃあーつまるところ最大数を求めたいのね？

=MAX(B2:D2)
かな

Excel2003での質問です

Ａ列とＢ列に文字が入力されているときは、Ｅ列に1と表示される
Ａ列に文字が入力されているがＢ列が空白のときは、Ｅ列に2と表示される

Ｅ列に数値を表示する方法を教えてください
お願いします

Ａ列が空白でＢ列に文字が入力されているときは？
両方とも空白の時は？