Excel総合相談所 62at BSOFT
Excel総合相談所 62 - 暇つぶし2ch1:名無しさん@そうだ選挙にいこう
07/11/16 21:02:45
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やヘルプで検索してみてください。
  URLリンク(www.google.co.jp)

前スレ
Excel総合相談所 61
スレリンク(bsoft板)l50


2:名無しさん@そうだ選挙にいこう
07/11/16 21:03:20
▼━質問時の注意・決まり事━━━━━━━━━━
・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 書籍や解説サイトの紹介依頼はスレ違い。ここは技術的な質問のみで。


3:名無しさん@そうだ選挙にいこう
07/11/16 21:04:17
★ルールを無視すると…
 >>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分野の話ではないので、ここでは聞かないでください。


4:名無しさん@そうだ選挙にいこう
07/11/16 21:05:37
★ 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セルを分割 (分割したいセル以外を結合)

5:名無しさん@そうだ選挙にいこう
07/11/16 21:07:04
★ Excelで出来ないこと、仕様上の制限 (括弧内は代用法)

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

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

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

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

6:名無しさん@そうだ選挙にいこう
07/11/16 21:07:37
上記 「Excelで出来ないこと、仕様上の制限」 は、一般的に出来ないとされていること、出来ないと思われるものです。
間違いがある可能性もあるので、上記に挙がってるもので「コレはこうすれば出来るよ」というものがあったらご指摘ください。
Excel2007についても未確認な項目が多いので変更点が有ればご指摘下さい。

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

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


7:名無しさん@そうだ選挙にいこう
07/11/16 21:08:12

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


8:名無しさん@そうだ選挙にいこう
07/11/16 21:17:28
>>7


9:名無しさん@そうだ選挙にいこう
07/11/16 21:31:42
>>1-7乙

10:名無しさん@そうだ選挙にいこう
07/11/16 21:33:49

   *推奨NGトリップ*
    ◆adhRKFl5jU



11:名無しさん@そうだ選挙にいこう
07/11/16 21:55:15
せんせーの人気に嫉妬

12:たけぞう
07/11/16 22:57:15
初歩的な質問なんですが・・・

セルに 1 を入力してユーザー定義で 1.00本 と表記されるように設定しました。

小数点第2位まで見えるように設定したのですが、1.00本の場合や 1.20本の場合 0 を省く事はできるでしょうか?

例えば
1本
2本
2.12本

てな感じです。

小数点以下の 0 を見えなくする方法おしえてください。

13:名無しさん@そうだ選挙にいこう
07/11/17 01:03:47
初歩的な質問じゃないと思うな。

14:名無しさん@そうだ選挙にいこう
07/11/17 01:13:54
俺なら安易にVBAに頼ってしまうけどな。

15:名無しさん@そうだ選挙にいこう
07/11/17 01:21:12
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2007
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 可

Excel2007で、小さいテキストボックスに長い文字列を書くと
テキストボックスの外側まで文字が表示されてしまいます。

Officeのサポート技術情報によると
「Excel 2007 のテキスト ボックスに文字列を入力すると
文字列がテキストボックスの外側にも表示される」のは仕様
らしいのですが、これをExcel2003以前のように、外側には
表示されないようにする方法はありますか?

小さいテキストボックスに長い文字列を書いてExcel2003で
保存し、そのファイルをExcel2007で開くと、従来通りの表示
(テキストボックスの外側には表示されない)になるので、
なにかしら設定があるのではないかと思うのですが。

16:名無しさん@そうだ選挙にいこう
07/11/17 01:23:59
>>12
書式設定だけで末尾のゼロを消すのは無理だと思う。

=SUBSTITUTE(TEXT(A1, "#.##本"), ".本", "本")

これで表示は希望通りになるけど、文字列に変換されちゃうから計算はできなくなる。

17:名無しさん@そうだ選挙にいこう
07/11/17 02:01:18
書式を

G/標準"本"

として、セルには少数以下2桁までしか入力しない、ってのはどう?

18:名無しさん@そうだ選挙にいこう
07/11/17 05:20:05
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2002と2003で動作したい
【3 VBAが使えるか    .】 少し
【4 VBAでの回答の可否】 可

名前をつけて保存時に、ファイル名のあとに日付を強制付加して保存させたいのですが、
そのやり方を教えてください。

GetSaveAsFilenameにてあらかじめ日付を表示させたダイアログを開くことは
できましたが、入力時に消してしまったり、日付がファイル名の前に来て保存したりするケースが
あります(私以外の人間も使うエクセルシートのため・・)

そこでファイル名が何であれ、○○○ 20071117.xls (○○○が任意のファイル名)の形で
強制的に保存させる方法があればお教えください。


19:名無しさん@そうだ選挙にいこう
07/11/17 05:45:45
すみません。できそうです。
保存ダイアログの前に、フォームを表示させて、そこにファイル名を入力したら
ファイル名+日付をダイアログの入力欄に表示って感じで。
ありがとうございました。

20:たけぞう
07/11/17 05:51:14
>>16,17さん

ありがとうございます。

17さんので解決しました

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

21:名無しさん@そうだ選挙にいこう
07/11/17 09:27:25
ふつー >12 の回答としては
書式設定 0.??"本"
だと思うんだけどな。
整数のときも小数点が消えないけど。

22:名無しさん@そうだ選挙にいこう
07/11/17 09:34:36
XP 2003 
jマクロを含んで、1.3Mのブック(データシート、出力シート(indexmatch等の関数あり))の、データシート(入力規則あり)のセルの横移動において、非常に重くなったが、軽くする方法はありませんか?

23:名無しさん@そうだ選挙にいこう
07/11/17 11:25:54
WindowsXP Pro, Excel2000を使っています。
address(x1,x2)を使って、
他のワークシートのセルを参照するのはどうすればいいんでしょうか。

1) sheet1!A1
2) sheet1!address(1,1)
3) sheet1!indirect(address(1,1))

1)は通ります。2)と3)が通らなくて困っています。

24:名無しさん@そうだ選挙にいこう
07/11/17 11:37:44
>>21
そんなのわかった上でできるだけ要望通りにしようとしてるだけだろ

25:名無しさん@そうだ選挙にいこう
07/11/17 11:58:26
>>24
VBAでSheetCalculateイベントなどを拾って表示形式を自動的に変更する

26:名無しさん@そうだ選挙にいこう
07/11/17 13:13:05
>>18
ThisWorkbook.SaveAs Filename:=

日付や固定の部分はセルにでも書いておけば?

27:名無しさん@そうだ選挙にいこう
07/11/17 15:07:08
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2003

キーボードの上下左右のキーでセルを編集するときの黒い枠を動かすことができなくなり,
勝手にスクロールしてしまう状況に陥りました.
元に戻すにはどうすればいいのでしょうか?

28:名無しさん@そうだ選挙にいこう
07/11/17 15:23:50
>>27
Scroll Lockのボタン

29:名無しさん@そうだ選挙にいこう
07/11/17 15:31:12
>>28
解決しました.ありがとうございました.

30:名無しさん@そうだ選挙にいこう
07/11/17 15:43:39
時刻の列を作り入力、書式はhh:mm、降順で並べ替えしたらhhが一桁の行が上に来てしまうのを何とかしたい。

[セル内]  [数式バー内]
 07:00 → 7:00:00
 06:00 → 6:00:00
 05:00 → 5:00:00
 19:00 → 19:00:00
 18:00 → 18:00:00
 17:00 → 17:00:00

31:名無しさん@そうだ選挙にいこう
07/11/17 16:44:44
>>30
=TEXT(A2*24,0)みたいな作業列を作って並び替えでは?

32:名無しさん@そうだ選挙にいこう
07/11/17 16:46:13
>>30
hh:mmで同じデータ入れてみたらちゃんと並ぶんだんだが。
Officeのバージョンは?

33:名無しさん@そうだ選挙にいこう
07/11/17 17:29:28
>>23
> 2)と3)が通らなくて困っています。
当たり前だろ

=INDIRECT(ADDRESS(1,1,,,"sheet1"))
=INDIRECT("sheet1!"&ADDRESS(1,1))

34:名無しさん@そうだ選挙にいこう
07/11/17 18:32:41
>>21
小数点が残るのは具合悪いんじゃない?見た目もカッコ悪いし、
元の質問の例でも小数点は書いてないし。
それを消すのが意外に面倒だから、回答者も色々と考えてるんでしょ。

35:名無しさん@そうだ選挙にいこう
07/11/17 19:35:05
>>31,32

Office2003Pro

日付    曜 時刻
07/11/16 金 07:25
07/11/16 金 06:00
07/11/15 木 07:00
07/11/15 木 21:29
07/11/15 木 21:29
07/11/15 木 21:29
07/11/15 木 21:12
07/11/14 水 07:30
07/11/14 水 21:26
07/11/14 水 21:26
07/11/14 水 21:14
07/11/14 水 21:11
07/11/14 水 21:11
07/11/13 火 06:30
07/11/13 火 21:35
07/11/13 火 21:35
07/11/12 月 06:00
07/11/12 火 20:54
07/11/12 火 20:54

データはアクセスからエクセルにエクスポートしたもので、レコードは600くらい。
最優先を日付、2番目を時刻にしたらこうなった。一部分を抜き出して新しいシートにコピペしたら出来た。
元のシートに戻り、今度はそれぞれ単発で時刻→日付の順で2回並べ替えをしたらちゃんと並んだ。
こういうものなの?


36:名無しさん@そうだ選挙にいこう
07/11/17 22:00:31
時刻が日付も隠し持ってるとか

37:名無しさん@そうだ選挙にいこう
07/11/18 02:49:24
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2003
【3 VBAが使えるか    .】 ちょっとだけ
【4 VBAでの回答の可否】 可

ホームページで住所などが一覧で表示されているものをコピーしてエクセルに張り付けると
名前
住所
電話 (複数のデータなのでこれの繰り返し)
と縦(列)にて表示されます。これをA列:名前、B列:住所、C列:電話
と横並びにしたい場合どのような方法があるか教えてください。
件数が1000件近くあって、コピーして形式の選択をして貼り付けで行列入替えの方法は取れません。


38:名無しさん@そうだ選挙にいこう
07/11/18 03:02:15
>>37
きっちり3列間隔に並んでいるか、あるいは「住所」などのキーワードが必ず含まれているなら、
フィルターを使って選択、別シートに貼り付けという作業を名前、住所、電話の3回やればいい。

ホームページに置いてあってデータがテーブルタグで囲まれているなら、エクスポートした方が
作業しやすいかもしれない。

いずれにしろ元データの状態によっても方法は色々と変わってくるので、具体的なデータがないと
具体的なアドバイスも無理。

39:37
07/11/18 03:54:16
たとえば
URLリンク(www.toben.or.jp)
こんなページです。



40:名無しさん@そうだ選挙にいこう
07/11/18 04:02:57
【1 OSの種類         .】 Windows2000
【2 Excelのバージョン   】 Excel2000
【3 VBAが使えるか    .】 少し
【4 VBAでの回答の可否】 可
【5 検索キーワード     】 ダイアログ 条件分岐 VBA

ボタンをクリックすると印刷されてブックをフォルダに保存するマクロを作ったのですが
内容に間違い(主に日付)があってもそのまま印刷されてしまうので
間違いがあった場合に「日付が違うけどいいですか?」「はい」「いいえ」
といった感じのダイアログをだして「はい」の時は印刷&保存
「いいえ」の時はなにもしない
というマクロを作りたいのですがどのようにすればいいのでしょうか?
上記の日付は常に決まったセルに入力してあり、それが本日の日付か否かで
判断をするといった形です
宜しくお願いします

41:名無しさん@そうだ選挙にいこう
07/11/18 04:21:58
>>40
If Range("A1") = Date Then
'印刷するコード
Else
MsgBox ("日付が違うけどいいですか")
End If

42: ◆aUy/vm1yC.
07/11/18 05:22:43
環境:WindowsXP Excel2002
質問:Application.OnTime に関して
 マクロを編集していたところ、今まで利用していたOnTimeの処理が実行されなくなりました。
 色々調べた結果、最終的に下記の状況で発生することがわかりました。

新規Microsoft Excel ワークシート.xlsを作成し、シートには何も無い状態で
マクロを以下のように記述しました。

ThisWorkbookのマクロ---------------
 Private Sub Workbook_Open()
  UserForm1.Show
 End Sub

Module1マクロ---------------
 Sub aaa()
  Application.OnTime TimeValue("03:00:00"), "bbb"
 End Sub

 Sub bbb()
  Range("A1").Value = 1
 End Sub

  * もともとの発生状況ではシートやUserForm1や他マクロにも色々な内容を含みますが、
  * 上記の最小の構成にて発生するので割愛させていただきます。

この様な内容のブックにおいて、OnTimeマクロが動きません。
問題はUserForm1.Showに有るらしく、UserForm1.Showを無くすとなぜかOnTimeマクロが実行できます。
ちなみにUserForm1は起動時に開かれて、そのまま×でウィンドウを閉じて、("03:00:00")の処理を待っています。
VBAに関してあまり詳しくないのですが、UserForm1.Showを使いつつOnTimeを利用する方法として
上記内容のどのあたりに問題があるのでしょうか?
解決策をご教示ください。

43:42 ◆aUy/vm1yC.
07/11/18 05:48:18
すみません。
解決しました。 Application.Run "aaa"をWorkbook_Openに入れなければいけないのですね。
 UserForm1.Showも関係ないみたいでした。すみません。


44:名無しさん@そうだ選挙にいこう
07/11/18 05:48:24
>>41
こんな夜中に有難うございました
早速実行してみまして
申し訳ありませんが重ねて質問です
A1の部分が日付の入ったセルということでいいんですか?
そして、そこに入力されている値が今日の日付で無いならばElse以降の処理
今日の日付ならばそのまま処理といった形にする場合

If Range("S23") = TODAY() Then
とやってみたのですが
コンパイルエラーと出てしまいます
どのようにすればいいのでしょうか?

45:名無しさん@そうだ選挙にいこう
07/11/18 05:55:43
>>44
余計なことしないでDateのまま使え

46:44
07/11/18 05:55:51
すみません、自己解決しました
せっかく>>41にDateと書いてあったのに・・・
Today関数はVBAには無いんですね(汗

有難うございました、望んでいるものがおかげで出来ました

47:名無しさん@そうだ選挙にいこう
07/11/18 06:14:17
>>46
よく考えたら>>41じゃ日付が違うときのYes,Noが出ないな

Dim Rtn As Integer
If Range("S23") = Date Then
'印刷のコード
Else
Rtn = MsgBox("日付が違うけどいいですか?", vbYesNo, "選択")
If Rtn = vbYes Then
'印刷のコード
Else
End If
End If

48:名無しさん@そうだ選挙にいこう
07/11/18 06:58:53
>>40
>上記の日付は常に決まったセルに入力してあり、それが本日の日付か否か
そのセルに、
=today()
って入れるってのはだめなん?

49:名無しさん@そうだ選挙にいこう
07/11/18 08:59:51
>>47
有難うございます
その後調べてみてなんとかそこまではたどり着きました
ですが変数の宣言がうまくいかなくまたまた困っていたところに
ちょうどレスがあり大変感謝してます

>>48
日付は別の式で自動的に入力されてしまいますので
それができないのです
もともと、別の者がつくったマクロでして、それを何とか改造して使いやすく
人的エラーの無いものにしたかったので、調べながらやっているところなんです
すみません・・

50:名無しさん@そうだ選挙にいこう
07/11/18 10:06:30
>>39
そこならデータ規則正しく並んでいるのでが全体をエクスポートすれば

51:名無しさん@そうだ選挙にいこう
07/11/18 10:12:20
>>39
そこならデータが規則正しく並んでいるので、ページ全体をExcelにエクスポートしてから
単純に「所在地」「電話番号」などで抽出すれば、目的の住所録が作れる。

52:名無しさん@そうだ選挙にいこう
07/11/18 11:24:08
Excelにエクスポートって何だ
IEか何かにそんな機能あるのか?

53:名無しさん@そうだ選挙にいこう
07/11/18 12:22:03
初歩的な事かもしれませんが、お願いします。
【1 OSの種類         .】 XPとMeの両方で使いたい
【2 Excelのバージョン   】 2003と97の両方で使いたい
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否

ある文字列の頭3文字を判定して、条件に合致すればその部分を削除、
条件に合致しなければそのままを返すような処理は出来ますか?

例)
「対象の文字列」→「処理結果」

(勝)佐藤太郎→佐藤太郎
(負)鈴木次郎→鈴木次郎
 高橋三郎→高橋三郎

54:名無しさん@そうだ選挙にいこう
07/11/18 12:25:00
>>52
ExcelのWebクエリのことでしょ?違う?

55:名無しさん@そうだ選挙にいこう
07/11/18 12:26:22
>>53
=if(left(a1,3)="ある条件",""&a1,a1)みたいな?

56:名無しさん@そうだ選挙にいこう
07/11/18 12:29:56
=IF(LEFT(A1,3)="ある条",SUBSTITUTE(A1,"ある条",""),A1)みたいな?

57:53
07/11/18 12:52:46
>>55-56
上手くいきました。
ありがとうございました。

58:名無しさん@そうだ選挙にいこう
07/11/18 13:24:37
【1 OSの種類         .】 2000
【2 Excelのバージョン   】 2000
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否

すいません。教えてください。

今ダイエット中でして、日々の体重の推移をグラフにしております。
シートが4枚ほどになってきたのですが、
グラフの元のデータを複数のシートにわたって設定するには
どうすれば良いのでしょうか?
どうぞよろしくお願いします。

59:名無しさん@そうだ選挙にいこう
07/11/18 13:29:22
>>58
作業シート作って、その4つのシートのデータをまとめる
その作業シートをグラフの元データにする

以上

60:37
07/11/18 15:17:21
>50>51
1列だけ共通の項目名がなく抽出が困難でしたが、
なんとかうまく出来ました。ありがとうございました。


61:名無しさん@そうだ選挙にいこう
07/11/18 17:16:38
>>54
エクスポート=Webクエリなの?
びっくり

62:名無しさん@そうだ選挙にいこう
07/11/18 20:07:04
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2003
【3 VBAが使えるか    .】 少し
【4 VBAでの回答の可否】 可

グラフを作ってグラフの大きさなどを変更してると
全部グレーになってしまいました。

これってどうやったら元に戻せますか?

63:58
07/11/18 20:46:54
>>59
ありがとうございました。
それには気が付きませんでした^^;

64:名無しさん@そうだ選挙にいこう
07/11/18 21:52:14
>>52
OfficeをインスコするとIEの右クリックメニューに「Microsoft Excelにエクスポート」ってのが追加される。
テーブルの中で右クリックすると、そのテーブルだけがExcelのワークシートに取り込まれる。
それ以外の余白や文章で右クリックすると、ページ全体がエクスポートされる。
ただしASPやPHPみたいな動的に生成されるページはうまくいかないことが多い。

65:名無しさん@そうだ選挙にいこう
07/11/18 22:26:27
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2002
【3 VBAが使えるか    .】 少し
【4 VBAでの回答の可否】 可

関数を作り、それを4,5個のExcelファイルで使用しています。それで、この先
この関数を変更した時に一気に修正とかしたいんですけど、良い方法とかって
ありませんかね?一個一個ずつやると修正漏れが出てきそうなんで。

例えば
function XXXX()

end Function

これを a.xls、b.xls、c.xlsに同じ名前で組み込んでいてそれを一気に修正
したいって事なんですけど。




66:名無しさん@そうだ選挙にいこう
07/11/18 23:06:20
むしろ同じ関数を別々のファイルに組み込むのがおかしい。
どっかひとつのファイルに置いて、それをあちこちから使えるようにすべき。

67:名無しさん@そうだ選挙にいこう
07/11/18 23:27:29
エクセルでVBAを学んでいるのですが、元々C言語しか知らない人間なので基本的な事柄を覚えるのが面倒です。
で、質問なのですが、このさきエクセルでC言語をサポートする環境ができるような計画はありますでしょうか?
C言語をサポートするならそれまでは適当な処理で間に合わせようと思ってるのですが・・。

68:65
07/11/18 23:31:18
>>66

シートの参照なら判りますが、関数をあっちこっちから参照して使えるようにする事って出来るんですか?


69:名無しさん@そうだ選挙にいこう
07/11/18 23:33:57
>>67
適当な処理で間に合うんなら、それでいいじゃん。

70:名無しさん@そうだ選挙にいこう
07/11/18 23:39:38
>>68
個人用マクロブック

71:名無しさん@そうだ選挙にいこう
07/11/18 23:39:43
>>68
Application.Runかなんかで出来たような気がする

72:名無しさん@そうだ選挙にいこう
07/11/18 23:40:49
>>68
アドイン関数にする。関数はPublic宣言で。くわしいことはググるかヘルプで調べて。

73:名無しさん@そうだ選挙にいこう
07/11/18 23:41:11
>>69
他に応用が利かないプログラムをその都度作り続けるのは嫌なんです。
それに、Cだったら思ったとおりの動作がすぐにできますが、VBは色んなHPを参照しながら作らざるを得なくて
この先C言語がサポートされないなら、ちょっと本気で覚えないと仕事が増えるかな?と

74:65
07/11/18 23:44:12
おおっ、なるほど。教えていただいたキーワードを調べてみます 
皆さん、ありがとですm(__)m。

75:名無しさん@そうだ選挙にいこう
07/11/19 00:07:55
>>73
なーに甘っちょろいこと言ってんの。
VBAなんて変数と関数と制御構造で回してるって点でCと大差なし。演算子や型の違いなんてかわいいもんよ。
ライブラリの一つだと思って覚えとけ。

Cの仕様なんて時代とともにどんどん変わってるし、処理系が変われば完全に別物になるし、
新しい仕事をするたびにライブラリと格闘しなきゃならない。
この程度の応用もできないヤツは、はっきり言ってCを使い続けるのも無理。

76:名無しさん@そうだ選挙にいこう
07/11/19 00:29:32
>>75
なんとなく予感はしてたけど、やっぱりそうですか。
ありがとうです。本腰いれて勉強してみます。

77:名無しさん@そうだ選挙にいこう
07/11/19 00:34:33
エクセル初心者です。
「名前を付けて保存」で、保存しようとする時
プルダウンで、名前の履歴がでますが、
その履歴を消すことは、できますか?

OS:XP   エクセル:XP  ハードは、職場、自宅等色々です。


78:名無しさん@そうだ選挙にいこう
07/11/19 13:03:43
質問です。
エクセルで名簿とかを作ったんですが、初心者なもので、1~10・11~20…といった具合に分けて名前をつけて保存してしまいました。
できれば最初の1~10のファイルのページに11~20のページを他のファイルからコピーかなんかして持ってきたいんですが、いい方法ありますか?

79:名無しさん@そうだ選挙にいこう
07/11/19 14:04:24
>>78
いい方法・・・コピー(&ペースト)

80:名無しさん@そうだ選挙にいこう
07/11/19 19:08:32
>>64
へー、そんな機能あったんだ。知らんかった。サンキュ。

81:名無しさん@そうだ選挙にいこう
07/11/19 21:11:51
>>77
[ツール]→[オプション]→[全般]タブ→最近使用したファイルの一覧のチェックをはずす

82:名無しさん@そうだ選挙にいこう
07/11/19 21:15:36
【1 OSの種類       .】 WindowsXP
【2 Excelのバージョン  】 Excel2000
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否  】 可
【5 検索キーワード   】 エクセル 画像の保存,エクセル オブジェクトの保存

ワード文書を(office以外のソフトを使わずに)画像ファイルに変換したいのですが、今のところエクセルで対象のファイルを「オブジェクトの挿入」で取り込み、htmlで保存して自動生成されるフォルダ内の画像を使うというやり方しか思いつきません。
これ以外の方法で画像データとして保存するマクロを探していますがありませんでしょうか。できれば画像を保存する際に名前も自分でつけたいです。
office限定としているのは会社で定めている以外のソフトをインストールしないよう規制されているからです。
アドインというものもあるようですが他の社員のパソコンすべてに入れるのは難しいのでそれ以外の方法を探しています。
お分かりになる方がいましたらお教え願います。

83:名無しさん@そうだ選挙にいこう
07/11/19 22:01:54
>>82
PrintScreen

84:名無しさん@そうだ選挙にいこう
07/11/19 22:06:25
>>82
そういうのは普通仮想プリンタを使う。仮想プリンタと言うとpdfが有名だが、bmpやjpgのもある。

定めている以外のソフトをインストールしないよう規制されてるなんてのは関係ない。
必要なら仮想プリンタをインストール出来るものとして認定して貰えば良いだけ。
業務上で本当に必要なら当然認定してくれるだろう。認定してくれなかったらそれは必要ない物だってことだ。
全てのPCにインストールするのが面倒なんてのも関係ない。面倒でも必要ならばやる、それが「仕事」ってものです。

あとは全て貴社の社内で解決するべき問題なので、よろしくお願いします。
まあPrintScreenの張り合わせで満足できるならそれでもいいが。

それと、マクロもアドインも導入の手間は同じような物だよ。マクロだってそのマクロを含むブックを配布しなければ全てのPCで使えるようにはならないし、
ブックを共有できるシステムが構築されてるならそれを利用してアドイン共有しちゃえば良いだけ。仮想プリンタだって同じ。

85:名無しさん@そうだ選挙にいこう
07/11/19 22:08:27
ちょっと聞いてください。

うちは父一人、娘一人の二人暮らしでした。
父は再婚もせずに私を育ててくれましたが、やはり男性でしたし、相手が欲しかったようで
中学二年の頃から、私が毎晩父の相手をしていました。

最初はよくわからなかったのですが、父が優しく手ほどきをしてくれて
大好きな父が相手でしたから、私も嬉しくて、素直な気持ちで毎晩相手をしていました。
父はとても上手で、いろんな角度から私を攻めてきました。
二人で時間を忘れて朝まで続けてしまったこともあります。

そんな父もすでに亡くなり
今では母親となった私は、当時のことを思い出しながら
夫だけではなく中学生になった息子も相手にしています。

夫と息子がしているのを見るのも好きです。
夫が一番弱いですね。
息子はけっこう強いです。













ちなみに将棋の話です。

86:名無しさん@そうだ選挙にいこう
07/11/19 22:26:00
オートフィルタで抽出された行を切り取りしたいんですが、
切り取り→貼り付けってすると抽出されてない行も切り取られて付いて来ちゃいます。

ある値が入ってる行だけのシートとその項目のないシートに分けたいのですがどうすればよろしいのでしょうか?


87:名無しさん@そうだ選挙にいこう
07/11/19 22:42:57
>>86
抽出した列を選択したらどう?

88:名無しさん@そうだ選挙にいこう
07/11/19 22:49:17
可視セルのみ選択してコピー

89:86
07/11/19 23:02:53
>>88
レスありがとうございます。
コピーなら行けるんですけど可視セル切り取りができないんですよ。
コピー→貼り付け。元の行は削除で行くことにします。

>>.87
列っすか??

90:名無しさん@そうだ選挙にいこう
07/11/19 23:23:51
excel2003 XP 
マクロを含むブックがあってブックを開いた後、自作マクロを実施するときに、
昨日までは長いこと、正常に動いていたのですが、次のメッセージが出て
実行できなくなりました。
今日、あるフリーウェアー乃至シェアウエアー(マクロ等は隠している)の
エクセルを実施した後からです。

エラーメッセージとして、
ファイルにアクセスできませんでした。次のいずれかを行ってみてください。
・指定したファイルがあることを確認します。
・ファイルを含むフォルダーが、読み取り専用になっていないことを確認します。
・指定したファイルの名前に次のいずれかの文字も含まれていないことを確認します。
     : < > ? 最後につけたファイル名.xls *
・ファイル名およびパス名が半角で218文字より長くなっていないことを確認します。

いずれも、確認済みで該当なしですが、動きません。気になるのは最後に就け
たファイルの名前が出てくることです。

アドバイスをお願いします。


91:82
07/11/19 23:30:50
>>83-84
回答ありがとうございます。
PrintScreenだとちょっと厳しいです。PDF以外の仮想プリンタというのは知りませんでした。勉強してみます。
どうもありがとうございました。



92:名無しさん@そうだ選挙にいこう
07/11/19 23:41:38
>>89
編集→ジャンプ→セル選択→可視セル

93:90
07/11/20 00:03:35
自己解決しましたw
自作マクロの設定が不十分と思っていろいろやっていたのですが、結局、
フリーウェア乃至シェアウエアのエクセルを再度、実施して、終了させたら
自作マクロが正常に動きました ;(~o~);
スレ汚し、すまそ

94:名無しさん@そうだ選挙にいこう
07/11/20 01:13:10
ユーザーフォームのテキストボックス内のテキスト表示が収まりきっていない場合に、
ControlTipTextのようにマウスのポイントで全文を表示させたいのですが、
どうすればよいのでしょうか?


95:名無しさん@そうだ選挙にいこう
07/11/20 05:37:48
>>78
つ【インポート】

96:名無しさん@そうだ選挙にいこう
07/11/20 05:42:04
>>73
フリーだとこう考える。

× ちょっと本気で覚えないと仕事が増えるかな?
○ ちょっと本気で覚えれば仕事が増えて、ウマーかな?

97:名無しさん@そうだ選挙にいこう
07/11/20 09:16:52
【1 OSの種類         .】 Windows98
【2 Excelのバージョン   】 Excel2k
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード     】TRANSPOSE関数・列と行の入れ替えなど

A・B・C列に入ってるデータを
A1・A2・A3・B1・B2・B3・・
と1行につき3列ずつ、横1行に並べ替えることは可能ですか?


98:名無しさん@そうだ選挙にいこう
07/11/20 13:42:46
>>97
C3まで行ったら終わり?
9個ずつの並べ替えならTRANSPOSEを3つ手作業で入力してからコピーとか。

99:名無しさん@そうだ選挙にいこう
07/11/20 14:36:27
すいません、31*50行あります
具体的にいうと、50人分のタイムカードの時間計算に使う表です
1日目・・Aが出勤時間、Bが退出時間、Cが休憩時間
2日目・・Dが出勤時間、Eが退出時間・・
となっている表があり、
このままだとうち間違いがあまりにも多発するため、
タイムカードどおり縦に入力して、
それを横向き(以前まで入力していた部分)に反映させたいのです
(そうしないと上司は納得しないんです・・)


100:名無しさん@そうだ選挙にいこう
07/11/20 14:43:59
教えてください!!
エクセル2007、ワード2007でシート保護の設定ができないんです?
パスワードを決める画面がどうしてもでてこないんです?
2003のときはたしか、ツールから保護シートができたんですけど、2007にはツールのタグもない
んです。
誰か助けて!!


101:名無しさん@そうだ選挙にいこう
07/11/20 14:45:00
入力用と計算用のシートなり別に作って雛形にすればいい

102:名無しさん@そうだ選挙にいこう
07/11/20 14:56:46
>>100
どちらも「校閲」タブにでっかいのがあるだろが。よく探せ。

103:名無しさん@そうだ選挙にいこう
07/11/20 15:34:03
101さん
2003のファイルみたいにパスワードを入れて
みれるようにならないんです?

104:名無しさん@そうだ選挙にいこう
07/11/20 16:04:27
【1 OSの種類         .】 Windows Vista
【2 Excelのバージョン   】 Excel2007
【3 VBAが使えるか    .】 いいえ

セルに0からはじまる数字を入力したいのですが0が消えてしまいます。
(たとえば01111だったら1111になってしまう)
どうすれば入力できるようになるのでしょうか?
教えてください><



105:名無しさん@そうだ選挙にいこう
07/11/20 16:09:19
>>104
セルの書式設定で文字列を指定

106:名無しさん@そうだ選挙にいこう
07/11/20 16:15:09
>>104
桁数が例えば5桁と決まってるなら書式設定のユーザー定義で00000にする。
桁数が毎回違ってて、文字列になってしまってもいいのなら先頭に ' を付けて入力する。

107:名無しさん@そうだ選挙にいこう
07/11/20 16:18:50
>>99
入力(並べ替え)は毎日?
それとも月末にまとめて?
毎日やるなら入力フォームを使った方がいいかもよ。

108:名無しさん@そうだ選挙にいこう
07/11/20 16:20:23
>>106
解決しました!
ありがとうございます!

109:名無しさん@そうだ選挙にいこう
07/11/20 17:00:39
【1 OSの種類         .】 WindowsXP-HE
【2 Excelのバージョン   】 Excel2003
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード     】 (Google)Excel VBA 条件 2つ以上の処理

条件構文で質問です。If判定の後に、2つ以上の処理をするにはどうしたら
よいでしょうか? 例えば

If A = B Then C = D , E = E + 1 , F = 100

のような感じです。

110:名無しさん@そうだ選挙にいこう
07/11/20 17:18:12
>109
これでいいですか?
If A = B Then
C = D
E = E + 1
F = 100
End If

111:名無しさん@そうだ選挙にいこう
07/11/20 17:35:27
>>109
ああ、・・・ 最後のEnd If が抜けていた・・・

Thx

112:名無しさん@そうだ選挙にいこう
07/11/20 17:51:42
>>103=100?
少なくとも100に書いてあるExcel2003のツール>保護>シートの保護でできることは、
Excel2007の校閲>変更>シートの保護でまったく同じことが出来る。
違うと言うなら、おまいが別の機能を「シートの保護」と誤解しとる。

パスワードがないと開けない(読み取りパスワードの設定)ようにしたいなら、
2007の場合はOfficeボタン>配布準備>ドキュメントの暗号化を使え。

113:名無しさん@そうだ選挙にいこう
07/11/20 19:49:11
>>107
月末にまとめて一月分入力です

114:名無しさん@そうだ選挙にいこう
07/11/20 19:50:49
>>109
こういう書き方も出来る。式や命令をコロンで区切る。この場合はEnd Ifは書かない。

If A = B Then C = D : E = E + 1 : F = 100

115:名無しさん@そうだ選挙にいこう
07/11/20 20:05:43
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2003
【3 VBAが使えるか    .】 いいえ

エクセルでB4用紙に横に印刷された表をA4で縦に印刷しなおしたいのですが
ページ設定で位置を縦にして%を小さくしてみたのですが
縦になっても上半分で切れてしまったり1枚に収まってもA4の上半分
ぐらいの小さな表になってしまったりと上手く出来ません。
どうすれば綺麗におさまるでしょうか?


116:名無しさん@そうだ選挙にいこう
07/11/20 20:09:53
>>115
>A4の上半分ぐらいの小さな表になってしまったり
・・・これで正解だから

大きく印刷したいならA4【横】で印刷しなさい

117:名無しさん@そうだ選挙にいこう
07/11/20 20:43:06
>>113
それならVBAでやった方が早いかな。
Sheet2からSheet1へ、順番を変えながらデータをコピーする

Sub TimeCardCopy()
Dim Person, Day1, Col1

Application.ScreenUpdating = False ' 画面更新を一時的に止める
Application.Calculation = xlCalculationManual ' 再計算を一時的に止める

For Person = 1 To 50 ' 50人分
For Day1 = 1 To 31 ' 31日まで
For Col1 = 1 To 3 ' 3マスずつコピー
Worksheets("Sheet1").Cells(Person, Day1 * 3 + Col1 - 3) = Worksheets("Sheet2").Cells(Day1, Person * 3 + Col1 - 3)
Next Col1
Next Day1
Next Person

Application.ScreenUpdating = True ' 画面更新する
Application.Calculation = xlCalculationAutomatic ' 再計算する

End Sub

118:名無しさん@そうだ選挙にいこう
07/11/20 21:12:40
>>117
ありがとうございます!
これでうまくいきそうです

119:115
07/11/20 21:30:37
>>116
会社で上司に頼まれたのですが私も最初A4横で印刷したら「こうじゃなくて縦長にA4用紙に
納めて」と言われてしまいました。どうやっても、縦にすると横が半分ぐらいきれてしまいます。
印刷設定ではここまではできないのでしょうか。。。

120:名無しさん@そうだ選挙にいこう
07/11/20 21:36:54
excelを買おうと思って価格comで調べたんですが、(AC)ってのはなんでしょうか?
(UPG)はアップグレード版だとわかるのですが。
無印の Office Excel 2007 って言うのを買えばいいのでしょうか?
OSはwinです。
よろしくお願いします。

121:名無しさん@そうだ選挙にいこう
07/11/20 21:38:18
>>119 ページ設定で 縦?ページ×横?ページに収めるって設定がある 1X1にすればおk

122:名無しさん@そうだ選挙にいこう
07/11/20 21:39:07
>>120
あかでみっく?

123:名無しさん@そうだ選挙にいこう
07/11/20 21:43:23
>>119
無理やりA4におさめたいのなら、
印刷したいセルを選択して、「印刷範囲の設定」を選ぶ。
次に、印刷プレビューを見る。設定で余白を狭めたり、
拡大率を変更し、ページ枚数が一枚になるようにする。

分かりにくい説明だと思うが、これでできるはず。

124:115
07/11/20 22:02:52
>>116,121,123
ありがとうございます。明日また挑戦してみます。


125:名無しさん@そうだ選挙にいこう
07/11/20 22:04:38
>>122
あっ、なるほどー
ってことは学生さん用ですね。
レスありがとうございます。

126:名無しさん@そうだ選挙にいこう
07/11/20 22:12:43
=SUMPRODUCT((A1:A10)="AAA")*(B1:B10="EEE")*(C1:C10))

上記は、A列が"AAA"で、B列が"EEE"の行の対応するC列の値を合計する
式ですが、例えばA列に"BBB"と"CCC"が存在し、これらもOR条件で集計
したい場合のスマート書き方がありましたら教えてください。
気持ちとしては、下記のような式を作りたいと思っています。

=SUMPRODUCT((A1:A10)="AAA"or"BBB"or"CCC")*(B1:B10="EEE")*(C1:C10))


127:名無しさん@そうだ選挙にいこう
07/11/20 22:26:13
配列とVBA、実務で比較的役に立つのはどちらでしょうか?

128:名無しさん@そうだ選挙にいこう
07/11/20 22:35:00
>>127
VBA。VBAの中には配列も含まれるし。

仕事の内容にもよるけど、Excelそのものの使い方よりも計算に対する一般常識をたくさん知っていた方がいい。

129:名無しさん@そうだ選挙にいこう
07/11/20 22:37:07
>>125
別に学生でなくとも教職関係者であればアカデミック版は購入可能だと思うが

130:名無しさん@そうだ選挙にいこう
07/11/20 22:41:26
>>126
条件の and は * に、or は + に置き換えればいい。
+は*よりも優先順位が低いからカッコでまとめること。

=SUMPRODUCT(((A1:A10="AAA")+(A1:A10="BBB")+(A1:A10="CCC"))*(B1:B10="EEE")*(C1:C10))

131:名無しさん@そうだ選挙にいこう
07/11/20 22:47:33
【1 OSの種類         .】 Windowsxp
【2 Excelのバージョン   】 Excel2003
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード     】 excel 自動 ファーム 入力

URLリンク(toi.kuronekoyamato.co.jp)

発送管理と発送状態をすぐわかるように
このクロネコヤマトのお問い合わせに自動でお問い合わせを入力して、お問い合わせボタンを押してくれるようなの希望です。

相手方の 名前  住所 メモ  の横にお問い合わせ番号を書いといて、その番号のリンクをダブルクリックすると上記のように
クロネコのサイトが開いて、自動で書いてあるお問い合わせ番号入力、お問い合わせボタンを押してくれたら感激です。

132:名無しさん@そうだ選挙にいこう
07/11/20 22:51:52
>>128
どもっす

133:名無しさん@そうだ選挙にいこう
07/11/20 23:34:25
>>131
検索したらこういうのがありました。応用できそうです。
URLリンク(q.hatena.ne.jp)

134:名無しさん@そうだ選挙にいこう
07/11/21 12:22:22
そこの回答者も大変だな、けんもほろろ。

135:名無しさん@そうだ選挙にいこう
07/11/21 12:27:42
クロネコの問い合わせページは暗号化されたアクセス日時が隠しフォームに入ってて、
いきなりリクエストだけ送ってもダメだからちょっと面倒だね。

136:名無しさん@そうだ選挙にいこう
07/11/21 18:01:44
初心者です! 
次のエクセルの式の情報関連のレポートの宿題ですが、

=IF(A1+B1*(1+C$1>100,IF($D1<>"X","あ","い"),"う")
の式についてどういう意味かできれば具体的にお教え願います。

①特に、+と*のどちら先に計算されるのか
②IF関数とその入れ子についてと、
③"あ" "い" "う"と表示されるのはどのような場合か

どうぞ宜しくお願いします。

137:名無しさん@そうだ選挙にいこう
07/11/21 18:16:09
>>136
おめーのようなのは、おれはスルーだ


138:名無しさん@そうだ選挙にいこう
07/11/21 18:27:00
>>136
宿題は自分でやれ!

一言だけ教えてやると、その式、たぶん一箇所 ) を写し間違えてるぞw

139:名無しさん@そうだ選挙にいこう
07/11/21 20:00:29
使い始めたばかりのど素人ですがよろしくおねがいします。
データ分析の回帰分析から回帰直線y=a+bxのaとbを求めたものと、
データを散布図にプロットして線形近似した式と比べてみたのですが
式が一致しませんでした。線形近似は回帰直線にならないのでしょうか。

140:名無しさん@そうだ選挙にいこう
07/11/21 20:05:18
>>131
これで一応希望の動作はできるから、あとは自分の作ったブックに合わせてカスタマイズしてね。
VBAは「いいえ」になってるけど、ブラウザの操作はVBAを使わないと無理だから、がんばって勉強してね。

Sub Kuroneko_check()

' IEオブジェクトのインスタンス化
Dim objIE As Object
Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = True ' ブラウザを開く

' クロネコのサイトに飛ぶ
objIE.Navigate "URLリンク(toi.kuronekoyamato.co.jp)
Do While objIE.Busy = True 'ページが表示されるまで待つ
DoEvents
Loop

' 伝票番号をセルA1から取得してフォームにセット
objIE.document.all.number01.Value = Range("A1").Value

' テスト用仮データをセット (動作確認用)
objIE.document.all.number01.Value = "1111-2222-9993"

' 問い合わせボタンをクリック
objIE.document.all.sch.Click

End Sub

141:名無しさん@そうだ選挙にいこう
07/11/21 20:11:59
>>136
そういうのはまず、自分で実際にエクセルの画面に入力して確かめてみるところから始めるといい。
そうすると入力ミスしていないかどうかも確認できるし。

1つだけヒント
+ は足し算
* はかけ算。×のかわりに * と書く決まり。どっちを先に計算するかは小学校で習ったよね?

142:名無しさん@そうだ選挙にいこう
07/11/21 20:41:27
>>136
宿題なら教科書をみて自分で考えれ

143:名無しさん@そうだ選挙にいこう
07/11/21 20:56:45
>>131

個人相手ではどうか知らんが、法人ならばやり方教えてくれるかもよ>クロネコ
131が物流と言う言葉にピンと来れば、そこに聞いてみるといい。

144:名無しさん@そうだ選挙にいこう
07/11/21 21:21:00
初歩的な質問ですみません。

Excel2007の単独導入を考えているのですが、
Excel2007にMS数式3.0は付いてきますか?

145:名無しさん@そうだ選挙にいこう
07/11/21 23:44:32
VBAでデスクトップにある<aaa>フォルダーの<bbb.csv>ファイルを開きたい。
Workbooks.Open Filename:= の続きを教えてください。


146:名無しさん@そうだ選挙にいこう
07/11/21 23:51:48
>>145
これでいいの?Windowsのバージョンによってはパスが違うことも…

Workbooks.Open Filename:="C:\Documents and Settings\ユーザー名\デスクトップ\aaa\bbb.csv"

147:145
07/11/22 00:01:46
サンクスです。
できました。

148:名無しさん@そうだ選挙にいこう
07/11/22 00:04:52
>>145
デスクトップのフォルダ名は以下のようなメソッドで取り出すことが出来ます。

CreateObject("WScript.Shell").SpecialFolders("desktop")

これを応用して書き換えるとこうなります。

Workbooks.Open Filename:=CreateObject("WScript.Shell").SpecialFolders("desktop") & "\aaa\bbb.csv"

これならユーザー名が変わってもWindowsのバージョンが変わってもそのまま使えます。

149:145
07/11/22 01:00:50
サンクス。
それいいですね。

150:リース
07/11/22 09:32:12
URLリンク(successmix.xsrv.jp)
ってビジネスどう思う?
これなら、できる?

151:名無しさん@そうだ選挙にいこう
07/11/22 09:49:08
>>150
全然、欲しいとも思えない商品ばかり。悪質なマルチ商法

152:名無しさん@そうだ選挙にいこう
07/11/22 11:46:29
【1 OSの種類         .】 WindowsXP-HE
【2 Excelのバージョン   】 Excel2003
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード     】 (Google)Excel VBA セル 選択 不連続 グラフ

不連続(飛び飛び)のセルの数値を使ってグラフを作成したく思っています。

例えば、URLリンク(www.imgup.org) で、土地の行のAさん~Cさん
の2006年のデータを円グラフにする際には、どのような記述になるのでしょうか?
この場合だと、対象の数値は、100,150,500 となります。

153:名無しさん@そうだ選挙にいこう
07/11/22 12:21:18
不連続の表を連続の表に変換してからグラフにしたほうが簡単だな

154:名無しさん@そうだ選挙にいこう
07/11/22 15:32:32
>>151
おまえいいやつだな。単なる広告コピペにわざわざレスつけるなんて。

155:名無しさん@そうだ選挙にいこう
07/11/22 15:45:03
>>152
フィルターかけてからグラフを作成。非表示のセルを空白に。

あるいはデータの範囲を
=Sheet1!B4,Sheet1!D4,Sheet1!F4
みたいにコンマで区切って並べれば飛び飛びのセルを指定できる。
Ctrl押しながらクリックして複数のセルを選択してからグラフを作っても同じこと。

156:名無しさん@そうだ選挙にいこう
07/11/22 17:08:01
>>153,155
さんきゅうです。やってみます。

157:名無しさん@そうだ選挙にいこう
07/11/22 19:48:18
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2003
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】
【5 検索キーワード     】 小数点 揃え セル等々

かなり初歩的な質問だと思うのですがお願いします。

URLリンク(image13.bannch.com)
このように縦に数字の桁をそろえるにはどうしたらいいのでしょうか?





158:名無しさん@そうだ選挙にいこう
07/11/22 20:17:40
ちょっとちがうかもしれないけど書式を ???.?? としてみる (?が3つ ピリオドが1つ ?が2つ)

159:名無しさん@そうだ選挙にいこう
07/11/22 20:42:17
横からスマソ
その???.??は書式→セル等、どうやっていれるか教えてくれ


160:名無しさん@そうだ選挙にいこう
07/11/22 20:52:09
書式と言うか書式設定の中の表示形式、更にその中のユーザー定義
Excelでは書式と言うと、セルの文字色や背景色、罫線などまで含めたものを指す

それと???.??より0.??の方が良いだろうな
まぁ、どちらにしろ整数でも小数点が表示されるのが嫌だとか言い出しそうだがな
その場合はVBA使うとかセル分けするとかかな

161:名無しさん@そうだ選挙にいこう
07/11/22 21:00:52
>>159
こうやるの。基本中の基本だからしっかり覚えておくように
URLリンク(www.wanichan.com)

162:名無しさん@そうだ選挙にいこう
07/11/22 21:27:31
>>157
(1) ここで説明する方法はExcel2003以前では使えないので、まずExcel2007に乗り換える
(2) セルを右クリックして「セルの書式設定」→「書式」→「ユーザー定義」を開いて「??0.??」と入れる
(3) 同じく「セルの書式設定」の中の「配置」タブを開き、横位置を「左詰め (インデント)」にしてインデントを1にする
(4) 条件付き書式を開き、「新しいルール」→「数式を使用(r」を選ぶ
(5) 数式のところに「=A1=INT(A1)」と書き、書式をユーザー定義で「??0」にする

このとおり
URLリンク(pict.or.tp)

163:名無しさん@そうだ選挙にいこう
07/11/22 21:29:28
へー 2007買おうかな

164:名無しさん@そうだ選挙にいこう
07/11/22 21:38:15
MS ゴシック のような等幅フォントにして小数点以下がないものは半角スペースを3つ
小数点以下が一桁ある場合は半角スペースを1つ入れる
配置を右詰めにしたらできあがり
2003以前でも対応可

俺って天才

165:164
07/11/22 21:41:45
値の最初に「'」をつけるのを忘れずに^^

166:名無しさん@そうだ選挙にいこう
07/11/22 21:49:23
それじゃ式に使えないじゃない

167:名無しさん@そうだ選挙にいこう
07/11/22 22:16:11
前スレで、=MAX(0,)を教えてもらったものです(Excel9007使用)m(_ _)m

H3に、
=MAX(0,(F3-F2-G2)*0.05)という計算式を入れてますが、ここに小数点以下は切り捨てという条件も入れるにはどうしたらよいでしょうか?
H4にINT関数入れれば出来るのは知っているのですが、一つにまとめたいので。

168:名無しさん@そうだ選挙にいこう
07/11/22 22:24:45
>>167
式全体をINT( )のカッコの中に入れればいいんだよ。

=INT(MAX(0,(F3-F2-G2)*0.05))

169:名無しさん@そうだ選挙にいこう
07/11/22 22:35:36
>>168
ありがとうございましたm(_ _)m

170:名無しさん@そうだ選挙にいこう
07/11/22 23:16:04
9007 いいなあ

171:名無しさん@そうだ選挙にいこう
07/11/22 23:55:23
>>157
VBA使っていいならThisWorkbookに
Private Sub autochange(ByVal Target As Range)
Dim c As Range, f As String, s As String, e As String
On Error Resume Next
Application.EnableEvents = False
For Each c In Target
f = c.NumberFormat
If Right(f, 7) = "AUTO1""@" Then
s = Mid(f, InStr(1, f, """", vbTextCompare) + 1, Len(f))
s = Left(s, InStr(1, s, ";AUTO1""", vbTextCompare) - 1)
If Int(c.Value) = c.Value Then
e = Left(s, InStr(1, s, ";", vbTextCompare) - 1)
c.NumberFormat = e & ";""" & s & ";AUTO1""@"
Else
e = Mid(s, InStr(1, s, ";", vbTextCompare) + 1, Len(s))
c.NumberFormat = e & ";""" & s & ";AUTO1""@"
End If
End If
Next
Application.EnableEvents = True
End Sub
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
autochange Sh.UsedRange
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
autochange Target
End Sub
こんな感じにして表示形式を
0.00;"0_._0_0;0.00;AUTO1"@
にする

172:名無しさん@そうだ選挙にいこう
07/11/23 02:32:11
WindowsXP
Excel2000
VBA使えません。

y軸に普通の値を、x軸に乗数を含む数値を入れた滑らかなグラフを作りたいのですが、どうすればいいんでしょうか。
折れ線で試したのですが、x軸の値が乗数表示できず、10-6のように表示されてしまい、
また、滑らかなグラフになりません。

173:名無しさん@そうだ選挙にいこう
07/11/23 03:34:19
>>172
自動的に乗数を出すことはできないので、データラベル用の列か行を自分で作っておく必要がある。
例えば10のマイナス6乗を書きたい場合は、まず「10-6」と入力してから「-6」の部分だけを選択して、
書式→セルを開いて「上付き」をチェックする。
先に1つだけ作って、それをコピーしてから数字だけを修正していった方が早くできる。

グラフをなめらかな曲線にするには、まず折れ線グラフを作ってからプロパティ→系列→書式を選んで
「スムージング」にチェックを入れる。

174:173
07/11/23 03:40:56
あ、スマン。たしかに書式が無視されるね。これは気が付かなかった。

175:172
07/11/23 04:05:44
>>173
セル上はちゃんと乗数になってるのに、グラフの数値では書式が戻ってしまうんですよね。
これはどうしようもないんでしょうか…。

176:名無しさん@そうだ選挙にいこう
07/11/23 04:10:13
指定した文字があるセルにジャンプすることはできる?
「E」と入力すると「English」というセルに飛べるか

177:名無しさん@そうだ選挙にいこう
07/11/23 04:37:37
>>175
VBAでできないか調べてみたけど、軸ラベルは単純な文字列じゃないんだね。
オートシェイプのテキストボックスを重ねるしかないかなあ。

178:177
07/11/23 05:04:20
>>175
とりあえずオートシェイプで誤魔化してみた。俺の頭じゃこれが限界だ。
URLリンク(upsurusuru.hp.infoseek.co.jp)

179:172
07/11/23 05:24:40
>>177
わざわざスクショまでうpしていただいて、ありがとうございます。
やってみます。本当にありがとうございました!

180:名無しさん@そうだ選挙にいこう
07/11/23 07:47:28
>>130
遅ればせながらできました。ありがとうございました!

181:名無しさん@そうだ選挙にいこう
07/11/23 08:39:20
>>176 検索

182:名無しさん@そうだ選挙にいこう
07/11/23 19:05:37
>>176
ブックやシートには標準ではKeyPressイベントが公開されてないから、
どっかからオーバーライドしてくるか、別のプロセスでイベントハンドラを用意しないとダメかも。
不可能ではないけど、けっこうめんどくさい。

183:名無しさん@そうだ選挙にいこう
07/11/24 01:50:45
【1 OSの種類         .】 WindowsXP SP2
【2 Excelのバージョン   】 Excel2003
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード     】 関数 検索 lookup 空白 無視 ...等

    A      B      C
 
1  01A01  02A02  03A03
2        02B02  03B03
3  01C01  02C02  03C03
4 
5        02D02  03D03
6 
7  01E01  02E02


という表で、たとえば
A10に01A01と打ち込むとその行の一番右列にある03A03を返す
A10に02D02と打ち込めばその行の一番右列にある03B03を返す
A10に01E01と打ち込めばその行の一番右列にある02E02を返す

という関数を作りたいのですが上手くいきません。何かいい方法はないでしょうか?
空白の行・セルはソートはできません。


184:名無しさん@そうだ選挙にいこう
07/11/24 03:05:39
>>183
ちょっと長くなるけど

=IF(ISERROR(VLOOKUP(A10,A1:C7,3,FALSE)),IF(ISERROR(VLOOKUP(A10,B1:C7,2,FALSE)),"",
VLOOKUP(A10,B1:C7,2,FALSE)),IF(VLOOKUP(A10,A1:C7,3,FALSE)="",
VLOOKUP(A10,A1:B7,2,FALSE),VLOOKUP(A10,A1:C7,3,FALSE)))


185:名無しさん@そうだ選挙にいこう
07/11/24 09:20:36
>>183
一番左に1列挿入して次の式を入力
=LEFT(B1&C1&D1,5)
この列を検索範囲に入れて
=VLOOKUP(A10,A1:D7,4,1)

186:名無しさん@そうだ選挙にいこう
07/11/24 11:14:17
すみませんが教えて下さい。

PCの買替え(→vista)を検討中ですが、Excel2000で作成したファイルは
いきなりExcel2007で作業することは可能ですか?

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


187:名無しさん@そうだ選挙にいこう
07/11/24 11:27:58
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2003
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 可

セル内の文字の中から、指定の文字を数える方法はありませんかね?
たとえばセル内に aaaabcd と書いてある場合、a の数が4個だと分かるような関数はありますか?Len関数を使えば、上記の場合7と答えが出ますが、文字の指定はできなかったはずです。

188:名無しさん@そうだ選挙にいこう
07/11/24 12:42:10
>>187
釣りじゃないよね?
=LEN("aaaabcd")-LEN(SUBSTITUTE("aaaabcd","a",""))
「元の文字数」-「指定文字を除いた文字数」
簡単だろ。

189:名無しさん@そうだ選挙にいこう
07/11/24 13:23:47
うぜー

190:名無しさん@そうだ選挙にいこう
07/11/24 14:40:09
エッ! 難しかったの?

191:名無しさん@そうだ選挙にいこう
07/11/24 15:46:44
お尋ねします
【1 OSの種類         .】 WindowsVista
【2 Excelのバージョン   】 Excel2003
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 可

セル内の二色を使った文字列のうち1色だけを他の色に置き換えることはできないんでしょうか
「置換」を使うとセル内すべての文字色が置き換わってしまうのですが

赤黒→青黒にしたいところ
赤黒→青青になってしまいます

192:名無しさん@そうだ選挙にいこう
07/11/24 17:20:32
【1 OSの種類         .】 Windows Vista
【2 Excelのバージョン   】 Excel2007
【3 VBAが使えるか    .】 いいえ

2003で作成したものを2007で読むとウインドウ枠の固定ができません。
ページによってはできるのですが、そこが白黒表示でできません。
同様の方はいらっしゃるでしょうか。
また、解決法などあるでしょうか。


193:名無しさん@そうだ選挙にいこう
07/11/24 17:59:00
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2003
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否

会計ソフト(市販のモノです)からエクスポートしてきたデータ(エクセル形式)を貼る付けと同時に加工することは可能でしょうか?
例えば貼りつけるとすぐに「売上債権回転率」や「流動比率」などを計算させる、などです。
貼りつけた数値の位置が毎回同じなら良いのですが、月次によって勘定科目の増減がありますので、
貼る付ける位置が常に同じとは限りません。
何か良い方法はありませんでしょうか?

194:名無しさん@そうだ選挙にいこう
07/11/24 21:08:13
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2000
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否

既に打ち込まれてある数値(少数)をセルごと100倍するにはどうすればいいでしょうか。
ググルと関数でできるような事が書いてありますが、できませぬ。。
お助け願います。


195:名無しさん@そうだ選挙にいこう
07/11/24 21:19:45
なんか回答がないようだがレベルが高いのか?低いのか?

196:名無しさん@そうだ選挙にいこう
07/11/24 21:26:20
どうしたいのか今一わからぬ。
もう少しわかりやすどうしたいか書くとイイかもね。

例えば>>194
=A1*100みたいに計算したらだめなん?
関数を使いたいの?

197:名無しさん@そうだ選挙にいこう
07/11/24 21:29:48
>>195
このスレって質問者が中級で回答する人が初中級というヘンなスレです。
前から見ててそう思ってます。

198:名無しさん@そうだ選挙にいこう
07/11/24 21:35:10
>>193
情報が足りない。張り付けるのは数値だけなのか数値と項目名なのか。縦一列なのか表形式なのか。
数値だけなら無理だな。項目名もあるならDSUMあたりでなんとかなるだろう。

199:名無しさん@そうだ選挙にいこう
07/11/24 21:42:37
>>197
で、あんたのレベルは?

200:名無しさん@そうだ選挙にいこう
07/11/24 21:44:28
>>199
図星だね。
そういうレスが来るのがその証拠だ。 笑

201:名無しさん@そうだ選挙にいこう
07/11/24 21:58:19
>>188
トンクス
釣りじゃないよ、まだ慣れていないんだ

202:183
07/11/24 22:16:47
>>184
ありがとうございます。
しかし実際使う表が800行ぐらいあるので厳しいです。。。

>>185
ありがとうございます。
01A01でやると0が返ってきたり、02B02でやると03C03がきたりしてちゃんとできませんでした。。。

203:名無しさん@そうだ選挙にいこう
07/11/24 22:25:43
>>202
>しかし実際使う表が800行ぐらいあるので厳しいです。。。
800回記入しなくても、式をコピーできるのは知ってる?

204:183
07/11/24 22:38:57
>>203
書き方が悪かったですすいません
制限文字数以上いきそうです・・・。

205:名無しさん@そうだ選挙にいこう
07/11/24 22:40:51
>>183 >>202
各行の最左項をキーに最右項のデータを検索するって事でいいのなら

「185改造案」

D列に:=LEFT(A1&B1&C1,5)
E列に:=RIGHT(A1&B1&C1,5)
検索式は:=VLOOKUP(A10,D1:E7,2,0) 最後の項は1じゃなくて0の間違い

206:183
07/11/24 22:47:56
>>205
途中で0にしてみて、できた!と思ったんですがだめでした
最左項だけではなく、最右項以外(>>183 1行目でいうと、01A01か02A02)がキーだったら最右項の03A03を返すです
空白行や空白セルがある&頭に数字が付いてるのが厳しい。。。


207:名無しさん@そうだ選挙にいこう
07/11/24 22:50:49
>>197
残念、ハズレ

質問者も回答者も初級以下から上級まで様々です
ただし、質問者にはPCやExcelのレベルに関係なく
日本語出来てなかったり、要領を得ない質問してたりする奴が多い傾向にはあるけどね
その為に回答が滞りがちではある

208:名無しさん@そうだ選挙にいこう
07/11/24 22:57:36
>>206
後から条件を追加しちゃダメだよ

209:名無しさん@そうだ選挙にいこう
07/11/24 23:06:02
>>191
ひとくちに赤、青と言っても、明るかったり暗かったりいろんな色があるから
標準以外の色を使っていた場合にはこのVBAは使えないので注意。

Sub test() ' 呼び出しサンプル
ChangeColor ("A1") ' 置き換えたいセルを指定する
End Sub

Sub ChangeColor(R) '指定されたセルの赤い文字だけを青に変える
For I = 1 To Len(Range(R))
If Range(R).Characters(Start:=I, Length:=1).Font.Color = vbRed Then Range(R).Characters(Start:=I, Length:=1).Font.Color = vbBlue
Next I
End Sub

210:名無しさん@そうだ選挙にいこう
07/11/24 23:12:38
>>193
行数の増減があったとしても、下から数えて必ず同じ位置に同じ項目が来るなら
VBAなどを使って処理することは可能。

211:名無しさん@そうだ選挙にいこう
07/11/24 23:32:01
>>207
残念。
回答者に上級レベルなど居ません。
それでもあると仰るのであれば具体的な指摘をお願いしたい。

212:名無しさん@そうだ選挙にいこう
07/11/24 23:32:02
>>206
最大何列まであるの?行数はどんだけあっても関係ないから。
あと、800行あるなら検索するデータの入力先もA10じゃないよね。
ありのままの条件を書いて。

213:名無しさん@そうだ選挙にいこう
07/11/24 23:36:19
>>183
そういった変則的な検索条件になるって事は
データベースのフィールドの作り方が間違ってるって事だよ
後々複雑な式になって編集や変更がしにくくなる前に
根本的に表の設計をやりなおしたほうが得策だよ

214:名無しさん@そうだ選挙にいこう
07/11/24 23:43:26
>>194
質問の意味が今ひとつわからないので勝手に解釈するぞ。

まず、適当に使っていないセルに100と入力し、そのセルを選択、コピーする。
次に、100倍にしたいセル(範囲)を選択して右クリック、形式を選択して貼り付け、を開く。
演算の下の「乗算」のラジオボタンをチェック、OKを押すと、選択したセルが一度に100倍される。

215:名無しさん@そうだ選挙にいこう
07/11/24 23:45:24
>>210なんかは回答者だけど日本語読めてないよね。
これなんかはどうよ?>>207

216:名無しさん@そうだ選挙にいこう
07/11/25 00:21:15
的外れだったらすり合わせればいいだけ。
それができない回答否定=人格否定=ボク悪くないお前が馬鹿なのが悪い
っつーお子様が粘着して貼りついてしまってるだけ。

217:名無しさん@そうだ選挙にいこう
07/11/25 00:22:23
焦るなよ
曖昧な質問に無理やり答えようとするからおかしな回答になるんだろ

不明な点、曖昧な点を明らかにするよう誘導くらいはしようぜ

218:名無しさん@そうだ選挙にいこう
07/11/25 00:31:30
>>216
それ自分に言い聞かせてるの?

219:名無しさん@そうだ選挙にいこう
07/11/25 00:39:44
悪い質問には悪い回答しかつかないんだからそれでいいじゃん

220:名無しさん@そうだ選挙にいこう
07/11/25 01:26:25
【1 OSの種類         .】 Windows XP SP2
【2 Excelのバージョン   】 Excel 2003
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード     】excel 関数 で検索して関数を調べたりしました。


説明がややこしいのでサンプルを作ってみました。

URLリンク(hilala-web.hp.infoseek.co.jp)

このように、個人ごとの注文表があったとします。
この注文を1つにまとめて、それぞれ鉛筆何本、シャーペン何本という合計の表を
作るのにはどのようにすればいいでしょうか?

個人注文表で品物と個数を選ぶと、別の表ですべての合計が表示される、といった感じにしたいです。


よろしくお願いします!

221:名無しさん@そうだ選挙にいこう
07/11/25 02:00:14
>220
俺あんまり頭良くないから長ったらしい式書いちゃうけど

例えばA10に商品の名前を入れておいて
B10=SUMPRODUCT((G$2:G$7=A10)*(H$2:H$7)+(D$2:D$7=A10)*(E$2:E$7)+(A$2:A$7=A10)*(B$2:B$7))
と入れれば集計は出来ると思う

あとは応用してみて

222:名無しさん@そうだ選挙にいこう
07/11/25 03:46:46
>221
{=SUM((G$2:G$7=A10)*(H$2:H$7),(D$2:D$7=A10)*(E$2:E$7),(A$2:A$7=A10)*(B$2:B$7))}
=SUMIF(A$2:A$7,A10,B$2:B$7)+SUMIF(G$2:G$7,A10,H$2:H$7)+SUMIF(D$2:D$7,A10,E$2:E$7)
=SUMPRODUCT((G$2:G$7=A10)*(H$2:H$7)+(D$2:D$7=A10)*(E$2:E$7)+(A$2:A$7=A10)*(B$2:B$7))

223:名無しさん@そうだ選挙にいこう
07/11/25 03:58:16
>>191
それは仕様なのではないでしょうか。
自分は、Excelでは置換をしない、と決めています。

224:名無しさん@そうだ選挙にいこう
07/11/25 06:23:36
>>211
新参だと知らないかもしれないが、ゴッホ氏とかhoge氏とか
最近は来ないけど、このスレに居た事実は変わらないし
コテ無しでもこのレベルの奴は偶に来てる

(君にとって)残念ながら、(俺にとっては)残念ではなかった


225:名無しさん@そうだ選挙にいこう
07/11/25 09:20:52
>>209
>>223
皆さんありがとうございます
ちょっとVBA勉強してきます

226:220
07/11/25 10:18:11
>>221, >>222
ありがとうございます、その式でとりあえずは集計することができました。
ただ、実際作るものは、山田、田中、鈴木、のように3つではなくもっと多くなってしまいそうです。

かなり長い式を書けばできなくもないんですが、もう少し効率的な方法はないでしょうか?
できれば可変にも対応させたいのですが・・・
(最悪ずっと右のほうまで計算するように作っておけばいいので、あまり重視しません)

よろしくお願いします。


227:名無しさん@そうだ選挙にいこう
07/11/25 10:25:05
>>220
>>213氏が別の質問に対して答えてる内容と同じになるのですが、
マスターとなる表自体の作りを変えた方が良いですよ。
この例だったら、
A列:注文者名
B列:注文品名
C列:注文品の個数
みたいな感じ。

人間にとって見易い表から機械で処理し易い表を作るのは
大変ですが、逆は簡単ですから。

228:名無しさん@そうだ選挙にいこう
07/11/25 10:38:12
そういうのはピボットテーブルで集計するのが楽だね

229:名無しさん@そうだ選挙にいこう
07/11/25 11:34:16
ピボット使う奴は雑魚

230:名無しさん@そうだ選挙にいこう
07/11/25 11:47:47
ん? くやしかったの?

231:名無しさん@そうだ選挙にいこう
07/11/25 11:55:42
>>219
だな。
お前のような質の悪い人間が混じってくる。

232:永遠の初心者 ◆adhRKFl5jU
07/11/25 12:13:02
>>229
ピボットを使う奴は決して雑魚ではない

>>220
例えば
商品表のC2に

=SUMIF(個人注文表!$A$2:$I$7,A2,個人注文表!$B$2:$J$7)

を下にコピーする。

233:220
07/11/25 15:56:34
みなさんレスありがとうございます。

>>227
なるほど。
しかし実際はもっと複雑なのでなかなか簡単にはいかないのです・・・
そして実際に数値を入れるのは他の人(不特定多数に近い)にやってもらうので、
多少式が複雑でも見た目がわかりやすいほうがいいのでこの形にしました。

>>228
ピボットは使ったことないのでまた調べて見ます。

>>232
おお、すばらしい!
これはシンプルでいいですね。

SUMIFの検索範囲、合計範囲が複数列になっていますが、この場合
検索範囲が$A、合計範囲が$Bから始まっているので、検索に合致したセルの
右のセルの値が合計される、という意味になるのでしょうか?
(説明がややこしいですが・・・)

234:名無しさん@そうだ選挙にいこう
07/11/25 17:12:22
>>233
不特定多数が入力するんなら、入力フォームを使ったほうがいいぞ。
集計しやすいように表を作ることも出来るし、入力する位置の間違いなんかも防ぐことが出来る。

商いの規模にもよるけど、ExcelよりAccessを使った方がいいかもよ。
Accessなら複雑な集計がExcelよりは楽に出来ることのが多い。

235: ◆adhRKFl5jU
07/11/25 18:24:04
>>233
>検索範囲が$A、合計範囲が$Bから始まっているので、検索に合致したセルの
>右のセルの値が合計される、という意味になるのでしょうか?

右のセルの値とは限らないです
今回は検索範囲と合計範囲の大きさ(範囲の形)を同じにしています
選択した検索範囲と同じ形の合計範囲が同じならば、イメージとしては検索範囲と合計範囲を
重ねた時に一致したセルの値が合計されます

例えば =SUMIF(A1:C5."条件",X21:Z25) という式では
B2とC5に"条件"という文字が入っていた場合Y22とZ25の値が合計されます

236: ◆adhRKFl5jU
07/11/25 18:31:18
書き忘れました
>今回は検索範囲と合計範囲の大きさ(範囲の形)を同じにしています
ヘルプより
「合計範囲に含まれるセルの個数と形状は、必ずしも対応するセルと一致している必要はありません。
加算の対象となる実際のセルは、合計範囲の左上のセルを基準にして決定されます。」

でも一致させた方がわかりやすいので今回は一致させました

237:名無しさん@そうだ選挙にいこう
07/11/25 18:58:06
また出てきたのか>>◆adhRKFl5jU
なんでそんなに自己主張したがるの?
無名で回答すれば、単なる初級回答者として多少は有り難がられるのに
酉付きで出てくると、過去の暴走を知ってる人達から叩かれるだけだよ


238:220
07/11/25 19:45:04
>>234
ありがとうございます。

詳しく説明するとかなり長くなってしまうのでやめときますが、
今回の場合はフォームよりはこっちのほうがよさそうです。

不特定多数といっても、1人1つこのファイルに入力してもらう感じで、
入力者は全部のシートを見て全体をみながら考える・・・といった感じなのです。
わかりにくいかもしれませんがどうでもいいので気にしないでくださいw


>>235
なるほど、そういう事ですか。
かなり参考になりました、ありがとうございます!

239:名無しさん@そうだ選挙にいこう
07/11/25 20:04:24
期間中にクリック数の一番多い国が優勝!
URLリンク(www.clickclickclick.com) (戦場はこちら)
ルールは簡単( ^ω^)認証文字を打ち込んだら、あとはクリックボタンを連打連打!!!
おまえさんたちのクリック魂を見せてくれ!

◇新規さんや古参帰還兵さんへ
初めまして、そして久しぶりです。この熱き戦いももう半年を迎えました。
現在GAME29(11/26-11/30まで)に突入、我らが日本は強豪ハンガリーに苦戦を強いられています。
世界が総力を挙げて競っているこの戦いに、あなたの力を貸してください!

ClickJapanポータルサイト→ URLリンク(www.clickjapan.jp)
初めての方はこちらのwikiを→ URLリンク(www37.atwiki.jp)
久しぶりに参戦の方へ→ URLリンク(www33.atwiki.jp)

わからない事はこのスレ(落ちてたら↓から)で聞いてね!(ポータル内のフォーラムでもOK!)
URLリンク(www.clickjapan.jp)

【砲台ランキング】一番クリックした国が優勝【はじめました】
スレリンク(news4vip板)

240:194
07/11/25 23:34:04
>>214
うをを、簡単にできました。
どうもありがとうございました。

こんなの本に載ってないし、ググっても出てこないのでまいります。


241:名無しさん@そうだ選挙にいこう
07/11/25 23:52:08
2003使ってます。

セルで列または行に
例 (列)
TEL123-456-789
TEL123-456-789
TEL123-456-789
TEL123-456-789
TEL123-456-789
並んでいるときにTELの文字だけ一気に消したいのですが
どうしたらいいのでしょうか?

242:名無しさん@そうだ選挙にいこう
07/11/25 23:55:23
>>241
置換で空白にするとか

243:名無しさん@そうだ選挙にいこう
07/11/25 23:59:38
>>242
天才ですね!!!!!!!!!!!
ありがとうございます!!!!!!!!!!!!!!!!

244:名無しさん@そうだ選挙にいこう
07/11/26 00:20:42
>>220
関数を使わずに、「データ」メニューから「統合」を使うのも良いのでは?
左端列をチェックすれば、集計出来ます。

245:名無しさん@そうだ選挙にいこう
07/11/26 08:14:24
>>237
自己紹介乙w

246:名無しさん@そうだ選挙にいこう
07/11/26 11:10:22
方向キーを押すとカーソルが移動しないでシート全体が移動してしまいます。
カーソルを移動するようにするにはどうすればいいでしょうか?


247:名無しさん@そうだ選挙にいこう
07/11/26 11:53:21
ScrollLock

248:名無しさん@そうだ選挙にいこう
07/11/26 11:55:15
>>245
せんせー、おはようございます

249:名無しさん@そうだ選挙にいこう
07/11/26 13:31:16
>>247
できました。ありがとうございます。

250:あ~
07/11/26 18:51:21
エクセルで、グラフとかどう作るの?
途中までできるんだけど、完全にできない。


251:名無しさん@そうだ選挙にいこう
07/11/26 20:09:32
あなたにはできないので、諦めてください。




252:名無しさん@そうだ選挙にいこう
07/11/26 22:43:12
ひどい質問だ。
この聞き方じゃリアルでもどうにも答えられんよな。。。

253:名無しさん@そうだ選挙にいこう
07/11/26 23:50:49
教えてください。

シート1のセル「A2」に何か入力(文字種は問わない)があれば、

シート2のセル「B3」に、

シート1のセル「A1」に入力されている文字(例えば人の名前とか)をそのまま表示する。

シート1のセル「A2」に何も入力がなければ、シート2のセル「B3」は空白のままにしておく


ということをするために、シート2のセル「B3」に入力する書式がわからなくて困っています。

どなたかご教授いただけないでしょうか?

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

254:テスト ◆WBRXcNtpf.
07/11/26 23:51:04
sage

255:253
07/11/26 23:53:06
書き忘れました、すいません

【1 OSの種類         .】 Windows XP SP2
【2 Excelのバージョン   】 Excel 2003
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 よくわかりません
【5 検索キーワード     】excel 関数を調べてみましたがよくわかりませんでした

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

256:名無しさん@そうだ選挙にいこう
07/11/26 23:56:19
>>253
=if(シート1!A2<>"",シート1!A2,"")

257:名無しさん@そうだ選挙にいこう
07/11/27 00:18:52
>>255
どんな関数でも数式でも、別のシートを参照するにはセル指定の前にシート名とびっくりマークを書けばいいだけ。
=IF(Sheet1!A2<>"",Sheet1!A1,"")


最新レス表示
レスジャンプ
類似スレ一覧
スレッドの検索
話題のニュース
おまかせリスト
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch