Excel総合相談所 108

　
▼━質問テンプレ (必ず使ってね) ━━━
【1 OSの種類 　 　 　 　 .】 Windows**
【2 Excelのバージョン 　 】 Excel**
【3 VBAが使えるか　 　 .】 はい･いいえ
【4 VBAでの回答の可否】 可･否

▼━関連スレ━━━━━━━━━━━━

Excel VBA 質問スレ Part28
http://toro.2ch.net/test/read.cgi/tech/1359607536/

VBAなんでも質問スレ
http://toro.2ch.net/test/read.cgi/tech/1342087380/

【質問不可】Excel総合相談所スレの雑談・議論スレ3
http://toro.2ch.net/test/read.cgi/bsoft/1354358619/

Access VBA 質問スレ Part1
http://toro.2ch.net/test/read.cgi/tech/1328536426/

VBプログラマ質問スレ（Ver.6.0 まで） part62
http://toro.2ch.net/test/read.cgi/tech/1360914852/

▼━前スレ━━━━━━━━━━━━━

Excel総合相談所 107
http://toro.2ch.net/test/read.cgi/bsoft/1357252928/

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

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

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

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

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


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

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

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

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

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

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

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

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

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

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

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

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

新スレおめ☆（＾▽＾）

いちょつ

>>912

http://www.amazon.co.jp/o/ASIN/B0076ECI5I/ln890k79lcim-22

kore?

アフィリンク貼んな

>>10
こういうのは黙って通報し、

ものすごい勢いで広告・宣伝を報告するスレ 226
http://qb5.2ch.net/test/read.cgi/sec2chd/1360943806/

レス削除

bsoft：ビジネスsoft［レス削除］
http://qb5.2ch.net/test/read.cgi/saku/1338026287/

>>6
指摘が必要かもしれないような内容のテンプレ貼るのってなんなの？

100%完璧ではなくても、利点の方が大きいからじゃね？

公務員使えねぇ
http://togetter.com/li/469017

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

=IF(OR($B2=0,$C2=0),"",($C2-$B2+IF($B2>=$C2,1,0))*24)
のままでは小数点として表示されますが、
（8:50、18:40=9.833333333）
9.50（9時間50分）というふうに表示されるにはどうすればいよいですか？

自分で24掛けてんじゃん

modで小数点部分出して0.6掛けるだけでしょ

>>15
派遣会社？

その表示に意味があるとは思えない
まさに>>14

>>14みたいなのって、小さい会社に行ったらどこでもそういう状況だよね。
零細企業だとVLOOKUP使ったら神扱いされてVBA使ったらもはやエクセルじゃない
物を使っていると認識される。

>>20
給料安くてもそんな会社で働きたいわ

>>20
実際体験した。大体>>14みたいな状況だった。
事務系は俺が頑張って一般的なレベルまで修正したけど、結局会社は潰れた。
会社は営業あってこそなんだよな。
総務系を改善しても知れている。
お前らも、心あたりがあるなら営業さんを助けてあげてくれな。

ヒーローになる夢を見るのは勝手だけど、実際は「ちょっと便利になったね」程度で終わるよ
Excelの使い方が変わった程度で会社の売り上げ倍増とか、現実にはありえないから

とくに零細だと、一緒にゴルフして問屋の社長さんと仲良くなった方が売り上げアップとか、そんな世界だから
パソコンの得意な理系が絶望して3ヶ月で辞める理由はたいていこれ

ま、意外と零細に限らない話だけど

カイゼンしたあとには結局単純作業しか残らない
ぶなしいたけ

他部署助けてあげなよ・・・

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

ピボットテーブルの印刷設定について質問です。


「各印刷ページにアイテムのラベルを繰り返す（2003）」
「各印刷ページに行ラベルを繰り返す」（2010）
にチェックONでもK列以降が印字されないのですが
これを表示する方法や回避策は無いでしょうか。

通常、2ページ目以降の先頭行は
前ページのアイテムと同じであればそれが表示されると思いますが
J列までは表示され、K列以降は表示されないのです。


表示できない場合
その仕様について明言しているサイトや参考になるサイトがありましたら教えて頂けると助かります。


尚、Excel2010については「従来のピボットテーブル レイアウトを使用する」が
ONです。

【1 OSの種類 　 　 　 　 .】 Windows7, 8
【2 Excelのバージョン 　 】 Excel2010, 2013
【3 VBAが使えるか　 　 .】 はい･いいえ
【4 VBAでの回答の可否】 可･否
キャノンのフォントギャラリー FG丸ゴシックCa-L などがエクセルで選択できません。リストボックスに出てこない。
こんな症状の人はいますか？　ワードでは問題なく表示・選択できます。

非対応フォントは、選択すると不都合出るから初めから除外されてるよ
桁揃えを優先するテキストエディタでプロポーショナルフォントが使えないのをはじめに
ソフトによって使えるフォントの種類ってのは限られてることがある

エクセルは罫線ワープロ的に使う人が多いとは言え、あくまで計算ソフトだから印刷や表現の自由度は低い
うちでもワードとエクセルのフォント選択ボックスのフォント数を比べると、ワードの方が80も多いので
どれが無いかまでは面倒で見てないけど、ワードで使えてエクセルで使えないフォントってのは結構あるようだ

PCの入れ替えでOffice2003から2007に切り替わった時の反発(文句)が凄かったな
視覚的に大幅に変わったので使い方を覚えるのが大変だと
正直、Office系(特にExcel)のソフトは機能の20％も使っていない会社が半分以上あると思う

業務簡略化⇒人員削減、他の仕事が増える

こんな考えの人も多いね

> 機能の20％も使っていない会社
これ、実は真逆で2パターンあるんだよね
レベルが低い故に使い方が解らなくて20%も使ってないパターンと
レベルが高い故に、中途半端なExcelのプログラム(マクロ)機能やデータベース的機能では事足りず
専門ソフトに流れてExcelを使わなくなるパターン

俺も一時期は、Excelに関係ないプログラム書くのもVBA、データベースもExcelとピボット、文書作るのもワークシートと
Excelをとことんまで使い切っていたことがあったけど、VB6Proを買い、C#を始め、Accessの使い方覚えて
ワープロ、DTPソフトを使いこなせるようになった今、俺はおそらくExcelの機能の20%も使ってない

VB6とか今じゃ糞の役にもたたんなｗ

だからC#に移ったわけだ

素直にC言語+WIN32API使えば無料で配布も簡単なのに。

で？

>>31
超役に立ってるぜ

いや、メインや不特定多数相手の配布用、ましてや商用がVB6オンリーじゃ話にならないけど
「スクリプトで書こうかな？でもちょっとしたGUIも欲しいし」なんて場面ではVB6様大活躍
今となっては力不足感は否めないが、WSHやバッチよりは遙かに色々出来るわけで、要は適材適所

通ぶってバカにするより、利点が活きる場で上手く使ってやるのが吉

うざ

反論できない自分への反論ほどウザいというか都合の悪いものは無い

>>35
同じ感覚の奴いたw

パッケージ作ってるのでもなきゃ
工数的にVB6は未だに外せないよ


増してExcel全盛な中小企業内SEだったらVBAは主力だったりする

vb.netあんのにvb6とかアホか
vb6の過去の産物があって、それの保守とかならまだわかるけど
新規でvb6はねえわ

ちょっと苦しいね

自分語りいらないから

A列とB列が一致する行をチェックする関数ってどなたか知りませんか？
たとえば下記のような場合に
1行目と2行目のD列に重複のチェックを表示したいのです。
※Excelは2000です。

　 A 　　 B 　　　C　　　D
1　うま　50　100円 　
2　いぬ　50　200円
3　うま　50　300円　　
4　うま　30　300円

>>42
1行目と3行目でした

>>42-43
E1列に
=A1&B1
って入れて下にフィルコピーして
D2に
=COUNTIF($E$1:E1,E2)>0
と入れて下にフィルコピー

重複のところでTRUEが返るから
あとは表示形式なりIF関数なりで好きなチェック記号でも表示させれば良い
E列の表示が邪魔なら列非表示にしてもOK

他にも色々な方法有るけど、そういうのは適材適所の見極めが
自分で出来るようになってからで十分なので、まずは作業列使ってでも
より簡単な式で結果出せる方法を覚えると良い

>>44
ありがとうございます！
うまくいきました。

テンプレ修正しないか？
とりあえず案
>>1からこれを削除。EXCEL VBAスレあればいいだろう。
VBAなんでも質問スレ
http://toro.2ch.net/test/read.cgi/tech/1342087380/
VBプログラマ質問スレ（Ver.6.0 まで） part62
http://toro.2ch.net/test/read.cgi/tech/1360914852/
Access VBA 質問スレ Part1
http://toro.2ch.net/test/read.cgi/tech/1328536426/
>>4
(Excel2007以降では16'384列､1'048'579行扱える)
→(Excel2007以降では16,384列､1,048,579行扱える)

他にももっと削除できると思ったらそうでもなかった。

次スレ立てる間際に指摘するか、自分で立てなければ
今言っても無意味

そっか、残念

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

A1セルに文字列で20130306095430974211という文字を入れてるのですが、
頭から８桁を採ると20130306となり、2013年3月6日というのを示唆するのですが、
これをA2セルに和暦で和暦表示をしたいのですが何か方法がありましたらお願いします。
（計算関数用に一度　別セルを使用してもOKです）
宜しくお願いします。

連投すみません　表記がおかしいですね。和暦で和暦表示・・・(´・ω・｀)

A1セルの文字列を頭から8桁採ってそれをA2セルに日付表記（和暦）できるようにする方法になりますです。

因みに9桁から14桁は時間（00時00分00秒）を示してるのですが
これも別セルで表記可能でしょうか・・

A1セルに文字列：20130306095430974211
A2セルに平成25年3月6日9時54分30秒

>>49-50
LEFT、MID、RIGHTで文字を切り出して整形したら
DATEVALUE、TIMEVALUEでシリアル値に変換し
表示形式かTEXT関数で和暦にしたらいいさ

>>51　どもです、ありがとうございます。
関数で例を表記していただけないでしょうか
かなり複雑になりますでしょうか？

月なら
=MID(A1,5,2)
で、5文字目から2文字の「03」になる

そういう感じで切り出して
=DATEVALUE(年&"/"&月&"/"&日)
って感じに整形してDATEVALUEに渡せばシリアル値を返す

あとは表示形式で和暦だろうとなんだろうと好きなように表示させればいい


これ以上は聞くなよ
>>52の時点で、あれだけ教えたんだから後は自分で調べろと叩かれても
不思議は無いところをサービスしてるんだから

つーか、>>51で解らない奴がVBA少々使えるってマジか？
マクロじゃなくてあえてVBAって表記されてるのは、マクロの記録や実行ではなく
VBA構文でコードを書くことが出来るかって質問なんだが、その上で「少々はい」なの？

>>49
セルの書式設定→表示形式→日付→和暦
セルの関数式
=CONCATENATE(LEFT(A1,4),"/",MID(A1,5,2),"/",MID(A1,7,2))*1

>>50
やっつけ関数式
=CONCATENATE("平成",LEFT(A1,4)-1988,"年",IF(MID(A1,5,1)="0",MID(A1,6,1),MID(A1,5,2)),"月",IF(MID(A1,7,1)="0",MID(A1,8,1)
,MID(A1,7,2)),"日",IF(MID(A1,9,1)="0",MID(A1,10,1),MID(A1,9,2)),"時",MID(A1,11,2),"分",MID(A1,13,2),"秒")

※　↑途中都合で改行していますがコピペする場合繋げてください。
（不細工な式だからコピペしないかもしれないけど）

考えさせる教育ではなく
答えを詰め込む教育の結果が
今の使えない奴ばかりの社会を構築したんだよな

サーセン

では上に挙げた回答例以外で回答してくださーい

>>51と>>53に書かれているようにやったら
41339.41253　と値が出てくる
後は表示形式をユーザー定義で
ggge"年"m"月"d"日 "h"時"m"分"ss"秒"
にすればええやん

>>54 わっすごいｗ一発でなりますた(｀・ω・´)
どうもありがとう御座います。たいへん助かりました。勉強になりますた。

>55　m9^Д^)

さらにすみません、
A1セルに入れた20桁（文字列）なのですが、
見やすいように20130306095430974211を
4桁区切りでスペースを入れたい場合はどうしたらいいでしょうか？
20130306095430974211
2013 0306 0954 3097 4211
ユーザ定義で0000 0000〜 や#### ####〜を指定しても値が変わっていまいます。
（下４桁あたりが0000になってしまう）
VBAなどでないとできないでしょうか？
重ねて宜しくお願い致します。

成り行き見てた他人が49騙って煽って面白がってるだけだろうけど
これ、本物だったらヤバすぎ

頭悪い上に、人間性まで腐ってるとか、どうしようもないもんな

ここIDでないのか、

=TEXT(A1,"#### #### #### #### ####")とかでもダメだね
下5桁が0になる
どうやるんだろう。

Excelは15桁精度だからね
1234567890123456789は
1234567890123450000となり
0.1234567890123456789も
0.123456789012345となる

>>59
ヒント>>54の上の式

15桁精度らしいので2つに分けてみた
=TEXT(LEFT(A1,8),"0000! 0000")&" "&TEXT(RIGHT(A1,12),"0000! 0000! 0000")

なんで不適切な方法をそこまで強行するの？

>64 のやり方でOKみたい　15桁精度ということは一京からは対応できないわけだな。
HDDのバイト単位の計算はだめなのかｗ。

っつか元データに問題が有るだろ；

計測器の吐くデータとか磁気テープに固定長で記録されたデータなんてこんなもんだよ

うちでは測定器の吐くデータを、取り込みプログラムで加工してExcelに渡してるけどね

ﾌﾟｯ（AAｒｙ

悔し紛れはわざわざ書く必要ないのに

なんというか、見えてる世界が狭い奴がいるな

【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 否
join関数のような関数ってありますか？
join("-",1,2,3)
とすると、1-2-3という文字列を返して欲しいのです。

vba使えるなら使ったら良いやん

>>73
VBAのJoin関数のようなワークシート関数ってことか？

文字列を繋ぐだけならCONCATENATE関数があるが
連結文字を指定したり、配列を渡せるものは無い

でもVBA使えるなら、VBAで直接処理するのが嫌でも
アドインでユーザー定義関数を作ればいいだけだな

関数の2段重ねというか入れ子がさっぱりわからんのだが何かコツみたいなことはあるのか？

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

本来のExcelの使い方とは違いますが、下記サイトのように
写真をオートシェイプでトレースしたいのですが、手作業では
かなり大変です。
VBAを使って楽に作業できないでしょうか？

illustratorなど別ソフトではなく、Officeでの写真トレースが目的です。

http://www.geocities.jp/chiquilin_site/data/061212_autoshape3.html
http://www.geocities.jp/chiquilin_site/data/080502_autoshape4.html

>>76
内側の関数の戻り値を外側の関数が引数としてるだけ

>>77
楽にって、どの辺を自動化したいのか知らないが、
パーツ分け部分を自動化したいとかなら、それ出来たら
金取れるソフトが出来上がっちゃう話なので、
そんなに気軽に実現できるものではない

まあVBAで自動化することによる省力化と
それを実現できるVBAスキルを身につける労力とを
天秤に掛けて決めればいいさ

気軽に出来ないなら、勉強してまで実現しようと思わないというなら
諦めればいいし、諦めたくなければ頑張って勉強すればいいし、
その選択は君に任せるよ

株で儲ける→△

物を安く買う→◎
　具体例：amazon

情報収集：アマゾンレビュー



パソコン
http://www.amazon.co.jp/o/ASIN/B007J77ZIC/n890k79lcim-22

Microsoft Office　並行輸入品＝海外正規版
http://amazon.co.jp/o/ASIN/B0076ECI5I/n890k79lcim-22

デジカメ
http://www.amazon.co.jp/o/ASIN/B007RKTT5I/n890k79lcim-22

マウス/
http://www.amazon.co.jp/o/ASIN/B00AAQRNQ8/n890k79lcim-22

エクセル2007で、フォントを同一セル内で様々な大きさにしたくて、わざわざ別枠でカメラ機能で貼り付けました。画面上はいい仕上がりですが、印刷すると文字が巨大化します。何が問題なんでしょう。

>>81
セル内で文字をドラッグで選択してから文字サイズ変えたら同一セル内でも違う大きさの文字に出来るけど。

>>81
WYSIWYGじゃないからあたりまえでは

エクセルをぶっきらぼうに教えてくれる動画・・・ってないすよね・・・

つまり、よくあるエクセル教室みたいな動画って、
どうやら説明くどくて観る気がしないんです。

そうじゃなくて、たんたんとマウスカーソルをさっささっさと動かしてって、
説明は「こーするとこーなって、こーすればこーなるわけです」程度が逆にいいんです。
友達に教えるみたいに。

というか、そんな動画無いと思いますから先に言いますが、誰か作ってみては？
たぶん再生数稼げますよ。
みんなも↑ゆうふうに思っているはずだから。
たぶん金払って買う動画全滅できますw

失礼しました。

>>84
youtubeで「エクセル　関数」で検索して「4分以内」でフィルターかけて1000件以上ヒットするけど。

あなたに必要なのは淡々と説明する動画じゃなくて、自分に必要な情報を相手から持ってきてくれるという環境ちゃうか？
友達相手で淡々と説明できるのは質疑応答がその場で出来るからだと思うけど。動画みたいな一方的な情報で淡々と
説明されて理解できるレベルなら画像と文章だけで十分。

自宅のパソコンにエクセル2010が入ってます。
私は何をすればいいですか？

>>86
まずパンツを脱ぎます

ggrks

>>86
チャーハン作ってくれ

>>85
お願いですから主観を極力排除してもう一度読み直して直さないでもいいですw

>>84
残念！

　１〜２分でさっさと教えてくれる動画あるよ。

じゃあお前らはエクセル完全にできる100％としたらどれぐらいできるんだ

あなた人生100％楽しんでますか？

VBA以外なら50%(ヘルプ見ながらなら90%以上)

VBAのExcel関連機能なら30%(ヘルプ見ながらなら80%以上)
VBAの構文規則や組み込み関数等ならほぼ100%
VBAで外部ライブラリ(COMなりWinAPIなり)を使う話になると
分母がほぼ∞なので、ほぼ0%

EXCEL関数いくつあると思ってんねん
重要度で言えばIF使えるだけで5割いくかもな

>>92
たまにいるよねこういう人。パソコンの機能100%のうちどんぐらいとか。
100%、全部の機能がどういう事かがわからない素人ほどこういう考え方する。

>>90
何が言いたいのか全くわからんのだが。

>>92
業務で必要な関数やマクロさえ知っていれば十分だろ
漢字でいうなら五万も十万も覚える必要無いのと一緒

VBAでゲーム作る人もいればオートシェイプでガンダム書く人もいるしなー
どれだけ極めれば100%なんかなー？

配列数式や少数誤差、正規化を会得し、更にVBAでクラスを作ることもできて
エクセルに関してそこそこ自信があったけど
条件付き書式で斜めの罫線が引けないことを知らなかった。
私の自信はこなごなに砕け散りました。

EXCELより他でやったほうが楽なことまでEXCELでやるのは

以外とテキスト関数とか貧弱なんだよね

関数曖昧だけど参考書でマクロいっちゃっていっぱいいっぱい
気付いたら.speakで歌わせたり下品な言葉しゃべらせたりしてた

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

任意のフォルダ内にあるbook（拡張子がxlsのファイル）から特定の文字列が含まれるセルがあります。
そこから列は10列分、行は入力されている最後の行までのデータをまとめる形で取得したいのですが上手くいきません。
（Array関数で抽出しようにも、3列目〜8列目の文字列が検索で一番最初にヒットしないことがあります）
1列目〜2列目は入力データ的に一番最初にヒットするので、そこで抽出したセルから列は10列、行は入力されている最後までのデータを
取得するようにするにはどうしたら良いのでしょうか？
複数のPCで使用することを想定しているので、ダイアログが出てきてフォルダを選択し、フォルダ内のbookのデータを取得するマクロだと嬉しいです。


生年月日　　氏名　　　　　　　郵便番号　　都道府県　　区市町村　・・・（他、合計8項目）
昭64.03.16　エクセル太郎　　123-4567　　東京都　　　　八丈町
平25.03.16　エクセル宇宙　　123-4567　　東京都　　　　八丈町
　　　　　　　　　　　　　　　　　　　・
　　　　　　　　　　　　　　　　　　　・
大10.03.16　ワード源次郎　　234-5678　　北海道　　　　国後島

こんな感じでデータがありますが、生年月日、氏名、郵便番号、都道府県、区市町村が入力されているセルの場所がbookによって違います。
また、生年月日と氏名はどのbookでも検索すると一番最初にヒットしますが、郵便番号、都道府県、市区町村がbookのよっては2番目とか3番目にヒットしてしまいます。
（取得したいsheet名はsheet1で統一されています）

昭64.03.16

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

エクセルを複数立ち上げたときにウィンドウを連動させずに
横に並べて見たりするようにってできないんでしょうか？

>>104
Array関数とは配列を作る関数ですよ。

>・・・したいのですがうまくいきません。
どの時点でうまくいってないのか他人には全くわかりません。VBAで躓いてるならコード晒してください。何レス使っても構いません（テンプレ参照）

>入力データ的に一番最初ニヒットする
>データを取得する
全て曖昧すぎます。
検索方法だけでもFind、Vlookup、ADO、ForとIfでの繰り返しなど方法は多様です。

>>105
とりあえず今日の日付にしてみただけですｗ

2010で確定申告の作業中にファイルの上書きをしてしまいました...

Aってファイルがもともとあった
→Bを作成、保存する時にAという名前で保存
→もとあったAが上書きされて死亡

この場合Aを上書きする前の状態に戻すことは可能でしょうか？
ちなみに『上書き保存時にバックアップを作成するようにする』機能はオフになっていました...

無理

バックアップ機能ONだったとしてもバックアップされるのはBだからどっちにしろ死亡ですわ。

そういえば確定申告マシーン（皆藤愛子などが出てる奴）なんか買わなくてもエクセルと
税の知識があれば事足りるんか？

>>110
>>111
そうですか...ありがとうございます
頑張ってやり直します

>>112
昔は手書きでやってたんだし青色申告も出来るけど死ぬほどめんどくさいぞ

マクロについて質問です。
excelのシートに入力されているID番号参照して
任意のフォルダに入った、ID番号を含む名前の（画像などの）ファイルを
シートの別行に入力されている属性を参照して
属性別のフォルダに仕分けする、もしくは属性名をファイル名に追加する、
といった一連の動作をexcelのマクロで自動化することは可能でしょうか？

よろしくお願いします。

>>115
可能ですよ
聞く前にやってみた方が早いよ

>>116
ありがとうございます。
マクロについてどこまで可能かどうか分からないので
お聞きしました。調べてやってみます。

>>106
オプションの「他のアプリケーションを無視する」　にチェックを入れるか外す

>>118
それにチェック入れてエクセルファイルを起動しようとすると
「プログラムにコマンドを送信している時に、エラーが発生しました。」となって起動できません」

>>119
初めて聞いたエラーだな。
http://support.microsoft.com/kb/211494/ja
この手順に従ってみて。

>>120
ありがとうございます
Fix it 50392を入れようとすると
「ご使用のオペレーティングシステムまたはアプリケーションのバージョンには
このMicrosoft fix itは適用されません」となってインストール出来ません
おそらくWin8だからですね
諦めたほうが良いでしょうか

>>121
うーん、困ったね。
エクセルとhttp://oooug.jp/を使うとか
（openofficeは無料のエクセル互換ソフト）

あとは思い浮かばない。

Win7にExcel 2013 を入れてみたんですが、ジャンプリストからファイルを選択して起動しようとすると、
常にウィンドウが最大化で起動します。ウィンドウ状態で起動するようにできないんでしょうか？

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

RAND関数ってセルが更新されるごとに、値が変化しますよね
そこで、ある条件に達するまで、自動で更新するようなシステムって出来ますでしょうか？
例えばA5の値が1になるまで、自動更新するといったようなシステムです

できますん

>>125
是非教えてください

124の内容だけでは無理

何をどう自動更新するのか書けよ；

do while n*rnd()=1:loopの部類だな

うまく説明できなくてすみません。

ある条件に達するまで、F9キーを押した時みたいにRANDを変化させ続けるようなものを探してます

>>130
VBA ループ で検索しろ

条件に達するまでループが続く様な恐ろしいモノを教える訳にはいかない

nが条件、int()も忘れずに

randを変化させ続けてどうするの？
初心者は下手に手段を考えるより、最終的な目的を書いて その手段を教えてもらうのがいい

もっと実用型にすれば、
do while n*rnd()=1
　:
if …　then exit do
　:
loop
かな

randを変化させていろいろ計算させて、最終的にあるセルの値を1にすることが目的です。

うん、きみには無理

すごい目的だなｗ

>>136
>いろいろ計算させて

大事な所端折っちゃったw

バカなあなたとちがってパソコンのCPUはとっても高速に計算してくれるので
途中経過をすっ飛ばしたら、いきなり1を入力するのと見分けがつかないですよ

馬の鹿が弱者を攻めまくる図w

ひょっとして「いろいろ」計算した結果が1になるような特定の値を知りたいってだけじゃね？

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

書式の表示で質問です。
ウェブクエリで競馬のタイムを読み込んでるんですが、表示で少し困ってます。
書式設定はユーザー定義の「m:ss.0」で、1:44.3など1分以上のタイムはしっかり表示されるのですが、
1分切るとweb上では「59.1」と表示されるので、Excelだと「24：00.0」と表示が上手くいきません。
説明下手ですが、どうか解決方法ないでしょうか

>>136　昔のExcelにはソルバーってのがあった　いまはしらん

1:44.3はシリアル値、59.1はただの数値と認識されてるんだろ
たとえば1以上の場合はいったんText化した数値に"0:"を付加＆Valueでシリアル値化するのは？

.と:でsplitしてフロートにした方がいいんじゃないのか

「0:59.1」で表示されるようにしたいんですよね

timeがウェブから引っぱって来たテキストとして

if instr(time, ":")=0 then
time = "0:" & time
end if

でいいのでは

VBAは使わない方向でお願いします

=if(iserror(find(A1,":")),":"&A1,A1)
うまくいくかしらんけど

>>149
試してみましたが、1分以上のタイムがおかしくなります

Sub ()

For i = 1 To 20

If Cells(25, 1).Value = 1 Then
Exit For
Else: SendKeys "{F9}"
End If
Next
End Sub

ループにすると止まるので、20回ほどでやってみたのですが、値が1になっても終わりません
どうすればよいでしょうか

>>151
×ループにすると止まる
○ループにすると終わらない
確かRANDは1未満の数じゃなかったか
それに出現する数字のパターンも決まっているはず。65536とおりだっけ？忘れたけ

やるなら、rand関数（ワークシート関数）をrnd（vbaの関数）にして、やると良い
Sub a()
Dim a
For i = 1 To 2000000
a = Int(Rnd() * 100)
If a = 1 Then
Exit For
Else
b = b + 1
End If

Next
MsgBox (b)
End Sub

これで、1%の試行が何回目に出たかって感じ
改良するならbの出てくる行を削除してくれ

>>142
書式"m:ss.0"作業列に
=IF($A1<1,$A1,VALUE("0:"&TEXT($A1,"00.0")))

>>152
Elseのとこに sendkeys"{f9}"を入れて正しく動かすにはどうすればいいですか？
指定回数試行後に1になると止まるのですが、指定回数中に1になっても無視して続行してしまいます。

>>124
【データ】→【What-If分析】→【ゴールシーク】

ゴールシークとも違うだろ

A5を1にして計算させれば最終目的は達成するんだから
それまでのrand計算が全く無意味

100歩譲って、宝くじに当選するまでループ買いするようなデータが欲しいとしたら
ループ回数をrandで決めてからループさせればよいだけのこと

本当にこういったことがしたいのか
Sub xxx()
Do While Range("A5").Value <> 1
Calculate
Loop
End Sub

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

なにがしたいんだ〜？？

私達のような下等生物が、神の意志を理解することは出来ないのです。
そう、できることだけをすればいい…
一言で言うと考えるだけ無駄

誘導されて来ました。よろしくお願いします。

A列に、「テニス」「野球」「ゴルフ」
B列に、「サッカー」「テニス」「ゴルフ」「スキー」

というデータがあり、

C列に、=IF(COUNTIF($A$1:$A$3,B1)=0,B1,"")
という計算式を入れてます。

A列になくて、B列にある競技をC列に表示させる式のつもりなのですが、上手く動作しません。
ここでは、サッカーと、スキーだけをC列に表示させたいです。



C1のセルに=IF(COUNTIF($A$1:$A$3,B1)=0,B1,"")
C2のセルに=IF(COUNTIF($A$1:$A$3,B2)=0,B2,"")
C3のセルに=IF(COUNTIF($A$1:$A$3,B3)=0,B3,"")
C4のセルに=IF(COUNTIF($A$1:$A$3,B4)=0,B4,"")
というデータが入っているのですが、なぜかC1〜C4すべてのセルにC1の値が入ってしまいます・・・
ここでは、「サッカー」が全てのセルに入るという感じです。


ちゃんと、C1にサッカー、C2に空白、C3に空白、C4にスキーが入るようになりませんでしょうか？

うーん、期待通りに動くと思うけど…
どこかに配列数式がまぎれ込んでるとか

>>162
すみません！全部「サッカー」が入ってた状態のまま終了して、エクセル再起動したら
きちんとした値が入っていました。

そこそこ長くエクセル触ってるけど初めての現象です・・・

今もう一度試したのですが、自動で計算されるのでなく、セーブしたタイミングで計算式が反映されました。
自分変な設定いじってますでしょうか？

>>164
・他のシートにおいても、数式や元の値を変えても計算結果がすぐに変わらない
・パソコン再起動して、エクセル新規で開いて、
同じシートを一から作って（メモ帳）それでも同じ症状が出る

なら、自動再計算をオフ（手動）にしているのかもしれない
ttp://pc.nikkeibp.co.jp/article/NPC/20070626/275844/

他のシートでは問題ない、症状が出た後いつの間にか直ったみたい、
というのなら今作ったシートが壊れただけかも。

>>165
ありがとうございます！ピンポイントでした。手動になってました。
ちなみに全くいじった記憶ないので、壊れたってやつですね。初めての現象でした。

壊れたってなんだよ
ただのバグ
「勝手に手動計算」でぐぐってみ

なんだよって思うでしょ？
こわれるんだよ
ファイル送られたのが開けないやら編集できないやら
画面表示がむっちゃくちゃになってでてきたやら今まで出くわしてるから
そういう症状の一環かなとおもっただけさ(´･ω･`)

そんなこたーわかっとるわい。
再計算手動に関しては既出のバグだからファイルの破損とは別問題だって。

うんこの投げ合いやめろやカス

投げ合いじゃねーよ。うんこ投げてんのは片方だろ。
既出のバグをファイル破損として考えるのはおかしいだろ。でっかいウンコなげやがって糞>>170

うんこ：硬くて黒いイメージ、ツンと来る臭い
うんち：やわらかくて茶色いイメージ、芳醇な臭い

大体こんな感じ。

おしっこならかけられてもいいかなって

【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 勉強中
【4 VBAでの回答の可否】 否
例えばa1にタバコという字があるとする。それをVBAでカタカナからひらがなに書き換えようとする
その場合
sub test
dim a as string
a=strconv ("タバコ" ,vbHiragana)
a=valueだっけ？答えをお願いします

> 【4 VBAでの回答の可否】 否
どうせえっちゅうねん

a1.value = aだろ
valueなんて変数宣言されてないし
aにたばこ入ってんのにvalue上書きしてどうすんだよ

Dim 変換前 As String
Dim 変換後 As String

変換前 = Range("A1").Value
変換後 = StrConv(変換前, vbHiragana)
Range("A1").Value = 変換後


短くするなら

Range("A1").Value = StrConv(Range("A1").Value, vbHiragana)

>>177
ロンゲストに書くのなら？

ロンゲストなんて言葉を見たのは、中学の英語の授業以来だわｗ

>>178
こんなもんでいいか？

Sub Longest()
　　Const 対象セルアドレス = "A1"
　　Const 一文字目 = 1
　　Const 切出し文字数 = 1
　　Const カナ文字コード初端 = 12449
　　Const カナ文字コード終端 = 12534
　　Const 文字種違反エラーメッセージ = "全角カタカナ以外の文字が含まれています"
　　Const エラーメッセージタイトル = "Error"
　　
　　Dim 変換前 As String
　　Dim 変換後 As String
　　Dim 文字位置 As Long
　　Dim 文字 As String
　　Dim 確認メッセージ As String
　　
　　変換前 = Range(対象セルアドレス).Value
　　
　　If 変換前 = Empty Then
　　　　MsgBox "A1に値がありません", vbOKOnly, エラーメッセージタイトル
　　　　Exit Sub
　　End If

　　For 文字位置 = 一文字目 To Len(変換前)
　　　　文字 = Mid(変換前, 文字位置, 切出し文字数)
　　　　
　　　　If AscW(文字) < カナ文字コード初端 Then
　　　　　　MsgBox 文字種違反エラーメッセージ, vbOKOnly, エラーメッセージタイトル
　　　　　　Exit Sub
　　　　End If
　　　　If AscW(文字) > カナ文字コード終端 Then
　　　　　　MsgBox 文字種違反エラーメッセージ, vbOKOnly, エラーメッセージタイトル
　　　　　　Exit Sub
　　　　End If
　　Next
　　
　　変換後 = StrConv(変換前, vbHiragana)
　　
　　確認メッセージ = _
　　　　"「" & 変換前 & "」" & vbCrLf & _
　　　　"を" & vbCrLf & _
　　　　"「" & 変換後 & "」" & vbCrLf & _
　　　　"に変換します｡" & vbCrLf & _
　　　　 vbCrLf & _
　　　　"よろしいですか？"
　　
　　If MsgBox(確認メッセージ, vbOKCancel, "確認") = vbCancel Then
　　　　MsgBox "キャンセルされました", vbOKOnly, "キャンセル"
　　　　Exit Sub
　　End If
　　
　　Range(対象セルアドレス).Value = 変換後
　　
　　MsgBox "変換しました", vbOKOnly, "変換完了"
End Sub

ステートメント1行につきコメントを10行ずつぐらい書けばロンゲストと言えるレベルになるんでないかな

長く書こうと思えばいくらでも長く出来るからなあ

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

ユーザーフォームのリストボックスで Enabled ＝False としても淡色表示されません
解決策を教えてください
ちなみに Enabled は実行時任意に切り替えます

そもそもEnabled = Falseは淡色表示しろって命令じゃないし

Enabledはイベント反応するかしないかという設定であり
コントロールによってはそれが視覚的に解るように
無効化されてる時に淡色表示されるものもあるってだけの話

本来の機能（イベント反応の有無）が動作しないならおかしいが
無効化時の淡色表示はオマケ機能で、全てのコントロールに備わっているわけではないので
オマケ機能の無いものでもそれをやりたければ、自前でやればいいだけの話

>>184
色はいちいち自分で変えないとだめ

Private Sub 有効()
　　ListBox1.Enabled = True
　　ListBox1.BackColor = &HFFFFFF
End Sub

Private Sub 無効()
　　ListBox1.Enabled = False
　　ListBox1.BackColor = &HCCCCCC
End Sub

>>185-186
すみません解決しました

色を変えるのはまっさきにやっていたのですが
描画し直すようで選択行の見た目が失われてしまいコレが解決できず
色違いの二つのリストボックスを切り替えていたのですが、、、

もう一度挙動を確認していたら選択行を一度ずらせばよいことがわかりました

板を汚して申し訳ありません

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

フォルダ名が「読み込み用フォルダ」に入っている複数のbook（book名はさまざま）から
データを読み込んでコピペするマクロの組み方を教えてください

・フォルダ名は「読み込み用フォルダ」
・book名はさまざま（1234.xls、abcd.xls、あおいえお.xlsなど）
・sheet名は「sheet1」
・読み込みたいデータ（セルの範囲）はセル内に「読み込み開始原点」という文字列が入力されているセルを含めて7列分と
　行は文字や数値が入力されている最後の行まで
・これらを「読み込み用フォルダ」内に入っているbook名「データ集計君」のsheet名「3月度集計」に積み重ねる（積み下げる？）ようにコピペ

といった感じでお願いします
若しくは、読み込むフォルダを使用者が選ぶようにしたいです

>>188
で、やりたいことは解ったが、VBA多少使えるなら、何処まで作って何で躓いてるのかを書いてくれないと

因みに、特定フォルダ内のブックを順次処理していくならDir巻数とDo...Loop
「データ集計君」も同じフォルダに入ってるならIf...Thenで除外
範囲取得は左上はFindメソッドで、右下はUsedRangeやEndプロパティから取得すれば良し
データのコピペ積み下げの起点も、UsedRangeかEndプロパティから取得できる
読込フォルダの任意選択は「Browse For Folder VBA」でググれ

それ以外で解らないところあるなら、作ったところまでのコード貼るかブックうpして再質問どうぞ

【1 OSの種類.】 WindowsXP
【2 Excelのバージョン】 Excel2007
【3 VBAが使えるか.】いいえ
【4 VBAでの回答の可否】 否
助けてください。
データの入力規則で「1.05で割り切れる数字のみ許可」するにはどうしたらよいでしょうか？
要は外税と内税を判別できるようにしたいのです。
なにとぞよろしくお願いします。

> 「1.05で割り切れる数字のみ許可」
は出来るけど、それでは
> 外税と内税を判別
は出来ないぞ

消費税計算は端数切り捨てだってことを忘れるなよ

金額だけじゃ無理だね

まあ税抜き価格が、端数が出ない20円単位という限定条件下でなら可能だけど

>>191
税務署に払う時は切り捨てだけど、店で払う消費税は四捨五入だったり切り上げだったり色々
切り上げれば店がどんどん儲かる仕組み

windowsXp
Excel2003


=INT((33.8-INT(33.8))*75)で答えが60になると思うのですが
59になってしまいます
どうしてせしょうか？

内部的に59.999999999??くらいになってるんだろうな、多分

>>191,>>192
コメありがとうございますm(_ _)m
完璧にはできないんですね。
>>193さん、よければその方法を教えてもらえないでしょうか？
よろしくお願いします。

>>193
無理
420円の場合どうなるよ

考えなくてもわかる　1.05で割り切れる外税の価格はないとでも思ってるのか

>>194
店でも、切上げどころか、四捨五入も違法だけど？

許されるのは、税抜き99円、税込103円の商品2つで
206円ではなく207円貰う方式
99*2=198円
198*0.05=9.9円→切捨て9円
198+9=207円

こういう合算はOKだけど
単品にしても合計にしても、端数は切捨てしか認められない

もちろん、違法だろうと認められなかろうと、
のうのうとそれをやってる店もあるにはあるけどね

>>200
知識自慢も結構だけど実際にそういう店が存在する以上は
それに対応しとかないと計算が合わなくなるんでね

┐(´ー｀)┌

切捨てだろうが四捨五入だろうが、1円程度の誤差にゴタゴタ言うなや貧乏人ども！

一番お金持ってる銀行が一番1円にうるさいんだよ

期間中は仮受・仮払消費税で仕訳して、期末に受取・支払消費税に振り替えてるのが現状。
たった1円でも合わすのが書類、、。 orz
スレ違いですた。

銀行のプログラムを書き換えて　円未満の端数を自分の口座に集めて大儲けするショートショートがあった

なにその攻殻機動隊

攻殻より前からあったネタだけどね
最初はどこか知らん

一番古いかは知らんけど星新一がそのネタ書いてる

俺が読んだのは小松左京

うざ

>>194>>200
課税標準額の算定は切り捨て
日常的な消費税の計算はなんでもいい（切り捨て切り上げ四捨五入五捨六入）。
>>203
誤差というより、法律の話だからね。
税務調査でしょーもないことで指摘受けるのは鬱陶しいんだよ、ものすごくね。

>>206
それはドイツだっけな。実際にあった話しらしい。
それがバレたのは口座の残高があまりに大きかったとか・・・資料が出てこない

>>212
残念、ハズレ

ttp://www.mof.go.jp/tax_policy/tax_reform/outline/fy2004/sougakuhyoji/a_001.htm#7

> 端数をどのように処理 (切捨て、切上げ、四捨五入など)して「税込価格」を設定するかは、
> それぞれの事業者のご判断によることとなります。

端数は自由にしていいって財務省様が言ってるんだけどなあ

逆に、四捨五入が違法である根拠を示してくれないか？ >>200あたり

消費税じゃないけど、財務省に問い合わせしてまで確認した通りのことやってたら
追徴課税くらった俺が来ましたよ。

そりゃ財務省に聞いてもな。税務署に聞かないと。

そうなんだよね
財務省は税務署の上だけど、見解が違うことあるし
現場では税務署に従わないとな

　
はい、ここでのこの話題は終了

以後はこちらへ

【質問不可】Excel総合相談所スレの雑談・議論スレ3
http://toro.2ch.net/test/read.cgi/bsoft/1354358619/

移動せずにここでこれ以上消費税端数の話する奴は、悔しさ炸裂の負け犬と認定する
　

一瞬、間違って他のスレを開いたかと思っちゃった。

で、質問してもいいですか？

だめっ

じゃ、出直します・・・

あのー、質問してもいいですか？

きかせてみい

はーい

Excel10を使ってて、新規のブックを保存するときのフォルダが
C:\Program Files\Microsoft Office\Office14\XLSTARTになってます。
これを別のフォルダに指定できますか？

>>226
ファイル→オプション→保存→既定のファイルの場所

>>227
既定のファイルの場所(I)：D\Excel　にしてるけど、XLSTARTなんですよ・・・

>>221
テンプレートとか独自マクロとか、あるいはアドインみたいな、
ようはExcelを起動するときに必ず読み込むような類のものが働いて、
XLSTARTから何か読み込んでるあるいはそちらに書きかえられてるとかない？

>>228
その設定で間違いないので、>>229に思い当たるところが無く
Windows再起動してExcel起ち上げ直してもダメならMSにバグ報告どうぞ

>>226
ファイル名を指定して保存でフォルダ選べない？

>>229-230
テンプレートは使ってないです。
マクロは、C:\Documents and Settings\momoka\Application Data\Microsoft\Excel\XLSTART\PERSONAL.XLS があります。
アドインは、\Office14\Library\Analysis\ANALY32.XLL、\Office14\Library\Analysis\ATPVBAEN.XLAM の2つです。
どれも影響しないような・・・

>>231
選べますが、再起動するとXLSTARTに戻ります。

>>232
そもそもOfficeをインスコした直後は(マイ)ドキュメントが初期フォルダなんだから、
何かしら設定を変える要因があるはず

俺もまずはマクロかアドインを疑う
その2つを一時的に別フォルダに移動して確認してみてほしい

初歩的な質問ですいません(´･ω･)

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

日付に関する質問です
2013年1月1日を　201311　と数字のまま入力して2013/01/01と表示させたいのですが
セルの表示形式でユーザー定義をどのように定義すれば可能でしょうか？
yyyy/mm/ddだとエクセルの数値管理で2451/となってしまいます
####"/"##"/"##でも0000"/"00"/"00でもダメです
2013/1/1ではなく一桁の時は0をつけたいのです
恐ろしく初歩的だと思うのですがググっても見つかりませんでした
どなたか救いの手をお願いします('A`)

>>234　俺なら　1/1と入力する。書式は一番上

>>234
2013111
だと、
2013/1/11
か
2013/11/1
かわからない。無理。

訂正　1/1で　yyyy/mm/dd

無理だよ　2,013年１月１日なら　せめて20130101と入力しないと

>>238
年に三桁区切りのカンマはつけなくていいよ
それは会計の時の表記方法

>>236
ですよね
テンパっててアレでしたが冷静に考えてみると当たり前ですね('A`)

>>237
当年のはそれでいけますね

やはり面倒でも0を打つべきか(´･ω･)
ありがとうございました

変換したら勝手にコンマつく入力ソフトもあるから

なぜスラッシュを打たないのか；

>>241
そんな時はF10で変換するといいよ。windowsの場合ね。
他は良く知らない。
でないと指摘されてカッコ悪い思いをすることになる。
>>242
最初に作業量を減らしておけば
作業の効率化だけじゃなく、入力ミスの軽減にもつながる。

>>239　IMEが勝手に変換しただけー

41275って入れればいいよ

>>221>>232
その症状に遭遇したことはないからなんともいえんけど、
PERSONAL.XLS関連で

＞マクロの自動記録で保存先を[個人用マクロブック]に指定すると作成されます。
http://www.eurus.dti.ne.jp/yoneyama/Excel/vba/vba_personal.html

ってあったからこの辺過去にいじった覚えはない？作成先を変更したとか。
アドインのその２つはたしかに関係はないと思う。
あるいはマイドキュメントをExcelとは関係なく、手動でどっか別のとこに
移動させたのが影響したとか…ないか。

どうしようもなかったら再インストールか修復インストール（設定の初期化）あたりの方向へ。
これがもし会社ので自分であまりいじれないなら、
会社のエンジニアに聞いたほうがいいんだけどｗ

office2013にしたんだけどエクセル不安定すぎませんか？
家のPCでも職場のPCでも両方フリーズしまくります。
セル内に日本語入力しようとした瞬間落ちることが多いような気がする
ちなみに家はofficeIME、職場はgoogle日本語入力、OSはどちらもwin7。
仕事にならないんで2010使ってるけど、
ファイルクリックすると2013が立ち上がるからめんどい。

メーカーに相談や報告すべき事と
掲示板で質問すべき事の区別が付かない人が最近増えたなぁ、っと

メーカーとは？
ちなみに、マイクロソフトはメーカーではありません。

エクセル仕様バグのメモ(Hishidama's Excel bug Memo): http://www.ne.jp/asahi/hishidama/home/tech/excel/sbug.html
ひどい話です！: http://aoki2.si.gunma-u.ac.jp/Hanasi/excel/

>>249
m9(^Д^)ﾌﾟｷﾞｬｰ

>>249
そーいうのは、どうでもいいわ。

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

>>248の「メーカー」とは何を指してますか？

>>253
マイクロソフトでは無いでしょうか

マイクロソフトはソフトウェア会社なのでメーカーではありません。

そんな言葉遊びの悔し紛れ的難癖付けは要らない

つーか、言葉遊びにもなってない

本人は痛いところを突いたつもりなのかもしれないけど
makerとは
製造者だけではなく
製作者をも指す用語なので
物質的な物を製造しなくても
何かを製作していればメーカーなんですよ
ソフトウェア以外では創作なんかもmakeだしね
有名所では、ムービーメーカーなんかも物質以外のものを作る時にmakerが使われる例だ

中学くらいだと、makeは小さい「物」を作り、buildは大きい「物」を作る時に使うとか教えるから
「大きさの概念のある物質的な物」を作る時にしか使わない単語だと勘違いしてる人も居るようだが
それは一面だけであって、どちらも物質的なもの以外にも使われる単語だからな

揚げ足取ったつもりが、的外れすぎて恥の上塗りした形になったな

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

日付表示の位置揃えですが、0や複数セル(他セル)やVBAを使わずに、
日付を入力したセルそのものにyyyy/m/d形式で位置揃えをしたい。

■2013/10/10　(位置基準)
○2013/. 3/. 5　これがやりたい (コンマは2ch上での位置揃えに使っただけなので無視して下さい)
×2013/03/05　0を使うのはNG
×2013/ 3/ 5　 スペースだとPフォントで位置が揃わないし、VBAか別セル使わないと
　　　　　　　　　　月や日が1桁か否かで自動切り替えも出来ないようなのでNG
×2013/3/5　　 位置が揃わないので当然NG

0を表示するようにした上で逐一0を背景と同色にすれば見た目は揃うし、VBA使えばそれの自動化も出来ますが
入力に伴って逐一何らかの作業が必要になるものやVBA使う方法、年月日をそれぞれ別セルに表示して、
列幅調整で繋がってるように見せかけるなど以外の方法でお願いします。

回答して頂いてから後出しで駄目出しするのも失礼なので、なるべく細かく書こうとアレ駄目コレ駄目とちょっと小難しくなりましたが、
とにかく、VBA無しで、入力したセルそのものに、入力したらすぐに位置揃えされた日付が表示されればOKです。

宜しくお願いします。

無理じゃね
先頭にアポストロフィ付けて入力すればいんじゃね

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

どなたか心優しい方お教えください。
左から「目標台数・実績・目標台数との差・達成率・順位」という表を作ってあります。
この表をから別枠で５位 との台数差を表示させるにはどうすればよいでしょうか？
ちなみに目標台数と実績を入力すればその他の項目は更新されるようになっております。

よろしくお願いします。

>>260
=実績-INDEX(実績範囲,MATCH(5,順位範囲,FALSE))

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

目標台数はそれぞればらばらで、順位は達成率で付けてあります。
その上で「達成率で５位以内に入るには現状であと何台足りないか」を求めたいのですがどうもうまくいきません。

説明が下手で申し訳ありませんがよろしくお願いします。

>>261
261さんのを基にしてできました！
ありがとうございました！

＞makerとは
＞製造者だけではなく
＞製作者をも指す用語なので
＞物質的な物を製造しなくても
＞何かを製作していればメーカーなんですよ
＞ソフトウェア以外では創作なんかもmakeだしね

これらが正しければ、商法を改正しなければなりませんねｗ

あのさ、法律上の用語定義って特殊なの知らないの？
弁護士すら得意分野以外はあんちょこ無いと混乱するくらいにね

法律上でこう使われてるからそれが正しいとか、どんだけもの知らないんだって話になるぞw

で、マイクロソフトはメーカーなの？

ソフトウェアメーカーだけどあの流れではMSを出すのは明らかにおかしい

>>266
メーカーだよ
商社もメーカー、農家もメーカー、公務員だってメーカーだ

中学生が授業で習ったことを誰かに話したくて
さも尤もらしく書いたってとこだなｗ

春だね〜

ほんと>>265みたいに恥の上塗りする奴が現れると春を感じる

自演したり他人に成りすましたり、悔しさ炸裂だなw

ほんとどうでもいいわ。日常会話での日本語なんていい加減なもんだろ。
メーカーに相談すべきことと掲示板に・・・の二択ならだれでもここでいうメーカー=マイクロソフトな事ぐらいわかるだろ。
「メーカー」という言葉の正しい意味なんて誰も求めてねーよ。外来語なんていい加減な使われかたしてるの多いだろ。

>>258
結論から言えば無理だった。そちらで書いてるような方法しかない。
＞月や日が1桁か否かで自動切り替えも出来ないようなので
書式設定ではこれができん。

書式設定でユーザー定義
月1桁　日1桁の場合　yyyy/_0m/_0d
月1桁　日2桁の場合　yyyy/_0m/d
月2桁　日2桁の場合　yyyy/m/d
これをVBAででも関数ででも？振り分けて適用させる、俺のちっこい脳みそではここまでだ…。

ttp://www.relief.jp/itnote/archives/001825.php
ttp://www.geocities.jp/chiquilin_site/data/080725_date_format.html

>>273追記

月2桁　日1桁の場合　yyyy/m/_0d

抜けてたスマソ

なら条件付き書式でいいじゃん

>>275
あれいじったけどフォント、色、罫線、背景色ぐらいしか変えられない
条件にしたがって文字の色を変えるとかそういう用途の奴

>>276
http://www11.plala.or.jp/koma_Excel/contents8/mame8105/mame810501.html

新しいエクセルだといけたような

>>277
そうかできるのか
じゃあ>>253にアップデートしたらいいよ！ってレスすればいい

レス番まちがえた>>258だった

での」2007以降はUI改悪というデメリットがついて回るから
安易にアップデートを勧めるわけにもいかないんだよな

2007はしらんけど2010なら乗り換えるべき

いまだに2003を使ってるやつって、マトモな食事すら取れない貧乏人かよｗｗｗ

2013だと複数ファイルを開くと別ウィンドウで開くのやだな

>>282
ヒント：リボン 使いにくい@Google

新しいモノに慣れようとしない、古いモノが好きな人間って多いもんな。俺は真逆だが。
多少不便しても新しいモノが好き。大抵すぐ慣れるし。

エクセルの文字入力でカタカナだけが文字間隔が異常に
空いてしまい困ってます。なんでこうなっちゃたのか。。。？

>>286
http://toro.2ch.net/test/read.cgi/bsoft/1354358619/80-81

すいません
どなたかお時間ありましたら教えてください。

A列 B列 C列
ABC　　 123DFG
BCD 2345ABC
CDE 3456BCD
DFG 45678CDF

上記のような状態で
B列にA列の文字列を含む
C列のセルを隣のB列に表示する方法はありますでしょうか？
つまり下記のようにしたいのです。

A列 B列 C列
ABC 2345ABC 123DFG
BCD 3456BCD 2345ABC
CDE 45678CDF 3456BCD
DFG 123DFG 45678CDF

A列 　B列 　C列
ABC　　 　　123DFG
BCD 　　　　2345ABC
CDE 　　　　3456BCD
DFG 　　　　45678CDF

↓こうしたい

A列 　　 B列 　　　　　C列
ABC 　　2345ABC 　　123DFG
BCD 　　3456BCD 　　2345ABC
CDE 　　45678CDF 　 3456BCD
DFG 　　123DFG 　 　45678CDF

B1に「＝C2」以下コピーでいいんじゃね？

>>290
多分Ａ列の文字を含む文字列をＣ列から抽出してＢ列に出すということだとおもうが、45678CDFがちょっと違うしなぁ

>>291
すいませんタイプミスです45678CDEです

>>291
さすがにそこは入力ミスじゃないの
抽出する方法難しくなりすぎる

A列のCDEがCDFの間違い、じゃないのか・・・うーん

>>288
　　　Ａ　　　　　Ｂ　　　　Ｃ
１|　A列　　　B列　　　C列
２|　　　　　　　　　　　該当無し
３|　ABC　　　　　　　123DFG
４|　BCD　　　　　　　2345ABC
５|　CDE　　　　　　　3456BCD
６|　DFG　　　　　　　45678CDF

って感じにしたら、2行目を非表示にして、B3に
=INDEX($C$2:$C$6,MIN(IF(ISERROR(FIND(A3,$C$2:$C$6)),"",ROW($C$2:$C$6)-1)))
って入力したらCtrl+Shift+Enterで確定
式が { } で囲われたらOKで、あとは下方向にフィルコピー

タイプミスのところをそのままなら、B列は
　2345ABC
　3456BCD
　該当無し
　123DFG
となり、タイプミス直せば
　2345ABC
　3456BCD
　45678CDE
　123DFG
となるはず

でもその例のように「A列 ： C列の末尾3文字」が一致する規則性があるなら
D列にRIGHT関数で末尾3文字切り出して、INDEX&MATCHでやった方がいいと思うけど

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

2行目の文字位置によって、2列のセルに色をつけるマクロを書いてますが、
行き詰っています・・・

下記のrxは、5、7、9、11、13、15、17、19・・・と2つ置きに増やしていきます。
このとき、rxに対してciの値を0〜5に置き換えたいのですが、
どんな式にすればいいでしょうか？

　rx　　ci
　 5　　 0
　 7　　 1
　 9　　 2
　11　　3
　13　　4
　15　　5
　17　　0
　19　　1
　 ・　　 ・
　 ・　　 ・
　 ・　　 ・

Sub 着色()
Dim c(5) As Long, rx As Long, ci As Long
　c(0) = 16764159
　c(1) = 10092543
　c(2) = 16777164
　c(3) = 13421823
　c(4) = 13434828
　c(5) = 16772300
　rx = Range("XFD2").End(xlToLeft).Column
　ci = ???
　Columns(rx).Resize(, 2).Offset(, 2).Interior.Color = c(ci)
End Sub

>>297
rxの値を利用してciを出せってことでいいんだよね？

ci = (rx - 5) / 2 mod 6

ではどう？

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

x Dim c(5)
o Dim c(6)

すんません、297ですが別の質問です。

下記のrxが、5、7、9、11、13、15、17、19・・・と2つ置きに増えていくとき、
kiの値を5つ置きのアルファベットに換えるには、どうすればいいですか？

　rx　　ki
　 5　　 E
　 7　　 J
　 9　　 O
　11　　T
　13　　Y
　15　　AD
　17　　AI
　19　　AN
　 ・　　 ・
　 ・　　 ・
　 ・　　 ・

>>301
https://friendpaste.com/4AnRk0kR6gEaWlXn6f7GcH
こんなんで変換できるかもしれない

A列
a+aa
b+aaa
C+aaaa
d

すごく初歩的っぽい質問で恐縮なんですが
上記のようになっていて+から後ろを削除してB列に表示し
+が無いセルはそのままB列に表示したいのですがどうすればできるでしょうか？
ネットですぐに出てくる=LEFT(A1,FIND("+",A1)-1)だと
B列の4行目のdのところがVALUE!になってしまい困っています。

+が無いなら足せばいい
=LEFT(A1,FIND("+",A1&"+")-1)

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

　　A　　B
1　○　　1
2　　　　 2
3　　　　 3
4　　　　 4
5　○　　1
6　　　　 2

というように、A列に特定の文字列が出現した時に
B列のカウントアップをリセットするにはどうすれば良いでしょうか

B1=1
B2=IF(A2="○",1,B1+1)

>>306
B2へ
=IF(A2="〇",1,B1+1)
それ以降コピペで

やっぱりPCじゃないと遅レスになっちゃうなorz

>>307-308
即レスありがとうございます。十分早いよ！

3月　　　4月　　　5月
AA　　　 EE　　　 .I I
BB　　　 FF　　　 JJ
CC　　　.GG　　　KK
DD　　　 HH　　　.LL

こういう表にしたいけど、DDからEEなど連続したデータが別の列へ折り返す形の時って
非表示にした列や、別のシートにデータ自体を保持させるのがセオリーですか？
他にスマートなやり方などはありますか？

>>302
ありがとうございます。
中身はよく分かりませんが、1〜5000の数字をアルファベットに
置き換えてたので、rxの値からkiの値を出す式を考えました。

Functionのiをkiに変え、

ki = (rx - 5) * 2.5 + 5
MsgBox convert(ki)

これでいけるかな？と思ったのに、
┌──────────────
│コンパイルエラー
│ByRef 引数の型が一致しません
└──────────────
というメッセージが出てしまいます。
ググってみましたが、よくわかりません・・・ orz

>>311
セオリーが云々かんぬんいうなら連続したデータを
他のシートで再利用するかとかそういうところも考えて作ればいいが
とりあえず書きこみ文にはそこまで内容がないのでわからん。

自分だけが使うファイルなら、自分がやりやすいように作ればいいのでは。

それから、302のサイトだと/の向きが逆になってる記号があり、
コピペすると\になります。

num = (i - 1) \ 26

これは、どういう意味でしょうか？

>>301
>>312の内容は飛ばして>>301に対してレス。

これの一番上にでてるRange(X & "1").Column使う奴を
応用したらいける…か？

http://okwave.jp/qa/q2319487.html

>>314
整数商

>>315-316
ありがとうございます。
すみません、明日早く出掛けるので
またあとで来ます。

>>301
ごめん>>315は間違いだった。読み飛ばしてくれ。

あくまでkiがExcelの列番号としてのアルファベットと同じか
同じ並びをしたものを扱ってるという前提でだけど、
こっちもいいんじゃないの。
http://www.relief.jp/itnote/archives/003478.php

ここのコードに
Sub test()
Dim a As Long
a = 3
MsgBox (ColNum2Txt(a))
End Sub

追加で結果確認は出来た。

>>312は…どこの何を変えたか間違いなく変えたのか
わからなかったけども、どっかで型間違えてるんでしょ。
string型にlong型ぶちこんだとかで。

追記。「Excel vba column アルファベット」でググッた。

>>313
レスありがとう。手動で入力した物を扱うのであればいいんですが
関数で自動入力させている場合にDDからEEにデータを持っていくにはどうしたら良いのかなと
例えば>>311のような月別の表で
A列「日付」C列「日数」F列「該当文字列」を入力し、文字列があった場合日数を1に戻す場合

　=IF(F3="該当文字列",1,IF(C33="",IF(C32="",IF(C31="",C30+1,"C31+1"),C32+1),C33+1))

これで日付が31日までない場合を回避して、翌月へ日数を渡しています
大変長ったらしく分かりにくいため、もうちょっとシンプルに管理する方法はないかと思った次第です

>>320
例の中で、3月中にDDの出現する位置はランダムなの？毎月末固定？最高値？月の日数そのまま？それとも？
それを指定範囲の中で検索する関数を作って、あるいは直接参照でもいいので表の一番下に置く。

例にのるなら、3月の表の中でDDを検索して表示する関数をC35なりC40なりに置いとく。
手間が惜しくないなら直接C35にDDの値を書きこんでもいいし、「=C10」とか書いてもいい。
毎回書かなきゃならなくなるけど。
4月の表の冒頭ではそこを参照する、それで最後の日がずれてもいける。
月が変わっても行番号固定だから計算式の流用もできるはず。

こういうのではだめ？

>>320
追加。

＞A列「日付」C列「日数」F列「該当文字列」を入力し、文字列があった場合日数を1に戻す場合

該当文字列が1個でもあったら、必ず次の月は1から始まるのか、あった日の次の日から
1になるのかその月の中では5ぐらいまでは進むのか、該当文字列が複数あったらどうなるのか、とか
そういう条件もよくわからんかった。
そこをうまく関数に落とし込んで、3月の表の一番最後に4月への引継ぎとなる値を表示させれば
いいんじゃないのと思った。

>>321-322
>>321の例だと最後の数値だけをどこかに保持するという事ですね
やりたいことは要するにこんな感じです
ttp://www.dotup.org/uploda/www.dotup.org4084185.jpg

頂いたヒントを元に
　=IF(M3="文字列",1,INDIRECT("C"&MATCH(MAX(C:C),C:C))+1)
という形で少し分かりやすいものに出来ました。長さはほとんど変わりませんがｗ
なかなかスマートにするのは難しいですね
ありがとうございました。

>>323
いやいやスマートじゃないですかー

行を挿入したときに、セルに書いてある式も同じように
挿入してほしいんだけど どう設定したらいいの？

コピー

テーブルつかえば　行挿入で自動的に式も入る

>>325
テーブルなら数式は自動で入るけどね。

excel2013で複数ファイルを開く時に同じウィンドウで開く方法ないかな？

ないんだよねこれが。
アップデートに期待するしかない。

win8のアップデートとセットでないと無理そう
大不評で開発トップが飛ばされたから可能性はゼロじゃないかも、くらいのレベルだけど

Excel2010について質問させてください
入力用シートと出力用シートがあり、
出力用シートの各セルは入力用シートの各セルに対する参照になっています
この度、出力用シートの一部を別ブックに切り出す必要が生じたんですが
別ブックにコピーされた出力用シートの各セルは元ブックの入力用シートへの
参照になっています
元ブックが削除されると別ブックの各セルは#REFとなります
別ブック作成時に参照から実値に変換する方法を教えて下さい
よろしくお願いします

>>332
値コピー

入力シートも一緒にコピーするか
そもそも新ブックに値を貼り付ければいい

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

Eには日付が入り、Dにはその日付より何日後という数値を入れたいですが、
セルDを　=E+14　とした場合、
例 Eが1月1日の場合、Dは1月15日となる
なんですが、
Eが空白の場合は0と表示したいです。

>>335
d1=if(e1="",0,e1+14)

>>335
=IF(E="",0,E+14)

>>333,334
シートをコピーしてから各セルの値コピーでできました
ありがとうございます

値貼り付けならあるけど値コピーってあった？

>>339　おまえアスペってよくいわれるだろ

いま初めてですがその根拠は何ですか？

字面どおりにしか読めない奴っているんだなぁ

>>339
スマン、値コピーじゃなくて値の貼り付けだったわ

>>340
ネット弁慶とか言われる前にやめとけ

よほど効いたのか　しつこい

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

条件付き書式でA1またはB1と同じ値を入力すると文字を赤くする、という動作がしたいんです。
セルの値が等しいで別々にやればできるのは分かっているのですが、まとめてやる方法はないんでしょうか？

>>346
OR（1つ目の条件、二つ目の条件）でいいんじゃね？

=OR(C1=A1,C1=B1)

>>347-348
=OR($A$1,$B$1) としていたのですが、うまくいきませんでした。
348さんの式だとC1だけに適応されませんか？　結構広い範囲に適応させたいんですが・・・

あ、解決しました。なるほど、こうやるのか……。
お二方友、ありがとうございました。

>>329です。

>>330-331
ありがとうございます。
マジで使いにくいよexcel2013

2013って常に「他のアプリケーションを無視する」にチェックが入った状態なんですか？

それとは別で、Win8のUIポリシーにも関連して1ブック1ウィンドウになった。変更はできない。
マクロ使って、裏で作業用ブック開いておくとか無理になった（visibleいじるとかすればいけないことはないけど）。

http://office.microsoft.com/ja-jp/excel-help/HA102809308.aspx

20253
55872
15756

この数字に一括3000プラスとして

23253
58872
18756

のように変えたい場合どうすればいいのでしょうか？

>>354
=A1+3000
みたいなセルを作って一括選択でペーストして
計算結果をコピーして値をペースト

どっかのセルに3000って入力したらコピーして
形式選択貼り付けで加算した方が手順少なくて楽だよ

3000を入力するのは、加算対象セルの数に関係なく1セルだけでOKだし

>>356
ふおおおお
加算貼り付けなんて初めて知った
なんだこれ便利すぎる

こういうことやる時は激しく便利なんだけど
こういうことをやる事がそう多くないのが悲しいところなんだよね
加算貼り付けは、出来る子なのに出番が少ない

値の正負を反転するのに-1を乗算貼付けするのはよく使う

>>355-356
ありがとうございました！
本当に便利ですね！

できました。

計算しながら貼り付けは、セルを1個消費するのがなんだかスマートじゃないんだよなあ
使い終わったら消す作業が空しい

シート1に、

　A　　　B　　　C　
日付　曜日　件数

のデータがあります。

シート2に曜日ごとの集計をとるため

　A　　　B　　　C　
曜日　件数　割合

があります。

件数を自動で表示させる為の、計算式を教えて頂けますでしょうか。
お願い致します。

>>362
件数はCOUNTIF
割合は件数/SUM(件数範囲)

weekdayとsumifとかの話じゃねーの

>>363
COUNTIFだと項目の数自体を数える事にならないか？
件数が10とか5とかでの値でその数字をまとめたいのかと思ったが

>>362
上の想定でいいなら
シート2の件数の所に　=SUMIF(Sheet1!B2:B31,"月",Sheet1!C2:C31)
割合の所に　=B2/SUM(B2:B8)
といった具合。もちろん割合が百分率なら*100な。
曜日も文字列じゃなく数値で扱った方が何かと楽だが。

↑ありがとうございます。

COUNTIFの数式が知りたいのです。

再度、お願い致します。

>>366
上の>>362の場合COUNTIFは必要無いでしょう

みなさんありがとうございます。

365さんのやり方で作れました！

お世話になりました！

ちなみにシート2で曜日を縦並びに集計する場合、範囲指定に$（セルの固定）が式に必要
なんだが、余計なお世話ですね

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

表示形式でユーザー定義「####"Mbps"」表記にしているところを
(1)入力された数値が1000を超えていたら一桁のGbps表記にする
(2)入力された数値が一桁であればGbps表記にする
それぞれ可能でしょうか。また可能であればその方法をお教え下さい。

2010なら条件式いけるんだっけ？

[>=1000]#,"Gbps";-0;0"Mbps"

>>371
ありがとうございます。その方法でいけました

それだと1桁の場合にGbpsにならんのでは？

×[>=1000]#,"Gbps";-0;0"Mbps"
○[>=1000]#,"Gbps";[<10]0"Gbps";0"Mbps"

因みに表示形式の条件式は2000でも使えるし、確か97でも使える

>>373
ありがとうございます。条件を並べようと思ったらうまく行かなかったので助かりました
古いバージョンに持っていくことがあるので、新しい方の条件付き書式を使わなくて済むのは助かります

>>318
レスが遅れてすみません。
318のリンク先と、318の方法でうまくいきました。
ありがとうございました。

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

ミリ秒のテキストデータがあるのですがそれをhh:mm:ssの時間表記に変更する方法はありますでしょうか？
例）　123456789ミリ秒→

読み込む方法がわからんの？
あと、数値だけじゃなくて、「ミリ秒」ってのもテキストに含まれてるの？
数値だけなら普通に読み込んで、1000かければ済むと思うけど。

1000かけたら何になるんだよｗ

単純に数値のみのテキストデータです

ああ、そっか。1000かけてもいかんかｗ
A1にミリ秒だったら、B1に、=A1/24/60/60/1000とかでシリアル値にして表示形式で行けんじゃない？

【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 ほんのり
【4 VBAでの回答の可否】 可
vbaにて、01を数字として認識させる方法ってありますか？
日付を付けたシートを順に選択したいのですが、日付が01,02となっているので、そこの0をどうやって出すか悩んでます

For Loop = 1 to 31
シート(Loop)選択

みたいな流れを01とかでできないですか？

Format

>>381
Format(Loop, "00")

予約語は変数として使えんのけ？

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

シート名が1-60のシートのc9〜F20までとI3〜L24を注文一覧のシートにまとめて貼り付けたいです。


For i = 1 To 60
Sheets(i).Activate
Range(Cells(9, 3), Cells(20, 6)).Copy
Sheets("注文一覧").Activate
Range(Cells(34 * i - 30, 2), Cells(34 * i - 18, 5)).Select
Selection.PasteSpecial Paste:=xlPasteValues
Sheets(i).Activate
Range(Cells(3, 9), Cells(24, 12)).Copy
Sheets("注文一覧").Activate
Range(Cells(34 * i - 17, 2), Cells(34 * i - 3, 5)).Select
Selection.PasteSpecial Paste:=xlPasteValues

Next


と作りましたが、他のシートを参照してしまいうまくいきません。
よろしくお願いします。

>>385
たぶんだけど、シート名とシート番号がずれてるんじゃない？

Sheets(i).Activate
↓
Sheets(i & "").Activate

とすれば、シート名が数字だけでもきちんと選択できる

あと、いちいちActivateしなくてもこうやれば一発でコピーできる

For i = 1 To 60
　　Sheets(i & "").Range("C9:F20").Copy Sheets("注文一覧").Range(Cells(34 * i - 30, 2), Cells(34 * i - 18, 5))
　　Sheets(i & "").Range("I3:L24").Copy Sheets("注文一覧").Range(Cells(34 * i - 17, 2), Cells(34 * i - 3, 5))
Next

>>384
無理どす

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

クグッたのですが分からなかったので質問させて下さい。
SUMIFとSUBTOTALを同時に使いたいのですがどのようになりますか？

※日付・単品・数量・売り上げの項目があり日付を絞り、期間内の単品ごとの合計を調べたいです。

宜しくお願いします。

>>388
複数条件で絞り込みたい時、Excel2007以降ならSUMIFSという便利な関数がある

>>389
ご返答ありがとうございます。
自分もSUMIFSは考えたのですが、その場合日付指定が単月になりますよね？
自分の説明不足でしたが、日付は複数(例えば2〜3ヶ月分とか)で絞りたいので使えないです。

作業列にフラグたててSUMIFつかえば

ピボットテーブルで

>>391
フラグですか？すみませんやり方教えて頂けますか？我流でエクセル勉強したので基本的なの操作抜けてるかもです。

そこでSUMPRODUCTですよ

>>388
項目名だけ書かれてもどういうデータか分からない。
2,3行でいいから具体的なデータを示して。

>>395
すみません今外なので家に帰ったら書き込みします。

>>395
388です。簡単ですがデータ書いてみました。可能でしょうか？

（sheet1)
　　　A　　　　　B　　　　　C　　　　　D
１　年・月　　　商品名　　売上数　　売上額　
２　12.01　　　バナナ　　　　5　　　　　1,000
３　12.01　　　苺　　　　　　　2　　　　　2,000
４　12.02　　　みかん　　　　2　　　　　1,000
５　12.03　　　バナナ　　　　2　　　　　400
６　12.04　　　苺　　　　　　　1　　　　　1000
７　12.04　　　梨　　　　　　　5　　　　　2,000
８　12.04　　　苺　　　　　　　2　　　　　2,000
９　12.05　　　梨　　　　　　　5　　　　　2,000
10 12.05　　バナナ　　　　　3　　　　　600
11 12.06　　　みかん　　　　2　　　　　1,000
12 12.06　　　苺　　　　　　　3　　　　　3,000

※年・月、商品名はかなり多いです。

これを別シートに例えば3月〜5月の複数の単品の合計数量を簡単に出せないかと・・・
（フィルタで任意の月を表示させたら別シートの単品の合計も自動で変動させるとか）

(sheet2)
苺　　　　　　　　　　1　　　　　　　
バナナ　　　　　　　 5
梨　　　　　　　　　　10

※フィルタで（sheet1）の12.03〜12.05を指定(フィルタじゃなくてもいいのですが複数の月の合計をとりたいです）

　　　

A列の年月を元にE列に四半期等の区切りを入れて、それをsumifsすれば良いだけでは

=YEAR(A1)&"-"&CHOOSE(MONTH(A1),4,4,4,1,1,1,2,2,2,3,3,3)
E列はこんなんでいいんだろ

>>399
早速の返答ありがとうございます。助かりました、こういうやりかたもあるんですね。
他返答頂いた方もありがとうございました。m(__)m

なんで簡単便利なピボットテーブルって周知されないのかな？
名前が悪い

超集計　凄集計　集計X　とかにすればよかったんだよ

だっていちいち更新すんの面倒なんだもん

>>397
作業列使うけど、、たとえば
E1：=0　E2：=SUBTOTAL(3,$A$2:$A2)
F2：=E1<>E2
G2：=SUMIFS($C:$C,$B:$B,$B2,$F:$F,TRUE)
としてそれぞれ下にコピー。
これでフィルタかけた項目のみの売上数が出る
ついでに
H2：=$D2*$C2
I2：=SUMIFS($H:$H,$B:$B,$B2,$F:$F,TRUE)
としてそれぞれ下にコピーとすればフィルタかけた項目の売上集計がでる。
もう少しスマートに出来るかもしれないけど、subtotalの制限が多くてよく分からなかった

売上額を単価と勘違いした；後半部分は気にしないでくれ

>>401
ピボットテーブルは、正規化されたデータを集計するには簡単便利だけど
普段からデータベースを扱わない人にとっては、ピボットテーブルではなくデータの正規化が敷居高

あと更に先行くと、ピボットって意外とかゆいところに手が届かなくてVBAで集計することも多くなる
ピボットじゃどうにもならないってわけじゃなくても、VBA覚えると「ピボットでも最低限は出来るけど、
VBAならもっと凝れて、見やすく解りやすい結果を出せるのに」なんてことが頭をよぎると
じゃあVBAでやるかって方向になることが多い

集計用の汎用クラスを個人用マクロブックなりアドインなりに入れておけば
VBAでの集計も簡単便利で自由度無限だからな

もちろん、VBAで集計できるレベルに達しても、ピボットで不足無い場合はピボット使うけどね

集計用の汎用クラスってどんな感じなんでしょう？

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


番号　型番　　品名　　　種類　　　サイズ
1　　　ABC　　豚バラ　　　肉　　　　　500
2　　　BCD　　豚ひれ　　　　　　　　　250
3　　　EFG　　牛スジ　　　　　　　 　　100
4　　　HIJ　　牛ひれ　　　　　　　 　　350
5　　　アイウ　玉ねぎ　　　野菜　　　300
6　　　エオ　　じゃが芋　　　　　　　　700
7　　　カキク　人参　　　　　　　　　　200
8　　　abc　　　バター　　調味料　　 50
9　　　cde　　カリー粉　　　　　　　　 10
10　　123　　福神漬　　　付合せ　　50
11　　456　　らっきょう　　　　　　　　50

>>406のような感じのリストがあって、種類の空欄は上のセルを参照（コピペ）するマクロを作成しました。

Private Sub CommandButton1_Click()
For i = 5 To 204
If Cells(i, "D") = "" Then
Cells(i - 1, "D").Copy Cells(i, "D")
End If
Next i
End Sub


種類はD列にあって、1〜4行目には他の項目が記入されているので、
「1　ABC　豚バラ　肉　500」の「肉」はD5から始まります。
内容にもよりますが、10行〜200行まで使用するので200行分の空欄をコピペするつもりのマクロです。

問題は200行未満の場合でも、200行まで空欄にコピペするので無駄に時間が掛かってしまいます。
>>406の場合だと11行までで種類のコピペを止めるマクロはどのように組んだらよいのでしょうか？
番号（A5）は決まっているので200行まで番号が振ってあり、型番と品名は空欄がありません。
種類も、型番ないし品名の入力されている最後の行までコピペをする感じになるとは思いますが、
私のスキルでは方法が思いつきません。ご教授願います。

間違えました>>407のリストです

番号　型番　　品名　　　種類　　　サイズ
1　　　ABC　　豚バラ　　　肉　　　　　500
2　　　BCD　　豚ひれ　　　肉　　　　　250
3　　　EFG　　牛スジ　　　肉　　 　　100
4　　　HIJ　　牛ひれ　　　　肉　　 　　350
5　　　アイウ　玉ねぎ　　　野菜　　　300
6　　　エオ　　じゃが芋　　野菜　　　700
7　　　カキク　人参　　　　野菜　　　200
8　　　abc　　　バター　　調味料　　 50
9　　　cde　　カリー粉　　調味料　　 10
10　　123　　福神漬　　　付合せ　　50
11　　456　　らっきょう　　付合せ　　50
12　　　　　　　　　　　　　　付合せ
13　　　　　　　　　　　　　　付合せ
　　　　　　　　・
　　　　　　　　・
　　　　　　　　・
199　　　　　　　　　　　　　付合せ
200　　　　　　　　　　　　　付合せ

こんな感じに無駄にコピペされます（マクロ的には当然なんですが・・・）
付合せをコピペするのは番号11まで（D15まで）にしたいのです。

>>409
Ifで種類が空白のとき、に
なおかつ横の品名が空白でないとき、
というIf文を追加

>>409
ループする回数を固定しないで、
型番か品名の終端行を求めて、そこまでのループにする。
終端は例えばこんな感じで求める

Dim rw As Long
rw = Cells(5,"B").End(xldown).Row

【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 勉強中
【4 VBAでの回答の可否】否
例えば1991年3月1日の曜日を知りたいとする
その場合
sub test
dim a as date
a="1991/3/1"
msgbox(weekday(a)=vbsunday
でいいんだっけ？詳しいやり方がわからないのでお願いします

>>412
VBAの回答が否ということなので書式設定でyyy/m/dの後にaaaと付け足せば曜日が表示
されます

>>412
Sub test()
　　Dim a As Date
　　a = "2013/4/5"
　　MsgBox (WeekdayName(Weekday(a)))
End Sub

>>403

質問者ですが返答ありがとうございます。
まだ実行はしてませんが使わせてもらいます！

>>410
>>411
どちらのアプローチ方法でも私の求めていることを出来るってのは分かりますが、
マクロ化する方法が分かりません。まんまコードを貼って貰えると助かります

関数でもマクロでもですが、やりたい作業があったらエクセルで出来るかググるなりして
ヒットしたものを何となく使っていたので、本当の意味ではエクセルを理解していないのかもしれません
これを機に本格的に勉強したいと思っていますが、エクセルを使うのは一般事務レベルなので
関数の全ては当然としてせいぜい10〜20種類も覚えて活用・応用できれば十分とも考えています
何か、お勧めの勉強方法があったらアドバイスお願いします

>>416
オススメの勉強方法は、何か出来ないことにぶちあたったら
「まんまコードを貼って」なんて言わずに、自力で解決の糸口を探ること

それが一番の勉強で、必要に迫られて調べて実戦したことは
スキルアップのためにとかで勉強したことより遙かにしっかりと身につく

>>416
関数はその方法で必要にかられてから探して丸ごと使うでもいいよ。そう難しいもんじゃないから
それで十分覚えれる。

VBAは一応プログラミング言語だからそれなりに基礎から覚えないとそういうちょっとした改造だって出来ないよ。
HelloWorld!から手順を追って勉強した方がいい。
基礎からやらないなら丸投げして作ってもらうしかない。

もし擦れ違いでしたら誘導お願いします。
初心者質問で申し訳ないのですが、
▼━質問テンプレ (必ず使ってね) ━━━
【1 OSの種類 　　 　 　 　 .】 WindowsＸＰ
【2 Excelのバージョン 　 】 Excel　2010
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】否

現在セル一つ分に黄色を塗っているのですが、そこを含む複数のセルを青色にしたら
黄色が消えてしまうので、黄色を上に持ってきたいのですが　可能でしょうか？
一つ分のセルの色は二色使っていて、それが複数あります。その中の全部に背景色というのでしょうか？
そんな感じで塗って、一つ分のセルの色をもし削除しても　背景色の青が出てくるようにしたいのです。
なんだか説明が下手ですみません。
ネットで調べても分からず　昨日から徹夜で作業してます。どなたかご教授頂けないでしょうか？

htmlじゃないんだから

>>419
それを徹夜で作業するって、実際はどういう形でどういう数の黄色セルがあるの？
例えば何かが入力されてるとか、何か条件あるでしょ。

先に全部青ぬってそのあと黄色にしたいセルを簡単に選択する方法考えた方がいいと思う。

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

> 先に全部青ぬってそのあと黄色にしたいセルを簡単に選択する方法考えた方がいいと思う。

そうなんです。そうすれば良かったんですが、初心者なりに会社の予定表を作っていて、そこに予定としてセルに
いろいろなところに色としてスケジュールしていたんですが、　背景を帯状に交互に塗ればもっと見易いと思い
最後に背景帯として塗る作業になってしまい、また　１からやり直すより　フォトショップのようにレイヤーみたいに
色の順序を変える事って出来ないかなぁ？と思った次第でした。
何かいい方法ないでしょうか？

初心者免罪符にすんなよ。くっそウザいわ。
条件あるかないか聞いてんだから答えろ。

>>422
条件付き書式って知ってる？

>>422
レイヤーみたいな考え方は無理。
そういう用途なら「条件付き書式」でググって勉強したらいいと思う。

検索・置換に書式（セルの色）も指定できる
青色にしたい色のない範囲を洗濯して（黄色を含んでよい）、色のない書式のセルを
青い書式のセルに置換すればよい

シート全体を青に塗りつぶしておけばいいんじゃない

>>419
色の順序と言う概念はない。あえて言えばテキストボックスとか
図形、画像でセルを覆い隠したらそれにあたるが、
これは>>419の内容には合わない。

あとおせっかいだけど、そういうのは、現状でなんとか使えてて
業務に支障がないようならとりあえずそのまま使っとく。
そんで月末でもいつでも、手が空いたときに業務に差しさわりのない範囲で見直す。
不必要な事までこだわりすぎなんだと思う。

あと個人的には、白ベースで最小限の手間で
把握が出来るくらいのにしたほうがいいと思う。
ただの予定表であって何らかの成果物ではないのだから…

>>424-425
条件付き書式はセルの色より優先されるぞ
>>419
何通りか解を
・１からやり直す（多分>>419さんの力量だとこれが一番早い）
・VBA覚える
・シート2のセルの数値で色が変わるようにする。
=(Sheet2!$A$1=1)
=(Sheet2!$A$1=2)
=(Sheet2!$A$1=3)
…といった感じで条件付き書式を設定
・どうせできるものも大したものじゃないから、背景色なんて塗らなくてオッケー。色を全部消す。

>>429
条件付き書式のまともな使い方知らないの丸出しな回答だな。

今の内容でシート2とかマジでアホの考えだわ。

>>419です。
みなさん　親切に返答レスありがとうございます。
まだ　なかなか手につかずすべて試す事が出来てませんがコツコツ
やります。　もし　引っかかるようで調べても分からないとき
また　ご教授頂けると幸いです。
それと　素人すぎてしまい　不快にさせてしまった方にはお詫び申し上げます。

>>430
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
条件付き書式のまともな使い方を教えて下さい、よろしくおねがいします！

>>432
予定表ならセルの内容に対して条件付き書式設定するだけやろ。

つーかシート2で色塗りたい場所にわざわざ数字いれてなおメインシートに条件付き書式設定するって何？手動で塗るより手間かかるがな。

>>432
使い方がわからないなら使わない方が無難

>>336 有難うございます。
>>337 上手くいかなかったです。　#NAME?と出ました。

>>435
なぜエラーがでるのか検証してみた？
実は>>337は>>336と同じである
違いは>>336ではセルの指定がされているのに対し>>337は質問者と同様の概念の域で
回答を出しているのでただコピペしてもエラーが出るのは当たり前である
もっと脳ミソを使いましょう

脳ミソ食べくらべw

>>335>>435
本屋でExcelの参考書買ってきましょう
Excel2010の奴かどうか確認して、
軽く立ち読みしてわかりやすい奴がいいよ
薄っぺらい安い奴で十分だから

Excel初心者ですが
.他のアプリへbookの数値を直接インポートすると
パーセンテージの箇所がことごとくすべて小数点の数値になってしまうのですが（36.3636363636364・・みたいな・・・）
書式で変換した見かけ上のパーセンテージではなくリアルにパーセンテージ表示に変換する関数はないのでしょうか？

他のアプリｗｗ

100で割るだけじゃん

また初心者アピールかクソうぜえ。
初心者だろうがベテランだろうがわかんねーもんはわかんねーでいいんだよ。
僕は悪くないんですけどーみたいなクソ根性チラチラ見せんな屑。

>>439
text関数かな
別に関数じゃなくても、
=round(3/100,2)&"%"
って感じでもいいと思うけど
>>440
まぁ、アプリケーションの略だろう。
そんなに笑うことじゃないと思うよ。

>>443
これですね！ありがとうございます！
ググって色々見ていたら
先頭の4文字を抽出する関数をみつけて危うくそっちを使う所でした・・ｗ

>>439
見かけ上じゃなくリアルなパーセンテージなら
36.3636363636364・・みたいな・・・
でいいんじゃないのか？それともその逆？
実際のデータと、書式と、求める結果を書かないと。

3636%なんだろう

ほんとに丸めてしまっていいのか；

>>445
そうですね
37.7777777777778
↓
37.78%
にしたいと言う話でした。すみません、、

他のアプリがなにか知らんが、>>443の方法だと元データが失われるからな。

>>449
>>446
>>447
>>443
仕組みはイマイチまだわかってませんが

=ROUND(C13*100,2)
で無事解決できました。パーセンテージ表示がずらりと並んでいる表なのですが
他のアプリ上で小数点以下の数値があふれて大変な事になっている状態を何とかしたいという話でした。
ありがとうございます。

>>444
left関数かな。それはしんどいね。できれば数値は数値のまま扱ったほうが良いね。
殆どの場合、text関数は最後に使います。
>>442
どうしてそんなに汚い言葉を使うのかな、少し気になります。
・相手にダメージを与えたいなら、丁寧に間違った回答を早く教えるのがベストです。私は昔、さんざんやってきました。
・単にストレスを発散したいなら、スポーツがオススメです。それはあなたの健康にもつながることでしょう。
・勝利したいなら、宝くじを買いましょう。はっきり申し上げますと、あなたは、大抵のことでは勝てません。とりあえずこのスレでは無理です。後発のまともな回答を見て、つらい思いをするだけです、いえ、してきたでしょう。運に任せ、宝くじをあて、人生に勝利しましょう。
・その他、猿が偶然キーボードをタイプしてできた文章などでしたら、研究員の方、ご一報下さい。

>>451
上級者ズラしてアホ回答した人がイライラしてるんだと思うよ。

>>452
若いというのは羨ましい。
私も昔はそうだったとおもいますが、最近は全くなくなりました。

ズラしてどうすんだ
面だよツラ

【1 OSの種類 　 　 　 　 .】 WindowsXPsp3
【2 Excelのバージョン 　 】 Excel 2002
オートフィルで、連続数字を入力できなくなってしまった。
具体的には、オートフィルした直後に十字状態のカーソルの右下に出るはずのオートフィルオプションが出なくなってしまった。
したがって、「1」と入れたセルをオートフィル状態でドラッグすると、「1」「1」「1」「1」・・とはなるが「1」「2」「3」「4」・・とはできなくなった。
ただし、まっさらの新しいエクセルファイル上でやると、問題なく出てくる。
どこをどういじれば出てくるのか、誰か教えてくれ。

「1」の場合は「1, 1, 1, 1」で正常だよ
オートフィルは増分を検出するか、ユーザー設定リストに該当がある場合以外は
同じものの繰り返しをするのが基本仕様だから

なので「1」なら増分無いので「1, 1, 1, 1」、「1, 2」なら増分+1なので「1, 2, 3, 4」となり、
「月」はユーザー設定リストに該当があるので、1セルだけでも「月, 火, 水, 木」となる

因みにCtrlキー押しながらだと、数値1セルの場合は+1で、「1」が「1, 2, 3, 4」、「0.5」が「0.5, 1.5, 2.5, 3.5」
複数セルの場合は増分があろうとユーザー設定リストに該当があろうと
選択した範囲での繰り返しで、「1, 2」なら「1, 2, 1, 2」、「月, 火」なら「月, 火, 月, 火」になる

>>455
エクセル 2002 オートフィル
でググれば解決法が載っている所がありますよ。

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

シート内のSUM関数の数を数えたいのです
シート内には他の関数や数式と数値も入っています
その中でSUM関数のみ何個あるか表示したいのです

検索してもわかりません、よろしくお願いします

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


項目(1項1目、1項2目、・・・)を大きい項目(5款)で下図のようにまとめるのってどうやったらできますか？
５款の領域が┏みたいな形になるようにまとめたいのですが


┏━━━━━━┓
┃ 5款 　　 　　　┃
┃　　　┏━━━┫
┃　 　 ┃1項１目┃
┃　　　┃1項2目┃
┃　　　┃1項3目┃
┗━━┻━━━┛

>>459
見た目の問題？
セルの結合で┏の形にするのは無理。

罫線だけその形に引くぐらいしかできんと思う。

>>460

職場の前任の引き継ぎの紙の資料でこういう形になってたんですが、
やはり罫線で見た目こんな感じになってたんですね。

ありがとうございますm(__)m

>>458
Cellsに対してFor Eachループ回して
Formulaプロパティに"SUM("が含まれるかチェックして
カウンタを+1してけばいいんじゃね？

>>458
セルの数だけなら「sum(」で検索すれば出てきたけど、
1セルに何個sumがあっても1とカウントされてしまう
これじゃダメなら>>462しか無いと思う

>>459
結論は出ちゃってるけど、
見た目の問題と割り切って、強引にやるなら

・5款のセルを大きめに作って、１項の部分を横書きテキストボックスで5款のセルの上に置く
（5款は横位置を右、縦位置を上に）
・セルの結合と罫線を駆使する
・5款のセルを大きめに作って、印刷に関係ないセルで１項の内容を書く
→範囲選択・コピー→右クリックで貼り付け→「リンクされた図」を選択
これでセルの内容を受け継いだ図がでてくる

>>462>>463
レスありです
462の方法で何とかやってみます

【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 勉強中
【4 VBAでの回答の可否】 否
たとえば”トウキョウトッキョキョカキョク”に含まれる"キ”の数を数えるには
sub test
dim a as string
a=len("トウキョウトッキョキョカキョク",instr("トウキョウトッキョキョカキョク”、
”キ”）-1）でいいんでしょうか
詳しくお願いします。

>>466
=LEN(A1)-LEN(SUBSTITUTE(A1,"キ",""))

>>467
VBAで答えてください

466です追伸　msgbox(a)
VBAで答えてください

>>466
VBAに関する質問なのに

【4 VBAでの回答の可否】 否

ってどういう事やねん

>>466=>>412=礼をしない人？

>>466
誤り

文字列中に含まれる特定単語の数を数える　関数は
vbaではないっぽいので
自分でプログラム組め
ググッたら普通にみつかるぞ
勉強中なら考え方含めて勉強しろ

SUBSTITUTE → Replace

>>466
こんな感じ
Sub test()
Dim a, b, c
b = "aあいあいああ"
c = "い"
a = Len(b) - Len(Replace(b, c, ""))
MsgBox a
End Sub
>>471
それがどうしたの？礼を求めて回答してるの？

正規表現みたいなのなかったけな？使い捨てならこんなん？

ubound(split("トウキョウトッキョキョカキョク"，"キ"))

こういうの嫌いじゃない

あかまきがみあおまきがみきまきがみ
となりのきゃくはよくかきくうきゃくだ

早口言葉は　き　がおおいよね。

>>475
こういうの見ると感動してしまう。

日本製のOSおしえれ。

誤爆や↑　小さい事気にすんな

>>465
Find と FindNext の組み合わせで出来た

Dim formulaStr As String
Dim searchRange As Range
Dim resultObj As Object
Dim count As Long
Dim firstAddress As String

formulaStr = "SUM"
Set searchRange = ActiveSheet.Cells
count = 0

Set resultObj = searchRange.Find( What:=formulaStr, LookIn:=xlFormulas, LookAt:=xlPart)

If Not resultObj Is Nothing Then
firstAddress = resultObj.Address

Do While Not resultObj Is Nothing
count = count + 1
Set resultObj = searchRange.FindNext(resultObj)
If firstAddress = resultObj.Address Then
Exit Do
End If
Loop

Else
count = 0
End If

MsgBox "result:" & count

>>457他トン。
記録に残す意味で、経過を報告。
貼り付けボタンオプションのチェックの有無では、解決できなかった。
できないシート上のすべてのセルの数式と値のクリアをしても、解決できなかった。
複数のシートを使っていたので、すべてのシートを選択したうえですべてのセルの数式と値のクリアをしたら、解決した。

編集→フィルから作業できることが分かったので、これ以上追及しない。
こんな初歩的なことに答えてくれて、ありがとう。

Ｄの文字に条件付き書式で色がつくように設定してます。
でも　印刷の際にはその文字と色の表示だけを消して、それらに関する計算式だけは残したいのです。
分かりにくい質問で申し訳ありませんが、数式は残して、文字と色を表示しないように出来ないでしょうか？

Wordなら隠し文字って書式があるんだけどね　Excelにはないね

E列に印刷用の作業列を追加して、そこに条件を書いとけばいんじゃね

レスありがとうございます。
行や列の追加をしてしまうと　印刷範囲からはみ出てしまい　一枚に印刷できなくなるんですよねぇ。
それで、計算式は残して、色と文字だけ表示できないような設定で　枠は残したまま　空白になるような設定
ってないでしょうか？　素人質問ですみません。

無いからそのシートリンク貼り付けした印刷用のシート作って、D列だけ消して。

通常72ピクセルあるセル幅を印刷の時D列だけ0ピクセルに閉じて印刷すればよくね？

>>486
たとえば、印刷対象の列範囲がＡ〜Ｇ列だったと仮定する。
（485さんが書いたように）作業列を上記範囲外であるＨ列に設定する。
普通に印刷しようとすると、Ａ〜Ｈ列になってしまうが、印刷範囲を
Ａ〜Ｇ列に設定しておけば前と使い方は変わらない。
印刷範囲の設定は、2003以前と2007以降で違うので割愛

列　非表示　終わり

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

行の高さって、デフォが13.5でしょ？
フツーの罫線だと13.5のままなのに、太い罫線にすると14.25になっちゃうので困ってますo
どーにか行の高さを同じよーにしたいので、アイデア出してくだちいo

太い罫線を使わない

Excelを使わない

まず服を脱ぐ

人間を止める

全部選択して14.25にする
ちょうど5mmになるらしい

ピクセルの値とミリは必ずしも連動はしないかと
たぶんちょっとだけ大きかったり小さかったりするよ

>>491
罫線書いた後行を全部選択して右クリック→行の高さに13.5を入力
あとそのoは。に変えたほうがいいよ

【1 OSの種類　　　　　　 】 Win XP Pro(Win XP)
【2 Excelのバージョン 　 】 Excel2003(2000)
【3 VBAが使えるか　 　 】ちょっぴり
【4 VBAでの回答の可否】 内容にもよります


IF、COUNTIF、OR、AND、VLOOKUPといった主だった関数と条件書式を使ったBOOKを作成しましたが、
データを入力していない状態でのファイルサイズが1000KB近くになりました
作成したPC(XP ProでCore2のメモリ2G)だと問題なく開きますが、使用するPC(Pen4のメモリ512M)だと
開くのに多少時間が掛かってしまいます
このBOOKはデータに間違いが無いかをチェックするものなのですが、
開くのが遅いという理由で使って貰えないと意味が無いので、軽くしたいと思います
15列500行に関数と条件書式を入力から1000KBになるのかな？と思うのですが、
列は仕方ないにしても行の方は、希に500行まで入力するケースがありますが殆どの場合は100行以内です
この関数と条件書式はデータが入力されている最後の行まで有効とする…
みたいな関数やマクロはありますか？(それでファイルサイズが小さくなる関数やマクロで)
PCの買い換え(リース換え)は来年度っぽいので・・・

>>498
具体的な式や書式設定が解らないとなんとも言えない

仕事で使う物みたいだからデータはマズいだろうから
データは無しというかダミーデータ数件でいいから、まずはブックうpしよう

情報(回答)欲しいのに、自分は情報(ブック)出せないとか言うなら
「お帰り下さい」ってことになるけどな

>>498
>希に500行まで入力するケースがありますが殆どの場合は100行以内です

とりあえず、100行までのブックと500行のブックと二つ用意しとけば
殆どの場合とやらに対応できるんじゃないの？

そのやり方だと500行の時には重くなっちゃうけど、
それの解決方法はもっと抜本的にやるしかないから
具体的なブック見ないと判断できない。
仮に俺だったら全部VBAで書く。

たった500行で重くなる時点でそもそも書き方が悪いと思うわ
っつか、2行目だけ計算式入れてあとはそのつどコピーすればいいじゃん。数10KBになるだろ

>>501
コピーで対応できる内容かどうかは>>498からでは読み取れない

>>498からコピー対応できる可能性が高いと思うが
もしコピー対応できないのであれば、コピー対応できるように変えるべき

条件付き書式が増殖してる可能性が高い

>>498
具体的にどういう計算と書式入れてるか書いてみ

Excelでコピペを繰り返していると、たまに端っこまでワープする現象は何なんでしょうか？
大変ウザイです

>>506
Ctrl離してない状態でセル移動してるからだろ
「Ctrl+→」とかは末尾ジャンプだからな

おそらく自分では離してるつもりでも
半押しだったりキーボードの感度が良かったりストロークが浅かったりで
Ctrlをきちんと離せでない

そういうことか、ありがとう
よく起こるので対策を考えたい

稀にkeyupが送信されてないこともある

それは故障

セルの枠線をダブルクリックして大ワープとかもあるよな

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

コピーしたものをCtrl+Vで「貼り付け先の書式に合わせる」状態をデフォルトにして貼り付けるにはどうしたらできる？
Wordだと同じようなことができたと思うけどExcelだとできない気が…なんか勘違いしてる？
ググってもよく分からなかったので誰か助けて、お願い

>>512
こういうマクロを作ってCtrl+vに割り当て

Sub 値貼付()
　　Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub

>>513
ヒント：【4 VBAでの回答の可否】 否

　◎
　否

鉢植えのひまわり

クソつまんねーな

>>513
VBAをまったく使ったことないけどそれ使えばできるの？
ちょっと勉強してみようかな
とりあえずありがとう

ブイバ？
なんじゃそれｗ

「ブイバ」という文字を分解するとだな
　　　　　 　ブ　 ( ﾟдﾟ)　　 イバ
　　　　　　　＼／|　y |＼／


　　　　　　　　　( ﾟдﾟ)　バイブ
　　　　　　　　　(＼／＼／



　　　　　　　 (*´ν｀*)'`ァ'`ァ
　　　　　　　　(|　y |)
　　　　　　　　　θ＜ｳﾞｨｨｨｨｨｨﾝ

会社のPC（Win7、2010）で作ったブックを自宅のPC（XP、2003）で見ると
とんでもない色になってるんだけど何で？

色は32ビットで管理されてるんじゃないの？

2003はされてないよ

>>520
http://support.microsoft.com/kb/953536/ja

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

下記でD1にA1,B1,C1の合計を表示させたいのですが、B1の10+14を認識してくれず、合計が-3と表示されてしまいます。
どうしたら良いでしょうか？
後で見たときわかりやすいよう10+14の表示はそのままで、計算させることって出来ませんか？

A B C D
1 14 10+14 -17

>>523
すみません↑の表がずれてしまいました。

A1が14
B1が10+14
C1が-17
D1に合計を表示させたいですが、B1の10+14を認識してくれず、合計が-3となってしまいます。
どなたか助けてください。

>>523
うーん、結論から言うとかなりしんどそう。
2013ならFORMULATEXTというまさにそのための関数がある。
2010以前でもオプションのどこかに数式自体を表示させる項目があったけど、全体に適用されてしまう。
（D1も数式の表示になってしまう）
また、a+bみたいに必ず2項目の足し算だけならfindとsumで可能だけど、
3項目になったり、引き算なども入るとなるととても面倒。

あまり事情はよくわからないけど、コメントを残すなどの方がいいのではないかな。

>>523
とりあえず2つの方法が思いつく

ひとつは、数式で「10+14」を解析して計算させる方法
「10+14」を入力しているセルはそのままで良いが、式が複雑になる

もうひとつは、「10+14」を入力してあるセルを
表示形式="10+14"、値=24、にしておく方法
表示は「10+14」のままだし、式も普通にSUMだけで出せるが入力が面倒

>>523
+式限定で゛+゛を区切り文字としてセルを区切って計算させる、という方法もあるよ

>>523
=A1+LEFT(B1,FIND("+",B1)-1)+RIGHT(B1,FIND("+",B1)-1)+C1

ただし、B列が「数字+数字」のフォーマットに限る
「数字-数字」もあるならIFで分けて処理が必要

=A2+IF(ISERROR(FIND("+",B2)),LEFT(B2,FIND("-",B2)-1)-RIGHT(B2,FIND("-",B2)-1),LEFT(B2,FIND("+",B2)-1)+RIGHT(B2,FIND("+",B2)-1))+C2

+と-だけなら、こんなん

+と-なら作業セル使った方がスマートだな

D1=A1+C1+F1+G1
E1=SUBSTITUTE(B1,"-","+-")
F1=LEFT(E1,FIND("+",E1)-1)
G1=RIGHT(E1,LEN(E1)-LEN(F1)-1)

（E:G非表示)

皆さんありがとうございます。
質問後「区切り位置」なるものを見つけ+前後でセルを分けて計算できるようになりました。

昨日からexelを使い出したのでvbaとかはまだ使い方すらわからない状態でして覚える機会があったら色々と参考にさせていただきます。
ありがとうございました。

>>531
乙！まさかそれで解決とは思わなかったわ

いろんな機能があるから使用状況に応じて一番ベストな解決策を選択すればよろし

>昨日からexelを使い出した

>後で見たときわかりやすいよう10+14の表示はそのまま

初心者が考えることってワケワカメ・・・

最近Excelを使いだした初心者のググり＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞お前らの知識()


このスレを見た限りだと大半の事に対して懇切丁寧に教えてくれる人は2〜3人っぽいな
マクロは人によって癖が見られるが、このスレでマクロを貼ってくれる人は2人かな？
他の奴らは生半可な知識をひけらかすか、適当な理由づけして説教まがいのレスをする感じ

>>535
まさにお前の事じゃん

まあ>>526->>530はまともな回答じゃないとは思うよ。ていうかこれ一人だろ。

とくに>>526の表示形式="10+14"とか、リアルで相談してこんな事教えられたらこいつには二度と相談しねえわｗ
他の関数の回答は、ただ難しいナゾナゾにチャレンジ的な回答だしな。実用する事を無視した回答なのはたしかだな。


マクロ貼る人間は二人？？
>>526レベルのようなウンコマクロ貼る人間だけでも二人以上いるように感じるけど。

批難するだけの君は、君が批難してる奴等の更に下に位置する存在なんだが、自覚してる？

525だが、色々な回答が出るのはいいことだと思う。
区切り位置って出てこない時点で、全員同レベル。エスパー能力が足りん。

>>539
>>527

出てたのかｗ
じゃあ527が最高だな。他は俺含め全員ダメ。

エスパー能力なんて無い方がいいので足りないと言われると嬉しい

極度の初心者からEXCELを使った仕事を”教えられる”とき、便利だよ。
それ以外は不要なので、無くても困らないと思います。

医師に提出する為に、日々携帯に下記の様に記録した血圧データをExcelに簡単に入力する方法はありませんでしょうか？
携帯に入力したデータは、メール経由でメモ帳にしてあります。
【記録形式】
[04/11_09]100-070 100
↓
[月/日_時]血圧上値-血圧下値(スペース)心拍数
※Excelには、それぞれの値を各セルに分けて入力したいです。

宜しくお願いします。

メール経由でメモ帳にしてある、っていうのがどういう状態なのかわからん。
「メモ帳」使ってひとつのテキストファイルに保存してあるって事？

>>544
前述の「区切り位置」という機能を使う事でセルを区切って記録する事が出来ます

簡易説明をすると、
メールもしくはメモ帳よりコピペする
↓
区切り線を 例）[月／日＿時]|血圧|脈拍 のように区切る位置に入れてセルを分ける

>>547の↓以降の説明は「区切り位置」の機能での手続きの説明です
読み返してみたらちょっと分かりにくかったかなと

MID関数で分割すれば

このレベルのことで行き詰まる奴って、自分のやりたいことの説明能力も無いから困る

まあ他者に解りやすいように説明できる能力有ったら、ググれば解決するわけだし
それを解決できずに質問しに来る奴らなのだから仕方ないのかも知れないが

小学校に通ってる奴って、微分積分すら解けないから困る

まあこのくらい解ける能力あったら、参考書読めば分かるわけだし
それを解答できずに質問しに来る奴らなのだから仕方ないのかもしれないが

全く別次元かつ不適切な例えを出してる551って何なんだろう？

>>551
おまえ義務教育の小学校通ってないのかよ…

煽ったら煽り返されて顔真っ赤

>>544ですが、レスありがとうございます。
説明が解りづらかったようで申し訳ないです。
携帯のメール作成に、
[04/11_09]100-070 100
[04/12_09]100-070 100
[04/13_09]100-070 100
…
と、改行追記していき、それをPCにメールし、メモ帳にコピペしてあります。
Excelに入力したいのは、
【記録形式】
[04/11_09]100-070 100
↓
[月/日_時]血圧上値-血圧下値(スペース)心拍数
を、
[A1セル]→月/日
[B1セル]→時
[C1セル]→血圧上値
[D1セル]→血圧下値
[E1セル]→心拍数
と、分けて入力したいのですが、効率良く楽に入力できないものかと、質問させて頂きました。

宜しくお願いします。

>>555
現在区切りとして使っている「_」「]」「-」「 」を全て適当な区切り文字に置換する
「：」に置換したら　04/11：09：100：070：100　となる(前の[は削除)
あとは区切り文字でセルに落とし込むだけ。数分で出来る

>>555
記録する時はいつも記号を全てtabキーで区切っとけば、エクセルにコピペするだけなんだけどな

へぇ〜ｗｗｗ

なんか香ばしい薫りがするなぁw

>>554
自己分析出来てるなら大人しくしてたら？

レスありがとうございます！
メモ帳の区切り記号を置換して統一するまでは解るんですが、その後、そのまま（Office2010）Excelにコピペすれば良いのでしょうか？
「区切り文字」設定方法がちょっと解らないんですけど…

携帯で[04/11_09]100-070 100 こう入力するのって面倒じゃないの？
使う機能の名前が解ったらあとは検索した方が早いよ。丁寧な説明あるし。

http://search.yahoo.co.jp/search?p=%E3%82%A8%E3%82%AF%E3%82%BB%E3%83%AB%E3%80%80%E5%8C%BA%E5%88%87%E3%82%8A%E4%BD%8D%E7%BD%AE&search.x=1&fr=top_ga1_sa&tid=top_ga1_sa&ei=UTF-8&aq=&oq=

日付以外は変な記号とかいれないでスペース空けて記録しておく方が後々楽だと思うが

070とかケタ数合わせてあるなら
区切り位置の最初の設定で「固定長フィールドデータ」を指定すれば楽なんじゃないかと
いらない区切り文字は「削除する」にしとけば良い

>>555>>561
Excel立ち上げた後、「ファイル」-「開く」で
Excelのファイルをファイル名を指定して開くのと同じように操作して、
ファイルの種類を「全てのファイル」に選択しておいて、
そのテキストファイルを選択して開く
そしたら、Excelの形式にあわせるためのウィザードが開く

細かい単語間違ってるかも。誰かフォローよろ

>>562-564
皆さん、親切に本当にありがとうございます！
なるほど、機能名でググると良いんですよね？
帰ったら早速、ググってみたいと思います。
とても助かりました！

>>565
メモ帳を指定して開くとは意外でした！ｗ
ありがとうございます、とても助かりました。

うーんWin7だよな？
そういや拡張子がデフォルトで表示してなかったなあれ…
メモ帳　って言ってるのはそういう意味なんだな
なんとなくわかった

Excel 2010 / Win 7 Pro SP1 64bit

●質問1

レシートNo 商品カテゴリ
------------------------------------
1 パン
1 野菜
2 パン
2 パン
2 魚


とあるとします。
数式もしくはVBAか何かで特定の位置のセルに、商品カテゴリにパンが
いくつかるか表示させたいのです。
ただし、条件として同じレシートNo内で重複しているカテゴリは1として
カウントしたいのです。
例えば、上の例ですと、パンが3つありますが、No2ではパンが複数あるのでそれを1として
カウントし、セルに表示させた場合は「2」となります。

こういう風に集計したいのですが、何か良い方法はないでしょうか？

連投失礼します

●質問2

レシートNo 商品カテゴリ
------------------------------------
786 パン
786 野菜
787 パン
788 パン
788 魚
788 飲料

となっているとします。
今度はレシートNoの数を集計したいのです。
上記の例ですと、レシートNoとして存在するのは「3」となりますよね。
これもこのように集計したいのですが、お知恵を拝借願えないでしょうか？

レシートNoにいくつ項目があるかは不特定です。
1つだったり、5つだったり、10つだったりします。

かなり調査したのですが、今のところまだ解決に至っていません。
どなたか教えてくださいませ。

>>569
C2：=COUNTIFS($A:$A,$A2,$B:$B,$B2)
D1：0
D2：=IF(COUNTIF($A$2:$A2,$A2)=1,D1+1,D1)
としてそれぞれ下にコピー

すみません、質問2は自己解決しました。

=SUMPRODUCT(1/COUNTIF(A1:A10,A1:A10))
で集計できました。

どうしても質問1がダメです…

>>572さん

早速ありがとうございます！
今から試してみます！

なんで試してからその結果を書かないんだろう？

>>575
なんでそんなに２ちゃんねるに貼りついてるの？
結果が今日の夜だったとしても何もおかしいと思わんけど。

今までのパターンだと、「試してみます」→数時間後→「うまくいきました」みたいなレスは無い。
今回は関数なので、試そうと思えばごく短時間でできるのに何故やらないのか凄く不思議。

VBAだと、理解できないどころか使い方も分からない（と思われる）人が
とりあえず回答してくれた人にお礼だけするときにこのパターンをよく見かける。
特に、2ちゃん以外のハンドル必須なサイトだけどね。

で、何が言いたいん。勝手に即実行の義務つくるなよめんどくさい奴だな。
初心者ならごく短時間で出来るとは限らんだろ。
つーかお礼が無いだけで不満に思うような人種は他人に親切にしなくてもいいと思うよ。

お礼はどうでもいいけど、結果のフィードバックは欲しいだろjk
自分に間違いがあればそれに気付いたり、あるいはスキルアップしたりする為にも
過去ログを有用な情報の宝庫にする為にも

>>569
作業列に1パンって具合に文字列連結して、その数をかぞえる

>>579
理想は理解できるが。「スキルアップしたい」「短時間でできる」なら、自分で試せば分かる事だからね
過去ログも解答例が残っていれば十分で、上手くいかないのなら改めて質問すればよい
言っても変わらないし、スレの利用層考えればそれで概ね問題ないのだ

>>578
=IF(質問者=回答者にお礼が言える,前途洋々,前途多難)

うざ

>>580さん、アドバイスありがとうございます

皆様何か色々とお騒がせしてすみません

http://i.imgur.com/7eOLx1U.jpg

アドバイス頂いた数式の使い方がまだ理解できていません。
自分の理解不足知識不足が情けなくなってきました。

要は、csvで出力されるレシートNoと商品カテゴリの一覧があり、
同じレシートNo内に複数ある商品カテゴリに関しては全て1としてカウントし、
パンなら全レシートNoの合計で何個あるか、魚は何個あるかを自動計算させたいのです。
レシートNoは1000以上あるので自動処理できないかと悩んでいます。

ピボットテーブルで

>>569
まず書いてあるとおりにやってみ
jpg見るとC１に入れてるけど、C2。
その後C2:D2を下にコピーする
レシート項目数を特定セルに出したいなら
=MAX(D:D)
とでもすればいい

>>569
ちょっと集計法に勘違いがあった。商品数をどこに出したいかが不明だが
仮にC列を作業列、D1：パン、E1：野菜、F1：魚として

C2：=IF(COUNTIFS($A$2:$A2,$A2,$B$2:$B2,$B2)=1,1,)
として下にコピー
D2：=SUMIF($B:$B,D$1,$C:$C)
として右にコピー
とか。

フィルタで絞った項目について集計したいなら、
=SUBTOTAL(9,$C:$C)

>>586さん
>>587さん

ありがとうございます。
出先でExcelが使えないので、戻ったら再テストしてみますね。
出来たらまた報告させていただきます！

すいませんここみたいな質問スレで、Powerpointのスレってありますか？
検索しても出て来ず、どうやって探そうかと

ピボットテーブルで

>>589
昔はあったみたいですが、今はないようですね　ここらあたりでは、いかが？
スレたてるまでもない質問に答えるスレ
http://toro.2ch.net/test/read.cgi/bsoft/1123764624/l50

569はなんで試してからその結果を書かないんだろう？

>>592
なんでそんなに２ちゃんねるに貼りついてるの？
結果が出先から帰ってきてからだとしても何もおかしいと思わんけど。

>593
自分の評価が気になっているだけだと思うが

アマチュアプログラマでExcel初心者
主な環境のバージョンはWindows,2007
VBAはオンラインマニュアルを引き引き使えるが、ナシで済ませたい

400名くらいの名簿(別表、漢字名と読みを含む)があって、
本表の名前欄に頭文字なんこかいれると名前の候補が出る、
ぐぐるIMEのサジェストみたいのがほしい
珍しい要求でもないと思うのだが、ぐぐり方わからん ヒント頼む

VBAで一致しないものを非表示にしていくのが簡単そうだけど

と、思ったけどオートフィルタの抽出条件にセルの値入れられるみたいじゃん

皆様のアドバイスのおかげで希望の集計が無事できるようになりました。
本番のCSVでも正常に集計できました。

本当にありがとうございました！！
http://i.imgur.com/wQyHwJn.jpg

>>595
結果だけ見ればオートフィルタでも関数でも出来るけど
操作性として「ぐぐるIMEのサジェストみたい」にしたいなら
VBA使わざるを得ないだろ

「VBA〜ナシで済ませたい」を取るか、
「ぐぐるIMEのサジェストみたい」を取るかは
自分で判断して決めれば良い

VBAならテキストボックスコントロールとそのChangeイベント
あとはAutoFilterかAdvancedFilterについてググるかヘルプ調べろ

名簿をユーザー辞書に変換してグーグルIMEに登録すればいんじゃね

2010と2013
どちらを買えばいいのでしょうか

>>601
2013

次、どうぞ

既出なら申し訳ありません。教えてください。

作業中のエクセルファイルとおなじフォルダ内に参照用のデータファイル（以下Ａ.xlsx）があるのですが

作業中のファイルのセルに=A.xlsx\$A$1のように参照先を指定しても、そのファイルを再度開くと＝Ｃ￥〜になってしまいます。

そのフォルダごと別のドライブやサーバーに移した場合、リンクの更新で面倒な事を要求されるんですが、防ぐ良い方法はありませんか？

VBAのソースに書けば？

>>603
indirect関数という手もあるけど、数式が多いと大変かも

桁数を揃えるのに、数字の頭に0を付けたいのですが、0を入力しても自動的に削除せれてしまいます。
どうしたらいいのでしょうか？
宜しくお願いします。

書式を00000000とかにする

'03456

SUBSTITUTE関数を工夫したらできそうなのですが
うまくいかず
お知恵借りれたらと思います。


【Windows7】
【Excel2010
【VBAは不使用】
【VBAでの回答は否】

色々なURLが並んでいるエクセル表に
一部一致（同じ階層下のページ場合）のURLに対して
「あいうえお」という文字を一部一致したURLと丸ごと置換たいのです。
一致しないURLはそのままでかまいません。

お知恵お借りできませんでしょうか？
よろしくお願いいたします。

>>607-608
レスありがとうございます。
無事できました！
また、>>555の質問についてですが、
今日、
テキストエディタで、全ての記号を、「:」に置換後、上書き保存し、そのテキストファイルをExcelで開くことで表示されるウィザードに従ってちゃんと各セルに入力されました！
本当に助かりました！
ありがとうございました<m(__)m>

>>609　具体例出さないとレスつかないよ

具体的に書いたほうがいいということ
アドバイスいただきましたのでで
二度目の投稿失礼いたします。

【Windows7】
【Excel2010


A列に色々なURLが並んでいるとします。
xxx.jp/100/
xxx.jp/100/あいうえお
xxx.jp/100/かきくけこ

一部一致「xxx.jp/100/」を含むURLに対して
「ひゃく」という文字を
一部一致したURL（上記3URL）と丸ごと置き換えたいのです。
一致しないURLはそのままでかまいません。

フィルタで「含む」を選んで抽出した行に「ひゃく」を張り付ければいんじゃないかね

なぜ単純なことが思い浮かばなかったのか…

ありがとうございます。

一括置換すればいいだけじゃない

>>615
Excelに詳しい子が会社にいるので聞いてみます
｢置換してください｣と言わせてみようっと♪

>>616
音声うｐ

「オキガエしてください」

俺なんか後輩の女の子にExcel教えるのに挿入と何回いわせたか

時代はインサートだよ

俺：入れちゃっていいかい？
女：はい、入れて下さい
俺：いくよ〜、それ
女：・・・・・次ピストンお願いします
俺：あいよ
女：次、出してください
俺：それじゃイクよ
女：はい、・・・・・じゃあこっちもイッていいですか
俺：よし、イッちゃえ
女：・・・イキます・・・・・ふぅ、イケました
俺：じゃあちょっと休憩しようか

真面目な仕事中の会話ですが、何か？

「じゃあパンツも脱いで、そこに寝て足を広げて下さい」
もちろん仕事ですよ

婦人科ですね
毎日グロマンのお相手、ご苦労様です

工場か何かかと思った

泌尿器科、肛門科、介護、保育園

【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 勉強中
【4 VBAでの回答の可否】 否
VBAの配列で順番を入れ替えたい場合はa1〜a4に7,8,9,10とたとえば入力した状態にして

Sub test()
Dim a(3) As Integer

'セル（"A1")- ("A4)を変数に設定する
a = Range("A1").Value
b = Range("a2").Value
c = Range("a3").Value
d = Range("a4").Value
'cell("A1")-("a4")に値を書き出す
Range("a1").Value = d
Range("a2").Value = c
Range("A3").Value = b
Range("a4").Value = a
End Sub　　　でいいんでしたっけ？
なぜか配列には割り当てられませんと出るんですが・・

a, b, c, d じゃなくて
a(0), a(1), a(2), a(3) じゃないの？

【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010

0が-になるので困ってます＞＜

【以下再現手順】
A1セルに　1000　と入力しEnter
1000　と表示される
A列をクリック
ホームタブ、桁区切りスタイルのアイコンをクリック
1000　が　1,000　になる
A1セルに　0 と入力しEnter
-　と表示される・・・

何で？

>>628
書き込みの時の名前欄は無理して書かなくていいよ
２回目以降に必要だったら書けばいい

で、これの最初の奴では対処できない？
ttp://okwave.jp/qa/q3388970.html

>>628
セルの書式設定→表示形式→会計
であるがため

次のようなデータがExcel2003の表に並んでいるとする。Excelのセルの横どうしの区切りを、「,」で示す。

��,名称,・・・・・・・・
001,りんご　・・・・・
001,みかん　・・・・・
002,バナナ　・・・・・
002,ブドウ　・・・・・
003,りんご　・・・・・
003,スイカ　・・・・・
・・・・・・・・・

「・・・・・・・」表記は、他にも多数のデータがあるということ。だから項目も「�ａv「名称」だけでなく沢山あるし、データ数も��003なんてものじゃなく何千もある。
また、一つの「�ａvごとに2つずつだけデータを記載しているが、実際にはもっと幾つもあるし、データが「�ａvの昇順に並んでいるわけでもない。

さてここで、名称「りんご」が含まれる「�ａvのデータを全てフィルタリング抽出したい。つまり上記の例なら��001と��003の中に「りんご」があるから、

��,名称,・・・・・・・・
001,りんご　・・・・・
001,みかん　・・・・・
003,りんご　・・・・・
003,スイカ　・・・・・

というように��001と��003のデータが全て出されるようフィルタリングしたい。効率的な方法はないかな？

いま思い付く手段としては、
�@「名称=りんご」条件でオートフィルタする
�A結果に出てきた「�ａvが1000件あったとしてそれを全て、別シートにでもコピペ転記する。
�BExcelの詳細フィルタオプション機能を使って、上記�Aで転記された「�ａv1000件に該当するデータを全て元データから再抽出する

という方法くらい。この方法だと、フィルタやコピペを数段階に渡りやらないといけないし、もっとサクッとできないかな？
マクロは使わず、計算式も超簡単なものまでしか使わないという条件で、何とかならないかな？伝わりにくい書き方だったらスマソ。

上間ら目線の試験管口調が失格です。
君は独学がおすすめ。本屋でもいってこい。

>>631
>計算式も超簡単なものまでしか使わない

抽象的な条件つけんなカス
おまえの匙加減じゃねーか

>>631
なにかフォローしようと思ったいけど>>632-633の通りだった。
その思いついた手段で今すぐやるのがもっとも効率的だよ

テストの問題文ってなんであんなイラッとする書き方なんだろうな

めちゃくちゃ恥ずかしい質問なんだけど今月電気代が1764円で9.75円上がる公式ってどうするんだ

>>636
どこのセルにどういう風に数値が入ってるのか詳しく

>>636
電気代は円未満切り上げか切り捨てだろうから、
銭単位までの計算は意味ないような・・・
東電のサイト
http://www.tepco.co.jp/e-rates/individual/data/chargelist/chargelist01-j.html
を見ると、従量電灯の第1段階料金で18円89銭/kWh。
基本料金と合算したうえで、実際に請求するときに円単位に補正（切り上げ、
切り捨て、四捨五入）した結果が1764円だろうから。
基本料金、実際の消費電力量、どこの電力会社か、その電力会社の値上げ資料
を元に計算するしかないと思う。

ごめん間違えた9.75％上がるだった。これをround関数でやりたいんだ
a1に1764円とする

>>639
=ROUND(A1*109.75%,0)
切り捨てならrounddown関数になるわ

>>629-630
できたーっ！
ありまとーっ！

Ｆ1キーを押すと、Ｏｆｆｉｃｅ COMに接続しますとメッセージが出て、ヘルプが出ません。
どうやればヘルプの画面が出せますか？

>>642
ヘルプ画面の右下の「Office.comに接続」をクリックして「このコンピュータ 以下略」をクリック

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

お世話になります。
Webブラウザから、サイトにあった画像をコピーして、ExcelへShiftを押しながら図の貼り付けを行いました。
その図とオートシェイプをグループ化をしたのですが、グループ化を解除できるものと、出来ないオートシェイプがあります。
解除の方法をお願いいたします。

百個ほどの図をグループ化したあと、その上にオートシェイプを数十個グループ化している常態です。

>>644
http://okwave.jp/qa/q2403312.html
図形描画ツールバーの太めの矢印アイコン（オブジェクトの選択）をクリックして、目的の○の周りを少し広めに左クリックしながら四角く囲ってみてください。
その○がオートシェイプならば、これで選択されるはずです。

これかな、オートシェイプは使わないからよくわからないや

みなさんは関数の入れ子の時はダイアログボックスからしますか、直接入力でしますか

関数のダイアログボックスはつかったことないな

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

職場のPCでの出来事なので、月曜日に試させて頂きます。

大昔は使ってたな
確か2000ぐらいの時には引数がなんの意味を持つのか、表示されなかったと思う

山田さんと佐藤さんの名前がランダムに縦並びになっている状態から、その状態を崩さずに、
それぞれの名前が何個あるかを割り出す方法はあるのでしょうか？

山田
佐藤
山田
山田
佐藤
佐藤
佐藤
山田
佐藤
山田
山田
山田
・
・
・
山田　X回
佐藤　Ｘ回

ピボットテーブル

COUNTIF

>>651
>>652
名前の後ろにコメントが入っているものもあったため
=COUNTIF(C1:C50,"山田"&"*")
これでうまくいきました！
ありがとうございました。

OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 勉強中
【4 VBAでの回答の可否】否
例えばセルA1〜A10に11〜20に書いてるとする。それを並べ替えるには
sub test
dim a as long
dim b(9) as integer
'セルa1-a11に変数を設定する
For a = 0 To 10
b(a) = Cells(a + 1, 1).Value
Next
'セルa1-a11に値を書き出す
For a = 0 To 10
Cells(a + 1, 1).Value = b(10 - a)
Next
End Sub なんですが例えばcells(a+1,1)の+1ってどんな意味があるんですか

間違えた、
for a=1 to9

>>654
http://msdn.microsoft.com/ja-jp/library/office/gg278870.aspx
条件：一方の式が数値データ型で、もう一方の式が任意の Variant (Null 以外) の場合
結果：加算が行われます。

セルのアドレスに０は指定できないから

>>654
Cellsは1から始まるから、Forが0から始まる時は+1して数字をずらさないとエラーになる
けど、For を1からに修正した時は+1しなくてよくなる
だから>>655もちょっとおかしい
正しくは

For a = 0 To 9

654です。
何で最後のほうの＝b(10-a)の-aってなんですか

[Excel] データ順序の上下反転方法

(1)　並べ替えたいデータ列の横に列を挿入し、連番データを入力。
(2)　その連続データを選択して、[データ]-[並び替え]-[降順]。

これをやれば並び順を逆に出来ると言うのはわかるのですが数字を追加しなくても１発逆転するような関数はないのでしょうか？！

>>659
セルのrowであり、それを逆から埋めたいので
Cells(a + 1, 1).Value = b(10 - a)
こういう式になる、としか言えない。
「ウォッチ式」と「ステップイン」の使い方をググって、変数の値（今回は a の中身）の変化を追いかけるんだ。

>>660
rowとindex（もしくはindirect）を使えばできるけど、範囲がわからんのでなんとも
ちなみに範囲が分かったとしても、一回限りなら数式やマクロを使うより>>660の方法が一番早いよ
何度もあるならマクロだろうけど、頻度によるかな。ちまみに俺ならindirect

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

他からインポートしたデータで
色々手を尽くしても日付が文字列としで認識されいて困っているのですが
そのセルを選択し他のテキストエディターへペーストしたところ以下のような状態となっておりました
””でくくられていて最後に改行が入っている状態のようです

"2012/12/03
"
"2012/12/04
"
"2012/12/04
"
"2012/12/07
"
"2012/12/07
"
"2012/12/11
"
"2012/12/11
"

改行の箇所はコートが違うらしく置換では消えてくれませんでした
””も色々変換をかけましたが取れる気はサラサラ無いようなのですがｗ
この状態から日付として認識させるにはどうすれば良いのでしょうか？

>>663
そのまま日付と認識させるのは面倒だな
俺ならMIDで2-11文字目を作業列に取り出して、dateだかdatevalueで変換、値でコーピーペーストするかな
改行はなんだっけな、ctrl+Jかなんかで置換できたと思うけど忘れた

なんでExcelにこだわる　置換だけなら他のアプリでやってからExcelに持ち込むことも考えれば

=VALUE(CLEAN($A1))
とか。

>>666
すいませんでした

おれの部屋もCLEANしてほしい

【1 OSの種類 　 　 　 　 】 Windows7
【2 Excelのバージョン 　 】 Excel2010

ソートされている結果にコピー&amp;amp;ペーストをしたい
しかしソートされている結果が（シートA）
1　A　B
7　A　B
9　A　B
だとして別シートの（シートB）
1　A　B
2　A　B
3　A　B
を張り付けても
（シートA）では
1　A　B（そして非表示になっている2ABと3AB）にコピーされます。
1AB　7AB　9ABに一度にコピーするにはどうしたらいいでしょうか？

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

「コピー&amp;amp;ペースト」ってなぁに？

>>670
この板は文字実体参照を使えない

&#164;

>>669
2や3が非表示になっているなら、それはソートじゃなくてフィルタリングな
ソートは並べ替え

非表示行を抜かして貼り付けるって機能はないらしいので、
フィルタリング後の右側の空きセル（上の例だったら、Bとあるセルの隣を縦に3つ）を選択
→例えば○と入力してCtrl+Enterで複数同時入力（フラグを立てる）
→フィルタ解除し、最優先：フラグ列、第2優先：連番列で並べ替えして貼り付け

複数入力の前に可視セル選択しなくても大丈夫っぽいけど、そういうもんなんだっけ

OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】ほんのちょっとなら
【4 VBAでの回答の可否】簡単なのなら

コンボボックスに手を出したんですが
ttp://www.dotup.org/uploda/www.dotup.org4149674.gif
↑のようにアクティブの場合とじゃない場合でブレるんですけど、これデフォなんですか？
フォームのほうのコンボボックスはこうはならないんですが・・・

デフォです

ご不満ならMSに言ってください

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

質問させてください。
frequency関数を使用する時、データ配列に異なる列の値を入れたいのですが(具体的に言うとb2:b31とe2:e31の値を入れたい)のですが、カンマで区切ってしまうと{=FREQUENCY(B2:B31,E2E31,G10G15)}
という値になってしまいエラーが返ってきます。
カンマで区切ることができない場合はどのようにしたら良いのでしょうか。
今のところ以下のようにいれることで値をいれることが出来たのですが、値は入るもののやはりエラーが出てしまいます。
{=FREQUENCY(B2:B31:E2E31,G10G15)}
思いつくことはやったのですが、申し訳ありません。
皆目検討がつかないので、どうか教えてください。お願いします。

申し訳ありません。値が間違っていました。
正しくは、
{=FREQUENCY(B2:B31,E2:E31,G10:G15)}
と入れるとエラーが返ってきてしまい、数値がはいらない。
{=FREQUENCY(B2:B31:E2:E31,G10;G15)}
と入れると数値は入るもののエラーが出てしまう。
です。お願いします。

{　←これは何なのだ？

>>678
カーリー・ブレイス
血塗られた聖域

>>678
Ctrl+Shift+Enterで確定すると配列数式として入力できるのです。
{}は配列数式であるという括弧です。

エクセルの2010使ってまぁーす

マクロのボタンが灰色で味気ないんですけどー
色を付けてかわゆくできないのん？

>>681
ActiveXコントロールのコマンドボタンを使うとよいのでしゅ（＾▽＾）

デスクトップテーマ

「20：20」　+　「16：12」
の計算結果が16：12になってしまいます。なぜでしょうか？

>>684
ならねえけど？

２０：２０に全角文字が混じってるとか

>>682
�d
でけたよー

>>685
なるんだよぅ・・・

Hamburger Concerto /FOCUS
0:00 ? 1. Delitae Musicae 1:14
1:14 ? 2. Harem Scarem 5:52
7:06 ? 3. La Cathedrale De Strasbourg 5:00
12:06 ? 4. Birth 7:46
19:52 ? 5. Hamburger Concerto 20:20
16:12 ? 6. Early Birth 2:53
↑
一番最後のこれだけ計算違いしてる

「　＝　上のセル時間　+　右の右のセル時間」

>>686
半角だよぅ

>>688
Excelでは「分:秒」は入力できない
「12:34」のように入力すると、Excelは「時:分」と解釈する

秒を入れたい時は時を省略せず「0:分:秒」のように、いちいち0時を入力する
そして書式を「m:ss」に変えて秒が表示されるようにする

24時を越えて、翌日の16時になってんだよ

今月を 2013年4月
来月を 2013年5月にしたい
（今年の12月のときは来月を2014年1月）

以前教わったやつを改造したんだけど、うまくいかないです。
来月 = Format(DateAdd("yyyy", 1, Date), "yyyy") & "年" & Format(DateAdd("m", 1, Date), "m") & "月"

>>692
来月 = Format(DateAdd("m", 1, Date), "yyyy年m月")

今月 = Format(Date, "yyyy年m月")

>>690>>691
なるほど！　
承知しました。ありがとうございます。

さて困ったな、１セル１セル0を書き足してくのは面倒くさいな
そのお答えの感じだと他に楽な抜け道はなさそうだし・・

>>693-694
おぉぉ、シンプルでいいですね。
ありがとうございました。

>>695　Excelなんだから文字列関数で"0:"を付けてシリアルに戻せばいいじゃん

>>695
書式を[h]:mmにすれば25時以降が表示されるようになるから
あたかも分秒が入ってるように見せかけることは可能

>>697>>698
ありがとおぉぉぉぉぉ！！

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

A列に連番が入っています。2行で交互に背景色が塗り分けられています。
この条件で連番を入力する際、通常であればオートフィルを2行選択で行えば良いのですが
入力者がアルバイト等で、入れ替わりが激しく周知の徹底を行うのが手間です。
B列以降にデータが入力された時に自動で連番を増やす方法はないでしょうか？

A2=IF(B2<>"",A1+1,"")

>>701
それだと行の追加や入れ替えやソートなんかしたときに激しくズレるからやめたほうがいい

>>701
希望の動作ができました。ありがとうございます

>>702
おっと、そうなんですか
ソートした時も実データのほうを参照するのかと思ってました
ということはA1+1のところを実数で入れて、予め自分がオートフィルしておく
こんな対策をとればいいでしょうか

A2に =IF(B2<>"",OFFSET(A2,-1,0)+1,"") でいいんじゃない

【1 OSの種類 　 　 　 　 .】 WinXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
シートの保護をしている状態でリスト機能って使えないんですか?
編集させたくはないけどソート機能を使いたいというとき不便です…

>>700
当方２０１０なんだが２０１０でいう「テーブルとして書式設定」という機能が２００３だと「オートフォーマット」というのが
それということだが、その「オートフォーマット」使えば入力していくたびに交互に色が付いていく設定が出来るらしい

>>707
2003でも条件付き書式で出来ますから
http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1212270537

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

不規則な数字が複数あって、任意の数字と同じか超過する組み合わせを得るには
どうすればいいでしょうか？

例えば、
A2セルに　100　があり、これを任意の数字とします。
A列の3行目以降に　12、25、31、47、59、62　という数字があります。
これらを組み合わせて100または100に近く超過する数値を得ると
12 + 31 + 59 = 102　の組み合わせになります。
これらの数字はB列の3行目以降に書き出したいです。

>>709
IF関数じゃダメなの？
=IF(A3>=A2,A3,IF(A3+A4>=A2,A3+A4,IF(SUM(A3:A5)>=A2,SUM(A3:A5),IF(SUM(A3:A6)>=A2,SUM(A3:A6),IF(SUM(A3:A7)>=A2,SUM(A3:A7),IF(SUM(A3:A8)>=A2,SUM(A3:A8),IF(SUM(A3:A9)>=A2,SUM(A3:A9),IF(SUM(A3:A10)>=A2,SUM(A3:A10),""))))))))

アドインのソルバーで　しばらくぶりにやってみたらできた

>>710
関数でもいいですが、その関数だと　115　になりました。
得たい結果は　12、31、59　という組み合わせに使った数字です。
数字が出れば、合計値は簡単にできますので省きました。

補足
合計値は任意の数字（100）と同じか、またはそれを超過して一番近い値です。
　　　　　　　　　　　　　　　　　　　　　　　　　　　^^^^^^^^^^^^^^^^^^^^^^^^^^

全部の組み合わせを作ってその中から基準値を越えた最小の値を見つければいいんじゃない

>>712
25が抜けてるよ

714です
組み合わせなのね。申し訳

元の数字が6個なら組み合わせはわずか64通りだから、作業列を64列用意すればいい

>>716
6!で720通りじゃないか？

>>713
うーん、考え中・・・

>>714
すみません、意味がわかりません。

>>715
こちらこそ質問の仕方が悪くてすみません。

>>716
元の数字は今のところ14個が最大です。
作業列を作って、地味に計算するしかないですかね・・・

>>717
加算は交換法則が成り立つから2^6だよ
たとえば「47 + 59」と「59 + 47」は答えが同じだから片方は計算する必要がない

>>718
14個の数字なら16384通り
作業列でやってもいいしVBAでやってもいい
どっちでも一瞬で終わる

ためしに数字の組み合わせを1セット出してみ？

＞ためしに数字の組み合わせを1セット出してみ？

つ709

さっきも書いたけど　ソルバーいちどつくっとけば、パターン変わっても３秒で答えでるのに

>>719
なるほど、ありがとう。
しかし作業列・プログラムの作り方が思いつかんな
>>722
だな。

ワークシートだけでやってみた
ttp://www1.axfc.net/uploader/Sc/so/449930.zip
めっちゃ無駄の多い方法だけど

努力は認めるが、それは質問者の意図を汲んでいるのか？

どうしても作業列と関数だけでやるんであれば、14個の数値を横に並べて
縦にパターンの連番1-16384を作成。各行に連番を２進数にした１，０を１４個の数値の下に
並べて、１の入った数値の合計を行の端に入れる

>>726
まったく同じことを>>724がすでにやってる

あっそｗ

724も726も、何で横に並べるんだろう？

＞A2セルに　100　があり、これを任意の数字とします。
＞A列の3行目以降に　12、25、31、47、59、62　という数字があります。

　　A　　　B
1　
2　100　　102　
3　　12　　12
4　　25
5　　31　　31
6　　47
7　　59　　59
8　　62

こんな感じのを望んでるんじゃないの？

シートが縦長だからじゃないか？
俺も今回は724,726っぽく作ろうとした。

なんにしろ、行列を入れ替えてコピーすればいいだけだな

>>729
>>724みたいに組み合わせを全部シートに並べるような方法だと、組み合わせが多くなると列数が足りなくなる
2007以降なら15個までは縦並びでも行けるけどね

>>729
解が複数ある事を想定するとB列だけでは表現出来ないので
ある程度並べないと仕方が無い、という事じゃなかろうか

質問よろしくお願いします。
【1 OSの種類 　 　 　 　 .】 Windows xp
【2 Excelのバージョン 　 】 Excel　2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 不可


複数の人間が入力したエクセルの表を訂正する作業をしています。
具体的には全角数字を半角に書き換えるのですが、
[編集]→[検索]で全角「１」を拾っていくと、漢数字の「一」が
出てくることがあります。
（全てではなく、特定の個所で集中的に起こります）

さらに、「十」や｢百」すら出てくることもあります。

自分なりに考えてみたのですが、おそらく入力した人間が
「ひゃく」でなく全角「１００」から「百」に変換して入力していると
「百」の文字は変換前の「１００」を記憶していて
その全角「１」を拾ってくるのではないかと推論しました。

この、検索機能で漢数字を拾ってくる現象を
回避する方法はないでしょうか？

検索はふりがなも拾っちゃうからそれだろうね。
ふりがなを検索対象から外す方法は無いから、どうにかしてふりがなを削除するしかないね。
２００７でできるか知らんけど、

・シートの左上の全セル選択ボタン押して[ctrl]+[c]で全セルコピー
・「メモ帳」とかのテキストエディタにペースト
・ペーストしたのを[ctrl]+[a]とかで全選択してまたコピー
・Excelに張り付ける

とかでいけんじゃない？
一個一個消すとか、別シートにリンク貼り付けしてそれを値のみ貼り付けとかでも。

>>733
検索オプションの「半角と全角を区別する」にチェック

>>733
住所録の修正？
メモ帳にコピーして、もう一度Excelにコピーすると変換の情報が消える
こういうのはいちいち手作業で検索するんじゃなくてマクロでやるといいよ

【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】勉強中
【4 VBAでの回答の可否】 否
動的配列ってのを勉強したいんですが例えばA1-A4に1,2,3,4と書いてるとする
これを入れ替えるには
Sub test()
Dim a As Long
Dim b() As Integer
ReDim b(4) As Integer
For a = 0 To 3
b(a) = Cells(a + 1, 1).Value
Next
For a = 0 To 3
Cells(a + 1, 1) = b(3 - a)
Next
ReDim b(3) As Integer
b(a) = Cells(a + 1, 1).Value
Cells(a + 1, 1).Value = b(3 - a)でいいんでしたっけ？
インデックスが有効範囲にありませんと出るんだが

>>734-736
アドバイスありがとうございます。
住所録ではなく図書台帳のようなもので、ごく一部に
「半角にしてはいけない全角数字」が混じっているので
マクロで一括変換はできないのです。

来週、ふりがなを消してもいいか相談してみます。

>>737
どこまでが実際のコードなんだ？二つ目のFor-Next抜けたあとの
ReDim b(3) As Integer
b(a) = Cells(a + 1, 1).Value
ここまでか？

For抜けた後だからこの時点でaの中は4です。ReDimで要素数3に変更した後だから
インデックスが有効範囲にありませんとなります。
てか、動的配列としての使い方を学ぶような内容には見えないですよ。動的配列
ならReDim　Preserve使うような内容で勉強してみてください。

>>724
いいですね、ありがとうございます。
手作業でやるより、はるかに効率的にできます。
数式を入れるのがマンドクセーと思ったら、オートフィルでいけるのね。
14個バージョンをつくったら、1,982KBの巨大ファイルになりましたｗ

数字が合致したときは◎になりますが、近似値のときは
空白になるので、しきい値を設けてマクロで検索し、該当の行を
抽出することで実用的になりました。

>>729
確かに、709の例ではその構想でしたが、16,384行（または列）にもなると
縦長の方が扱いやすいです。

近似値が欲しいんならB列にオートフィルタ

動的配列さっぱりわかんねー
何かいい例題を出してください

>>742
要するに要素数が変更できる。
Preseve使うと、配列内のデータを保持したまま要素数を増やせる。
Preserve無しで要素数を変更すると配列内のデータは初期化される。
例えばA列を上から下まで参照して、数値データが有る場合のみ配列に保存するとしたら、

Dim i as long
Dim ct as long
ct = 0
Dim Hairetu() as string
Redim Hairetu(ct)
For i = 2 to cells(rows.count,1).end(xlup).row
if IsNumeric(cells(i,1).value) then
Redim Preserve ｈairetu(ct)
ｈairetu(ct) = cells(i,1).value
ct = ct +1
next

配列に入れたいデータが有るときだけRedim Preserveで要素数を増やすという感じ。
上のコードはVBE使わず今ここで書いただけなので誤字脱字あるかもしれません。

Hairetuて

>>743
これをコピペしたらnextに対応するforがありませんと出るんだが・・・

if IsNumeric(cells(i,1).value) then を end if で閉じてないから

>>745
そんぐらい自分で解決してください。

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

生年月日を1つのセルで扱っていて、隣のセルでMONTH関数で
誕生月を取り出すというデータを作りました。
しかし、生年月日の中には年が欠けたもの、月が欠けたもの･･･があります
###/1/1のように文字列として記述していましたが、これだと
シリアル値としてMONTH関数に代入できません。
年月日を個別のセルで扱う以外にうまい方法はないでしょうか？

ないです

>>748
正しくなるよう加工すればいいんじゃね？

どいつもこいつも使えねーヤシらだな

　 　　　　　　　　　　　 ,. ‐''￣ "' -､ 　 ,. ‐''￣ "'' -､
　　　　　　　　　　　　 /　　　　　 　 ヽ/　 　 　 　 　 ヽ
　　　 　 　 　 　 　 　 l　　　　　 　 　 l 　 　 　 　 　 　 l
　　　　　　　　　　　　l　　　　　　　　 l　　　　　　　　　 l
　　 　 　 　 ,. ‐''￣ "'' ､　　　 ,,. --‐┴─-- ､ 　　　 /￣ "'' -､
　　　　 　 /　　　　　 ,.-‐''"´ 　　　　　　　　　 ＼ _／　 　 　 　 ヽ
　　　　　 l 　 　 　 ／　 　　　　　　　　 　 　 　 　 ヽ　　　 　 　 　 l
　　 　 　 l　　 　 /　　●　　　　　　 　　　　　　　　 l　　　 　 　 　 l
　　　　　 ヽ　 　 l　　 　　　　(_人__ﾉ 　 　　 　 　● ヽ 　 　 　 　 /　　そんな事言われても
　　　　　　 ,,>-‐| 　 ´´ 　 　 | 　 /　　　　　　　, , ,. ‐''￣ "' -､／　　　　　　ウチ　ポン・デ・ライオンやし
　　　　　 /　　　 l　　　 　 　 ヽ_/　　 　 　 　 　 /　 　 　 　 　 ﾞヽ
　　　　　l　　　　　` ､　　　　　　　　　　　　　　 l　　　 　 　 　 　 l
　　　 　 l　　　　 　 ,. ‐''￣ "' -､ 　 ,. ‐''￣ "'' -､　 　 　 　 　 　 l
　　 　 　 l,　　　　 /　　 　 　 　 ヽ /　　　　　 　 ヽ,　　 　 　 　 /
　　　　 　 ヽ､,,　　l 　　 　 　 　 　 l　　　　　　　 　 l,,,＿＿_,,,／
　　　　　　　　 "'''l 　 　 　 　 　 　l 　 　 　 　 　 　 l
　 　 　 　 　 　 　 ヽ　 　 　 　 　 /ヽ　　　　　　　 /
　　　　　　　　 　 　 ヽ,＿＿_,,,／　　ヽ,,＿＿_,,,／
　　　　　　　　　　　　 　 　 　 /　　　　 |
　　　　　　　　　　　　　　　　/　　 　 　 |

古い

こういうのはシリアルを完全に入力するか年月日をそれぞれ別セルに入れるかしかない
それ以外の方法はないということはExcelの使い方を知ってる人間なら直感的にわかる

>>748
###/1/1なんてわけわからん入力方法を改めて個別のセルに入力してください。
どういう理由で個別セルへの入力が不許可なのかは知らんけど入力方法がすでに
エクセルの常識に反してるのでそこを直さずに対処しようってのは無理があります。

FindかSearchで/の位置を調べてLenとLeftかRightかMidを組み合わせて文字を削って
そいつからさらに/を調べて文字を削って、、ってやればいけんじゃね

セル分けた方が入力もデータの使用も数倍楽なきがするけど。

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

アンケートの集計するのにスピンボタン使ってるんだけど
形がこんな感じ http://i.imgur.com/bVtwOS0.jpg
B列のスピンボタンを押すとB3に「1」と入るようになってるんだけど
下にあるでかいスピンボタンを押すことで数字の入るセルがB4、B5って変わっていくようにするにはどうしたらいい？

>>754-756
ありがとうございます。お客様からの情報なので
どうしても記入漏れが発生するのです。###の部分はどうでも良いのですが
シリアル値で扱った場合、未入力だと現在の年数になってしまいまして。
1セルで未入力を扱う方法を知らず
隣のセルで年齢を求めている点、入力担当が別におり
セルは分けずに入力しやすくしてくれと言い渡されている点で
1セルで取り扱っておりました。

仮に別セルで扱った場合、それらを結合して年齢を求める値として
扱うと考えれば良いでしょうか？

お好きな様になさってください

>>759
最初の質問からみると、##と記入されていてもそれを無視して出来るだけ計算するのが目的かと思った。
間違った計算を防いで未記入の欄は計算させないようにしたいのか？

>>758
それ、便利ですか？？

>>761
はい、私の認識が間違っていなければそれで問題ないかと思います
(1)生年月日から現在の年齢を算出出来る。　↓のような式で算出していました
　　=IF(OR(COUNTIF(E2,"*###*"),E2="")," - ",DATEDIF(E2,TODAY(),"y"))
(2)未入力項目を容認する　→未入力がある場合は算出出来なくても良い
(3)誕生月を抽出し、リスト(テーブル)でソート可能

要望をまとめるとこんな感じです。入力、表記の都合上1セルであれば尚良いですが
Excelで扱うのが難しい形式になるということであれば
別列なり別シートなりで対応することになるかと思います。

>>762
これしか思い付かなかった

Firefoxで2chを見ている事に驚きを隠せないでいる

>>758
選択したセルに入力するという仕様と仮定
選択したセルを変えると考えると
Sub a()
Cells(ActiveCell.Row + 1, ActiveCell.Column).Select
End Sub
こんな感じで変えられる。
個人的には一から作りなおしたほうがよさそうなシートだとは思います…。

>>763
誕生日おめでとう的な案内でも送るのかな。なんでもいいか
メニューのデータ、区切り位置で「/」の文字でセルを分割するのが一番早いと思う。
そのままやると入力位置（B列）にかぶってしまうので、
一度C列にコピーしてからやると良いんじゃないかな
そして並び替えが終わったらC列、分割で発生したDE列を消せば問題なし。

数式で無理やり解決できなくもないけど、めんどくさい

>>765
ひろゆきもIEだし、そんなに来に線でも

>>763
MONTHで月を出すとこでIFとFIND使って、＃が含まれる場合は数字じゃなく文字列出すようにして
年齢計算出来ないようにするとかだめかな。

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

小売をしています。プライスカードを頻繁に取り替えるため、リストを作り管理していました。毎回書き直すのは面倒なので、リストを書き直したら、自動的にプライスカードのシートに反映させることは出来ますか？

定価と販売価格や品番を反映させたいです。

よろしくお願いします。

>>769
>出来ますか？

はい、出来ます。

行間を読めないバカは死んでろ

>>769
＞よろしくお願いします。

こちらこそよろしくお願いします。

>>771
シート名もセル番号もリストの仕様も何も書いてない状態で「できます」以外のレスができるわけないだろ

=シート名!セル番号

と書いとけば同じ数字が自動的に入る

バカじゃねーの

>>769
vlookup関数　でぐぐればok
大体使い方はわかると思う

流石にぐぐればすぐわかる質問しちゃだめだと思う

どんなくだらない質問でも俺が答えてやるから遠慮すんな
ただし俺がネットを見るのは月に数回だけどな
いつか自分のパソコン買ってやる

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 ３行程度の簡単な命令を組み合わせられる程度
【4 VBAでの回答の可否】 可

セルの入力規制について

入力用セルE5〜E15に対して、入力者には所定の文字列を入力させたいが、
その「所定の文字列」は70組程度ある為、一般のリスト機能では探すのが煩雑だったりする。

そこで、その入力用セルに所定の文字列の一部を入力すれば、
その一部を含む文字列のみがリスト表示され、
文字列を追加するごとにリスト内の文字列が絞られていくようにしたい。

可能でしょうか？

>>778
コンボボックスを使ってみては？

>>779
後だしで申し訳ないですが
コンボボックスは使わずに、です。

やろうと思えば何でもできる

エクセルだもの

所定の文字列が何か書かないと。
70「組」ってことは、分類分けされてるのか？

>>778
無理だな
もうちょっと何かを妥協してくれ

>>778
オートコレクトなら一度入力した文字や値を記録して次回入力時になぞらえるように表示する機能があるよ
※別称：おせっかい機能　

どいつもこいつも使えねーヤシらだな

>>782
リストフィールドに70の単語が入っている感じです。

例）
　 A
１消耗品費
２一括償却資産
３事務用品費
４　...
...
70事故費


>>783
妥協点は、「文字列を追加するごとにリスト内の文字列が絞られていくようにしたい」です。
この部分は無くてもOKです。
一行上の「その一部を含む文字列がのみがリスト表示される」が達成された時点で満足です。

>>784
オートコレクトは、別のPCでも利くもんですか？
リスト内の文字列と、その入力用セルに入力された文字列が同一であることを認識して
一意の結果が得られるなら、オートコレクトを利用したVBAでもありです。

ややこしくて申し訳ないです。

入力させるやつに70項目を暗記させて, 数字だけ入れさせればいいじゃん

はい、次の方〜

>>787
やっぱそうなるかな。
実は最初数字入れる形にしてたんだけど間違えるバーロのおばちゃんが続出だったから止めたんだ。

イメージ的にはGoogleの検索なんだけど、上手くいかないもんだね。

>>788
そりゃコンボボックス禁止なんて前提条件つけたらね・・・

入力する紙のページごとにコードのチェックサムだしといて、入力後、Excelで
集計したチェックサムと照合するとか

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

範囲A:A（あるいは、A1:A1000）の計算結果を、A:xxx セルに入れたいのですが、
循環参照になります。
関数を入れるセル番号だけ、範囲除外するにはどうしたらいいですか？

列を挿入したり、列を削除したりで、関数が入っているセル番地は固定されていません。

範囲A:A（あるいは、A1:A1000）の計算結 - A:xxx

あﾞーーーーーーーーーーーーーーーーっ！

果が抜けてたーーーーーーーーーーーっ！

>>792
関数が入っているセル番地（行）は固定されていないので、
Axxxをどうやって指定すればいいですか？

つまり、
『A:A から「このセル（A列のなかにある）」を除外した範囲』は
どのように記述すればいいですか？

>>794
=SUM(A1:INDIRECT("A"&ROW()-1))+SUM(INDIRECT("A"&ROW()+1):Axxx)

計算結果とあるが　SUMだとは書いてない

>>795
有難うございます。
=SUM(A1:INDIRECT("A"&ROW()-1))+SUM(INDIRECT("A"&ROW()+1):A1000)
でうまくいきました。

これで、会社のおじちゃんとおばちゃんが適当にいじっても、
「計算できなくなった、おかしい」と言われずにすみます。
どうも有難うございました。

>>796
SUM関数ではありませんが、そこは適当に置き換えます。
お気遣い感謝です。
どうも有難うございました。

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

a b
12/01 9
12/01 3
12/02 5
12/04 6
中略
12/28 3
12/30 7
12/30 4
12/30 2
12/31 1

上記のように、a列に日付、b列に数値があります。そして、

12/01から12/07のb列の合計
12/02から12/08のb列の合計
12/03から12/09のb列の合計
中略
12/23から12/29のb列の合計
12/24から12/30のb列の合計
12/25から12/31のb列の合計

という、７日ごとのbの合計数をまとめて計算・表示する方法を教えてください。
どうぞよろしくお願いします。

>>799
1日〜7日の合計は
=SUMPRODUCT(B1:B999*(DAY(A1:A999)>=1)*(DAY(A1:A999)<=7))

条件式の「>=1」と「<=7」が日付の範囲

>>786
Vlookupに部分一致が使えるので
=VLOOKUP("*"&入力セル&"*",リスト,1,FALSE)
で引っ張れるよ

>>800
すみません、それだと計算結果が合計と違います。
あと、1〜7日、2〜8日、…25〜31日の結果をまとめて出すにはどうすればいいでしょうか?

C列を作業列にして１週間ごと（？）の判定用の列にして、ピボットでいけんじゃないの。

C列は、=int((a1-"12/01")/7)みたいな感じで。

>>799
特に数式使って計算する必要がないなら
ピボットテーブル使って表示してグループ化で良くないか

元データが999列より多かったというオチじゃね？
数式を楽に増やしたいなら日付の指定にROWでも使って下方向にコピペ
=SUMPRODUCT(B1:B9999*(DAY(A1:A9999)>=ROW())*(DAY(A1:A9999)<=ROW()+6))

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

このようなファイルがあります。
計画表（13.4）04_25.xlsx, 計画表（13.4）04_26.xlsx, 計画表（13.4）04_30.xlsx, ・・・

これらの中では、ひとつだけ開いてることを条件とし、
次の動作をさせたいのですがエラーになってしまいます。
どこを直せばいいでしょうか？

動作
・ ブック名のカッコ内（年.月）にある月の数字を変数m2に入れる
・ N1セルに数字があり、m2と同じならYes、違うならNoとメッセージを出す

Sub test4_30()
　For Each wb In Workbooks
　　If Left(wb.Name, 4) = "計画表（" Then
　　　If Right(Left(wb.Name, 9), 1) = "）" Then
　　　　m2 = Right(Left(wb.Name, 8), 1)
　　　Else
　　　　m2 = Right(Left(wb.Name, 9), 2)
　　　End If
　　　If m2 = Workbooks(wb.Name).Range("N1").Value Then　←エラー※
　　　　MsgBox "Yes"
　　　Else
　　　　MsgBox "No"
　　　　Exit Sub
　　　End If
　　End If
　Next
End Sub
※オブジェクトは、このプロパティまたはメソッドをサポートしていません

>>806
Workbooks(wb.Name).Range("N1").Value
ワークシートの指定が抜けてるよ

>>801
ありがとうございます。
でも残念ながら、ちょっと意図が違っててですね。。

イメージとしては、
入力用セルには直接手入力します。
その時にリストボックスに候補が現れて入力内容によって動的にリスト内容が変わり、
かつリスト内の候補をクリックすると、その手入力していたセルの内容が確定する。
そんな感じです。

つまりここで伺いたかったことは、上記の動作を満たすVBAがあれば伺いたい、ということでした。

そういう意味ではコンボボックスも、例えば「その入力用セル（例では10セル程度）の、どれかをクリックするとコンボボックスが立ちあがり、
コンボボックスを利用して入力を確定したら、そのクリックした入力用セルに結果が帰る」という手合いのものであればアリです。

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

2010を使っています。

一つのセルに100から400字ぐらいの日本語の文章が入力されています。
この文章の色はセル自体は基本色で、文章内のところどころに赤色を付けています。
（イメージとして、文章の重要な語句をめだたせているような感じです）

目標は、このようなセル内のテキストデータを構造化して取得することです。

質問なのですが、関数を用いて上記の色の変化した語句だけを抜き出すことは可能でしょうか？
あるいはVBAなどを用いる方法でも構いませんし、別の解決策として
HTMLのコードとして色の付いている箇所だけをマークアップする方法でも良いです。

上記ようなセルが全部で数千個もあるため、できれば手作業は回避したいところなのです。

よろしくお願いします。

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

Excelで普段使うファイルをタスクバーに入れて「いつも表示」にピンしているのてますが、他のファイルを色々使っていると、いつの間にか「いつも表示」がなくなってしまいます。これは仕様なのでしょうか？

>>810
それはExcelの問題ではなく、タスクバーの問題。
http://www.losttechnology.jp/Win7/jumplist.html

>>809
構造化ってのがよくわからんが。
１）ワードにこぴーして
２）黒文字を消して
３）赤文字のみエクセルに戻す

こんな感じでは駄目ですか。

>>809
Excelは基本的にセル単位でなんやかんやするもの
VBAでやるにしても、そもそも手入力で色分けしてるようなテキストを構造化するとか意図がわからない

データを分析したいなら、最初からそれなりのフォーマットのデータを作成しないと。
とりあえずどういうデータか具体的に幾つか示してみ

>>809
赤文字を全部繋げてひとつの文章にしたいの？
セルの中に赤文字だけ残したいの？

セルに残す必要が無いのなら、Wordに表をコピペして、赤文字を１文字選択。
ホーム→編集→選択▼→類似した書式の文字列を選択　で、
赤文字だけを選択できる。
どこかにコピペすると、セルひとつごとに改行が入る。

セルの中に赤文字を残したいなら、黒（自動色）文字を上記の通りに
類似した〜で選択して削除。
数字と記号と文字という種別ごとに、
いちいち選択して削除を繰り返す必要があるかもしれない。
赤文字だけ残ったら、表をコピーしてExcelにペースト。

>>809
Sub 選択範囲の赤文字を抽出()
Dim wd As New Word.Application
Dim doc As Word.Document

Selection.Copy

wd.Visible = True
With wd.Documents.Add
.Range(0, 0).Paste
.Content.Select
With wd.Selection.Find
.Font.ColorIndex = 1
.Replacement.Text = "^t"
.Execute Replace:=wdReplaceAll
End With
.Tables(1).ConvertToText
.Content.Copy

Worksheets.Add
ActiveSheet.Paste
ActiveSheet.UsedRange.Columns.AutoFit

.Range(0, 1).Copy
.Close wdDoNotSaveChanges
End With
wd.Quit
End Sub

ようわからんけどhtmlで書き出してstyle設定してあるとこ拾えば済む話じゃないのそれ

MS Office の吐き出すhtmlは汚すぎる

必要な部分を抽出するだけの話なら、どんなに汚くても関係ないし

ワークシートをhtmlで保存すると、色の付いた文字は必ず一定のFONTタグで囲まれる
テキストエディタとかストリームエディタを使えば簡単に抽出できる

何がやりたいのか今ひとつよくわからん
たぶん俺ならVBAで一文字ずつ色のチェックするソフトを書く
せめて元の文章と、それがどうなってほしいのかっていう具体例がないと着手する気になれん

>>816
その発想はなかった
一文字一文字色を判定するマクロしか思いつかなかったわ

>>812-820 のみなさん、沢山のレス本当に有難うございます。

>>812
>構造化ってのがよくわからんが。

たとえば次の14文字の文字列があるとします。

普通の文字赤い文字普通の文字

この14文字の文字列がセルに含まれていて、"赤い文字"の4文字だけが赤くスタイライズされています。

この文字列を、どのような形式でも構わないので
普通の文字/赤い文字/普通の文字
という形に分解したいのです。

HTMLで

普通の文字<em>赤い文字</em>普通の文字

のようにマークアップ出来ればゴールです。
（極端に言えば、実際に文字列を所得しなくてもスタイルの切れ目の位置を知るだけでも良いのです）
ここで処理する対象はエクセルのデータなのですが、適切に処理をしたあとでデータベース（たぶん MySQL）に保存して別のスクリプトから再利用します。
ですから、文字列を分解してしまいさえすれば単なるテキストが取得出来ればよいのです。

>１）ワードにこぴーして
>２）黒文字を消して
>３）赤文字のみエクセルに戻す

に関しては、 "２）黒文字を消して" というのは >>814 さんの言う "類似した〜で選択して削除" ですね。
勉強になります。

>>813
>Excelは基本的にセル単位でなんやかんやするもの

そうだろうとは思っていましたが、やはりそうですよね。

>VBAでやるにしても、そもそも手入力で色分けしてるようなテキストを構造化するとか意図がわからない

>データを分析したいなら、最初からそれなりのフォーマットのデータを作成しないと。

別の部署の作成したデータなんです。
社内で扱う様々な用語集で、重要な箇所だけ赤くしています。
もともと白黒印刷だけだったのですがいつ頃からか2色ずりするようになり、そのときにエクセルのセルの中の任意の範囲を選択して赤く色付けしていったらしいです。
これまで自分は全く今まで関わっていなかったのですが、そのデータを元に CMS を作成することが決まり、元のデータを先日はじめて目にして頭を抱えてしまったわけです。
形態素解析をしてコンテンツ間で相互参照できるようにするのが私の仕事で、同時に元のデータの赤い文字を重要語句としてマークアップすることが求められています。


>とりあえずどういうデータか具体的に幾つか示してみ

上に示したようなものです。実際には一つのセルに100文字ぐらい含まれており、その中に赤くスタイルづけされた箇所はほとんどの場合複数ヶ所あります。

データの作成の段階から私が関わっていれば別の提案もできたかもしれませんが、昔からの経緯もあるのでまぁ仕方ないです。

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

>>814
>赤文字を全部繋げてひとつの文章にしたいの？
>セルの中に赤文字だけ残したいの？

説明が足らなかったようで申し訳ありません。上記のように、元の文字列を分解したいのです。

>セルに残す必要が無いのなら、Wordに表をコピペして、赤文字を１文字選択。
>ホーム→編集→選択▼→類似した書式の文字列を選択　で、
>赤文字だけを選択できる。
>どこかにコピペすると、セルひとつごとに改行が入る。

>セルの中に赤文字を残したいなら、黒（自動色）文字を上記の通りに
>類似した〜で選択して削除。
>数字と記号と文字という種別ごとに、
>いちいち選択して削除を繰り返す必要があるかもしれない。
>赤文字だけ残ったら、表をコピーしてExcelにペースト。

この方法は今まで知らなかったのですが、とても便利に使えそうです。
赤と黒の文字をそれぞれ抽出して元のデータと差分を計算するとほとんどの場合望んでいる結果が得られるのではないかと思います。
一意に定まらない曖昧なデータに遭遇した場合だけ手動で調整する必要は出てくるでしょうが、概ね問題ないと予想しています。
詳しい方法を教えていただきありがとうございました。

>>815

>>814 さんの方法をさらに Word と連携の VBA で実現ですね！
これをチューニングすれば思い通りの結果が得られそうです！
きっちり動作するマクロでした。
本当にありがとうございました。

>>816
>ようわからんけどhtmlで書き出してstyle設定してあるとこ拾えば済む話じゃないのそれ

そうですね。
エクセルの書きだすHTMLコードに、ルビを含めて膨大な付加データがあったので敬遠してしまいましたが、パターンはそれほどたくさんないので丁寧に加工すれば望みの結果が得られそうです。

>>817
>MS Office の吐き出すhtmlは汚すぎる

同意します。97の頃からほとんど変わってないような気もしますが、今更変えようもないのかもしれません。

>>818
>必要な部分を抽出するだけの話なら、どんなに汚くても関係ないし

そうですね。なんとなく >>817 さんのように嫌ってしまっていて、もしももっといい方法があればと思ったのですが。。。

みなさん、ありがとうございました。

>>819
>ワークシートをhtmlで保存すると、色の付いた文字は必ず一定のFONTタグで囲まれる
>テキストエディタとかストリームエディタを使えば簡単に抽出できる

そうですね。落ち着いて丁寧に見れば解決できるはずです。ご指摘ありがとうございます。

>何がやりたいのか今ひとつよくわからん

説明が足らずに申し訳ありませんでした。上で述べたように、同僚の作成した社内マニュアル（のようなもの）を元に、赤文字の箇所だけマークアップして再構成する必要があったのです。

>たぶん俺ならVBAで一文字ずつ色のチェックするソフトを書く

これは Excel オブジェクトのみの API で可能なのでしょうか？

>せめて元の文章と、それがどうなってほしいのかっていう具体例がないと着手する気になれん

説明不足でごめんなさい。


皆さんたくさんのご意見まことにありがとうございました。m(__)m
とりあえず >>815 さんに書いてもらったマクロを元にして作業進めようと思います。
みなさん本当に感謝、感謝でございます。

おやすみなさい /~