Excel総合相談所 61

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

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

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

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

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

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

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

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

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

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

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

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


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

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

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

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

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

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

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

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

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

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

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

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

>>1
乙　おまえさんは神様かい？

まぁいいってことよ

>>8
にせもの乙

【1 OSの種類 　 　 　 　 .】 WindowsＸＰ
【2 Excelのバージョン 　 】 Excel97
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 Excel 日付　非表示

7日サイクルの予定表を作成したいのです。

A1に2007/10/19という日付を入れて、B1に=A1+7にすると2007/10/26と表示されますが
B1を下にコピーすると、B2、B3はA2,、A3に日付が入っていないので、1900/1/7となってしまいます。

そこで
A2、A3に日付が入っていない場合、1900/1/7をのセルを空白にし、
A2、A3の各セルに日付を入れたら、同時にB2、B3のセルにB2+7、B3+7の日付を表示させる。

という事がしたいのです。。。
ご存知の方おりましたらご回答の方何卒、よろしくお願いします。

>>10
B2に

=IF(A2="","",A2+7)

と入れればＯＫ。
Ａ3にはそのままコピー。

>>11

おーーー。
ありがとうございます。
これで明日までの資料間に合います。感謝！

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

チェックボックスやオプションボタンを適当に貼り付けたいのですが、
以前はきちんとできていたのが、
いつのまにか、以前のものと違うものになっていました。
・最初の文字列が英語　チェック〜→checkbox1
・ダブルクリックでbisual basicのウインドウが開く
・右クリックしたときのメニューの内容
具体的に困っているのは、コントロールの書式設定のコントロールタブを見たいのですが
これもありません。
どうすればもとのように戻るのでしょうか？？

【1 OSの種類 　 　 　 　 .】 WindowsＸＰ
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 Excel　Trim　書式　消えない

ー目的ー
受け取ったデータベースで、電話番号セルの無駄スペース（03-3333-3333＿　みたいな）を削除。

ー状態ー
該当セルの書式の表示形式は”数値”。
表示形式をどう変えても見た目は変わらず。
セルをコピーし、形式を選択して貼り付けで”値”にしても変わらず。

Trim（Ａ1）でもＳｕｂｓｔｉｔｕｔｅ（Ａ1,"　",""）でも取れません。
他セルに仮に実験してみるとちゃんと変換するので、シート自体は問題ないようです。
ちなみにＳｕｂｓｔｉｔｕｔｅ（Ａ1,"−",""）で”−”は取れます。

どうしてもわからなかったので、どなたかご教授願います。

>>14
"-"を""に置き換えとかだめ？

>>14
うわ、ごめんなさい。
"-"を取るんじゃないんだよねorz

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

縦書きの文字列を逆さまに表示する方法はありますか？

お願いします。

>>17
フォントに「@MS PGothic」(@付きにするってこと)、書式の配置を90度
等設定して細かいところはがんばって微調整するかあきらめる。

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

＞14
半角スペースと全角スペースの間違いだったりして。

>>14
私は、置換で取りますよ。
半角、全角試してね。

>14
=Substitute(A1, "　","")
　 　 　 　 　 　 　 ↑
　 　ここを元データからコピペしてみては？

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

VBAでマクロを作っているのですが一日悩んでも答えが出ないので質問させてください
A1*B1のように同じ行にあるセルの数値を使う数式を作りました
他の行にも同じ数式を使いたい場合、オートフィルで自動的にA2*B2と変えられますが
条件分岐で条件によってはA1*B1,A1/B1というように使う数式を変えています
このIfからEnd If内の数式の項をオートフィルのように自動的に変える方法を教えてください
ヒントでも結構ですのでよろしくお願いします

>23

選択肢は二つ。
・冷静に自分の書き込みを読み返して仕様を書き直す。
・エスパーの登場を待つ。

>23
何がやりたいのか分からんが、
ＶＢエディタでオートフィルをしたいという事なら
シート上でオートフィルしておいてコピペすれば？

同じ処理を並べて書くよりはループで回した方が…

>>23です

説明が下手ですみません
目的はこのIf〜End Ifを1行目〜最終行まで適用したいのです
For〜Nextで繰り返し処理をすればいいと思うのですがうまくいきません

ユーザー定義関数に引数作ってオートフィルって話なのかな？

>>14
該当セルの書式が "数値" ってのは後から設定したと深読みしてみる
（もともと "標準" で文字列として扱っていたセルを数値に変更したんじゃない？）

Ｓｕｂｓｔｉｔｕｔｅ（Ａ1,"−",""）で "−" が取れるってことだから、"文字列" が入力されているってことで間違いないね
そうであれば "03-3333-3333" の右側には何もなくて 「左寄せ」 になっているだけだと思う
該当セルを選択して数式バーまたはF2キーを押して文字の最後に不要なスペースが含まれていないか確認してみよう

数値として扱いたいなら "-" を空白に置換えして削除
その後セルの書式設定でその他を選んでそこから電話番号を選択かな

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい（１０年VisualBasic触ってないからあまり覚えてない
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 セル 一つおき　参照

あまりエクセルは使わない人です。測定器のテストのためにデータつくるのでちょっとしたことで困っています。

データが、例として
　ゆ
　か
　り
　か
　わ
　い
　い

とあったとします。これを参照して、
　ゆ
　ゆ
　か
　か
　り
　り（以下略）
のようにしたい場合、どうしたら・・・・・コピペだとセルが一つずれたりしてしまってうまくいかず。
かといって、そのためにプログラム組むのも微妙。

スマソ

INDEX() と ROW() でいけそうな気がしてきた。

まず、左側に奇数番号振る。１、3と入力してオートフィルでおｋ
1ゆ
3か
5り
7は
9ん
11に
13ゃ
で、下にコピーして、コピーしたものの左には偶数番号振る
2ゆ
4か
6り
8は
10ん
12に
14ゃ
最後に並べ変えれば2文字ずつ

基準点のセルをE$3とした場合

INT((ROW()-ROW(E$3))/2)

で２つとびの値が入ってくるので、

INDEX(範囲,INT((ROW()-ROW(E$3))/2)+1)


ってこんなことせずに

1
1
2
2
3
3
をがーーーって作ってINDEX(範囲,番号)
でよい気がしてきた。


>>32
ちょっと意味がわからないけどありがと。データがたくさんあって番号振るのがまんどくせ。
あと、はんにゃなのは、真正面から写真撮るからだとおもわれ。

>>27
最終行を取得してループすると言うことなら答えは自分でだしてるじゃん

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

フィルターかけて昇順降順にするとこんなんになります。

本１
本１０
本１１
本１２
本１３
本２
本３
本４
・・・・
これを１・２・３・４・・・と並べる方法はないでしょうか？

１　元データの横の列に連番を振る
２　元データを連番を含めてコピーし、最下行に付け足す
３　連番をキーに並び替える

>>35
１　元データを隣の列にコピー。
２　コピーした方の列を選択して、置換前「本」置換後「」(←空白)で置換。
３　残った数字でソート。

うーん、難しいんですね＾＾；
これが本の他に文庫・雑誌と同じ列にあるのでそうなるとできないんでしょうか。

それぞれ別シートに貼って>>37で並び替えてから、元シートに戻せばいいじゃん

置き換えから分らないんで、スレ汚しすみませんでした、私には無理っぽいです

本01、本02とすれば順番に並ぶわけだが

>>40
Ctrl+H

作業列作って作業列で並び替えればいい

レス下さった方々ありがとうございます。

>>20
各セルのスペースは半角も半角*2もあったし、そこは抜かりないだろうと思います。

>>21
Substituteでのと同様に、”-”や”数値”は取れてもスペースは取れず。
半角全角試しました。

>>22
試したけどダメでした。変化なしです。

>>29
セルを右寄せして不要スペースは確認しています。
”-”削除のうえ書式設定の電話番号もダメです（×1させても数値にならず）。


結局、今日中に仕上げたかったので、「F2」→「BS」→「ENTER」を何千回繰り返しましたｗ
しかし気になるなぁ・・・

>>14 >>44
遅いかも知れぬが、逆に電話番号を抜きだしたらどうだろう？
=left(a1,12)　

>>44
=clean(A1)

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

>>45
試したらうまくいきました！
スペースに目が行きすぎて、全くその発想は出てきませんでした（汗
一気にスッキリ晴れた気分になれました。

>>46
ごめんなさい、意図よくわからなかったです。

【1 OSの種類 　 　 　 　 .】 WindowsXP-Pro
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 （Google）Excel　VBA　セル　位置　取得

ExcelのVBAで、選択したセルの位置情報取得を試みています。 記述は
Sub A_01()
Range("A1").Value = Selection.Rows.Count
Range("A2").Value = Selection.Columns.Count
End Sub

として、選んだセルの行・列をそれぞれA1，A2に代入しようとしていますが
何も現れません。
どうすべきでしょうか？

あと、Private Sub　の　Private とはどういう意味なのでしょうか？

>>34
言い方が気にくわねぇよ
なおせ
殺すぞてめー

えらそーな口きいてんじゃねーぞ

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

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

>>44
そのスペースに見えるものが表示されない文字ということはありませんか。
試しに文字パレットなどで文字コードを確認してみてはどうでしょう。

>>48
.Row '行
.Column '列
.Address'アドレス

【1 OSの種類 　 　 　 .】 WindowsＸＰ
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】Rows excel vba 結合

vbaで行の選択をして、フィルターをかけたいと思っています。
で、行を選択するとき結合セルを含む場合うまくいきません。

たとえば２行目を選択したい場合で、セルC1とC2が結合、
D1とD2が結合されている場合
マクロの記録で以下のコードとなりました。
Rows("2:2").Select

しかし、vbaで上記コードを実行すると1行目も選択されてしまいます。
2行目のみ選択したいのですが
ご存知の方おりましたらご回答の方何卒、よろしくお願いします。

>48
>Private とはどういう意味なのでしょうか？

自分の物。
対してPublicがみんなの物。

これ以上は本でも買うかググってくれ。

Vista、Excel2007です。
セキュリティ機能によって外部データアクセスがブロックされました。
（リボンの外部データ取り込みがグレー表示になって無効）

ＶＢＡでＷｅｂクエリ機能を使っていたのですが、アクセスの途中で
エラー(1005)になり、マニュアルでＷｅｂクエリしようとしたのですが
できません。
どうすれば、プロックを解除できるのでしょうか。
よろしくお願いします。

>>53
無理。
事前に結合を解除して、処理後にまた結合するよう組みなさい。

ブックの中に、A4の沢山のシート（縦、横混在）があり、全部印刷して一冊の報告書になるファイルを作成しました。
全てを印刷してA4縦のバインダーに綴じたのですが、フッダーにふったページが、
A4横のシートの分が、バインダーの下部ではなく、横にきてしまいます。
A4横のシート（写真張り付けやグラフ等混在してます）のページ印刷位置をA4縦の位置と同一にする事は出来ますか？

無理。
自分でフッターをつくって90度回転させて張り付けるしかない

>>52, 54
てんきゅう。
今から紀伊国屋に行きます。

>>49
まあ詳細がわからないのでな…

適当に想定して作ってみた
A列セルの値が6以下かどうかで式を分岐させ、C列に式の答えが出ます。
A列B列は適当に作ってください。

Sub naoshita()
　　Dim i As Integer
　　i = Range("A65536").End(xlUp).Row
　　For i = 1 To i
　　　　If Range("A" & i & "").Value < 6 Then
　　　　　　Cells(i, 3) = Range("A" & i & "").Value * Range("B" & i & "").Value
　　　　Else
　　　　　　Cells(i, 3) = Range("A" & i & "").Value / Range("B" & i & "").Value
　　　　End If
　　Next i
End Sub

「6以下」→「6より小さい」でした('A`)

（選択セル情報の取得）
すいません。選択してもまだ何も表示されません。
Sub A_01()
Range("A1").Value = Selection.Rows
Range("A2").Value = Selection.Columns
End Sub

どこが悪いのでしょうか？

>>48 選択してるとはアクティブセルの事か？
それとも、複数のセル範囲なのか？
アクティブセルの場合は
ActiveCell.Row
ActiveCell.Column
詳しく知りたきゃ本でも買った方がイイよ

>>63
ども。
ここでの選択とは、単にマウスでクリック（あるいは矢印キーで移動）したセルです。
さっきのは末尾に不要なｓが付いていたのでこれを消して
Range("A1").Value = Selection.Row
Range("A2").Value = Selection.Column
としまいしたが、これは駄目でした。

試しに、とあるセルをアクティブ化してみましたが
Range("A1").Value = ActiveCell.Row
Range("A2").Value = ActiveCell.Column

でも駄目でした。
なお、本は2冊ありますが、共に選択したセルの位置情報の取得法
は書いていません。

ttp://www-2ch.net:8080/up/download/1192870755659824.L5bYst
この画像でA列で発生させた乱数を基に、
B列に501/1500なら��1��801/1500なら��2��1151/1500��3��1401/1500��4�≠ﾆ表示させたいのですが、
どのような式を作ればよいでしょうか？

よろしくお願いします。

>>64
どちらでもできますよ
コードのせいではないのかも？

>>65
意味がわからん
こういうこと？

B1=IF(A1=$G$2/1500,1,IF(A1=$G$3/1500,2,IF(A1=$G$4/1500,3,IF(A1=$G$5/1500,4,"どれでもない"))))

>>67
IF=(A1<=501/1500,1,"その他"）なら出来るんですけど、
それだと��1�≠ﾆ��その他�≠ｵか表示できないので、
��その他�≠ﾌところをを2〜4に振りたいんです。

>>68
いいから>>67の言うとおりやってみろ

>>64
ちゃんと
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
と
End Sub
の間に書いてるか？

>>68
B1=IF(A1<=$G$2/1500,1,IF(A1<=$G$3/1500,2,IF(A1<=$G$4/1500,3,IF(A1<=$G$5/1500,4,"どれでもない"))))

↑
訂正しました

>>72
綺麗に番号を振れました（ﾟ∀ﾟ）
本当に有難う御座いました。

>>70
出来ました。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1").Value = Selection.Row
Range("A2").Value = Selection.Column
End Sub

でOKでした。どうやら、任意の関数　Sub A_01() 内に書いていたのが原因でした。

>>48 Worksheet_SelectionChangeを使うなら

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1").Value = Target.Row
Range("B1").Value = Target.Column
Range("C1").Value = Target.Address
End Sub
の用に、Target引数を使用した方がいいんじゃね

>>75
もしよろしければ、それkwsk

>>76 詳しくも何も
引数の「Target as Range」にはそのシートの選択しているセルの参照が入るから
Sheetモジュールに書くならそれ利用したほうがよくね？
と思っただけです・・・はいwww

標準モジュールに書く場合は別だけど、自分は利用できる引数があるなら
積極的に使用した方が得かなと思うんで・・・

【1 OSの種類 　 　 　 　 .】 WindowsXP-Pro
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 Excel　VBA　プロシージャ　変数

プロシージャ間の変数で質問です。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)　内で定義＆計算
した変数を、ボタン　Private Sub Btn1_Click()　で利用するのは不可なのでしょうか？

つまり、Worksheet_SelectionChangeで gyou1, retu1　を
gyou1 = Target.Row
retu1 = Target.Column

として、Btn1でCallを使って
Call Worksheet_SelectionChange
hensu = gyou1*retu1
MsgBox hensu

としましたが、これだと「引数が省略できません」というコンパイルエラーになります。
なお、Option Explicit　を使っています。

sheet1のa1に数値を入力　（ここでは５とします）


ここでHlookup関数を用いてsheet2のa5〜b10を範囲指定したい場合なんですが
範囲指定の「a5」の「5」をsheet1のa1セルの「5」を用いて指定したい場合

ｈlookup(xxx,sheet2!a5:b10,xxx,true)　（このように指定したい）
↓
hlookup(xxx,indirect("sheet2!a"&sheet1!a1):b10,xxx,true)

と書いてしまうと#value!が帰ってきてしまいます。恐らくsheet2のa5セルの数値（３とします）を参照するので

3:b10　の範囲指定になってしまってるからでしょう。
どのように表記すればｈlookup(xxx,sheet2!a5:b10,xxx,true)を意味する数式になるのでしょうか･･･？

自己解決しました。

コードの一番上「(General)の所」に
Option Explicit
Dim gyou1 As Integer
Dim retu1 As Integer

でOKでした。

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

すみません、抜けてました・・・

【1 OSの種類 　 　 　 　 .】 WindowsXP-Pro
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 Excel　VBA　If　2重条件

Excel_VBAでIf文の2重条件は可能でしょうか？
つまり、変数Aは5より大きく、かつ10より小さい場合などです。
CやJavaでは　if(A>5 && A<10){}　と書く場合です。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 セル　条件　判定

【やりたいこと　】
・テキストボックスを通して、
　入力した値を条件で判定して転記先のセルを振り分ける。
　振り分け対象は、「商品コード」と「商品属性」の2項目です。
・商品数が多いので、エンターキーを押さずに処理したい。

【振り分けの判定条件　】
・「商品コード」　先頭が1000〜で始まる10桁の数字。
・「商品属性」　文字列。3文字以下で可変。ない場合もある。

手順としては
１．「商品コード」のラベルバーコードをスキャンする。もしくは手打ちで入力する。
２．「商品属性」がある場合は、次にそれを入力（スキャン）する。
３．「商品属性」がない場合は「次の商品コード」を入力（スキャン）。
４．１〜３を繰り返す。

まず「商品コード」を入力してA2セルに転記。
次に「商品属性」であればB2セルに転記。
「商品属性」がなければ次の「商品コード」入力でA3セルに転記・・・
という感じにしたいです。

よろしくお願いします。

エクセルスーパーマイスターって
言葉が浮かんだけどなんでしょうか？

>>82
If A > 5 And A < 10 Then
かな
もしくは
If A > 5 Or A < 10 Then

>>85
さんきゅうです。

>>83
質問
商品属性があるかないかはどこで決まる？
マスターにあるかないの情報のみがはいっているの？


1000〜から始まると決まっているのならその４回キーボードを入力する手間を省き
入力する数字を６桁にして、ENTERかTAB１回押した方がはやいと思うが。。

おはようございます。

>>87
こちらは倉庫で俺はバイトなんですか、
商品がたくさんあって、商品ラベルが貼ってあります。
そこには商品コード（数字とそのバーコード）、
商品属性（文字列とそのバーコード）、
商品名、その他、みたいな情報が書いてあります。

で、棚卸作業があるんですか、現在これが目視作業なんですよ。
最新の在庫リストをプリントアウトして、それが実際にあるかどうか、
人間が商品ラベルを目で見ながら照合していくわけです。

＞商品属性があるかないか

上から降りてくる在庫リストはExcelファイルで、
商品属性フラグという情報はあったりなかったりのようです。
わりと適当な形で提供されています。棚卸作業は目視でという想定なんだと思います。

商品出荷の際は、スキャナーでスキャンして検品していますが、
これは出荷伝票と突き合わせるだけの機能しかありません。
それなら、自分たちで在庫の商品をExcelに読み込み（入力）して、
その結果をリストと照合すればいいんじゃないかと考えました。

＞ 1000〜から始まると決まっているのなら

手打ちとスキャン、どちらにも対応できないといけないし、
作業量としてはスキャンの方が多く、その場合バーコード丸ごと読み込みになりますので。
想定としては、スキャナを次々商品ラベルに当てていき、ピッピッピッピッピッ・・・って感じです。
手打ちメインだと、みんな素人なんで、入力には相当時間かかりそうです。

でも頭省いて残りの入力ですむって発想はなかった。ちょっと目からウロコｗ

>>88
いまいち理解できてないのだが・・

１、棚卸なのでハンドスキャナーを持って倉庫に入り、入力もハンドスキャナー。
２、ハンドスキャナーのデータをEXCELにインポートして、在庫リストと照合。
という事ではない？
ノートPCにハンドスキャナーを繋げたまま倉庫に入り、バーコードがある製品はスキャナーで、
バーコードが無い商品はPCに手で入力ということ？

これ、EXCELの質問なのかな？？

「１０桁の物はそのまま１０桁で、６桁で入力されたものは"1000"を付けて１０桁にする」ならEXCEｌでできるよ。

>>89
ハンドスキャナーではないです。
PCに繋げたスキャナーで読み込みます。現状はデスクトップPCのみです。
当面は商品を一定数（棚単位あるいは箱単位）持ってきて、
まとめてスキャンという形になりそうです。

＞バーコードがある製品はスキャナーで、バーコードが無い商品はPCに手で入力ということ？

そんな感じですが、ほとんどの場合バーコードはついています。
なので、それをスキャンするのがメイン作業になります。

１．バーコードをスキャンして、それが商品コードであるか商品属性であるかを自動判定。
２．判定結果に基づいて、転記するセルを振り分ける。
３．商品数が多く連続作業になるので、条件を満たす入力があれば、
　　その都度エンターキーを押さずに確定して次の処理に移りたい。

★．最終的には同一商品の場合は数量カウントという形になるが、
自動化することを思いついたばかりで処理手順が煮詰まっていないので、それは後で考える。
今のところ、上記の１〜３でリスト化してそれに対してカウントするしか思いつかない。
でもって現在、スキャン → 自動リスト化　の段階でつまずいています。

Excel開いて単にスキャンするとコードの数字や文字が入力されますが、
セルの振り分けができないので、その前にテキストボックスなどの入力用フォームを通して、
そこで処理すればいいんだなと考えたのですが。

＞「１０桁の物はそのまま１０桁で、６桁で入力されたものは"1000"を付けて１０桁にする」

なるほど。
たぶん俺の問題は、その「桁数を判定して処理を分岐する」という部分ですかね。

=if(len(a1)=6,"1000"&a1,if(len(a1)=10,a1,"error"))

>>77
なんかアレな質問に丁寧に答えてくれてありがとうございます。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
を、なんだか訳の分からない呪文位にしか理解してなかったス(´・ω・｀)。

始めまして。よろしくお願いします。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 割印、ビジネス文書、作成


●　EXCEL２００３ファイルで割印を作る方法を教えて下さい。

ある中小企業で、契約書の手続きを担当しています。
そこでは、両面印刷したＢ４用紙を２枚重ねて、右下に５社から割印を貰わなければなりません。

今は、手書きで、○△□五角形の４つを記号定規で手書きして、その上に、間違いが無いように各社名を手書きしてます。

毎日３０枚も押して書いてるのですが、正直無駄だなと思ってます。

署名捺印箇所の印部分は、みなさん、オートシェイプで作ってると思いますが、
社名と○の上半分を１枚目に、○の下半分を２枚目に作りたいのですが、割印用のオートシェイプって無いですし・・・

大企業とかだと、専用のソフトとかでやってそうですが、エクセル２００３を使ってできる方法はないでしょうか？

よろしくお願いします。

エクセル２００３でマクロの名前を変更する方法を教えてください。

>>93
白いオートシェイプを重ねる。

初心者で申し訳ありませんがエクセルで自動計算した
数字が合わないのはどうしたらよいでしょうか？

縦列に数値が50個位あり、一番下に合計を出しています。
合計から個々の数値のシェアを出していますが、数値が
合いません。

例：A１の数値は11.31、A列の合計は1,502.64、シェアは
電卓でたたくと0.75267％となりますが、エクセルの
自動計算では0.75279％となり、少数点以下3桁までしか
合いません。

表示桁数で計算してもどうしても合いません。
どなたかお願い致します。

【1 OSの種類 　 　 　 　 .】 Windows2000
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
数学の問題なのかもしれないのですが、解答お願いします。以下の条件があるとします。

条件１
月利　r%　元本　v　期間　nケ月
条件２
月利　条件１に等しい　元本　w　期間　o
条件３
月利　条件１に等しい　元本 x　期間 p

この時下記の式から共通のr（月利）を求めたいです。（Ａ：定数）

ＰＭＴ（条件１）＋ＰＭＴ（条件２）＋ＰＭＴ（条件３）＝Ａ

ゴールシークとかを使わず、
r＝という式を求めたいです。
関数を使わずに純粋な数式とかでもいいです。
よろしくお願いします。

>>96
小数点以下の計算をPCで行う場合
計算誤差が出てくるよ
Excel 計算誤差とかでググれば
対処方が色々と見つかるよ

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

やはり、そういうアナログな方法になりますよね。

やってみます。

>>96
Excelで=11.31/1502.64を計算したら0.007526753になるよ。電卓と同じ。
ちゃんとRound()つかってないんじゃねーの？

小数点第2位までしか表示していないだけだろうな

>>94
マクロの名前を変更する方法 つったってVBEditorの画面で変更すれば言いだけの話ではないの？
プロテクトかかって云々なら諦めれとしか言い様がないけど。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 excel　100%　積み上げ横棒　パーセンテージ

　　　　　　Ａ　　Ｂ　　Ｃ　　Ｄ　　Ｅ　　その他
2000年　540　250　156　234　190　1,220
2001年　392　200　126　185　185　988
2002年　417　229　148　205　202　1,064
2003年　304　132　111　163　174　919
2004年　414　180　154　228　221　1,186
2005年　434　173　160　253　249　1,217
2006年　469　182　170　245　288　1,294

上のような表で100％積み上げ横棒グラフを作りたいのですが、グラフの各要素にパーセンテージを表示する方法はないでしょうか？
データ系列の書式設定→データラベル→ラベルの内容　の欄で、
系列名・分類名・値は選択できるのですが、その下のパーセンテージがグレーになっていて選択できないんです。
各要素の構成比率を表す表を作ってそれをグラフにすればできると思うのですが、体裁上あまりそれをしたくないんです。
何か良い方法があればよろしくお願いいたします。

体裁ってなに？別シートにつくれば元の表には何の関係もないじゃない。

または列の非表示とかな。
別シートでシートの非表示でもいいんじゃ？

では、その方法自体はないってことですか？

すみません、>>106はは103です。

すいません。
オートシェイプをトリミングしようと思ったのですが、
オートシェイプを選択した後でも、
図ツールバーのトリミングのとこが灰色表示でボタンが押せません。

このボタンを使えるようにするにはどうすればいいのでしょうか？

【1 OSの種類 　 　 　 　 .】 WindowsXP-Pro
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 （Google）Excel　VBA　セル　Currency　小数点以下

Excel_VBAの変数Currencyの小数点以下について質問です。

ワークシートで計算した数字を表示すると、例えば5600円なら　\5600.00　と、小数点
以下2桁も表示されますが、これを表示させない方法はありますでしょうか？
（当方が目的とするマクロでは、小数点以下の金額は扱わないので）

>>109
セルの表示形式いじったら？

>>110
ああ、そうっだった。。。。
解決しました。

Thx

>>100
そうなる筈なのに、さっきの数値になってしまってるので困ってます...

>>101
少数点は5桁まで表示しています。

>>97の回答誰かお願いしますm(__)m

EXCEL2007用の回答でも結構なので、よろしくお願いします。

VBAで、シートＡの、セルＧ１を画面の左上端に表示するには、どうかいたらいいですか。
別の表現にして考えるべきかも含めてお願いします。

普通に作業セルいっぱい使って、逆算していけば良いんじゃない。

>>114
ウインドウのスクロール。
officetanaka.net/excel/vba/tips/tips79.htm

>>115 >>116　サンクス

特に>>116さん、ナイス回答、そのもの以上のものがありました。
重ねて、サンクスです。

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

エクセルでは偏回帰係数が出せないと聞いたのですが本当でしょうか
出せる方法知っている方がいらっしゃいましたら回答お願いします

>>115は>>113向けじゃないか？

>>97
条件１、条件２、条件３のｒをそれぞれの結果がＡ／３になるよう移項して計算すればいいんだよ

いわれているように　>>115は　>>113さんへの回答ですね。;(^o^);

>>4に関係してなのですが
書式設定の折り返しだけをしたい場合に
セルごとではなくシートごとに設定するにはどうすればいいんでしょうか
2003です。

>>122
変更したいワークシートの行列番号の

↓この部分を
□ＡBCD
１
２
３

クリックして全体を選択してから書式設定すればいいんじゃないのか？

>>123
thanx

列だと無理ですが行だといけますね

ただオプション設定でできればデフォルトで折り返すようにしたいのです。

テンプレートをつくって保存する

>>112
5桁まで表示といいながら、
その痕跡すらないのはなぜ？

>>112
計算結果ではなくて、もとの11.31と1502.64を5桁表示してみ。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 列の幅　シート　コピー
このような表を1ページにまとめて印刷したい。

Aタイプ
　　S　M　L
赤　
青
黄

Bタイプ
　　S　M　L　LL
赤　
青
黄

こんな感じで、2つの表を同じﾍﾟｰｼﾞに印刷したいのだけど、
下のほうが列の数が多い場合、
他のシートで別に表を作って、うまく貼り付ければ表Aと表Bを
ﾍﾟｰｼﾞ幅いっぱいに印刷できると聞いたことがあるのですが、
やろうとしてもうまくできません。
分りにくくて申し訳ありませんが、どなたかこの機能をご存知の方いらっしゃいますか？

ご存知の方いましたら教えてください。
Excel2003でXMLファイルを開くときに、16桁以上の数値が勝手に変換されてしまいます。
　1234567890123456　⇒　1.23457E+15　　【1234567890123460】

CSVファイルのときは、拡張子をTXTにして文字列として開くことで対処できましたが
XMLでは対処方法はあるでしょうか？
XMLファイルの中身は以下のような形式です。

<?xml version="1.0" standalone="yes"?>
<NewDataSet>
<Code>1234567890123456</Code>
</NewDataSet>

よろしくお願いします。

連投すみません。補足します。
Aの表の全４列の幅に合わせて
Bの表の全５列をうまく分配するやり方です。
セルの境目が、挿入した所（段）だけズレるそうです。

あの可哀相な子ってまだ来てるの？

>>128
セル結合はダメ？

>>128
図のリンク貼り付け？

>>132
レスありがとうございます。
確かに、その方法もありなのですが、
（初めに列を4×5の20列作っておいて、Aは5列、Bは4列ずつ結合すればよい）
Aの表を作っちゃってからBを作って、後から列の数が多いことに気づいたような場合、
挿入＆結合がとても面倒ですよね。
なんだか、別のシートに作って貼り付ける方法があるそうなんです・・・。

>>133
お、おおおおお！
それでした！
ありがとうございます！
隠しメニューというものだそうですね！

>>129
Excelだけでなくスプレッドシート型の計算ソフトの仕様
15桁で計算してるから16桁は必ず "ゼロ" になる
　http://support.microsoft.com/kb/269370/ja
１１のべき乗、11＾0〜11＾20を表示させるとよく分かると思う
1
11
121
1331
14641
161051
1771561
19487171
214358881
2357947691
25937424601
285311670611
3138428376721
34522712143931
379749833583241
4177248169415650
45949729863572200
505447028499294000
5559917313492230000
61159090448414500000
672749994932560000000
7400249944258160000000
81402749386839800000000
アクセサリの電卓で検算してみな

>>136
レスありがとうございます。
CSVファイルのように文字列指定して開く方法がないかと思いまして。

次世代型（？）と言われるXML形式が、CSVのときと同じ過ちを犯しているとは思わずに
VBからファイル保存してしまったもので。。。
とりあえず不本意ですがCSVに変更することで解決しました。

どうもお邪魔しました。

XSLTでいけるんじゃないかな？

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


データをチェックの為に2回入力したいのですがどうしていいか分かりません。

例)
1回目→001
二回目→002
→エラーで入力できない

1回目→001
二回目→00
→合っているので入力される

説明が分かり難くて申し訳ございませんがご教授お願いします。

>>139
1回目の入力セル=A1
2回目の入力セル=A2と仮定

A2セルを選択
データ＞入力規則
入力値の種類：整数
データ：次の値に等しい
値：=A1

>>140

ありがとうございます。
説明不足でした。

セルは同一セルでチェックしたいのです。
イメージではパスワードを二回打つみたいな感じです。

test

>>125

方法を教えてください

>>141
同一セルでパスワード2回打つという状況を教えて下さい。
てゆーか、合ってるかもしれない所に2回目を打つという仕様の利点は何ですか？

>>143
ググろう。
http://www.google.co.jp/search?hl=ja&ie=Shift_JIS&q=excel+%83%65%83%93%83%76%83%8C%81%5B%83%67&num=50

>>141
>>5
>･ 入力したセルに結果を返す (VBA)

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel07
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 自動　計算　エクセル　反映

一年くらい使っていたエクセルのブックが計算してくれません。
VLOOKUPとか１年間ちゃんと動いていました。

A1に10を代入するとA2（＝A1*150）が1500って出るみたいに
自動で計算結果を出すようにしていたのですが、自動計算になっているのに動きませんorz

ぐぐってみると同じような症状の方がいるようなのですが、解決方法が見つかりません。
直し方知っていたらor原因を知っていたら教えてください
エクセルからアクセスに浮気しようとした途端、エクセルが機嫌を損ね正直困っております('A`;)

>146

F9

>>147
明日、会社いってやってみる。
ありがとう！手書き帳簿に戻りそうで泣きそうだった、ホントありがとう！！

幸せなスレだなぁｗ

>>144
データで間違えやすい部分(例えば名前など)を
1回打つより2回打った方が正確だと思ったからです。

>>150
間違っていた場合どうするんですか？
どこが間違ったかわかりますか？

>>150
A列に1回目、B列に2回目入力、C列に合っているか間違っているか出た方が有用では？
2回目の入力でなお間違っている可能性もあるのに。

>150
>1回打つより2回打った方が正確だと思ったからです。

１回目と２回目をどうやって比較するんだ？
２回目の入力が１回目の修正なのか２回目の入力なのか
どうやったら判別できるんだ？

他の人のレスにもあるようにそれぞれの入力セルを分けろ。
あと、質問者は名前に元番入れろ。

>>150
2回とも間違っていたらどうなるんですか？
そもそも何と比較するんですか？
2回目を１回目と比較するとすれば、まったく意味がないような……

>>150
もしかすると、こういうことですか。
原稿を見ながら１回目を入力する。
もういちど原稿を見ながら2回目を入力する。
2回目が入力できなければ、１回目か2回目かのどちらかが間違っている。
原稿を確認する。
こういうことですか？

相変わらず回答者様は頭悪いな

>>155

そういう事です。
説明不足ですいません・・

>>138
ありがとうございます。XSLT勉強してきました。

XMLファイルの２行目に参照先のxslファイルを指定して、xslから文字列にしたい数値の先頭に
【’】などを入れることで、とりあえず簡易的に対処する方法はわかりました。

ただしこれでは【’&数値】と余計な文字が入ってしまい、スマートな対策とは言えません。

Excel独自のXML構文として、セルの書式設定をすべて指定する方法もありますが、
今回は『既に存在するXMLファイル内の数値を文字列として開く』ことが目的ですので、
XMLファイルを編集することは選択肢にはありません。

時間のあるときにもう少し勉強してみようと思います。
ヒントをくださってありがとうございました。

エクセルで散布図を作ろうと思ったのですが
グラフを作成すると時間の設定方法がデフォルトと
あっていないためかうまく作成されません。
どのようにx軸(時間）y軸（時間）を設定すればうまくいくのでしょうか？
時間のセルの書式はユーザ定義のh:mmにしています。
ｘ　　　　　ｙ　
2:11:00 1:22:00
1:12:00 2:34:00

>>159
エスパーできません

>>160
エスパーできませんとは？

>>161
言ってる事がわかんねーよ！
という事でしょうね

>>147
（*´Д｀人）無事出来ました。�dくす�dくす。F9ﾏﾝｾｰ

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

時刻を扱う関数について質問です。

あるセルに時刻を入力したとき、その30分後、1時間後、1時間半後は何時なのかを計算する関数を作りたいのですが、
この場合はどのように入力すれば良いのでしょうか？

具体的には、17：00と入力したら横のセルに17：30、次に18：00、その次に18：30と表示させるようにさせたいです。

>>164
=A1+(1/48)ではどう？

わかる方いらっしゃいませんでしょうか？
セルの書式の関係でうまく散布図に表記できないのとは思うのですが。
時刻でx y軸を表記したいので

>>165様
ばっちり出来ました！どうもありがとうございます！

ご面倒で無ければ教えていただきたいのですが、
なぜ(1/48)が30分加算という意味になるのでしょうか？

私はてっきり、日付/時刻のリストにある関数で何とかするものだとばかり思っていました・・・

>163

F9でできるってことは自動計算になってないんじゃないのか？

>166

A1＝2:11:00　B1＝1:22:00
A2＝1:12:00　B2＝2:34:00
A1:B2の書式設定をﾕｰｻﾞｰ定義を時刻にする
挿入→ｸﾞﾗﾌ→散布図→ﾃﾞｰﾀ範囲を=Sheet1!$A$1:$B$2で普通に作れる。

何が問題なのかまったくわからん。
後だし条件が出てくるなら付き合う気は無い。

>>167
シリアル値で「1」は1900/1/1のこと
シリアル値で「2」は1900/1/2のこと

すなわち日付/時刻を表す場合、1とは1日をさす。
30分は1日の1/48。

>>166
>>168さんと途中までいっしょです。
A1＝2:11:00　B1＝1:22:00
A2＝1:12:00　B2＝2:34:00
散布図→データ範囲を=Sheet1!$A$1:$B$2
その後系列タブに移って
系列２を削除
系列１のＸの値に=Sheet1!$A$1:$A$2
系列１のＹの値に=Sheet1!$B$1:$B$2
としてください。

マクロＡ（親）の途中で、マクロＢ（子）を実行しているとき、マクロＢで終了し、マクロＡの以下の文を実行させたくないとき、どう書くのですか？

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

1行おきの"行"や"セル"を選択したいのですが…
お願いします。

>>171
マグロＢ子にEnd Sub入れたらいいやん

>>172
１行おきに何かフラグ文字入れてフィルタで絞る

>>171
「以下を実行させたくない」は何らかの条件をも
ってなのか、単に実行させたくないのかは知らんが、
Sub　A()
　処理
　Call　B
　処理
End　Sub

Sub　B()
　処理
　End
End　Sub
ではダメかい？

マクロＢの次のステートメント（マクロＡ中の）を実行せず、マクロＢ中で、終了したいという意味です。
END SUB    EXIT SUBではどうしても、Ａの残りのステートメントを実行してしまいます。

>172
選択したらええやん

単にＥＮＤでしたか。サンクス

>>172
Ctrl押しながら選択したらいい

エクセル２００３で
アルファベット２６文字（Ａ〜Ｚ）のワイルドカードって
作れないですかね？

>>174>>177>>179
返答ありがとうございます。
ごめんなさい、大雑把すぎたので具体的に言いますと

12　　155　　1
12　　155　　-1
19　　645　　1
19　　645　　-1
45　　282　　1
45　　282　　-1

こんな感じのデータ列が1000行くらいあるので簡単に
1行おきの"行"の消去(選択)できる方法がありましたら教えて下さい。

>>181
だから、オートフィルタ使えって。
-1で絞って、全部選択して「Ctrl＋-」で終了じゃないか。

>>182
�d！解決しました〜
お騒がせしました。

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

プリンターの設定（用紙のサイズ、向き、印刷の品質など）を別のシートにコピーする方法ってありますか？
今はすべてのシートを順に開いて、印刷の設定を1つ1つ手動で変更しています。
印刷の品質というのは、EPSONのプリンターで「はやい」と「きれい」をワンタッチで切り替えたいのです。
シートごとに設定がどこかに記憶されているのは間違いないので、それを一括で変更できるといいのですが。

>>184
プリンタ側の設定なんだから、大もとから変えちまえよ。
左下のスタートボタン→(設定)→プリンタとFAX→
(該当プリンタを右クリック)→プロパティ→「きれい」に設定。
それから、Excel開いて印刷すりゃ、ずっと「きれい」のまま。

lookup関数において
ズバリ一致した値だけを表示する場合はＦＡＬＳＥか０
昇順に並んでいる場合に○以上×以下までの値を表示するにはＴＲＵＥか１か何もつけない

これで合ってるでしょうか？

>>185
やってみたんですが、すでに作ってしまったシートの設定は変わりませんでした。
大元の設定が使われるのはブックを新規作成した時だけのようです。

>>183
最初から、>>181のように質問してください。
手段だけでなく、目的も書くと、より的確な解答が
得られるかもしれません。

>>186
LOOKUP関数には VLOOKUPやHLOOKUPのようにTRUE/FALSEの指定はない
検査範囲は必ず昇順に並んでいる必要がある

>>184
With Worksheets("Sheet1").PageSetup
.PrintQuality = 600 '印刷品質
.PaperSize = xlPaperA4 '用紙サイズA4
.Orientation = xlPortrait '印刷方向：縦　　横はxlLandscape
End With

印刷品質はプリンターの設定ではないかも。

>>184
>>190に補足します。
【印刷のページ設定】で指定できるものはVBAで指定可能ですが、
印刷品質『きれい』『標準』などの【プリンタのオプション設定】で指定するものは、
プリンタドライバの機能に依存するのでVBAではサポートされていないようです。

【印刷のページ設定】で指定できる内容でしたら
Dim i As Integer
For i = 1 To ActiveWorkbook.Worksheets.Count
With Worksheets(i).PageSetup
.PrintQuality = 600 '印刷品質
.PaperSize = xlPaperA4 '用紙サイズA4
.Orientation = xlLandscape '印刷方向：縦　　横はxlLandscape
End With
Next i
上記のように、すべてのシートで設定変更が可能です。

使用するプリンタを変更するのはVBAでも可能なようです。
Dim 印刷ポート As String = "LPT1:"
Dim 印刷ドライバ As String = "Canon BJ F300"
Dim 新プリンタ名 As String = 印刷ポート & " の " & 印刷ドライバ
Application.ActivePrinter = 新プリンタ名

webクエリでデータを取得したいのですが、
ヤフーのマイページ内にあるデータを取得する
にはどうすればいいのでしょうか

>>158
もう見てないかもしれないが、そのcsvファイルを開くときに、データ→外部データの取り込み→テキストファイルのインポートから取り込むと
事前に対象列を文字列として指定できるし列幅もデータに合わせてくれる。

>>192
やり方を探してみましたが、認証の必要なサイトのデータを取り込む明確な方法は
わかりませんでした。
ヤフーのLogin認証にはcookieを使用していますが、Excelに限らずOfficeはCookieを
使用したLogin認証に対応しているにもかかわらず、Webクエリでのデータ取得には
Cookieを参照しないようです。

ただ、
>　ヤフーのマイページ内にあるデータを取得する
これを満たすだけでよければ、インターネットエクスプローラで目的のページを
名前を付けて保存して、Excelからはローカルコンピュータ上のWebページの
インポートを行うことで対処できました。

もちろん、情報の更新など本来のWebクエリの使用目的にはそぐわないのですが。

>>193
CSVファイルもそのやり方で文字列指定できたんですね。
いつもは事前に拡張子をtxtに変更して　ファイル→開く　で文字列指定していました。
今後の参考になりました。ありがとうございます。

>>194
アドバイスありがとうございます
マイページ内のデータ取得ができるだけでも
ずいぶん助かります　ありがとうございました

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 少し
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 EXCEL VBA テキストボックス 計算

フォーム上のTextBox1とTextBox2の値をセルに返さずに、
計算結果をTextBox3に表示する事は可能でしょうか？

可能でしたら、方法をご教示ください。
宜しくお願い致します。

>197

TextBox3.Value = TextBox1.Value + TextBox2.Value

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 少し
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 EXCEL 数式　まとめて　入力

表のなか入っている数字を、まとめて全て５倍にしたいのですが、
簡単にまとめて数字を倍増させる方法はありますでしょうか。
お願いします。

>199

1.=(計算元左上ｾﾙ)*5
2.ｵｰﾄﾌｨﾙ
3.形式を選択して貼り付け

>>199
>>【3 VBAが使えるか　 　 .】 少し

うそだろｗ

うそです。ごめんままい。
そしてアドバイスありがとうございます！

>>198
　出来ました。有難う御座いました。

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

ある条件を一つの列で満たした時、（例：E列全てに「完了」と入力など）
シートのタブの色を変化させることとかできますか？
日付ごとのシートを選んで中身を目視しなくても、仕事が全て完了しているか
確認できるとよいのですが・・・。

よろしくお願いします。

>204

作業ｾﾙ作って条件付書式

>>205
試してみたんですが、条件が満ちた時に
シートのタブの色を変化させるようにするやり方が分かりません。
シートのタブの色を指定する書式の仕方はどうすればいいんでしょう。

まず条件付書式でググれ

書き込むスレがここでいいのか不安なのですが、１つ質問させてください。

今年から社会人になり、仕事でエクセルやアクセスを使う機会が増えたのですが、VBAにいまいち慣れないため参考書の購入を検討しております。
何かお勧めの参考書を教えていただけませんでしょうか。
ちなみに、学生時代は情報系の専攻（大学院卒）で、C言語やC++、JAVAを一通り学んでいるので、一からの初心者向けテキストでは物足りないのです。。
VBA特有のコードの書き方などが難しい（というよりも慣れない）です・・・

長文失礼しました。

それくらい、本屋行って片っ端から立ち読みして自分で決めろって。

エクセル２００３で
アルファベット２６文字（Ａ〜Ｚ）のワイルドカードって
作れないですかね？

>>210
VBAで頑張ってみろ。

【1 OSの種類 　 　 　 　 .】 WindowsXP-Pro
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 （Google）Excel　VBA　セル　表示　まとめる

２つのセルの数値を１つのセルまとめて a, b の形式で表示したく思っています。
下の書き方では駄目でした（4行１列目の数値と4行2列目の数値を1行１列目
に合わせて表示）。
Cells(1, 1).Value = Cells(4, 1).Value + ", " + Cells(4, 2).Value

どうすべきでしょうか？

>>212
+を&に変えて

>>208
Ｃが使えるっていう自慢をするスレはここではありませんよ。

>>212
＋の部分を＆にしてみれ

>>207
条件付き書式でセルの色を変える方法は分かるんですが、
シートのタブ（見出し）の色を条件によって変更する方法は
検索しても引っかかりません。やはり無理なんでしょうか。

>>216
VBAなら出来る。

Sub Macro1()
If Range("E1:E10") = "完了" Then
ActiveWorkbook.Sheets("Sheet1").Tab.ColorIndex = 3
End If
End Sub

とか。

>>213, 215

（セルの行列番号は変更しました）
Cells(1, 1).Value = Cells(2, 1).Value&", "&Cells(2, 2).Value
だとエラーになります。

まだ不備があるのでしょうか？

>>217
例としてセルE7とF7の数値が等しくなった場合に
そのシートの見出しの色を変える、といったコードだと
どのような感じでしょうか。ご教授お願いします。

>>218
Cells(1, 1).Value = Cells(2, 1).Value & ", " & Cells(2, 2).Value

>>219
ワークブックのイベントに以下の通り記述
(ThisWorkbookのシートね）

Private Sub Workbook_Open()
If Range("E7").Value = Range("F7").Value Then
ActiveWorkbook.Sheets("Sheet1").Tab.ColorIndex = 3
End If
End Sub

>>221
できました！ほんとうにありがとうございます。

ActiveWorkbook.Sheets("Sheet1").Tab.ColorIndex = 3
ActiveWorkbook.Sheets("Sheet2").Tab.ColorIndex = 3
ActiveWorkbook.Sheets("Sheet3").Tab.ColorIndex = 3

上記のようにすることで、シート1から3まで全てのシートに
同時に適用できました！これを日付け分のシート全てに適用させて
早速仕事で使わせていただきます。本当にありがとうございました〜。

>>124をお願いします

>>123さんのアドバイスでは現在記入済みのセルにしか
折り返しが適用されません。

デフォルトでできる方法を教えてください

テンプレート

>>223
WorkSheetを新規作成した時にデフォルトで折り返しに、て事なのか？
それなら、 >>224 の通りテンプレートだろ

だけど、作成済みのWorkSheetに適用するなら
>>123 の方法でできるよ
ちゃんと折り返しにするのチェックBoxにチェック入ってた？
こんな感じに　→　ﾚ

これだったら → ■
一部に適用状態だから、その状態でチェックBoxをクリックしてみ

>>220
うーむ。スペースが要るのか。

>>226
俺もたまに間違えるよ。
内蔵エディターが勝手に演算子の前後にスペースを入れてくれるから、
自分ではスペースを入れないクセがついちゃってるんで。

>>200
こういう場合、乗算貼り付けだろ、常識的に考えて

VBAで、MsgBoxのように、４つの定型文字Ａａ、Ｂｂ、Ｃｃ、Ｄｄを表示して、その選択で作業を振り分けたいです。
どうかいたらいいですか？

【1 OSの種類 　 　 　 　 .】 WindowsXP-Pro
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 （Google）Excel　VBA　セル　型　判別

Excel_VBAでセル内データの型の判別はどのようにすれば良いでしょうか？
例えば、Aの列に

1
あ
2
い
3

などと、5行1列で入っていた時、
If Cells(2, 1).Value ＝ Integer型（またはString型） Then 〜　
のような感じで処理したく思っています。

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

お世話になります。
ブック１→ブック２に列幅を正しくコピーしたいのですが、出来ません。
以下が症状です。

【症状】
http://uproda11.2ch-library.com/src/1139764.jpg
http://uproda11.2ch-library.com/src/1139767.jpg
http://uproda11.2ch-library.com/src/1139769.jpg
http://uproda11.2ch-library.com/src/1139770.jpg

もともと2つのファイルは私が作ったものではないので、何か設定が違うのかもしれません…。
オプション、印刷設定を見直しましたが、２ファイルに違った所は
見られませんでした。。。

※列ヘッダのサイズが異なっているのが原因？

>>230

VBAやったことないですが、これでどうですか？

IsArray 変数が配列か判別
IsDate 変数が日付型か判別
IsEmpty 変数がEmpty値か判別
IsError 変数がエラー値か判別
IsNull 変数にNullが含まれるか判別
IsNumeric 変数が数値か判別
IsObject 変数がオブジェクトか判別

>>229
ボタン4つあるユーザーフォームとか、ラジオボタン使ったユーザーフォーム作るのがいいんじゃない

>>230
typename関数でデータ型調べて、それで分岐すればいいんじゃない

>>232, 233

さんきゅう。やってみます。

>>231
フォントを同じにしてみれ

フォントサイズね

エクセル２００３で
アルファベット２６文字（Ａ〜Ｚ）のワイルドカードって
作れないですかね？

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
カレントカーソルの行列番号は青っぽい灰色なんですが、
他人のエクセルをみるとオレンジ色になっているものが
あります。
カレントカーソル行列番号の色は変えられるのでしょうか?

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 おそらくExcel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 excel グラフ　２群　分割

同一のグラフ内で系列を２群に分けて（離して）表示したいのですができません。
棒の間隔を変えるというオプションでは全て等間隔になってしまいます。
どうすれば↓のような状態に出来るのでしょうか？

｜ _　　　　　　 _
｜｜｜　　　　　｜｜ _
｜｜｜ _　　　　｜｜｜｜
｜｜｜｜｜　　　｜｜｜｜
｜｜｜｜｜　　　｜｜｜｜
￣￣￣￣￣￣￣￣￣￣￣￣￣　
　 あ　い　　　　う　え

>>238
テーマをWindows XPにすればいいんでは？

>>239
ダミーのデータを入れてみれば

>>238
無理。
見間違い。

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

既出かもしれませんが、クレジットの引き落とし日を求めたいのです。
今月末日までの日付を入力すると、指定した日にちを求めたいのですが
検索してもわかりません。初心者なもので、よろしくお願いいたします。

俺が馬鹿なのか>>243の言ってることがわからん

日本人なら解らなくて普通
だって>>243は日本語じゃないから

231です。

>>235-236
変えてもできませんですた(´・ω・｀)
ただ、新しく作成したブック２つの間では列幅のコピーは正しくできます。

2つのファイルを作成したエクセルのバージョンが違うとできないとか、
そんな問題かなぁ。

あげやす

>240 >242様
ありがとう

>>243
それは何か、ほれ
引き落とし日が、土日祝祭日だった場合と言うことか。

>>243
いくつクレジットカードがあるか知らんが、
たかが１年なら、手で入れとけ。

>>231　です。
これがそのエクセルです。
http://uproda11.2ch-library.com/src/1139892.zip

拡大率？がちがう。
プリンタの設定？？

列幅はどちらも同じにできている。
表示される数値は標準フォントに設定されたものが何文字かけるかなので違って見えている。

>>231
列・行幅もコピーしたいなら
シート全部を選択する（左上の？をクリック）

>>252
ありがとうございます。
ブックＡからブックＢへシートを移動してやっても、列幅がずれるんです。
(比率はおんなじなんですが…。）
なのでフォントが違うとかいう問題じゃないんじゃないかなぁ〜って思うんですが…。
252さんのエクセルとバージョンが違うのかもしれません。


>>253
それで出来ないのが問題です。

EXCELのバージョンは2000(9.0.3821 SR-1)です。

Excelは標準フォントが基準だとか面倒なことをしているので環境によっては違いが出るのかも。
標準フォントをオプションから変更して同じにすれば合うと思う、既存ブックの変更はスタイルから。
もちろん見た目が変わってしまう。

>>255
ありがとうございます。
調べてみます。

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

ユーザーフォームを現在作成中です。
ユーザーフォームに10個ほどテキストボックスが並んでいまして、そこにafterupdateが仕込んであり、
すべて同じ処理のマクロをcall文で呼び出すようになっています。

テキストボックスに直接処理を記述しないのは修正と管理が容易だからなのですが、
ここで一つ問題がありまして、マクロの処理としてはテキストボックスが今何番かを元に処理する部分があり、
これを変数で渡したいのですが、どうもうまく行きません。

質問は二点です。
まず、現在処理中のテキストボックスが何番かを調べる方法はあるのでしょうか？

テキストボックス内のマクロから、一般のマクロに変数を渡す方法はあるのでしょうか？
モジュール変数とパブリック変数と、それらしきキーワードは見つかったのですが、具体的にどうすればいいのでしょうか？

>>254
列幅をドラッグするとピクセル数が出ない？
ピクセル数は同じはず。

すいません。変数の件については自己解決しました。

現在処理中のテキストボックス（やラベルなど）の番号を取得する方法についての質問に切り替えさせていただきます。
スレ汚し申し訳ありませんでした。

【1 OSの種類 　 　 　 　 .】 Windows2000
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 新規book open close

やりたいこと　　：　　外部から与えられる2つのbookを元に、マッチング処理して複数のbookを作成する。

bookAは部品表。製品の数だけシートが入っていてそれぞれシートはその製品のオプションのリスト。
bookBは注文書。得意先-製品-製品のオプション（全て複数）。
bookＢのリストを回してコードブレイク、マッチング、適切な商品シートをbookAから選んで
部品表に書き込み、得意先ごとのbookにまとめる。book得意先1（シート３枚）、book得意先2（シート１枚）・・・
といった具合です。これらとは別のbook、マクロ.xlsにＶＢＡを書いているのですが、
bookAとbookBのマッチング、コードブレイク処理をどう書いたらいいのか分かりません。

それともこういう処理を書くときにはコピーして１シートにまとめなければできないのでしょうか？
（製品のシートがけっこうな枚数あるのでそれは避けたい・・・）

一度にactiveにできるシートは１枚ですよね？２つの別シート、それも別のbookのセルを比較する方法が分からないんです。
なにぶん、ＥｘｃｅｌＶＢＡ初心者なので「こういう処理はこう書くべき」といった常道、常識を知りません。
どうか宜しくお願いします。

>>260
そういう処理はAccessを使った方が簡単だと思う

エクセル２００３で
アルファベット２６文字（Ａ〜Ｚ）のワイルドカードって
作れないですかね？

>>260
そういう処理はチラシの裏を使った方が簡単だと思う

うわ、262だった（＞＜）

エクセルに関する事で質問があり
誘導されて来ました。

○月などと打ち込むと自動的に
曜日が変わる表を作成しました。
土曜日と日曜日だけを青と赤の文字に自動的に
変更できる様に条件付き書式で
「全ての値が」→「次の値に等しい」
と選択し「土」と「日」と入力しましたが
反映されません。
どうすれば変更できますでしょうか？

長文ですみません。

>265
「数式が」にしてweekday関数

>>266さんありがとうございます！

やってみます！

ちなみに条件付き書式の値の欄には
文字入力をしてもだめなのでしょうか。

>>268
文字を入れてもいいのだが、
>>265のようにしたい場合は>>266が正解だろう。

>>268
文字を入れてもいいのだが今回の場合はおそらく表示形式で曜日を出しているんだろ？
そうなると実態は日付のシリアル値だからな。
TEXT関数を使っているか曜日を直接文字を打っていないと条件で文字を入れても意味がない

表計算においての質問です。
当方エクセル2003です。

セルＡ〜ＡＨまでいろんな関数式を入れています。
（全部ではありません。例えばＭとＮはただの数字です。）
セルはそれぞれ13〜40000行まであります。
そこでセルＣ9に総利益があります。

セルＭ13〜40000とＮ13〜40000の数字の組み合わせで
Ｃ9が最も高い数字になるようなＮとＭの組み合わせを調べるには
どういう方法がありますか？

ちなみにＭ列もＮ列も13〜40000までは同じ数字です。
（Ｍ13＝Ｍ5000＝Ｍ10000・・・）

>>271
数字が全部同じなら、組み合わせも何もないだろ。
質問の意味がまったくわからん。

説明不足ですね。すいません。
Ｍ列とＮ列の数字を変えるとＣ9も変わるんですよ。
具体的に言いますと、投資の損益表なんですが、

セルＡ〜Ｆは日付けや時間や価格などで、その他は
売買のルールの関数式です。
ＭとＮは例えばいくら騰がったら買い、いくら下がったら売り
などの「いくら」にあたります。
Ｃ9はいろいろな関数式をされた最終結果が出るようにしてますので、
ＭとＮを変えると自動的に変わります。

ＸＰ　２００３です。
ＶＢＡで両面印刷させることが無理なことはわかったのですが、
対応として、ＶＢＡの中で、印刷ボックスを呼び出してから、設定したいと
思っているのですが、どのように書いたらいいですか。

>>271
別のシートにでも組み合わせを作って計算しとけよ
どうして同じ数字を何万行も入れる必要があるのかがいまいちわからんのだが。

>>275
何万行も入れるのは関数式上そうなってしまいました。

>>別のシートにでも組み合わせを作って計算しとけよ

その組み合わせをいちいち一回一回調べるのが面倒なんですよ。
例えばMとＮが1〜10までの組み合わせは100通りもあります。
それをいちいちＭが2Ｎが3の時はＣ9が・・・なんてこと
100回も繰り返すのが面倒なんです。

だからＣ9が一番大きい数字の時のＭとＮの組み合わせは〜
のようにすぐにわかると助かるんです。

>>274
ページ設定ではなく印刷設定ならExcelの設定ではなくプリンタの設定なのでスレ違い(>>3★VBAについて)
プリンタの種別に因っても違ってくる部分だし

>>273
必ず同じ数字を入れると決まってるなら、わざわざ同じ数字を何万個も並べないで、
すべての列の式で参照先をM13、N13にすればいいのでは？
そうすれば変更も検証も少ない手間で出来るようになる。

C9(最大値)、M、Nのいずれも不確定ならVBAで回すしかないような。

>>278
>>すべての列の式で参照先をM13、N13にすればいいのでは？

セルＰ13の関数式を例えばセル40000までやる時
セルＰ13〜40000まで選択してＣｔｒｌ　+　Ｅｎｔｅｒ　でやってます。
その関数式はセルＭ，Ｎだけでなくほかのセルも組み合わせているので、
（他のセルはＭ・Ｎと違い行によって違う）Ｍ・Ｎだけ13に固定する
やり方がわかりません。

それができたとすれば、Ｃ9の最大値のＭ・Ｎの組み合わせが
すぐわかるようにできるのですか？

>>279
O列13行から40000行までC9と同じ数式（？）を並べて・・・
O列を降順に並べる
または
LOOKUP関数で検査値をO列からMAX関数で拾ってきて
M列、N列の該当する行の値を抽出

>>277
レス、サンクス
自分のは、エクセルＶＢＡに関する質問で、ここでいいと思ってましたが、スレ違いでＶＢスレかｗｉｎｄｏｗｓスレが妥当なのかなと思いながら検索を続けていましたら、次のようなのに当たりました。

Application.Dialogs(xlDialogPrinterSetup).Show

これでいいのかどうかはまだ、未検証ですが、こんな感じのものを求めた文意です。

>>280
すいません。ちょっとわかりません。
初心者なもんで。
ちなみにＣ9の関数式は=SUM(Y13:Y40000)です。
Ｏ列は別の関数式があるので空いてるセルＡＩ〜でいいですか？

絶対参照のやり方は自己解決しました。
ＭとＮの後に＄を入れると解決しました。（Ｍ＄13）

本題ですが、Ｃ9の最大値にするＭ13・Ｎ13の組み合わせを求める
やり方を教えてください。

式などがわからなきゃ「全ての組み合わせを入力し出力を確認する」しかないな。

>>284
やり方があるのですか？無いならあきらめます。

ものすごく基本的なことかと思うのですが、
文字列の中で特定のセルを参照することはできるのでしょうか？
数式だと問題なくできるのですが・・

たとえば
A1セルに「100」が代入されていた時
A2セルに「在庫は100(A1セルの内容を参照)個です」
となるように表示したいのです。

代替法として
B1に「在庫は」
B2に「個です」
と入力し
A2に「=CONCATENATE（B1,A1,B2）」と入力すれば
出力結果は求めるものができますが
これでは実用性がなさすぎて困っています。
よろしくおねがいします

>>282
すこしは自分で調べてから質問を返すようにしよう
全部他人にやってもらえると期待しているなら帰れ

そもそもY列に入っている式や、そのほかの式の関連が全く分からんぞ
条件後出しするならそれなりの対応しかないと思って質問するように

>>286
A2セルに
="在庫は"& A1&"個です。"

>>286
A2セルに =A1
さらにA2セルにセルの書式設定でユーザー定義を設定して
"在庫は"#"個です"

>>288
すいません。後出しのつもりはありませんでした。
ところでY列の式と他の関係性は今回の質問には必要ないと思うんですけど。
最終的にＭ13とＮ13の値を変えるとＣ9も変わるんです。
Ｃ9にいたるまではＹを参照してＹは他のセルを参照して・・・
って感じです。当然ＮとＭを変えればＹも変わります。
Ｃ9は最終的に求めたい値なんです。

>>291
一般的に最大値を求める考え方ってのはいくつかあるが、
もっとも理想的なのは最大値を一発で求められるような関数を発明すること。ただしこれは
元の式をよく研究しなきゃならないし、数学のセンスも必要。

それができない場合はMとNにあらゆる数字を代入してみて、すべての場合の答えを求めてから、
その中から最大の物を探すという、とても手間のかかる作業をすることになる。

今のところ元の式がどんなものかまったく公開されていないので、手間のかかる単純作業を
やるしかない、そういう結論になってくると思うのだけど。

>>291さんのやりたいことはソルバーでできるかもしれませんね。

>279
M$13とかN$13とかって事？

88
15
21
4
19
63
61
17
(以下略)


こんな感じで、適当にA列に数字が並んでるとして、答えとなる数字（例えば100）を
B1に指定して、ボタンを押すと、A列に並んでる数字を足して、B1の数字（100）に
最も近い数字になる組み合わせを探して、該当セルに色を付ける、みたいな処理を
Excelで行おうとすると、VBAで総当たり、という方法しかありませんかね？

結果、足して、指定した数字になる組み合わせが分かればありがたいのですが。。
※指定した数字にならなければ、最も近い数字になるように。
※また、A列の行数は日によってランダムです。

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

>>294
はい。その点は解決しました。

>>293
ソルバーぐぐってみました。
まさに僕が求めていたことはそれです。
ありがとうございました。
ソルバーについてわからないことがあったら
また質問させていただきます。

その他の皆様もご指摘ありがとうございましたm(--)m

>>295さんの問題もソルバーで解決できそうです。

>>295

該当する組み合わせが複数あったり同じ要素が複数あったらどうするの？

ソルバーで使える式にうまく変形できると良いが

>>295
B列は0または1の値をとるものとして，C列はA列とB列の積を計算するようにします。
ソルバーを使って目標値（C列の合計）が100付近になるようにするとよいでしょう。
制約条件で，B列はバイナリに，目標値は100以下とします。
そして目標値が最大となるようにソルバーを実行して下さい。
次に制約条件を目標値が100以上となるように変更し，
目標値が最小となるようにソルバーを実行して下さい。

２つの結果のうち，目標値が100に近い方を採用するとよいでしょう。

>>298さんの指摘するような問題もありますが，これは全ての最適化問題に共通の問題ですね。

>>265で質問したものです

「数式が」にしたあとのWEEKDAY関数とは
どのように入力すればよいですか？
あれこれ試しましたがなかなかできません

ほんとに初心者ですみません！

>>301
色を付けたいセルがA1だったら、数式を

=WEEKDAY(A1)=1

とすれば条件として日曜日が指定されたことになる。
最後の数字が2なら月曜、7なら土曜。あとは、日曜の時の書式を赤にすればいい。

ルールは1つのセルにいくつでも追加できるから、もう一つ数式を作って、そっちは
土曜日という条件で書式を青にする。

試行錯誤してると変なルールがいっぱいできちゃうから、「ルールの管理」画面で
余分なルールは削除すること。

OSはWindowsXPです
最近自宅で使うExcelを2000から2007にヴァージョンアップいたしました
それに伴いメインで使っているブック(VBA含)もxlsmに変換してファイルサイズは約30MB→10MBになりました
しかし作業していて自動保存や手動保存時に20%くらいの確率で原因不明の不具合で落ちてしまうようになってしまいました
Excel2000の時にはほぼ出ていなかった不具合です
ブック中の1シートは現在約60000行あり今後65536行を超える見込みから以前のヴァージョンには戻したくありません
タスクマネージャを見張ると保存時にCPU使用率が100%になっていますが関係あるか解りません
保存時に毎回ドキドキするのはかなりツラいです
ファイルの保存成功率を高める為にはどのような方法がありますでしょうか？

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

シート１に
101　交通費
102　雑費
103　教育費
・　　　・
・　　　・
のようなリストを作って、別のシート上で「101」と打ち込むと横の欄に「交通費」と出てくるようにしたいんですが、適切な関数がわかりません。
どなたか教えていただけないでしょうか？よろしくおねがいします。

>>304
VLOOKUP

>>305
VLOOKUPだけと同じシート上にリストつくらなければいけないと思うんですが、別なシート上でもできるのでしょうか？

>>306
可能

>>306
やり方は聞くなよ。色々試してみれ。

【1 OSの種類 　 　 　 　 .】 Windows Vista
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可･否
【5 検索キーワード 　 　 】 分数 除算 分子 確率 関数　頻度

確率のsheetを作成しているのですが、
分子を「1」で固定して分数でセルに表示させることが出来ません。

セルA　セルB　　　出来たもの　表示させたいこと
1 20 1/20 1/20
2 20 1/10 1/10
3 20 3/20 　1/6.66

のように試行何回に一回の頻度で発生するとセルに表示させたいのです。
分数の表示はセルの書式設定で行えたのですが、
分子を1に固定して算出する数式や関数をご教示願えませんか？

ソルバー試したんですけど一つわからないことがありました。
それは制約条件です。「＄Ｑ＄13：＄Ｒ＄13」を変化させるセル
の欄に入力するまではできました。制約条件の欄にＱもＲも
10の倍数にしたいんですけど、どうすればできますか？

>>309
="1/"&ROUND(セルA/セルB,2)

自己解決。検索不足でした。スレ汚しスマソ。

ttp://www.keep-on.com/excelyou/2001lng2/200111/01110192.txt
ttp://okwave.jp/qa2189127.html

　　　|　 　 ,.ゝ─-,.r'´￣ ｀丶、　　　　 のべ２５万人が見た女子アナ国会議員のパンチラ！
　 　 ヽ,.r'" 　 ,.　/　ヽ ｀ヽ--─ '"ﾌ 　 　元・テレ朝女子アナウンサーまるたまさん（白パンティー？）
　　 ／　　,.' /　 ｉｌ　i　ヽ　丶 　 ,.ｲ　　http://news21.2ch.net/test/read.cgi/news2/1184094492/90
　,.ｲ/　　/i /l 　 !|　l　　 ヽ l,..ノ,. 'ｉ　　日本人でよかった♪ 白でよかたーーー！
　 /ｨ / /-ﾉ､l　 ハ　!　!　: l ｉ／j l |　　　 ﾉノこの番組で有名となった丸川珠代さん（参院議員）です。
　 ! l/ ,ir‐‐､ ｉヽl -ヽl､ l　!│　/ ,' !　http://news21.2ch.net/test/read.cgi/news2/1184094492/90
　　 )r'! i l;;ｿ　　 ‐r‐､,ｿ,.j /　/ /,ｨ　　　　　 ,. -‐- ､
　 '´ l |　　'　　 　 j.:.::ゞj /､ / // i　　 　 ／　,. -､　ヽ
　 　 l lヽ　 ｌ>　　｀'‐'"//ｯﾉ ! ﾊ!　｀　　 /　 , '　 　ヽ　ﾞ!
　　 ,.-l ､ゝ､ __ ,.　 ‐'ﾌ,'　ミ,.| j |　　 　 ,'　 /　　　　j　 l
　 /　 ｀ ｼ;.　 　 "'ﾂ'´　 ,ｼヽ' ｀'　　　　|　 l　　　　ノ! ,.ﾍ
　 !　　　,.ゞﾍ;.j､ﾊ.r;.iゞ'ﾐ'ﾞ 　 ｀丶、　　 l　 '、　　　 '"'´
　 l　ｌ ／　／　　ヽ 　 ヽ　　　 　 ヽ 　 ヽ　丶たけしさんの隣のまるちゃんに注目！（白パンスト？）
　 ヽ,ｉ'　 , ' 　 > '´ ヽ 　 ヽ､　　 　 j　　　 ヽ､ ヽでも、小泉チルドレン筆頭の
　　/　　'､　,.'　　　,ﾉ　　　ﾘ 　 　 ,ﾍ、　　　　ヽ　ヽ佐藤ゆかりたん萌え〜パンチラは無ーーーい！
　　!　　　ヽj　 ,. '"　 　 　 !　　　 l　 ヽ､. --､._ j　 !
　　丶　　　｀'´　　　　 　 ﾉ‐--- '!　 　 　 　 〉i｀ヾ、
　　　 ヽ...,, -- ､.. 　 　,. '"| 　 　 j　　　　　 / ,'　　 ヽ
　　 　 ﾄ､　ヽi ﾞ;,,.ｼ￣;ゞ　 l　 　 ,'l　　　　 ,.' ノ-'"　　丶
　　　　〉､　　l ｀''"^'''"´￣| 　 　 l､..__,. -' ＝‐- ､.._ 　 i
　　 　 |　丶. !　　　,. ‐ ' ´l　　　､l,. - ‐ '"￣ ｀丶､ ｀　|
　　 　 |　　　l ,.　'´　　　　l　　 　 ! 　 　 　 　 　 　 ヽ j
　　　　!　　／　　　　　　,. !　　　│　　　　　　　　　 /　パンチラ規制厨の負けｗ

>>310
変化させるセルを例えばQ14, R14にします。
そしてQ13=10*Q14, R13=10*R14としてソルバーを実行してみてください。
制約条件でQ14, R14は整数に指定しましょう。

にわかにソルバー人気出てきてるのにﾜﾛﾀｗ

ピボットと同じく、使いこなすとこんなに便利なものがあったのかと感動する機能だしな

ですね。ピボットテーブルとソルバー大好きです。

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

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

すいません、行き詰ってしまったのでどなたか教えて下さい。


�@Sheet1 (1月1日のデータ)
　 　　 A　　　 B　　　 C　　　 D　　　 E　　　 F　　　 G　　　 H
　┌──┬──┬──┬──┬──┬──┬──┬──┬
1.│.1/1 │ 　　 │体重│身長│年齢│収入│ 　　 │ 　　 │
　├──┼──┼──┼──┼──┼──┼──┼──┼
2.│田中│ 　　 │ 　　 │ 　　 │ 　　 │ 　　 │ 　　 │ 　　 │
　├──┼──┼──┼──┼──┼──┼──┼──┼
3.│山田│ 　　 │55.0 │ 　　 │ 　　 │ 　　 │ 　　 │ 　　 │
　├──┼──┼──┼──┼──┼──┼──┼──┼
4.│鈴木│ 　　 │ 　　 │ 　　 │ 　　 │ 　　 │ 　　 │ 　　 │
　├──┼──┼──┼──┼──┼──┼──┼──┼
5.│小林│ 　　 │ 　　 │ 　　 │ 　　 │ 　　 │ 　　 │ 　　 │
　├──┼──┼──┼──┼──┼──┼──┼──┼
6.│山田│ 　　 │ 　　 │ 　　 │ 　　 │ 　　 │ 　　 │ 　　 │
　├──┼──┼──┼──┼──┼──┼──┼──┼

�ASheet2 (1月2日のデータ)
　├──┼──┼──┼──┼──┼──┼──┼──┼
3.│山田│ 　　 │56.5 │ 　　 │ 　　 │ 　　 │ 　　 │ 　　 │
　├──┼──┼──┼──┼──┼──┼──┼──┼

�BSheet3
　├──┼──┼──┼──┼──┼──┼──┼──┼
3.│山田│ 　　 │56.0 │ 　　 │ 　　 │ 　　 │ 　　 │ 　　 │
　├──┼──┼──┼──┼──┼──┼──┼──┼


こんな感じで�@〜�BのSheetがある中で、山田(例)の体重を平均して集計したセルを作りたいのですが
どんな式を当てはめれば良いでしょうか。
どこかに、全シートのC3セルを1つずつ抜き出して、それをまたオートSUMでくくって平均を出すことも考えたのですが
シートが1枚1枚増えるごとに、式を書き換えないと行けないのが難点です。

なので、1/1から1/31までのシートはあらかじめ作っておくものとして
山田の体重を日数で平均化し、なおかつ、まだ集計されていない日付の分は
式の内に入らないようにするにはどうすればいいでしょうか。
Excelを触りたてでうまく説明できず、つたない文章で恐縮ですが、よろしくお願いします。

>>318
例としての図書くの頑張りすぎｗ
表自体をシート分けずに、そういう集計したり、データベース的な使い方するなら、
一枚のシートに縦に並べて表作るのが定石なので、まだ間に合うなら、仕様変えた方が
いいかもよ。

そのまま行くなら、人の位置が変わらないという条件で、
「串刺しSUM/シート数(その日までの日数)」
で平均は出るけど。

>>>302さん！>301のものです
遅くなりましたができました！ほんっっっとに
ありがとうございます！

また分からないことがあれば聞きますので
お願いいたします！

>>318
これはピボットテーブルレポートの出番ですね。
データはこんなふうに一枚のシートにまとめた方が便利ですよ。
日付　　名前　項目　値
１／１　山田　体重　５５．０
１／２　山田　体重　５６．５
１／３　山田　体重　５６．０

このデータに対してピボットテーブルレポートを作るといいです。

コテハンでずっとageで解答してる奴、そろそろいい加減にしとけ

たしかに香ばしい必死感出てるなｗ

山田の体重変動しすぎ

>>325
鋭いなw

正月は食べ過ぎ注意ですね。

>>320
>>322
お返事ありがとう御座いました。
都合上、データSheetは仕様を変えられないので、串刺しSUMでググって調べてみました。

その結果、たどり着いた「統合」で、田中〜山田まで全員の各データを
一気に平均化することは出来たのですが、その集計を出すとき
まだ数値の出てないセルも含めた数で割ってしまうようでした。
(今のところ、無表記のセルは0か空欄で表示される仕様です)

たとえば、Sheet1〜3の田中の体重の平均値を、Sheet4のC5セルに反映させた場合
4Sheet目の2〜4行目に

「=Sheet1!$C$3」
「=Sheet2!$C$3」
「=Sheet3!$C$3」という3つのセルが出来ていて、5行目に
「=AVERAGE(C2:C4)」という式が入って、平均が出ておりました。

この場合、例えばSheet2のC3が空欄、もしくは0だった場合、割り算の分母には該当させずに
Sheet1とSheet2だけで平均値を出したいのですが、こういう場合はどうすれば良いでしょうか。
「=AVERAGE(C2:C4)」の式に、ちょっと手を加えて出来そうな感じですかね。

少しは自分で調べようよ
いや少しと言っても数十分とかじゃなくてせめて1週間くらいは

>328
>都合上、データSheetは仕様を変えられないので

鈴木君がいなくなったらどうなるの？
別の人が増えたらどうなるの？

たぶん、入力作業の都合で１回のデータを１シートにしたいんだろうが
この先のことを考えるならシート＝個人データにした方が後々楽だと思う。

【1 OSの種類 　 　 　 　 .】 Windows2000
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 excel abs "マイナスを"

１．下のような集計結果があります。

　　 A　　　 B　　　 C　　　 D　　　 E

1.　4.69　｜-3　｜-3.5　｜6.9　｜8.02

２．そこから、F・G列でA1からE1の、絶対値の最大値・最小値を求めます。
F1→{MAX(ABS(A1:E1))}
G1→{MIN(ABS(A1:E1))}

３．２．で出た最大値と最小値が入力されている元データのセルを条件付書式で
目立たせるようにしてるのですが、１．にあるように絶対値の最小値が「-3」なのに
２．で出てくる答えはマイナスが取れて「3」になってしまうため、目立たせることが出来ません。
絶対値の最大・最小値を求めながら、出た答えを元データと同じ状態に戻すには
どのようにすれば良いですか？
解決法をご存知の方がいらっしゃいましたらよろしくおねがいします。

>329
すぐに教えてもらえると翌日から仕事に活かせて便利。
ニート君は余裕があっていいな。

>331
条件付書式をそれぞれ

=ABS(A$1)=$F$1
=ABS(A$1)=$G$1

としては駄目なの？

>>332
哀れだな

分かりやすいなりすましだなぁ

だよね
質問者本人なのバレバレ

>>333
ありがとうございます。
それを問題の、絶対値の最小値の答え「-3」の部分に当てはめると
=ABS(B$1)=$G$1になるのですが、
G1には={MIN(ABS(A1:E1))}が入っており、答えは 「3」なので駄目で、それで困っていました。
説明が下手ですみません。
他に良い方法があればお願いします。

>>337
ABS(B$1)も3になるんだから、それで合ってると思うんだけどなあ。実際にやってみた？
それよりも、結果がおかしくなる原因はABS(A1:E1)の部分じゃないの？

ソルバーについて質問です。2003です。
制約条件を入力する時
「入力された参照が正しくないか、または必要な参照が入力されてません。マウスを〜・・・」
っていうのが出るんですが、そのウインドウを閉じると
制約条件の欄にはしっかり入力されてます。
制約条件の欄に入力されているのであれば問題ないのですかね？
あとオプションで反復回数と時間を変えられるんですが、
時間をたとえば1000秒に変えてもすぐに「制限時間に達しました。続けますか？」みたいなのが
出ます。なんなんですかね？あと反復回数ってどういう時にいじるのですか？

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

線などが既に入っている用紙に文字だけを印刷したいのですが、
用紙横幅がプリンタ規程外サイズになっています（縦幅は問題無し）
なので、用紙差込時の向きを変え、
レイアウトを維持したまま印刷するというのは可能でしょうか？
印刷方向で設定して用紙の長さだけを変えるんじゃなく、
レイアウトの方向も一緒に動かしたいのです
うまく説明できずすいません
分かるかたお願いします

>>339
最後の条件を入れる時は「追加」じゃなくて「OK」を押す。

すぐに止まるのは、「反復結果の表示」にチェック入ってない？
これは途中経過を見るための物だから答えだけが欲しいときは必要ない。

反復回数と制限時間は正解が出なかったときに増やす物で、
普通はデフォルトのままでいいはず。

>>340
用紙を90度回転させるということは、こんどはプリンターから見て高さが規格外の紙を
使うということになるから、けっきょくは
規格外の紙を差し込めるかどうか、プリンター固有の問題になるんじゃないのかな。
給紙トレイを使わず差し込み印刷で紙のサイズを厳密にチェックする方が少数派だと思うけど。

あと、印刷設定と実際の紙の大きさは一致してなくてもちゃんと印刷できることが多い。
その用紙が使えるんなら、大丈夫だと思うんだけど。

>>342
回答有難うございます

用紙自体プリンタに差し込めないんですよ
（横幅28.5cmで微妙に用紙差込場所から微妙にオーバーしてます）
だから縦方向に入れてなんとかなるかなーと思ったのですが、
無理っぽいのですね

>>341

Microsoft Excel 11.0 解答レポート


目的セル (最大値)
セル 名前 計算前の値 セルの値
$C$9 純利益 1090 1090


変化させるセル
セル 名前 計算前の値 セルの値
$AH$14 Trend 5 5


制約条件
セル 名前 セルの値 制約条件 ステータス 条件との差
$AH$14 Trend 5 $AH$14=整数 満たす 0
$AH$14 Trend 5 $AH$14>=1 部分的に満たす 4



制限条件については解決しました。ありがとうございました。
新たな問題です。ソルバーが馬鹿になってます。
ＡＨ14＝5より＝6とかの方がＣ9が大きい値になるんですが。

お願いします。

一つのセル内に複数行にわたる文字を記入しました。
すると、複数行のうち上の方のみが表示され、
下の方はセルからはみ出るかたちで見えなくなってしまいます。

下の方を優先的に表示させたいのですが、どうすれば
よいのでしょうか。

配置→縦位置→上詰めや下詰めをしても、したの方が
優先的に表示されるようにはできませんでした。

>>338
はい、やってみました。

　　 A　　　 B　　　 C　　　 D　　　 E 　　　 F　　　 G

1.　4.69　｜-3　｜-3.5　｜6.9　｜8.02 ｜8.02　｜3
・
・
・
・
・
21.　2.08 ｜-3　｜・・・・・
（↑元データ）

このB21の部分をG1の結果を元に目立たせたいのです。

集計前の元データはセルが飛び飛びになっているため、A1:E1のように一度並べ替え、計算用としてまとめてあります。

なので、G1で出た答え「3」をもう一度「-3」に戻す必要があると思うのですが
それがうまく出来なくて困っています。
よろしくお願いします。

>>346-347
本当にやってみたんか？うちでは正しい結果になってるぞ。
なってないとしたら、質問の方が間違ってるということになる。

それから、もうちょっとよく考えてみ。
絶対値で最大か最小か調べてるんだから、書式の条件式も絶対値で比較すればいいんだよ。
マイナスに戻す必要なんてないの。

あと、エクセルでは { } で囲まれた数式はShiftとCtrlを押しながら入力するんだけど、
そこんとこ間違えてない？

ぐすん・・

>>345 >>349
配置→縦位置→下詰め
ttp://upsurusuru.hp.infoseek.co.jp/cgi-bin/src/up1157.png

ただし中央を出すのはどうやっても無理みたいだけど。

あ、ごめん。
縦位置がちゃんと反映されるのは、隠れてるのが1行だけの時だった。

クロアチアタカトシュ、タシュケテ

>>348様

＞あと、エクセルでは { } で囲まれた数式はShiftとCtrlを押しながら入力するんだけど、
そこんとこ間違えてない？

間違えてないです・・・。

どのようにしたいのか、サンプルを作ってキャプしたものをUPしましたので
見ていただけたら嬉しいです。

ttp://www.uploda.net/cgi/uploader4/index.php?file_id=0000021515.jpg

>>353
実際に同じデータを同じセルに入れてやってみたよ。
ttp://aaabbbccc.s6.x-beat.com/upload/src/up14339.png

もしかして、数式の「$」を入れる位置を間違えてない？

>>354様
画像ありがとうございます。

何度もすみません。
色をつけて目立たせたいのは15行目以降にあるセルです。
A1からF5は、G・H列で最大値と最小値を出すためだけのものです。

15行目以降5回目までしかサンプルに使いませんでしたが
実際には100回目まであり、そのままだと式がものすごく長くなってしまうため
A1〜各項目1行に並べ直しましたが、印刷して使うのは15行目以降の表になります。

がおー！！

>>355
それなら、いちいちコピーした表を作らなくても、下の表で直接集計すればいいじゃん。
飛び飛びに並んだ数字セルから最大値を調べるには、こう書けばいいんだよ。
{=MAX(ABS(IF(ISNUMBER(A15:A412),A15:A412)))}

※この並びで行くと100回目は412行目になるからA412までを調べている。

個人的な感想を言わせてもらうと、最初から間隔を空けずに数字をびっしり並べた表を
作った方がいいんじゃないのかなあ。
こんな表を印刷したら見にくいだけで紙も無駄だと思うんだけど。

>>357
いろいろ試してくださってありがとうございます。
確かに、私も見にくい表だと思うんですけど
その表の体裁は崩すなといわれているので・・・。
あと、他のテスト項目の数値も実際にはA列に入っていて
412行目まで一気に指定できないんです。

>>358
4行置きとか一定の間隔で並んでれば、同じように一発で集計できるよ。
あとは、どこかの列にテストの種類とか何か目印が書いてあれば、その行だけを取り出して
集計することも可能。

>>359
集計はできているので、該当するセル（15行目以降）に色を付けたいだけなのですが
それがどうしてもうまくいきません。
15行目以降の数値が入っているセルそれぞれに、条件付書式で
絶対値の最大値と最小値という２つの条件を付けたいです。

4行おきに並んでいる場合の集計方法についても
今後のために知っておきたいので教えてください。
よろしくお願いします。m(_ _)m

>>360
それは>>333の通り。
あとは相対参照か絶対参照かをよく考えて$の位置を直すだけ。
たくさんのセルに書式をまとめて設定したい時はフィルター使え。

>>361
例えば、こういうふうに4行おきのセルを指定して最大値を求めたいとする。

=MAX(A17,A21,A25 …… A405,A409,A413)

もちろん長くなりすぎるから途中は省略してある。
それをこう書けば同じ意味になる。こっちは省略してない。

{=MAX(IF(MOD(ROW(A17:A413),4)=1,A17:A413))}

>>362
ありがとうございます。
これからもう一度じっくり見直します。

>>354であげてくださった画像では
A1からH5の範囲にあるセルに色がついてるのですが
>>353の画像のように、15行目以降の元データに色をつけたいので
同じようになるか試してみていただけますか？
お時間いただけて可能であればで結構です。
よろしくお願いします。

>>363
すごく便利な式を教えていただきありがとうございます。

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

[データ]→[接続]で表示される「ブックの接続」に
Ｗｅｂクエリを登録しない設定にするには、どうすれば良いのでしょうか。

ＶＢＡでＵＲＬのパラメータを変えてＷｅｂクエリを実行すると、
その都度、別の接続として追加登録され、困っています。

よろしくお願いします。

>>364
ttp://eload.run.buttobi.net/cgi-bin/img/e_137.png

>>364
解決です！できました！
本当に本当にありがとうございました！

バージョンが2000で、条件付書式のメニューの見た目が違うため
設定の段階で選択を誤っていることに気付くのが遅れました。
早々に解答をいただいていたのにすみませんでした。

×→　セルの値が▼　｜　次の値に等しい▼　｜　数式

○→　数式が▼　｜　数式
こちらで上手くいきました。
ありがとうございます。

質問させてください。

Excelのリストを使って用語集を作ろうと思っています。
範囲を指定してリストを作成するだけなので、簡単にできたのですが、リストの
青い枠線が気になってしょうがありません。

「アクティブでないリストの枠線を非表示」だけではなく、
「リストの枠線を非表示」にしたいのです。

アクティブになったときも枠線を表示しない方法ってありますか？

リストって何？

>>369　オプションの表示の枠線

>>370
最新版ではテーブルに名前が変わった

345

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

Excelについて質問です。
商品の管理をしようとする時にまず
本日の日付をA1
商品�@を入荷した日付をB1セルに日付を書きます。
商品�Aも入荷した日付をC１に書きます。その後も商品数だけ下に書いていきます。

そしてそのファイルを毎日「別名で保存」にしてファイルを一日毎に増やしていきます。
※ファイルを一日毎に増やしていくことは必須となります。

そして本日の日付は入荷より何日経過したかが知りたいのですがどのような
数式を打ち込めば経過日数を表示してくれるのでしょうか？

>>374
TODAY関数でブックを開いた時の日付けをゲットできるから後は引き算。
【ファイル】毎に開いて確認する必要が出るけど、関数やマクロを使っても同じ事だしね。

しかし・・・入力されるデータは【一つのシートにまとめる】事を強くお奨めする。
表示は別のシートで行えばいいし、複数の【ファイル】を開く必要もない。
月単位、期単位、年単位で【ファイル】を作れば管理がしやすくなるメリットもある。

商品�@　 =DATEDIF(B1,NOW(),"D")

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
以下の式をＶＢＡで入力したのですが、

Worksheets("記録").Range(Cells(y, 3), Cells(y, 102)).ClearContents

「アプリケーション定義またはオブジェクト定義のエラーです」と言われてしまいます。
これのrangeの部分をrows(y)とすると問題なく動くのですが、これではダメだといいます。

というより、さっきまで支障なく動いていたのに、突然エラーを出すようになりました。
そんなことってありえるのでしょうか？？？

yにきちんと実数が入ることは確認済みです。文法の問題でしょうか？

CellsがWorksheets("記録")でないとか？

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

一つのセル内に複数行にわたる文字列を改行を伴って記載した場合であって、そのセルのセル高さが十分でないために、複数行にわたる文字列の最終行が表示されません。

この最終行を優先的に表示させるために、セルの書式設定で上詰めや下詰めなど縦位置をいぢりましたが、解決には至っておりません。

一つの解決策として、セル高さを大きくすれば足ります。しかし、他の事情からなるたけセル高さは大きくすることはせず、最終行を優先的に表示させたいのです。言い換えれば、一番上の行は表示されなくてもよいのです。

よろしくお願いします。

【1 OSの種類 　 　 　 　 .】 WindowsXP-HE
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 （Google）Excel　VBA　セル　カウント

縦に並んだセル、例えば

小泉首相
小泉首相
　・
　・
　・
安部首相
安部首相
　・
　・
　・
福田首相
福田首相
　・
　・
　・

で、途中の安部首相の縦方向のセル数をカウントしたく思います。
どのような方法が考えられるでしょうか？　宜しくお願い致します。

int count=0;
for(i=0;i<ALL_ROW;i++){
if(cell(A_CL,i)=="安倍首相"){
count++;
}
}
printf("安倍首相は%d人いました。",count);

>380
�@ = worksheetfunction.countif(worksheet("sheet1").range("a1:a65536"),"安部首相")
�A　for i = 1 to 65536
if worksheet("sheet1").range(cstr("a") & i ) = "安部首相" then a = a + 1
next i

二つくらいしか思いつかなかった…。
あと、安"倍"首相だと思う。

>>377
どっかに結合セルとか保護セルとか作ってない？

>>379
VBAで文字列の最後の行を返す関数を作るとか。

>>380
リストで数えられるけど、必ずVBA使わないとだめ？

【1 OSの種類 　 　 　 　 .】 WindowsXP-Pro
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 Google：　Excel　VBA　"記入されたセル"　範囲

シート内で記入されたセルの範囲（全範囲）を把握する記述にはどのようなものが
ありますでしょうか？

例として（途中に空白セルがあり飛び飛びの状態）総行数が100，総列数が20
の場合、
Row = 100
Column = 20
という値で得たく思っています。

>>382, 385

380です。レスさんきゅうです。
他の動作をVBAで同時に行いたいのでVBAでやりたいです。



>>381
C言語？

Excel2003でパスワードを設定するには
どうすればよいでしょうか？

>386
UsedRange.Rows.Count とか

>>389
あんがと

【1 OSの種類 　 　 　 　 .】たぶんWindows98
【2 Excelのバージョン 　 】 不明
【3 VBAが使えるか　 　 .】いいえ
【4 VBAでの回答の可否　】否
【5 検索キーワード 　 　 】関数
関数に関する質問ってここでいいんだろうか…テンプレの項目が既に自分には難解だから、
初歩的すぎてバカらしいとは思うんだけど、答えてくれる人がいれば非常に助かります。

１．電話番号の中のハイフンを全て抜いて、番号だけを表示させる（関数で）
２．「東京都渋谷区」「山形県仙台市」等から、区名と市名だけを抜き出す(関数を二重で使う。恐らく答えを表示する関数はRIGHTかLEFTで、その中にどれかの関数を組み合わせる)
３．ローンの毎月の返済額の計算（年利１.５％、回数１０、金額１００,０００円）たぶんＰＭＴ関数だと思うんだが、うまく答えにならない

スレ違いなら申し訳ない。宜しくお願いします

>>383
いえ、作っていません。

rows(y)ならエラーにならないので、まったく意味がわからなくて混乱しています。

>>391
宿題ですか

エクセルで質問です

エクセルの画面（BOOK1など画面自体）
をシートに貼り付ける方法が分かりません

シートを開いてそのままコピーするのかと思いましたが
うまくいきません。
どうか教えていただけますでしょうか

>>391
四日市市とか難しいな

>>394
意味が分からんが、スクリーンショットでGoogle検索すると幸せになれるかも知れん。

WindowsならPrint Screenでいいんじゃないの？
LinuxはExcelつかわんだろ

>394
画面自体って図にして貼り付けたいという事?
画面丸ごとならprintscreen、貼り付け
シートの中だけなら範囲を選択してコピー、shift押しながら編集メニューで図の貼り付け

>>391
ヒントだけ。使い方はヘルプなり見ること。
(1) Replace関数
(2) 必要な結果は「渋谷」か「渋谷区」のどっちだろう？
(3) そこまでわかってんなら検索汁

>>380
Application.WorksheetFunction.CountIf
なら1行でできる

>395
町も番地も入ってないんだからsearchとmidか
lenとsearchとrightのコンボでいけるんじゃないの

市川市とかな

>>394です
>>396-398さん
レス遅れてすみません！

シートを開いたときに上の方にある青いバーなども
含めて一つの図として別のシートに貼り付けたいのです。

よく手順を説明する時にエクセルの画面が一つの
図のようになって貼り付けられている…あれが
したいのです。

ほんとに分かりづらくて申し訳ありません…。

>>403
レスが遅れた事を謝る前に、レスいただいたのに、全く読んでいない事を謝れ！

>>403
それならAltを押しながらPrintScreenでエクセルの画面全体がクリップボードに入るから、
あとはそれを貼り付けるだけ。

>>404さんレス読ませていただきました

プリントスクリーンとはどのようにやるのでしょうか…。

ヘルプ画面でプリントスクリーンと入力したら
質問の意味が分かりませんと言われてしまいました。

>>405さん
レスのタイミング悪くてすみません！
ありがとうございます！

>>395
>>402
入ってないからおｋ
>>399
ありがとうございます。
２で表示させたいのは「渋谷区」です。すいません。３は指定参考書の通りにやっても答えが違ってしまう。何がいけないんだろうか。この場合のＰＭＴって２のように関数を二重使いしますか？単品で求められますか？
>>401
ありがとうございます。後者の関数だとRIGHT(LEN-SEARCH"県")ですか？

都道府県名が4文字なのは神奈川県、和歌山県、鹿児島県の3つだけだから、
それだけ個別に判定して、あとは無条件に左から3文字を削除すればいい。
市区町村が必要なければ、右から1文字を削る。

>>409
方法は一貫せねばならないらしい。そのかんじだと４文字県は別にしなきゃならない、のかな？よくわからん。
RIGHT(LEN-SEARCH"県")にしたら結果が数字になった
もうだめぽ

>>410
一貫て、都道府県名の削除を1行で書けってこと？
まさかと思うけど、問題用紙に書かれたいくつかの住所だけが処理できればいいの？
郡部の処理は必要ないの？

>>411
すいません。全都道府県に対するものではなく、数個に対する関数だけです。でも鹿児島県は入ってました。

4文字目が県でなければ先頭に1文字追加すればいいね

>>412
東京都、京都府、大阪府、北海道が入ってないんなら「県」の文字の位置を調べるだけだと思うけど

もういい。
わからなすぎる。諦める道もありかなと思う。
みんなありがとうございますた。スレ汚してすまんかった。

>410
関数の使い方を間違えてる

どっちにしても都道府は別にしなきゃいけないから
=IF(ISERROR(SEARCH("県",A1)),RIGHT(A1,LEN(A1)-3),RIGHT(A1,LEN(A1)-SEARCH("県",A1)))
て感じか、４文字県をIFで分別するのと大差ないと思う

汎用性のないプログラムでよさそうだから、たぶんこんな感じだろう。

　 s = "神奈川県町田市" '元のデータが変数sに入っているとして
　 t = Right(s, Len(s) - InStr(s, "県")) '県以降を取り出して変数tに入れる

模範解答

s = "東京都浦安市"
t = Mid(s, 4 - (Mid(s, 4, 1) = "県"))

>>406
キーボードのPrintScreenを押す
何も貼っていないシートを開いていきなり貼り付けを行う

模範になってない。。。＿|￣|○

１９９０年からの毎日の売り上げをグラフにしたいのですが、件数が多すぎる
ので、毎月初日の売り上げだけをグラフにしようと思います。
毎日のデータから毎月初日のデータだけを抜き出すにはどうすれば良いで
しょうか？
どなたか、教えていただければ助かります。

Office XPを使用しています。
ウェブサイトのデータベースなんかでは一般的な、
ドロップダウンリストから名称を選択したら、
それに対応したデータが表示され、抽出データのみを利用できるようにしたいのですが、
なかなかうまくいきません。

オートフィルタを使う方法で攻めたところ
たとえば、以下のような「果物」リストを作成して、

商品名｜個数
りんご ｜ 3
みかん｜ 5
バナナ｜ 2

オートフィルタで「りんご」のレコードのみを
ドロップダウンリストから選んで表示させることはできますが
行を非表示にしているだけで、セル番号が変わっているわけではないので
格納セル番号がユニークに決まらず、
たとえば、別に作成した「野菜」リストで、
同じようにドロップダウンリストから選んだ「きゅうり」の個数と
「りんご」の個数を足すことができません。

何かよい方法をお願いします。

>421

日付が初日の売り上げデータを別セルに集め、それを
グラフ化すればOK

>422

質問の意図がよく分からんが多分COUNTIFでOK

>格納セル番号がユニークに決まらず、
誤解を招く可能性があるので訂正します。
格納セル番号自体はユニークに決まっていますが、
表示セルがいつもバラバラなので特定ができない、という意味です。

A1に「りんご」
A2に「みかん」
A3に「バナナ」
だった場合

りんごを選んだときは1行が表示され
みかんを選んだときは2行が表示されるので
りんごを選んで、単純にsumを使ったら
合計欄にりんごの数だけが表示されるのではなく
常にりんご、みかん、バナナの合計が表示されてしまうということです。

長くなりましたが、要するに、
りんごを選んだらりんごの数を、みかんを選んだらみかんの数を
別の特定のセルで表示できるようにできれば
あとはこちらで応用可能だと思います。
宜しくお願いします。

＞４２３
質問が言葉足らずで申し訳ありませんでした。
確かにおっしゃるとおりなのですが、初日のデータだけを別セルに集める
ために、抜き出す方法がわかりません。
よい方法がありましたら、よろしくお願い致します。

>425
どんな表かも説明されてないのにそれ答えるには
相当のエスパー能力が必要だな
俺には無理そう

>424
質問の最後の5行だけ読んで答えるけど
オートフィルタで表示させたものだけを集計したいならSUBTOTALだよ

>>420
VBAと違ってワークシート関数のMIDは3番目のパラメータが省略できない。解決策としては

(1)十分に大きい値を指定する
=MID(A1,4+(MID(A1,4,1)="県"),99)

(2)文字数をちゃんと調べる
=RIGHT(A1,LEN(A1)-3-(MID(A1,4,1)="県"))

(3)別解としてIFでやるなら
=IF(MID(A1,4,1)="県",RIGHT(A1,LEN(A1)-4),RIGHT(A1,LEN(A1)-3))

それよりも誰か>>391の「山形県仙台市」に突っ込んでやれ

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

1〜19までの数字をランダムに並べ替える方法を考えています。
ワークシート上なら、rand　と　rank　で問題なく行えるのですが、できればVBA内部で行いたいので、
今悩んでいます。

思いついた方法としては、要素が19個ある配列変数にまた同様にランダムな数字を放り込んで、
それをrank　的な関数で順序付けていき、その結果を別の配列変数に代入する、というものがあります。

ここで問題なのは配列変数の内部の指定した部分でrankが動作するのか、または代わりの関数が存在するのか、
またはそもそももっといいやり方がある可能性、といったことです。

よって質問は二点です。
1．配列変数内に取り込まれたランダムな数字の順位をはじき出す方法はありますか？
2．または、それよりはるかに効率のいい数字のランダムな並べ替え方法がありますでしょうか？

ご存知の方、詳しい方、どうかご教授下さい。

>>428
昔からよくある手。配列を用意して、その中の2つを乱数で選んでは入れ替える。

Dim R(1 To 19) As Integer
Dim I As Integer
Dim X, Y, W As Integer

For I = 1 To 19 '元となる配列を用意する
R(I) = I
Next I

For I = 1 To 100 '入れ替え作業を100回繰り返す
X = Int(Rnd * 19) + 1 '乱数で2つ選ぶ
Y = Int(Rnd * 19) + 1

W = R(X) '2つの配列変数の内容を入れ替える
R(X) = R(Y)
R(Y) = W
Next I

Private Sub test()

Dim num(19) As Double
Dim i As Integer
Dim y As Integer
Dim z As Integer
Dim x(19) As Integer
Dim j As Integer

For i = 0 To 18
num(i) = Rnd
Next i

For y = 0 To 18
For z = 0 To 18
If num(y) <> num(z) Then
If num(y) < num(z) Then x(y) = x(y) + 1
End If
Next z
Next y

For j = 0 To 18
Worksheets("sheet1").Range(CStr("a") & j + 1) = x(j) + 1
Next j

End Sub

>>430
それだと乱数で偶然同じ値が2個以上出てきたときに結果がおかしくなる。

初期データがちゃんと用意できたとして
If num(y) <> num(z) Then
の1行は、ない方が効率がいい。

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

さっそくご教授いただいた内容を基に試行錯誤してみようと思います！

こうすれば乱数値が重複してても大丈夫

For y = 0 To 17
　For z = y + 1 To 18
　　If num(y) < num(z) Then x(y) = x(y) + 1 Else x(z) = x(z) + 1
　Next z
Next y

関数のことも質問していいんでしょうか？スレ違いだったらすみません。
【1 OSの種類 　 　 　 　 .】windows xp
【2 Excelのバージョン 　 】 excel 2003

数学のsin、cos、tanの計算をエクセルでをしたいんですが、
たとえば[sin60度]を関数で計算するとき、式は[=sin(60*PI()/180))]
となりますよね？そうすると、[sin^2　60度]という、sinがべき乗されている場合、
式はどうなるのでしょうか？しばらく考えたんですがわかりません。。。

くだらない質問で申し訳ないですが、回答よろしくお願いします。

>>434
考えてもわからないことは、ヘルプを見るか検索する。
ヘルプで「べき乗」を検索してみ？

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

A　　　　　　　　　B　　　　　　　　C
山田さん　　　東京大学　　　東京都
島田さん　　　福岡大学　　　福岡市
田中さん　　　京都大学　　　京都府
山田さん　　　東京大学　　　東京都
・・・

のようなデータがあります。たとえば、
1行目と4行目の山田さんのデータを重複データとして、D・E・F列に別途自動的に作成する
方法はありますか？
よろしくお願いします。

>>436
基本的な考え方
Dn=IF(COUNTIF($A1:An,An)>1,An,"")
あとは希望にあわせてアレンジ

【1 OSの種類 　 　 　 　 .】 XP
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 WEBクエリ　NATテーブル

WEBクエリを使って↓などを巡回しているのですが
http://www.monex.co.jp/StockOrderConfirmation/00000000/nighter/standard_price/1exec?word=a

途中で通信ができなくなって、調べてみるとルーターのNATテーブルがあふれていました。
１つのページを読むと、有効期限がすごく長いのが３３個もNATテーブルに増えていました。
４５個のページを読むので、３３×４５＝１４８５個もテーブルを使うことになります。

どうすれば無事に通信できるでしょうか？
よろしくお願いします。

【1 OSの種類 　 　 　 　 .】 WindowsＸＰ
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ

A　　　　　　　　B　
日本（JAPAN）
アメリカ（USA)
中国
韓国（KOREA)

のようなデータがあったとします。
A列に（　）付で文字が入力してあったとしたら、そのカッコ内の文字
だけをB列に表示させたいのです。

A　　　　　　　　B　
日本（JAPAN）　JAPAN
アメリカ（USA) USA
中国　　　　　
韓国（KOREA)　 KOREA

のようにです。
お分かりになる方、お願い致します。

>439
括弧は全角のみと仮定すると

B列は
=IF(OR(ISERROR(C3),ISERROR(D3)),"",MID(A3,C3+1,D3-C3-1))

C列は
=FIND("（",A3,1)

D列は
=FIND("）",A3,1)

でどうでしょうか。

>>439
同じく、カッコが必ず全角で、なおかつ
閉じカッコより右に空白などが入ってなければ、これでいけると思う。

=SUBSTITUTE(MID(A1,FIND("（",A1)+1,99),"）","")

もっといい方法がありそうだけど…

>>439
=IF(ISERROR(SEARCH("(",A1,1)),A1,SUBSTITUTE(REPLACE(A1,1,SEARCH("(",A1,1),""),")","")

　Search関数で”（”の位置を調べてエラーが返れば”（”無しと言うことでA1をそのまま表示
　”（”まで左側の文字を空白に置換え
　”）”を空白に置換え
長いけどこんなでどう？

>>439 >>442
カッコがないときは何も表示しないみたいだから

=IF(ISERROR(SEARCH("(",A1,1)),"",SUBSTITUTE(REPLACE(A1,1,SEARCH("(",A1,1),""),")","")

とか？

皆さん、ありがとうございます。
今、皆さんのものを試させてもらいました。
441さんのだと「JAPAN」,「USA」等表示され、空欄であって欲しい箇所は＃VALUE!
でした。
442さんのだとそのまま「日本（JAPAN）」のようになりました。
443さんのだと、空欄になりました。

何はともかく、考えてくださりありがとうございます。
希望通りのものが見つかれば、ありがたいですが、とりあえずご連絡まで。

【1 OSの種類 　 　 　 　 .】 WindowsXP pro
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 excel　日本語　入力できない

セルへの日本語入力ができなくなりました
使用しているIMはME-IMEです
IMEをオンにしても、セル内へは英字しか入力できません
入力規則で日本語入力オンとしても英字のみしか入力できません

エクセルをセーフモードで起動しても症状は改善しませんでした
他のアプリではIMEは正常に機能しています

>>444
じゃあこれで

=IF(ISERROR(SEARCH("（",A1,1)),"",SUBSTITUTE(REPLACE(A1,1,SEARCH("（",A1,1),""),"）","")

>>445
IMEのせい。
板違い。

>>446
自己レス。
ごめん。これじゃダメだった。元データをよく見たら全角と半角が混じってる。

普通に、置換で全角括弧を半角括弧に置き換えてから、「(」で区切り位置、
B列対象に「)」を空白に置換で終了だろ。関数なんか使うまでもない。

>>449
そりゃ普通に列のコピーと置換とかすればできるけどさ、
そういった操作をせずにデータを変換するシートを作りたいんじゃないのかな？

>>444
というわけで再チャレンジ
=IF(ISERROR(SEARCH("(",ASC(A2),1)),"",SUBSTITUTE(REPLACE(ASC(A2),1,SEARCH("(",ASC(A2),1),""),")",""))

↑あ、A2のとこはA1になおしてね。3ヶ所とも

皆さん、ありがとうございます。
４５０さんの式で思い通りの操作が出来ました。
４５０さん、どうもありがとうございます！

この後、式の内容については自分で学習してみます。

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

3
7
1
と数字(1-12までの12種類)を打った時に、１なら白（という文字）、２なら黄、３なら青・・・のように
自分が作った1vs1対応の規則どおりに横のセルに出力されるようにしたいです。つまり
3 青
7 茶
1 白
としたいんですが、いい方法はありますか？７つまでの数字だったらIFの関数内にネストするということで
できたのですが、12個となるとうまくいかないようです・・・

>>453
VLOOKUP

【再】１９９０年からの毎日の売り上げをグラフにしたいのですが、件数が多すぎる
ので、毎月初日の売り上げだけをグラフにしようと思います。
毎日のデータから毎月初日のデータだけを抜き出すにはどうすれば良いで
しょうか？
どなたか、教えていただければ助かります。

>>455
毎日のデータはどんなシートに入ってんの？

>>453
色がすべて1文字ならこういう方法もある
=IF(AND(ISNUMBER(A1),1<=A1,A1<=12),MID("白黒抹茶小豆珈琲柚桜金銀",A1,1),"")
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　↑ここに色名を並べる

>>456
Ａ列　日付（1990/1/1など）
Ｂ列　売上（１２５３２５０など）
よろしくお願いいたします。

>>454
助言ありがとうございます。
VLOOKUPで1行目(B1)はVLOOKUP(A1,Y1:Z12,Y1:Y12)で出したい文字ができましたが、
２段目以降は#REF!と出ました・・・
たとえばB2でVLOOKUP(A2,Y1:Z12,Y1:Y12)とすればいいと思ったのですがダメでした・・・

>>457
実際には一文字の色を使ってるわけではないのでちょっと無理そうです
また使える時に試して見ます、ありがとうございます。

ぐぐるとよく出てくる質問なのですけど、打ち込んだシートの数字をクリアする
マクロ？のようなものがあれば教えていただきたいのですm(__)m

いくつかの操作の組み合わせでできるようなのですが、需要が多い操作のわりに
ちょっと面倒なのでワンタッチでできる便利なものがあるはず？かと、勝手に想像しております。
御存知の方、ご教授お願いいたします。

【1 OSの種類 　 　 　 　 .】 Windows2000
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 シート　値　クリア

>459
Y列に数字、Z列に色が書いてあるんだよね?
なら正しい式はVLOOKUP(A1,Y1:Z12,2,0)だよ

>>460
ググる事が出来るなら、「マクロの記録」でググれば幸せになれるよ

>460

マクロよりもグループ化した方が吉かも･･･

1.Ctrlを押しながら該当セルを全て選択する
2.左上の名前ボックスでグループ名をつける

>458

=DAY(A1)

>>460
そんなの簡単にできるよ

つ選択してDelete

ｗ

行高の自動調整をさせないようにするにはどうしたらいいですか？

>466

保護

>>466
いったんその行を選択して、右クリック→行の高さ
高さを変更しなくても、これを一度やればその行に自動調節は効かなくなる

>466,468

「自動調整」か、ゴメン

質問です
エクセルでシフト表を作成しようと考えております

店のシフトが勤務時間によってＡ，Ｂなどと分かれています
例；9:00〜17:00ならＡ
　　9:00〜17:30ならＢなど…

表を作成し、セルにいちいち入力する手間を省くため
ボタンを作りそれをクリックして入力できるようにしたいのです。
この場合どのようにやればできるでしょうか。

どうか皆さんのお知恵をお貸し下さい。
分かりづらかったら追って補足します。

>>470
入力規制のリストを使えばいいんじゃない？
Excel　入力規制　リスト
でぐぐってみればいくらでも例が出てくる

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

>>470-471
Excel2007だとリストがテーブルって名前に変わってるから注意な

>>470
VLOOKUP使えば、AとかBとか入力したら自動的に時間が入るようにできる

>>473
すまんがデータの入力規則を設定する際には、
そこの用語は2007でも「リスト」のままなんだよ

2003で言ってた「リストの作成」機能が拡張されて、
2007ではテーブルという名前に解消されただけ

>>471-475さんありがとうございます

ほんとに初心者のためVLOOKUPというのが
今ひとつ分かりませんがちょっとやってみます！

>>470です

ちなみに「表示」→「ツールバー」→「フォーム」
にあるボタンを使って
指定したセルに『A』や『B』などと入力できる様に
したいのですが、それもVLOOKUPというのを使うのですか？

>>477
それならマクロの方でまとめて処理するかINDEXあたりを使う

>>478さん
さっきググりながら調べて
マクロでボタンを作りましたが
一度ブックを閉じたらセキュリティがなんたらで
ボタンが無効になってしまいました＞＜

八方ふさがりです…

>>479
もし使っているのがExcel2007で、
「セキュリティの警告　マクロが無効にされました」
と表示されるだけなら、「オプション」をクリックして
「このコンテンツを有効にする」を選択してやるだけ。

慣れてないなら、いきなりマクロを使わんほうがいいとも思うが。

>>480なるほど！やってみます
こんな初心者のために
ホントありがとうございます…

教えてください。
1
2
11
12
21
22
31
32
.
.
.
91
92
101
102
というようなデータを作りたいのですが、うまい方法ありますか？

>482

1.A1,A2にそれぞれ｢1｣と｢2｣を入力
2.A3に=A1+10,A4に=A2+10
3.A3:A4を選んでｵｰﾄﾌｨﾙ

1
2
=A1+10
=A2+10
以下３，４行目をこぴって
下までずらずらずら〜

>>482
行|A列
１|1
２|2
３|=A1+10
４|=A2+10 ：行3,4の式をコピー

1
2
=A1+10
だけでいいだろ？
わざわざA4に=A2+10を入力する必要なし。

>>486
( ´,_ゝ`)ﾌﾟｯ
ば〜か

さて本物の馬鹿は誰でしょう？

あそうか！
恥ずかしいのでもう二度と書き込みません。
許してください。

>486

ごもっとも。
気が付かんかったｗ

>>483-486
できました。
こんなに簡単だったとは！

なんとなく
1
2
11
12
と入れて、セルを4つとも選択して下に引っぱってみた。
…なぜこうなるのか理解できなかった。

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

あるデータの散布図に
近似曲線-線形近似
とやって近似曲線を表示させ、
オプションから
「グラフに数式を表示する」
にチェックをつけOKをクリックしました。

しかしなぜかｙ＝実数という式が出て、右辺に変数が入っていません。
傾きが求めたいんですがどうすればよいでしょうか。

>>493
データによるんじゃないの？
手元でいくつか作ってみたが、明らかに傾きが出ないようなデータのときは
線形近似の式は確かに y=実数 の形になる

>>494
ありがとうございます。
桁が違いすぎたので、かけるE＋○○の部分を消去してみたらできました

【1 OSの種類 　 　 　 　 .】 Windows XP sp2
【2 Excelのバージョン 　 】 Excel 2000 & 2007
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 Googleやヘルプでの検索キーワード
いままでExcel2000で仕事をし、VBAで書かれたアプリを多用して何も問題がなかった。
今度、Excel2000を残したまま、Excel2007を導入したところ、どちらのExcelを起動しても、
起動時に「Visual Basic Error code 6」（オーバーフロー）の警告が出るようになってしまった。
そのまま無視して起動すると、次回はOKだったり、また、警告だったり、不安定な繰り返し。
このままでは仕事に使えない。まだ、Excel2007に前面切り替えできないので、困った。
これは、バグだろうか、それとも、私の環境だけだろうか。
ちなみに、Excel2000では起動時にVBアプリが同時に組み込むように設定してる。2007はまだまっさら。
また、システムの復元で元に戻すと全く問題ない。

>>493
データは同じ長さの「数値」ですか？文字列が紛れ込んでいませんか？
グラフは欠損値を含んでも、描いてしまいますが、回帰計算はできないはず。
他の方法では、ツールの統計分析の回帰を使っても同じ結果が出ます。

【1 OSの種類 　 　 　 　 .】 Windows 2000
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】Excel 複数の検索値から一つの答を出す

VLOOKUPは、例えばＡ列に値を入れれば、Ｂ列、Ｃ列…に値をだすことができますが、それと反対のことがやりたいのですが。
例：ABCDに入力すれば、答がＥに出てくるようにしたいのです。
ＡＢＣＤＥ
あいうえ１
あいうお２
あいえお３
検索値が２つならピボットテーブルで縦と横の軸で、INDEX関数とMATCH関数でやりました。
IF関数とAND関数でやるのかなと思いましたがうまくできませんでした。どうすればいいか教えていただけませんでしょうか。よろしくお願いします。

>>496
うちでは2000と2007は問題なく共存できてるんで、起動時に組み込むVBアプリの影響じゃない？

ただ、2000と2007は普通に使えてるけど、2003はヘルプが開けなくなった。
俺はこの3つがちゃんと共存できてる人がいるかどうか知りたい。

>>498
DGETかな

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

ユーザーフォームを現在作成しています。
ラベルを使っているのですが、ラベルの周囲に黒い線を入れたいなと思っています。
おそらくプロパティをいじればいいのでしょうが、いじってみてもよくわかりません。

どこを設定すればいいのでしょうか？
今の段階ではラベルを二枚重ねして線に見せかけることしかできていません。

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

続けて質問です。連投をお許し下さい。
現在、ユーザーフォームにスクロールバーを設置しました。
その最大数を、ワークシートのＡ3の値にあわせて変化させたいと思っています。

イニシャライズ時のコードにscrollbar1.max = worksheets("Ａ").range("A3") と表記してみましたが、どうも違うようです。
そういったコマンドはひょっとしてないのでしょうか？

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

マクロ操作のアンドゥを可能にする方法はないのでしょうか？
Excel自体の設定か、マクロのコードの書き方でも構いません。

あるいは、問題になっているマクロが 「形式を選択して貼り付け」＆「値」の操作を、
ショートカットに割り付けているだけなので、
この操作をアンドゥ可能で、ショートカットに割り付ける方法でも構いません。

ご存知の方がいらっしゃれば、よろしくお願いします。

>>498

2列の表を使ってVLOOKUP

Ａ　　　　　　Ｂ
あいうえ　　１
あいうお　　２
あいえお　　３

>>503
質問の主旨と少しずれるかもしれないが
「値貼り付け」は頻繁に使うから
ユーザー設定でアイコンをツールバーに
置いておくのが良いと思うよ。

>>503
マクロ操作は元に戻すことが出来ないので
元に戻すマクロを作ってください

>>498
&で４列の値を繋げ

>>500さん
DGET関数は使ったことがないんですが、ちょっと勉強してみます。ありがとうございました。

>>504さん
Ａ列の４桁、Ｂ列の４桁…を自由に変えたので、ひとつのセルに入れてしまうと入力に時間がかかるので、４桁ずつセルをわけておきたいのです。もうちょっと考えます。ありがとうございました。

>>507さん
別のセルに４列の値をつないだのを入れて、それでVLOOKUPにするということですね。家にパソコンがないので、明日会社でやってみます。ありがとうございました。

>>501
BorderStyle

>>510
検索値に直接式を入れてもおｋ
=VLOOKUP(A1&B1&C1&D1,範囲,列番号,検索の型)

前にExcel2000、2007同時インストの問題を書いたものです。自己解決編。
色々苦労したが、Excelとは無縁なATLAS2005（翻訳ソフト）の組み込みがVBAを使っていて、
これが2000に組み込んであると、2007インスト後、2000、2007共にエラーとなることが判明。
あーーしんどかった。
それから、Excel2007のカスタマイズ、なかなか楽しいですよ。リボン最小化と自己設定用のリボンのカスタマイズ、
これだけ知ってれば、2000、2003以上のカスタマイズができる。今は、広々とした画面で、好き放題に2007を使い始めた。
しかし、なんかまだOffice全体に不安感があるね。
たとえば、別板ネタだけど、Word2000、2007はカスタマイズ後、一方を起動すると、他は「構成を再構成」になってしまう。
（多分、僕の環境下では・・・、こういうことが不安定のゆえんだよね）
Excelではそういうことはおこらない。

【1 OSの種類 　 　 　 　 .】 WindowsＸＰ、ＶＩＳＴＡ
【2 Excelのバージョン 　 】 Excel２００３、２００７
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】できれば否
【5 検索キーワード 　 　 】 Google　「Ｅｘｃｅｌ」「（読み取り）パスワード」「解析」

どうしても休み中に開かなければならない、パスワードのかかったＥｘｃｅｌファイルがあります。
検索して出てきたフリーソフトを使ってみたのですが、試用版など使用制限のかかったものもあり、開けませんでした。
使ったソフトは、「VBA、Excel、Word、Accessパスワード解析/保護ツール(試用版)」「エクセルアナライザー for AdIn」「Excel UnPassword 0.40」「stirling」他。
インストール出来てもうまく起動しなかったり、解析出来なかったりしました。「これならっ！」というものはないでしょうか？
時間がないので、すぐ使えるものが希望です。
ご存じの方がいらっしゃいましたら、教えていただけますか?
宜しくお願いします。

>>514
他人の情報覗き見乙。

>>512
ありがとうございます。
Ａ列〜Ｄ列まで値が入ってる場合とＡ列＆Ｂ列のみとＣ列＆Ｄ列のみに値が入る場合の３パターンあるんですが、問題ないでしょうか。明日試してみます。

月曜日に会議で使用します。担当者は突然退職し連絡が取れません。
本来なら、こんなことはしてはいけないのでしょうが、背に腹はかえられません。

>>517
　　　 ≡　('A` )　華麗にスル〜
　　　≡　〜( 〜)
　　　　≡ 　ノ ノ

【1 OSの種類 　 　 　 　 .】 WindowsXPHE
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 一応可
【5 検索キーワード 　 　 】「エクセル　文字列 日付順 並」

２ｃｈの荒らし報告の書式をまとめています。
http://pc11.2ch.net/test/read.cgi/bsoft/1111111111/111 2007/08/20 08:57:20
http://pc11.2ch.net/test/read.cgi/bsoft/2111111111/222 2007/09/30 18:57:20
http://pc11.2ch.net/test/read.cgi/bsoft/3111111111/333 2007/07/10 08:10:30
http://pc11.2ch.net/test/read.cgi/bsoft/4111111111/444 2007/10/20 21:57:20
上のように並んでいる文字列を日付、時刻の古い順に並べる方法がありましたら教えてください。

>>519
=RIGHT関数で、日付以降を隣のセルに抜き出し、それをベースに並び替え。

>>519
rightで日時切り取ってそこキーにすれば

>>517

解除してやるからどっかにｕｐしておけ。
あと解除後の送付用にメアドも書いておいてな。

>>517さん
大変ご親切なお申し出ありがとうございます。
ですが、どこにＵＰしておけばいいのか分かりません。
折角おっしゃっていただいたのに、申し訳ないです。
ありがとうございました。

>438
ですが、どうもIEの問題っぽいので
移動します。

さすがにこの糞スレでもパスワードを破る方法なんて書くバカはいないだろｗ

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

こんな質問は失礼かも知れません。
関数を使い初めた初心者用のオススメの本ありますか？
たくさん有りすぎて最初の一冊に絞れません。
バカな質問ですかお願いします。

>>527
>>2の一番下見てみ。
ちなみに、それ系のスレもどっかにあった希ガス

>>528
途中から読み始めたので肝心なルールを理解していませんでした。
今度技術的な事でお世話になるときはよろしくお願いします。

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】「エクセル 軸 中央線」

下記のようなグラフをエクセルで作成したいのですが
どのような手順で行えばよいのでしょうか？

ttp://up2.viploader.net/pic2/src/viploaderf118319.jpg

逆方向のデータをマイナスにする。
とりあえず全部横棒グラフにしてから一部のグラフの種類を折れ線グラフに
のこりを積み上げ横棒にする。
もっと楽な手順もあるかも。

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】「エクセル 他シート　呼び出し」

八百屋やらせていただいている山本と申します。
エクセルについて皆さんのお力を貸してください。

トマトとレタス　白菜とキュウリのように２種類の野菜の栄養をエクセルでまとめたいのですが
今現在はフィルターを使って、列１と列２に野菜の名前を書き
列３〜〜５にその栄養を書いてありまして、フィルターをかけると
トマトとレタスの栄養はどれだけと出るようにしています。

これらのデータを、他のシートに書いた時に読み出せるようにできないでしょうか？
例えばシート２の列１行１にトマト、列１行１にレタスと書くと
列３〜列５に栄養項目が自動的にでるという感じにしたいのです。

読みだすデータを書いたシートと、それを読み出せるシートと２つあればいいと思うのですが
いまいち上手くいきません。
どうか御助け願います。

>>531
お答えいただき、ありがとうございます
ですが……如何せん、上手くできないッス

>>532
もしかしてネタですか？

１列目と２列目の組み合わせで３列目を表示させたいのなら
>>507>>512のようにしる

1列目だけに野菜名、２列目に栄養素のようにしないと後々面倒だと思うのだが。
そもそもなんで２種類？
３種類はありえないのかな？

やっぱりネタかな？

>八百屋やらせていただいている山本と申します。

普通こんなので始めるか
ネタだよ

本当に2ch初心者なら、名前欄に山本と書くだろうしなｗ

いえいえ、ネタではございません。
ＤＧＥＴ関数を使ってやっていたのですが、これだとどうもうまくいきませんで。
データ一覧からリンゴ　トマトの場合の数値を持ってくることは可能ですが
それ１つしかできないじゃないですか。

皆さんならこれだけで想像できちゃうと思いますけど
食品１　食品２　栄養
リンゴ　トマト　=DGET(A1:H9,"ビタミン",E15:F16)　ここはＯＫでも
リンゴ　ブドウ　=DGET(A1:H9,"ビタミン",E15:F17)　２行目にこうするとエラーになります。

>>536
本当にと言われましても、２ｃｈ初心者とは一言も言っておりません。
もう３年ぐらい2chにはいるのですが、ビジネスソフト板の方たちは
何となくまともな人が多いと思ったので、名を名乗らせていただきましたｗ

ここまで痛い感じを出すのも難しいな

行末に”ｗ”を使うところから、たぶん人種が違うと思いますのでお引取りください

行末にｗを使うと人種が違うのですが。
いったい今日一日で何万人の方が２ｃｈでｗを使ったのでしょうね。
匿名で言いたい放題の場で、一応仮にも名を名乗り頭を下げて訪ねた人間に対しての扱いですか？
自分を恥じなさい、あなたはとても哀れな人だと自覚してくださいね。

それでは、さようなら。

一生１人の人間に恨まれていることを頭の隅において生きて行きなさい。

これが八百屋クォリティか。
すげぇな

まあ何にせよ平和が戻ったのは確か

では次の質問どうぞ

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

次のような表から普通と特別が混在しているか、普通のみの人の行だけを残したいのですが、
どのような方法があるでしょうか。
○がついた行のみ表示されるか残るようにしたいです。
その人の科目がすべて特別になっている場合はその人の行すべてを非表示にするという方法でもかまいません。

山田太郎　普通　　国語○
山田太郎　普通　　英語○
山田太郎　特別　　数学○
田中次郎　普通　　国語○
田中次郎　特別　　英語○
佐藤三郎　特別　　国語
鈴木四郎　普通　　国語○
伊藤五郎　特別　　国語
伊藤五郎　特別　　英語
伊藤五郎　特別　　数学

よろしくお願いします。

>>544
普通にオートフィルタ

>>545
オートフィルタだと「山田太郎　特別　　数学○」も非表示になるが、
>>544は「山田太郎　特別　　数学○」は残しときたいのでは？

>>545
オートフィルタだと普通だけと特別だけというフィルタしか出来ないのではないでしょうか。

>>546
そのとおりです。
山田太郎は普通も特別もあるので両方残す。
伊藤五郎は特別だけなので残さない。
鈴木四郎は普通だけなので残す。
ということになります。
普通がある人のすべての行（特別も含む）を残したいです。
特別だけの人はすべての行がいらないです。

よろしくお願いします。

>>546
？

"○" でオートフィルタで問題ないじゃん...

"普通"を含む名前の時にTRUEを返す条件式を作業列に入れて
その列でフィルタ掛ければいいだけじゃね
その式くらいは解るでしょ？

>>548
○は説明用に付加しただけだと思うが

各行の名前＆普通がリスト中にあるかどうかを調べてフラグを立てればいい

=SUMPRODUCT(($A$1:$A$100=A1)*($B$1:$B$100="普通"))>0

セルに書いてる文字を移動するときに、書式などは移動させず文字だけ移動させるにはどうしたらいいんでしょうか？

１、コピーして貼り付けるときに値のみを貼りつける。
２、元の文字を消す。

>>552
コピーじゃなくてただ移動する場合です。やはり元のデータを消すという方法しかないのでしょうか

>>553
１、移動させる
２、書式を消す(ALT→E→A→F)

こういう奴は何教えても後からあとから文句言ってきそうだな

>>554
説明不足ですいません、元のデータの書式を消したくないんです

|
{
|

|あああ
|
|
|X

途中で書き込んでしまいました・・。
「あああ」をXに移動させた場合に「あああ」の左の線が消えてしまうのを解決させたいんです

>>556
誰も元データの書式を消せなんて言ってない罠。

あとは、
１、元データで、F2→Shift＋Home→Ctrl＋X
２、移動先で、Ctrl＋V

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

それでええんかいｗ

ここは、突っ込み待ち満載のインターネッツですね...

>559

そうきたかｗ

【1 OSの種類 　 　 　 　 .】 WindowsXP-Pro
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 （Google）Excel　VBA　日付関数　期間　

ExcelのVBAで、ある期間の金額の合計を、日付関数で定義された日付に
基づいて算出するにはどうしたら良いでしょうか？　例えば１列目に日付が入り

2007/1/1=DATE(2007,1,1) , \100
2007/1/2=DATE(2007,1,2) , \30
　・
　・
　・
2007/10/31=DATE(2007,10,31) , \50

とあって２列目の金額を合計する場合です。

do while
if
cell
endif
loop

>>548
○はこの行を残すという意味です。

>>549
すいませんが、式がわかりません。

>>550
名前をA、普通か特別をB、科目をCにし、教えていただいた式をDに入れると、
「FALSE」になってしまいました。どこかおかしいでしょうか。

>>564
すいません、質問が言葉足らずでした。
上記の1/1〜10/31は全体のデータですので、特定の日付の
指定（期間の指定）はどうすれば良いのでしょうか？

つまり、1/1〜10/31中の4/1〜4/20のような感じです。

日付期間はDateDiffでgoogle

マクロでオートシェイプの中にある文字列も検索したいんですけど、
Application.Dialogs
に「オートシェイプの中も検索する」という機能を付け加えることってできますか？

よろしくお願いします。

>>563
DSUM関数
Criteriaの書き方はフィルタオプションと同じ

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 ちょっとだけよ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 VBA printout

通常使うプリンタではないネットワークプリンタで印刷させたいのです。
そいつはカラーで両面印刷ができてホチキスで留めてくれるすごいヤツなのです。

プリンタ名を指定する。ってところまでは検索して理解したのですが、
両面印刷やホチキスとか、オプション指定もしたいのです。

どうすればよいですか？よろしくお願いいたします。

>>191でドライバに依存するものはダメって書いてあったので
あきらめることに致します。

>>570
Sub Sample()
Application.ActivePrinter = "\\PRINTSERVER\Printer001 on Ne01:"
End Sub

>>563
「期間終わりまでの合計」−「期間始まりまでの合計」
関数はSUMIF,DSUMなど

ごめん。それ以降の話だったのね。それは知らん。

mid関数みたいな感じで、「数式内の」何文字目かを切り出したいのですが
何か方法ありますか？

例えば、VLOOKUPを縦にずっとコピーしたあと、第一引数だけを別セルに
書き出して、連番になってるか確認するなどしたいのです。

>>567, 569

てんきゅう

>>575
get.formulaという関数を使えばできるけど、セル内で使うのは手順がかなり面倒だから
VBAでやった方がいいよ。

＞例えば、VLOOKUPを縦にずっとコピーしたあと、第一引数だけを別セルに
＞書き出して、連番になってるか確認するなどしたいのです。
コピーして、連番になってるか、信用出来ないの？

>>536
初心者なら名前欄に「山崎渉」でいいのでは？

>>572レスさんくす〜

>>575
一時的に "=VLOOKUP(" を "" に置換してLEFT取るとか、

>>581
そこまでしたら元に戻せないよ
"=V"qを""でおｋ

【1 OSの種類 　 　 　 　 .】 WindowsＸＰ
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 習い始めです
【4 VBAでの回答の可否】 可で
【5 検索キーワード 　 　 】 Excel セル　一致　コピー

10列3000行のシート１と、10列1000行のシート２があります。
それぞれに一列ずつ、同じ類の言葉（シート１にニューヨーク、東京、大阪・・・とあると、シート２にもニューヨーク、東京、大阪・・・）
が入ってる列があります。それ以外の、数値はバラバラです。

シート１のニューヨークの行に、シート２のニューヨークが含まれる行全部を、
行の並び順のままでシート１の行の後ろに貼り付けたいのですが、
何かヒントでも良いのでお願いします。

シート1のデータの下にシート2のデータをペーストして並び替え

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

名前　　　　　出身地
カカロット　　埼玉
ナッパ　　　　千葉
べジータ　　 神奈川
フリーザ　　 東京
田中太郎　　埼玉
山田山男　　千葉
　　　・　　　　　・　
　　　・　　　　　・　　　
　　　・ 　　　　 ・

上記のような表のから、
埼玉　 ５
東京　　３
　・　　 ・　
のような、出身地別に人数の集計を取った表を作りたいんですが、右欄に左欄の出身地の人数が自動集計されるような関数はあるのでしょうか？
どなたかご教授お願いします。　　　　

COUNTIF

ピボットテーブル

>>586
申し訳ありません。間違えたので訂正します。下記のように１つのセルに市名まで入っているんです。
この場合だとCOUNTIFで「埼玉」と条件指定しても「埼玉県川越市」はカウントされませんよね？
何かよい方法はありませんか？

名前　　　　　出身地
カカロット　　埼玉県川越市
ナッパ　　　　千葉県市川市
べジータ　　 神奈川県藤沢市
フリーザ　　 東京都町田市
田中太郎　　埼玉県桶川市
山田山男　　千葉
　　　・　　　　　・　
　　　・　　　　　・　　　
　　　・ 　　　　 ・

"埼玉*"

>>589
おお！できました！！どうもありがとうございます。助かりました

マクロの保有数が多くなって管理がしにくくなってきたのだが、
何かうまい方法はないですか

逆に今、どのように記述して管理してんのよ？

>>585
根本的に悟空もナッパもべジータもサイヤ人だからな
そこから考え直した方がいいぞ

２０数件つくって、３区分ので単に保存しているだけ。
作業中のブック、個人用ブック等エクセルでの保存ではだめなことはわかった。
ワードでエクセルマクロを管理するのが一番のようですね。

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

オフセットがうまく使えず難儀しています。
Set ask = Worksheets("メッセージ").Columns(1).Find(what:=c, lookat:=xlWhole, searchdirection:=xlPrevious)
ask.Select

Exit Sub
Dim data(100) As Variant
For i = 1 To 4
data(i) = ask.Offset(0, 3 + i)
Next i

For i = 1 To 8
data(i + 4) = ask.Offset(0, 9 + i)
Next i

For i = 1 To 18
MsgBox ask(i)
Next i

上のように記述したのですが、なぜかオフセットが縦に移動しているようで、トンチンカンなメッセージが出てきます。
何がまちがっているのでしょうか。検索した値の右にあるデータが表示されるようにしたいのですが・・・。

あと、もう一つ質問がありまして、検索した結果のask　からセルのｙをrowの値を取り出すコマンドを度忘れしてしまいました。
ask.rows では違うようです。こちらもできれば宜しくお願いします。

あ、途中にあるexit sub　は消し忘れです。

宜しくお願いします。

>>595
For i = 1 To 18
MsgBox ask(,i)
Next i
でおｋ

>検索した結果のask　からセルのｙをrowの値を取り出すコマンド
日本語でおｋ

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

フォントの色番号が知りたくて、
http://hp.vector.co.jp/authors/VA016119/hajimete/udf1.html　を参考にして以下のように書いたのですが、
条件付き書式で色を変えたフォントに対しては、条件が適用される前の色番号しか返してくれません。
どうしたらいいんですか？

Function FontColor(セル)
FontColor = セル.Font.ColorIndex
End Function

Function FontColor(セル)
　 If 条件付き書式の条件に当てはまれば Then
　 　 FontColor = 条件付き書式で設定したカラーインデックス
　 Else
　 　 FontColor = セル.Font.ColorIndex
　 End If
End Function

回答ありがとうございます。ですが、また問題が・・・

条件付き書式の条件が
DATEDIF(TODAY(),$A1,"YD")<=E$2
なのですが、ここのところでエラーが出ます。

http://support.microsoft.com/kb/407898/ja　を参考にして
"Datedif(TODAY()," & $A1 & "," & """YD""" & ") " <= " & E$2 & "
と書いてみたのですが、どこが間違っているのでしょうか？

すいません質問です

グラフ作成時に系列X軸、Y軸の値を別ｼｰﾄから参照する際、
参照するセルの値ががI1、I2・・・I10と増加しているとします。
これを実際にグラフに反映しようとすると1、2、･･･10となります。
どうすれば正常に表示されるでしょうか？

>>600
先頭の=忘れてない？

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

シート１

年月 区分 職員cd key 125 150
1910 事務 101 1910101 1 2
1910 事務 102 1910102 2
1910 事務 103 1910103 3 4
1910 イベント 101 1910101 4
1910 イベント 102 1910102 5 6


シート２

年月 職員cd 給料 超勤手当
1910 101 110000 0
1910 102 120000 0
1910 103 130000 0
1910 104 140000 0
1910 105 150000 0

つづく

つづき

Function 超勤手当(年月 As String, 職員cd As String, 給料 As Long)

Dim key, J125, J150 As Range
Set key = ActiveWorkbook.Names("key").RefersToRange
Set JIKAN125 = ActiveWorkbook.Names("_125").RefersToRange
Set JIKAN150 = ActiveWorkbook.Names("_150").RefersToRange

基礎単価 = 給料 / (40 * 52)
時間数125 = workbooksfunction.SumProduct((key = 年月 & 職員cd) * JIKAN125)
単価 = 基礎単価 * 125 / 100
超勤125 = 単価 * 時間数125

時間数150 = workbooksfunction.SumProduct((key = 年月 & 職員cd) * JIKAN150)
単価 = 基礎単価 * 150 / 100
超勤150 = 単価 * 時間数150

超勤手当 = 超勤125 + 超勤150

End Function

シート1に超勤時間が入力されてます。事務やイベントなどひとりの職員に複数の区分で記録してます。
key、125、150の列には名前を定義しています。
これを元にシート２で超勤手当を算出するためユーザー定義関数をつくりましたが、正しい結果が出ません。

どこが間違ってるんでしょうか？

(key = 年月 & 職員cd) * JIKAN125 等が関数に渡るより先に先に計算される

ぐぐったらVBAでSUMPRODUCTするならEVALUATEで文字列で渡さないとだめだという話がありましたが、うまくいかないです。
職員は300人いるのでDSUMもだめです（月ごと＆職員ごとに条件範囲を定義するのは現実的でない）。
なんかうまい方法はないでしょうか？

>>602
いえ、忘れていないです。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 使えない
【4 VBAでの回答の可否】 不可
【5 検索キーワード 　 　 】 Excel　グラフ　軸の書式　等間隔

グラフ作成時、Ｘ軸の参照セルの値が1,2,3…100の時、軸の書式設定より、
目盛ラベルの間隔:25,に設定すると、軸が1,26,51,76…と、きりが悪くなってしまいます。
これを1,25,50,75と表示するにはどうしたらいいでしょうか？
※"1"の前に"0"は追加せずに　

　

>>608
ゼロからはじめてオートシェイプの文字（１）を重ねろ

Excel2000です。

A1002
MM856
GJ321

こんな感じで、列方向に英数組み合わせた任意の文字列が並んでいます。

大体データ数は2万位です。

しかしながら元データが手入力されたので、重複している項目が出ています。

重複データを弾き出し、重複の無いようにするにはどうさたらよいでしようか？
VBA使わない方法があれば、教えていただけますか。
どうぞよろしくお願い申しあげます。

>>611
いろんな方法があるけど、自分は他の列に COUNTIF関数を使って該当する文字列をカウントさせる
その後オートフィルタで １ だけを表示させて
ジャンプで表示しているセルを選択
コピーして他のシートに貼り付ける
貼り付けたシートの上から COUNTIF関数を組み込んだ列を削除する


　=COUNTIF(A1:A$20000,A1)
これをB1セルに設定してB20000セルまでフィルでコピー
（名前ボックスに B1:B2000 と入力してEnter その後 Ctrlキーを押しながら Dキーを押す）

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ に限りなく近いです
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 エクセル　グラフ

質問ですが

Ｘ軸→時間軸　　Ｙ軸→数量　で時間軸が均等でない
例
月曜日　２０：００　１２００
月曜日　２０：１０　１２５０
月曜日　２２：００　１３００
月曜日　２３：０５　１５００
月曜日　００：３０　１６３０
火曜日　０２：１１　１７３０
火曜日　０２：３０　１７５０

こんなデーターから折線グラフは作れるのでしょうか？

自分で２０：００　２１：００　２２：００を想定したデーターを作成しないと無理なのでしょうか？
宜しくお願いいたします

>>613
っ散布図

>>614
すっきり解決できました
ありがとうございます

エクセル2000です。
文字列の先頭に、

見えない文字が挿入されています。
　　エクセルで見ると
　　　　りんご
　　　　1234
　　コピーしてテキストに張ると
　　　　■りんご
　　　　■1234
　　コピーしてギコナビ　レスエディターに張ると
　　　　りんご
　　　　1234
見えない先頭の文字をDeleteを押すと消えます。
3000行程あるのですが、消す方法ありますか？
見えない文字が挿入されている行と挿入されていない行があります。
■の部分は、テキストではもうちょっと小さい■です。
■の部分をVBAエディタに貼り付けると改行されてしまいます。

例：
Dim 行, 列 As Long
Dim IDX As Integer
Dim strTEXT, STR As String
Dim strCHAR As String
For 行 = 9 To 3070
For 列 = 14 To 15
STR = ""
strTEXT = Cells(行, 列).Value
IDX = 1
Do While IDX <= Len(strTEXT)
strCHAR = Mid(strTEXT, IDX, 1)
If ((strCHAR <> "") And (Asc(strCHAR) <> 63)) Then　　'←""の間にテキストから■をコピーして張り付けると改行される。
STR = STR & strCHAR
End If
IDX = IDX + 1
Loop
Cells(行, 列).Value = STR
Next
Next
です。宜しくお願いします。

CRかな？

とりあえず =CODE(A1) で正体を確認する

>616
先頭の正体不明文字が1文字限定ならば、

Option Explicit

Sub test()

Dim i As Integer
Dim j As String
Dim k As Integer


For i = 1 To 3000

j = Worksheets("sheet1").Range(CStr("a") & i)
If Len(j) > 1 Then
k = Len(j)
j = Right(j, k - 1)
End If



Next i

End Sub

ワークシートに貼り付けて
ですべて消えると思います。
ダメなら、ごめんね。

マクロならvbCRをvbCRLFに置き換えればいいんじゃね？

>>618
そのようです。
あるHPからテキストを貼り付けて、改行を削除した列だけ見えない文字が発生。

>>619
調べたら文字番号13で*4でした。
CODE関数を取り入れて検索して削除しようとおもいます。
助かりました。

>>620
ありがとうございます。
1文字限定ですが、全ての行に見えない文字がないので・・・・・・
全ての行から1文字消す場合は、最良のプログラムだと思います。

CODE関数についてですが、VBAで表記する時ってどうすれば・・・・・
コード番号=CODE(STR)
ではダメみたいなので・・・・・

>>621
貼り付けた文字列です。

>>604
別のサイトで色々回答がついてるみたいだなｗ
Application.Volatileの言及もないし、そもそも数式をちょこっと足せばピボットテーブルで出来そうなもんだろ？
SUMPRODUCT並みのクソ重いユーザー定義関数を作ってもしょうがないと思うが。

>>623
つAsc関数

【1 OSの種類 　 　 　 　 .】 WindowsXP-HE
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 Google：　Excel　VBA　軸見出し　指定

グラフの軸見出し指定で質問です。

B7〜B9（氏名）とC7〜C9（金額）のセルに
安倍 , 70
福田 , 60
麻生 , 90

として、これを円グラフにするため下記ようにしましたが、軸見出しが
（C7〜C9の左隣の）安倍 , 福田 , 麻生 とはならず、JPGのように
1，2，3　となってしまいました。
http://sund1.sakura.ne.jp/uploader/source/up14399.jpg

Dim mySht As Worksheet
Set mySht = Worksheets("Top")
' グラフを追加する
With Charts.Add
' グラフの種類を指定する
.ChartType = xlPie
' グラフ化する元データ範囲を指定する
.SetSourceData mySht.Range("C7:C9"), xlColumns
' グラフ追加場所を指定する
.Location xlLocationAsObject, mySht.Name
End With

どうしたら良いでしょうか？

>>624

Cells(行, 3) = Asc(str)
とか
　　コード=Asc(Str)
で、エラーになるんだけど何故か分かりますか？
エラー内容：（プロシージャの呼び出し、引数が不正です。）

あーあ>>604は他所の回答で「完璧」とか言って閉じちゃったよw
そのうちセルの値を変更したら、自動で再計算されないなんて言い出すんだろうなw

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

ソートをしたいのですが、まったくとりつく島もないといった状態です。
一応本を見ながら以下のように文を作ってみました。

名簿シートの(c,1)から(y,18)までを、cの6行目をキーに並べ替えたいのですが、
なにをどうやってもさっぱり動いてくれない状態です。

Worksheets("名簿").Activate
Range(Cells(c, 1), Cells(y, 18)).Sort key1:=Worksheets("名簿").Range(Cells(c, 6))

これに加えて、できれば
key2:=Worksheets("名簿").Range(Cells(c, 7)), _
order2:=xlAscending

も付け加えたいのですが、一体どのようにすればいいのでしょうか。
よろしくおねがいします、ペコリ。

失礼、問題解決です。

>>628
＞【4 VBAでの回答の可否】 不可
まったくとりつく島もないといった状態です。

馬鹿回答者は相変わらず文句だけは一人前だな

>>600
Function FontColor(セル)
If DateDiff("y", セル, Now) <= Cells(2, 5) Then
FontColor = 8
Else
FontColor = セル.Font.ColorIndex
End If
End Function

>>630
あれれ？不可になっていましたね。

どうもすいません。もちろん”可”です。

【1 OSの種類 　 　 　 　 .】 WindowsXP-Pro
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 Excel　VBA　プルダウンメニュー　セル

リスト項目をあらかじめVBA文中に含ませておいて、あるセルにプルダウンメニュー
を設置し、そこから選べるようにするにはどうすれば良いでしょうか？

つまり、通常のExcelリスト機能を持ちつつ、その一覧がシート内にない状態です。

>633
まずHELPの例どおりに打ち込んでみれ。
まさかｃやｙは列記号じゃないよな。

すいません。ちょっと質問です。
エクセルは2003です。

例えばセルA1〜A20まで数字が適当（-含む）に入力されているとします。
+と-を色分けしたいのですが、どうすればよいでしょうか？

>>636
表示形式または条件付書式
たとえば整数なら、表示形式を
0;[赤]-0;0

>>627
やりたいことはできたのでおｋ。ただ、予想以上に重い。findをloopでぶん回す力技なので仕方ないんだけど。
VBAでDSUMの結果を得たいときはみんなどうしてるのかふしぎだ。
ほかにいい方法がありそうでしたら教えてください　＞＜

いい方法､あるにはあるけど･･･マルチするような奴に教えることは何もないなぁ

>>382
>>430
>>620
× Worksheets("sheet1").Range(CStr("a") & i)
○ Worksheets("sheet1").Range("a" & CSｔｒ（i))

>>638
本当にやりたいこと出来たか？
まともに再計算しない関数なんてクソだわなｗ
大体関数でやること自体がクソだがｗ

つくれないひとは黙っててください

作れないんじゃなくて作らねーの。
欲しがるからといって、そのとおりあたえちゃいけないんだよ。

できないくせに口ばっかしですね

だから関数でやっちゃいけないって言ってるだろ？
分からない子だねまったく。

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

すみません。
何かアドバイス頂けないでしょうか？

>>647
入力規則のリストに直に設定。
記録マクロ取れば書き方は分かる。

>>647
一覧がシート内になければ作ればいいだけなのではないですか？

どういう答えが御気に召すのかは知らないが、一例として。

Sub list()
　　Worksheets(1).Select
　　With Range("A1:C1").Validation
　　　　.Add Type:=xlValidateList, Formula1:="就職,転職,自殺"
　　　　.InCellDropdown = True
　　End With
　　Range("A1").Select
End Sub

>>648, 649
感謝です

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 ExcelXP
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 Googleやヘルプでの検索キーワード

ハイパーリンクになってるファイルを検出する　検索プログラムって
VBAで出来ますか？

できますよ

VBA ハイパーリンクでぐぐってね

ありがとう　出来るとわかれば勉強してやってみます

【1 OSの種類 　 　 　 　 .】 Windows2000
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 ちょっとだけ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 excel マクロ　フォルダ　作成　階層
VBAでAというフォルダを作成してその下層にBというフォルダを
作成したいのですがBを作る時点でエラー（実行時エラー、
型が一致しません）が出て進みません。
ここでA,Bは任意のセルの値です。

A = ActiveCell.Offset(0, 2).Value
B = ActiveCell.Offset(0, 3).Value

If Dir("C:\新しいフォルダ\") & A <> "" Then

MkDir Path:="C:\新しいフォルダ\" & A \ B

Else
MkDir Path = "C:\新しいフォルダ\" & A

MkDir Path:="C:\新しいフォルダ\" & A \ B

End If


End Sub

A単体は作れるのですがAの下にBを
作ることができません。どうしたら作れますでしょうか?

何を見たか知らんが、文法が根本的におかしい。

MkDir "C:\新しいフォルダ\" & A
MkDir "C:\新しいフォルダ\" & A & "\" & B

【1 OSの種類 　 　 　 　 .】 WindowsXP(SP2)
【2 Excelのバージョン 　 】 Excel 2002
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 パチンコ　抽選　シミュレーション　Excel

質問です。
パチンコのシミュレーションを行いたいのです。
例えば1/300の大当り確率のパチンコ台があったとして、あるセルに「300」と入力して、
次にあるセルに「試行回数（例えば10000）」を入力すると、即座に結果を表示してくれる単純なもので
良いのですが…

45
522
315
68
128
641
198
・
・
・
という風に、この列が1/300を10000回試行した結果。
当たれば、当たった時の回数目を表示し、次々と抽選してくれるような…

>>657
パチンコのルールはよくわからんが、ようするに、例えば1番目のデータなら

45×(1/300)×10000=

の答えを知りたいってこと？ならデータがA列に入ってるとして

=A1/300*$B$1

みたいな式をC1に入れてガーっと下にコピーすればいいんじゃね？試行回数はB1な。

>640
どっちも同じ動きするから
×つけるのはじゃないと思うけど。
書き方の問題でしょ。

＞659
×つけるのはじゃないと思うけど。 ⇒　×じゃないと思うけど。

CStr("a")なんて書いてあったら俺も×を付けたくなるわ。10点満点なら1点しかやれん。
VBAのコンパイラなら勝手に最適化してくれるだろうけど、どの現場でも通用するとは限らんし、
動けばいいって考え方もよくない。

質問させてください。
例えばセルA1に1.546という少数があります。
これを1.54というふうに単純に3桁にしたい時
どうすればよいでしょう？

また四捨五入で1.55と表示するやり方があれば、
併せて教えていただけるとありがたいです。
手入力は行がたくさんあるので時間がかかります。

【1 OSの種類 　 　 　 　 .】 WindowsXP-HE
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 （Google）Excel　VBA　グラフ　タイトル　"Charts.Add"

グラフのタイトル挿入で困っています。

With Charts.Add
.ChartType = xlPie ' 円グラフ
.SetSourceData mySht1.Range("B7:C9"), xlColumns
.Location xlLocationAsObject, mySht1.Name
.HasTitle = True　' ←※
.ChartTitleText = "2006年"
End With

というようにグラフタイトルを2006年にしょうとしましたが、デバッグで※印
のところで「オブジェクトが必要です」と出ます。
他のwithプロパティ値は有効なのですが・・・・　原因は何でしょうか？

>662
3桁にするには、表示形式を数値にして、小数点以下、2桁にすれば良いと思うよ。
四捨五入するにはround関数で。

>>662
セルの書式で少数以下の桁数を指定すると自動的に四捨五入される。
切り捨てたかったらROUNDDOWNを使う。

>>663
プロパティの設定には順序があるのよ。
とりあえずこれでタイトル付きの円グラフは作れるから、あとは自分で調べて書き足してね。

Set mySht1 = Sheets("Sheet1") '←この行は動作確認用なので消す
Set chart1 = Charts.Add

With chart1
.ChartType = xlPie
.SetSourceData mySht1.Range("B7:C9"), xlColumns
.HasTitle = True
.ChartTitle.Text = "2006年"
.Location xlLocationAsObject, mySht1.Name
End With

>>666
さんきゅう。出来ました！

先頭2文字以外を削除する置き換え方法ってありませんか？
リスト全部に適用したいのですが

>>657
RANDBETWEEN()という関数を使ってみてはいかがですか。

leftで先頭2文字だけ切り出せば？

>>668
作業列使って先頭の２文字だけを取り出したらどうよ？

2000ですが、右クリック→ユーザ設定→コマンド　からツールバーにドラッグしたコマンドに
ショートカットキーを設定することはできるのでしょうか？

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

行全体の幅を変えるにはA列とB列の間をダブルクリックすればいいと思うのですが、１つのセルだけ幅を変更してそのほかのセルは現状維持の場合はどうすればいいのでしょうか？

>>673
行と列の意味を取り違えてる気もするがここはエスパー。
AとBの間に列を挿入して結合するしかない。
タイトルか何か、文字を入れたいんならオートシェイプ使え。

>>673
1つのセルだけ変更って、こういうこと？
ttp://www.heat-devil.com/up/src/No1883.png

>>673
そのセルの幅を変えるんじゃないけど、俺はよくカメラ機能を使って印刷する。

>>670
>>671
=LEFT(C1,2)でできました
ありがとう

重ねて質問悪いのですが、関数式ではなく、関数で取り出した値自体を取り出し、コピー　貼り付けすることってできますでしょうか？

>>678
「形式を選択して貼り付け」

>678
ヘルプぐらい嫁よ

>>659
CStr って何する関数？ "a" って何型？ i って何型？

必死だな

>>675
そうです。
そんな感じにしたいのですが・・・

セルの結合のことか？

>>683
>>675のとおりやればいいじゃん。

具体的には>>674が教えてくれてる。

>>664,665

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

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

>>682
誰に言ってるの？
ほんとのこと書いてる人をからかうのはやめようぜ。
マクロは動けばいいってもんじゃないぜ？
動けばいいって言うのなら
Worksheets("sheet1").Range(CStr(Cstr(("a") & Cstr(i))))でも動くｗ

("a")

>>689
("a")でも動くだろ？
((("a")))でも動くｗ

頭痛が痛いってことでよろしく

危険が危ないということでよろしく

動けばいいってもんじゃない例で書いてるのに、何必死になってるの？
Worksheets("sheet1").Range(CStr(Cstr(("a") & Cstr(CLng(Cstr(i))))))
プロならこのくらい書けないとお金をもらえねーかな？ｗ

単に遊んでるだけだと思うが

自分が必死だから､軽くからかってる人まで必死に見える

>>693
まさかそんなの書く奴いねーよと言いたいところだが
Set rng = Range(Cells(1, 1), Cells(Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1).Row, 1))
こんなの書いてる奴見たことある。
人には文章が長いから、適当に改行を入れてくださいとか言ってたが。

("a")　が動いて
((("a")))　になるんだろ？

つまんね

前世紀、プログラマーの給料がソースの文字数や行数で決まってた時代があってな、
必死に長文のコメント書いて水増ししてたヤツとか普通にいたんだよな。
CStr("a")見て、そんな昔話を思い出したよ。

俺は演算子の前後にスペース入れるのも邪道だと思ってたんだけど、
それは完全に仕様になっちゃったからなあ。

Cells(1,2)をCells(1,Range("B1").Column)って書いてる人もいたよな。
おれはこれ見て2はマジックナンバーじゃねーだろ？とオモタ
"B"が使いたければCells(1,"B")とでも書けばいいとオモタが彼にとっては"B"がリテラル値なんだろうな。
そんなこと言い出したらRange("B1").Columnの"B1"もリテラル値のハードコーディングだわなｗ

>>700
Cells(1,Columns("B").Column)は昔よくみたなぁ。
馬鹿じゃなかろーかと思ったが。

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

セルの書式設定をユーザー定義で
[hh]:mm
に指定していて現在34:30と表示されています
これを分の位を時間の小数点以下であらわすにはどうすればいいですか？
上の例で言うと34.50と表示させたいです

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

２つの数値の差を求めるんだけど
10-8なら2でいいけど
8-10なら0を返したい

セルの中のＩＦ文の中に更に組み込みたいんでIF文以外の方法の式で出来ますか？
VBAでやらなきゃダメかな

>>702
表示形式では無理
=A1*24と別のセルに表示させる。
表示形式は0.00な。

【1 OSの種類 　 　 　 　 .】 WindowsXp
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 少々
実行中の（自分自身の）subの名前を取得する方法があったら教えてください。
感じとしては（こんなステートメントないですが）、
ThisSub.Name
のように取得できれば助かります。
よろしくお願いします。

>>703
A1からB1を引くなら
=MAX(A1-B1,0)

>>706
うほっこれはいい！ありがとう
目から鱗

>>705
そのものズバリの方法はないから、自分で工夫する必要がある。
あとは、CodeModule、ProcOfLineあたりでぐぐるとヒントは得られるかも。

この変も参考に。
ttp://www.vbalab.net/vbaqa/data/excel/log/tree_54.htm

>>708
レスありがとうございます。ポインタ先にも当たってみます。
ありがとうございました。

Excel初心者です。
非常に初歩的な質問で申し訳ありませんが、宜しくお願いいたします。

Excelで他の枠を参照する為に「=A0」などと入力しますが、
反映されるシートと反映されないシートがあります。
シートごとの設定がなにか違っているのでしょうか。
新しく作成したシートは、反映されるのですが
既存のシートを編集したいのでなにか方法はないでしょうか。

前提条件を追加いたします。
【1 OSの種類 　 　 　 　 .】 WindowsXp
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 否

やはりうまく行きません。ヘルプも参考にしたのですが、そもそもcellsを用いていないのであまり参考にならないというか・・・。

Worksheets("名簿").Activate
Worksheets("名簿").Range(Cells(c, 1), Cells(y, 18)).Select
Selection.Sort _
Key1:=Worksheets("名簿").Range(Cells(c, 6)), _
key2:=Worksheets("名簿").Range(Cells(c, 7))

ｙにもｃにも実数が入ることは確認済みです。
エラーメッセージは「アプリケーション定義またはオブジェクト定義のエラーです」と出るのです。
どなたかお教え願えませんでしょうか？

>>468 469 回答有難うございます。
それを列にしたり、最初から設定したりはできないんでしょうか？

>>712
Range(Cells(c, 6)) → Cells(c, 6)
Range(Cells(c, 7)) → Cells(c, 7)
でエラーは出なくなる。

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

金額を出す時に整数にならない場合、小数点第１位を切り上げているんですが、その際小数点第１位が1未満の時だけは、
切り捨てるようにしたいのです。
(例)
�@　4987.287・・・ → 4988

�A　4987.023・・・ →4987　

�@の条件だけならROUNDUPでできるのですが、�Aの条件を含める適切な関数がわからないので困っています。どなたかご教授いただけないでしょうか。よろしくお願いします

>>715
0.4足せ

エクセルにQRコードを作る機能はないでしょうか？
ヘルプにのってなかったからないとは思いますが。

=int(A1+0.8999)

>>715
0.1引いてから切り上げ
0.4足してから四捨五入
0.9足してから切り捨て

お好きな方法をどうぞ

>>717
ttp://www.bbjapan.com/~yutaka/useful/QRCODE/

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


下記みたいな表があって、合計個数のところに、
今日の日付以降の合計個数が表示されるようにしたい
（つまり、一日経つごとに、セルの範囲が一つ減る）のですが、どうやったらいいのでしょうか？

　　　　 ｜合計個数→｜　｜
日付↓｜　　　　　　　｜　｜
　11/06｜　　　　　　　｜7｜
　11/07｜　　　　　　　｜4｜
　11/08｜　　　　　　　｜2｜
　11/09｜　　　　　　　｜1｜
　11/10｜　　　　　　　｜0｜
　11/11｜　　　　　　　｜0｜
　11/12｜　　　　　　　｜2｜
　11/13｜　　　　　　　｜1｜
　11/14｜　　　　　　　｜3｜
　11/15｜　　　　　　　｜0｜
　11/16｜　　　　　　　｜1｜

>>721
普通にsum()じゃだめなん。

sum(C:C)みたいに、単純にやれってことですか？
それだとダメなんですよ。

>>721の例で言うと、今日(11/09)は8と表示されるけど、
明日(11/10)は7と表示されるようにしたいんです。

>>721
SUMIFで、条件はTODAY
但し日付がシリアル値の場合

>>714
ありがとうございました！
また一つ理解が深まった気がします！

>>723
11/1の個数がC1、11/16の個数がC16に入ってると仮定して、
1列目に=SUM(C1,C$16)と入れたらずらっと下の列までコピー。
これで累積は出る。

あとは、昨日以前のデータを出したくなかったらIFを組み合わせる。
日付がA列に入ってるんなら
=IF(TODAY()<=A1,SUM(C1:C$16),"")

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

>>710
オプションで計算方法が手動になっていると思われる

ツール → オプション → 計算方法 → 手動から自動に選択しなおす
または
F9を押す

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 SUBTOTAL オートフィルタ
オートフィルタで抽出したデータを、合計、平均、個数を同じ表の中に
表示させるにはどうしたらいいですか？
SUBTOTALの関数を入れると最後の1行しか表示されません。

>>729
ちゃんと範囲指定している？

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

エクセルファイルを開こうとすると、”ファイルを読み込み出来ません”と
警告が出ます。その後、修復されたファイルとなって開かれますが、
おかしくデータが表示されてしまいます。
何が原因なのでしょうか？