Excel総合相談所 94

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

▼━質問時の注意･決まり事━━━━━━━━━━━━━━━━━━━━
･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のように
近い値に勝手に丸められる。

以上でテンプレ終わり （Excel総合相談所 89からコピペしました）

>>1乙です

次スレでは「2007では」を「2007以降では」に直そう。
2010も同じ仕様で出てきたから。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003

発注日: 10/07/12 納期: 10/10/05 受領日: 10/10/05

このようなテキストデータがA1セルにあり、日付をdd/mm/yy形式にしたいのですが、
それぞれ2010/12/7、2010/5/10、2010/5/10になってしまいます。
どこがダメなのでしょうか？

Sub テキスト変換()
　Range("B1") = Left(Range("A1").Text, 4)
　Range("C1") = Format(Mid(Range("A1").Text, 6, 8), "dd/mm/yy")
　Range("B2") = Mid(Range("A1").Text, 19, 3)
　Range("C2") = Format(Mid(Range("A1").Text, 23, 8), "dd/mm/yy")
　Range("B3") = Mid(Range("A1").Text, 36, 4)
　Range("C3") = Format(Mid(Range("A1").Text, 41, 8), "dd/mm/yy")
End Sub

>>9
色々と間違えてます、多分。

↓こうなればいいの？

A1の文字列から、3つの日付をそれぞれC1、C2、C3に取り出す(表示形式はdd/nn/yy)
日付の前にある文字列をそれぞれB1、B2、B3に取り出す

　B列　　　C列
発注日 10/07/12
納期　10/10/05
受領日 10/10/05

こうでしたね、失礼。
というか元の日付は？　YYYY/MM/DDなの？ YYYY/DD/MMなの？(前者でしょうけど)

　B列　　　C列
発注日 12/07/10
　納期 05/10/10
受領日 05/10/10

>>9
表示形式が「標準」(G/標準)のままになっているせいです。
標準では日付は必ず「yyyy/m/d」形式になってしまいます。今回の場合は「文字列」にしなければなりません。
(提示されたコードには概ね問題ないようです。ただ各Mid関数の開始位置が間違えているだけです)

セル値の表示は「表示形式」に依存してます。
またセルに代入された値は、表示形式に合わせて値の自動変換が行われます。
「標準」(G/標準)の場合に日付として解釈できる文字列を代入すると自動的にDate型に変換されます。
さらに表示も「日付」(yyyy/m/d)として機能します。
例えば"99/01/31"をセルに代入すると「1999/1/31」と表示されます。

画面にdd/mm/yyで日付を表示したい場合は2種類の方法があります。
1)表示形式を「文字列」にしておき、表示したい文字列をFormat関数等で生成してそのまま代入する。
2)表示形式を「dd/mm/yy」にしておき、Date型の値を代入する。
2のメリットは、そのまま計算に利用できるたり、セル上で表示を替えられる点です。(発注日から数えて今日が何日目か算出する、y/m/dに変更する等)

※EXCELで文字列が日付として解釈できるかどうか(Date型に変換可能かどうか)は、以下の順にチェックされます
１）y/m/dとして解釈出来る場合(y=1900〜)
２）m/dとして解釈できる場合
３）d/mとして解釈できる場合
４）数字として解釈できる場合(※セルが日付の表示形式になっている場合のみ)
2,3の場合は、西暦が省略されているものと解釈し、システム日付の現在の西暦で補完されます。
4の場合は、単に基準日時からの日数であると解釈し、西暦や月は補完されません(Date型の基準日時は1900年1月1日0時00分0秒です)

>>9
dd/mm/yyってどんな変態日付だよｗ　あー、ユーロはこの表記法だっけ？

そんなもん米国生まれに読ましたらおかしくなるにきまっちょる。
変態を放り込むなら、表示形式を文字列にしとかんとダメ。
コードはちょこっとだけ直しといたから↓

　Range("B1") = Left(Range("A1").Text, 4)
　Range("C1") = Format(Mid(Range("A1").Text, 6, 8), "dd/mm/yy")
　Range("B2") = Mid(Range("A1").Text, 15, 3)
　Range("C2") = Format(Mid(Range("A1").Text, 19, 8), "dd/mm/yy")
　Range("B3") = Mid(Range("A1").Text, 28, 4)
　Range("C3") = Format(Mid(Range("A1").Text, 33, 8), "dd/mm/yy")


参考までに同作業のスプリットバージョン↓
セルの表示形式を扱うコードも盛り込んどいた。(セルの表示形式をdd/mm/yyにしDate値を放り込む)

　Dim Ary() As String
　Range("C1:C3").NumberFormat = "dd/mm/yy" 'セルの表示形式を変更
　Ary = Split(Range("a1"), " ") '半角スペースを境に文字列を分解
　Range("B1") = Ary(0)
　Range("C1") = CDate(Ary(1)) '事前に日付型へ変換(セル側での自動変換を抑止)
　Range("B2") = Ary(2)
　Range("C2") = CDate(Ary(3))
　Range("B3") = Ary(4)
　Range("C3") = CDate(Ary(5))

>>11
フツーの日本人ならyyyy/mm/ddでしょ？
yyyy/dd/mmなんて表記する国があるんですか？

>>12
文字列？
何で問題を摩り替えてんの？
わざわざFormat(Mid(Range("A1").Text, 6, 8), "dd/mm/yy")って書いてるんだから
文字列じゃなくて日付だって気付いてよ

>>13
半角スペースが消えちゃってる・・・・
*が半角スペースです。

発注日:*10/07/12*****納期:*10/10/05*****受領日:*10/10/05

>>14 態度と頭の悪さワロスｗ

>>14
お前自身、日付じゃのーて文字列放り込んどるんじゃけど、気付いとるか？
Format関数の戻り値は文字列なんじゃけど。

>>11も主の頭悪いサンプルのせいで確認しとるんじゃろーが。わしも迷ったわボケ
「フツーの日本人なら」全部2桁で12以下の数字しかなく出所が日本と限定されない年月日の順は正確には分からん
サンプルコードはぶっ壊れててマトモに動かんし、そもそも自分がユーロ仕様で出力しといて何言いよん？

ちゅーかそんだけ文句言うなら自分でやったれや、のう？
わしもコード修正なんてせんにゃよかったわ。朝から気分悪い。じゃあの。

>>15
ここは低脳しかいないですか？

>>16
なに様？
標準語でおｋです。何言ってんのかわかんねーよ

自作自演がたくさん紛れ込んでるじゃないか

A列：数値、B列：テキスト　のようなデータで、B列に、A列の値を使ってグラデーションつけるって出来ないよね？

2010ならできる

>>9
元データがyy/mm/ddなのかyy/dd/mmなのかわからないので適当に作ってみたけど、こんな感じ？
Forを使ってないはわざと

Sub テキスト変換()
　　A1 = Split(Range("A1").Text, " ")
　　Range("C1:C3").NumberFormatLocal = "dd/mm/yy"
　　Range("B1") = A1(0)
　　Range("C1") = A1(1)
　　Range("B2") = A1(2)
　　Range("C2") = A1(3)
　　Range("B3") = A1(4)
　　Range("C3") = A1(5)
End Sub

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

　A　　　　B
1 りんご　　３個
2　なし　　　 ４個　　
3　ぶどう　　３個
4　みかん　 ４個
5　なし　　　 ２個
6　りんご　　５個
7　りんご　　４個
8　ぶどう　　１個

上の表で、Aの列の果物の名前を抽出して、合計個数が大きい順に並べ、

りんご　１２個
なし　　　６個
ぶどう　 ５個
みかん　４個

という形にしたいのですが、そのような方法ありますか？
よろしくお願いします。

ピボットテーブル
並び替えは自動じゃ無理かもしれない

上から見ていって、重複しないなら格納、重複ならB列を合計

>>22
自動ならマクロ、一番効率がいいのがピボットテーブルで集計後並び替え

セルに全角で「３個」と書いてあったら面倒だな

LARGEとかでできるかもしれんけど
マジ全角なん？

全角ならB1=SUBSTITUTE(A1,"個","")*1みたいに作業列作らないとな
ピボットもそろそろこの辺に対応して欲しい。
アホに合わせるのもデファクトスタンダードの使命だと思うんだよね

最近会社変わったんだけど新しい会社だとピボット使いまくるのな
ここでやたらピボットで解決しようとする奴のバックグランドが分かった気がするけど、
やっぱピボットって使いづれーよ
たかがクロス集計いっこ作るのに幾つも手順踏んで何枚もシート作って、正直アホみたいだ。
定型業務ならAccessかVBA使って手順一発で終わらせろよと

>>22
無駄に作業列とか使いまくってみた
ttp://www1.axfc.net/uploader/Sc/so/161990.xls

個数同じ果物あったら正しい結果にならんけどそこまで言われてないし
それくらい自分でやってくれ

大企業：データベースから引っ張ってくるだけ。専用ソフト使えば1手順でほとんどのことが可能（無くても要望が多ければシステム部門が作ってくれる）。他はアクセスorエクセルで数字を引っ張ってくる。
中小：アクセスで集計されたデータ、もしくは正規化されたデータがある。データをテキトーに加工、場合によりピボット。
零細：アクセスがなく、エクセルファイルで集計している。専用ソフトの出力データも正規化されていない。外部からVBAで処理するもエクセルのバージョンの違いでエラー多発←今ここ
>>29
VBA使えるなら組めばいいと思う。ただバージョンが統一されてないとエラーは多発する。

>>31
複乳じゃないか！

まともな会社なら普通はデータベース使うわな
自分で集計しなくてもDBから集計結果が直接取り出せるのが普通
そういう意味でピボット使っていちいちExcelで集計するのはアホ

家計簿とか家庭内の利用なら仕方ないけど

そうはいうが日本は中小企業が多いし、お局様（笑）のご意向で変えられないところもある。
アホアホ言ってやるのは可哀相だ。

excelを表計算ソフトとして使っている人は、またいいほうだよ。
作表ソフトとして使っている人の多いこと。
とりまとめなんか、投げたしたくなることがほとんど。

すべてのセルの高さと幅が40とかにしてあって
さらに縦横結合しまくって表を作るやつとか結構いるよな
方眼紙かっつーの

雑談も雑談スレ使うべきだよな。

【質問不可】Excel総合相談所スレの雑談・議論スレ2
ttp://hibari.2ch.net/test/read.cgi/bsoft/1151651536/l50

>>30
ひでーなおいｗ
そこまで言われてないしにはﾜﾛﾀ

りんごと打つと「りんご　１」
みかんと打つと「みかん　２」と表示されるよう辞書登録してありまして

「りんご　１」と表示された時
１だけを自動的に青く色変換できる方法は無いですか？

例えば
「りんご」と打つと
「りんご（黒字）　１（青字）」となって
自動的に表示されるようにしたいんです。

Excelの使い方を根本的に間違ってるよ
そういうのはVlookupで関連付けする

>>39
それは数字、0-9の10種類のみ？

だいぶ昔に

りんご0000ff１000000
みかん00ff00１000000

って感じのずらーっとある文章で
0000ffから000000までを青に
00ff00から000000までを緑に
一括で色を変えるみたいなマクロは作ったけど相当めんどかった

りんご　１
みかん　２

だと全角スペースを開始にできるけど
「ここまで」ってのがないから無理ぽ
というか数が多かったらもすぬごく時間かかるマクロになってたし人様には見せれないかもしれん

>>39
マクロ使わないと無理
何種類あるかによるけど、たとえば20種類くらいならフォームとか使って入力したら？
いちいち変換するより早いかもしれないよ

「りんご　１」じゃなくて「りんご」と「１」に分割した方がいいと思うんだけどな。

CSVをダウンロードしたとき、文字列の最後に不要な半角スペースが
付いてるんだけど、これを取るのに適した方法は何でしょうか？

>>45
sedでコンマの直前のスペースと行末のスペースを削除

置換

>>47
置換で末尾のスペースだけってどう指定すんの？

正規表現もどきがExcelの置換でも使えたはず

さっぱりワカランです・・・・
おやすみなさい。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 No
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 入力強制変換

エクセルで普通に整数を入力すると自動的に10^-8が乗ぜられる状態になってしまっています。
どこもつついていないし直し方も思い当たらない…汗
一応してみたこととしては書式などの調査などなど。
でもどれも普通だったので直し方が分からないのです。

何か思い当たるところありませんか？
関数はデータ入力をするところ意外でPOWER関数を用いていますが、関係あるでしょうか。

>>51
セルの書式を数値にしたら?

>>52
数値にはなっているんですが…汗
それでも成るので原因不明なのですよ。

>>51
そのワークブックはあなたが作ったものですか？
それとも誰か別の人が作ったものが元ですか？
入力すると自動的に動作するマクロが仕込まれている可能性はない？

新規のワークシートでは入力できますか？
出来るなら、入力できたセルをコピーして該当箇所にコピーしてみて下さい

>>45
適してるかどうかしらんけど
B1=IF(RIGHT(A1,1)=" ",LEFT(A1,LEN(A1)-1),A1)
>>51
ブックをアップロードして欲しい

ぁぁ　ぃゃん

10^-8って二進数−十進数の変換誤差じゃないの？

「乗ぜられる」

書式が
"0."00000000
になってる

>>54
作ったものというよりはエクセル自体の話。
新規にワークブックを作っても同じように成ります。

>>55
ブック自体でないことは確実なのでuploadは却下します。恐らくエクセル自体の設定だから。

>>57
二進数使わないからどうやっていいか分からないです。
十進数のはずなんだが…汗

Excel内部では2進数だよ
http://support.microsoft.com/kb/78113/ja

>>51
ツール→オプション→編集　の
"少数点位置を固定する"がオンになっているのでは？

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

あるセルに SUM(A1:A30) の計算をし、その下のセルは SUM(A16:A45) の計算を・・・
というような作業を数千セルおこないたいのですが、この処理を一度に行う方法はありますでしょうか。

もうひとつ、例えば 1633 という値を 27:13 というふうに秒を 分:秒 という形で表示する関数などはありますか

EXCEL２００７
で棒グラフの中をパターンで塗りたい（右斜線とか、つぶつぶとか）
んですが、2007ではテクスチャとグラデーションしか選べないいでしょうか？

>>63
関数はないけど、普通に割り算して商と余りを出す関数とconcatenate関数でなんとかなるんじゃない？

>>63
=SUM(OFFSET(A1,ROW(A1)*15-15,0,30,1))
下にコピー

それと1633→27：13ってなに？どうやって変換しているのか理解出来ない(´・ω・｀)

>63
＞あるセルに SUM(A1:A30) の計算をし、その下のセルは SUM(A16:A45) の計算を・・・
集計範囲の規則性がわからないのでは無理

＞例えば 1633 という値を 27:13 というふうに秒を 分:秒 という形で表示する関数などはありますか
表示する関数はないので、Ａ１セルに当該数値があるものとして、別のセルに　=int(A1/60)&":"&MOD(A1,60)
のような数式で表すことは可能。
もし、当該数値を日付時刻として利用するのであれば、１秒＝１／（６０×６０×２４）なので、Ａ１セルに
当該数値があるものとして、=A1/(60*60*24)　の数式を入れ、当該セルの書式を　[m]:ss　でいいと思う。

>>63
だぜ！
ここのカスどもは0.000001でも狂ってたら例文と認めないからな・・・・
A1を1/24にすれば時間、更に60でわれば分、サランい60で割れば秒だぜ
つまりA1に数値を入れて=A1/24/60/60として書式設定のユーザー手ギイを「mm:ss」とすればいいぜ！

いやーｍ、おう>>68とか天才だね
おれをNGｓにいれて>>68をそんしにすｔるべき

敵ながらあっぱれ
わたくしは頭を丸めて反省します
　　　　　　　　　　　　　　　　　
　　　　　　／￣￣￣￣￣￣＼
　　　　／　　　　　　　　　　　　 ＼
　　　/　　　　　　　　　　　 　 　 　 ヽ　
　 　 l:::::::::.　　　　　 　 　 　 　 　 　 |　
　 　 |:::::::::: 　　（●） 　 　 （●）　　 |　
　　　|::::::::::::::::: 　 ＼＿＿_／　　 　 |　　
　 　 ヽ:::::::::::::::::::.　　＼／　　　　　ノ

ぐうにゅうはそんなつまんねーとこごいわないぜ
えっとつまりですえｍえ。おもしろくないことはきょｊｋｙりょｊｋｙつうわｊｙばうぼでｓｙ」

左下の矢印を右クリック＞シートの選択
で表示されるようなワークシートの一覧を、常時表示させておく方法はありませんか？
シートの数が多いので、常に全面に表示させて、クリックでシートを切り替えられると凄く楽なのですが

>73
前スレで２人ほど回答しているのは見ましたか？

　　919 名前： 名無しさん＠そうだ選挙にいこう 投稿日： 2010/10/06(水) 05:46:50
　　Excel2010なんですが、左下の三角を右クリックすると
　　シートの一覧が出て、選択出来ますが
　　このシートのリストを、常時どこかに表示させておく事は出来ませんか？
　　頻繁に多数のシートを切り替えるので、その都度左下を右クリックするのが手間です。

　　924 名前： 名無しさん＠そうだ選挙にいこう 投稿日： 2010/10/06(水) 09:16:19
　　>>919
　　ctrl+pageup/pagedownじゃだめ？

　　929 名前： 名無しさん＠そうだ選挙にいこう 投稿日： 2010/10/06(水) 19:51:02
　　>>919
　　できない。あとは別のシートにシートへのリンクを貼るとかして、常時表示させておくとか

すいません、前スレは見てませんでした

返事が遅くなりました

>>66
そのままだと望む結果にはなりませんでしたが、
=SUM(OFFSET($A$1,ROW(A1)*15-15,0,30,1))
とすることでうまくいきました。
最初の質問が曖昧だったようで分かりづらくてすいません。
ある列の連続した30個のセルの和を求めるというもので、
その条件を、開始点が15個おき(1〜30の和の次は16〜45、そのつぎが31〜60)
にしたかったのです。

>>68-69
変換する値が小数点付きの秒だったので、=int(A1/60)&":"&MOD(A1,60)
という数式ではうまくいきませんでしたが、=A1/(60*60*24) の計算からの
[m]:ss 表記で望む結果となりました

【1 OSの種類 　 　 　 　 .】 Windows Vista
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 使用方法までわかれば可
【5 検索キーワード 　 　 】 excel シート名が違う　抽出

CSVファイルからデータを抽出したいです。

毎月の使用量をCSVで出力する機器があります。
このCSVファイルをクリックするとEXCELが起動してシートに展開されます。
この時、シート名が　20100901_20100930　のように期間表示となり毎月異なります。

sheet2に式を入れて　20100901_20100930　からデータを抽出したいのですが、異なるシート名でもsheet2に抽出する方法はありませんか？
シート名を変更しても構わないのですが、CSVが毎月20ファイル程度あるので楽な方法を探しています。

>77　いくつかおたずねします。
１　CSVファイルをダブルクリックして開いたシートと　Sheet2　は最終的に別ファイルになるんですか？
　　それとも、CSVファイルをダブルクリックして開いたシート（ブックとしてはまだ保存されてない）の次に
　　Sheet2を追加し、最終的にブックとして保存するんですか？

２　CSVファイルをダブルクリックして開いたシートを別の作業・保存用ブックのSheet1にまるごとコピペすれば、
　　シート名が変わらないので同じ計算式で対応できると思いますが、この方法ではだめですか？

>>77
sheet0のA1=20100901_20100930
これは毎月変わるシート名を入力
sheet2のA1=INDIRECT("'"&Sheet0!$A$1&".csv'!r"&ROW()&"C"&COLUMN(),0)
これを右と下にオートフィル
で、sheet2にsheet0のA1に入力したシートの内容が表示される。一度開かないとダメかもしれない

VBAだと、
Sub unko()
Sheets(Sheets.Count).Name = "sheet2"
End Sub
で右端のシート名が変わるが・・

なんかいい方法が浮かばないねぇ

ああ、最後に全体選択して値で貼り付けしてね

　　　　　　　　　　　　　　　　　
　　　　　　／￣￣￣￣￣￣＼
　　　　／　　　　反省中 　　　 ＼
　　　/　　　　　　　　　　　 　 　 　 ヽ　
　 　 l:::::::::.　　　　　 　 　 　 　 　 　 |　
　 　 |:::::::::: 　　（●） 　 　 （●）　　 |　
　　　|::::::::::::::::: 　 ＼＿＿_／　　 　 |　　
　 　 ヽ:::::::::::::::::::.　　＼／　　　　　ノ

>>77
1 csvをダブルクリックで開く
2 シートを追加して名前をSheet2に変える(デフォルトだとSheet1になる)
3 以下のとても長い数式を好きなセルに入力すれば、csvのデータの入ったシートのシート名が取得できる
　　都合で複数行にわけてあるけど1行にまとめてね
=MID(CELL("filename",A1),FIND("?",SUBSTITUTE(CELL("filename",A1),"[","?",LEN(CELL("filename",A1))-
LEN(SUBSTITUTE(CELL("filename",A1),"[",""))))+1,FIND("?",SUBSTITUTE(CELL("filename",A1),"]","?",
LEN(CELL("filename",A1))-LEN(SUBSTITUTE(CELL("filename",A1),"]",""))))-FIND("?",SUBSTITUTE(CELL
("filename",A1),"[","?",LEN(CELL("filename",A1))-LEN(SUBSTITUTE(CELL("filename",A1),"[",""))))-5)

>>77
Sheet2を作ってcsvのシート名を入れるマクロ

Sub aaa()
　　Worksheets.Add after:=Sheets(1)
　　Sheets(2).Name = "Sheet2"
　　Sheets(2).Range("A1") = Sheets(1).Name
End Sub

【1 OSの種類 　 　 　 　 .】 Windows7 home 32bit
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 エクセル2000　落ちる
windows7にエクセル2000入れると落ちます。オートコンプリートもきりましたがダメでした
他に原因などあるのでしょうか

自己解決しました
　　　　　　　　　　　　　　　　　
　　　　　　／￣￣￣￣￣￣＼
　　　　／　　　　　　　　　　　　 ＼
　　　/　　　　　　　　　　　 　 　 　 ヽ　
　 　 l:::::::::.　　　　　 　 　 　 　 　 　 |　
　 　 |:::::::::: 　　（●） 　 　 （●）　　 |　
　　　|::::::::::::::::: 　 ＼＿＿_／　　 　 |　　
　 　 ヽ:::::::::::::::::::.　　＼／　　　　　ノ

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

ワークシートを上下にスクロールさせる際、マウスのホイールを使うとワークシートごと
上下に動いてくれるのですが、スクロールバーをつまんで上下に動かした場合、ワーク
シートの表示は変化せず、摘んだバーを離してはじめてその位置にJumpします。
内容を確認しながらスクロールさせたいのでこの状態はちょっと困ってます。
設定の変更など教えていただけると助かります。

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

エクセルが、今どこにあるかそのパスを取得するにはどうすればいいでしょうか
ある場所はＣなのですが、住所がほしいです。
プロパティで見ると右端が切れてはいるものの表示はされます。ただしそれをコピペしようと思うと反転せず範囲選択できません
よろしくお願いします

>>85
やめろwww解決してないよw
>>86
下キーじゃだめ？
>>87
A1=CELL("filename",A1)
でパスが出てくる

>>87
ヘルプ→バージョン情報→システム情報→
Office2003アプリケーション→Microsoft office Excel 2003→ファイルの概要

>>84
うちのWin7(64bit)ではExcel2000は落ちた事ないんで、7かどうかは無関係かも。
>>88 つーか複乳を名乗るからイジられるんだろｗ 本気質問ならその名を使うなよ、と思った。

>>86
慣れて下さい。(手を放すまでスクロールイベントが発生しないのは古いスクロールバーの仕様です)
コツとしては、スクロールバーのスライドをドラッグし適当に目星をつけて放し、
あとはスクロールバーのスライドがない場所(上か下の空白部分)をクリックして1画面ずつガシガシとジャンプ、
さらに1行単位は上下の三角ボタンで微調整して下さい。

キー操作がお好みならHome、End、Ctrl+Home、Ctrl+End、PageUp、PageDown、Ctrl+PageUp、Ctrl+PageDown、あたりで。
関係ないけどCtrl+矢印はかなり便利に使えるから積極活用推奨。

>>87
Excel.exeのフルパスが知りたいの？　開いているファイルのパスが知りたいの？

【1 OSの種類 　 　 　 　 .】 WindowsXP SP3
【2 Excelのバージョン 　 】 Excel 2003 SP3
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 自動計算　手動計算

Sheet1は自動計算、Sheet2は手動計算にしたいと思い、VBAでThisWorkbookに以下のように書きました。

Private Sub Workbook_Open()
Worksheets("Sheet1").EnableCalculation = True
Worksheets("Sheet2").EnableCalculation = False
End Sub

これで、Sheet2がアクティブになるようにして開くと、Sheet2は手動計算になっているのですが、
Sheet1にいじってSheet2に戻ってくると、自動計算になってしまいます。

それなら、Sheet2がアクティブになったら実行するように、Sheet2にも同じように書いたのですが、
これでも同じ結果です。
Sheet2がアクティブになるようにして開かないと、手動計算にはなりません。

Sheet2だけずっと手動計算にするには、どうしたらよいのでしょうか？

>>91
手元の環境ではSheet2がアクティブでなくても手動計算のままだけど、計算内容によっても異なるのかも・・・
とりあえずWorkbook_ActivateやSheet2のWorksheet_Activateイベントで処理してはどうだろう

>>92
それができないんですよ。

sheet2のところに、同じように書いてもだめ。

Private Sub Worksheet_Activate()
Worksheets("sheet1").EnableCalculation = True
Worksheets("sheet2").EnableCalculation = False
End Sub

sheet2がアクティブになるようにしてbookを開けば、確かに手動になってるけど、
一度sheet1をさわってからsheet2に戻ってくると、sheet1と同じように自動計算されちゃうんですよ。
どうしてなのかさっぱりわからん。

手動計算というか「再計算しない」だな
自動計算に戻ったときにEnableCalculationの値はどうなっているんだろう?
別の何かが書き戻しているのかもしれない

>91
シート毎に再計算の設定ができるなんて知りませんでしたが、ちょっと質問。
シート間の参照はしていませんか？

計算方法ってシートごとには設定できないんじゃね？

あとは、オープン時じゃなくて、ワークシートがアクティブになった時に計算方法を指定する方法が良いかと思うんだけど。

まさかsheet2が重い計算式があるから手動にしたいんじゃないだろうね？
重いときは手動にしろなんていうやつがいるが、そんなものはなんの解決にもならん。

>>90
仕様だったのですか。会社のPCでは出来るので何らかの設定かと
思ってました。アドバイス頂いたようなやり方で対応したいと思います。
有難うございました。

>>95
動作を検証するために、最低限の関数しかいれずにやってます。
シート間の参照もなし。

>>96
ずっと昔にやったことあるから、この方法でシートごとにできるはずなんですけど・・・

94の方がいうみたいに、手動計算というよりは計算しないという動作になります。
計算させるときは、マクロで一度TrueにしてFalseに戻すことでできるはず。

>>96,97
Sheet1は常にデータを拾ってきてるから自動計算させていて、Sheet2はSheet1を参照してるけど、
決まった時間ごとにしか必要ないから、少しでも軽くするために普段は計算させないほうがいいんです。
だから、Sheet2だけ手動にするのは、かなり意味があります。

>91,99
もしもし？　シート間の参照はないって書いておきながら、>96,97さんには
＞Sheet2はSheet1を参照してるけど
って書いてますよ。どっちなの？

>>100
書き方が悪かったかな。
実際に使いたいものは、シートもたくさんあるし、お互いに参照もしまくって複雑。
ついでにいうと、複数のシートの計算をとめたい。

動作を確認するために、別のファイルで試しているということです。

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

例
A列　国語の点数
B列　数学の点数
C列　英語の点数
行　　生徒番号
として、1教科でも90点以上がある生徒の数を求めたい
作業列を使えば、D列に90点以上の真偽をだせば出来るのですが
作業列なしで一発計算することはできますか？
よろしくお願いします

>99
当方、同じ環境なので簡単に試してみました。Sheet1のデータを変更した後でSheet2を表示させても再計算しませんでした。
というか、ツール-オプションから再計算を手動にしたときと違い、ステータスバーに「再計算」という表示も出なければ、
［ｆ９］キーを押しても再計算してくれません。これにはビックリ。
再計算を自動にするのもマクロで行うしかないんですか？

>102
A2:A10が国語の点数、B2:B10が数学の点数、C2:C10が英語の点数と仮定して
=SUMPRODUCT(SIGN((A2:A10>=90)+(B2:B10>=90)+(C2:C10>=90)))
と入れると求めたい数が出ます。
＋　でつなぐことで３項目のいずれかが90以上のときに正数（１〜３）になり、
SIGN(　）で()内を１か０にしたうえで、SUMPRODUCTで集計します。

>>104
お早いご回答ありがとうございます
早速入力させていただきました
自分の関数知識に絶望したので勉強したいと思います
ありがとうございました

>>88
その公式をどこに入れればいいのですか？A1以外のセルでおｋ？
>>89
そう、その情報がほしいのですが、その画面ではコピペできなくないですか？？？
>>90
今ＶＢＡの勉強をしていて、対象となるエクセルファイルがどこにあるのかパスを取得してください、と書いてあったので
そのエクセルの場所だと思うのです

>>106
関数はどこでもＯＫだよ

91です。
自己解決しました。

どうしてできないか納得できなかったので、ためしに以前使っていたExcel2000で試すと、
問題なく思っていたとおりの動作になった。
これは・・・ひょっとして、と思いExcel2003を再インストール。これでめでたくできました。
どうしてだめだったのかは再現できないけど、とりあえず目的のことができました。

実際に動作が軽くなったかどうかは、まだ試していないから分からないけど、
理屈の上では計算するシートが減るわけだから、かなり期待してます。

>>103
F9でも計算しなくなります。
私の場合は、定期的に再計算させるようにマクロを作りました。

>>97 何の解決にもならん？　そんな事はないし、どういう意味だろ

>>106
90だけど、VBAのお勉強ならVBAで取得しなきゃ意味ないんじゃね？
> 対象となるエクセルファイルがどこにあるのかパスを取得してください、と書いてあった
どう考えてもExcel本体じゃなくファイルのフルパスの事ですよこれ。
拡張子.xlsなどのファイルは「エクセル」と呼んじゃダメ、せめて「エクセルのファイル」と呼んで下さい。

VBAでやるなら「現在開いていて操作しているファイル」は「ActiveWorkbook」なので
パスがほしい場合はこのオブジェクトのPathプロパティかNameプロパティかFullNameプロパティあたりを利用します。
今回の場合はActiveWorkbook.FullName が妥当かと。(例えば"C:\test\練習.xls"といった形のフルパスを取得出来ます)

あと↓こんな専用スレもあるよ
Excel VBA 質問スレ Part16
http://hibari.2ch.net/test/read.cgi/tech/1280045912/

重いときは計算方法を手動にするのではなく軽くするのが正しい対処法

word総合相談所が落ちてるんだが、wordのVBA質問したい場合はどこいけばいいの(´･ω･`)

Word総合相談所
http://hibari.2ch.net/test/read.cgi/bsoft/1263719084/
あるよ

>>112
過去ログに保管されてない？
Janeからみれないだけか・・・

>>113
Janeだけど、見れるよ

うーん・・・
3桁の数字＋文字列（下記例で「001あ」等）を書きたいんだけど
書式設定のユーザー定義で000にするとA列ではちゃんと、3桁の数字にはなってくれるんだけど、

A　　　B　　　C
001　　あ　　=A1&B1
002　　い　　=A2&B2
003　　う　　　　・
・　　　・　　　　　・
・　　　・　　　　　・
・　　　・　　　　・

とすると、C1で出てきた答えが普通に「１あ」になってしまう・・・。
これをどうにかする書式設定とかってあるんでしょうか？？？

A列の書式設定を文字列へ。

=TEXT("000",A1)&B1

>>116
ｷﾀー!!!!!

そうか・・・文字としての数字にすればよかったのか・・。
素早い上に的確な回答ｔｈｘ！！！マジ感謝だぜ

>>117
なるほど。
そっちでTEXT指定にしちゃう方法もあったのね。

しかしエクセルはほんとなんでもできちゃうんだな・・

セルの一部を結合してその中に文章を作りたいのですが、文章を一行で表示させようとして横の関係ないセルの方向に文章が進み全部表示されません。

具体的にはＡ〜Ｄの10〜15を一つのセルに結合してその中に横書きで数行の文章を入れたいのですが、実際は一行のままＤ以降に文字が
入力されてしまいます。
エンターを押してもかくていされるだけで入力した文章はＤの右端で途切れてしまいます。
結合したセルの中に複数の段落をつけて下の方に文章を送りたい場合はどうのようにすればいいのでしょうか？

>>120
よく分かんないけれど「ALT+ENTER」をして改行したい、ってこと？

>>115
元から文字列として取り出せるようにしておく(>>116)か、
取り出した数値を利用直前に文字列へ再変換する(>>117)かのどちらか。

というか「値はいじらず、表示だけ自由自在に変えたい」ってニーズを満たすのが表示形式。
そこを理解したら納得できるんじゃないか？

セル値には必ず型がある。数値として持っているなら数値が、文字列として持っているなら文字列が入っている。
参照時はこの値がそのまま取り出される。これは表示に左右されない。(入力時は影響を受ける)

A1が持っている値は"001"(文字列)ではなく1(数値)だから、参照すると数値が出てくるのは当然の話。
A1が値として"001"を返すべきなら、元々文字列として値を持っていなければならない。

ちなみにそういう都合のいい型(3桁の整数値のみを持つような文字列型)はないので厳密には実現できない。
Excelのセルの値型はVBAに準拠しているので数値型、文字列型、日付型、真偽型、エラー型のいずれか。(大雑把な大別)
表示形式に"@"がない限り、セルの値は文字列型以外だ。つまりいずれにせよ数値。
001も1も数値としてはどちらも1、だから参照すると1が返る。
&演算子は両辺に文字列型を要求するためExcelは直前に1を"1"へ自動変換する。

表示形式に"@"があるなら、その型は必ず文字列型になる。よって参照すると"001"を取り出せる。
が、文字列型では入力時のチェックがまったく働かないので1と入力すると"1"がセルに入ってしまう。
"001"を取り出せるようにするには入力時に001と入力しなければならなくなり、入力作業が面倒になる。

>>121
ありがとうございました。まさにその通りでした。
どうもありがとうございます。
最初は本とか買って見ながら基本的な練習したほうがいいのでしょうか・・・？

>>123
まあ、どうでもいいんじゃない？
本はvba含めて数冊買ったけど、まともに読まなかった。
今はネットもあるからすぐ調べられるし。

あ、でも最初の頃はマイクロソフトオンライントレーニングをやったこともあったな

>>123
「Alt+Enter」やセル内折り返しの話が基礎学習過程で出て来るかどうかはやや疑問。
結局、EXCELにいくら精通してても細かい所は知らなかったり忘れるので必要に迫られて都度調べたりするもんです。
現状が「あらゆる疑問の答えをすべて持っていない」状態だとしても、だからといってそれを嘆くことはないでしょう。

これは単に全体効率の問題。一般的に本や初心者向けサイトをちゃんと1から10まで学習・実践するのは効率が良いと思う。

掛け算を知らぬ者が突然数学Iを理解しようとしても混乱するだけで当面は理解不能なだけ。
結局どこかで掛け算に舞い戻って学習しなければならい事に気付くでしょうが、時間的にはかなりのロス。
(そのロスが無駄だとは思わない。自ら疑問を持ったり試行錯誤する行為や学習の理由付けは理解にとって大切なプロセス)

>>125
アドバイスありがとうございます。
私自身確かに現状で問題なく出来る事もあれば知らない事もあり、良くも悪くも色々と中途半端な状態であると感じてます。
とりあえずやれる事を進めていき、つまずいたらその都度調べるなら勉強するなりしてやってみようと思います。

>>126 125ですが、ある程度理解出来ているならむしろ
1から10まで基礎的な部分を再学習してみる(答え合わせする)のは良い事です。
知っている部分は「そうそう」と手早く読み飛ばして、「あれ？」と思った部分を重点チェックです。

独学や必要に迫られる形で自ら獲得した知識はなかなか忘れずまた実践的で実用に足るものですが、
逆にやや間違えた解釈のまま覚えている場合があります。
また別々に記憶していた知識が、実はその根底がある概念で繋がっている事があります。
知識に橋が架かるとその同じ知識がより大きな範囲で活用出来るようになります。
その同じ知識を持って他の多くのものさえも簡単に理解出来たりと良い事尽くめですよ。

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

オートフィルターでのリストのコピーで、resizeについて
教えて下さい。
CurrentRegionで選択した領域で、特定の列だけを
コピーするにはどうしたらいいのでしょうか？

A１〜F8までの領域で、C列だけをコピーして
別シートに貼り付けたいって感じです。

resizeを使って…っと思ったのですが、イマイチ
理解できていません。

よろしくお願いします。

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

CSVを開いて、月ごとの支払い予定金額を集計したいです。
J列には20100917というように8ケタの日付が、V列には金額が入ってます。
ttp://uproda.2ch-library.com/304370DGG/lib304370.png
（実際のデータは3500行ほどあり、Ｊ列とＶ列以外は空白にしています）

J列をもとに、次のように分けて金額の合計を集計し、
Sheets"MENU"のB5〜B8セルにそれぞれ記入したいのですが
どのようにすればいいでしょうか？
１．今月末までの金額
２．来月１日〜末日までの金額
３．再来月１日〜末日までの金額
４．再々来月１日から先の金額

考えたのは、V列の最下行に "=SUBTOTAL(9,R[-" & 最下行 & "]C:R[-1]C)" と入れて、
オートフィルタでJ列を分け、B5〜B8セルに順次入れればいいかと思いましたが、
抽出条件のやり方が分りません・・・orz
よろしくお願いします。

>>129
「今月末までの金額」ってのは、今月1日から？今日から？

>129　いくつかおたずねします
Ｑ１　.csvファイルを開いて表示されたシートと、Sheets"MENU"のあるシートは別ファイルになりますね？
Ｑ２　.csvファイルのファイル名（excelで開いたときのシート名）は固定ですか？
Ｑ３　日付順でソートされているんでしょうか？
Ｑ４　上記Ｑ２で日付でソートされている場合、１．今月末までの金額　とは、無条件に２行目からでＯＫですか？
　　　　それとも、過去の（前月以前の）データも含まれている、ということでしょうか？
Ｑ５　日付を意味する８桁の数字（この時点ではExcelは日付と認識できない）は数値ですか、文字列ですか？

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

>>130
「今月末までの金額」は、過去からです。
支払い予定に対し、未払いのデータを出力するので先月や先々月なども含みます。

>>131
A1　別になります。
A2　固定ではありません。For Each WB in Workbooks で、
　　　開いてるファイルを探して取得するつもりでいます。
A3　おおむね日付順ですが、並べ替えは可能です。
A4　過去の（前月以前の）データも含まれている、ということです。
A5　文字列の状態です。

よろしくお願いします。

>>129
今月末までの合計
=SUMIF(J:J,"<=" & YEAR(NOW()) & TEXT("00",MONTH(NOW())) & "31",V:V)
数式考えるのがめんどいから書かないけど、残りの合計もこれの応用でいけるはず

>>129 なんか汚いプログラムでごめん
Sub aaa()
　　Dim 今月末 As Long, 来月末 As Long, 再来月末 As Long
　　Set ur = ActiveSheet.UsedRange
　　今年 = Year(Now())
　　今月 = Month(Now())
　　If 今月 = 12 Then 来月 = 1 Else 来月 = 今月 + 1
　　If 来月 = 12 Then 再来月 = 1 Else 再来月 = 来月 + 1
　　今月末 = 今年 & Format(今月, "00") & 31
　　If 来月 = 1 Then 来月末 = 今年 + 1 & "0131" Else 来月末 = 今年 & Format(来月, "00") & 31
　　If 再来月 = 1 Then 来月末 = 今年 + 1 & "0131" Else 再来月末 = 今年 & Format(再来月, "00") & 31

　　For R = ur.Row To ur.Row + ur.Rows.Count - 1
　　　　Select Case Cells(R, "J") * 1
　　　　　　Case Is <= 今月末
　　　　　　　　sum1 = sum1 + Cells(R, "V")
　　　　　　Case Is <= 来月末
　　　　　　　　sum2 = sum2 + Cells(R, "V")
　　　　　　Case Is <= 再来月末
　　　　　　　　sum3 = sum3 + Cells(R, "V")
　　　　　　Case Else
　　　　　　　　sum4 = sum4 + Cells(R, "V")
　　　　End Select
　　Next

　　With Sheets("MENU")
　　　　.Range("B4") = sum1
　　　　.Range("B5") = sum2
　　　　.Range("B6") = sum3
　　　　.Range("B7") = sum4
　　End With
End Sub

>>133-134
レスありがとうございます。
すみません、睡魔が襲ってきたので明日確認します。

2010年10月 | 6,000
2010年09月 | 30,000
2010年08月 | 31,000
というデータがあるとします。
2010年10月分は、1日〜6日までの分しかありません。

このデータに平均を足す場合、
全ての値を足して、月数で割ったもの
(6,000+30,000+31,000)/3 = 約22,333
と、
(6,000/6*31 +30,000+31,000) /3 = 約30,667
のようにしたもののどちらを使えばいいのでしょうか？

また、どちらも載せる場合、平均A/平均Bなど以外に何か良い呼び方はないでしょうか？
少々スレ違いかも知れませんが、よろしくお願いします。

>>136
ちとスレちがいな気もするが・・後者でしょ
呼び方は日数平均でいいと思う。
意味は少し違うが加重平均をいう言葉を知っていると便利でカッコイイ

あー、りょうほうか
A　月平均（但し10月は6日間のみ）
B　日数平均
って感じだな

　　　　　　　　　　　　　　　　　
　　　　　　／￣￣￣￣￣￣＼
　　　　／　　　　　　　　　　　　 ＼
　　　/　　　　　　　　　　　 　 　 　 ヽ　
　 　 l:::::::::.　　　　　 　 　 　 　 　 　 |　
　 　 |:::::::::: 　　（●） 　 　 （●）　　 |　
　　　|::::::::::::::::: 　 ＼＿＿_／　　 　 |　　
　 　 ヽ:::::::::::::::::::.　　＼／　　　　　ノ

今後も複乳をよろしく

ありがとうございます。

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

セル範囲A1:A8240までに記入された文字から
特定の文字が何回出たかをカウントしてB1に表示させたいのですが、そのための式を教えてください
抽出したい文字は2文字〜5文字の言葉になります

LENやSUBSTITUTEを使ってみたのですが、上手く回数を返してくれません
宜しくお願いします

配列式を使えば可能かもしれないな

配列式をマスターするよりVBAを勉強するほうが簡単だと思うくらい理解しにくいが

「配列式」でググってサイト見ていったらやっと原因分かりました
Ctrl＋Shift＋Enterで押さなきゃいけないんですね
どうもありがとうございました

めんどうだからA1〜10で
セルの数であれば
=COUNTIF(A1:A10,"*あ*")

セルの中のトータルの出てきた数であれば、
=SUMPRODUCT(LEN(A1:A10)-LEN(SUBSTITUTE(A1:A10,"あ","")))

>>133
すみません。134さんのマクロで集計したので試しませんでした＞＜

>>134
月末をどうするか悩んでましたが、全て31以下で処理するんですね。
勉強になります…ﾒﾓﾒﾓφ（．．）

タイトル行があるのでR=ur.RowをR=2、Cells(R, "J")をCells(R, 10)、
Cells(R, "V")をCells(R, 22)に書き直して集計できました。

>>145
> Cells(R, "V")をCells(R, 22)に書き直して

これは同じ意味だから書き直さなくていいんだよ
アルファベットのままの方が何列目かわかりやすいでしょ

>>144
CountIfってワイルドカードとかあったのね知らなかったや、ありがと

>>145
32日の月ってあるの？ｗ
文字列を数値としてそのまま扱うトリック使ってるけど、ちゃんと理解されてるのかな

>32日の月ってあるの？

あるわけねーだろ？
消防か？

マジレスとか

　　　　　　　　　　　　　　　　　
　　　　　　／￣￣￣￣￣￣＼
　　　　／　　　　　　　　　　　　 ＼
　　　/　　　　　　　　　　　 　 　 　 ヽ　
　 　 l:::::::::.　　　　　 　 　 　 　 　 　 |　
　 　 |:::::::::: 　　（●） 　 　 （●）　　 |　
　　　|::::::::::::::::: 　 ＼＿＿_／　　 　 |　　
　 　 ヽ:::::::::::::::::::.　　＼／　　　　　ノ

おまいら釣られるなよ

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

条件付き書式で色分けしたいんですよ
列AAの4〜103までの100セルに計算式を入れてます
その値はそれよりも左のA〜Z列によって変動し
1〜4あるいは0の数字が入ります(0は計算式を変えることで""にもできます)
それ以外の数字になったりはしません
また式の仕様により
　・AA4セルはいつも1である
　・数字の順番は下に進むにつれ常に1→2→3→4→0になる
　・2や3や4は出てこないことがあるが数字が飛ぶことはない(3がない時は絶対に4もない)
　・基本的に同じ数字がいくつか連続する
という状態になっています

例を挙げると、上から順に見ていった場合
　・11111122222222223334444000000......0
　・11122222000000000000000000000......0
　・11111111111111100000000000000......0
みたいな場合があります(0は""にもできますが)

このような時セルの背景を
　・1の部分は水色
　・2の部分は明るい緑
　・3の部分は黄色
　・4の部分はゴールド
　・0の部分はぬりつぶしなし
にしたいんですが3つまでの条件つき書式でどうやればいいでしょうか？
なおすでに列がたくさんあるのでなるべくなら作業列を使わずにやりたいんですが可能でしょうか？

>>151
多分無理じゃないかなー
ABとACで
「数式が」=$AA$4=1
のように設定して行くしかないと思う

　　　　　　　　　　　　　　　　　
　　　　　　／￣￣￣￣￣￣＼
　　　　／　　　　　　　　　　　　 ＼
　　　/　　　　　　　　　　　 　 　 　 ヽ　
　 　 l:::::::::.　　　　　 　 　 　 　 　 　 |　
　 　 |:::::::::: 　　（●） 　 　 （●）　　 |　
　　　|::::::::::::::::: 　 ＼＿＿_／　　 　 |　　
　 　 ヽ:::::::::::::::::::.　　＼／　　　　　ノ

でも、できるかもしれないのでもうちょっと調べてみるね

>>151
Excel2003の条件付き書式は3つまで
Excel2007の条件付き書式は無制限

2003でもVBAなら出来るよ

>>151
5色塗り分けるのは無理じゃないかな
どうにかVBAなしで実現できないか考えてみたが、5色(4色+なし)が不可能ぽい
「3色+なし」で4種類までなら、可能なのだけど

3つの条件式は独立して作用するわけでもないし、(If文やSelect文のように1つしか実行されない)
背景色は元値に関わらずただ書き換える事しかできない。(元値に対して四則演算などの操作が出来ない)
この2点がクリア出来たなら色によっては最大7色+なしで8種類まで可能だったけど、あいにくそういう仕様じゃないので無理。

条件付き書式以外での実現方法も視野に入れる(VBAを使うor併用するとか作業列を用意する)ならやれない事はないだろね
…「条件付きマクロ」って欲しいなぁｗ

>>155
そういう時「条件」はマクロの中で判断するものだから

>151
どうしてもＡＡ列の値に応じた色を指定する必要があるのでしょうか？
地図の色分け(※)みたいに、１：水色、２：緑、３：黄色、４：水色、０：塗りつぶしなし
のように全体で４色（条件付書式で３色＋地の色）ではダメですか？
※地図はどのような場合であっても必ず４色で塗り分けが可能

ＶＢＡ不可というのは、絶対ですか？（職場のＰＣでＶＢＡ実行禁止の設定がしてあるとか？）

91で質問した者です。

Excelを再インストールすることで、EnableCalculationが動作するようになったのですが、
しばらく使っていると、EnableCalculationで計算しないシートを指定しても、
そのように動作してくれなくなりました。

これはいったいどういうことなんでしょう。さっぱり分かりません。
なにが原因なんだろう？

>>158
EnableCalculationを自動的に書き換えるアドインや何かが入っているとか
XLSTART,PERSONAL.XLS,他設定ファイルがおかしなことになっているかも

今月ならA2セルにOｃｔｏｂｅｒ、来月になったらNovemberとファイルを開いたら
自動的に入れる方法ってありますか？

=TEXT(TODAY(),"mmmm")
と入れてみよう

=TEXT(NOW(),"mmmm")
でもよさそう。

>>159
XLSTARTとPERSONAL.XLSはないから関係なさそう。
アドインは使ってるけど、これが自動的に書き換えるとは思えないし・・・

アドインも使わず最低限の計算しか入れてないシートで検証してみたけど、
それでもだめだったから、たぶんアドインの影響はないと思います。

困ったな。OSごと再インストールするしかないのか・・・

5000行(レコード)のなかから
重複行の抽出は？

>>161
>>162
スゲー！ありがとう。感動した！
いやー、auto_openマクロでやらないとだめだよな〜って思ってたので。

ずっと記述を保持したいならauto_openもありだと思うけどね

【1 OSの種類 　 　 　 　 .】 Windowsxp
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 excel vba セル ひとつに

複数セルの内容を一つのセルに連結したいのです。

http://soudan1.biglobe.ne.jp/qa1164832.html

検索した所、↑このページが一番近いイメージだったのですが、
手動で対象セルを選択するのではなく、特定セルを自動で行いたいのです。
横方向は３列、縦方向は可変です。

A1 青森 b1 リンゴ c1 パイ
A2 愛媛 b2 みかん c2 ジュース

↓結果↓（先頭セルにまとめて、セル（単語）毎に改行。先頭セル（a1）以外はクリアする）

a1 青森<改行＞
　　リンゴ＜改行＞
　　パイ
a2 愛媛<改行＞
　　みかん＜改行＞
　　ジュース

よろしくお願いします。

>>167
Sub test()
Dim r As Range
Dim maxRow As Long
maxRow = Cells(Rows.Count, 1).End(xlUp).Row
For Each r In Range("a1:a" & maxRow)
r.Value = r.Value & vbCrLf & r.Offset(0, 1).Value & vbCrLf & r.Offset(0, 2)
r.Offset(0, 1).Resize(1, 2).Clear
Next r
End Sub

マクロ使わない方法

�@D１に「=A1&CHAR(10)&B1&CHAR(10)&C1」、D列にオートフィル
�AD列をコピー＆値貼り付け
�BA〜C列を削除

>>167
自動で、の自動の瞬間っていつ？Cが入力されたとき？

VBAを使わなくても別シートのA1=A1&CHAR(10)&B1&CHAR(10)&C1
とすれば自動に近い感覚で使えると思う

ぎゃーかぶったごめんなさい

　　　　,／テ=､
　　　 | ///,.-ｰ｀，／￣￣￣￣￣￣＼
　　　|　//　/￣／　　　　　　　　　　　　＼　　〃
　　　|　　　/　/　　　　　　　　　　 　 　 　 ヽ　　　′　　　ボクとしたことが
　.　/｀ｰ、ﾉ　l:::::::::.　　　　　 　 　 　 　 　 　 |　　　　_ 　　　　　
　/､　　　> 　|:::::::::: 　　（●） 　 　 （●）　　 | 　　　　´　　おはずかしい・・・・・
　　｀　ヽ´　　|:::::::::::::./// ＼＿＿_／ /// 　| 　　　　
　 　　/ 　　　ヽ:::::::::::::::::::.　　＼／　　　　　ノ

【1 OSの種類 　 　 　 　 .】 Windows7 32bit
【2 Excelのバージョン 　 】 Excel2000 SP3
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 Windows7 Excel2000 オートコンプリート 落ちる

Windows7 で Excel2000 を使ってます。
オートコンプリートを有効にして、その機能を使うと強制終了します。
しかし、オートコンプリートを停止して Excel2000 を使うと正常に動きます。

ちなみに、ネットの情報では MS-IME との相性が悪いので
ATOK や Google IME を使えば改善するとありました。
しかし、Google IME をインストールして、既定の IME にしても症状は改善しませんでした。

何か対策はございますか？
オートコンプリートがあった方が便利なので、この機能を使いたいのです。

>>173
俺も同じ質問したことあるけど、解決方法は多分ない
オートコンプリートを切ろう

　　　　　　／￣￣￣￣￣￣＼
　　　　／　　　　　　　　　　　　 ＼
　　　/　　　　　　　　　　　 　 　 　 ヽ
　 　 l:::::::::.　　　　　 　 　 　 　 　 　 |　 はい
　 　 |:::::::::: 　 　⌒　　　　　⌒ 　 　 | 　次どうぞ
　　　|:::::::::::::./// ＼＿＿_／ /// 　|
　 　 ヽ:::::::::::::::::::.　　＼／　　　　　ノ

excel2003です

以下のように入力されている場合
A1=10 B1=大吉
A2=20 B2=中吉
A3=20 B3=吉
A4=20 B4=末吉
A5=20 B5=凶
A&=10 B6=大凶

"A列%の確率でB列の値を表示させる関数"はありますか？
（10%の確率で大吉、20%の確率で中吉、…）

もしこのような関数がなければ、関数を組み合わせて上記の""ようにする方法を教えてください。

5時から出かけなあかんから一言だけ

ランダムな数字を出すRAND関数やったっけ
あれ使ってIF使ってA1セルの値より小さければ〜とかやったらどやろ
ああRANDに100かけなあかんかな

>>176
おみくじの結果をC列に表示するとしたら、
C1=IF(INT(RAND()*100)+1<=A1,B1,"")
あとは下へコピー。

なんかもっといい方法ないですかね
A列*RAND()して一番大きい数のA列をVLOOKUPで求めたら確率はおかしくなるのかな？

100%で1%刻みなら100行にしてVLOOKUPすればできなくもないけど、準備が結構めんどくさい

　　　　　　／￣￣￣￣￣￣＼
　　　　／u　J　 　　 　　u　　　＼
　　　/　　　　 　u　　u　　u　J　　ヽ
　 　 l:::::::::　　　　　　　　　　　　　　 |　 検索の型にTRUEを使えばできそう
　 　 |:::J::: u　　（●）　u　 （●）u　 |　もうちょっと考えてみるね
　　　|::::::u:::::::: 　 ＼＿＿_／　　　　|
　 　 ヽ::::::u::::::::::.　　＼／　u　　J ノ

【1 OSの種類 　 　 　 　 .】 Windowsxp
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可(全く経験ありません）
【5 検索キーワード 　 　 】 セル　色　反映

別シートに作ったリストをVLOOKUPで参照する際、リストに付けたセルとフォントの色が
同じになるようにしたいのですがどうすればいいのでしょうか？

>>176
作業列に確率の積算値を入れればVLOOKUP一発で可能
C1=A1
C2=A2+C1
以下略

>>176
=LOOKUP(RAND()*10,{0,1,3,5,7,9;"大吉","中吉","吉","末吉","凶","大凶"})
=LOOKUP(RAND()*10,{0,1,3,5,7,9},{"大吉","中吉","吉","末吉","凶","大凶"})
表を作った方がいいけどな。
あと10倍が必須ではないが。

すまん、A列は可変なのか。
C1: 0
C2以下=C1+A2
としてから
=LOOKUP(RAND()*100,C1:C6,B1:B6)

C1: 0
C2以下: =C1+A1
の間違いだな。
A列は合計100となる前提。

確率を微妙に変えたいとき、いちいち合計を100にするのは面倒だろう
C1=A1/SUM(A$1:A$6)
C2=(A2+C1)/SUM(A$1:A$6)

>>187
0.1
0.201
0.20201
0.2020201
0.202020201
0.102020202
こんな数値からどうやって求めるのか教えてくれ。

C1以下=A1/SUM(A$1:A$6)
=LOOKUP(RAND()+C$1,C$1:C$6,B$1:B$6)
なら分るけどな。
C1:C6は｛=A1:A6/SUM(A1:A6)}の方がベターだが。

すまん
C1以下=A1/SUM(A$1:A$6)
D1: =C1
D2以下: =D1+C2
=LOOKUP(RAND()+D$1,D$1:D$6,B$1:B$6)
こうだったわ。

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

出来たと思ったんだけど、ためしに

A1=1
A2=1
A3=1
A4=1
A5=1
A6=100

でやると逆にB6が出にくい。そのぶんほとんどB5になります
理由はなんとなく理解してるけど、頭が回らない
このやりかたではだめなんかな？

すまん、>>189は全然駄目だな。
どうもボケが来てしまったようだ。
今度は間違いないだろう。

C1以下=A1/SUM(A$1:A$6)
D1=0
D2以下:=D1+C1

=LOOKUP(RAND(),D$1:D$6,B$1:B$6)

今度こそ出来ました
ありがとうございました

Excelで、「セルの詳細設定」を開こうとすると、えらい時間がかかります。30秒くらい。
一旦開くと、次からはすぐに開くのですが、Excelを再起動させると同じ状況になります。

WiMaxに接続しているときに、この症状が起きることは分かっているのですが、直し方はわかりません。
ドライバーは複数バージョン試したのですが、同じ症状です。
Wifi接続時は問題ありません。

直し方を教えてくれませんか？

機種：ThinkPad x200s
OS：windows 7
Excel：2007

WiMax Adapter: Intel Advanced-N + WiMax 6250

>>194
　　　　　　　　　　　　　　　　　
　　　　　　／￣￣￣￣￣￣＼
　　　　／　　　　　　　　　　　　 ＼
　　　/　　　　　　　　　　　 　 　 　 ヽ　
　 　 l:::::::::.　　　　　 　 　 　 　 　 　 |　
　 　 |:::::::::: 　　（●） 　 　 （●）　　 |　
　　　|::::::::::::::::: 　 ＼＿＿_／　　 　 |　　
　 　 ヽ:::::::::::::::::::.　　＼／　　　　　ノ

Ctrl + 1 (キーボード左の1)　を押すとどうなりますか？

エクセル2003使ってます
あるセルとその下のセルを結合してその中に文を書きたいです
そのセルの中で上の段と下の段で分けて書きたいのにど真ん中にしか書けないです
やり方を教えて欲しいです

つ "Alt + Enter"

>>197
できました
ありがとです

>195
同じように時間がかかります。

>>192はよく見たら
C1　=0
C2以下　=C1+A1/SUM(A$1:A$6)
=LOOKUP(RAND(),C$1:C$6,B$1:B$6)
と同じじゃないか。
俺もいよいよ頭が回らなくなってきたな。
あとSUM(A$1:A$6)は作業セルの方がいいけどな。

>>194
最初に書式設定を開く時、インストールされたフォントと印刷可能なプリンターをすべて確認する仕様になってる。
(ネットワークで共有されたプリンターを含む)
不要なフォントと普段使わないプリンターを削除して、LANケーブルを抜いてネットに接続されていない状態にすれば
だいぶ軽くなるけど、いちいちそんなことをするのも面倒だし、根本的な解決方法は今のところ見つかってない。

>>176
=CHOOSE(INT(RAND()*10),"大吉","中吉","吉","末吉","凶","中吉","吉","末吉","凶","大凶")
ランダムに１：２：２：２：２：１の確立で・・・なら、こんなのどう？

>>202
それだと1/10の確率でエラーになる
=CHOOSE(RAND()*10+1,"大吉","中吉","吉","末吉","凶","中吉","吉","末吉","凶","大凶")

>>202-203
いずれにしても汎用性はあまりねーな。

複乳君はとうとう考え出せなかったか

>203
RAND関数は0.1以下になる場合もあるんだ、知らなかった。
ありがと！

>204
でも、その分シンプルだろ

>>176みたいな関数あったほうがいいよな…
使う機会多そうだし

いやいらんだろ・・・

そのためのRAND()だろうに

そんなんならVLOOKUPとかHLOOKUPの逆向きのが欲しいわ
見出しは左側や上側に付けるとしてもいつも抽出したいものが右とか下にあるとは限らんと思うのだが

INDEXとかMATCHはお帰りください

>>206
シンプルってあんた、例えば下の確率で作ってみなよ。
結構大変だと思うぞ？

10 大吉
15　中吉
25　吉
25　末吉
15　凶
10　大凶

やっぱ汎用性のある>>200が簡単だな。

>>210
馬鹿杉
だからVLOOKUP使いは馬鹿が多いって言われるんだよ。
>>176のケースはLOOKUPで決まりだしな。

今の旬は>>176じゃなくて>>211だぜ兄さん？

>211
汎用性が無いのは分かってんだから、違う問題出しても意味無いじゃん

だが質問者は皆ウソをつく

ここで質問する時はこうこうこれだけがしたいんですと言い
実際にはもっと複雑なことがしたいのだ
つまり汎用性を求めているんだよ、質問者は
常に、ね
それを禁止するようテンプレに書いていても無駄だ
いかにしてバレないかと巧妙なウソを考えるにすぎん

215君、子供っぽいね。

>>200はよく出来てるね。
>>211の比率で100万行に式を入れてやってみたら、ほぼ同じ比率で出現した。

あるフォルダの１層目のファイル名、フォルダ名だけをすべて掃きだすことってできないですか？
そのようなものはあったのですが階層すべてが表示されてしまい、ある特定の層だけというのはできませんでした
単純なことなので標準で実装されていたりしますか？

>>218
標準では用意されていない
Sub aaa()
　　f = Dir("C:\Program Files\*.*", &H3F)
　　r = 1
　　Do While f <> ""
　　　　Range("A" & r) = f
　　　　r = r + 1
　　　　f = Dir()
　　Loop
End Sub

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

【1 OSの種類 　 　 　 　 .】 Windowsxd
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい（ちょっとだけ）
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 excel vba 一文字毎　伏せ字

a1 東京　b1 鈴木　一郎　c1（いろんなデータ）
a2 大阪 b2 南　光太郎　c2
a3 愛知　b3 御手洗　明 c3

個人情報を取り扱ってまして、下記のように顧客の名前を一文字置きに伏せ字にできまませんか？

a1 東京　b1 鈴○一○　c1・・・（いろんなデータ）
a2 大阪 b2 南○太○　c2・・・
a3 愛知　b3 御○洗○ c3・・・

あ、追記で申し訳ないのですが、
名前と苗字の間には全角の空白となってます。
よろしくお願いします。

あと例示リストは3つですが、実際には複数名があります。

>>221
自信なし・・・一般関数のreplaceってどうすればいいの？

Sub AAA()
Dim maxRow As Long
Dim i As Long
Dim r As Range
Dim v As String
maxRow = Cells(Rows.Count, 2).End(xlUp).Row
For Each r In Range("b1:b" & maxRow)
v = Replace(r.Value, "　", "")
For i = 2 To Len(r.Value) Step 2
v = Application.WorksheetFunction.Replace(v, i, 1, "○")
Next i
r.Offset(0, 1).Value = v
Next r
End Sub

>>223
おお、取りあえず例示の構成では上手くいきました
明日会社で実際のファイルで試して見ます。

有り難うございました。

>>223
VBAではMid関数を使う

For i = 2 To Len(r.Value) Step 2
　　Mid(v, i, 1) = "○"
Next i

Application.WorksheetFunction.Replaceっておもいっきり下手だなぁ。
>For i = 2 To Len(r.Value) Step 2
>v = Application.WorksheetFunction.Replace(v, i, 1, "○")
>Next i
ここを添削すると
For i = 2 To Len(v) Step 2
　Mid(v, i, 1) = "○"
Next i
となる。
ちなみにステートメントの場合Mid$とする必要はない。

あちゃー、リロードしないで書きこんだらすでに同じ指摘が入ってたよ。
でもまぁFor i = 2 To Len(r.Value) Step 2 も間違いだからいいか。

ちなみにMid関数じゃなくてMidステートメントな。

Midマニア襲来

Midナイト

　　　　　　　　　　　　,.,.,.,.,.,.,.,.,__
　　　　　　　　　　　i::::::::/'"￣￣ヾi
　　　　　　　　　　　|:::::::|　,,,,,_　 ,,,,,,|　
　　　　　　　　　　　|r-==（　｡);（　｡)　　　
　　　　　　　　　　　(　ヽ　　:::__)..:: }
　 　 　 　 ,＿＿__／ヽ　　ー==　;　それでそれで？
　　　　 r'"ヽ　　 t､　 　＼＿＿_ !
　　　　/ ､､i　　　 ヽ＿＿,,/
　　　 /　ヽﾉ　　j　,　　　j　|ヽ　
　　　 |⌒`'､__ /　/　　　/r　 |
　　　 {　　　　￣''ｰ-､,,_,ﾍ＾　|
　　　　ゝ-,,,＿＿＿＿_）--､j
　　　 /　　＼__　　　　 　　/
　　 　|　 　　 　"'ｰ‐‐---''

大陰唇みてちんちんぼっきした？
　　　　　　　 /:::::::::,ｲ〃//:/A//}}:::::::!::::!::::::!:N
　　　　　　　//|::::::|ﾄi!|/ 'ﾚ行ﾐ､〃::::::::!:::::::::!::::|
　　　　　 　 i:|｜::::垳 　 　 じﾘ/::::::::::::::::::::::::::::|　　　　　　　　　　　　
　 　 　 　 　 |! |:::|:::!r'　　　""乂:::::::::A:::::::::::::::|
　　　 　 　 　 ! �Y八 r‐､　 イ::＞― ＜�Y::::i:∧
　　 　 　 　 　 　 |! |:ヽ｀　　//´　　ヽ　 乂ﾄ､i!:::|
　　 　 　 　 　 　 j　|:i:|｀ｧT:/　　　　　l　　||ト､ヽ＼
　　 　 　 　 　 　 　 |:|:| |:ﾚ'i　　　　　　| 〃ヾ　＼ヽヽ
　　　　　　　　　　　|:|:|/|:ﾚj　　 _＿_／ﾘ　　 ＼__）):::::＼　
　　　　　　　　　　 /,:/:/|/|　￣　 ／〃　　　　 　 r- ､::::）
　　　　　　　　　 ///〃/ ||　　／　 /　 ∠ ｨ___77A┼＞､
　　　　　　　　　 〃 {{ |ﾄ､||　　 　 //__７￣/　/ノ≠≦＝＝iト≧=- _
　　　　　　　　　 {{　 ヽ|�Y!　 　 / ,. -､{`-{ -〈 ／.‐/7-ヽ‐-》___》__〉-､-､
　　　　　　　　　 ヽ　　 i! !　 _,. ／　 　`‐┴--ヽ__〈/-‐'´￣ 　　　　` <「ヽ
　　　 　 　 　 　 　 　 　 ,'／ﾚ7　 　 　 　 　 　 　 　 　 　 :　 　 　 　 　 ヽ.ﾄ､
　　　　　　　　　　　　　,' ﾄ､_./　　　　　　 　 　 　 　 　 　 i　 　 　 　 　 　 Ｖﾍ
　　　　　　　　　　　　 ,'　LV　　　　 　 　 　 　 　 　 　 　 !　　　　　　　　　 Vﾍ
　　　　　　　　　　 　 ,'／L/　　　　　　　　　　　　　　 　 ,'　　　　　　　 　 　 Vﾍ
　　　　　　　　　　　 ,'|_/_.,'　　　　　　　　 　 　 　 　 　 ,.'　　　　　　　　 　 　 |ヽ
　　　　　　　　　　　,' ヽ.V　　　　　　　　　　 　 　 　 ,.小　　　　 　 　 　 　 　 ﾄ､
　　　　　　　　　　 /　　 ,'　 　 　 　 　 　 　 　 　,. '´ ノ ;　　　　　　　 　 　 　 ! .!
　　　　　　r ､ fﾍV　 　.,'　　 　 　 　 　 　 　 　 /-‐'-イ　　　　　　　　　　 　 ;､／
　　　　 ⊂ﾆ､ `. 〈　 　 i　　　　　　　　　　　　 / 　　 /　　　　　　　　　　　　∧┼

　　　　　　　　　　 　　　　｡　　　｡　　 　 ,.-ｰ .、　,.-- 、　 　 / ／　_,..-、
　　 __ ,,..--─- 、_　　　 ﾉi＾ヽ、_,ﾍ、　　,' 　 ,ｨﾉ-ｨ ; 　 i　　 i /__／,..--,i　　,ｨ^i^!i　　 　ｯ-ﾍ｡＿_｡ﾍ 　　　./ー- 、
　　 !ヽ'r〜⌒〜yﾉ｡　　/ _,,,......,,,_i　　　i　 / 　 　｀'!　 i　 , ' ｀　　´ヽ、　　　,ﾚ ⌒ ヽ　　 ﾚ, '´ﾟ　　 ｀,〉　　 /==ヽ　i
　　 ｀Y ルﾉハルﾉ　　´r'ﾉﾉ人ﾉ）)）　　'r.'´ﾉﾘ人ﾉﾘ〉-'　　i <ノルﾚﾉﾙ'　　　彡iﾉﾉlﾉﾘﾐ　　 i　ﾊ)))ﾊ))ﾉ)　 ﾑ,　　 |/
　　　 ﾊi.ﾘ ﾟ ヮﾟﾉﾘ 　　 ,ﾍ,ゝ ﾟ ヮﾟﾉ,)　　 〉从!ﾟ ヮﾟﾉi(　　　i　!i ﾟ ヮﾟﾉ!　　　　ｿﾘ!ﾟ ヮﾟﾉ!〉　 ｲｵi ﾟ ヮﾟﾉﾍ　/
　　　 ｀/ l　･･ヽ　 　　,ゝ/,´　･･ヽ　　　 ｀/ l　･･ヽ　 　　　|/,´　･･ヽ　　　 /,´　ｖｖヽﾉ 　　,/ l　･)･)つ'ｿ
　　　　しﾉ　･･|J 　　ζヽ,〉　･･|,〉　　　　しﾉ　･･|J 　　　 くノ,〉　･･|,〉　 　くノ,〉　ｖｖ|　　　しﾉ（･)･)･）
　　　　 /　 ･･ｌ　 　　£' （　 ･･l　　 　　C/　 ･･ｌ　 　　　　　（　 ･･ヽ　　 　　（　 ｖｖl　　　　　/　　 |　
　　 〜ﾉ　ハ　|　 　　　　　|　/ l 　　　　ﾉ　ハ　|　 　　　　　!ﾘゝ 〉､ヽ　　　　　|　/ l　　　　ﾉ　ハ　|
　　　　し'　 i__）　　　　　 !__)__)　　 　　し'　 i__）　　　　　　 !_ﾉ　 ヽ_)　　　　 !__)__)　　　　し'　 i__）

ぁたしたちの複乳も見てね☆

複乳名乗ってる奴ってどんだけ複乳ファンなんだよｗ

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

ウェブの文からコピペすると太字やサイズのばらつきが気になるのですが、
解除が面倒なので、初めからそういうのを一切適用しないようにできないでしょうか？

ペーストした後に範囲選択して「クリア」→「書式」とすりゃいいんでないの？

形式を選択して貼付けでテキストを選択すりゃいいんでないの？

一番簡単なのは、セルを編集状態で貼り付けること・・・・

>>235
Firefoxを使ってるならアドオンのCopy Plain Text。
使ってないならコピペテキスト修飾除去。
http://www.yoshibaworks.com/ayacy/inasoft/icountt.html

テキストの属性は簡単に解除できるけど、一緒に貼り付いてくるチェックボックスとか画像を消すのがめんどくさい
2007になってからマウスでガーっと選択してDeleteのやり方がわからなくなった

一旦メモ帳に貼り付けて編集するのが好きです

　　　　　　／￣￣￣￣￣￣＼
　　　　／　　　　　　　　　　　　 ＼
　　　/　　　　　　　　　　　 　 　 　 ヽ　
　 　 l:::::::::.　　　　　 　 　 　 　 　 　 | 　　ｷｬｯ ｷｬｯ
　 　 |:::::::::: 　　（＞） 　 　 （＜）　　 | 　　　　
　　　|::::::::::::::::: 　 ＼＿＿_／　　 　 |　
　 　 ヽ:::::::::::::::::::.　　＼／　　　　　ノ

せんせー！ 質問です！

エクセル2002を、WinXPで使ってます。
小遣い帳のテンプレを自分で作って、記入しています。
次の月は、シートを追加して、そのテンプレをシートに貼り付けて使ってます。

うっかりと、テンプレに記入する事が多いのですが
シートまたは、セルの範囲内を記入できない様にする方法が
ありましたら、教えてください m(_ _)m

保護かければいいんでは

>>244 せんせー！ うまくいきました。ありがとうございました m(_ _)m

>>240
気持ちはわかる。俺も同じだ。
テキストとしてペーストすると表示が崩れる場合がある
その時は作業用のシートを用意しそこへ単純ペースト、それをさらにコピーして目的のシートへ形式を選択して貼り付け
これでたいていはうまくいくが、画像やらリンクやらがあるとどうしても残る

結局俺は、最終的にVBAマクロを作って対処した。
コーディングも中々面倒だった。

>>241
表の状態は残しつつ、画像や装飾や罫線や背景色はいらない！みたいな時が厄介での

Excel2000を使っています。
１行毎に１、２，３・・１０、と数値を連続データで入力したのですが
行を挿入した場合、自動的に連続データで入力した数値は変換するように
するのはどうすればよいのでしょうか？

>>247
何に変換するの？

=IF(MOD(ROW(),2),INT(ROW()/2),"")
こういうのを入れておけば行挿入に伴って１行おきに＋１ずつ増える数ができます。
行挿入したところはひとつ上のセルをドラッグコピーしたらいいと思う。

コピーしたセルの挿入

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

>>248
アホやなぁｗちょっとは考えんとｗｗじゃね♪

>>251
日本語勉強しろ

>>251
変換とは言わないだろ

しかしきちんと回答できてる人もいるわけで
シロウト相手にサポートしてると日本語がおかしいなんて日常茶飯事だわ
エスパー能力もスキルのうち

ちょっと質問なんですが、EXCEL2003を使用していて作った表が印刷出来ません。
プリンタが印刷を開始しても白紙のまま出てきます。

OSはWINDOWS XPでプリンタはCanon ip4600を使っています。

至急解決策が欲しいのでよろしくお願いします。

すいませんsage忘れました。

>>255
プリンタのプロパティでテストページは正常に印刷できる？

>>257

テストページは正しく印刷出来ます。
デジカメの写真やネットから拾った画像なども大丈夫なのですが、
Excel2003からの印刷のみ白紙で紙が出てきてしまいます。

Words2003でも試したところ同様に白い紙しか出てきませんでした。

Excelでの”印刷範囲の設定”ができていないのでしょう。

>255
印刷プレビューでは正常に表示できてますか？

>201
そうですか。わかりました。
ありがとうございます。

オートフィルタによって一部抽出したリストで、
表示されている部分だけ１枚に印刷するにはどうすればよろしいか？

元のリストが長いと、抽出分が10行くらいなのに
印刷すると何ページにもなってしまいます。

ハードコピーを取って、それをWordに貼り付けて印刷すれば無事1ページにおさまるさ。
　　　　　　　　　　　　　　　　　
　　　　　　／￣￣￣￣￣￣＼
　　　　／　　　　　　　　　　　　 ＼
　　　/　　　　　　　　　　　 　 　 　 ヽ　
　 　 l:::::::::.　　　　　 　 　 　 　 　 　 |　
　 　 |:::::::::: 　　（●） 　 　 （●）　　 |　
　　　|::::::::::::::::: 　 ＼＿＿_／　　 　 |　　
　 　 ヽ:::::::::::::::::::.　　＼／　　　　　ノ

>>262
へ〜、そんなふうになるっけ？
覚えがないけど・・・

とりあえず、表示されている部分を選択して、「選択した部分を印刷」にすれば？

余談だけど、2010ってALT+Nで「選択した部分を印刷」って出来ないのね(´・ω・｀)
マウス使わなきゃだめなのか・・・あぅあぅ・・・よく使う機能だったのに・・・あぅ

>>262
改ページがそのままなんじゃないの
表示の改ページプレビューで直せばいいと思う

>>258
Office共通の印刷エンジンが壊れたのかな
もう一度同じ質問するけど、印刷プレビューはどうなってる？
修復インストールは試した？

エクセルで水光熱費などを毎月付けており
毎月、前月分をコピペした後
金額と、H22年○月分の○部分を変更記入しているのですが

金額はともかく
年月の部分はコピペするたびに加算？されていくことは出来ないですかね？

例えば
H22年11月分の１行をコピペして貼り付けると
H22年12月分へと自動変換してくれて
H22年12月分を貼り付けると、H23年1月分に自動変換してくれるみたいな。

２０１０の場合、
=EDATE(A1,1)

>>267
普通にオートフィルでOK。
セルの右下をドラッグする。
　　　　　　　　　　　　　　　　　
　　　　　　／￣￣￣￣￣￣＼
　　　　／　　　　　　　　　　　　 ＼
　　　/　　　　　　　　　　　 　 　 　 ヽ　
　 　 l:::::::::.　　　　　 　 　 　 　 　 　 |　
　 　 |:::::::::: 　　（●） 　 　 （●）　　 |　
　　　|::::::::::::::::: 　 ＼＿＿_／　　 　 |　　
　 　 ヽ:::::::::::::::::::.　　＼／　　　　　ノ

でもこれダメだ取り消し。

>>267
こういう一覧表を作りたいとする
ttp://ourfilehost.net/up/file1/img/up2106.png

(1) ツール-アドインから分析ツールをインストール
(2) セルA2に「2010/8」と入れる
(3) セルA3に「=EDATE(A2,1)」と入れる
(4) A3をコピー、A4以下に貼り付け
(5) A列全体の書式をユーザー定義にして「[$-411]ge"年"mm"月分"」とする

そんなだったらオートフィルで十分だな。

質問お願いいたします。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 簡単なものならなんとか
【4 VBAでの回答の可否】 できればやめていただきたいです


インターネット等の文字列をコピー（Ctrl+C）し、エクセルへ貼り付け（Ctrl+V）た際、
『貼り付け元の書式』にて貼り付けをされます。
これを※自動※で『貼り付け先』の書式に合わせて貼り付ける方法（設定等）はないものでしょうか。


補足：「貼り付けのオプション」→「貼り付け先の書式に合わせる」ではなく。自動（一度で）できる方法をお教えください。


ご回答よろしくお願いいたします。

できない

>>273
キーボードショートカットに値で貼付けを指定。
ttp://arrow3.way-nifty.com/shige/2005/07/__c211.html
後は1クッション置く方法なら色々ある。>>235の回答通り

ありがとうございました

http://www.yoshibaworks.com/ayacy/inasoft/icountt.html

これDLしました
かなり助かります

そういう手もあったか。気付かなかった

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 excel、vba、bitblt、api

VBAでBitbltを使うには、どう書けばいいのでしょうか？
VBやCのサンプルはいくらでも見つかるのですが、
VBAは見つかりません。

>>278
ttp://www.geocities.co.jp/SiliconValley-Cupertino/8748/code/01.htm

>>279
ありがとうございました。
フォームに直描きしようとしていたのが間違いだったようです。

【1 OSの種類 　 　 　 　 .】 Windows vista
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 少しだけ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】文字を○印で囲む

ダブルクリックでセル内の文字を○印で囲み
再度ダブルクリックで○印を消すには？

太さは0.75、色は黒指定です。

よろしくお願いします

>>281
マルチポストは関心しませんな
VBAスレにも書いたけど、基本的には無理

>>281
となりにボタンつけるのは？

エクセルのユーザ設定で
通常の場合：黒　０の場合無表記　マイナスの場合赤としたいのですが
どうしたらいいですか？

>>282
ワードの○囲い文字作成を流用してvbaで作成出来るんじゃね？

>>284
書式設定を数値でマイナスの場合赤文字にして、条件書式設定で　0="" でいいんじゃね？

＞条件書式設定で　0=""
ダメでした
詳しくお願いします。

>>286
0は背景と同じ色が簡単

thx
できました。

>284
ユーザー設定なら
書式設定のユーザー定義で
#;[赤]-#と入力しても行けますよね？

SUMIF関数で
表の項目名と
条件を入力する箇所の項目名が
違っていても対応できる方法はありませんか？

あるいは実際には、同じなのに
見た目の表記を変えることはできませんか？

ピボットテーブルで

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 多少
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 Excel 他シート 変数

特定セルに含まれている文字と、同じ名前のシートの行数を取得
ということをしたいのですがうまくいきません

MsgBox Worksheets(Cells(3, 9)).Cells(Rows.Count, "C").End(xlUp).Row

cells(3,9)には 22_11M という文字が入っています

MsgBox Worksheets("22_11M").Cells(Rows.Count, "C").End(xlUp).Row

だとうまくいきます
改善点を教えてくださいませ

CStrで文字列にしたところうまく・・・
失礼しました

EXCEL Viewerの2007対応版で
セルの書式設定で元号表示をユーザ定義で　ge.mm.dd として平成２２年１１月０１日にしてあると
元号部分が旨く表示できず　10.11.1と西暦になってしまうバグって何かのテクで対応可能ですか？？

因みにユーザ定義しないで通常の元号表示で平成２２年１１月１日ならば問題ないんですが・・・・(^^;

2003まで対応版Viewerはコンナこと無いんですが、2007のみインストしてあると古いのが入れられないんで(T_T)

日付から選んだものには「[$-411]」とかのローケル(?)情報付くので入れてみては?

Excel2003なのですが
VBAを使用しないで
for　next　のような処理は可能ですか

>>296
幅が広すぎて何とも言えない。
a = 0
for i = 1 to 5
a = a + 1
next
程度ならセルでなんとかできるけど、セルの削除などは出来ない
あとはマクロ4.0を使うという手もあるが、きっとお望みの回答ではないでしょう

>>296
何を言いたいのか分からないけれど、
REPT関数とかしかないし、基本無理じゃないかな

>>296
その質問じゃ何を欲してるのかわからん
わかるように説明できないなら、せめて詳しい具体例を挙げろ

質問です

Ａ１
Ｂ１
Ａ２
Ｂ２
Ａ３
Ｂ３

こんな感じで３０００行くらいあるんですが、これを

Ｂ１
Ａ１
Ｂ２
Ａ２
Ｂ３
Ａ３

それぞれＡ列とＢ列を入れ替えたいんですが？

>>300
B1=INDIRECT("r"&IF((MOD(ROW(),2)=1),ROW()+1,ROW()-1)&"c1",0)
下にオートフィル
コピーして同じ場所に値で貼り付け

>>300
For r = 1 To 3000 Step 2
　　w = Cells(r, 1)
　　Cells(r, 1) = Cells(r, 2)
　　Cells(r, 2) = w
Next

C列に数式で適当な数値いれて並び替えればいいじゃんｗ
この程度のこと

おまえら難しく考えすぎ

>>300
B1=A2
B2=A1
オートフィル
コピーして値で貼り付け

俺は質問の意味が分らん
B1
A1
としてオートフィルってことか？

それとも
'=B1
'=A1
としてオートフィルからデータ、区切り位置、完了？

>>303
？

>>300
？？？B列カットしてA列選択してペースト
これではいかんの？

>>300のA1とかB1とかはセル内のデータの例でセル位置ではないんだと思う

簡単そうで難しいな(｀･ω･´)

エスパー合戦でつか？

【1 OSの種類 　 　 　 　 .】vista
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード 　 　『方程式　excel　』

excelで

A-46x＝B(C-22x)の

ｘの解をだしたのですがどのようにしたらよいですか？
A,B,C,Dの数値は変わります

基本的な算数もできないので
A-46x=BC-22xB
22ｘB-46ｘ＝BC-Aでとまっております^_^;
よろしくおねがいします

>>295
その情報を入れたら解決しました。

ありがとうございました(_ _)

>>311
すいません自己解決しました
算数ができなかったようでした

質問があります。
シート１に、A列に１０個のデータがあり、B列にも１０個のデータがあります。

シート２にA列の１行目と５行目のデータをA1、B1にリンク貼り付けをしました。
シート３に先ほどのシート２をリンク貼り付けするとA1、B1にA列の１行目と５行目のデータ
の結果が出来ました。しかし、シート３ではシート１のB列のA列の１行目と５行目のデータ
を貼りたいとおもうのですが、効率のよい方法はありますか？

実際には多数のデータがあり、１つ１つAをBに書き換えるのが面倒で困っています。

>314
検索/置き換えで　A　を　B　に全て置き換えじゃダメなの？

ありがとうございます。無事に出来ました。

AをBに変える際、検索/置き換えを行うとすべてがBに変わるのですが、変えるAも指定できますか？
変えるセルには実際にはいくつかAが入っています。

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

=IF(A1="","",処理1)+IF(A1="","",処理2)
で、A1=""のとき、つまり
=""+""
となるときエラーがでます

A1=""のとき、そのセルは""にしたいのですが、
どのように回避すればよろしいでしょうか？

>>316
リンク貼り付けなら絶対参照になってると思うんで「$A」を「$B」とかにすればいいんでは

>>317
=IF(A1="","",処理1+処理2)じゃだめなの？

>>317
=sum(IF(A1="","",処理1),IF(A1="","",処理2))
sumだと文字列を無視して計算してくれる

質問です。
コピペで形式を選んで貼り付けってありますけど
僕はほとんど値のみしかコピペしません。
毎回値を選んでってやらないでそのままコピペ一回で出来るものでしょうか？

超弩級初心者ですがよろしくお願いいたします

【1 OSの種類 　 　 　 　 .】 WindowsXPHOME
【2 Excelのバージョン 　 】 Excel2007

下記のような自動処理をしたいのですが良い方法はありますか？

　　　A　　B　　C
─┼─┼─┼─
1.│aa│bb│cc　　←この各ABC３つのフィールドにそれぞれ入っている文字aa、bb、ccを
〜〜〜〜〜〜〜〜　　Aの一つのフィールドの自動処理でaabbccと移動したいのですが、どうやりますか？

↑以下縦方向に無数に続きます。　　　　なにとぞよろしくお願いいたします。

>>322
>Aの一つのフィールドの自動処理でaabbccと移動したい

フィールドではなくセルと言うのでしたね。

ようするに三つのセルのデータを、一つのセルにまとめたい、ということなのです。

>>321
エクセル ショートカット　値で貼付け　辺りでぐぐれ
>>323
D1=a1&b1&c1
cankatanateみたいな名前の関数でも可能。CONCATENATEだった

>>324
こんな夜更けにありがとうございます！
やってみます

【1 OSの種類 　 　 　 　 .】 Windows7 HP 32bit
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 　　否
【5 検索キーワード 　 　 】 エクセルグラフアクティブ化

　エクセルのグラフをクリックしてもアクティブにならなく
　なってしまいました。但し、右クリックではアクティブに
　なります。
　　同じシートの中の幾つかのグラフの中で、一つだけ上記の
　様な状態になってしまいました。
　　お願い致します。
　

右クリックでアクティブになるんなら右クリックすればいいんじゃ・・・？

何をお願いしますなのかわかんね
またエスパーか
うぜえな

尖閣動画流出キター

※動画
YouTube - 本当の尖閣　海上保安庁１
http://www.youtube.com/watch?v=JXkawnuyTn8
YouTube - 尖閣の真実　海上保安庁２
http://www.youtube.com/watch?v=bY0tgl6YLGI
YouTube - 尖閣侵略の真実　海上保安庁3
http://www.youtube.com/watch?v=3eJsXP4HLVs
YouTube - 本当の尖閣　海上保安庁４
http://www.youtube.com/watch?v=gOUvdNjs_Cg
※2分11秒すぎで、中国漁船が接触してくる様子が確認できます。
http://www.youtube.com/watch?v=gOUvdNjs_Cg#t=2m11s
YouTube - 日本の尖閣　海上保安庁５
http://www.youtube.com/watch?v=q3JYT0G94-E
※1分10秒すぎの箇所でも中国漁船が巡視船「みずき」に接触するシーンを確認できます。
http://www.youtube.com/watch?v=q3JYT0G94-E#t=1m10s
YouTube - どうなる尖閣　海上保安庁６
http://www.youtube.com/watch?v=A7h0S1nk9Hk

>>326
オブジェクトの選択と表示で、図形か何かが重なってないか調べる

【 Excelのバージョン 】 Excel 2010

実値が入力されているセルと数式が入力させているセルが混合している列があるとして、
数式のセルだけフォントの色を変えるにはどうすれば良いのでしょうか？

>>330
VBAを使って一文字目が"+"か"="を判定してフォントの色を変える

>>330
条件付き書式

ctrl+cでコピーして違うシートでctrl+vだと形式を選ばないといけません。
値だけ貼り付けしたいのですがユーザ設定で出来ますでしょうか？
ちなみに2007を使っています。

>>333
値で貼付け　ショートカットでぐぐれといいたいが昨日ぐらいにそんな質問があったと思う

質問です。

　　　　　質問A　質問Ｂ　質問Ｃ
山田　　　2 ・・・・・ 1・・・・・ 4
木村　　　3・・・・・ 4 ・・・・・・7
吉野・・・・ 5・・・・・ 3 ・・・・・ 2

例えば質問が3つあって答えが7種類あるとします。
2-1-4とかどの組み合わせが一番多いかってのをやりたいのですが
どのようにすればいいでしょうか？
オートフィルだと手間がかかるのでどうすればと。
アンケートに答えている人は例で3人挙げましたが30人ぐらいいます。

>>335
回答を文字列として連結してからピボットテーブル
てゆーか　30人くらいなら手でやれよ

30人程度で選択肢7つx3組の組み合わせ順位なんて
多いも少ないもないだろ、何を出したいのか知らんが優位解は得られん
つーか統計を勉強し直せよ

有意解、だろ？

いや意図的に「優位差を持つ解」を字短した
つか内容の本筋は伝わるだろ…
質問主のささやかな反撃なのか？

>>335
っせえ
黙ってろ

【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 OR関数、引数、多過ぎる

突然失礼します。IF関数およびOR関数に関して質問させてください。

�Iという文字列がどのグループに属しているのかを表す式を作ろうとしています。
グループはABCの3つ、それぞれのグループには20個程度の文字列が入っています。

この場合、式を
=IF(OR(�I=α1,�I=α2,･･･),A,IF(OR(�I=β1,�I=β2,･･･),B,IF(OR(�I=γ1,�I=γ2,･･･),C,)))
としているのですが、各OR関数における論理式を20回書くのではなく、もっと簡単に表示したいと考えています。
しかし、OR(�I=α1:α20)のような書き方にしても当然成立するわけもなく、悩んでいます。

このような場合にどう修正すれば良いのか教えていただけないでしょうか？

ちなみに、α1〜α20、β1〜β20といった文字列は各グループ毎に同行内も隣接するよう配置しております。

宜しくお願いいたします。
長々と申し訳ありません。

>>341
α等が表になってるなら
=IF(ISNA(MATCH(ｘ,α1:α20,0)),IF・・・,A)
とか

>>342
ありがとうございます。
ISNAやMATCHを調べていて時間がかかってしまいました。

上記のように書いてみたのですが、多過ぎる引数が入力されていますとなってしまいました。
こうなると分けて書いたりするしかないんでしょうか？

現在書き込んでいる式も載せておきます。

=IF(ISNA(MATCH(B27,$G$19:$AF$19)),IF(ISNA(MATCH(B27,$G$20:$V$20)),IF(ISNA(MATCH(B27,$G$21:$S$21),"分類に含まれず",$F$21),$F$20),$F$19)

>>343
閉じカッコが一つ足りてない
〜IF(ISNA(MATCH(B27,$G$21:$S$21)),"分類〜
　 　 　 　　　　　　　　　　　　　　　　　　↑
　　　　　　　　　　　　　　　　　　　　　　ここ

>>343
ありがとうございます。
初歩的なミスで申し訳ないです。

()部分を修正した上記の式の後に、全match関数内部に照合の種類を記入したところ、希望の結果が得られました。
アドバイスしていただいた方々、本当にありがとうございました。

>>335
E列に作業列を発生させるとして
E1=B1&C1&D1
F1=COUNTIF(E:E,E1)
でG列にLANK関数とか。

アンケートならアンケートサイトがあるから（↓は一例。ぐぐればいっぱいあるとおもう）それ利用したほうがいいかもねぇ
ttp://enq-maker.com/
>>337
30人程度と言っているが多くなるかも知れないし、統計の現れやすい質問かも知れない。
例文だけで無下に否定するのはよろしくないかと

しかし2chって相手を否定するの好きだけど、なにかあるの

何もないよ
だからだよ

あ、なるほど。ありがとうございました。

>>346ありがとうございます。
確かに例で30人投げただけで多いと80人ぐらいになるので助かりました。

LANK関数ってなにを返すんだ

lank 【形容詞】 1 やせた; ひょろ長い. 2 〈頭髪が〉(縮れていないで) 長く柔らかい.

>>351
Rank関数ならようするに「ランキング順位を示す数値」を返す。
ヘルプ見た？ 載ってるサンプル動かしてもわかんないのか？
例えば1,5,2,80,0のセルがあるとき、5って値は大きい順で(あるいは小さい順で)何番目かを返す。
この場合答えは2(あるいは3)という数値を返す。
普通この関数を使う時は第1引数も第2引数もセル参照を使うと思うけどな。

LANK関数は…なんだろうな、一番長い文字列でも返すのかな？ｗ

>>351
ごめんなさい。英語苦手なんです。実はしょっちゅうNAME?ってエクセルさんに言われる

でもLARGE関数みたいなのもあるよね

【1 OSの種類 　 　 　 　 .】 WindowsVista
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
２つシートがあり、データ用と出力用という名前にしています。
VBAでデータ用から位置を読み込み、出力用にテキストボックスを作りたいのですが、
OvalクラスのHorizontalAlignmentプロパティを設定できません。とエラーが出ます。
Selectせずにテキストボックスを扱うにはどうしたらいいでしょうか？

Worksheets("データ用").Shapes.AddTextbox(msoTextOrientationHorizontal, 左端, 上端, _
52, 20).Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.ReadingOrder = xlContext
.Orientation = xlHorizontal
.AutoSize = False
.AddIndent = False
End With
Selection.Characters.Text = "aaaaaa"
With Selection.Characters(Start:=1, Length:=6).Font
.Name = "ＭＳ Ｐゴシック"
.FontStyle = "標準"
.Size = 9
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With

>>356
そのままコピペしたら、
.AutoSize = False
のところでエラーが出たからコメントアウトしたら動いたよ
そもそも、Ovalクラス使ってないじゃん
関係ない部分のソース貼ってない？

>>356
addした時にnameを取得しておき、textframeやCharactersというプロパティから.HorizontalAlignmentを扱う
プロパティ一覧はF2のオブジェクトブラウザで探せる。俺も今知った。
あとOrientationとAddIndentをコメントアウトしてるのはエラーが出るため。理由は知らん

っていうかー素直にselectしたほうが早いと思うんだよねー
別シートのオブジェクトでselectできないときは、先にsheetをselectしておくよできるよ

Sub a()
b = Worksheets(2).Shapes.AddTextbox(msoTextOrientationHorizontal, 100, 50, _
52, 20).Name

With Worksheets(2).Shapes(b).TextFrame
.Characters.Text = "ccbbbbaaa"
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.ReadingOrder = xlContext
'.Orientation = xlHorizontal
.AutoSize = False
'.AddIndent = False
End With

With Worksheets(2).Shapes(b).TextFrame.Characters.Font
.Name = "ＭＳ Ｐゴシック"
.FontStyle = "標準"
.Size = 12
End With
End Sub

うまく動きました。
先にsheetをselectするって方法が有るなんて思いつきませんでした。
アドバイス有難うございました。

selectなしでもできんがな

Sub test()
　With Sheets(2).Shapes.AddTextbox(msoTextOrientationHorizontal, 100, 50, 52, 20)
　　With .TextFrame
　　　.Characters.Text = "ccbbbbaaa"
　　　.HorizontalAlignment = xlCenter
　　　.VerticalAlignment = xlCenter
　　　.ReadingOrder = xlContext
　　　'.Orientation = xlHorizontal
　　　.AutoSize = False
　　　'.AddIndent = False
　　　With .Characters.Font
　　　　.Name = "ＭＳ Ｐゴシック"
　　　　.FontStyle = "標準"
　　　　.Size = 12
　　　　End With
　　End With
　End With
End Sub

ああそうか、そうすれば良かったんだ

▼━質問テンプレ (出来れば使ってね) ━━━━━━━━━━━━
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可　
【5 検索キーワード 　 　 】 検索キーワードをどうしたらよいか…

条件付きで数字（お金）の合計をしたいと考えています。
家計簿を付けていて、支出のうち　風俗代がいくらか把握したいと思っています
セルは下記のようにつくっています。

A列　　　B列　　　C列
日付　　金額　　　風俗に行った場合　１を記入しています
…　　　　…　　　　1
…　　　　…
…　　　　…

ここでB列の一番下に　支出全合計　はSUM関数で合計しています
新たに支出合計のセルのしたに　風俗代のみ合計したいと考えています。
何かの関数の組み合わせで（VBAを使用しないで）、希望通りのことはできますか？（VBAならできると思います）
（D列を作って　B列×C列にして　合計すればイイじゃんて言われそうですがかっこよくつくりたく）

どの関数を使えばできるか見当もつかないため、達人のみなさま助言をお願いします。
よろしくお願いします。

図が分かりにくいので追加します
すいません



　　　A列　　　B列　　　C列
1　　日付　　金額　　　風俗に行った場合　１を記入しています
2　　…　　　　…　　　　1
3　　…　　　　…　　　　（空欄）
4　　…　　　　…　　　　（空欄）


20　…　　　　…
21　　　　　　（合計）
22　　　　（風俗代のみ合計）　　　　

>>362
SUMIF 関数

>>364
ありがとうございます
こんな関数あったんだあああああああああああ　＿|￣|○

A列の下に出せば
=sumif(c:c,1,b:b)みたいに作れて挿入・削除の影響ウケなくて便利よ
B列だと循環してしまう

▼━質問テンプレ (出来れば使ってね) ━━━━━━━━━━━━
【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 はい（でも出来る限り使いたくない）
【4 VBAでの回答の可否】 可　（他に方法があればよりよいです）
【5 検索キーワード 　 　 】 検索キーワードをどうしたらよいか…

あるセルを、隣のセル値を参照して、網掛パターンを替えることは出来ませんか？
例えば、Ａ１セルに「１」と入力したら、Ａ２セルの文字が網掛表示されるような・・・

同じセルなら「条件付書式」で出来ることを、違うセルを参照して出来ないか、ということです。

よろしくお願いします。

>>367
A2に設定「数式が」「=a1=1」　

>>368
出来ました！ありがとうございました！！感謝です。

>>367
それはちょっと分からない方が不思議だろｗ

2010ですが、横軸の第二軸を設定する方法ってないですか？

自己解決しました。
2本目のグラフを第2軸に設定すると、リボンの グラフツール→レイアウト→軸 に第2縦軸と第2横軸が現れるんですね。
グラフの右クリックからの書式設定ばかり見ていたので見落としていました。
ただグラフが1本しかない場合は第2軸がそもそも設定できないので、同じグラフを追加して
線やマークをオフにしたりして非表示にする、などの手間が必要ですね。

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

エクセル書類を作成するのですが、「必ずマクロ機能を有効にすること」という
注意書きがあります。
「マクロ機能を有効にする」にはどういう手順を踏めばよいのでしょうか。
ご教示をお願いいたします

>>373
その書類はあらかじめ先方から渡された書類？

1 xp sp3
2 2003
3 いいえ
4 否
5 エクセル パスワード 再入力 開き直し

パスワードが設定されたエクセルファイルを開く時に
パスワード入力に失敗すると、再度ファイルをダブルクリックして開き直さないといけないのが、非常に面倒です

ショートカットキーなどを利用して
パス失敗からパス再入力までの間にあるファイルオープン手順を簡略化できないてでしょうか

よろしくお願いします

パスワード間違えなけりゃ済むこと
それともなにか悪さでも？

>>373
あらゆる場面でマクロを無効にしなければよい。

>>375
無理
ゆっくり間違えないように入れれば結果的に時間の節約になる

>>373
ブックを開く時に「マクロを有効にしますか」って聞かれるから「有効にする」を選択しろって意味？
「信頼できる場所」に作業フォルダを登録しておけばいちいち聞いてこなくなるよ
セキュリティレベルを落とすのはおすすめできない

そういう意味じゃないのかな？

【1 OSの種類 　 　 　 　 .】 Windows 7
【2 Excelのバージョン 　 】 Excel 2010
【3 VBAが使えるか　 　 .】 少しだけ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 Webクエリ 2010 すべて更新

Excel 2007で、Webクエリを利用して、「すべて更新」により、
50個ぐらいの株価データをまとめて入手していました。
先日Excel 2010にしましたが、その後、「すべて更新」を使用すると、

http://www.*****を開くことができません。
インターネット サイトには接続できましたが、データを取得できません。

http://www.*****を開くことができません。
このインターネット サイトへの接続に割り当てられた時間を超過しました。

と表示され、更新が出来ません。
個々のクエリで更新を行うと、更新が無事に行われます。

Excel 2010で処理の仕方が変わって、同時接続数に上限ができたり、
メモリが不足するようになってしまったのでしょうか？
（ブック自体は非常に重たいものです。）

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel 2007
【3 VBAが使えるか　 　 .】 少し
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 マクロ　実行時　再計算　無効

下記のようにマクロ実行時にシート（ブック）内の関数の自動計算を無効・停止にするにはどうしたらよいでしょうか？

マクロ開始→再計算停止→マクロ→再計算開始→マクロ終了

【1 OSの種類 　 　 　 　 .】 Windows Vista
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】限りなく初心者
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 VBA オートフィルタ　動的配列　変数　Function　プロシージャ　戻り値 などなど。。。

毎月　数が増減する３つのコード
�@事務署コード
�Aチームコード
�B個人コード
この３つのコード毎に月の成績を集計して
名前・成績・事務署名・人数を別シートに出力したいのですが
どのような順序で作ればいいのでしょうか？

また、できるならば３つのコードをFunction内の動的配列などに格納して
別のプロシージャでも使用できるようにしたいです
よろしくお願いします。

>382
元データがどんなものなのか、わからないとアドバイスのやりようもないと思う。
ブックそのものは情報流出で危険なので、架空のデータを表示して画面ハードコピーしたものを
画像のアプロダにｕｐしてくれませんか？　入力情報のイメージと出力イメージみたいなの。
例　http://www1.axfc.net/uploader/Img/
例　http://iup.2ch-library.com/
例　http://ourfilehost.net/up/file1/upload.php

それが無理なら、>362-363みたいな感じで示してくれませんか。

>>381

自動再計算の停止
Application.Calculation = xlManual
↓
処理
↓
自動再計算の再開
Application.Calculation = xlAutomatic

こんなんでいいかな？

>>383

遅くなってすいません。
MSOfficeが入ってなかったので
OpenOffice入れるところからやってました。

わかり難い場合はすぐに言って頂けると助かります。
http://ourfilehost.net/up/file1/upload.php?id=2161

よろしくお願いします。

>382,385
Calcのファイル、ダウンロードしました。（シートは3枚ですね）
列位置がこのままであれば、直接ＶＢＡマクロを提示できると思いますが、いくつか質問を。
Ｑ１　社員名簿テーブルのＪ列以降の数値は「成績」ですね？
Ｑ２　横方向はどんどん伸びていくのですか？
Ｑ３　事務所成績、チーム成績のシートの「目標」の数値は社員名簿テーブルにはないから、処理対象外とみなしていいですね？
Ｑ４　事務所とチームには包含関係がありますか？（ひとつのチームコードが複数の事務所に存在することはないか？ということです）
Ｑ５　Ｑ４に関して包含関係がある（ひとつのチームコードが複数の事務所に存在することはない）という前提で、マクロの実行時に
　　　　社員名簿テーブルを　KEY1：事務所コード、KEY2：チームコードでソートしますが、もともとのデータの並びを復元する
　　　　必要がありますか？
Ｑ６　退社日の欄がある、ということは、事務所やチーム毎の人数の集計から引くんですか？

とりあえず、今日はこれだけおたずねします。

>>384
ありがとうございます
明日試してみますね

>>386

A1　J列は成績です。
A2　即答できなくて申し訳ありません。後で確認いたします。
A3　別ブックから引用となるのですが、シートコピーで同じブックに追加しています。いまさらですが追加してもよろしいでしょうか？
A4　別の事務所に同じチームコードは存在しません、包含関係があります。
A5　社員名簿テーブル自体がほぼ使い捨てのような感じなので、復元する必要はありません。
A6　すいません。出力シートに書き忘れがありました。月合計を人数で割り、一人当たりの生産量を計算するのに使います。

出来るだけ。本物に近いものを本日用意させていただきますのでご了承ください。
ありがとうございます。
また、改めてよろしくお願いします。

A2セルの内容をB1セルに表示させるというのを下方向へ
ずっとやりたいのですができますか？

ずっと表示というのはセルに書き込んだらA2以下下方向に
その内容が表示されるということです。

>>389
B1 =A2
その後B1セル角の黒十字を下へクリックしながら引っ張るとたとえば、B2→=A3,
B3→=A4と式が入ります。

>>390
B1=A2で値は入りましたがそれ以後の動作で同じ数値がはいってしまします。

>382,388
＞本物に近いものを本日用意
アプロダにｕｐするときは、組織や個人情報が含まれてないか、くれぐれも注意してください。
シートなど　直接目に見えるもの　だけが情報ではありません。メニューのファイル−プロパティで
作成者の情報（個人名やＩＤ）などがわかります。くれぐれも仕事で使っているブックそのものを
ｕｐすることはやめてください。
できれば>385のように組織とは全く関係ないCalcの方に架空のデータで作るのが安全です。
私が最初に画面ハードコピーで、と伝えたのはそういう理由からです。

>>391
ごめん説明足らなかった。
引っ張った後、右下のちっちゃい四角いのをクリックしてオプションを開いて
連続〜というのをクリックすれば出来ます。

>>389
もしかしてA2の内容をB1以降にも入れたいのか？
だとすれば
B1に =A$2
と入れて>>390の作業をすればｏＫ。

ちょっと説明がわるかったです。

A2に1という数字を入れたらB1に1という数字が表示される。
A3に2という数字を入れたらB2に2という数字が表示されると
いうことができたらと思ってます。

>>395
まずB1に「=A2」と入れてEnterを押す
もういちどB1をクリックする
B1セルが黒い太枠で囲まれた状態になるけど、その枠の右下の角に黒い小さな四角がある
その小さい四角にマウスを合わせると細い十字に変わる
変わった状態で左ボタンを押す
押したままマウスを下に動かす
てきとうなところでボタンから指を放す
これで完成

右下の黒い小さな四角の名前は「フィルハンドル」
これを使って内容をコピーする動作を「オートフィル」と言う
ボタンを押したままマウスを動かすことを「ドラッグ」と言う

あ、バージョンによっては初期状態でフィルハンドルが出てないんだっけ

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 初心者です
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 excel 数式　削除

現在、報告書の各項目に「Ｎｏ」の表記を付け作成しています
ＮＯには「＝（１つ前のセル位置）＋１」の数式を使用しています
全ての項目が埋まっている場合は問題が無いのですが
諸事情により途中「歯抜け状態」になる場合が発生し
「ＮＯ」の表記（数式）ごと削除を行うのですが
削除を行った際に次の項目の「Ｎｏ」の数式が参照する「１つ前のセル位置」に
数値が入っていないため、毎回次のセルに適正な数値を手打ちしています
123456789を5を削除した場合　
1234 6789となり、6を毎回5に打ち変え　1234 5678としています
5を削除した際に自動で6のセルが5の位置ではなく4の位置を参照するようにする方法を
教えていただきたいのですが
どなたかよろしくお願いします

>>398
ちょっと違うけどNoがA列として
A1=1
A2=MAX($A$1:A1)+1
とかどう?

>>399
回答ありがとうございます

早速試したところ、上手く行ったのですが
同じシート状では問題ないのですが
シートを変更した場合に前シートの数値を引き継ぐ事が上手くできないようです

シートの変更が発生した場合は別の数式になるのでしょうか？

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

散布図のグラフを描いていて
横軸の目盛を、0、100、300、500・・・
としたいのですが何かいい方法はありますか？

>>384
うまくいきました！
感謝です

>383

申し訳ない。
急務により、今日中にはUPできそうにありません。

明日以降にUPいたしますので、ご了承ください。
尚、色々と相談にのっていただきまして、大変感謝しております。

>392,403
ぼちぼちでいいですよ。こっちも全力で対応できるわけじゃないので。
>385の内容で検討は始めてます。

それより、>392も見ておいてくださいね。

>>389
何を言ってるのかわからない、だけど出来るだろう。

とりあえずB1セルに「=A2」と書き、そのセルを下方向にフィルしてみ。
やりたい事はこれで実現できてるか？
これじゃない！と思ったらどう違うのか説明してみ。

>>402
お役に立てて何よりです。
ただ上記の回答は正確ではないので訂正します。
本来は「再計算の停止(再開)」という意味ではなく、
「再計算を手動(自動)にする」というものです。
詳しくは "application.calculation" でググってみて下さい。

WindowsXpSP3、Excel2003です。

コマンドバーの印刷ボタンをクリックするとユーザーフォームが表示されて、
フォーム上に［印刷する］［印刷しない］の2つのボタンがあって、
［印刷する］をクリックしたら印刷し、［印刷しない］をクリックしたらジョブキャンセルしたいのですが、
どうすればいいでしょうか？

Workbook_BeforePrintに書けば、印刷ボタンクリックでフォームは表示できますが、
これだとフォーム表示と同時にそのまま印刷も走ってしまいますよね。
［印刷する］［印刷しない］のいずれかがクリックされるまで印刷を待機させたいんです・・・。
何か方法はありますでしょうか？

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

??407
俺の場合、印刷プレビューを使ってワンクッションおいているが。

>>407
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim dlgAnswer
dlgAnswer = MsgBox("しちゃう？", vbYesNo, "たずねる")
If dlgAnswer <> vbYes Then
Cancel = True
End If
End Sub
こんな感じにしても印刷まで行っちゃうの？

オフィス２０００で
方眼紙を作りたいのですが、升目をクリックして青の点線の方眼を作りたいのですが
方法ないですか？

升目ってセルのこと？
セルクリックという手順がどうしても必要ならVBAが必要

手順が違ってもいいのならセルを正方形にして罫線を引けばいいだけ
ttp://ourfilehost.net/up/file1/img/up2163.png

>>411
罫線を引くのはやはり、フリーで一本１本ってことでしょうか？

セルの罫線？　記号でクリックしたら一度に範囲全部引けるやつは
無理でしょうか？


サイトの画面の右下　左３番目に見えるやつです。

>>410
Officeのサイト行って方眼目のテンプレートをダウンロード。

うぉーーーー　一本１本引いたら　きれいなブルーじゃねぇ

Word使ったほうがいいんじゃね

クリックでひけるなら教えろ

>>416
無理ッス。>>411か>>413が現実的。
それでダメな理由を書いてください。

>>417
そこは、VBAが難しそうだし、ダウンロードできないからだろ。


今、２本ずつ引いてるとこ。

おぉおおおぉぉおー　今度は、プリンタの青がでねぇ　。

410が何をしているのか分からない・・・セルを四角にして罫線じゃだめなのか？？？
クリックでひけるなら？？？？

たぶんオートシェイプとかのアイコンワンクリックで、みたいなことだろうな

Excelは作図ソフトじゃねえっつーの

>>410
↓ここのExcel2003の奴ダウンロードして開けるかどうかやってみ。
　あと開けたら不要な部分は削除してカスタマイズして使って。
http://office.microsoft.com/ja-jp/templates/results.aspx?qu=%E6%96%B9%E7%9C%BC%E7%B4%99&origin=CT010117250

>>423
ありがとう。

でもダウンした、画面が小さいまま　でかくなんねぇ。

>>420
そうなんだけど。
普通に学校でかっこよく５ｍｍ方眼がほしいだけだけど。、、、薄い青で
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　↑
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　今、ココ

　　　

>>425
セルに罫線引くのが現実的
セルの大きさはmm単位で指定できないんでテスト印刷して自分で合わせれ
色もプリンタによって違うからテスト印刷で

　　　　　　　　
　ヤレヤレ…　
.　　 ∧__,,∧ 　
　　 (　-ω-)　
.　　 /ヽ○==○
　　/ 　|| | ■ Excel総合相談所 94
　　し'￣(_)）￣(_)）￣(_)）￣(_)）￣(_)）￣(_)）

こっちがヤレヤレだぜ

Excelはプリンターによって微妙に印刷結果が異なるし、厳密に5mm方眼は難しい。
っぽいのならいくらでも作れるけど

>オフィス２０００で
>方眼紙を作りたいのですが

そもそもここで聞くのが間違い。
wordスレへ行け。

という回答が正解なんだろうな。

>410,425
５ミリピッチで　とか　青色い点線　とかなら、Jw_Cadなどの作図ソフトが最適では？

>>401
ペイントで編集するしか無いかな？
軸の書式設定で最小値を-100、目盛間隔を200
交点を-100にして作成
あとはコピーしてペイントに貼付け、Y軸を0に合わせる

最初から交点を0にするとめり込んでしまうんだよなーなんかいい方法ありそうなんだけど
>>410
全体選択（ctrl+a）で列番号を右クリック、列幅の設定。行も同じように設定
右クリックでセルの書式設定、罫線タブで色

でも印刷するなら
http://www.google.co.jp/search?client=opera&rls=ja&q=pdf+%E6%96%B9%E7%9C%BC%E7%B4%99&sourceid=opera&ie=utf-8&oe=utf-8
pdfダウンロードした方が早い

>>432
ＰＤＦダウンした。仕事はえぇな。

格子クリックで色が変えられたら最高なのに


お茶の出前ﾄﾞｿﾞ
　　　　　　　 ~旦
　　　　　　　~旦旦
　　　∧_∧~旦旦旦
　　（*・∀・)ノ
　　（ 　ο┳
　　◎-Ｊ┻◎


ワードの過疎ぶりに納得。

>>422
excelってお絵かきとゲーム以外何が出来るんだ？

>>434
整数の計算(｀・ω・´)　ただし、数がいっぱいになるとちょっと苦手(´・ω・｀)

>>422
じゃあ　なんだよ、　ぎゃくに。

>>436
意味不明な逆ギレは恥ずかしいぞ。もうやめとけ。

【1 OSの種類 　 　 　 　 .】 Windows VISTA
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 カウント・統計・種類別

http://loda.jp/0tm/?id=26

Ａ列にあるＩＰアドレスの種類をＣ列のように分別し、それぞれいくつあるのかをＤ列のように示す。
ＵＲＬにあるｃｓｖはアドレス数が少ないので手作業で種類と個数を数えましたが、大量のアドレス数になると厳しいので、エクセルで解決できればうれしいです。
よろしくお願いします。

>>438
こういう場合はピボットテーブルが最強。ピボットテーブルで検索してみ。
慣れれば30秒も経たずに集計できる

質問です。
2007使っています。
マクロでa5にカーソルがあってマクロ作業してカーソルがa6に最後に行くようにすればどうすればいいですか？
例えばs7にカーソルがあったらs8に最後移動するようにしたいです。

>>440
Selection.Offset(1, 0).Select

>>441上手く行きました。ありがとうございました。

>>439

即答ありがとうございます。

便利すぎワロタｗ

セルの幅・高さをinch/cmで指定するマクロ
ttp://support.microsoft.com/kb/213422

>>444 いや、印刷なめんな。それはみんな分かって言ってる

おまえの cmは ほんものか？

【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】excel　グラフ

質問です
上から1月から12月と言う順番に表に書いたのに
グラフにすると12月から上になります
表を変えずにグラフの順番も1月からにする方法って無いですか

右クリック

軸の書式設定

目盛

軸の反転

全国の複乳ファンの皆様こんにちは。ニセモノの複乳です。
さいきんずっと自宅PCからはアクセス制限で書き込めない状態が続いています(いま外から)。

　　　　　　　　　　　　　　　　　
　　　　　　／￣￣￣￣￣￣＼
　　　　／　　　　　　　　　　　　 ＼
　　　/　　　　　　　　　　　 　 　 　 ヽ　
　 　 l:::::::::.　　　　　 　 　 　 　 　 　 |　
　 　 |:::::::::: 　　（●） 　 　 （●）　　 |　
　　　|::::::::::::::::: 　 ＼＿＿_／　　 　 |　　
　 　 ヽ:::::::::::::::::::.　　＼／　　　　　ノ

>>452
ちゃんと自宅の住所を確定しろよww

>>408-409
お礼が遅れました。ありがとうございます。

>印刷プレビュー
職場で使っているブックなんですが、特にコマンドバーは隠しておらず
スタッフは皆、普通にコマンドバーの「印刷」ボタンをクリックする習慣があるので、
印刷プレビューでワンクッション置くのは難しい状況なんです。

>MsgBox
Msgboxだとキャンセルできるんですね。フォームでは厳しいでしょうか？
というのは、書き込むにあたりちょっと簡潔にし過ぎてしまったのですが、
正しくは、まずコマンドバーの「印刷」ボタンをクリックするとフォームが表示され、
フォーム上のリンゴ・みかん・バナナなど果物を選択するコンボボックスで
「バナナ」を選択した場合だけ印刷、それ以外のときは印刷キャンセル、
という流れなんです。

このような処理は可能でしょうか？
（無理ならもう Application.CommandBars("○○○").Visible = False
でバーごと消そうかと考えております。）

>>454
ツールバーはかなり自由に編集できるから、
「印刷」ボタンの実態を「印刷プレビュー」に変更してしまうという手もある

>>454
UserForm1.Show vbModeless
とかフォームを待たないように書いてない?

>>455-456
ありがとうございます。「vbModal」にしたらうまくいきました。

フォーム表示より先に印刷が走っているような見た目だったんで、
「vbModeless」か「vbModal」かは関係無いと思い込んでましたが、
単にフォームの表示に時間が掛かって
処理の軽い印刷ダイアログの方が先に表示されてたんですね。

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

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel 2007

for 文で i が特定の値の場合飛ばすにはどうしたらいいでしょうか。
28-50　106-115　119-141　・・・　という風にランダムです。
if　で一つ一つ飛ばすしかないんですかね？

>458　こんな感じではどうですか？

配列　=　array(28,50,106,115,119,141・・・・・)

i_max　=　UBound(配列)
i　=　0
Do
　　For　j　=　配列(i)　To　配列(i+1)
　　　　処理
　　Next　j
　　i　=　i　+　2
Loop　While　(i　<　i_max)

>>458
select case使うと楽と思う
ttp://homepage1.nifty.com/rucio/main/technique/Select.htm
Sub a()
a1 = 28
a2 = 50
b1 = 106
b2 = 115
c1 = 119
c2 = 141

For i = 1 To 200

Select Case i
Case a1 To a2, b1 To b2, c1 To c2
'処理　Cells(i, 1) = i
End Select

Next
End Sub

>459　のｊとｉを入れ替えてください＞458
範囲の組み合わせが多いときは、シートに２次元の表にして、２次元の配列に読み込むといいかも。

>460
範囲の組み合わせが少ないときは便利ですね

>>459>>460
色々な方法があるのですね
両方試してみたいと思います
ありがとうございました

>>458
Select Case i
　　Case 28 To 50
　　　　処理
　　Case 106 To 115
　　　　処理
　　Case 119 To 141
　　　　処理
End Select

とか

Select Case i
　　Case Is (28 < i) And (i < 50) Or (106 < i) And (i < 115) Or (119 < i) And (i < 141)
　　　　処理
End Select

とか
まあ後者だとIf文でも変わらんけどな

>382,385,388,403　へ連絡です。
>385用のは、ほぼできました。必要ならＶＢＡマクロのソースなどｕｐできます。集計用とは別にシートを１枚追加する必要はあります。

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

A列、B列、C列に入力されている文字をD列にまとめたいのですが、
たとえば
A列　　　B列　　　C列
ｴｸｾﾙ　　 ﾜｰﾄﾞ　　 ﾊﾟﾜｰﾎﾟｲﾝﾄ
のように入力されていて、D列に、＝A1&B1&C1と式を入れると
ｴｸｾﾙﾜｰﾄﾞﾊﾟﾜｰﾎﾟｲﾝﾄのように区切りがなくまとまってしまいますよね？？
そうではなく、D列にはｴｸｾﾙ,ﾜｰﾄﾞ,ﾊﾟﾜｰﾎﾟｲﾝﾄのように区切りをいれてまとめたいです。
でも、ABCのすべての列に入力があるわけではなく、
A列だけ入力されていたりの場合もあるので、区切りがつねに入るようにしておくと
A列だけの入力をDに何らかの式で反映させると、ｴｸｾﾙ,という風になってしまいます。
複数の入力があるばあいだけ点をいれて区切る、ひとつだけの場合は
点が入らずそのままD列に入力が落ちるというふうにしたいのですが
どうすればいいでしょうか？？説明が下手ですいません。

>>465
一発でやる方法はない
長〜い式を書くしかない
あるいはマクロ

>>465
=IF(A1="",IF(B1="",IF(C1="","",C1),IF(C1="",B1,B1&","&C1)),IF(B1="",IF(C1="",A1,A1&","&C1),IF(C1="",A1&","&B1,A1&","&B1&","&C1)))

>>465
=CHOOSE((A1="")+(B1="")*2+(C1="")*4+1,A1&","&B1&","&C1,B1&","&C1,A1&","&C1,C1,A1&","&B1,B1,A1,"")

>>465
=SUBSTITUTE(TRIM(A1&" "&B1&" "&C1)," ",",")

>>467 >>468
わ〜！すごい！！できました！！！
本当にありがとうございます！聞いて良かった！！！

>>469
おおっっ！これもできた！
いろいろあるんですね！ありがとうございます！

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

　　　　　.＿＿＿＿＿＿＿＿＿
143.1+√(143.1^2)-4×793.4
────────────
　　　　　　　　2

excelで上の式を計算使用として、セルに

=(143.1+(143.1^2-4*793.4)^1/2)/2

と入力したら、答えが4397になりました。

137が本当の答えで、上の式は間違っていることになりますが
どこが違うのか分りません。

　　　　　.＿＿＿＿＿＿＿＿＿
143.1+√(143.1^2)-4×793.4
────────────
　　　　　　　　2
を解くのに
=(143.1+(143.1^2-4*793.4)^1/2)/2
はどこが間違っているのか、教えてください

=(143.1+(143.1^2-4*793.4)^(1/2))/2
かな？

>>472
「)^1/2」の部分で「^」の方が「/」より演算子の優先順位が高いので
1乗した後で2で割ることになります

>>473>>474
137になりました。
ありがとうございます。

【1 OSの種類 　 　 　 　 .】 Windows　vista
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 ピボッドテーブル　個数　集計　要素別 カウント

http://loda.jp/0tm/?id=36
添付したエクセルには、全データが羅列された「全番号」と、ピボットテーブルで「全番号」にある値の'種類'が若い順に分類された「番号別」という２つのシートがあります。
たとえば『0がいくつあるか』なら、「番号別」のB2に≪=COUNT(番号別!A1:A66673)≫とすれば答え(例では77)は出ますが、番号の要素が多いので一つ一つ
やっていては時間がかかってしまいます。

一度にすべての要素別の数を計算し、「番号別」のB列に数を表示する方法はないでしょうか？

お願いします。

>>476
０がいくつあるか・・・でcountを使うの？　意味が分からない。

countじゃなくてcountifでしょ。
なんでピボットテーブルでいっぺんに出さないのか疑問は尽きないけど、
b2に
=COUNTIF(全番号!A:A,A2)
下にオートフィル

意味を取り違えている可能性大だけど、質問が意味不明すぎる

>>476
『0がいくつあるか』の答えは28440行目の１個だけじゃん？

B2に=COUNTIF(全番号!A:A,番号別!A2)
と入力して一番下までコピーしたらいいのでは？

または、ピボットで、こんな感じに。
http://www.death-note.biz/up/m/12019.jpg

質問です。２００７を使用しています。

物質の粒子径の範囲にある個数を調べています。
とりあえずFREQUENCYを使っているのですが、区間配列（例：200μｍ〜210μｍ・・・）の
指定がよくわかりません。

よろしくお願いします。

すみません>>479です。テンプレ忘れてました
【1 OSの種類 　 　 　 　 .】 Windows　vista
【2 Excelのバージョン 　 】 Excel 2007

物質の粒子径の範囲にある個数を調べています。
とりあえずFREQUENCYを使っているのですが、区間配列（例：200μｍ〜210μｍ・・・）の
指定がよくわかりません。

よろしくお願いします。

>>479
http://pc.nikkeibp.co.jp/pc21/special/hr/hr6.shtml

>>481 ありがとうございます。恐縮なんですが粒子径は小数点がダァーっと続くんです。
この場合はどうすればいいですかね。

>>477-478

詳細な回答ありがとうございました。初めに行った77という結果は間違っていたみたいです。
失礼しました。

Excel 2011 Mac OS10.6.5です。

以前使っていたファイルを開くと一部の数式が文字列扱いになっていました。
具体的には
"=C8"がそのまま表示されるなどです。
セルの書式は標準ですので問題なく、またそこで見えるプレビューは正しく参照されています。
何か設定がおかしいと思うのですが、どうすればよいのでしょうか？

よろしくお願いします。

全番号は1434以外のデータはないんだが？
いずれにしてもCOUNTIFはいくらなんでもないな。
普通はピボットだよな。
要素に幅があるならピボットのグループ化か関数でやるならFREQUENCYだろ？
どっちにしてもCOUNTIFはない。

>>484
詳細設定で「計算結果の代わりに数式をセルに表示する」になってない？

▼━質問テンプレ (出来れば使ってね) ━━━━━━━━━━━━
【1 OSの種類 　 　 　 　 .】 WindowsＶｉｓｔａ
【2 Excelのバージョン 　 】 Exce2007l
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 縦一列　自動　改行　エクセル　プリントアウト

Ａ１〜Ａ３００００までデータが入力されています。

このデータ全てをプリントアウトしなければいけないのですがそのままプリントアウトすると一枚の用紙にＡ１〜Ａ５０までしかプリントされません。
そこで
Ａ５１〜Ａ１００のデータをＣ１〜Ｃ５０へ
Ａ１０１〜Ａ１５０のデータをＥ１〜Ｅ５０へ
Ａ１５１〜Ａ２００のデータをＧ１〜G５０へ
・
・
・
と自動で移動させて少ない枚数でのプリントアウトにしたのですが何か良いては無いでしょうか？

>>487
c1=INDIRECT("r"&(COLUMN()-1)/2*50+ROW()&"c1",0)
ﾃｷﾄｰにｵｰﾄﾌｨﾙ

>>482
これじゃだめなの？
ttp://www1.axfc.net/uploader/Img/so/100579.jpg
何をどうしたいんだかわからん

>>488
ありがとうございます。
本当はもう少し複雑だったのですがただ関数さえわかればあとは応用でなんとかできるだろ。と思ってたらアホすぎて結局わかりませんでした。

今回は横着せずにきちんと書きます。

Ａ１〜Ａ３００００　Ｂ１〜Ｂ３００００　Ｃ１〜Ｃ３００００　Ｄ１〜Ｄ３００００　までデータが入ってます。

Ａ５１〜Ａ１００のデータをＦ１〜Ｆ５０へ
Ａ１０１〜Ａ１５０のデータをＫ１〜Ｋ５０へ
・
・
Ｂ５１〜Ｂ１００のデータをＧ１〜Ｇ５０へ
Ｂ１０１〜Ｂ１５０のデータをＬ１〜Ｌ５０へ
・
・
Ｃ５１〜Ｃ１００のデータをＨ１〜H５０へ
Ｃ１０１〜Ｃ１５０のデータをＭ１〜Ｍ５０へ
・
・
Ｄ５１〜Ｃ１００のデータをＩ１〜Ｉ５０へ
Ｄ１０１〜１５０のデータをＮ１〜Ｎ５０へ
・
・
といった感じにしたいのです。
何度も質問してすいません。
よろしくお願いします。

>>490
えー
F1=INDIRECT("r"&INT(COLUMN()/5)*50+ROW()&"c"&MOD(COLUMN(),5),0)

グーグル検索
↓
念のためうぷ（´・ω・｀）まわいが重要


グーグル検索
↓
やらなくてもやられるし　日本語以外話せないし


テレビやネットで説明

>>490 >>488を元に改変。

F1=INDIRECT("r"&(INT((COLUMN()-COLUMN($F$1))/5)+1)*50+ROW()&"c1",0)
G1=INDIRECT("r"&(INT((COLUMN()-COLUMN($F$1))/5)+1)*50+ROW()&"c2",0)
H1=INDIRECT("r"&(INT((COLUMN()-COLUMN($F$1))/5)+1)*50+ROW()&"c3",0)
I1=INDIRECT("r"&(INT((COLUMN()-COLUMN($F$1))/5)+1)*50+ROW()&"c4",0)
J1は空白。

上記式をそれぞれ書き込んで、F1〜J1まで範囲選択(I1までじゃない)、そのまま横方向に3000列までフィル。
さらにその選択状態から下方向に50行フィル。以上。


>>488
COLUMNやROWって引数なしもアリだったのか。
知らなかった、ありがとー。
うん、こりゃ便利だわｗ (以前は自セル参照させてた)

>>491　すでに遅かった上に式を長くしただけだった、すまんｗ

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

次のような表で、A列に記号、B〜G列に数字が入っています。
A列の記号の中で、いくつか"DC"を含むものと含まないものがあり、
"DC"を含む方へ合算して下段の表のようにしたいです。
（合算後は、DCを含まない方を0に置き換えます）

AB-A123DCAA　　　　　　0　　100　　200　　100　　　 0　　100
AB-A123AA　　　　　　 200　　200　　100　　　 0　　100　　100
CC-C3456DCCC　　　　　0　　　 0　　100　　200　　100　　200
DC-B2345BB　　　　　　　0　　100　　　 0　　　 0　　200　　　　0
CC-C3456CC　　　　　 100　　200　　100　　　 0　　　 0　　100

AB-A123DCAA　　　　 200　　300　　300　　100　　100　　200
AB-A123AA　　　　　　　　0　　　0　　　　0　　　 0　　　0　　　　0
CC-C3456DCCC　　　 100　　200　　200　　200　　100　　300
DC-B2345BB　　　　　　　0　　100　　　 0　　　 0　　200　　　　0
CC-C3456CC　　　　　　　0　　　0　　　　0　　　 0　　　0　　　　0

このとき、対象となる"DC"は、左から8番目以降になっており、
"DC-*"とか"AA-DC*"のように左から7番目までのものは除外します。

今は手作業で"DC"を含むものを検索し、その中から"DC"を削除したものを
再度検索して該当するものがあれば抜き出し、２組を照合させて合算しています。
件数が少ないときは手作業でも良かったものの、ここ最近は500件くらいに
増えてきたので、マクロで処理できればと思い質問させて頂きました。
よろしくお願いします。

私の心の中の関数 -My excel story
http://www.youtube.com/watch?v=Zzg9RrR3K2U

>>495
「8番目以降」にハイフンは含める？含めない？
"AA-AAADC*"だとどっちだろう

もう一つ質問。ハイフンはかならず入ると思っていいのかな

あー違った
AB-A123DCAA　が除外で
CC-C3456DCCC　はその処理をするって認識でいいのかな

>495　DCを除いたものが一致するデータが１個だけなら、これでどうですか？
Dim tate As Long, tate_strt As Long, tate_end As Long, yoko As Integer
Dim moji As String, kensaku As String, c As Object
Sub excel495()
　　tate_strt = 2
　　tate_end = Range("A65535").End(xlUp).Row
　　For tate = tate_strt To tate_end
　　　　moji = Cells(tate, 1).Value
　　　　If Len(moji) > 8 Then
　　　　　　If Mid(moji, 8, Len(moji) - 7) Like "*DC*" Then
　　　　　　　　kensaku = Replace(moji, "DC", "")
　　　　　　　　Set c = Range(Cells(tate_strt, 1), Cells(tate_end, 1)).Find(kensaku)
　　　　　　　　If Not (c Is Nothing) Then
　　　　　　　　　　For yoko = 2 To 7
　　　　　　　　　　　　Cells(tate, yoko).Value = Cells(tate, yoko).Value + Cells(c.Row, yoko).Value
　　　　　　　　　　　　Cells(c.Row, yoko).Value = 0
　　　　　　　　　　Next yoko
　　　　　　　　End If
　　　　　　End If
　　　　End If
　　Next tate
End Sub

ＤＣを除いたものが一致するデータが２個以上のときは対応してません、あしからず

お尋ねします。
Excelの日付のシリアル値にはマイナスはないんでしょうか？
明治32年以前が扱えなくて困ってます。

>501
西暦年（４桁）＋月（２桁）＋日（２桁）の８桁の数字（数値or文字列）で記録するしかないと思う。
事務用プログラム言語である「コボル（COBOL）」では、表計算みたいな日付データ形式なんてなかった
ので、こういう形で日付を扱っていた。というよりも、年を２桁でしか記録してなかったシステムが
多く、「コンピュータの２０００年問題」で大騒ぎしたのは、もう一昔前か（遠い目）

>>501
マイナスは使えないし1900年3月1日以前を扱うと1日ずれるぞ

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2007

sheet1印刷範囲のページ1枚目(A1:E35) に型枠があり、sheet2からデータを挿入するというマクロを作りました。
又、ページが1枚では足りない時の為に、あらかじめ型枠をページ1枚目以降にコピーしてあります。


ここで型枠をページ1枚目だけに書いておき、ページが2枚以上になる場合にはその都度型枠を追加していく
という風にしたいのですがどうしたらいいでしょうか？
ページが増えるタイミングで、ページ1をコピーして追加・挿入した文字等を削除という風にするしかないでしょうか？

>504
あらかじめ多めに「型枠」を作っておいて、印刷範囲を調整する方が簡単だと思う

>>505
確かに印刷範囲を調整したほうが簡単ですね
回答ありがとうございました

>500は　Instr関数がいいかも
If Instr(8,moji,"DC") > 7 Then　　　　　　　　　　'8は検索開始位置
　　kensaku = Replace(moji, "DC", "",8,1)　　　'同上（次の１は置換回数
　　Set c = Range(Cells(tate_strt, 1), Cells(tate_end, 1)).Find(kensaku)
　　If Not (c Is Nothing) Then
　　　　For yoko = 2 To 7
　　　　　　Cells(tate, yoko).Value = Cells(tate, yoko).Value + Cells(c.Row, yoko).Value
　　　　　　Cells(c.Row, yoko).Value = 0
　　　　Next yoko
　　End If
End If

>>501
Excelの一般機能のシリアル値にはマイナスはない。
VBAのシリアル値なら-657434(100/1/1)〜2958465(9999/12/31)まであるから
VBAを使えば出来る。

【1 OSの種類 　 　 　 　 .】 Windows vista
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 ecxel xyグラフ　３つめの要素

x y z
1 2 1
2 3 4

.....

のようにある表のxyをグラフにして、
zごとに点の色を変えることはできますか？
出来るのなら教えてください。

495です。
ご回答いただき、感謝いたします。
500さん=507さんのマクロで集計できました。

>>497
8番目以降にハイフンはありません。
"AA-AAADC*"だと合算の対象です。

>>498
ハイフンは左から2〜4番目が多く、必ず入るかはまだ分りません。

>>499
AB-A123DCAAは、"DC"が左から8番目以降なので除外しません。

ターゲット初心者です。

オッズをＣＳＶ出力させる方法について教えて下さい。
出力さえできればＣＳＶという形でなくてもかまいません。
ターゲットの画面で枠連を人気順に表示させています。

それをエクセルに出力させたいのですができません。
「Ｆ８・出力キー」を押すと「オッズテキスト主力形式選択メニュー」
が表示されます。そこで「枠連人気順整形テキスト形式」を選択する
と、「整形テキスト形式出力ファイルの指定」のダイアログボックス
が表示されます。

アクセスフォルダ(Ｄ)を見ると「C:\TFJV\TXT\」となっています。
フォルダ内ファイルリスト(Ｌ)を見ると「POG_LIST.TXT」となって
います。

これを選択し、ＯＫボタンを押すと「同名のファイルが存在します。
処理を選択して下さい。」という同名ファイル処理選択ダイアログ
ボックスが表示されてしまいます。

出力方法が間違っているようです。私はエクセルに出力させたいの
ですが、それができません。どのようにすれば良いでしょうか？

ターゲット板で質問したところ、エクセル板に行けと言われたので
きました。エクセル2000です。
よろしくお願い致します。

それはエクセルでなくターゲットなる物の操作方法になるのではないか？

>>509
わかんね
>>511
なんのソフトだ？IE？

>>509
希望通りの表示になるかわからんけど
とりあえずVBAでサンプル作ってみるよ。

とりあえずZの項目が始まるセル番地教えてください。

>>511
ttp://homepage2.nifty.com/~blitz/
ターゲットってソフトがあるのね。その板でわからないなら開発者に聞いてください。

>>514
自己解決しました。
お気持ち、ありがとうございます。

【1 OSの種類 　 　 　 　 .】 WindowsVista
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 使おうと思えばある程度使える
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】


確率 1/2 で 500 回試行 290〜310 回成功する確率　を求めたいのですが、どうすれば良いでしょうか。
BINOMDIST関数ではできませんでした。

>>511
http://groups.yahoo.co.jp/group/target-club/に作者がいるよん

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

>>517
=BINOMDIST(310,500,0.5,1)-BINOMDIST(290,500,0.5,1)
=0.014%

>>520
なるほど！ありがとうございました

2007エクセル使っています。
コピペをマクロで貼り付けしているんですけど
間違えて貼り付けした場合マクロだと元に戻すが出来ないんですが
どうすればいいでしょうか？
失敗するごとに一度ブックを閉じてしまいます。
お願いします。

>>522
とりあえず簡単な方法を3個。
�@　マクロを使わない。
�A　貼りつけるセルが決まっているのならそれもマクロに記述（記録）して使用する。
�B　貼りつけるセルが決まっていない場合、メッセージボックスを付け加えワンクッション
　　置くように編集する。

>>522
貼付け先のシートを先にコピーしておくとか

>>522
貼りつける前の状態にするマクロを組めばいいと思います。

質問失礼します。
地図をエクセルで作成する場合に、曲線の二重線を使って道路を描きたいのですが
コピペとするとこのように
http://www.dotup.org/uploda/www.dotup.org1263315.jpg
重なってしまってうまくいきません。

曲線をうまく使いきれいな二重線を描いていくことは可能でしょうか？
宜しくお願い致します。

>>526
Excelのバージョンは？

2003と2007があります。

>>528
2003の場合、コピーして太さと色を変えて重ねると二重線みたいになる
わかりやすくするために色を付けたけど、実際は細い方を白にする
ttp://f12.aaa.livedoor.jp/~itatisa/phpup/cgi/src/up13526.png

>>528
2007では、図形を右クリックして「図形の書式設定」→「線のスタイル」で
「線の幅」をある程度太くしてから「一重線/多重線」で二重線を選ぶ
ttp://f12.aaa.livedoor.jp/~itatisa/phpup/cgi/src/up13527.png

>>529-530
非常に助かりました、ありがとうございました。

みなさんありがとうございます。
ヤッパリ難しいですね。面倒ですけど貼り付ける前に上書き保存しておいて
失敗したらブックを閉じるしかないですね。
>>525貼り付ける前のマクロって気になりますｗ

>>532

例えば、コピペする前の値？を何処かに置いといて間違ったらそれをコピペするマクロ。
詳細ｋｗsk

>>533
コピペするのはいつも状況によって違います。
例えばある時は千葉の店舗、ある時は埼玉の店舗とか。
千葉を分析したいのなら
左ドラッグして範囲を選んでそれをコピペします。
あるところに貼り付けて分析するようにしています。
たまに間違えて東京都とか貼り付けてしまって面倒で。
失礼しました。

>>534間違えたｗ

>>534
それって本来はピボットでやる仕事だな
元のデータがきちんと正規化してあれば、いちいちコピペしなくても店舗ごとに分析できる

>>534
ＩＦ文とＶＬＯＯＫＵＰ使えば解決すると思うんだよね。
もし千葉店舗なら○○値が出て、もし埼玉店舗だったら□□値が出てるとしたら
その○○、□□を制御出来ればコピペマクロも失敗しないと思うんだけどね。

>>534
手作業と組み合わせるから失敗する
何もかも全部マクロでやればいい

エクセル2007でデフォルトの表示を変えるには
どうしたらいいですか？

例えば、Uは下線を引く　Dは２重下線を引くで
デフォルトではUのみ表示されていて、Dは隠れていますが
Dをデフォルトで表示させて、Uは隠れさせたいのです。

>>539
リボンに並んでるボタンを入れ替えるには専用のフリーウェアが必要

>>540
そのフリーウェアを教えてください。

>>539
クイックアクセスツールバーに追加して常に表示させておくという手もあるよ。

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 エクセル（excel）　ファイル　パスワード　解除　マクロ

同一のパスワードがかかったエクセルファイルが50個ほど、定期的に送られてきます。
1日に何度も開くため、その都度パスワードを入力するのが非常に面倒です。
一括で50個全部のパスワードを解除できる方法はないでしょうか。

検索したところ、唯一参考になりそうなページがこれでしたが自力では無理でした。
ttp://questionbox.jp.msn.com/qa4453228.html

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

>>543

出来ることから始めよう
少しだけ楽になればそれでいいだろう？
マクロの記録をかけて、ファイルを開いてパスワード入力するとこまで記録させて
あとはそのマクロを編集すればよい
ファイル選択のあたりが、直接ファイル名になってるはずだから
そのマクロを実行するとそのファイルだけしか使えないけど
編集してファイル名を変数に修正して、ファイルを開いて選択した奴をその変数にぶち込むようにすれば
「ファイルを開く」の代わりにそのマクロを実行するだけで済む

>>544
完璧な回答だね！すごいや！

みなさんありがとう。
みなさんの言うとおりやってみます。

仕事上での売掛計算の合計値として
SUMIF関数を使いたいのですが
条件設定が完全一致ではなく
一部一致で計算してくれる方法は無いですか？

現在、同一セル内に『人名（企業名）　カード会社名』を表記してるのですが
セル内にあるカード会社だけを抜き出して、合計するようにして欲しいのです。

例えば
A1『田中　JCB』　B1『5000円』
A2『佐藤　JCB』　B2『3000円』
A3『●●●商事』　B3『2000円』
A4『大山　VISA』　B4『2000円』
A5『村上　JCB』　B5『500円』
という風にあるとして
JCBだけを合計したい場合です。

現状だとセル内を　JCB　だけにすると合計値を計算してくれますが
それ以外の文字が入っていると計算してくれないのです。
どうしたらいいですか？

>>547
=SUMIF(A:A,"*JCB*",B:B)
ワイルドカード使うといいよ

>>548
うほっほほほほほほぉおおおおおおおお
うぁりぃいがとぉおおおおございますぁあああああああああああああああ
これで仕事の能率が上がり、仕事の終了時間が早くなります(｀・ω・´)

ﾜﾛﾀ。良かったね

>>464

遅くなってしまって申し訳ありません。
急遽出張で飛ばされていました。
大変不快な思いをさせたことを深くお詫び申し上げます。

改めて
http://ourfilehost.net/up/file1/upload.php?id=2205
に横列だけ再現いたしました。
出力先も作りましたのでご査収ください。

尚464でおっしゃられたファイルを送っていただけると
大変勉強になりますので、よろしければお願いしたいのですが、
可能でしょうか？
また明日の22時頃に顔を出させていただきます。
失礼いたしました。

>>541
Custom UI Editor Tool
2007から画面のデザインがXMLになったので、ファイルを直接編集すれば
かなり自由に外観を変更することができるようになった

>>544
回答ありがとうございます。
申し訳ありませんがVBAの知識がないため、この部分の具体的な方法が分かりません。
＞ファイル名を変数に修正して、ファイルを開いて選択した奴をその変数にぶち込むようにすれば

>>543のリンク先にあるように「フォルダ　すべてのブック　VBA」で検索しましたが
やはりよく分かりませんでした。

また、「パスワードの入力を楽にしたい」のではなく、
希望としては「同一フォルダに入った全ファイルのパスワード一括解除（なしで開ける状態にしたい）」なのですが･･･。
分かりづらくすみません。

あと念のため、>>545は自分のレスではありません。

>>553
ほい

Sub xxx()
　　ChDir ("C:\ExcelData")　　'処理するフォルダを指定
　　With Application
　　　　.DisplayAlerts = False　　'上書きの警告メッセージを出さない
　　　　.ScreenUpdating = False
　　　　.Calculation = xlCalculationManual
　　　　.EnableEvents = False
　　　　.Interactive = False
　　　　fname = Dir("*.xls")
　　　　While fname <> ""
　　　　　　Workbooks.Open Filename:=fname, Password:="ぱすわーど"　　'パスワードを指定して開く
　　　　　　ActiveWorkbook.SaveAs Filename:=fname, Password:=""　　'パスワード無しで上書き保存
　　　　　　ActiveWorkbook.Close
　　　　　　fname = Dir()
　　　　Wend
　　　　.DisplayAlerts = True
　　　　.ScreenUpdating = True
　　　　.Calculation = xlCalculationAutomatic
　　　　.EnableEvents = True
　　　　.Interactive = True
　　End With
End Sub

>>554
ありがとうございます！！！！！
素晴らしい、感激です。

すいません。
例えば
『=SUMIF(D35:D50,"*クーポン*",E35:E50)+SUMIF(N35:N50,"*クーポン*",O35:O50)+SUMIF(X35:X50,"*クーポン*",Y35:Y50)+SUMIF(AH35:AH50,"*クーポン*",AI35:AI50)』
とあった場合
これをもっと短くするにはどうしたらいいですか？

それともこれを短くすることは出来ないのでしょうか？

>551
内容がだいぶ変わってしまったのでビックリしてます。いくつか質問を・・・

Ｑ１　年月の部分（Ｏ１セル以降の部分）の数字は２バイト文字で間違いないですか？
　　　　また、>385でアップされていたファイルでは西暦４桁年になっていましたが、
　　　　>551では西暦年の下２桁または１桁になっていますが、間違いないですか？
Ｑ２　９年１１月より前の部分（件数がない）は、無視していいですか？
　　　　いまさら２００９年中の集計はないでしょ？　というのは、集計処理の際、
　　　　集計対象列を設定する処理を　Find関数　を使って行うことから、存在し
　　　　ない列があってはまずいです。
Ｑ３　前にもおたずねしましたが、データは右へ右へと伸びていくんですか？
　　　　アップされたファイルには１０年１１月までしか見出しがありません。
　　　　それとも、昔のデータの列をまるごと削除して左へ詰める？
Ｑ４　シート「出力先６」（タイトル：チーム別成績分布表）は、○○万以上の人数
　　　　や割合などの意味がわからないので、当面考えないことにします。
Ｑ５　シート「出力先４」（タイトル：新人単月ランキング）は、計上の条件が
　　　　「入社１年以下」ですが、単に処理日（このＶＢＡマクロを実行する日）
　　　　で１年以内と考えていいんですか？　それとも、基準日のきまりがありますか？
　　　　また、件数・成績は単月でいいですね？

とりあえず、このくらい。またわからないことがあったら書きます。

>>556
うん、短く出来ない。
sumproductを使えば多少短くなるかも知れないけど、あんまり変わんない気がするし

>>556
作業列作って振り分ければ短くなるしトレースがとれる。

かもね。

>551
アプロダにＵＰ済みです。２個同じものが続いているのでわかるはず。
わからなければおたずねください。
※.vbsはインポートしてください。（メモ帳で開いて２行目以降をコピペでもいいです）

>>556
どうでもいいことだし、かえって分かりづらくなるかも、だけど
*クーポン*
というのをどこかのセルに入れておいて、検索条件でセルを参照させるようにするとほんの少し短くなるｗ

>560の最後の行は
※　．ＶＢＳはインポートしてください。（以下同文
です。なぜ消えたんだろう

VBAで質問なんですが、よろしいでしょうか。

ちょっとやってみたいことがあって、イベントを試してみています。
で、実験してみたのはこんな感じ。

＠実験の内容
Msgクラスのインスタンスからイベントを発行すると、
２つある別のクラスのインスタンスからそれぞれイミディエートウィンドウに
メッセージを出すというもの。

○標準モジュール
・宣言部
　　Msgクラスをとる変数を作成
・Mainプロシージャ
　　Msgクラスのインスタンス作成
　　Class1クラスのインスタンス・Class2クラスのインスタンスの作成
　　Class1.Aメソッド実行

○Msgクラス
・Mメソッド
　　イベントMessege（String)を発行

（続きます）

○Class1クラス
・宣言部
　　Msgクラスをとる変数をPublic WithEventsで作成
・Initialize
　　宣言部で作成したMsgクラスのインスタンスを代入
・Messegeイベントのレシーバ
　　イミディエートウィンドウに「Class1: 'Str'」を出力（'Str'はイベントの引数）
・Aメソッド
　　Msg.Mメソッドを実行

○Class2クラス
・宣言部
　　Msgクラスをとる変数をPublic WithEventsで作成
・Initialize
　　宣言部で作成したMsgクラスのインスタンスを代入
・Messegeイベントのレシーバ
　　イミディエートウィンドウに「Class2: 'Str'」を出力（'Str'はイベントの引数）

＠結果。
実行するとClass1の出力はされるのですが、Class2の方にはされません。

＠質問
１．Class2にもイベントをレシーブするようにするにはどうしたらよいでしょうか。
２．上の実験では何が問題だったのでしょうか。

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

>>563
うん、わからんね。プログラム板のVBAスレ行った方がいいかも。
あとクラス使うならVBAよりVB2010の方が楽だよ

>>557

A1 前回UPした385のように西暦4桁でお願い致します。
変に意識してしまい、変更してしまいました。

A2 9年11月以前は件数が見当たりませんでした。
多分製作者が10年から追加したものと思われます。

A3 右へ伸びていくのか製作者と連絡がとれず
過去のデータを検索中でございます。
出来るだけ早く見つけ出し回答させていただきます。

A4 出力先６は無視していただいてかまいません。
説明が下手で申し訳ありませんでした。

A5 基準日はありません。
処理月を基準に1年以内でお願いいたします。
成績・件数ともに単月でお願いします。

遅くなって申し訳ありませんでした。
よろしくお願いいたします。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 初心者
【4 VBAでの回答の可否】 可
ユーザーフォームでテキストボックスを作りそこに入力した値を基に
別のテキストボックスに顧客名を表示させようとしています。
TextBox1 に入力した値を VLookup でTextBox1_2　へ表示という風にです。
問題はテキストボックスが1〜100まであるので下のような記述を100個しなければ
ならないのでしょうか？
それとも何か別に簡単な方法があるのでしょうか教えて下さい。

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1.Value = "" Then
Me.TextBox1_2.Value = ""
Else
On Error GoTo ExitER
Me.TextBox1_2.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("顧客リスト"), 2, False)
Exit Sub
ExitER:
MsgBox "一致する口座番号がありません"
Me.TextBox1_2.Value = ""
End If
End Sub

>>567
オブジェクトを配列に入れる
http://questionbox.jp.msn.com/qa172927.html
コレクションと組み合わせるといい
分からなければControlsと組み合わせるとループで処理できる。

けどtextboxは一つにして、改行で区切ってsplitで配列に格納、ループで処理したほうがいいと思う

【1 OSの種類 　 　 　 　 .】 Windows VISTA
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 エクセル　一定の範囲　割合
http://loda.jp/0tm/?id=43

「時間シート」のＡ列にはパケットの飛来時間の間隔が入っています。「個数シート」には時間間隔の個数が書いてあります。
「時間シート」で時間間隔の範囲をB列のように0.1秒ごとに分けて、C列にある各範囲の割合を求めてグラフにしたいのですが、どのようにすればうまく表せることができるでしょうか？

求めたいことを「個数シート」で言うと、0.0~0.1秒の範囲を求めたいときは"A2:A478"(個数は"B2:B478")にあたるので、E2には490パケット/1226パケット=39.96%がでるようにしたいです。

わかりづらい説明で申し訳ないですが、どうかお願いします。

【1 OSの種類 　 　 　 　 .】 XP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 エクセル　変換　html　css　条件付書式

選択したセル内容をhtml（テーブル）に変換したいです。
今使っているのが「ConvHTML」というアドイン？なのですが、条件付書式で指定した色が反映されたhtmlは作成してくれません。
条件付書式で指定した背景色も反映されるソフト、アドインを教えて欲しいのですが無いでしょうか？

>>569
sumproductで数える。2007だとCOUNTIFSでいいんだろうけど、俺が持ってないや
ttp://loda.jp/0tm/?id=45

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

初歩的な質問で恐縮ですが、よろしくお願いします。

セルに関数を設定しても、一発で正しい結果が反映されず、
そのセルをF2キーなどでいじって、やっと正しい結果が反映する状態です。
関数の計算元となるセルを変更して、即、関数のセルに反映するには
どうしたらいいでしょうか？

>572
ステータスバー（画面の下の方）に　再計算　って表示されていませんか？
セルの内容が変更されたときに、関係する計算式を再度計算し直す「再計算」が手動になっていると思われます。
EXCEL　自動再計算　でググると、いろんなページで説明してくれます。
例えば・・・
http://excel.onushi.com/purpose/sheet-calculate.htm　など

>>573
レスありがとうございます！
自動計算になっているのに、反映されなかったので色々調べてみました。
Application.Volatileを書き加えたら、うまく行きました。

>>570ですが自己解決しました。
ConvHTMLのver 2.0が公式以外のサイトにあったのでそれを使いました。
失礼しました。

それでは、プログラマ版で聞いてみます。
・・・そういえば、環境書いてなかったですね。済みません。

あと、VB2010はインストール不可の環境なので使えないのです。

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

SUMIFSで、名前を条件に使いたい、どうすればよいでしょうか？
たとえば、
合計範囲：B1:B5
条件範囲：A1:A5
条件範囲の値が、C1:C3のいずれかと一致するセルの合計を出す。
=SUMIFS(B1:B5,A1:A5,C1,A1:A5,C2,A1:A5,C3)
とすればよいのですが、ただ、条件の数が増減するので、できれば名前で指定したいのです。
また、条件の数の増減時に数式の変更が必要ないものでお願いします。

自レスで申し訳ありません。例中のものは動きませんね。間違えていました。

フィールドを作って、DSUMを使うことで一応解決することができました。
できれば、フィールドを使わずに名前を使いたいです。

すみません。解決しました。

テーブルを作成し、そのテーブルを参照することでできました。
条件が増えても、テーブルを拡張することで対応できそうです。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2007

セルの書式設定で
1000.00→1,000
1000.10→1,000.1
1000.22→1,000.22
と出るようにしたいのですが、どのように書式設定を行えばよいのでしょうか？

>>580
標準でいいんじゃねーの？

>>580
まずセルの書式を「#,##0.00」にする
次に条件付き書式で条件を「=A1=INT(A1)」にして、書式を「#,##0___」(後半は半角スペース3個)にする
最後にフォントを「ＭＳ ゴシック」に変える

Excel2007から条件付書式で表示形式を設定できるらしいので
値に応じて振り分けるようにすればいいと思います

コンマ区切りしたいんでは

スマン584は無しで

>>580
ユーザー設定　#,##0.## で良さそうだよ。

回答ありがとうございます。
>>582の方法で、やりたいことが実現できました。

>>571

ありがとうございました!
助かりましたm(_ _)m

>>580
>>582
惜しいね。
書式を「#,##0_._0_0」が正解。

MSPゴシックでも揃うぜ。

>>586
それじゃ整数のとき小数点が付く

>>589は誤解されるといけないから補足しとく。
まずセルの書式を「#,##0.00」にする
次に条件付き書式で条件を「=A1=INT(A1)」にして、書式を「#,##0_._0_0」にする
ってことな。

おっと1000.10のとき困るじゃねーか。訂正だな。
まずセルの書式を「#,##0.0?」にする
次に条件付き書式で条件を「=A1=INT(A1)」にして、書式を「#,##0_._0_0」にする。

まずセルの書式を「#,##0.??」にする。
とした方が分りやすいかもねぇ。
小数点下３けたならまずセルの書式を「#,##0.???」にして
以下」同じ手順で「#,##0_._0_0_0」
「#,##0_._8_9_3」でもえーよ。数字は文字幅一緒だから。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ（きのうから勉強はじめました）
【4 VBAでの回答の可否】 否（VBAでないと無理であればVBAでの回答お願いします）

ttp://www1.axfc.net/uploader/File/so/54761
PASS: kari
（うｐしたファイルは2007ですが、実際に作業するのは2000です）

左側の表に不合格者の一覧、右側の表に合格者の一覧があります。
ただ、たとえば2回受験して1回目不合格、2回目不合格といった人は
左側の不合格者の表、右側の合格者の表両方に含まれています。
これを、「完全に不合格な人」だけを抜き出して表にするにはどうしたらいいでしょうか？

>>594
例えばE3に
=COUNTIF(G:G,B3)
として、下にコピー。これで結果が「０」の人が「完全不合格」

ただ、これは何回も受験して何回も不合格の人は重複して抜き出されるね。

×1回目不合格、2回目不合格→○1回目不合格、2回目合格、でした

>>595
おお！抽出できました！どうもありがとうございます！

2007以降のオートフィルターって使いにくい。
１個選択したい時に、事前に「すべて選択」を押さないで良い方法ってないの？

関数を使って
A1セルに数字が入力されるとC1からC5までのセルを塗りつぶす
もしくはC5までのセル内の文字の色を変える
ってできますか？
できるなら教えて下さい。

>>598
条件付き書式で
ｃ１〜c5セルに
「数式が」「=ISNUMBER($A$1)」と入れる

条件付き書式のやり方については、検索するべし

【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい･
【4 VBAでの回答の可否】 可･
【5 検索キーワード 　 　 】 and　関数　計算式

セルに数式を入れたいことが質問内容です
エクセル表にA列に数値データが入っています。　そのA列データに係数B列記を掛けて　C列に
C1＝A1*B1のように数式を入れることはできます。　しかし、私はC列に数値データで数機をいれたいです。
たとえば　A1＝３　B1=２　C1=3*2　ようにC1に　A1とB1から「値」を拾って、その値のかけ算をいれたいです。
いろいろ、調べたんですがマクロなしで、できますか？　
もし簡単にできるのでしたらご教授お願いします

>>600
よくわからないです・・
C1＝A1*B1(一応確認ですがC1の内容が「=A1*B1」ということですよね)とすれば
A1の3とB1の2をかけられます。多分>>600さんの説明がおかしいです

>>600
C1をコピーした後、形式を選択して貼り付けではだめなん？
C10000まであったとしても１回で簡単にできるよ

そのくらい知っていて聞いているんだろうから的が外れた回答かも。

>>599
やってみます。ありがとうございました。

>>600
文字列と考えればいいよ。
その例だと、C1は「="="&A1&"*"&"B1"」
　　　　　　　　　　　　　　　　　
　　　　　　／￣￣￣￣￣￣＼
　　　　／　　　　　　　　　　　　 ＼
　　　/　　　　　　　　　　　 　 　 　 ヽ　
　 　 l:::::::::.　　　　　 　 　 　 　 　 　 |　
　 　 |:::::::::: 　　（●） 　 　 （●）　　 |　
　　　|::::::::::::::::: 　 ＼＿＿_／　　 　 |　　
　 　 ヽ:::::::::::::::::::.　　＼／　　　　　ノ

それを形式を選択して貼り付けの値でコピーする。それを計算された状態で表示させる方法は本物の人が教えてくれるよ。

>>597
やっぱりだめ？誰か答えて。

>>597>>606
フィルターをかける時に、何も表示されないような条件をセットするようなVBAを組んでおく。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003

質問させてください。
設定した基準値と各参照値A,Bと比較した後に
”買い””売り””見送り”の3種類のいずれかを表示できるように書き上げたつもりなのですが、
覚えのない”0”という値が時々返ってきます。
（サンプルでは、F16、18、25、28がコレにあたります）

何が原因でそうなってるか自分でも分からず、詰まってしまいました。
原因が分かる方、どなたかアドバイスお願いします。

http://loda.jp/0tm/?id=48

>608
最後の評価式が空だからだろ
IF(a=b,c,)とすると、a<>bのとき、常にFalse(=0)が返る

>>608
数式の一番最後の”偽”が設定されていません。

ありがとうございます。
合点がいきました。

ただ、私の勉強不足もありましてあれ以上後ろに式を追加すると
「引数の限界・・・」と行った具合のエラーメッセージが表示されてしまいます。

偽の値を設定するにもどう書けばいいのか思いつかない次第です。
重ね重ねで恐縮ですが、アドバイスをもらえないでしょうか？
よろしくお願いいたします｡

最後の"見送り"の位置が違うだけだよ。

>>611
F16の数式の最後。"aaa"が追加したところ。
（中略）　$2,D14>F$2),"売り","aaa")))),"見送り")
色々if分岐があるけど、全ての条件でなければこの"aaa"になるっぽい

あと
IF(AND(C17<=F$2,C16<=F$2,C15<=F$2),"買い",
IF(AND(C17<=F$2,C16<=F$2,C15>F$2),"買い",
IF(AND(C17<=F$2,C16>F$2),"買い"
の三行は
IF(C17<=F$2),"買い"
にまとめられたりするから、もっと式短くした方がいいと思う

>>607
vbaでは無理でしょ(´・ω・｀)　やっぱりダメか(´・ω・｀)ｼｮﾎﾞｰﾝ

windows7,excell2007ユーザーです。

本当に初歩的な質問で恐縮なんですが、A列に日付をずーっと並べて、
今日の日付の行だけ色を変えたいのです。
2007以前のバージョンだとそういうことができたみたいなんですが、
2007だと行単位で色を変えることができない。（日付のあるセルだけ
なら変えられる）。
そういうものなんでしょうか。なんかやりにくくなってるような気がします。

>>615
いや、できるから。
B1に「数式を使用して・・・」で
=$A1=TODAY()
上下左右に書式のみコピー

上下左右じゃねーか。上下右か・・

相談じゃなくて申し訳ないですけど、以前Excelを使って地図を書いてみよう！みたいな
書籍を見かけた気がして、ググっても見つからず。ご存知の方いますか？

>>601
説明が下手で申し訳ございません。
>>602
値のはりつけだとだめです。　セルの中に数式が残っていて欲しい
>>604
ありがとうございます。私が欲しい結果と違ったので　教えて頂いた式を改造して以下のようにしました。

="="&A1&"*"&B1&""

そうすると　表示は　A1=3　B1＝２ の場合　C1の表示は「＝3*2」となりました
私がやりたいことは、C1の表示が「６」　でC1セルをクリックしたら　数式で「＝3*2」
としたかったんです。

もし、回答に対する質問と判断されたらもうわけございません

>>619
多分オプション設定をいじっている

2003しか無くて申し訳ないが
メニューのツール→オプション→表示タブ→ウィンドウオプション
で「数式」にチェックが入ってない？(2007だと違う場所にこのオプションがあると思うけど)
デフォルトでは外れてて、初期の状態が
>C1の表示が「６」　でC1セルをクリックしたら　数式で「＝3*2」
になってるんだ
もしかしたらテンプレートか何かいじったんじゃないかな

エスパー
>>600はC列の数式をA列とB列の値を使って自動的に書き換えたい
それはVBAを使わないと無理

>>619
数式と値の表示を切り替えたいってことか？
キーボードショートカットか、クリックならVBAだな
http://www2.odn.ne.jp/excel/waza/file.html#SEC18

【1 OSの種類 　 　 　 　 .】 Windows*xp
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】エクセル　ログイン　

エクセルの中でログインの機能みたいなのを作って、個人を認証するようにしたいんですけどどうすればいいでしょうか？簡単に関数を使って作成していって最後にボタンで登録(認証)みたいにしたいんですけど、報告書で個人事に使用できるようにしたいんで。

>>623
ログインなんてあったっけ？
パスワードでもつけて個人ごとにシート・ブックを分けて、
別ブックでまとめるとか

>>623
Workbook_Openイベントでパスワードダイアログ表示
マクロに読み取りパスワードかける

>551
例のところにうｐしました。探してもわからなければ、おたずねください。

>>626
感謝してもしきれないくらいです。
ありがとうございます！

自分自身でも作れるように
日々精進させていただきます。

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

>>616
ありがとうございます。一度やってみますね^^

>627
ちょっと修正があります。１９，２０行目（インポートした後で）の
sort_key1 = sh_s.Range("B6").Value & 2　←最後の２を　tate_i_strt　に変更　
sort_key2 = sh_s.Range("B7").Value & 2　　　　　同上
にしてください。
出力側のソート部分は変数で指定してたけど、入力側の最初のソートの部分で変更しそこねてました。

あと、疑問点をふたつ・・・
その１　出力先１シート「単月チームランキング」には「グループ名」の列は不要では？
チームの中にグループがあり、グループに個人が属する訳だから、例えるならば、都道府県別
ランキングになぜか市町村名の欄があるようなもの。
その２　出力先３シート「グループ単月ランキング」にはチーム名の欄はあるけどグループ名の欄が
なかったので、Ｂ列はグループ名とみなしています。

excel2003で会社の日別成績グラフを作ったのですが
支店が5つあり、それぞれに予算・実績・挙績で15本の折れ線グラフになっています
15本ということで若干みずらくなっているのでデータテーブルで数字を載せたいと思ったのですが
挙績だけデータテーブルを表示する方法はありませんか？

falseってどう読むのが正解？
”ファルス””フォルス””フォールス”

>>631
フォールスです
　　　　　　　　　　　　　　　　　
　　　　　　／￣￣￣￣￣￣＼
　　　　／　　　　　　　　　　　　 ＼
　　　/　　　　　　　　　　　 　 　 　 ヽ　
　 　 l:::::::::.　　　　　 　 　 　 　 　 　 |　
　 　 |:::::::::: 　　（●） 　 　 （●）　　 |　
　　　|::::::::::::::::: 　 ＼＿＿_／　　 　 |　　
　 　 ヽ:::::::::::::::::::.　　＼／　　　　　ノ

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

a b c d e
名前 産地 備考 値段 個数
りんご 青森 直送 200 2
りんご 青森 倉庫経由 180 1
りんご 福島 直送 200 1
みかん 愛媛 直送 100 1
みかん 愛媛 倉庫経由 80 2
もも 岡山 直送 150 1

sheet1に上のような表があり、
sheet2に名前(a列）、産地（b列）が完全合致、備考（ｃ列）が部分合致した行のデータを
引っ張ってくるような形にしたいのですが、どうでしょうか？

例えばsheet2に
a b c
りんご　青森　経由と入力すると、d1に180、e1に1が入力される感じです。
みかん　愛媛　直送なら、d1に100、e1に1です。

実際の表にはe1以降のデータもあり、それも引っ張ってきたいです。

>>633
そのためにオートフィルタという便利な機能があるのじゃ
単に知らなかっただけ？それともそういうふうにしたいこだわりがある？
　　　　　　　　　　　　　　　　
　　　　　　／￣￣￣￣￣￣＼
　　　　／　　　　　　　　　　　　 ＼
　　　/　　　　　　　　　　　 　 　 　 ヽ　
　 　 l:::::::::.　　　　　 　 　 　 　 　 　 |　
　 　 |:::::::::: 　　（●） 　 　 （●）　　 |　
　　　|::::::::::::::::: 　 ＼＿＿_／　　 　 |　　
　 　 ヽ:::::::::::::::::::.　　＼／　　　　　ノ

Select Caseで出来て、Ifで出来ないことってありますか？

>>633
・文字列を結合させてvlooklup
D列に一列挿入して、「りんご青森直送」というセルを作る
sheet1!d3=A3&B3&C3
で、シート2でvlookup
=VLOOKUP(A1&B1&C1,Sheet1!D:F,2,0)

・VBAで検索。A列をforloopで検索、ABC列が探してるものと同じなら・・
って感じで

・2007か2010を導入してsumifs関数。

・SUMIFSを2003で実装
ttp://takashixxx.blog88.fc2.com/blog-entry-27.html

vlookupが一番楽とは思う

>>635
ない

>>636
有り難うございます。
vlookupで試して見たのですが、
c列の文字が合致していないとエラーが出てしまいます。

633で情報不足していたようで申し訳ないのですが、
備考蘭には実際には英数文字を含めて文字列が入っており、
その中でキーワードとして単語を抽出したくて「部分合致」した検索結果が欲しかったです。

なぜｃ列が必要かと言うと、a列とb列だけの検索では重複する列が数多くあり、
c列を加えることで重複しなくなるからです。

もしお暇ならご教授お願いします。

>>638
*おおっと*部分一致か、ｺﾞﾒﾝ。vlookupは使えないな
http://www1.axfc.net/uploader/Sc/so/179269.xls
説明が長いのでアップロードしておいた

test1シートについて
F-H列で、検索したい結果通りなら1が返るようにする
その三列で合計が3ならIJで結果が返り、IJの一行目に答えが返ってくる
IJ列はA-E列と同じだけ伸ばしておいてね。先に65535行目まで入れておいてもいいけどね

test2シート
やってる事は同じ。少し見やすいように変えて、式も1セルにまとめてある

条件は色々増えるようだから、多分test1を改良するのがいいと思う

>>639
検索値にヒットした別列の合計が欲しいならDsum関数があるけど。
レコード引っ張りたいならDget関数。

テーブルでデータ保存されてるならDatabase関数おすすめ

EXCEL2010です。

小計、中計、大計と集計する時、
３つのキー項目を指定する方法を教えて下さい。
リボンに小計（１項目しか指定できない）しかないのですが・・・

>>640
ありがとう。データベース関数覚えてないや
なんか苦手なんだよなぁ
>>641
集計機能での集計。
ttp://www11.plala.or.jp/koma_Excel/contents3/mame3025/mame302502.html
ピボットでの集計。
ttp://www1.axfc.net/uploader/Img/so/101737.jpg
ピボツト使えるように夏他方がいいとは思う

誰かexcel2007以外で日付の表示形式を試してくれない？
2010/12/2を平成22年12月2日と表示するなら表示形式はggge"年"m"月"d日"が普通だと思うが
ｒｒ"年"m"月"d日"でも同じように表示されることをたった今知ったんだが、これってExcel2003などでも同じ？
また英語版Excelだとrrは何になるのかなぁ。

Excel2003でも同じ

2003。rだと22、rrだと平成22が表示されるね
それぞれもう一度見るとeeとgggeeに変わってる
理由は探したけど見つからなかった

>>644-645
サンクス。
なるほどgggeeに変わってたのか、そこまで気がつかなかったわ。

ちなみにbbbbは仏暦ね。今は2553年だよ〜。こんなのをエクセルで求める人がいるとは思えないけど

仏は仏教に関連？それともフランスに関連？

フランスはないでしょｗｗｗｗ

釣れたｗｗｗｗｗｗｗｗ

開発チームにSGI関係者がいたら池田大作歴とか作るかもな。

>>650
馬鹿?

「=1+1」という式を設定したセルの値を、
単純に「2」にするにはどうすればいいですか？

くだらねえ。馬鹿が住み着いてしまったようだね。
せっかくの良いスレだったのに。

>>653
形式を選択して貼り付け、値

>>648-650
ﾜﾛﾀ
>>653
コピーして値で貼付け
ショートカットキー作りたいなら
http://www.relief.jp/itnote/archives/002211.php

マクロの自動記録について教えて下さい。

自動記録でマクロを組んだのですが、入力されないページがあります。
sheet1です。自動記録の内容は以下の通りです。

sheet4に外部データの取り込み→テキストファイルのインポート→
sheet4にインポートされたデータを並べ替えや、書式設定をしてsheet1
とsheet2に入力します(コピペです)。

完了後、マクロの記録を終了します。

その後、そのマクロを実行したのですが、sheet2には正常に入力されて
(表示されて)いました。しかしsheet1は何も入力されて(表示されて)お
らず、空のセルのままです。

どのような原因が考えられるでしょうか？

sheet1とsheet2に入力(コピペ)したのは数字のみです。それぞれ同じ
数字ですが、並べ替えなどはしていますから順番通りには並んでいま
ん。

先にコピペしたのはsheet1のほうです。完了後、今度はsheet2にコピペ
しました。sheet1のコピペ完了後、sheet2にいく前(移動する前)に何か
操作するべきだったでしょうか？例えば上書きボタンを押すべきだった
など・・・。上書きボタンは押していませんでした。マクロの記録中な
ので押すべきではないと思いました。全ての操作を完了してから最後に
押しました。

Eｘｃｅｌ２０００です。
解決方法を教えて下さいますようお願い申し上げます。

自動記録の内容をマクロではなく文章で一生懸命説明しようとしてる○カ

>>657
・ctrl+zで戻した
・別のモノをコピーした
・別の作業をしてコピーの内容が消えた
っていうかそれだけじゃ分からない。
もっかい記録したら？
アップロードしてくれたら調べるよ
まずはステップイン(F8)で確認するといいと思う
>>658
なるほど、>>658のことですね！よくわかりました。ありがとうございました。

XPとEXCEL2kでうｓ
ソニー銀行の人生通帳のような支払予定カレンダーを自作したいと思ってます。
別のシートに年月とクレカ会社の出納簿のようなものがあるので、
カレンダーシートで年月を指定して出納簿から該当のデータを支払日のところに呼び出すってイメージです。
VBAもがんばります。よろしくお願いします。

>ソニー銀行の人生通帳のような
と言われても見たことない人が多いと思うけど。俺も見たこと無いけど。
VBAでfornextを使ってvlookupみたいなものを作って、別シートから引っ張ってくるのが分かりやすいと思う
それか、簿記をちょっと覚えて貸借対照表/損益計算書作った方が早いし勉強にもなりそう

>ソニー銀行の人生通帳のような

わたしも見たことないな
　　　　　　　　　　　　　　　　
　　　　　　／￣￣￣￣￣￣＼
　　　　／　　　　　　　　　　　　 ＼
　　　/　　　　　　　　　　　 　 　 　 ヽ　
　 　 l:::::::::.　　　　　 　 　 　 　 　 　 |　
　 　 |:::::::::: 　　（●） 　 　 （●）　　 |　
　　　|::::::::::::::::: 　 ＼＿＿_／　　 　 |　　
　 　 ヽ:::::::::::::::::::.　　＼／　　　　　ノ

俺も見たことないわ

想像すると、家計簿に何十年も先の予定まで書くみたいな物じゃないのかな
はっきり言っちゃうと、予定通りに進む人生なんて実際にはありえないから

まあ、予想からどれだけ外れたかを振り返って楽しむ物、という考え方もあるけどね
いい大人の作った「よげんのしょ」みたいなね

人生通帳って名前は大層ですが、そんな大したもんじゃないです。
一部のクレカ情報をひっぱってきてカレンダーに支払を一覧表示してくれるものです。
一部しか対応してないのが不便なので自分で入力してやりたいなと思いました。

http://moneykit.net/img/lifebook/04_img04.gif
こんな感じです

Excel2010。10MBくらいのシートがやけに重くなってコピペするたびにしばらく
止まったり、異常終了するようになった。しらべてみたら、条件付き書式が
ひとつのセルに同じものが数十個もついてるのがわかった。先月分をコピペ
して追加してるうちに重複して増えたらしい。

ぜんぶ削除するとびっくりするくらい快適動作。困ったときにはお試しください。

条件付き書式が無制限に増えたからこういうケースも増えるのかな
でも、なんで数十個もついたのか分からない

>>664>>665
カレンダーなあ。
http://excel-calendar.seesaa.net/article/117268135.html
欲しいならテンプレ使った方がいいと思うよ
もしくはその人生通帳のサイトに要望出すとか。もしかしたら通るかも。
作りたいっていうなら手伝うけど、VBAは何もわかりませんってレベルならやめておいた方がいいわ

>>664>>665
手伝ってあげましょう。ちょっと待っててね。
　　　　　　　　　　　　　　　　
　　　　　　／￣￣￣￣￣￣＼
　　　　／　　　　　　　　　　　　 ＼
　　　/　　　　　　　　　　　 　 　 　 ヽ　
　 　 l:::::::::.　　　　　 　 　 　 　 　 　 |　
　 　 |:::::::::: 　　（●） 　 　 （●）　　 |　
　　　|::::::::::::::::: 　 ＼＿＿_／　　 　 |　　
　 　 ヽ:::::::::::::::::::.　　＼／　　　　　ノ

>>668
ありがとうございます。
日付と支払先・額がイメージできればいいのでカレンダーそのものは適当でいいです。
出納簿が月ごとになってて、そこからカレンダーで指定した月のデータをひっぱってきて
該当する支払先（日付）のところに入れるって感じです。
VLOOKUPでいいような気がするのですがなんかうまくいきませんです。
VBAは、マクロの記録して適当にいじったりはできますが、ゼロから記述は無理です。

シートを月ごとにわけるのはやめとけ　管理が面倒になるだけ
入力と出力はわけるのが基本

シートは月ごとじゃないです。
月ごとに1行の出納簿のシートと、カレンダーのシートの2枚です。

>>672
月に一行はダメ
一行に出金か入金一つにしないと
イメージとしては、銀行の紙の通帳と同じ並べ方にする

Excelってのは縦一列に並んだ数字を処理するのが一番得意な構造になってるから、
今はまだ理解できないと思うけど、とりあえず言われた通りにしとけ

>>670
ttp://www1.axfc.net/uploader/File/so/55123.xls
fornextでvlookupみたいなものってこんな感じで作ればいいわ
応用次第で何でも作れるわ
あとちょっとあなたは説明が下手すぎる。もう少し他人の立場に立って説明して頂戴

>>673
通帳と同じ並べ方ですか・・
まずそこから考え直さないといけないんでしょうか・・

>>674
たしかに説明下手で通じてないと思います。すいません。

あらためて書かせていただきますと
・現在、クレカの出納簿っぽいものをつけています。（要改造）
・それを利用して、１週ｘ４行的なカレンダーっぽいのをつくれないかと思いました。
（日付の並びは固定でよい）

ひと月１列で、支払日が会社ごとに決まっているので
例えば平成２２年１２月１０日にA社の支払いなら、
カレンダーで「平成２２年１２月」を指定（選択）すると、出納簿のシートを見て、
「平成２２年１２月」の行の、左から何番目か（A社の支払額の列）を、
カレンダーの１０日のところに張るだけでいいんでないかなと思いました。

みなさんすいません、できました。
範囲指定と列番号間違ってましたm(_ _)m

それだと、何かの理由で月に２回以上支出や入金があったときに、
明細を残せないことになるね。

そうなんですよね。要改善ですね。
クレカなので月１回の請求と支払が前提です。

出納簿はクレカが5社も6社もあっても縦一列でやるべきなんでしょうか？
年月と項目と金額で3列かな。
それを>>674さんご指摘の方法で抽出すると。
なんか入力から難しくなりそうな悪寒がしますが・・

>>679
その通り。列を増やして、そこに会社名を入れるのが基本

ただ、余計なことを言わせてもらえばクレカを6枚も持つのはちょっとどうかと思う
持つだけならいいとしても、普段から使うのはせいぜい2〜3枚にしとかないと…

ピボットテーブルの引き算について教えてください。
集計アイテムとか集計フィールドとかを使うと思うんですが。

日付　区分　金額
1/1　　入金　500
1/1　　出金　300

というテーブルを元に

日付　入金　出金　残額
1/1　　500　　300　　200

というピボットテーブルはできますか？
いまは出金を-300にして500+(-300)＝200で表示してます。

>>681
ピボットだけだと無理だと思う
ピボットテーブルを作ったあと、残額の列だけ手動で数式を追加するか、
ピボットテーブルを作る前に作業列に出金をマイナスした物を入れて、そこからテーブルを作るか

学校勤務で成績処理で悩んでいるので、質問させてください。

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


観点別評価でA１〜A4にそれぞれA・B・Cの評価が入っている状態です。
AAAAなら5、AABBなら4、BBBBなら3…と評定を出す基準が決まっているのですが、
A5に評定を自動で表示させる技はあるでしょうか？
数字を合計して判別する方法はわかったのですが、アルファベットの個数からの判別は可能でしょうか。
よろしくお願いします。

>683
A6セルに下記の式を入れると、3桁の数列（文字なので数字とは書きません）が出ます。
左から"A"の個数、"B"の個数、"C"の個数を連結しただけのものです。
=COUNTIF(A1:A4,"A")&COUNTIF(A1:A4,"B")&COUNTIF(A1:A4,"C")
A1:A4の４個のセルがすべてAなら、"400"・・・という風に組み合わせを調べると全部で１５個
400,310,301,220,211,202,130,121,112,103,040,031,022,013,004(見落としはないかな？)
です。それぞれに応じた評定を指定してVLOOKUPとかHLOOKUPとかと組み合わせればできると思う。
今はとりあえず、ここまで。

>683
続きです。例としてC1:D15の範囲に表を作ります。Ｃ列は400,310,301,220,211,202,130,121,112,103,040,031,022,013,004を
あらかじめ書式を文字列にしておいたセルに入力して昇順に並べ、Ｄ列はとりあえず上から連番（１〜１５）を入れておきます。
A5セルに計算式　=VLOOKUP(A6,C1:D15,2,0)　を入れると、A,B,Cの個数に応じた評定が表示されるはずです。
A1:A4の内容を変化させて、問題がないようであれば、Ｄ列の内容を本来設定したい評定の内容にしたらいいです。

Ａ６セルを使わず、Ａ５セルで直接全部処理したいのであれば、式が長くなるけど
=VLOOKUP(COUNTIF(A1:A4,"A")&COUNTIF(A1:A4,"B")&COUNTIF(A1:A4,"C"),C1:D15,2,0)
こんな感じでいいと思います。（当方、Excel2003で確認済）

>>684>>685
>>683です。
ありがとうございます！！できました！！
これで2学期の成績間に合います！！

ここの人ほんと凄いです…。
関数もっと勉強します。

>686
実際に使うときは、A,B,Cの個数の組み合わせと評定の表（例ではC1:D15の部分）の範囲は
$C$1:$D$15　みたいに、絶対座標指定（って言うのかな？）をしてください。
コピーしても内容がズレません。
あと、くれぐれも間違いのないようにお願いしますよ。大事な生徒さんの将来を左右するかも
しれないので。

質問です。
NO.54623を54623のように数字だけにしたい時はどうすればいいですか？
検索しようがないと言うか、お願いします。

>>688
関数で？
=SUBSTITUTE(A1,"NO.","")*1

直接だったら、置換とか

>>689すいません。複雑じゃなくてただ数字だけにしたくて。
A2にＴＥＬ88544だったら88544だけ数字を取りたいです。

>>690
置換じゃだめなの？　TELだかNO.だかをブランクに置換すればＯＫ

>>691すいません。置換って意味ですか。検索してみます。ありがとう。

>>690
数字の前のアルファベットが「TEL」の他にも何種類もあるのかな？

数字の前のアルファベットの文字はバラバラだけど文字数が固定されているのであれば
LEN関数とLEFT関数またはRIGHT関数を使えばいけるかも
「ＴＥＬ88544」ならアルファベット３文字なので
数式=RIGHT(A2,(LEN(A2)-3)　で88544だけ抜きだせる。

他には抜き出したい部分が数字のみで構成されているのなら>>691の言うとおり
置換でA〜Ｚをブランクに変えていけば最大２６回で数字だけが残る。

勘違いしてたらごめんなさい。

>>693サンクス　文字としてならrightとかでいいんですけど数字が左寄りになってしまうので。
数字入れるとセルの中で右寄りになりますからね。それでいいました。
すいません。TELってのは例で言っただけでそれ自体には意味はありません。
ありがとうございました。

>>694
rightでも数式の最後に*1を>>689のように付け加えれば数値扱いになって右寄りになるよ
ただし電話番号みたいにあたまが0だと消えちゃうけど

>>673
> Excelってのは縦一列に並んだ数字を処理するのが一番得意な構造になってるから、
> 今はまだ理解できないと思うけど、とりあえず言われた通りにしとけ

こういう暗黙のルールみたいなのってどこかに一覧ないですか？

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

ご回答のホームページ（集計機能での集計）の２番目に書かれている
「並べ替え」（集計キーを３つ指定できる）の画面（相当のもの）を
EXCELe2010で表示するには、どうすれば良いのでしょうか？

【1 OSの種類 　 　 　 　 .】 Windows7 x64
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 わからない
【4 VBAでの回答の可否】 できれば否、使用しないと無理ならば可
【5 検索キーワード 　 　 】 Excel 数え上げ 集計


Excelの表組みが、例えば、

| 3 | Firefox　 |
| 2 | Opera　　|
| 6 | Firefox　 |
| 1 | Chrome　|

となっているものを、Firefoxはいくつか、Opera、Chromeはいくつかを数え上げて

| 9 | Firefox　 |
| 2 | Opera　　|
| 1 | Chrome　|

のように集計結果（同一文字列の行を足し合わせたもの）を出力したいのですが、
よろしければどういった方法で行えばいいのか、教えてください。よろしくお願いします。

>>696
「データ　正規化」でぐぐれ
他にはデータベースソフト(アクセスなど)を一度使ってみるといいかも知れない
第○正規化とか色々あるけど、第一正規化だけでも知っておけば全然違う
やりすぎると手間がかかるので、まあ程々に。
>>697
2010は手元にないんだよなぁ。2003以前だと
↓の二枚目の画像の通り、データ→並び替え、になるんだけど。無いのかな
ttp://www.ncm07.jp/EXCEL-database/blog/excel_coffee_break/2010/07/post-45.html

>>698
ピボットテーブルを使う

画面サイズが1366x768だと、Excel 2010の全画面表示で何行目まで表示されますか？

>>698
関数ならsumifを使う。

上でも出ているけど、ピボットテーブルが最強に便利

経過時間を、「◯日と△時間□分◇秒」と表示させたいのですが、どういうユーザー定義にすればいいんでしょうか？

　　　　　　　A
1|　2010/11/14 23:33:15　|
2|　2010/11/23 12:46:09　|

例えばこういったセルがあったときに、「A2-A1」を計算すると、差分が出てきますよね？
そこで、[h]:mm:ss のユーザ定義を使うと、差分が「△時間□分◇秒」で表示出来ると思うのですが、
それを、「◯日と△時間□分◇秒」 という表示にしたいのです・・・

>>703
d"日と"hh"時間"mm"分"ss"秒"

>>701
まぁ35前後だと思いますが、PC屋の店頭の機械さわらせてもらうのがいいと思います
人によって色々、メニューバーの有無や拡大率、行の幅を変えている可能性が有りますので
偶然同じ環境であったとしても違う結果が返ってくる可能性が有りますので

>>704
ありがとうございます、出来ました。助かります。

お願い致します。
【1 OSの種類 　 　 　 　 .】 Windows Vista
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可、極力なしでできればと思います。
【5 検索キーワード 　 　 】 Excel　重複　
　　Ａ
１りんご
２すいか
３なし
４めろん

上記入力していく際、Ａ５に再度すいかと入力した場合に重複したキーワードのセルに色が付いたり
ポップアップで教えてくれたりという機能はありますでしょうか？
抽出が出来る事は分かっております。
何卒宜しくお願いします。

>>707
条件付き書式で
=(COUNTIF(A:A,A1)>1)

>>708
ありがとうございました。感謝です。
早速試してみます。

>>708逆にＢにもすいか、めろんとかあったらどうなるんですか？
=(COUNTIF(A:Ｂ,A1)>1)とかですか？

>>707
条件付き書式で「数式が」
=1<COUNTIF($A$1:A1,A1)
A1に入れて、適宜下にコピー

ちなみに値や数式が入っていても、
コピーで値を貼付けの書式で条件付き書式を設定できる
枠線とか消えるけど

初歩的な関数の使い方や入力の仕方などに
関する質問はここではNGですか？

>>712
とくにルールはないけど回答者は気まぐれ

【1 OSの種類 　 　 　 　 .】 WindowsVista 64
【2 Excelのバージョン 　 】 Open office
【3 VBAが使えるか　 　 .】 使えない
【4 VBAでの回答の可否】 できれば否、使用しないと無理なら可能
【5 検索キーワード 　 　 】 �@open office 標準偏差　�Aopen office 残差
A
1.8
4.2
5.8
6.1
この4行をグラフにし、散布図にします。そのあと、トレンド線(回帰直線)を挿入します。
このトレンド線(回帰直線)までの残差を数値で出すことは可能でしょうか？また、標準偏差の数値を出すことは可能でしょうか？

>>713
分りました、ありがとうございます。

>714　OpenOffice,Calcに関する質問は↓へどうぞ　ここはExcelのスレです。
LibreOffice/OpenOffice.org 総合相談所 8
http://hibari.2ch.net/test/read.cgi/bsoft/1288762209/l50

>>716
わざわざ誘導ありがとうございます。そちらで質問してきたいと思います。申し訳ありませんでした

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 ユーザーフォーム　自動実行

ある処理をマクロでさせているのですが、実行するかどうかをユーザーフォームを使って、
はい、いいえで選択させています。
これを、なにも押さなければ、10秒後に自動実行みたいに変えたいと思います。

Application.Ontimeでやろうとしたのですが、うまくできません。
よい方法があれば教えてください。

>>718
フォームをモードレスにする

ユーザーフォームをモードレスで立ち上げるようにしてみましたが、うまくできません。

Application.OnTimeでやるには、根本的に間違ってる気がしてます。
こんな感じでコード書いてますが、いいえを押しても押さなくても、10秒後には実行されてしまいます。
コードを見ると当然のように思いますが・・・　ほかに方法がわかりません。

Private Sub UserForm_Initialize()
Dim waittime
waittime = Now() + TimeValue("00:00:10")
Application.OnTime waittime, "実行するマクロ"
End Sub

Private Sub はい_Click()
Call 実行するマクロ
Unload ユーザーフォーム
End Sub

Private Sub いいえ_Click()
Unload ユーザーフォーム
End Sub

>720
１０秒後に実行するのは「実行するマクロ」ではなくて、実行するかどうかチェックするマクロ
ではないでしょうか？
フォームを表示した時点でマクロの変数か、どこかのセルに「実行する」状態をセットし、併せ
て１０秒後に「実行するかチェックするマクロ」を実行するようにしておきます。

フォームの「はい」をクリックしたら「実行しない」状態をセットしてから実行したいマクロを
実行し、「いいえ」をクリックしても「実行しない」状態をセットしてフォームを閉じるように
したらいいのではないでしょうか？
なにもしない状態で１０秒経過すると「実行するかチェックするマクロ」が起動し、「実行する」
状態をチェックし、本来の実行したいマクロを呼び出す訳です。

ページ全体にあるhttp・・・とうアドレスを全部リンクしたいんですができますか？
リンクの仕方自体はわかったのですが、大量に一度にというのがわかりません。

>>722
データの区切り位置でそのままＯＫにすればリンクが貼られるよ

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 ユーザーフォーム　自動実行

【添付図】　ttp://deaimail.from.tv/up/src/up3425.jpg
ユーザーフォームのイメージボックスでの質問です。
添付図のようにイメージボックスに表示させる画像ファイルを選択し、表示させた後
テキストボックスに書かれた文字をファイル名にして画像をデスクトップに
保存させたいのですが、

保存させるときの記述で
Image1.picture.saveas filename :=　・・・の後の表記をどのように書けば良いか分かりません。
どなたか知恵をお貸しください。

>>724
TextBox1.Text
とかじゃないの？

IFERRORかよ。
>>165はExcel2007以降ってどっか書いてる？
さすがに最近は2003以前のユーザーより多いのかねぇ。

誤爆すまん、ここは総合相談所だった。

既にエクセルにあるアドレスということです。

>>728
URLが大量にあるんならVBA使った方が早い

Sub aaa()
　　With ActiveSheet
　　　　For Each c In .UsedRange.Cells
　　　　　　If Left(c, 7) = "http://" Then
　　　　　　　　.Hyperlinks.Add Anchor:=c, Address:=c
　　　　　　　　c.Font.Underline = xlUnderlineStyleSingle
　　　　　　　　c.Font.ColorIndex = 41
　　　　　　End If
　　　　Next
　　End With
End Sub

>>728
=HYPERLINK(A1)で下にコピー

いまどき2007つかってないひとなんているの？

職場はまだ2000と2003。2007は使いにくかったので導入していない
バンドルでついてこない限り買い換える理由がない
スライサーとかsumifsとか便利そうな機能はあるんだけどねー
無くても何とかなるしなぁ

今日日2010だろjk

俺は2010使うときだけコンパネで日付を1年戻して使ってるぜ。
評価期間が過ぎたとか怒られるんでね。

うちはPC3台に入ってるのが2003(モバイル)、2007(自分のデスク)、2010(親の)とバラバラ
どれもまんべんなく使ってて、それぞれ一長一短て感じだけどな