2ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

Excel総合相談所 77

1 :名無しさん@そうだ選挙にいこう:2009/01/14(水) 07:28:48
Excelに関する質問は、ここで!

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

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

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

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

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


2 :名無しさん@そうだ選挙にいこう:2009/01/14(水) 07:29:42
▼━質問時の注意・決まり事━━━━━━━━━━━━━━━━━━━━
・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 :名無しさん@そうだ選挙にいこう:2009/01/14(水) 07:30:50
★ルールを無視すると…
 >>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 :名無しさん@そうだ選挙にいこう:2009/01/14(水) 07:31:26
★ 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 :名無しさん@そうだ選挙にいこう:2009/01/14(水) 07:32:16
上記 「Excelで出来ないこと、仕様上の制限」 は、一般的に出来ないとされていること、出来ないと思われるものです。
間違いがある可能性もあるので、上記に挙がってるもので「コレはこうすれば出来るよ」というものがあったらご指摘ください。
Excel2007についても未確認な項目が多いので変更点が有ればご指摘下さい。

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

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

6 :名無しさん@そうだ選挙にいこう:2009/01/14(水) 07:33:11
   ||
   || ━ 質問のしかた ━
   ||
   || ★1 質問するときは、環境や条件をキチンと書くこと。情報後出しはダメ。
   || ★2 要望は具体例や図を使って明確かつ具体的にしる。
   || ★3 質問前に>>2-20あたりの注意書きやQ&Aを必ず読むこと。
   || ★4 質問テンプレ(雛形)は必須ではないが、
   ||    OSやExcelのバージョン、VBAの可否などは必須情報。
   ||
   ||            ∧ ∧   。
   ||          ( ,,゚Д゚)/ ジュウヨウ!!      E[]ヨ
    ̄ ̄ ̄ ̄ ̄ ̄ ̄ノ  つ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
                /  ̄ ̄ ̄ ./| ________________
                | ̄ ̄ ̄ ̄| | |
 ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄|____|/|
                        ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
      \    は〜〜〜〜い      /
    ∧ ∧    ∧,,∧   ∧ ∧
    ( ,, ∧▲  ミ  ∧ ∧ (  ∧ ∧
  〜(_(  ∧ ∧_( ∧ ∧_ミ・д・∧ ∧
    @(_(,,・∀・)@ (   *)〜ミ_ (   ,,)
      @(___ノ 〜(___ノ    〜(___ノ

エクセルの技術的な質問と関係ない議論・雑談は下記スレッドで。

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

7 :名無しさん@そうだ選挙にいこう:2009/01/14(水) 07:33:47
【 このスレの登場人物 】
┌─質問者───────────
どこにでもいるごく普通の初心者だったり
会社で上司に無理難題を押しつけられて困っている人だったりする。
たまに学生が宿題を持ち込んでくることも。
┌─回答者───────────
テンプレを使わないと無視したり、質問を小出しにするとキレたりするくせに
自分は回答を小出しにして優越感に浸りニヤニヤしている嫌なヤツ。
┌─自称回答者─────────
質問者を煽ったり、回答者を煽ったり、とにかくスレを引っかき回すだけで
何の役にも立たない賑やかし。単なるヒマ潰しでこのスレを見ている。
┌─VBA厨 ───────────
VBAは万能と信じ、どんな単純な問題もついVBAで解いてしまう。
Module1がデフォルトで挿入されている世界を夢見るが、いまだ実現していない。
その実態はほとんどが理系の(元)学生。ピボット厨に目の敵にされている。
┌─ピボット厨──────────
ピボットテーブルの機能が強力すぎるため、なんでもできると錯覚している。
口癖は「データを正規化して出直せ」「ピボッと参上ピボッと解決」など。
弱点は大嫌いなVBAを使わないとテーブルのリアルタイム更新ができないこと。
┌─啓蒙先生──────────
ピボット厨一派の過激派。Excelはピボットテーブルだけのためにあり、
それ以外の機能はワークシート関数すら不要と言い切る。ピボットテーブルで
解決できない質問からは威嚇しながら逃げる。最初から出てこなきゃいいのに。
┌─そのほか──────────
ワークシート関数厨……何重にも入れ子になった複雑怪奇な数式を作り出し、
関数だけでどんな問題も解いてしまう。たまに自分でも何をやっているか
わからなくなる。悩みは数式バーが1行しかないこと、頭が薄くなってきたこと。

配列数式厨……意外と使えるやつだが滅多に出てこない、というか出番がない。
極めてマイナーな存在。見かけたらその日はいいことがあるかも。

ナレーター……誰か知らない人。

8 :名無しさん@そうだ選挙にいこう:2009/01/14(水) 12:31:36
相変わらず配列数式厨の解説間違ってるな。
あいつら馬鹿だから見かけても何もいいことない。


9 :名無しさん@そうだ選挙にいこう:2009/01/14(水) 17:51:33
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2000
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード     】 ボタン固定

マクロ初心者です。

マクロを実行するボタンを作りました。
ボタンの上で右クリックでメニューが出ないようにするには
どうすればよいのでしょうか。
基礎的なことなんですが、わかりません。。。
どなたか教えてください。。

10 :名無しさん@そうだ選挙にいこう:2009/01/14(水) 21:04:43
>>9
シート保護

11 :前スレ997:2009/01/14(水) 22:47:37
>>http://pc11.2ch.net/test/read.cgi/bsoft/1228655230/998
わかりました。
対象セルに除去したい文字列が入ってないパターンや、
複数入ってるパターンなどもあり、件数も1件〜5件です。
何か考えてみます。ありがとうございました。

12 :名無しさん@そうだ選挙にいこう:2009/01/14(水) 22:53:05
前スレ>>994に拍手
>>9
http://www.google.com/search?hl=ja&safe=off&client=opera&rls=ja&hs=7P6&q=vba%E3%80%80%E5%8F%B3%E3%82%AF%E3%83%AA%E3%83%83%E3%82%AF%E7%A6%81%E6%AD%A2&btnG=%E6%A4%9C%E7%B4%A2&lr=
色々合ってイマイチどれがいいか分からない


13 :9:2009/01/14(水) 22:53:22
デザインモードを解除したら、出来ました。
お騒がせしました。

14 :名無しさん@そうだ選挙にいこう:2009/01/14(水) 22:54:32
>>11
if
find
@yahoo.co.jp
>1
を組み合わせてみてはいかがか

15 :名無しさん@そうだ選挙にいこう:2009/01/15(木) 00:01:43
前スレ>>994は良く出来ているようでメンテナンス性という大きな欠点もある

16 :名無しさん@そうだ選挙にいこう:2009/01/15(木) 00:05:04
そんなのねえよw

17 :名無しさん@そうだ選挙にいこう:2009/01/15(木) 00:17:42
じゃ明後日の方向に修正しておこう
{=1+SUM((A1<{20,15,10})*1)}

18 :名無しさん@そうだ選挙にいこう:2009/01/15(木) 01:34:00
マイナスが無いとすれば
=5-MATCH(A1,{0,5,15,20})

19 :名無しさん@そうだ選挙にいこう:2009/01/15(木) 08:31:13
解ってない奴三連続

20 :名無しさん@そうだ選挙にいこう:2009/01/15(木) 10:08:35
どれが最善かはデータによるわな。
整数で区分けが多ければ前スレの>>989だろうな。
>>18は冒頭の5がいまいちだね。
>>17はこのくらいの区分けなら問題ないが、多くなると重くなる。

21 :名無しさん@そうだ選挙にいこう:2009/01/15(木) 10:31:35
解ってない奴6連続

22 :名無しさん@そうだ選挙にいこう:2009/01/15(木) 10:37:07
>>21
おめーにゃ分かるのは無理だよ。

23 :名無しさん@そうだ選挙にいこう:2009/01/15(木) 10:38:48
>>21が一番いいと思ってるのはどれだろな。
レベルを知りたいから教えて欲しい。

24 :名無しさん@そうだ選挙にいこう:2009/01/15(木) 11:05:33
>>23
ではまず君が一番いいと思ってる方法を示そう

25 :名無しさん@そうだ選挙にいこう:2009/01/15(木) 11:06:01
まぁ、どうせ出来ないだろうけど

26 :名無しさん@そうだ選挙にいこう:2009/01/15(木) 11:15:14
>>24
23じゃないけど
つVLOOKUP

さあ、>>21の意見を聞こうか?
まあ、答えられないカスだろうけどw

27 :名無しさん@そうだ選挙にいこう:2009/01/15(木) 12:54:04
>>994の見た目のシンプルさを推すね

28 :名無しさん@そうだ選挙にいこう:2009/01/15(木) 14:38:53
踊る〜、踊る〜

29 :転載:2009/01/15(木) 15:29:12
994 名前:名無しさん@そうだ選挙にいこう[sage] 投稿日:2009/01/14(水) 21:35:10
じゃあ俺は
=1+(A1<20)+(A1<15)+(A1<10)

30 :名無しさん@そうだ選挙にいこう:2009/01/15(木) 15:44:01
データの下限が決まってれば
=VLOOKUP(A1,{0,4;10,3;15,2;20,1},2)なんだけどなあ。
IFで下限を判定するのは無駄っぽいし。

31 :名無しさん@そうだ選挙にいこう:2009/01/15(木) 15:55:47
>>29
これもね。

966 :名無しさん@そうだ選挙にいこう :2009/01/13(火) 23:19:28
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2007
【3 VBAが使えるか    .】 no
【4 VBAでの回答の可否】 否
【5 検索キーワード     】

20以上 ならば 1
15以上、20未満 ならば 2
10以上、15未満 ならば 3
10未満 ならば 4

というふうに、表示されるようにしたいのですが
どのような式にすれば良いのでしょうか?

よろしくお願いします。

32 :名無しさん@そうだ選挙にいこう:2009/01/15(木) 15:56:19
970 :名無しさん@そうだ選挙にいこう :2009/01/13(火) 23:59:08
>>966
IF(A1>=20,1,IF(A1>=15,2,IF(A1>=10,3,4)))

972 :名無しさん@そうだ選挙にいこう :2009/01/14(水) 00:01:00
>>966
うーん・・ちょっと面白い数式を考え付いた
A2に数字が入ってるとして
=ROUNDUP(A2/-5+5,0)
ただこれは5<=A2<=25
の範囲でしか使えないのが残念。範囲外はifで分ければいいんだけどさー
何か閃きそうなんだよなあ

978 :名無しさん@そうだ選挙にいこう :2009/01/14(水) 04:02:05
無駄にわかりにくい数式を2つほど作ってみた

これだとIFが2つで済む
=IF(SIGN(INT((A1-5)/20)),IF(A1<10,4,1),ROUNDUP(5-A1/5,0))

個人的にはこういうのが好き
=CHOOSE(SIGN(INT((A1-5)/20))+2,4,ROUNDUP(5-A1/5,0),1)

979 :名無しさん@そうだ選挙にいこう :2009/01/14(水) 04:29:57
IFが1つ
=IF((5<A1)*(A1<25),ROUNDUP(5-A1/5,0),2.5-1.5*SIGN(A1-9))

33 :名無しさん@そうだ選挙にいこう:2009/01/15(木) 18:10:55
この問題はすでに解決してて、以後ワークシート関数厨が雑談してるだけ

34 :名無しさん@そうだ選挙にいこう:2009/01/15(木) 18:51:43
なんでわざわざわかりにくくするのか理解できない 本気で頭悪いな

35 :名無しさん@そうだ選挙にいこう:2009/01/15(木) 19:20:05
おまいら、特に>>21下の問題を解いてみ?
200点満点で
180以上が1
160以上180未満が2
140以上160未満が3
110以上140未満が4
80以上110未満が5
50以上80未満が6
30以上50未満が7
20以上30未満が8
20未満が9
を求める式を述べよ。
点数はA1にあるものとする。

36 :名無しさん@そうだ選挙にいこう:2009/01/15(木) 19:53:24
カス>>21に降っても無駄だって。

37 :名無しさん@そうだ選挙にいこう:2009/01/15(木) 20:02:13
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2003
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード     】 VBA 足し算 sum

教えてください。
sum(a1:a5)をa6(データの最終セルの下)
に表示したいのです。
しかしデータの数は毎回違うため
sum(a1:a5)とは限らず
sum(a1:a10)・sum(a1:a1500)かも知れません。
そういった場合のマクロを教えてください。
よろしくお願いします。



38 :名無しさん@そうだ選挙にいこう:2009/01/15(木) 20:17:35
>>26
>>21がカスなのはたしかだが、VLOOKUPは少し無駄。

39 :名無しさん@そうだ選挙にいこう:2009/01/15(木) 20:59:38
>>35
=ROUNDUP(10-MAX(20,MIN(180,A1))/20,0)

40 :名無しさん@そうだ選挙にいこう:2009/01/15(木) 21:04:03
なんだ ぜんぜんちがうやんw

41 :名無しさん@そうだ選挙にいこう:2009/01/15(木) 21:25:36
http://www.kent-web.com/pubc/book/test/uploader/uploader.cgi?mode=downld&no=1654

42 :名無しさん@そうだ選挙にいこう:2009/01/15(木) 22:05:47
>>35>>29の応用でよくね?
ってかそろそろ雑談おわらせね?
>>37
Sub Macro1()
Dim alast As Long
alast = Cells(65536, 1).End(xlUp).Row
Cells(alast + 1, 1).Formula = "=SUM(a1:a" & alast & ")"
End Sub

まくろの記録でctrl+↑とかすれば分かると思う
後は変数の勉強すればすぐにできるよ

43 :名無しさん@そうだ選挙にいこう:2009/01/15(木) 22:59:23
関数について質問です。
たとえば、COUNTIF等で範囲:検索条件を設定するときに検索条件を100以上に設定する場合は
どうすればいいのでしょうか?
横に並ぶ場合は50>=100でいいのですが、下に検索条件を設定するのでよく分かりませんでした。
分かる方教えて下さい


44 :名無しさん@そうだ選挙にいこう:2009/01/15(木) 23:05:12
>>43
日本語が難解だがこれでいいのか
=COUNTIF(B1:D1,">100")


45 :名無しさん@そうだ選挙にいこう:2009/01/15(木) 23:16:38
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2003
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 否
【5 検索キーワード     】 グラフ データ範囲 相対参照

選択肢がA,B,C,Dの4つであるアンケートが100問あり,
4行を1セットにして,以下のように入力してあります。

A1 質問1の回答Aの割合(%)
A2 質問1の回答Bの割合(%)
A3 質問1の回答Cの割合(%)
A4 質問1の回答Dの割合(%)
A5 質問2の回答Aの割合(%)
A6 質問2の回答Bの割合(%)
A7 質問2の回答Cの割合(%)
A8 質問2の回答Dの割合(%)
   ・・・
そして,B1:B4の4行分のセルを使って,質問1の積み上げ棒グラフを表示します。
このグラフのデータ範囲は $A$1:$A$4 となっているため,B5にこのグラフを
コピーしてもデータ範囲は $A$1:$A$4 のままです。
データ範囲を相対参照の $A1:$A4 としてみましたが,うまくいきませんでした。 
同じ形式のグラフを100個,効率よく作るにはどのようにしたらよいでしょうか?

46 :名無しさん@そうだ選挙にいこう:2009/01/15(木) 23:21:00
>>45
まず質問
質問ごとにグラフを作るのか、それとも一つのグラフシートの中に質問100個分の積み上げグラフをいれるのか、どっち?

47 :名無しさん@そうだ選挙にいこう:2009/01/15(木) 23:53:06
質問ごとにグラフを作ります。つまり100個のグラフが縦に並びます。

48 :名無しさん@そうだ選挙にいこう:2009/01/16(金) 01:21:11
>>47
グラフの表示位置はセルの区切りとは無関係なので相対参照にできない。
VBA不可なら手作業で地道にやるしかない。

隣接する100個のセルの幅を1ピクセルにして色を塗って棒グラフのように見せかけるという手ならある。

49 :名無しさん@そうだ選挙にいこう:2009/01/16(金) 07:44:54
>>45
VBA使えるならVBA
マクロ記録してfornextでまわせばすぐにできるっしょ

VBAを使えない環境なら・・
まずA1-B4のク゛ラフを作る。ドラッグしてctrl+v(コピー)。右クリックで元のデータ→範囲変更
が早いと思う


50 :名無しさん@そうだ選挙にいこう:2009/01/16(金) 07:57:05
見た目が手頃なサイズにしてれば
コピー後グラフクリックで表示される参照範囲の色付き枠線を
マウスポインタ十字の状態で選択して4セル分
引きずりおろすのが早いかな?

51 :名無しさん@そうだ選挙にいこう:2009/01/16(金) 08:32:06
>>42
全然分かってないね君は。

52 :名無しさん@そうだ選挙にいこう:2009/01/16(金) 09:11:06
>>51
では教えてくださいm(_ _)m

53 :名無しさん@そうだ選挙にいこう:2009/01/16(金) 09:19:28
windows2000、excel2003、vba×
sum関数でA1:A3の合計をA4に出したいのですが、
N/Aエラーが出る事があります。
sumの結果もエラーになってしまうのでエラーをのぞいた合計を出したいのですが
どうすれば良いでしょうか
if(iserror("もとのA1の式")=,"","もとのA1の式")
という形にしてみたところA1:A3の中の式は長いので、字数オーバーでしたorz
よろしくお願いします。

54 :53:2009/01/16(金) 09:22:23
すいません、調べて自力で解決できてしまいました。
=ISNUMBER(A1)+ISNUMBER(A2)+ISNUMBER(A3)
でいけました。もし他にスマートな方法があれば、お願いします。
(量が多いと間違えそうなので・・)

55 :53:2009/01/16(金) 09:28:15
ああ、全然違いましたすいません

56 :名無しさん@そうだ選挙にいこう:2009/01/16(金) 10:27:46
>>53
とりあえずこれで
=SUMIF(A1:A3,"<>#N/A")

57 :名無しさん@そうだ選挙にいこう:2009/01/16(金) 10:37:25
>>53
ISNUMBERを入れるなら配列数式
=SUM(IF(ISNUMBER(A1:A3),A1:A3,0))

58 :53:2009/01/16(金) 10:43:58
>>56>>57
ををををすごい!ありがとうございます!
配列ってこういうふうに使うんですね

59 :名無しさん@そうだ選挙にいこう:2009/01/16(金) 11:27:01
>>41
おめーカス>>21か?
1〜9を求めるのになんで2列必要なんだよ。
解ってないやつはお前だよ。

60 :名無しさん@そうだ選挙にいこう:2009/01/16(金) 11:39:20
59はどうやって41のパスワードを破ったんだろう
気になる

61 :名無しさん@そうだ選挙にいこう:2009/01/16(金) 11:43:51
>>60
シート全体を新規作成したブックにコピペ

62 :名無しさん@そうだ選挙にいこう:2009/01/16(金) 11:55:40
>>61
式はどんな式?

63 :名無しさん@そうだ選挙にいこう:2009/01/16(金) 13:11:26
式じゃなくてVBA
VLOOKUPみたいに表作ってるし・・VLOOKUPでいいだろこれ

64 :名無しさん@そうだ選挙にいこう:2009/01/16(金) 13:47:33
シートのコピペだと値しかコピーされない
数式を見るにはOOoで保護解除

65 :名無しさん@そうだ選挙にいこう:2009/01/16(金) 14:21:00
保護の解除にわざわざOOo立ち上げるの?
俺は個人用マクロブックにパス無し保護解除のマクロ入れてるけどね

まあ、Excelの保護機能はそれも情報流出防止ではなく誤改変防止で
パス紛失時に成果物まで損失することを防ぐ為にも
パス無しでも比較的簡単に保護が解除できるようにわざと作られてるとは言え
他人が設定した保護をその方法で解除するのはよろしくないので
あまりおおっぴらに具体的な解説は出来ないが

66 :名無しさん@そうだ選挙にいこう:2009/01/16(金) 14:35:05
>>63
コード教えて。

67 :名無しさん@そうだ選挙にいこう:2009/01/16(金) 14:59:11
>>66を見てイラッと来たのは俺だけでいい


68 :名無しさん@そうだ選挙にいこう:2009/01/16(金) 14:59:25
>>66
俺もコードは分からん。会社のPCらにOOoはさすがに入れにくいので
帰ってからOOo使うかな
表がある時点で大体予想はつくけどねぇ


69 :名無しさん@そうだ選挙にいこう:2009/01/16(金) 15:13:10
ActiveSheet.Cells.Find("ooo" or "xxx")
的なOR検索がやりたいんだが、スマートな方法ない?

70 :名無しさん@そうだ選挙にいこう:2009/01/16(金) 15:13:30
>>62
=VLOOKUP(A1,$E$1:$F$10,2,1)
あまり賢い式ではない。
間違いではないけどな。

71 :名無しさん@そうだ選挙にいこう:2009/01/16(金) 15:14:45
>>69
部分一致、それとも完全一致?

72 :69:2009/01/16(金) 15:19:41
>>71
完全一致です。

73 :名無しさん@そうだ選挙にいこう:2009/01/16(金) 15:21:40
それで検索してどうするの?

74 :名無しさん@そうだ選挙にいこう:2009/01/16(金) 15:28:42
>>69
スマートかどうか知らんが俺ならinputboxで最初に検索条件数、
次のinputboxに検索条件、かなぁ
最適化するには他の手順が分からないと何とも



75 :名無しさん@そうだ選挙にいこう:2009/01/16(金) 15:30:56
>44 遅くなりましたが、それのことを言いたかったです。
どうもありがとうございました!

76 :69:2009/01/16(金) 15:35:54
>73
意味がよくわからないが
ヒットした同一行の別の列に対して色々処理をしたいので
セルオブジェクトかアドレスを取得する必要がある

77 :名無しさん@そうだ選挙にいこう:2009/01/16(金) 16:09:06
セル走査して正規表現でいいんじゃね?
With CreateObject("VBScript.RegExp")
.pattern = "^(AAA|BBB)$"
For Each r In ActiveSheet.UsedRange
If .test(r.Value) Then MsgBox r.Address
Next
End With

78 :名無しさん@そうだ選挙にいこう:2009/01/16(金) 17:13:43
【1 OSの種類】WindowsVista
【2 Excelのバージョン】Excel2007
【3 VBAが使えるか】いいえ
【4 VBAでの回答の可否】可
【5 質問内容】
条件付き書式 を利用したいのですが、うまく指定できません。

指定したい条件は、以下の4点です。
 (1)からっぽのセルを除外;LEN()>0
 (2)行1を除外;ROW()>1
 (3)列A〜Cを除外;COLUMN()>3
 (4)行番号の偶数奇数を判定;MOD(ROW(),2)=0または1

これらを AND() で一括りにして試したのですが、
どのセルも書式が反映されず、困っています。

赤ペン先生、ご回答ご教示のほど宜しくお願いします。。(ペコリ

※[適用先]は"=$1:$65536"、[条件を満たす場合は停止]はオフにしてあります。
 また、条件式は上記2つ;(4)の奇数/偶数時;のみです。

79 :69:2009/01/16(金) 17:32:15
>>77
おお、VBScript.RegExpか。件数が少なければそれがベストっぽいな。d
件数多い場合はFindを繰り返すしかないかなぁ。。。

80 :名無しさん@そうだ選挙にいこう:2009/01/16(金) 17:32:41
>>78
数式が=AND(LEN(A1)>0,ROW()<>1,COLUMN()>3,MOD(ROW(),2)=0)


81 :80:2009/01/16(金) 17:34:29
ああ、これをA1に指定。後はオートフィル

82 :名無しさん@そうだ選挙にいこう:2009/01/16(金) 17:37:58
1行目とA〜C列には書式設定しなきゃいいだけじゃねーのそれ?

83 :名無しさん@そうだ選挙にいこう:2009/01/16(金) 17:59:04
【1 OSの種類         .】 WindowsVista
【2 Excelのバージョン   】 Excel2007
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード     】 Excel 2007 入れ子 無制限

別のとあるセルに入力した文字列によって、それぞれ異なる文字列を表示させたいのですが
どうしたらいいですか?
IFで済ませようと思ったのですが
調べたらExcel2007はIFの入れ子が64までしかできないようなのです。
できれば最低100くらいは表示させたいのですが、
何かよい方法はありませんか?

84 :名無しさん@そうだ選挙にいこう:2009/01/16(金) 18:02:16
>>80-81
せっかくご教示くださったのにすいません、
もう他の部分の書式/入力を済ませてしまったので。。

>>82
おっしゃる通りなんですが、もろもろあって、
全体でズバンと設定しておきたくて^^;

ttp://www3.uploda.org/uporg1937651.png
====== 
   ‖
  ('A`)
   l( l)
    | |

※条件式="AND(LEN()>0, ROW()>1, COLUMN()>3, MOD(ROW(),2)=0または1)"

85 :名無しさん@そうだ選挙にいこう:2009/01/16(金) 18:02:31
>>78
>>82の言うとおりだな。
ただ=AND(式1.式2)とするより=IF(式1,式2)とした方が良い。

86 :名無しさん@そうだ選挙にいこう:2009/01/16(金) 18:15:18
>>83 VLOOKUP

87 :名無しさん@そうだ選挙にいこう:2009/01/16(金) 18:20:59
>>85
いま、>>82さんのご助言通りに適用範囲をしぼって、
MOD(ROW(),2) だけ指定してみたのですが、
やはり色分けが効かないようです。。(>>84の画像のママ)

Excel を再インストールしようかなあ。。

88 :名無しさん@そうだ選挙にいこう:2009/01/16(金) 18:21:33
>>86
さりがとうございます。今調べてきたのですがなんとかできそうです。
また詰まってしまったら質問させてください

89 :名無しさん@そうだ選挙にいこう:2009/01/16(金) 18:46:15
>>87
根本的にわかってないみたいだから、再インストールじゃ絶対に直らない。
=MOD(ROW(),2)=1
↑これをこのまま入れるんだよ。最後の「=1」を忘れずに

90 :名無しさん@そうだ選挙にいこう:2009/01/16(金) 19:16:45
>>87
数式を""で囲んでんじゃないの?
それじゃ数式じゃなく文字列になる。
""は要らん。

91 :名無しさん@そうだ選挙にいこう:2009/01/16(金) 19:19:36
>>83
笑わせるなよ。
IFのネストは10でも多すぎるくらいだ。
そんな長い式書いちゃいかん。

92 :名無しさん@そうだ選挙にいこう:2009/01/16(金) 20:03:48
>>89-90
いや、さすがにその手の間違いはしてませんです^^;

ただ、もっと根本的なところで、
ぼくが間違っているのかも知れませんが、
心底お手上げ状態です。。

ttp://www3.uploda.org/uporg1937897.png

>=AND(ISBLANK()=0,ROW()>1,COLUMN()>3,MOD(ROW(),2)=0)


93 :名無しさん@そうだ選挙にいこう:2009/01/16(金) 20:05:11
↑gdgdお手数ばかりお掛けして済みません。。
もし最後の添削/アドバイスがあればちょうだいしたいです。。

94 :名無しさん@そうだ選挙にいこう:2009/01/16(金) 20:17:40
>>92
()の中にはセル番号を入れなきゃいかん。
条件付きで()によるActiveCellは指定できん。

95 :名無しさん@そうだ選挙にいこう:2009/01/16(金) 20:42:04
セル指定を省略できるかどうかは関数による。
LEN()はエラーになるけどROW()は問題ない。

96 :名無しさん@そうだ選挙にいこう:2009/01/16(金) 21:01:40
>>95
みたいですね…。
LEN(), ISEMPTY() はセル指定が必須のようで、
セルがカラかどうかを調べるのには
ことごとく失敗してしまいました。。


97 :名無しさん@そうだ選挙にいこう:2009/01/16(金) 21:08:00
たとえばA1に条件付書式を設定するならセル指定にA1をいれればいい
あとはそれをコピペするだけでどこのセルでも条件付書式が効く

98 :名無しさん@そうだ選挙にいこう:2009/01/16(金) 21:16:47
そりゃ当たり前だ
A1=LEN(A1)とかやったら循環参照になるだろ

99 :名無しさん@そうだ選挙にいこう:2009/01/16(金) 21:27:39
イミフ

100 :名無しさん@そうだ選挙にいこう:2009/01/16(金) 22:25:18
【1 OSの種類】Window XP
【2 Excelのバージョン】Excel2007
【3 VBAが使えるか】いいえ
【4 VBAでの回答の可否】?
【5 質問内容】
知り合いにもらったデータの縦のセルがA1、A4、A200、A400…
などのようにとびとびで表示されている。パラメータがいくつもあるデータなので
そうしているのだろうが…
これはどういった機能を使っているのか誰か教えてくれませんか?

101 :名無しさん@そうだ選挙にいこう:2009/01/16(金) 22:28:42
>>100
列が非表示になってるなら列の非表示機能
飛び飛びのセルの値が画像として貼り付けられてるならカメラ機能かな?
それでなければもうちょっと状況を日本語で説明してくれい

102 :名無しさん@そうだ選挙にいこう:2009/01/16(金) 22:31:03
空白じゃない条件式は<>""でいけんじゃね?
手元にExcel無いから確認できんけど

103 :名無しさん@そうだ選挙にいこう:2009/01/16(金) 22:32:40
>>101
検索してみたら非表示機能を使っているっぽかった。
ありがと

104 :名無しさん@そうだ選挙にいこう:2009/01/16(金) 22:36:50
>>98 なにいってんのおまえw

105 :名無しさん@そうだ選挙にいこう:2009/01/17(土) 00:30:10
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2000
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否

複数のシートの同じセルに入っているデータからグラフを一気に作成することはできますか?
例えばSheet1のA1:A30をX軸、B1:B30をY軸の値として系列1とする。
同じグラフの系列2はSheet2の同じセルのデータとする。
これをSheet枚数分行いたいのですが、何か方法はあるでしょうか?

106 :名無しさん@そうだ選挙にいこう:2009/01/17(土) 01:09:09
>>45 >>47 です。

>>48
相対参照にできないとわかり,その点はすっきりしました。
VBA不可というより,VBAを使うまでもなく,簡単に解決できると
思っていただけですので,VBAでやってみます。
「100個のセルに色を塗って…」も,以前やったことがあります。
が,他人には不評でしたので今回はグラフでやっています。

>>49
for next でやってみます。
「コピー → 右クリックで元のデータ → 範囲変更」を100回やって
辟易したので質問させていただきました。

>>50
「マウスポインタ十字の状態で選択して…」を100回やって辟易…

ということで,みなさんありがとうございました。
しかし,このような用途で,相対参照にできないというのは,EXCELに
しては不思議な感じがします。意図あってのことなのでしょうけど。


107 :名無しさん@そうだ選挙にいこう:2009/01/17(土) 02:11:31
>>106
ワークシートは「ワークシートオブジェクト」、グラフは「チャートオブジェクト」という
全然別々のパーツを画面の上で重ねて表示しているだけなので
グラフには相対参照という概念が存在しないのよ。

もしもグラフをどこかのセルの中に入れるような仕様になっていれば
相対参照できたかもしれないけど、そうなってないし。

108 :名無しさん@そうだ選挙にいこう:2009/01/17(土) 09:34:53
>>105
=sum(Sheet1:Sheet3!$A$1:$A$2)
とすれば串刺し計算が可能になるが、グラフでは使えないっぽい
>>106
非常にどうでもいい質問だが、なぜ読点が「,」なの?OS依存?ただの癖?

109 :名無しさん@そうだ選挙にいこう:2009/01/17(土) 09:38:47
公務員なんだよ

110 :名無しさん@そうだ選挙にいこう:2009/01/17(土) 11:51:18
>>105
シート名が単純にSheet1、Sheet2…ならINDIRECTを使ってデータを作業用シートにまとめてからグラフを作る

111 :名無しさん@そうだ選挙にいこう:2009/01/17(土) 12:29:50
>>107
>グラフには相対参照という概念が存在しないのよ。
わかりました。

>>108-109
>なぜ読点が「,」なの?
癖といえば癖です。
「句読点は,横書きでは「,」および「。」を用いる。」
という決まりの仕事場で働いているだけです。
公務員ではないですが,ちょっと「公」もある関係でしょうか。

112 :名無しさん@そうだ選挙にいこう:2009/01/17(土) 13:02:16
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2003
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード     】 EXCEL VBA ListIndexのクリア

リストボックス1(数値01〜50)
リストボックス2(数値101〜200)
があり、それぞれ、
「1つだけ選択できる」
「複数選択を許可する」
「拡張(連続)選択を許可する」
をコマンドボタンで切り替えてから、選択するようにしてあります。

リストボックス1の中から選択した場合、リストボックス2の選択状態を解除する。
逆に、2の中から選択した場合は1の選択状態を解除する。というようにしたいので、
ListIndex = -1
を選択処理の前に入れました。

「1つだけ選択できる」の場合はこれで良かったのですが、
「複数選択を許可する」
「拡張(連続)選択を許可する」
の場合は、他方の選択状態が解除されませんでした。

どのようなコードにすればよいのでしょうか?

113 :名無しさん@そうだ選挙にいこう:2009/01/17(土) 13:09:25
>>111
棒グラフを大量に並べたいならこういう方法もある。
見栄えは悪いけど誰でも簡単に量産できる。
ttp://windyakin.if.land.to/src/up38_0493.png

114 :名無しさん@そうだ選挙にいこう:2009/01/17(土) 15:03:35
初心者で申し訳ないんですが
1:24:08を84.8という様に秒数に変換する方法を教えてください。ちなみに1:24:08は1分24秒8を表しています。

よろしくお願いします。

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


115 :21:2009/01/17(土) 15:42:02
シリアル値は1日が1だから、86400倍すりゃ秒数になる。シリアル値*24*60*60だ。表示形式はG/標準。
表示だけでよければ表示形式を[s].0とすりゃよい。

116 :名無しさん@そうだ選挙にいこう:2009/01/17(土) 15:45:29
スマソ、他の板の21で書いてしまった。

117 :名無しさん@そうだ選挙にいこう:2009/01/17(土) 15:46:52

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


(右・左)

すいません
これの左の方をエクセルで○で囲みたいのですがどうすればいいのですか?

118 :名無しさん@そうだ選挙にいこう:2009/01/17(土) 15:48:39
図形描画をつかったらどう?

119 :名無しさん@そうだ選挙にいこう:2009/01/17(土) 15:50:33
>>118
すいません
どのように使ったらいいのでしょうか?

120 :名無しさん@そうだ選挙にいこう:2009/01/17(土) 15:57:29
表示→ツールバー→図形描画でパレット出して
好きな所に丸を書く。
オートシェイプの書式設定で塗りつぶし無しにする。

121 :117:2009/01/17(土) 15:57:42
図形を挿入したら左の字が消えてしまいました
○で囲むだけにするにはどのようにしたらいいのでしょうか?

122 :名無しさん@そうだ選挙にいこう:2009/01/17(土) 15:59:34
>>114
無理やりだが。
=HOUR(A1)*60+MINUTE(A1)&":"&TEXT(SECOND(A1),"00")

123 :名無しさん@そうだ選挙にいこう:2009/01/17(土) 16:00:59
秒は一桁がよかった?
=HOUR(A1)*60+MINUTE(A1)&"."&SECOND(A1)

124 :名無しさん@そうだ選挙にいこう:2009/01/17(土) 16:07:05
>>121 塗りつぶし なし にする

125 :名無しさん@そうだ選挙にいこう:2009/01/17(土) 16:32:08
>>123
>>115

ありがとうございます。
シリアル値を検索してみたんですが*24*60*60の使い方がよくわかりませんでした。
=HOUR(A1)*60+MINUTE(A1)&"."&SECOND(A1)でとりあえず解決いたしました。

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



126 :115:2009/01/17(土) 16:32:19
>>114
1分24秒8を1:24:08と打つのがそもそそも間違ってる。
1:24.8と打たなきゃいかん。
そうすりゃ>>115の答えになる。
>>122-123をみて気がついたw

127 :115:2009/01/17(土) 16:34:37
なんや、シリアル値の間違った使い方で解決してたかw
あとあと苦労するだろうな。
ま、いいか。

128 :名無しさん@そうだ選挙にいこう:2009/01/17(土) 16:36:58
>>126

なるほど。
ただ、とあるHPからコピペして貼り付けておりまして、HP上では1:24.8と表示されているんですが、エクセルに貼り付けると1:24:08となってしまうんです。

129 :名無しさん@そうだ選挙にいこう:2009/01/17(土) 16:45:49
1:24:08でいいよ
だめだっていうのはへんなひとだから

130 :名無しさん@そうだ選挙にいこう:2009/01/17(土) 16:52:47
はいはい、変な人ですみませんね。
おまいは俺以上に変な人だとおもうけどなw
lsk1:24:08は1時間24分08秒のことだからな。

まぁ貼り付けが悪いんだろうな。
テキスト貼り付けでもそうなるのかねぇ。
どうでもいいや。

131 :名無しさん@そうだ選挙にいこう:2009/01/17(土) 16:54:47
http://www2.uploda.org/uporg1940380.jpg
↑で左端がA・・・の時の合計と
       B・・・の時の合計をそれぞれ求めたいのです。
できるだけ簡単な方法を教えてほしいです。
お願いします><

132 :名無しさん@そうだ選挙にいこう:2009/01/17(土) 17:02:13
>1:24:08は1時間24分08秒のことだからな。
たしかにそうだ。へんなひとは俺だったぜ

133 :名無しさん@そうだ選挙にいこう:2009/01/17(土) 17:37:01
>>131
列番号は見えてないから適当。自分で修正して。
=SUMIF($A$13:$A$37,"=A*",D$13:D$37)
=SUMIF($A$13:$A$37,"=B*",D$13:D$37)

134 :名無しさん@そうだ選挙にいこう:2009/01/17(土) 17:41:20
>>128
再現できん。メモ帳に1:24.8と入れてExcelにコピペしたらそのままちゃんと入った

135 :名無しさん@そうだ選挙にいこう:2009/01/17(土) 17:47:05
>>133
即答さんきゅ><
できました^^。
ホントありがとう!謝謝!!!

136 :名無しさん@そうだ選挙にいこう:2009/01/17(土) 19:08:01
>>128
そのHPここに書いてみてくれないか?

137 :名無しさん@そうだ選挙にいこう:2009/01/17(土) 20:19:19
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2000
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 ・否

セルを一度左クッリクすると、指を離してもポインターが範囲指定になってしまい
何もできなくなります。なぜなんでしょうか?

138 :名無しさん@そうだ選挙にいこう:2009/01/17(土) 20:38:13
F8

139 :名無しさん@そうだ選挙にいこう:2009/01/17(土) 20:40:14
http://support.microsoft.com/kb/882233/ja

140 :名無しさん@そうだ選挙にいこう:2009/01/17(土) 21:11:51
>>137
解決しました!どうもありがとうございました!

141 :名無しさん@そうだ選挙にいこう:2009/01/17(土) 21:15:46
>>112
>>2・7

>>137
>>138-139で直らなければ
マウス機能拡張ツールとかも問題である可能性が高い
マウスボタンを離したイベントが正しく処理されないとそうなる

142 :名無しさん@そうだ選挙にいこう:2009/01/17(土) 23:18:21
スレチでしたら申し訳ありません

Excel VBAの勉強をしたいと思うのですが
どの参考書を読むのがよいでしょうか?

143 :名無しさん@そうだ選挙にいこう:2009/01/17(土) 23:56:26
>>142
>>2のBな

144 :名無しさん@そうだ選挙にいこう:2009/01/18(日) 00:06:55
http://www.moug.net/faq/viewtopic.php?t=37026
俺はIDもってないから書き込めないが、誰か教えてやれば?
標準モジュールじゃなく、シートモジュールのコードとしか思えないんだが。
門前小僧氏もなんで気がつかないんだろうね。
[RC-3]は[RC-1]だろうけどな。

145 :名無しさん@そうだ選挙にいこう:2009/01/18(日) 09:18:40
セルの値を書き換えるとグラフが変わってしまいます
値が1の時のグラフ、値が2の時のグラフをそれぞれ作り、
それを一枚のグラフにまとめたいのだが、値を2に書き換えれば
元の値が1の時のグラフが消えます
これは極端な例だが、だれかこの様な事例の解決策を教えてください



146 :名無しさん@そうだ選挙にいこう:2009/01/18(日) 10:00:58
>>145
VBA使わないと解決しないな

質問時の必須情報(>>1★4)を書いてないので
こっちも具体的な解決策は伏せる

147 :名無しさん@そうだ選挙にいこう:2009/01/18(日) 10:05:32
>>145
データが独立してないと2つのグラフを同時に表示するのは無理。
1のグラフを書くためのデータ、2のデータを
それぞれ別の作業用シートにコピペしとけ。

148 :名無しさん@そうだ選挙にいこう:2009/01/18(日) 11:36:17
【1 OSの種類         .】 Windowsxp
【2 Excelのバージョン   】 Excel2003
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード     】


二つ質問です。
・数式のオートフィルをするときに、数が少ない場合だとセルの隅をドラッグして行いますが、
セルの数が多い場合だと「編集」「フィル」「連続データの作製」を使っていつも行うのですが、
すでにオートフィルしたいセルにデータが入っている場合、
うまくオートフィルしてくれないのですが、これはいちいちオートフィル場所のデータを消す必要があるのでしょうか?
この現象はセルの隅をドラッグする方法だと起こらないのですが・・・


・例えば行番号が5000くらいのところまでデータを入れたとします。
すると当たり前ですが、右のシークバーがそれに合わせて5000のところまでいけるようになります。
それからデータを削除して行番号が100くらいまでにしたとします。
するとデータは100までしかないのにシークバーはまだ5000までいける状態にあるので、
非常に操作しづらいのですが、これを100用にするにはどうしたら良いのでしょうか?

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

149 :名無しさん@そうだ選挙にいこう:2009/01/18(日) 11:41:13
>>148
2つ目
Ctrl+S

150 :名無しさん@そうだ選挙にいこう:2009/01/18(日) 11:43:00
>>148
1つ目の質問、具体的におかしくなる状況を再現する方法をくわしく。
Ctrl押しながらフィルハンドルのダブルクリックは試してみた?

151 :名無しさん@そうだ選挙にいこう:2009/01/18(日) 11:44:10
>>148
それ、スクロールバーね。シークバーは音楽とかビデオを早送りする時に使うやつ。

152 :名無しさん@そうだ選挙にいこう:2009/01/18(日) 12:19:06
【1 OSの種類         .】 Windowsvista
【2 Excelのバージョン   】 Excel2003
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード     】

Excelには図表を自動で連番にしてくれる機能はあるようなのですが、
数式を連番にしてくれる機能はどこにあるのでしょうか?
相互参照のところを見ると数式の項目があるのでどこかにはあると思うのですが・・・


153 :152:2009/01/18(日) 12:20:18
すいません、wordの質問でした。
間違えました。


154 :名無しさん@そうだ選挙にいこう:2009/01/18(日) 13:01:24
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2003
【3 VBAが使えるか    .】 はい(簡単なものなら)
【4 VBAでの回答の可否】 可
【5 検索キーワード     】

EXCELで作成された名簿表があるのですが
表の中から特定の行だけを自動抽出して、別シートに
抽出した行だけで自動で表を作る方法はないでしょうか?

具体的にはsheet1に次のような表があります。
B列に名前、C列に連絡先、D列に性別が"男"または"女"で記入されているとします。
(データは8行目以降に記載)

目的としては
sheet2に性別男のみの表を作成、sheet3に性別女のみの表を作成することです。

sheet1から性別男のみの行を抽出してsheet2の8行目以降に
順次反映されるようにしたいです。

155 :名無しさん@そうだ選挙にいこう:2009/01/18(日) 13:12:36
ピボットテーブルで

156 :名無しさん@そうだ選挙にいこう:2009/01/18(日) 13:14:53
フィルターで

157 :名無しさん@そうだ選挙にいこう:2009/01/18(日) 13:27:30
>>155-156
ありがとうございます。
でも、自動でできる方法はないですか。
sheet1を作ればsheet2とsheet3もできあがってるようにしたいです。できれば。

158 :名無しさん@そうだ選挙にいこう:2009/01/18(日) 13:37:33
>>157
AdvancedFilter

使い方はヘルプもしくはGoogle参照

159 :名無しさん@そうだ選挙にいこう:2009/01/18(日) 13:44:17
>>158
ありがとうございます。調べてみます。

160 :名無しさん@そうだ選挙にいこう:2009/01/18(日) 14:39:05
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2007
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード     】 excel vba 使えない文字 ファイル名

csvのデータを処理した後にファイル名を変更して保存したいのですが
TgtBook.SaveAs Filename:="test[test]" & "_mod.csv"
例えば上のようにした場合 [ ] が含まれているためか
実行時エラー  '1004':
ファイルにアクセスできませんでした。次のいずれかを行ってみてください。
と表示されます。
TgtBook.SaveAs Filename:="test2" & "_mod.csv"
と直すと保存出来、正常に終了します。
なんとかして保存するファイル名に [ ] を使うことはできないのでしょうか?

161 :148:2009/01/18(日) 14:39:36
>>150
ありがとうございます。
その方法でうまくいきました。

できれば2つめの質問もお願い出来ないでしょうか?
よろしくお願い致します。

162 :名無しさん@そうだ選挙にいこう:2009/01/18(日) 14:51:31
【1 OSの種類         .】 WindowsVista
【2 Excelのバージョン   】 Excel2007
【3 VBAが使えるか    .】 不可
【4 VBAでの回答の可否】 不可
【5 検索キーワード     】

最近、PCをVistaとExcel2007に変更しました。旧PCのExcel2003では、
例えばセルに、1*1 や 3/3 と打ち込むと、1といった計算結果が出ていたのですが、
2007では、 そのまま1*1や3月3日と出てしまいます。計算結果が出るように変えたいのですが
どのようにすればよいでしょうか。よろしくお願いします。

163 :名無しさん@そうだ選挙にいこう:2009/01/18(日) 15:58:47
>>162
式の一番前に"="を付けるんだ!

164 :名無しさん@そうだ選挙にいこう:2009/01/18(日) 16:03:08
>>163
ありがとうございました、すっきりしました。

165 :名無しさん@そうだ選挙にいこう:2009/01/18(日) 16:41:27
>>161
一度保存してミソ?

166 :名無しさん@そうだ選挙にいこう:2009/01/18(日) 16:43:21
【1 OSの種類         .】 WindowsVista
【2 Excelのバージョン   】 Excel2007
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】   不可
【5 検索キーワード     】 excel 乱数 

excelでland関数を使って乱数を発生させるようにしているのですが、ほかのセルに文字を入力して確定すると
乱数が選びなおされてしまうようです。できればこのようなときは乱数を変えず、
F9キーを押したときのみ乱数を再発生させるようにしたいのですが、このようなことはできますか?

167 :名無しさん@そうだ選挙にいこう:2009/01/18(日) 16:48:14
>>166
VBAつかわないと無理

168 :名無しさん@そうだ選挙にいこう:2009/01/18(日) 16:50:55
>>167
そうですか
それではVBAを勉強することにします。

169 :名無しさん@そうだ選挙にいこう:2009/01/18(日) 17:10:43
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2003
【3 VBAが使えるか    .】 可
【4 VBAでの回答の可否】 可
【5 検索キーワード     】

Excelでグラフシートで、横長にグラフを作ったとします。
これをシフトを押しながら「編集」を押して図としてコピーしてwordに貼り付けると
上と下の余白部分までコピーされてしまいます。
これを図の周りだけコピーされるようにすることは出来ないのでしょうか?



170 :名無しさん@そうだ選挙にいこう:2009/01/18(日) 17:14:44
>>165
ありがとうございます。

保存すると確かに編集中に入力してその後に削除したものの情報は消されてスクロールバーはもとに戻るのですが、
最初からデータが入っていて、それを削除したものだとなぜかリセットされないのですが・・・
なぜでしょうか?


171 :名無しさん@そうだ選挙にいこう:2009/01/18(日) 17:20:10
>>137です
139で一旦出来ましたが、やはり元の状態にもどってしまいました・・・。
141さんのアドバイス、詳しくお願いできませんでしょうか?

172 :名無しさん@そうだ選挙にいこう:2009/01/18(日) 17:49:17
マウスがこわれてるんだろ
別のつないでみれば

173 :名無しさん@そうだ選挙にいこう:2009/01/18(日) 18:19:47
>>170
データがまだ残っている可能性は?

174 :名無しさん@そうだ選挙にいこう:2009/01/18(日) 19:12:32
【1 OSの種類         .】 Windows2000
【2 Excelのバージョン   】 Excel2003
【3 VBAが使えるか    .】 可
【4 VBAでの回答の可否】 可
【5 検索キーワード     】


開いている全てのExcelファイルから検索をかけたいのですが、そういう機能ってないのでしょうか?
検索のところにはそういう機能が見あたらないのですが・・・


175 :名無しさん@そうだ選挙にいこう:2009/01/18(日) 19:16:03
>>112
ListIndex = -1
を入れる位置をいろいろ試行錯誤してみたらどうだろう?
fmMultiSelectSingle
fmMultiSelectMult
fmMultiSelectExtended
の後ろに入れてやると大概はうまくいくと思うんだが。

176 :名無しさん@そうだ選挙にいこう:2009/01/18(日) 19:19:35
>>174
マクロ使わないと無理

177 :名無しさん@そうだ選挙にいこう:2009/01/18(日) 19:26:52
>>176

そのマクロを教えて下さい。
お願い致します。


178 :名無しさん@そうだ選挙にいこう:2009/01/18(日) 20:04:28
>>177
普通の検索をループで回せばいいだけじゃん
VBA使えるって書いてるんだから、そのくらいは自分でやろう

179 :名無しさん@そうだ選挙にいこう:2009/01/18(日) 20:10:49
>>177
Sub aaa()
  k = InputBox("検索文字列")
  For Each w In Workbooks
    For Each s In w.Worksheets
      Set f = s.Cells.Find(What:=k, After:=Range("A1"), LookIn:=xlFormulas, LookAt:=xlPart, _
              SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
      If Not (f Is Nothing) Then
        s.Activate
        f.Activate
        Exit Sub
      End If
    Next
  Next
  MsgBox ("見つからず")
End Sub

180 :名無しさん@そうだ選挙にいこう:2009/01/18(日) 21:04:20
A、B、C、・・・・と続くようなテキストをコピーして「、」(ほかの記号も指定可)を区切りにして
カーソル指定セルから行および列に順に貼り付けってできませんか?
WindowsXP、Excel2003です。

181 :名無しさん@そうだ選挙にいこう:2009/01/18(日) 21:08:27
>>180
データ→区切り位置

182 :名無しさん@そうだ選挙にいこう:2009/01/18(日) 22:09:00
>>179
ありがとうございます。成功しました。

でも複数のグラフに検索したい文字列ある場合にはどうしたら良いのでしょうか?
検索したい文字列が入っているブックが全て分かるような機能をつけるにはどうしたら良いのでしょうか?
お願い致します。

183 :名無しさん@そうだ選挙にいこう:2009/01/18(日) 22:10:16
【1 OSの種類         .】 Windows2000
【2 Excelのバージョン   】 Excel2003
【3 VBAが使えるか    .】 否
【4 VBAでの回答の可否】 可
【5 検索キーワード     】


グラフの縦軸、横軸の名称の一部を上付き文字、下付文字にしたいのですが、
これってショートカットキーはないのでしょうか?
wordと同じキーだとうまくいかないのですが・・・


184 :名無しさん@そうだ選挙にいこう:2009/01/18(日) 22:34:37
>>183
ショートカットキーはないと思うので「軸ラベルの書式設定」メニューから指定する。

185 :名無しさん@そうだ選挙にいこう:2009/01/19(月) 00:00:19
>>175
ありがとうございます。うまくいきました。
ここ数日のモヤモヤがスッキリです。

186 :名無しさん@そうだ選挙にいこう:2009/01/19(月) 09:25:02
>>170
空の行のデータが残ってるんだ
データが入っていた「行」を「削除」してから「保存」

187 :名無しさん@そうだ選挙にいこう:2009/01/19(月) 11:25:51
>>186
ありがとうございます。
空の行のデータというのは何なのでしょうか?

188 :名無しさん@そうだ選挙にいこう:2009/01/19(月) 12:18:56
文字と罫線が、画面表示上、黒色なんですが、
実際印刷すると、違う色になるxlsファイルがあります。
この色の設定ってどこで行えるのでしょうか?
WindowsVista、Excel2007です。

189 :名無しさん@そうだ選挙にいこう:2009/01/19(月) 12:23:45
>>188
まずはそのファイルをうpだね
重要なデータは消してもいいからさ

それが出来ないなら、さようなら

190 :名無しさん@そうだ選挙にいこう:2009/01/19(月) 12:24:49
(;゚д゚)ァうp

191 :188:2009/01/19(月) 12:45:43
>>189
了解です。
ちょっとアップできないのでもう少し調べて見ます^^;
一括で色変える方法があるのかなと思い書き込んだので。

192 :名無しさん@そうだ選挙にいこう:2009/01/19(月) 13:08:55
>>187
エクセルは一度使ったセルは「使用したセル」って形で別にデータが残っている
バックスペースなどでセルの内容を消しても同じく、残ったままになっている
これを未使用の状態に戻すためには、セルごと(行ごとでもいい)削除する必要がある
新規ブック作って使ってるセルだけ、コピペしたほうが早いかもね


193 :名無しさん@そうだ選挙にいこう:2009/01/19(月) 13:11:22
いつの時代の話してんだか

194 :名無しさん@そうだ選挙にいこう:2009/01/19(月) 13:42:16
EXCEL2007、VBA使用不可です。

セルを選択して、画像(写真)を挿入する時、画像のサイズを
セルのサイズに合わせる(セルにピッタリはまるようにする)操作を
教えて下さい。
よろしくお願いします。


195 :名無しさん@そうだ選挙にいこう:2009/01/19(月) 13:50:29
>>194
いきなりは無理
[Alt]キー押しながら画像の大きさ変える


196 :名無しさん@そうだ選挙にいこう:2009/01/19(月) 16:15:11
>>193
データや数式だけならDelキーで消せばいいけど、書式を変えてしまうとフラグが消えなくなる。
たとえば文字の色を変えたら、色を自動に戻してデータを消して保存してもセルの使用済みフラグは消えない。
行/列の削除よりも簡単に消す方法があったら俺が知りたい。

197 :名無しさん@そうだ選挙にいこう:2009/01/19(月) 19:08:14
行/列の削除と保存が普通だろうが、行/列の削除とマクロでActiveSheet.UsedRangeを実行でもいいだろうね。
通常はDelキーで消してActiveSheet.UsedRange実行でもOKな場合が多いが、表示形式未設定のセルに
日付や時刻など表示形式を変えるデータを入力すると、表示形式が残るので駄目だな。


198 :名無しさん@そうだ選挙にいこう:2009/01/19(月) 19:36:40
オートフィルの設定を常に「書式なしコピー」にしたいんですけど、
そういう設定はできますか?
オプションとかユーザー設定を探したんですが見つかりませんでした。

199 :名無しさん@そうだ選挙にいこう:2009/01/19(月) 19:58:17
出来ません

200 :名無しさん@そうだ選挙にいこう:2009/01/19(月) 20:03:33
hhh

201 :名無しさん@そうだ選挙にいこう:2009/01/19(月) 20:06:44
【1 OSの種類         .】 Windows2000
【2 Excelのバージョン   】 Excel2003
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード     】 条件付書式 コピー
条件付書式をコピーしたいと思っています。
まっさらなシートなら設定したセルをそのままコピーすれば問題ないのですが、
既に入力してあるセルが多数ある場合、式や値を消さないように条件付書式のみコピーするにはどうすればよいのでしょうか?

202 :名無しさん@そうだ選挙にいこう:2009/01/19(月) 20:14:38
形式を選択して貼り付け

203 :名無しさん@そうだ選挙にいこう:2009/01/19(月) 20:18:33
>>202
ありがとうございましたぁ!

204 :名無しさん@そうだ選挙にいこう:2009/01/19(月) 22:48:23
以前、知る人ぞ知るみたいな裏ワザを書き込むスレがあって、
それのまとめサイトのようなものがあったかと思うのですが、
ご存じの方いらっしゃいませんか?
サイト名が漢字で一文字だったような記憶があります。

その中に、半角モードのときにモード切替なしに全角スペースを入れたり、
その逆ができる技があったのですが、おわかりになりますか?

205 :名無しさん@そうだ選挙にいこう:2009/01/19(月) 22:55:21
>>204
Shift+スペースかな?

206 :名無しさん@そうだ選挙にいこう:2009/01/19(月) 23:44:34
>>204

それが裏技って・・・w

207 :204:2009/01/19(月) 23:50:55
>>205
ありがとうございます!

208 :名無しさん@そうだ選挙にいこう:2009/01/19(月) 23:51:10
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2004
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード     】 Excel 折れ線 横軸 色

グラフで(積み上げ棒グラフ、折れ線)など作った場合
横軸に線が出来ると思います。(0〜100で10刻みなら10づつ)
そこで一つの横線だけ色を変えて表示させる事は可能ですか?

209 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 00:02:58
>>208
無理。
折れ線グラフを重ねてダミーのデータで横一直線になるようにするのが一番簡単。ただし両端に隙間ができる。
完全に重ねたかったら図形の直線。


210 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 01:12:43

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

webサイトを右クリックして「Excelにエクスポート」で取り込みましたが
文字の下にあるリンクのURLを抽出したいです。
宜しくお願いします。

211 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 01:36:33
>>210
抽出?
右クリック→ハイパーリンク→ハイパーリンクの編集

212 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 01:44:52
>>211
すみません、書き方が悪かったです。
リンクは150個くらいあるんです
たとえば、
「Excel総合相談所 77 」の文字がHPみたいにブルーの色と下線がついてて、
カーソル合わせるとリンクがhttp://pc11.2ch.net/test/read.cgi/bsoft/1231885728/と表示されますよね?
その場合、隣のセルに↑のURLを表示させたいんです。無理でしょうか・・


213 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 01:52:29
>>212
それはVBA使わないと無理

214 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 01:58:24
>>213
そうですか・・orz
どうも有り難うございました○| ̄|_

215 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 02:18:39
>>214
テキストエディタとか使えるなら、そのwebページのソースを直接編集すればいい

216 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 07:09:59
EXCEL2007です。
印刷プレビューのリボン(印刷、ページ設定、ズームなどのツールバー)が
表示されないのですが、どうすれば表示されるのでしょうか?


217 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 11:42:24
>>216
バーの部分を右クリック→リボンの最小化

218 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 12:53:02
【1 OSの種類         .】 Windows2000
【2 Excelのバージョン   】 Excel2000
【3 VBAが使えるか    .】 使えないです
【4 VBAでの回答の可否】 可

A列の文字列からB列にもある文字列を除いた結果をC列に表示させたいです。
わかる方、よろしくお願いします。

219 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 13:01:01
>>218
   A     B    C
ああいいうう あい あいうう

でいいのなら=SUBSTITUTE(A1,B1,"")

220 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 13:23:03
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2002

B1〜5 までで○だったならば
B7 に+1していって×なら足さないっていう式はどんな式になりますか?

221 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 13:26:45
>>220
○の数を知りたいだけなら
B7=(B1="○")+(B2="○")+(B3="○")+(B4="○")+(B5="○")
○じゃなかった時に、×かそれ以外かも厳密に調べるならIFを使う。

222 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 13:33:43
>>221
○のときだけ加算で×なら足さないってだけだったんで十分です
ありがとうございました

223 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 13:38:01
問題解いてもらいたんですけどいいでしょうか?

224 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 13:39:06
=COUNTIF(B1:B5,"=○")じゃないの?

225 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 13:39:39
>>223
問題による

226 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 13:42:04
SHEEt1で年度とその年度の会社の収益及び経費を入力し (”年度”のセルをA9とする)マクロ実行すると、
収益から経費を差し引いた額が年間収支の欄に表示され、
さらにそれらをデータが入力されている すべての年度(不定)にわたって合計した額がSHEET2のC5セルに、
年数がC3セルも、それぞれ表示され、
また、合計が1000億以上ならばC7セルに「目標達成!」と表示されるように空欄1〜10を埋めよ
年度
収益(億円)
経費(億円)
年間収支(億円)



227 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 13:42:59
Dim i, ysum, sum, shueki, keihi As Integer
i=0
sum=0
Range("B10").Select
Do While @
A
Shueki=ActiveCell.Value
ysum=ysum+shueki
ActiveCell.Offset(1.0).Activate
keihi=ActiveCell.Value
ysum=ysum-keihi
B
ActiveCell.Value=ysum
sum=sum+ysum
i=C
D
Loop
Worksheet("Sheet2").Activate
E=sum
F=i
IF=G then
H = ”目標達成!”
else
I
お願いします

228 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 13:44:47
丸投げすぎてワロタ
10個のうち一つもわからないの?

229 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 13:46:20
今テスト中でこれとれないと単位が危なくて
お願いします

230 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 13:47:38
おおまじかw
答えてやろうぜw
でも俺わからんから誰か頼む

何時まで?


231 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 13:49:10
2時までなんです。
どうかお願いします

232 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 13:49:17
>>229
どう見ても問題文の入力ミスしてる。これじゃプログラム動かないよ。もうちょっと落ち着け。
それと(9)ぐらいはわからないか?

233 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 13:50:14
あと10分てw
ギリギリすぎ
今まで何やってたんだよ

234 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 13:50:54
>>231
時間なさすぎワロタwwww

235 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 13:52:02
全体を把握するのマンドクセ
(9) Range("C7")
(10) End If
あとはまかせた

236 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 13:52:39
Dim i,ysum,sum,shueki,keihi As Integer
i=0
sum=0
Range("B10").Select
Do While @
A
Shueki=ActiveCell.Value
ysum=ysum+shueki
ActiveCell.Offset(1,0).Activate
keihi=ActiveCell.Value
ysum=ysum-keihi
B
ActiveCell.Value=ysum
sum=sum+ysum
i=C
D
Loop
Worksheets("Sheet2").Activate
E=sum
F=i
IF=G then
H = ”目標達成!”
else
I

これで大丈夫ですかね・・・

237 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 13:52:39
(4) i + 1
かな?

238 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 13:53:20
>>236
(8)のとこ、IFの次が抜けてる

239 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 13:55:10
Dim i,ysum,sum,shueki,keihi As Integer
i=0
sum=0
Range("B10").Select
Do While @
A
Shueki=ActiveCell.Value
ysum=ysum+shueki
ActiveCell.Offset(1,0).Activate
keihi=ActiveCell.Value
ysum=ysum-keihi
B
ActiveCell.Value=ysum
sum=sum+ysum
i=C
D
Loop
Worksheets("Sheet2").Activate
E=sum
F=i
IF G then
H = ”目標達成!”
else
I

238サンありがとうございます><。

240 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 13:55:21
問題そのものが

241 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 13:57:34
(6) Range("C5")
(7) Range("C3")
えーと、時間切れ?

242 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 14:00:36
(8) sum > 1000

243 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 14:01:08
アウトwww

244 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 14:02:31
時間切れ?


245 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 14:03:12
もう少し大丈夫みたいです;
本当にありがとうございます;;

246 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 14:04:06
ガンガレ

247 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 14:04:10
問題の書き方からして
(6) Range("C5").Value
(7) Range("C6").Value
って書かないと正解にしてくれないんじゃね?


248 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 14:05:04
あげ


249 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 14:05:48
>>242
(8) sum >= 1000
だろ

250 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 14:06:30
おまいら烏合の衆すぎワロタ

251 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 14:06:31
まだか?

252 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 14:19:16
終わりました。
本当に皆さんありがとうございました。
いいやつだなb

253 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 14:23:31
手遅れか?普通じゃありえないコードなんで解読に手間がかかったわ

Dim i, ysum, sum, shueki, keihi As Integer
i = 0
sum = 0
Range("B10").Select
Do While ActiveCell.Offset(-1, 0).Value <> ""
  ysum = 0
  shueki = ActiveCell.Value
  ysum = ysum + shueki
  ActiveCell.Offset(1, 0).Activate
  keihi = ActiveCell.Value
  ysum = ysum - keihi
  ActiveCell.Offset(1, 0).Activate
  ActiveCell.Value = ysum
  sum = sum + ysum
  i = i + 1
  ActiveCell.Offset(-2, 1).Activate
Loop
Worksheets("Sheet2").Activate
Range("C5") = sum
Range("C3") = i
If sum >= 1000 Then
  Range("C7") = "目標達成!"
Else
End If

254 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 14:24:42
ああ、手遅れだったか

255 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 14:26:15
つーか、これはおかしいだろ
Dim i, ysum, sum, shueki, keihi As Integer
先生もVBAド素人だな。
正しくは
Dim i As Integer, ysum As Integer, sum As Integer, shueki As Integer, keihi As Integer

256 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 14:30:13
EXCEL2007、VISTAです。
画面やプリンタでの表示長についての質問です。[ ]内は列幅です。

(1)列B[34.63]と列C[2]の合計の長さをディスプレー上で測ると69mmです。
 列E[15.75]、F[2.88]、G[1.25]、H[3.88]、I[11.38]の合計を
 ディスプレー上で測ると70.5mmです。
 前者[36.63]の方が後者[35.14]より列幅の合計が大きいのに、
 画面上での長さが短くなるのは、どうしてでしょうか?

(2)画像右クリック→{サイズとプロパティ}→{サイズ}
 →{高さ}を6cm、{幅}を8cm→{閉じる}と指定した画像を印刷すると
 幅が7.5cmになります(画面上では7cmです)。
どうして8cmにならないのでしょうか?

よろしくお願いします。

257 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 14:35:23
>>256
エクセルなんてそんなものです。
きっちりやりたいならCADでも使ってください。

258 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 14:47:45
>>256
(1) 画面上ではセルの幅がピクセル単位に切り上げられるので誤差が積み重なる
(2) 印刷した時のサイズがおかしくなるのはExcelの仕様。試行錯誤で修正するかあきらめるか

259 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 14:49:13
>>256
インチが基本単位になってるらしい
何インチ単位かまでは知らないが、mmで合わすと余裕でずれる。
綺麗な文書にしたくばワードにはりつけるか、エクセルに慣れるしかない


260 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 14:51:56
【1 OSの種類         .】 Windowsxp
【2 Excelのバージョン   】 Excel2003
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 否
【5 検索キーワード     】 値で貼り付け コピー エクセル 等
数式の入ったセルをコピーして貼り付けると何故かその値になってしまいます・・
右クリックでコピー貼り付けでも、ctrl+c→ctrl+vでも同じです
何故でしょうか?

261 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 15:00:16
Sheet1で年度と、その年度の税収および国債発行額を入力し、(“年度”のセルをA9とす
る)、マクロ実行すると、税収から国債発行額を差し引いた額が年間収支の欄に表示され、
さらにそれらをデータが入力されている全ての年度(不定)にわたって合計した額がsheet2
のC5セルに、年数がC3セルに、それぞれ表示され、また、合計がマイナス500兆以下な
らばC7セルに「財政危機!」と表示されるように空欄@からIを埋めよ。


262 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 15:01:09
年度
税収(兆円)
国債発行額(兆円)
年間収支(兆円)
Dim I,ytotal,total,zeishu,kokusai As Interger
i=0
total=0
Range("B10").Select
Do Until @
A
zeisyu=ActiveCell.Value
ytotal=ytotal+zeishu
ActiveCell.Offset(1.0).Activate
kokusai=ActiveCell.Value
ytotal=ytotal-kokusai
B
ActiveCell.Value=ytotal
total=total+ytotal
i=C
D
Loop
Worksheet("Sheet2").Activate
E=total
F=i
IF G then
H = ”財政危機!”
else
I
さっきのテストの2限目の課題です。。。同じくテストができないと単位が取れない授業な
ので、なにとぞよろしくお願いします。
時間は、15時45分までです。。。


263 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 15:04:24
>>260
貼り付け先の書式かな?

264 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 15:05:09
うぜえな

265 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 15:05:55
てめーでできないなら単位なんて落とせクズ

266 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 15:06:40
そんなこと言わずに協力して解いてあげよー

267 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 15:08:27
>>262
問題の間違いを指摘してやれ。
一発で合格するぞ。

268 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 15:10:00
難しい。。。
誰かとける人いませんか?


269 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 15:10:05
1問目とほとんど同じやん。これぐらい自分で考えろよ。

270 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 15:11:03
>>267
「雰囲気でわかるだろ!」って逆切れされるに3000ジンバブエドル

271 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 15:13:21
誤 Dim I, ytotal, total, zeishu, kokusai As Interger
正 Dim I As Interger, ytotal As Interger, total As Interger, zeishu As Interger, kokusai As Interger
って書いといてやれ
つーか、こんな素人に教えられる生徒がかわいそうなぐらいひどいプログラムだな

272 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 15:13:43
>>263
いえ、数式バーにも値で入っているんです
コピー元は「=A1+A2」でA1に1、A2に2として
それを貼り付けすると「3」になります・・

273 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 15:15:24
つーかそんな学校辞めたほうがいいよ
ゼミとかなら別だろうけど、そんなゼミなんてなさそうだし


274 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 15:20:42
1:ボ
2:ク
3:は
4:ク
5:ズ
6:な
7:の
8:で
9:し
10:ゅ
F

275 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 15:25:24
おしぇてえ




276 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 15:41:29
253番さんのおかげで何とかテスト書くことができました。ありがとうございました。

277 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 16:05:05
テスト中にネット見れるってどんな環境だ…

278 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 16:07:31
ミリオネアのライフラインみたいなもんか

279 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 16:27:27
>>278
オーディエンスが正解とは限らないのにな

280 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 16:58:44
問題がクソとか言ってる連中、視点を変えるんだ
実際のデバック作業なんてこんなもんだと

281 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 17:58:09
>>262
○変数宣言の方法間違い (-10点)
○ i, total に0を代入するならば ytotal も同様にすべき (-5点)
○セルをアクティブにする冗長性 (-5点×2)
○ zeisyu, kokusai の変数の冗長性 (-5点×2)
○ zeisyu の合計は与題では不要 (-5点)
○単年ごとの収支を入れるべき所に加算された収支が入る (-10点)
○最後の else の後には "財政危機!" のゴミを消すコードを
  入れるべきだが、そうすると End If が入らない (-5点)

合計 -55点

282 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 20:11:13
>>260
ありがちなのは「Bookへのへの」と「Bookもへじ」が別々のExcelで開かれてて
「へのへの」から「もへじ」にコピペする時だな

283 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 20:12:38
>>260 おれもなったことある。巨大ファイルで重かったせいかもしれない。

284 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 21:06:22
>>282>>283
ありがとうございます。別のブックではなく、2マス隣のセルにコピーしたときにもなりました
複数エクセルを開いてる+巨大なデータベースの編集中でした
再起動したら直ったのですが、できればこのようなことがないように
どういう時になるのか知りたかったのですが・・
ttp://support.microsoft.com/kb/209284/ja
2000ではバグとして認識されているようですが、クリップボードなどを使ってみても再現できませんでした


285 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 22:02:22
>>284
マシンスペック

286 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 22:38:15
【1 OSの種類         .】 WindowsXP SP3
【2 Excelのバージョン   】 Excel 2003
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード     】入力規則 別シート リスト indirect

sheet1
\ A B C
1 1 東京 とうきょう
2 2 大阪 おおさか
3 3 名古屋 なごや
(以降、同じようなデータ)

sheet2
\ A B C
1 11 ☆ ★
2 12 ☆ ★
3 13 ☆ ★
(以降、同じようなデータ)

相談(1)
(a)sheet2のB列(☆)は、リストとなっていてプルダウンで
sheet1のC列を選択できるようにしたいです。
(b)できれば、あいうえお順に表示させたいです。

相談(2)
sheet2のB1(☆)に「とうきょう」を選択するとC1(★)に「東京」と表示させたいです。
vlookを使おうとしても上手くいきませんでした。

287 :名無しさん@そうだ選挙にいこう:2009/01/20(火) 22:46:36
>>286
ttp://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q129459732

288 :名無しさん@そうだ選挙にいこう:2009/01/21(水) 03:19:21
>>284
日本語としては「じっぷん」が正しいが、レッドブックの「とおふん」も間違いではない
ただ朝鮮人や関西人が良く使う「じゅっぷん」は明らかに間違い
これを使っていると日本人である事を疑われるので気を付けるように

289 :名無しさん@そうだ選挙にいこう:2009/01/21(水) 04:09:37
コピペ荒らしがこんなところまで…

290 :256:2009/01/21(水) 08:24:12
>>257,258,259
レスありがとうございます

291 :名無しさん@そうだ選挙にいこう:2009/01/21(水) 09:49:18
Rの列1・2・3・と○だったなら  B列1・2・3のものを足していくというときの式ってどうなりますか?

=IF(R:R,"=○")
Bとかはどう指定するんでしょうか?

よろしくお願いします

292 :名無しさん@そうだ選挙にいこう:2009/01/21(水) 10:39:11
>>291
日本語が分からん
もう一度他人に分かるように書きなおしてくれ

293 :名無しさん@そうだ選挙にいこう:2009/01/21(水) 10:46:46
>>292
すみません

真ん中の式は自分で考えたのでわかりにくそうだから無しで

B-1  1000         R-1○
B-2  1000         R-2×
B-3  1000         R-3○
・・・
と続いてるのを、Rが○のときのみB列の数値を足していくような式を作りたいのです

294 :名無しさん@そうだ選挙にいこう:2009/01/21(水) 10:56:30
>>293
まだ分かりにくいがこういうことがしたいと推測
=SUMIF(R1:R3,"○",B1:B3)

295 :名無しさん@そうだ選挙にいこう:2009/01/21(水) 11:15:13
>>295
それでいけました
エクセル事態あまりしらなくて説明変になってしまってすみませんでした
ありがとうございました

296 :名無しさん@そうだ選挙にいこう:2009/01/21(水) 11:15:33
>>294だった

297 :名無しさん@そうだ選挙にいこう:2009/01/21(水) 15:21:50
スクロールするとタイトルが見えなくなってしまいますが、タイトルだけ
スクロールできなくするにはどうすればいいですか?

298 :名無しさん@そうだ選挙にいこう:2009/01/21(水) 15:22:12
>>297
ウィンドウ枠の固定

299 :名無しさん@そうだ選挙にいこう:2009/01/21(水) 15:23:17
>>298
やりかたを教えてください


300 :名無しさん@そうだ選挙にいこう:2009/01/21(水) 15:26:58
見積などを作るときに品名を毎回入力するのが面倒なので、
たとえばコードを入力したら
自動的に品名と単価を表示させることはできますか?


301 :名無しさん@そうだ選挙にいこう:2009/01/21(水) 15:27:14
>>299
メニューバーのウィンドウ


302 :名無しさん@そうだ選挙にいこう:2009/01/21(水) 15:28:24
>>300
vlookup関数
http://www.eurus.dti.ne.jp/~yoneyama/Excel/kansu/vlookup.htm#vlookup
match関数でもいいけどvlookupが一番覚えやすい

303 :名無しさん@そうだ選挙にいこう:2009/01/21(水) 15:28:38
>>301
メニューバー
????
わかりません


304 :名無しさん@そうだ選挙にいこう:2009/01/21(水) 15:32:47
>>303
      _______                     __
    // ̄~`i ゝ                    `l |
    / /        ,______   ,_____    ________  | |  ____ TM
   | |     ___ // ̄ヽヽ // ̄ヽヽ (( ̄))   | | // ̄_>>
   \ヽ、   |l | |    | | | |    | |  ``( (.  .| | | | ~~
      `、二===-'  ` ===' '  ` ===' '  // ̄ヽヽ |__ゝ ヽ二=''
                         ヽヽ___//   日本
         _________________  __
         | Excel メニューバー            | |検索|←をクリック!!
          ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄   ̄ ̄
         〇ウェブ全体  ◎日本語のページ

305 :名無しさん@そうだ選挙にいこう:2009/01/21(水) 15:32:56
>>302
単価表だけ別にして
いろんな表から単価表のデータをもってくることもできますか?

306 :名無しさん@そうだ選挙にいこう:2009/01/21(水) 15:34:00
>>305
できます

307 :名無しさん@そうだ選挙にいこう:2009/01/21(水) 15:34:23
>>305
とりあえず調べろカス!

308 :名無しさん@そうだ選挙にいこう:2009/01/21(水) 15:35:20
>>307
うるせーばか

309 :名無しさん@そうだ選挙にいこう:2009/01/21(水) 15:36:15
>>308
カスカスカスカスカスカスカスカスカスカスカスカスカスカスカスカスカスカスカスカスカスカスカスカス

310 :名無しさん@そうだ選挙にいこう:2009/01/21(水) 15:36:39
>>299
      _______                     __
    // ̄~`i ゝ                    `l |
    / /        ,______   ,_____    ________  | |  ____ TM
   | |     ___ // ̄ヽヽ // ̄ヽヽ (( ̄))   | | // ̄_>>
   \ヽ、   |l | |    | | | |    | |  ``( (.  .| | | | ~~
      `、二===-'  ` ===' '  ` ===' '  // ̄ヽヽ |__ゝ ヽ二=''
                         ヽヽ___//   日本
         _________________  __
         | ウィンドウ枠の固定            | |検索|←をクリック!!
          ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄   ̄ ̄
         〇ウェブ全体  ◎日本語のページ

311 :名無しさん@そうだ選挙にいこう:2009/01/21(水) 15:36:52
>>309
にーとのくせして生意気だぞ


312 :名無しさん@そうだ選挙にいこう:2009/01/21(水) 15:39:49
>>311
ちげーよ!
派遣切りされて就職活動してる求職者だよ!
にーとはおまえだ!!

313 :名無しさん@そうだ選挙にいこう:2009/01/21(水) 15:44:22
>>311
派遣切りされて2ちゃんねるかよ
おめーらくそ派遣社員は自分で派遣社員を選んだんだろ?
正社員になれないか、なりたくないから派遣になったんだろ?
今更正社員になろう立って無駄無駄
まだコンビにの店員の方がまともだぞ


314 :名無しさん@そうだ選挙にいこう:2009/01/21(水) 15:48:04
>>313
こんなとこでサボってるお前みたいなカスがリストラされちゃえよ!!



と書こうかと思ったがそろそろ飽きてきたのでもういいか?

315 :名無しさん@そうだ選挙にいこう:2009/01/21(水) 16:52:14
いいよ
どうせやってるのは暇な事務

316 :名無しさん@そうだ選挙にいこう:2009/01/21(水) 18:45:31
オマイら何やってんだw

317 :名無しさん@そうだ選挙にいこう:2009/01/21(水) 22:58:50
こんばんわ。
Excel2003(XPpro)にて、インターネット上からXMLを取得して利用するツールをつくって
いるところなのですが、文字化けを起こします。

Dim get_xml As Object
Set get_xml = CreateObject("MSXML2.DOMDocument.3.0")
get_xml.async = False
get_xml.Load (src_url)

抜粋するとこのようなコードです。
このときに、 ? この文字だけが、半角?に変換されてしまいます。get_xml.Load
した直後で既に?に変わってしまっているのですが、どうすれば解消するでしょうか?
取得するxmlはUTF-8で、IE等のブラウザから見ると正常に?と見えます。
よろしくおねがいします。

318 :名無しさん@そうだ選挙にいこう:2009/01/21(水) 23:04:25
すみません。>>317です。
? ?に化けるのは、この文字です。うまく入りませんでした。。。


319 :名無しさん@そうだ選挙にいこう:2009/01/21(水) 23:32:34
>>317
バイト配列に読み込んでから文字列に変換

320 :名無しさん@そうだ選挙にいこう:2009/01/21(水) 23:36:04
【1 OSの種類         .】 Windows XP Pro
【2 Excelのバージョン   】 Excel2007

ネットワーク上でワークグループ共有している他PCのファイルが開けなくなりました。
開こうとすると「〜が見つからない」といわれ作成文書を保存しようとすると
「メモリーだかの容量が足りないから無理」とかいわれます。
(会社にあるので今は正確なメッセージを示せません)
ローカルのファイルは普通に読み書きできますがエクスプローラーからダブルクリックしたり
「開く」「保存」コマンドだと上記の状態になります。
エクスプローラーでファイルのコピーなどは普通に使えますからオフィスの問題でしょうか?
ワードでも同じ現象が起きます。

321 :名無しさん@そうだ選挙にいこう:2009/01/21(水) 23:40:18
だめですね。。。
よくあるUTF8のマッピング問題のようです。
ExcelのBookとしての基本文字コードをこの際UTF8に変えてしまうことはできないのでしょうか?

322 :名無しさん@そうだ選挙にいこう:2009/01/22(木) 00:24:35
今の時間はこの板人口少ないから頼り先が間違ってる(このスレはそうでもないけど・・・・)
共有先がからむと
@共有ファイルの置場Aネットワーク
どっちの影響も受けるから、まずは今開いてるデータを保存する手立てを考えてから寝ろ
(とりあえず1Sheetずつならコピー→保存できないかとか、いっそテキストでとか)

323 :名無しさん@そうだ選挙にいこう:2009/01/22(木) 02:18:44
>>322
サンクス。
複数人が同時に使うことはないのでとりあえずローカルにコピーして使ってRealSyncで共有ファイルと同期。

324 :名無しさん@そうだ選挙にいこう:2009/01/22(木) 11:15:13
>>320
ttp://support.microsoft.com/kb/214073/ja
もしかして保存先のドライブがいっぱいなんじゃないか?

325 :名無しさん@そうだ選挙にいこう:2009/01/22(木) 12:02:21
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2007
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】
【5 質問内容 】 多項式回帰分析の方法がわかりません。
        散布図をとったあとに、右クリックで式は出せるのですが、
        t値などを出せません。


326 :名無しさん@そうだ選挙にいこう:2009/01/22(木) 12:07:22
【1 OSの種類         .】 Windowsxp
【2 Excelのバージョン   】 Excel2003
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード     】


ど忘れしてしまいました。
3
8
10
23
9・・・・
とか数字が並んでいる列に対して
0〜5が何個、6〜10が何個、11〜15が・・・・
というのを求めるのってどうやるんでしたっけ?


327 :名無しさん@そうだ選挙にいこう:2009/01/22(木) 12:29:23
>>326
COUNTIFで
10以下の個数から6未満の個数を引けば
6以上10以下の個数になるわけだが

328 :名無しさん@そうだ選挙にいこう:2009/01/22(木) 15:06:13
【1 OSの種類         .】 Windowsvista
【2 Excelのバージョン   】 Excel2003
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード     】

VBAなのですが
xxxx.Cells(13, c) = yyyy.Cells(13, 1)
を使って文字列をコピーするときに、5文字列目以降のみをコピーするようにするにはどうしたら良いのでしょうか?


329 :名無しさん@そうだ選挙にいこう:2009/01/22(木) 15:31:29
>>328
Mid(yyyy.Cells(13, 1), 5)

330 :名無しさん@そうだ選挙にいこう:2009/01/22(木) 16:29:43
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2002
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード     】

ExcelVBAを使って、他のプログラムを起動させることって出来ますか?

それと、例えばセルA1〜A10に入っている内容をテキストファイルに全てコピーして保存するようなことは
どうすれば良いのでしょうか?


331 :名無しさん@そうだ選挙にいこう:2009/01/22(木) 18:11:30
>>330
マクロを起動したいならマクロ名をそのまま書くだけ。
Excel意外のアプリって意味ならApplication.Runとか、ほかにも目的に応じて色々な方法がある。

332 :名無しさん@そうだ選挙にいこう:2009/01/22(木) 18:14:11
>>330
A1〜A10をテキストファイルに書き出す
Open "nullpo.txt" For Output As #1
For i = 1 To 10
  Print #1, Cells(i, 1)
Next
Close #1

333 :名無しさん@そうだ選挙にいこう:2009/01/22(木) 19:03:02
>>326

     A    B    C
1    3    5    2
2    8    10    3
3    10   15    0
4    23   20    2
5    9    25    1
6    5    30    1
7    20        0
8    19
9    26

C1:C7を選択して=FREQUENCY(A1:A100,B1:B7)としてctrl + shift + enter
C2は5以下の個数。
C7の0は30を越えた数値の個数。

334 :名無しさん@そうだ選挙にいこう:2009/01/22(木) 19:06:58
ごめん、範囲を間違った。B1:B7じゃなくB1:B6だ。
正:  C1:C7を選択して=FREQUENCY(A1:A9,B1:B6)としてctrl + shift + enter

335 :名無しさん@そうだ選挙にいこう:2009/01/22(木) 19:17:13
【1 OSの種類         .】 WindowsXP SP3
【2 Excelのバージョン   】 Excel 2007
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード     】

Excel 2007が起動する時に読み込まれるファイルの一覧ってどこかにありませんか?

336 :名無しさん@そうだ選挙にいこう:2009/01/22(木) 19:19:52
よくわからんなあ?
個人用マクロブックとかアドイン、それと各種ライブラリって事かいな?

337 : ◆5DB6.TAMKw :2009/01/22(木) 21:28:18
【1 OSの種類         .】 WindowsXP Pro
【2 Excelのバージョン   】 Excel2000, 2003
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】
【5 検索キーワード     】 画像 消 保存 できない

会社のPCですが、昨日から不具合がでるようになりました。

1.Excel2003で上書きしたファイルをExcel2000で開き、追記したあと上書き保存ができない
2.Excel2000で上書きしたファイルをExcel2003で開くと、画像が消える

2については、Office2003のバグのようで、修正パッチを当ててみましたが、
直ったPCと直らない(画像が消える)PCがあります。
全てのPCを2003にすればいいのでしょうが、申請を却下されてしまいました。
アドバイスをお願い致します。

338 :名無しさん@そうだ選挙にいこう:2009/01/23(金) 01:17:51
【1 OSの種類         .】 Windows2000, XP
【2 Excelのバージョン   】 Excel2000
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード     】 方程式 変数 入れ替え 表現

例えば、
X = 50 + A * (60 - B*4) + C*0.5 という式から、
A = (50 + C*0.5 - X) / (60 - B*4) という式を計算させて出すことはできますでしょうか?

キーワードの選び方が悪いのか、参考になりそうなページにたどりつけません。
自動でできれば手段はExcelでなくても構わないのですが、
何か参考になりそうなものがありましたら教えて下さい

339 :名無しさん@そうだ選挙にいこう:2009/01/23(金) 01:47:03
>>338
Excelでなくても良いなら出来ます
但しここはExcelスレなので、Excelに関係ない回答は伏せます
そもそもExcelでやるべき事ではないですから
まあExcelでもVBA使えば出来るけど、どちらにしろ分野違いだし

340 :名無しさん@そうだ選挙にいこう:2009/01/23(金) 02:14:20
>>338
移項や式の変形はExcelでは無理
入力された式のまま計算するだけ

341 :名無しさん@そうだ選挙にいこう:2009/01/23(金) 04:31:55
>>338
「数式処理」でぐぐれ。
式の変形をしてくれるソフトはどれも値段が高いが、フリーの物も探せばある。
あとはスレ違いというか板違いだな。数学関係の板で質問した方がいい。

342 :名無しさん@そうだ選挙にいこう:2009/01/23(金) 08:27:55
スクロールすると2行づつスクロールされますが、1行づつに変更
できますか?

343 :名無しさん@そうだ選挙にいこう:2009/01/23(金) 08:32:09
1つの表のデータを別の複数の表で使うにはどうすればいいですか?

344 :名無しさん@そうだ選挙にいこう:2009/01/23(金) 08:48:06
>>343
意味分からん。
複数の表で=Sheet1!A2などとリンクのことか

345 :名無しさん@そうだ選挙にいこう:2009/01/23(金) 08:51:31
>>344
完全に別の表のことです


346 :名無しさん@そうだ選挙にいこう:2009/01/23(金) 08:56:19
>>344
質問が不十分ですいません
同じ表で別のワークシートではなく表自体が分かれている
という意味です
すいませんエクセル初心者なもんで


347 :名無しさん@そうだ選挙にいこう:2009/01/23(金) 09:18:08
>>346
ウインドウ−新しいウインドウを開くか?

348 :名無しさん@そうだ選挙にいこう:2009/01/23(金) 10:08:55
だれかオートフィルタのトップテンを教えてくれ。
EXcel2007でトップテン上位5項目を選ぶと何故か6件表示され
上位3項目なら4件表示されるんだが、これは何?
常に+1件表示されるものなの?

349 :348:2009/01/23(金) 10:16:45
余分な+1件は最後の行が表示されるみたいなだな。
ひどいバグだなw
それとも俺のやり方が悪いのか?

350 :348:2009/01/23(金) 10:22:05
SUBTOTALの計算式入れた列を消したら正常だった。
俺のやり方が悪かったかな?

351 :名無しさん@そうだ選挙にいこう:2009/01/23(金) 11:01:01
>>342
コントロールパネル→マウス→ホイール

352 :名無しさん@そうだ選挙にいこう:2009/01/23(金) 15:15:22
素人質問で申し訳ありません。
どうか教えて下さい。

行列番号は縦が数字、横がアルファベットになっていますが、
たまに横も数字になってあるときがあります。
あれはなぜでしょうか?
また、横が数字になっている場合でも、アルファベットに戻すことは
可能でしょうか?ご回答お願い致します。
ちなみにエクセル2003を使っております。

353 :名無しさん@そうだ選挙にいこう:2009/01/23(金) 15:38:28
>>352
オプション 全般 R1C1がどうとかのチェツクを外す


354 :名無しさん@そうだ選挙にいこう:2009/01/23(金) 15:38:45
ツール > オプション > 全般
□R1C1参照方式を使用する

355 :名無しさん@そうだ選挙にいこう:2009/01/23(金) 16:02:14
>>353
>>354
大変参考になりました。ありがとうございました。

356 :名無しさん@そうだ選挙にいこう:2009/01/23(金) 16:06:15
>>352
昔の名残ですね。
縦横とも数字は、マイクロソフト マルチプラン、
数字アルファベットは、ロータス1−2−3
でしたね。

357 :名無しさん@そうだ選挙にいこう:2009/01/23(金) 17:57:17
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2003
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード     】 word excel 図 グラフ 解像度 粗い 圧縮 圧縮しない メタ 描画オブジェクト

【質問】
excelで作ったグラフをword2003に貼って印刷すると画質がとても粗くなります。解消法は?
(曲線が階段状にガタガタになる)
形式は拡張メタでもグラフオブジェクトでもだめでした。
excel上でグラフを直接印刷すると画質が良くなります。
excelのグラフをコピーして画像加工ソフトに貼って拡大すると既に粗くなってます。
半年前に作ったwordファイル内のexcelのグラフはきれいに印刷されています。
その古いファイルのグラフをコピーして、新しいword文書に貼り付けてもきれいに印刷できます。
この場合wordかexcelどちらの設定に問題があると考えられますか?

長文すみません。


358 :名無しさん@そうだ選挙にいこう:2009/01/23(金) 18:01:26
>>357
何のグラフ?再現できずに普通にコピー、印刷できてしまう・・

359 :357:2009/01/23(金) 18:07:59
>>358
最近作ったすべてのグラフです。
グラフの種類は散布図を平滑線でつないだものです。
訂正ですが、グラフオブジェクトでwordに貼り付けた場合はきれいに印刷できました。
ただ編集の都合上メタファイルで貼り付けたいのですが・・・。

360 :名無しさん@そうだ選挙にいこう:2009/01/23(金) 20:14:06
>>346
名前定義

361 :名無しさん@そうだ選挙にいこう:2009/01/23(金) 20:49:32
IXMLDOMで定義されたオブジェクトで、求めているキー/値にたどり着くために

item.ChildNodes(5).Attributes.Item 1.Text

このように、途中で半角のスペースの入っているところを通らなければいけません。
しかし、このまま実行するとエラーとなってしまいます。
どうすれば、うまく参照できるのでしょうか?

362 :名無しさん@そうだ選挙にいこう:2009/01/23(金) 20:59:34
>>361
スレ違い(>>2・7)

363 :名無しさん@そうだ選挙にいこう:2009/01/23(金) 21:59:16
【1 OSの種類         .】 Windows Vista
【2 Excelのバージョン   】 Excel 2007
【3 VBAが使えるか    .】 「使ったことはある」が使えていない、という感じです
【4 VBAでの回答の可否】 可 というより、VBAのコードを拝見させていただきたいです。
【5 検索キーワード     】VBA 並べ替え
ttp://www1.axfc.net/uploader/He/so/186077.zip
アップローダーの仕様で.xlsxファイルが投稿できないため、拡張子に.zipを加えています。実際には圧縮されていないので、名前の変更で.zipを削除してください。

統計データを利用するために並び替えるなどの加工をしたいのですが、よくわかりません。

data.67シートにあるデータを、以下の加工を施して、NXシートにまとめたいです。
・1行目のReporterとなっている列で、Worldとなっている行を消す
・ReporterとPeriod、Countryが一致する2行を見て、Trade FlowがExportとなっている行のTrade Valueから、Importとなっている行のTrade Valueを引く
・ReporterのABC順に並べ替え
・Periodの値が1980以上の行に1を、それ以外の行に0を付す

完成するシートNXを以下のようにしたいのです。
Period Reporter Trade Value
1962 Aa-- 99999 0
.
.
1980 Aa-- 9999 1
.
.
1962 Ab-- 88888 0
.

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

364 :363:2009/01/23(金) 22:00:18
すみません。
アップローダーのパスはexcelです。

よろしくお願いします。

365 :名無しさん@そうだ選挙にいこう:2009/01/23(金) 23:31:13
xlsxじゃ協力はできんな
2007持ってる人に任す

366 :363:2009/01/23(金) 23:39:49
>>365

じゃ出でくるな!
すっこんでろ!!

367 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 00:44:38
斧なんて使うなよ・・・頭おかしいのか?

368 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 00:47:40
366は本人?騙り?

369 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 00:51:47
>>357
スレ違いな答になるけれど
グラフを画像として扱いたいなら
クリップボードを経由するやり方だと汚くなる

プリンタドライバ経由で画像にするソフトとか使ってから
ワードに挿入が良くはないか?

370 :363:2009/01/24(土) 01:08:39
>>365
.xlsファイルに変換しましたので、よかったらお願いします。
ttp://www1.axfc.net/uploader/He/so/186183.zip
パス:excel

>>368
違います。

371 : ◆5DB6.TAMKw :2009/01/24(土) 01:15:00
>>337ですが・・・

372 :357:2009/01/24(土) 01:21:28
>>369
回答ありがとうございます。
今回の問題は、「今までそれなりにきれいに貼れていたグラフが粗くなった」ということなのです・・・。
excelかwordにそういう解像度の設定があるんだとは思いますが見つからず・・・

373 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 02:16:28
>>363
>Trade FlowがExportとなっている行のTrade Valueから、Importとなっている行のTrade Valueを引く
これ逆だよな?
Trade FlowがImportとなっている行のTrade Valueから、Exportとなっている行のTrade Valueを引く
じゃないの?

374 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 03:16:25
>>363
暇だったからやっつけといたよ
ttp://www1.axfc.net/uploader/He/so/186244.zip
パスexcel
やっつけだから意図しないモノだったらゴメン

375 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 03:25:46
>>372
パソコン買い換えた?あるいは液晶モニタ。

376 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 03:26:48
>>363
同じく暇だったからやってみた。
素人丸出しのコードですまん。
俺の環境だと実行に2分かかる。
ttp://www1.axfc.net/uploader/He/so/186247.zlp
パスexcel

>>374
かぶってすまん。
まだ見てないが、勉強させてもらう。

377 :376:2009/01/24(土) 03:30:41
拡張子はxlsmな。

378 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 03:32:27
>>371
Adobe AcrobatをアップデートするとOfficeで保存ができなくなる不具合があるらしい。
保存先がネットワークで、サーバがLinuxだと保存できなくなることがあるらしい。

トラブルが起こった昨日、何があったかよく調べてみるべし。

379 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 04:25:39
ところでImportとExportのどちらかしか無い場合はどうするのだろう?
Import-0もしくは0-Exportで出力して良いのか、Trade Valueは空にするのか
ImportとExportの両方が揃ってなければ行データそのものを出力しないのか

380 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 04:38:51
>>379
俺もちょうど今コード書いてて同じこと考えてた。

>>370
ImportとExportのペアリングが崩れていた場合、つまり片方しかないか、重複していた場合はどうするの?
あとサンプルの中に"World"がないんで、最初間違えたのかと思った。
さしつかえなければ本番用データのCSVをzipで上げてくんないかな。

381 :374:2009/01/24(土) 04:53:36
>>379
Importだけのデータはあるけど、Exportだけのデータはないと思い込んでコード書いた
今見てみたらあるしw

>>380
Worldのデータ無いからその部分書き忘れたw

382 :363:2009/01/24(土) 06:17:03
皆様、ありがとうございます。
>>373
Export-Importであってます。

>>379
値をゼロとみなして計算したいです。

>>380
Worldないですね。。すみません。
これは本番用のデータの一部そのものです。

383 :374:2009/01/24(土) 07:20:30
>>382
これでどう?
http://www1.axfc.net/uploader/He/so/186279.xls
パスexcel

384 :365:2009/01/24(土) 07:38:46
>>382
ttp://www1.axfc.net/uploader/He/so/186282.xls
pass:excel

385 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 07:39:48
>>382
Countryが見あたらないんだけど

386 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 08:17:24
>>383
ソートの順番が違うよ

387 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 08:58:52
>>382
処理は遅い目だけどプログラムの行数を減らす方向でやってみた。
Sub a()
  Application.ScreenUpdating = False
  Worksheets("NX").Activate
  With ActiveSheet
    Worksheets("data.67").Cells.Copy Destination:=.Range("A1")
    .UsedRange.Sort Key1:=Range("C:C"), Key2:=Range("A:A"), Key3:=Range("B:B"), Header:=xlYes
    Range("E2").FormulaR1C1 = "=IF(RC[-4]&RC[-2]=R[-1]C[-4]&R[-1]C[-2],"""",IF(RC[-4]&RC[-2]=R[1]C[-4]&R[1]C[-2],RC[-1]-R[1]C[-1],IF(RC[-3]=""Export"",RC[-1],-RC[-1])))"
    Range("F2").FormulaR1C1 = "=(RC[-5]>=1980)*1"
    Range("E2:F2").AutoFill Destination:=Range("E2:F" & .UsedRange.Rows.Count)
    .Cells.AutoFilter Field:=5, Criteria1:="": .Cells.ClearContents
    Columns("E:F").Copy: Range("E1").PasteSpecial Paste:=xlPasteValues
    .UsedRange.Sort Key1:=Range("C:C"), Key2:=Range("A:A"), Header:=xlYes
    Range("B:B,D:D").Delete Shift:=xlToLeft
    Range("A1:D1").Value = Array("Period", "Reporter", "Trade Value", "Flag")
  End With
  Application.ScreenUpdating = True
End Sub

388 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 09:29:07
>>382
すまん。>>387には致命的なバグがあったんでやりなおし
Sub a()
  Application.ScreenUpdating = False
  Worksheets("NX").Activate
  With ActiveSheet
    Worksheets("data.67").Cells.Copy Destination:=.Range("A1")
    .UsedRange.Sort Key1:=Range("C:C"), Key2:=Range("A:A"), Key3:=Range("B:B"), Header:=xlYes
    Range("E2:F2").Formula = Array("=IF(A2&C2=A1&C1,"""",IF(A2&C2=A3&C3,D2-D3,IF(B2=""Export"",D2,-D2)))", "=(A2>=1980)*1")
    Range("E2:F2").AutoFill Destination:=Range("E2:F" & .UsedRange.Rows.Count)
    Columns("E:F").Copy: Range("E1").PasteSpecial Paste:=xlPasteValues
    .Cells.AutoFilter Field:=5, Criteria1:="": .Cells.ClearContents
    .UsedRange.Sort Key1:=Range("C:C"), Key2:=Range("A:A") ', Header:=xlYes
    Range("B:B,D:D").Delete Shift:=xlToLeft
    Range("A1:D1").Value = Array("Period", "Reporter", "Trade Value", "Flag")
  End With
  Application.ScreenUpdating = True
End Sub

389 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 10:50:44
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2007
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード     】 縦軸 横軸 グラフ

データを平滑線で繋いだ散布図を作成しするにあたって、
縦軸にx、横軸にyを置きたいのですが。
形としては、横棒グラフの散布図バージョンが作りたいのです。

単純に縦にx系列のデータ、横にy系列のデータを選択しただけでは、平滑線が横方向に描かれてしまいます。

390 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 11:38:40
>>389
選択するデータを逆にすればいいのではないか

391 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 11:51:26
またバカみたいなVBA書いてやがる。
ピボット使えやあほども。

392 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 12:26:03
>>390
いえ、それだと平滑線が横方向に描かれてしまうんです。
平滑線を縦方向に描いて、縦軸に対する横軸の変動を線で表したいのです。

393 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 12:59:42
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2003
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード     】 インストールエラー

いきなりExcelだけが使えなくなりました。
立ち上げるとインストーラが起動し「SKU012.CABが見つかりません」と表示されます。
LISツールも試してみましたが、だめでした。

OFFICEは初めからインストールされていたもので、CDはありません。
何が原因で、対処法はあるでしょうか?

394 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 13:03:17
>>392
まずグラフを書いて、
メニューの「元のデータ」から
「系列」の中身を入れ替えてあげればOK

395 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 13:26:12
>>393
まずパンツを履け 話はそれからだ

396 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 13:36:34
>>395
インストーラキャンセルすれば使えるようになると思いきや、
保存しようとするとまたインストーラが。。


397 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 14:14:16
>>391
釣りか?
そうじゃなかったら人の話は良く効こうぜ、な!
>>396
xxx.CABっつーのは要するにオフィスの部品みたいなもんでそのファイルがぶっ壊れてるか
消してしまったか、移動させてしまったか
officeのCDがないってことはないはずだが・・
マイコンピュータで「sku012.cab」を検索してみるぐらいしか方法は無いかなぁ
それか別のコンピュータからそのファイルをコピーしてくるか。
ライセンスがちゃんとあるならコピーしてもライセンス違反にはならないと思う

398 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 14:30:43
>>397
質問者がVBAでしかできないと思い込んでるだけだろ?
「暇だったから」とかバカっぽい。
暇がないと解けないほど難しい問題かよ。2分で片付けろ。


399 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 14:36:13
>>397
sku012.xmlしかない
突然壊れるとかあるの?
5年ぐらい前のPCだしCDのありかすら分からん

400 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 14:36:55
>>391
四の五の言う前に回答してから
VBAが嫌いならピボットで例を示してみなよ
どうせ無理でしょ?
だってこれはピボットではできない問題だからw

401 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 14:39:23
>>400
ほらやっぱりわかってない。
こんな問題に10分以上かかってるようなやつは使えねー。


402 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 14:40:26
>>399
>突然壊れるとか
あります。データは永久に保存されるわけじゃないよ
ファイルもCDも無いなら大人しく買い換えるか、openoffice.orgでも使うか
ライセンス違反じゃないならそのファイルをメールかなにかで送っても良いんだが、さすがに怖いなw

403 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 14:44:11
>>401
お手本を見せてください
会社にはACCESSがあるからピボットって使ったことないんですよ
VBAはデータ整理に恐ろしく便利なので覚えましたが

404 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 14:47:27
>>403
ほんとにACCESS使ってるのか?ただのオペレータじゃないの?
SQLくらいは知ってるん?

405 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 14:49:01
>>403
とりあえずピボットテーブルでは引き算もできることは知っとけ。

406 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 14:50:55
>>402
そうすか、ありがとうございます。

407 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 14:51:43
>>403
ほんとにACCESS知ってるのならデータ整理にVBAなど使うはずがない。

408 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 14:55:45
>>404
ACCESSは全然詳しくないよ。事務で集計作業に使ってるだけ。
SQL便利らしいけど、元々VBの知識があったんで、エクセルでもACCESSでもVBA使ってる
>>405
うお、マジで知らなかった
たまには使ってみるかな
>>407
話せば長いんだが・・
昔のソフトから出力されてたのがCVSじゃなくて
[企業名]
[請求額]:[担当]:[日付]
みたいなデータでね。それを整理するために使ってたんだわ
indirectやデータ区切り知って理ゃわざわざ使う必要も無かったんだがな

俺必死だな

409 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 15:01:35
せっかくの休日なんだし
ちょっとぐらいボケてほしかった

410 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 15:13:17
>>408
もしかしてACCESSでもVBAで集計してるのか。
相当重症だぞお前。

411 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 15:31:00
>>410
いや
[企業名]
[請求額]:[担当]:[日付]
[企業名]
[請求額]:[担当]:[日付]

みたいなデータ(もっと行は多い)を

[企業名] [請求額]:[担当]:[日付]
[企業名] [請求額]:[担当]:[日付]

って感じで整理してからデータベースとして使ってたってことよ

412 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 15:44:54
>>411
ちょっと安心した。そういう使い方ならわかる。

「会社にはACCESSがあるからピボットテーブル使ったことない」はまったく意味不明だから今後言わないほうがいいぞ。


413 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 15:45:44
ピボットって集計しかできないもんだと思ってたよ。すまんかった。


414 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 15:50:11
>>413
まだわかってない。
この問題の構造は集計なんだよ。
ていうか君らの解いてる問題のほとんどはクロス集計のサブセットなの。

415 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 15:57:35
とりあえずアレだ
ヒボットでだれかやってみてくれないか
イマイチこう、うまく使いこなせない。変な表になる

416 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 16:02:04
先生がいるから、うpしてもらおうぜw

417 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 16:02:35
で、ピボットでどうやればいいの?

418 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 16:03:04
俺らケコンしすぎだろう。

419 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 16:14:44
>>414
まぁそれはすまんかった。誤る
で、ピボットでどうやればいいの?>>400の言うとおりできないと思ってたけど、出来るの?


420 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 16:32:46
>>419
Trade FlowがExportの時はTrade Valueの符号を反転させてから集計すればいいだろ。


421 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 16:33:55
たら れば
じゃなくてうpしろよ

422 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 16:36:33
>>421
これでまだわからないなんてどんだけ…

423 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 16:36:39
┐(´ー`)┌ヤレヤレ

424 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 16:47:08
   ∩___∩         |
   | ノ\     ヽ        |
  /  =   = |        |
  |    ( _●_) ミ        |
 彡、   |∪|   |        J
/     ∩ノ ⊃  ヽ
(  \ / _ノ |  |
.\ “  /__|  |
  \ /___ /


425 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 17:23:21
SS1枚でもいいんだぜぇー?
ほらうpしろよ、してみろよ、してみろりん♪
うpできたら鼻からスパゲッティ食ってやるぜ!!!

426 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 17:24:53
ピボット厨ってなんでいつも口ばかりなんだろう?

427 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 17:34:40
知識だけあってExcel使える環境がないんじゃね?

428 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 17:46:18
(ピボット使えばなんでも出来るという)妄想だけあって
Excelを実際に使えるスキルがない

が正解

429 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 17:49:48
まあでもここID出ないしね
逆にうpする人が鳥とか付けたら
その鳥がピボット神として君臨できるかも

違うか

430 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 17:52:32
今頃頑張ってるんじゃないかな

431 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 17:54:06
>>422
すみませんピボット初心者なんで
せめて他の方が分かって代わりに解説して下さるくらいはお願いします
結局できるできる言ってる人以外は誰も分からないんじゃ意味ないんで(^^;

432 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 18:00:21
たしかに誰一人わかってない知らないような超真ピボットを披露したならば
神として崇め奉られるかもしれないなw
しかし現実はどうだ・・・ピボットくんの書き込みは一向にしなくなってしまったぞww
ピボットくんというとまるで警察のマスコットキャラみたいだな!w

433 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 18:28:21
相変わらず文句言うときだけイキイキしてんな

434 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 18:33:48
そうなんだよね
ピボット厨ってケチ付けるときはイキイキしてるのに
深く突っ込まれると黙りこんじゃう

435 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 18:42:43
ピボット神「またVBAかよ、ピボット使えやあほども」
ピボット神「10分以上かかってるやつは使えねー2分で片付けろ」
ピボット神「君らの解いてる問題のほとんどはクロス集計のサブセットなの(キリッ」
ピボット神「符号を反転させてから集計すればいいだろ」
ピボット神「まだわからないとかどんだけ…」
ピボット神「・・・・・・」
ピボット神「(これだけ言えば誰か詳しいやつがやるだろう・・・)」
ピボット神「・・・・・・」
ピボット神「(どうした、早くやれよ!全国のピボッターは何をしている!!)」 ←いまここ

436 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 18:50:46
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2000
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード     】 一覧 項目 追加

マクロ蝶初心者です
下のような流れで一覧表の更新をしたいと思ってます。

人:一覧ファイルを開く⇒ディレクトリを指定し、マクロを実行する

エクセル:指定されたディレクトリにある該当のファイルを開く
       A行の項目をチェックし「空白」でなければ
       一覧ファイルへまるまる横1行反映する(コピー&ペースト)
       「追加」と書かれていた場合、一覧の一番下の行へ追加する。

※指定されたディレクトリにはファイルは一つしかありません
※今回は1Cに「追加」があるので一覧の14行目に学生AAの行を追加する

使いたい形式は下にアップしました
http://vip.cmdap.com/cgi-bin/uploader/30MB/file/vipnion-30MB_0351.zip.html

すいませんが、助けてください

437 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 19:00:43
ピボットはよくわからないけど考えてみる。
作業列=IF(B2="Import",-D2,D2)、
って入れればピボットテーブルで集計はできると思う。
で、値貼り付けで目的の形式に整形して、最後に作業列を消して完成。

だけどワークシート名が「data.67」となっていることから考えると、
この作業を少なくとも67回は繰り返す必要がありそうに思える。これはVBAで自動化した方が早くないか?

438 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 19:18:48
質問です。
PMTとは具体的にどのような計算をしているのでしょうか?

439 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 19:25:49
>>436
それの何がわからない?
全部まるでわからないなら本でも読め

440 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 19:26:44
>>438
http://www.google.co.jp/search?q=PMT%81@Excel

441 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 19:49:07
>>440
ググってはみたんですよ。
「どういう関数か」までは解説がされているページはみつけたのですが、
「内部でどのように計算をしているか」を知りたいのですが、見つからなくて…

442 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 20:22:11
それはマイクロソフトに聞くべきことだろ
少なくともここではスレ違い扱い>>2・6

443 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 20:31:42
VBAコーディングに掛かる時間についてケチを付けてたピボ君が
ピボット組むのにそれを遙かに超える時間を掛けてる件について
まあ時間を掛けても成果が上がればまだいいが、この分だと………( ̄ー ̄)ニヤリ

444 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 20:48:52
手遅れだなアンタ
お大事に

445 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 20:57:54
>>437
シートが67枚になると見積もった段階でexcelを使わないと判断すべきだけどね。
そうなってたらexcelの場合VBAでやるしかないな。

446 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 21:00:39
>>442
ありがとうございました

447 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 21:10:03
>>443
君もしかしてまだわからないの?

448 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 21:23:30
>>436
デキタヨー
ttp://vip.cmdap.com/cgi-bin/uploader/30MB/file/vipnion-30MB_0352.zip.html

449 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 21:29:31
=A1*B1*C1/8/1000の最後にKBを付けるにはどうすればいいですか?

450 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 21:34:22
>>449
書式設定で0"KB"

451 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 21:35:00
>>449
あとで計算結果を再利用する予定がなければ
=A1*B1*C1/8/1000&"KB"

452 : ◆5DB6.TAMKw :2009/01/24(土) 22:09:15
>>378
保存先はLAN上の別PCですが、自分のPCに移してもダメでした。
Acrobatについては、不具合が出たPCを調べてみます。

453 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 22:22:14
>>448
動作確認してみました
まさに理想どおりの仕上がりでした(つд∩)

ありがとうございます。


454 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 22:56:16
ラルク・アン・シエルを略すと
エクシェルって感じになってなんとなくエクセルっぽくないですか?

455 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 23:00:40
EXILEとExcelを間違えてた人なら実際にいましたよ

456 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 23:14:01
蒸し返して悪いが、ピボット神は逃げたのか?
楽しみにしてたのに・・・・

457 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 23:22:58
>>456
え?本気でわからないの?
おれは符号反転して集計でわかったけどな。

458 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 23:25:08
>>456
相手にされてないだけだよ。

459 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 23:32:12
>>363をピボットで計算する方法が本気でわからないやつって知能に問題あると思うぞ。


460 :名無しさん@そうだ選挙にいこう:2009/01/24(土) 23:49:47
>>435の立場が・・・

461 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 00:10:56
オレVBA厨なんだけど、ピボットって簡単なのだけたまにイジるんだけど、
ホントに便利なんで是非ともマスターしたい
ピボットで引き算とか符号の反転とかってどうやんの?
マジで教えてください

462 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 00:16:47
>>461
難しく考えなくても作業列でIF関数使えばいいんだよ。
あと符号の反転させなくてもピボットで引き算させることができる。
集計アイテムとして引き算の数式を挿入すればいい。

463 :461:2009/01/25(日) 00:24:39
>>462
ありがとう、集計アイテムってのが鍵みたいだね
いまちょうどググっててピボットツールバーの集計アイテムってのを初めて押してみたとこだった

464 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 00:30:51
>>463
ピボットテーブルの集計結果シートでTrade Flowのセルを選択した状態で
数式→集計アイテム
を押してみろ。
"Trade Flow"への集計アイテムの挿入
とかいうのが表示されるだろ。
その数式のところに=Import- Exportと入力するんだ。

465 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 00:54:55
集計アイテムって元の表の項目が多いと変なエラーで使えなかったりするので不便
もっぱら作業列で符号反転させてる

466 :461:2009/01/25(日) 01:01:32
ttp://vip.cmdap.com/cgi-bin/uploader/pic/file/vipnion-pic_1095.jpg
この状態から集計アイテムの挿入をすると、

ttp://vip.cmdap.com/cgi-bin/uploader/pic/file/vipnion-pic_1096.jpg
データの無い行まで表示されるんですが、
集計アイテムの挿入をする前の行数にはできないんですか?

467 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 01:20:08
>>466
集計アイテムにこだわらずに作業列で符号反転したらいいじゃない。
どうせフラグも作業列作るでしょ。

それからすべてをピボットで完結させる必要はないんだよ。
目的を忘れてはいけない。


468 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 01:33:17
ピボットなんて不良みたいな言葉使うのはおよしなさい

469 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 01:43:50
>>467
そだね、ありがと
なんかこれからピボットとも仲良くやっていけそうだよ

470 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 01:52:07
なにこの急激な流れw

471 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 02:31:46
>>425
とりあえずおまいは鼻からスパゲティ食えw

472 :338:2009/01/25(日) 03:37:59
>>339-341
遅くなりましたがありがとうございます
他スレにて表計算ソフトでやれるという回答をもらったので、
半信半疑で訊いてみたのですが…やはり無理ですか

アドバイス通り「数式処理」でぐぐって、良さそうなソフトが見つかりました
本当にありがとうございました

473 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 03:58:53
あぁ可哀相なピボットくんw

474 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 09:24:16
ピボット・・・OLレベルの限界
VBA・・・大人への階段

475 :425:2009/01/25(日) 09:26:52
一方その頃
ぼくはドラえもんに鼻からスパゲティ食べる道具を頼んでいた

476 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 09:44:44
>>475
SSうp!

477 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 10:22:29
>>474
中学から大学まで僕はプログラミングに夢中だった。
パズルのような知的ゲーム解いている感じが楽しくてたまらなかったんだ。
就職してからもVBAでいろいろ計算させては満足してたんだけど、ある日ピボットテーブルの存在を知った。
衝撃的な体験だった。今まで何をやってたんだろうと思ったね。
その日からVBAを使うのやめた。

478 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 10:33:51
SSって何?

479 :363:2009/01/25(日) 13:04:25
>>383
>>384
>>387>>388
ありがとうございました。助かりました。

>>ピボットテーブルの方
操作がこれで終わりではない・データのセットはこれだけではない、ので……。
ありがとうございました。

480 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 13:27:44
おまえピボットなめてんの?


481 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 13:53:34
>>480
そういうのやめてよ。君アンチピボだろ?
>>479
もしほんとにデータシートは67枚もあるなら今後はexcelじゃなくてデータベースを選択したほうがいいですよ。


482 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 14:50:58
しかし>>391タンはすぐに出来たのだろうか?それだけが疑問である

483 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 15:05:40
>>482
疑問もなにも符号を反転するだけだろう


484 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 15:13:28
2chで拾ってきたコードを仕事に使うなんてあり得ないよ
後から修正してきたとはいえ、Exportが欠損している場合の集計もれがあっただろ すげー不安
他にもバグあるんじゃないの?
例えば同じ年同じ国のExportが2件ある場合とか考慮してるのかな

485 :363:2009/01/25(日) 15:25:00
コードを読んで勉強させていただきました。ありがとうございました。
そのまま使うわけではないです。
複数の方からコードをいただいたわけですから……。

486 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 16:04:04
>>477
俺は逆に学生時代にピボットを先に覚えた。
VBAも概要は知っていたが、そのころの自分の目的では
ピボット他VBA以外の機能が使えればとりあえず事足りるので手を出す切っ掛けがなかった。

仕事でも俺のピボットを含めたVBA以外のExcelの知識は感心されることが多々あった。
しかし感心されるだけで評価はされなかった。何故ならVBAを使える奴等が
それを遙かに超える次元で活躍しているからだった。

そして俺もVBAを使うようになり、最初の頃はピボットと比べて欠点だと思う部分も多かったが、
単に一応の結果を出すコードを書くだけではなく、正しく使えるようになってくると
欠点だと思っていた部分は、VBAの欠点ではなくコードの欠陥であることにも気付き
ピボットとVBAを比較して、自分のコードの欠点をVBAの欠点だと思っていた昔の自分を恥じるようにもなった。
そうしてVBAを使えるようになった俺は、底辺で感心される子から、実務で評価される人員へと転換することが出来た。

487 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 16:27:14
Excel2003です
絵文字を文章の頭に付けたいんですけど
例えば携帯に入っている時計みたいな絵文字なんですけど
そういうのを付けることは出来ますか?
できるようならドコかにありますか?
あるようなら教えてください
お願いします

488 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 16:28:58
>>486
VBAで例えばどんなことを実現したの?

489 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 17:08:49
>>484
普通に使ってるぞ
>>486
両方使えるのはいいよな

490 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 17:08:49
なんとかして叩く要素を引き出したいのですね

491 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 17:15:06
ピボットしかできないのと
VBAしかできないのとでは圧倒的に差があるからなぁ

492 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 17:20:12
継続して使う場面は、複数の表を一つにまとめてグラフの自動作成→印刷、なんてのが一番使える
一回こっきりの場面では数千件ある古いデータの整理等。VBAで振り仮名振れるのは便利だと思う
応用範囲はとんでもなく広い
他には自動計算や描画をとめてから作業させれば低スペックのPCでも時間の節約になるし
後は事前に仕事の準備をすることにより、後々の仕事時間を削ることができる、というのも大きい。事務仕事が少なくなれば他のことにも集中できる

一番の問題といえばメンテが自分以外にできないこと、ぐらいか

493 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 17:26:37
VBAなんてできたってせいぜい職場の便利屋扱いされるだけだよ
「へーすごいね。じゃあ、これもお願い」って感じか。

494 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 17:31:57
>>493
>複数の表を一つにまとめてグラフの自動作成→印刷、
こういう一連の仕事をコマンドボタンにでも登録して渡せば、今度から頼まれることはなくなる
それに俺がPC使って3時間かかる作業を数十分で終わらせられるなら、会社全体として見ればそれでいいでしょ
自分のスキルも上がるしね

・・ってのは建前で、単純作業やるよりコード書いてるほうが楽しいってだけなんだけどね
実際それで業務時間は短縮されてるのでどこからも文句は出てないしなー

495 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 17:38:40
ピボット厨っていつも必死なのは何故?
何か思い入れがあるのか?昔好きだったプロレスラーと名前が同じとか

496 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 17:55:22
>>493
おれは出来ないほうだけど
できる人にお願いするのも結構大変だよ。
複雑なコード書かなければならな仕事抱えてる事おおいし
そこにVBAじゃなければ無理なんだけど、関数に毛が生えた程度
みたいな物をを依頼するのは気が引ける。
なので今勉強中

497 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 17:59:15
>>487
絵文字フォントをインストールするだけで使えるよ

498 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 18:01:35
ふつうの事務系で複雑なコード書くことなんてないよ
VBAが必要な場面なんかデータの整形くらい


499 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 18:07:34
ピボットで十分ってOL程度の仕事しか与えられてないからだろw

500 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 18:15:42
ふつうの事務屋はめんどくさいVBA組まなきゃできないような仕事なんかしないよ
どうしても必要なら基幹システム組むかシステム部署に要件伝えて実装してもらう
そういう費用も体制もない中小企業で便利屋さんするのもまあいいんじゃないの?
ほかになんにもできないから、そういうので貢献するしかないんだろうし。

501 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 18:34:15
ふつうの事務、ふつうの事務、ね
はいはい

502 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 18:38:22
システム部署ほどのスキルはないし 事務屋でもたいした仕事はできない
せいぜいむずかしいVBAのコードでも書いてたらいいさw

503 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 18:45:37
便利屋にすらなれず「使えない奴」の烙印押されたピボ厨が必死になってますねw
何故かピボ厨にはこういう必死が共通してるよな

504 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 18:55:15
ぶっちゃけ
ひとつの質問に対してVBAとピボットと両者それぞれの方法で答えないと
どちらが良いかの比較にならないんだよな
もちろん質問によって優劣は変わるんだろうけど
ただ現状はピボット側からの回答がほとんど示されてないから
ピボット無能の烙印を押されても仕方ないとは思うよ
だからピボッターはもっとがんばれ

505 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 18:55:32
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel**
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード     】 Googleやヘルプでの検索キーワード

プルダウンメニューで取引先の会社を選択すると
自動的にその会社の担当者とメールアドレスを表示するようにしたいです。

”データ”というシートのA1-C30に取引先データがあります。
(A列に取引先会社名、B列に担当者名、C列に担当者メルアド)

それで、"管理表"というシートで
B2をプルダウンメニューにして、取引先会社データを選ぶようにして(参照先は"データ"シート)
選ぶとC2、D2に担当者と担当者メルアドが自動で反映されるようにしたいです。
助言お願いします。

506 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 18:56:42
うちの課長もピボットテーブルつかうから 下っ端が楽できて助かるわw

507 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 18:57:40
>>505 VLOOKUPで

508 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 19:00:59
そういえばピボットくんって具体的な回答(ブックのうpや詳細な手順の解説)を避けるよね
俺はそこまで具体的じゃなくてもわかるけど、ピボット使ったこともない質問者への回答ならば
具体的な回答を付けるべきだよね
でもそれをしないのって、具体的に示すと欠点が見えてしまうからなのかな?

509 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 19:04:03
どうあがいてもピボットしか出来ない奴はゴミ
両方出来る人は素敵

510 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 19:04:42
>>506
うちの上司はピボットもVBAも使えるから
ピボットでは無理な仕様変更が予測されるのにピボット使って後から下っ端がVBAで組み直しとか
一過性の集計にわざわざVBA組んで時間の無駄遣いとかないので更に助かるw

511 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 19:08:07
エクセルやアクセスのVBAごとき
ユーザー部門がやれよ
めんどくせーんだよ

512 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 19:29:09
ピボットなんてできて当たり前、VBAは+αのスキル
それよりアクセス覚えたほうがよっぽど有意義

513 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 19:39:37
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2003
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】  可

エクセルでバイトのシフト表を作成しています。
メンバーが5人いて、それぞれ出勤する日が違いますが、個人のパターンは同じです。
例えばAさんは日・火・木出勤、それ以外は休み、Bさんは月〜金まで出勤、土日休み…など。
毎回カレンダーの表に手打ちしてるんですが、もっと効率のいい入力方法は何かないですか?


514 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 19:44:06
>>492
典型的バカシートに囲まれて仕事してんだな。
そりゃVBA使いたくなるのもわかる。笑える。

515 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 19:45:36
>>513 どんなカレンダーの表になってるのかわからんと どうにも

516 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 19:50:07
>>512
VBAを覚える前にACCESS覚えてほしいよね。
IFとかFORとか駆使して計算されても今ひとつ結果を信用できない。


517 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 19:52:13
>>513
一行目に日付、二行目に曜日
三行目に
=if(or(a$2="",a$2="月",a$2="",a$2="水",a$2="",a$2="",a$2=""),"出勤","")
みたいにすれば月と水の時、出勤と表示される。後はオートフイル

518 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 19:57:01
>>516
それってコード読めない(理解できない)だけだよね?

519 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 19:57:02
>>492
>一番の問題といえばメンテが自分以外にできないこと、ぐらいか

致命的だな。

520 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 19:58:09
>>518
浅い

521 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 19:58:20
>>518
全然違う
>>519
俺が死んだらまた手作業に戻るだけ

522 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 20:02:20
>>521
>俺が死んだらまた手作業に戻るだけ
そういう部下は使えない

523 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 20:04:24
>>521
そういう部下には仕事まかせない

524 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 20:06:52
>>523
そういう部下はいらない

525 :513:2009/01/25(日) 20:19:42
>>515
すいません。肝心な物を書き忘れました。
http://office.microsoft.com/ja-jp/templates/TC010593741041.aspx
表はまさにこんな感じです。

あと1週間ごとに朝番と昼版交代になっていくんです。出勤の日は一緒です。
朝番の時は「朝」昼番は「昼」と入力しています。

526 :名無しさん@そうだ選挙にいこう:2009/01/25(日) 20:24:11
>>525
よくわかんないけど 最初の1週間分だけ手入力してあとは単純にコピペじゃだめなの?

527 :名無しさん@そうだ選挙にいこう:2009/01/26(月) 01:49:46
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2003
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード     】 Excel 日付 条件判定

よろしくお願いします。
A3〜A20位までに日付が連続(右へ行くほど新しい日付)で入っていて
その真下のB3〜B20の任意の箇所(空白あり)に数字が入っているようなシートで
B1に「B3〜B20のうち数字が入っている一番古い日」をB2に「B3〜B20のうち
数字が入っている一番新しい日」を入れたいと思っています。
MAXとかMINとかを考えたりしたんですが、なかなかいいやり方が
思いつきません。
何かいい実現方法がありますでしょうか?

528 :527:2009/01/26(月) 01:56:22
>>527
すいません。。行と列を間違えました。
C1〜Z1に日付で、C2〜Z2に数字でが入っている環境です。
一番古い日付をA2、一番新しい日付をB2に入れたいと思っています。

529 :名無しさん@そうだ選挙にいこう:2009/01/26(月) 01:57:00
「右」と「下」が逆な気がするが、とりあえずC3〜C20に
Bが数字ならAの日付を返し、そうでなければ空文字かNAを返す
という式を入れて、あとは単純にMINとMAXで求めれば良い

530 :527:2009/01/26(月) 02:29:47
>>529
早速の回答ありがとうございます。
分かりにくくなるので>>529の行列解釈のままで考えます。

Bのような(数字の入った)列がC,D,E〜と続く事になり、計算情報をプール出来るような
スペースが無いという情報が抜けていました。。度々すみません。

配列計算で日付の配列と数字の配列の積を取るみたいな事も考えたりしています。。
例えばB列が["","",5,"",3,"",2]となっていると仮定してこれを["","",1,"",1,"",1]みたいに
変換出来てしまえば日付配列との積を取ってMAX、MINで計算出来るような気がしてる
ですが。。。

531 :名無しさん@そうだ選挙にいこう:2009/01/26(月) 08:28:04
> スペースが無い
列の挿入、及び表示が崩れるのが嫌なら挿入した列の非表示

もちろん配列数式でも出来るが、作業列使った方がいいよ
少なくとも自分で配列数式組めないレベルならね

因みに君の考えてる方法そのままでは「日付×""」でエラーになるぞ
MAXだけなら論理値との積も有りだが、それではMINが0になるので、
配列数式でやるならIFを使う方がいいな

532 :名無しさん@そうだ選挙にいこう:2009/01/26(月) 09:58:16
>>527
Cからだと31日はAGにならないか?まぁZで止めるようなカレンダーならAGをZにかえておくれ
a2=MAX(IF(C2:AG2<>"",C1:AG1,""))
b2=MIN(IF(C2:AG2<>"",C1:AG1,""))
後はshift+ctrl+enterで配列数式

ところで配列数式をコピーする方法ってある?

533 :名無しさん@そうだ選挙にいこう:2009/01/26(月) 10:25:11
>>532
普通にコピペ

534 :名無しさん@そうだ選挙にいこう:2009/01/26(月) 11:30:13
3行目を使って、たとえばセルC3には
=IF(COUNT(C2)=1,COUNT(C2)*C1,"")
という式をいれて、横に列分だけコピー

あとは(列Zまでなら)
A2のセルをa2=min(c3:z3)
A3のセルをa3=max(c3:z3)

なんてのはどうだ?



535 :よろしくお願いします:2009/01/26(月) 12:00:26
毎日、一行ずつデーターが増える表のグラフ範囲指定についてですが、
毎日の増加データが、その都度、反映されるようにするにはどうすれば良いですか?
今から入力する範囲も、グラフ範囲に指定すると、
ゼロのグラフの部分が多く見にくくなってしまいます。


536 :名無しさん@そうだ選挙にいこう:2009/01/26(月) 12:05:31
>>535
VBA使えばいいよ

あとは>>3の「★ルールを無視すると…」の2を読んでおいて

537 :よろしくお願いします:2009/01/26(月) 12:31:50
すみません。あらためまして。
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2007
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード     】 Excel グラフ
毎日、一行ずつデーターが増える表のグラフ範囲指定についてですが、
毎日の増加データが、その都度、反映されるようにするにはどうすれば良いですか?
今から入力する範囲も、グラフ範囲に指定すると、
ゼロのグラフの部分が多く見にくくなってしまいます。




538 :名無しさん@そうだ選挙にいこう:2009/01/26(月) 12:52:31
★ルールを無視すると… 3

一度ルール無視したら後出しで従ってもダメ

それが悔しかったら、今後はこのスレに限らず
>>1-5くらいは読んでから質問しましょうという教訓です
痛み(不利益)を伴わないと教訓にはならんからな

539 :名無しさん@そうだ選挙にいこう:2009/01/26(月) 13:17:58
>>533
あれ、できるね?ごめんなさいー
>>537
ヒントだけ「挿入」

540 :名無しさん@そうだ選挙にいこう:2009/01/26(月) 13:31:24
カメラ機能とか図のリンク貼り付けとか、
あまり使わない機能をまとめてあるサイトありませんか?

541 :名無しさん@そうだ選挙にいこう:2009/01/26(月) 15:15:39
あまり使わないかそうでないかは、ひとそれぞれ。

542 :名無しさん@そうだ選挙にいこう:2009/01/26(月) 15:26:38
>>537
データを追加するときに、1番下マイナス1行目に挿入したらいいですよ。


543 :名無しさん@そうだ選挙にいこう:2009/01/26(月) 16:58:20
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2003
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード     】

折れ線-縦棒グラフで2つのグラフを重ね合わせたとします。
x軸はは1から10まで1刻みであります。
縦棒グラフは離散的なもなのでこれで良いのですが、
折れ線グラフの方が右端と左端がきれてしまっていて不自然です。
この折れ線グラフを「近似曲線」の先方補外、後方補外みたいな機能で
補うことって出来ないのでしょうか?


544 :527:2009/01/26(月) 19:30:11
>>529
>>531
>>532
>>534

みなさん色々とありがとうございます。
>>532の式でうまくいきました。ついでにC2〜AZ2に何も数字が無かった
場合の処理(0を表示させないで空白にする)を加えた形で使わせてもらいました。



545 :名無しさん@そうだ選挙にいこう:2009/01/26(月) 21:10:30
【1 OSの種類         .】 Windowsvista
【2 Excelのバージョン   】 Excel2003
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード     】

前にも一度質問したのですが、もう一度質問します。
あるセルにある内容を別のセルに移したいとします。
一方でそのセルに対して、数式で別のセルが関連づけされているとします。
その状態でカットペーストあるいはコピーペーストで移したとすると、
その関連づけしていた数式の入ったセルの内容まで移動先に変更されます。
これを変更されずにして移動したいのですが、どうすれば良いのでしょうか?
移動したいセルが一つであれば、数式バーをコピぺすればうまくいくのですが、
動かしたセルが複数ある場合にはどうすれば良いのでしょうか?
ずっと悩んでいるのですが、どうしても分かりません。
どなたかよろしくお願い致します。

546 :名無しさん@そうだ選挙にいこう:2009/01/26(月) 21:20:21
【1 OSの種類         .】 Windowsxp
【2 Excelのバージョン   】 Excel2003
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 いいえ
【5 検索キーワード     】

AVERAGE関数でセルに何も入ってない場合やゼロが入力されている場合には
計算に含めないようにするにはどうしたら良いのでしょうか?


547 :名無しさん@そうだ選挙にいこう:2009/01/26(月) 21:21:05
たとえば =C1+1 というような数式だけコピーしたいってこと?

=$C$1+1 にしたり、形式を選択して貼り付けでいけるんでは?

548 :名無しさん@そうだ選挙にいこう:2009/01/26(月) 21:24:25
質問です。

学習方法についてです。2007 FOM出版 excel 応用基礎を使用して学習しようと思いますが
内容が簡単な気がします。全部購入すると4200円。さらにfomシリーズをそろえると25000円
みなさんはどのような学習方法ですか?
サイトと見るだけで、中級以上にいけますか?おすすめのサイトを教えていただけませんか?

549 :名無しさん@そうだ選挙にいこう:2009/01/26(月) 21:28:36
>>545
絶対参照を使って式を書く
セルの数が多すぎて修正しきれないならVBAで.Formulaをコピー

550 :名無しさん@そうだ選挙にいこう:2009/01/26(月) 21:29:53
>>548
スレチ

551 :名無しさん@そうだ選挙にいこう:2009/01/26(月) 21:36:07
>>549
絶対参照を使いたくないときはどうすれば良いのでしょうか?
そのVBAで.Formulaをコピー というのを具体的に教えて頂けないでしょうか?


552 :名無しさん@そうだ選挙にいこう:2009/01/26(月) 21:38:42
>>551
A1の数式をB1へコピーしたいなら
Range("B1").Formula = Range("A1").Formula

553 :名無しさん@そうだ選挙にいこう:2009/01/26(月) 21:51:24
>>546

空白はそのままで無視されるよ。0をはずすときはIFを使う。

=AVERAGE{(IF(A1:A7<>0),A1:A7,""))}

554 :名無しさん@そうだ選挙にいこう:2009/01/26(月) 21:52:15
>>548
個人的には実務やってないとエクセルなんて上手くならないと思う
サイトは「エクセル 学習」辺りで検索したら死ぬほど出てくると思う
ttp://www.kenzo30.com/がいいのかは知らないけど迷うならここからやるといい

書籍のオススメはダイソーの100円シリーズ。初・中・上とあり三冊でも300円
あれ見ながら操作してれば一通り覚えると思う
>>551
絶対参照で書いてから編集、置換で「$」を「」(何も入力してない状態)に変えるとか


555 :名無しさん@そうだ選挙にいこう:2009/01/26(月) 22:21:31
エクセルで、A4にめいっぱいに印刷したいです。
現状は、余白が空いてかなりもったいないです。
自分で、横長に記入してるのですが、それでも空白ができます。
何か方法はないでしょうか?

たとえば、エクセルであらかじめ縦横の比率を設定してくれるとか。

556 :名無しさん@そうだ選挙にいこう:2009/01/26(月) 22:37:47
>>555
印刷プレビュー 設定 倍率
余白を左と上をつめてからすればうまくいくと思う

557 :名無しさん@そうだ選挙にいこう:2009/01/26(月) 22:52:16
さんくす

ってことは、毎回設定しないといけないのでしょうか?

558 :名無しさん@そうだ選挙にいこう:2009/01/26(月) 23:15:06
>>557
印刷レイアウトはブックを保存する時に一緒に保存されるので
一度設定したらプリンターを変えない限り何度でもそのまま印刷される。
プリンターによって余白をゼロにできる機種もあるので、印刷の詳細設定で確認。

ブックを新規に作成する時は設定やり直しになるので。
毎回同じレイアウトでブックを作りたいならテンプレート登録。

559 :名無しさん@そうだ選挙にいこう:2009/01/26(月) 23:18:53
>>537
>>542
2007ではホームから’テーブルとして書式設定’を使えばできないか?

560 :名無しさん@そうだ選挙にいこう:2009/01/27(火) 01:09:58
【1 OSの種類         .】 Windowsxp home
【2 Excelのバージョン   】 Excel2002
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 否
【5 検索キーワード     】 excel 組み合わせ 積の和

a1〜a16の値があります。
この値をa1*a2*a3,a1*a2*a4・・・a14*a15*a16という3次元の全組み合わせの合計値を出すのを
VBA無しの関数だけで実現できるものでしょうか?
要は16C3(否16H3)の1つ1つの積の和ってことです。

VBAならばforを使って出来るのはわかるんですが。

561 :名無しさん@そうだ選挙にいこう:2009/01/27(火) 01:32:40
>>560
各セルにその計算式を順番に入れればいいだけだと思うのだが、何が質問?

562 :名無しさん@そうだ選挙にいこう:2009/01/27(火) 04:39:39
A1〜A16にa1〜a16を入れる
B1〜B4096にこの式を入れる
=IF(AND(MOD(ROW(),16)<>MOD(INT(ROW()/16),16),MOD(INT(ROW()/16),16)<>INT(ROW()/256),INT(ROW()/256)<>MOD(ROW(),16)),INDIRECT("A"&MOD(ROW(),16)+1)*INDIRECT("A"&MOD(INT(ROW()/16),16)+1)*INDIRECT("A"&INT(ROW()/256)+1),0)
C1に
=SUM(B1:B4096)

563 :名無しさん@そうだ選挙にいこう:2009/01/27(火) 06:23:28
たびたび質問お願いします。

A4横向き印刷で、印刷内容が用紙の中央に印刷されるようにする方法はないでしょうか?
現状では、少なめの内容だと、用紙の左上から印刷されますので、右下に空白ができてしまいます。
見た目が悪いです。

564 :名無しさん@そうだ選挙にいこう:2009/01/27(火) 07:06:41
>>563
そんな印刷設定の余白タブ選んで上下と左右の中央揃えにちぇっく
入れるくらいのことわざわざここで聞くなよ

565 :名無しさん@そうだ選挙にいこう:2009/01/27(火) 12:24:13
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel 2007
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード     】 不明

会社で使用しているExcelファイルのテンプレートをVBAで自動的に出力する物を作っています。
表示サンプルを頂いたので、それを元にVBAのプログラムを組んでいるのですが、
セルの文字表示が二段(下記URLの画像を参照してください。)になっている物をどのように作れば良いのか分かりません。
実際にExcelの操作でもどのようにすれば良いのか分からず困っています。
サンプルをくれた上司に訪ねても、誰が作ったのか分からないからと一蹴されてしまいました。
どのようにすればひとつのセル内に文字を二段入力して、画像のように表示する事ができるのでしょうか?

ttp://www3.uploda.org/uporg1968041.jpg.html

566 :名無しさん@そうだ選挙にいこう:2009/01/27(火) 12:32:35
>>562
おれの部下でこういう数式つくってる見つけたら「バカ」と呼ぶことにする

567 :名無しさん@そうだ選挙にいこう:2009/01/27(火) 12:50:09
>>565
Range("A1").Value = "給料" & vbLf & "(月給)"

このレベルの奴にVBA頼まなければならない底辺の会社というのも大変だな

568 :名無しさん@そうだ選挙にいこう:2009/01/27(火) 12:54:53
本日よりエクセルを使い始めたのですが
以下のようなときの条件が判らなくて困っております。

入力した数値が
0より大きい場合は3を掛ける
0より小さい場合は5を掛ける
例:(セルA1に10を入れるとセルB1が30になる。A1に-5を入れるとB1が-25になる)

こういった場合の式はどのようにすればいいのでしょうか。
どなたかご教示願います。

569 :名無しさん@そうだ選挙にいこう:2009/01/27(火) 13:10:52
>>567
ありがとうございます!

570 :名無しさん@そうだ選挙にいこう:2009/01/27(火) 13:14:21
>>566
保守性を考えなければ、最適な式を作るのに時間かかるほうがよっぽど無能
どれだけ汚い式でもそれで早く仕事が終わるほうが有能。もっと言えば式を使わずに早く終わるならそれに越したことはない
間違ってるのは論外な
>>568
0の時の処理が分からんが
b1=if(a1>0,a1*3,a1*5)
も少し拡張する予定なら↓で。
b1=if(a1>0,a1*3,if(a1<0,a1*5,a1)

571 :名無しさん@そうだ選挙にいこう:2009/01/27(火) 13:28:35
>>570
ありがとうございます。
助かりました

572 :名無しさん@そうだ選挙にいこう:2009/01/27(火) 13:58:36
>保守性を考えなければ、

そういった大前提を崩すバカが喜んで作業列なし数式だらけの
クソシートを作るんだな。

573 :名無しさん@そうだ選挙にいこう:2009/01/27(火) 14:35:42
>>572
あ、エクセルで何でこなす中小様でしたか^;
失礼しました^^;

574 :名無しさん@そうだ選挙にいこう:2009/01/27(火) 14:45:06
いちいち専用ソフト導入しないと何も出来ない弱小様ですか?

575 :名無しさん@そうだ選挙にいこう:2009/01/27(火) 16:12:54
質問です。

【1 OSの種類         .】 Windows XP SP3
【2 Excelのバージョン   】 Excel 2007
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード     】 Google 「excel セル 文字 はみ出ないように」
このスレ内は目を通しました。


入力した文字がセルより長いとはみ出ますが、
文字は途中で切れても構わないので、文字サイズはそのまま&改行無しではみ出ないようにできますでしょうか?
隣のセルにスペースを入れておけば一応は回避できるのですが、データが多くて正直面倒です。


低度な質問ですがよろしくお願いします。

576 :名無しさん@そうだ選挙にいこう:2009/01/27(火) 16:15:16
>>560
(A1+...+A16)^3 = A1^3+...+A16^3 + 3(A1A2^2+A2A1^2...+A1615^2) + 6 (A1A2A3+...+A14A15A16)
を使うといいと思う

577 :576:2009/01/27(火) 16:25:09
んで
A1A2^2+A2A1^2...+A1615^2 = (1/2)((A1+A2+...+A16)(A1^2+A2^2+...+A16^2) - (A1^3+...+A16^3))
だからーっと、求める値は
(1/6)((ΣAi)^3-Σ(Ai^3)-(3/2)((ΣAi)(Σ(Ai^2))-Σ(Ai^3))
これを通分すればおkなはず。

578 :名無しさん@そうだ選挙にいこう:2009/01/27(火) 16:35:11
>>560
>562みたいに1列で済まそうとしてミスをするより
シンプルかつ検証可能な形で作業列を使う。

a1〜a16をデータとして、
b1: =INT(ROW()/256)
c1: =INT(ROW()/16)-INT(ROW()/256)*16
d1: =MOD(ROW(),16)
e1: =INDIRECT("a" & B1+1)
f1: =IF(B1<C1, INDIRECT("a" & C1+1),0)
g1: =IF(C1<D1, INDIRECT("a" & D1+1),0)
h1: =E1*F1*G1

b1:h1 コピー b1:h3583 にペースト
h3584 でオートSUM

ちなみに>562の式を隣に並べると
どこが重複しているか一目瞭然。

579 :名無しさん@そうだ選挙にいこう:2009/01/27(火) 17:21:12
>>575
出来ません
そもそも計算ソフトにそんな機能は必要ないのです

580 :名無しさん@そうだ選挙にいこう:2009/01/27(火) 17:58:17
>>579
あるよ!




どこか忘れたけどw

581 :名無しさん@そうだ選挙にいこう:2009/01/27(火) 18:11:19
>562 1行だとこうだな
=INDIRECT("A"&MOD(ROW(),16)+1)
*INDIRECT("A"&MOD(INT(ROW()/16),16)+1)
*INDIRECT("A"&INT(ROW()/256)+1)
*AND(MOD(ROW(),16)>MOD(INT(ROW()/16),16),
   MOD(INT(ROW()/16),16)>INT(ROW()/256))

582 :575:2009/01/27(火) 18:44:44
>>579>>580

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

580さんの言うように、可能かもしれないのでもう少し調べてみます。

583 :名無しさん@そうだ選挙にいこう:2009/01/27(火) 18:56:18
【OSの種類         .】 Windows XP Pro
【2 Excelのバージョン   】 Excel2007
【3 VBAが使えるか    .】 コードを書いて下されば可
【4 VBAでの回答の可否】 可
【5 検索キーワード     】

特定のシートの特定したセル(今回の場合はG12)
で印刷毎に連番を入れるために下記のコードを使いましたが
2点程不満がありましたので、改良されたコードを教えて下さい

3行目の"―"を"-"(ハイフン)にしたいのですが、ハイフンにすると
 4桁にしたいのですが先頭が"0"の場合"0"が表示されません

Dim i As Integer
For i = 1 To 3
Range("G12").Cells = "―" & Format(i, "0000")
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
DoEvents
Next i


584 :583:2009/01/27(火) 19:00:55
失礼しました、不満は1点だけでした

585 :名無しさん@そうだ選挙にいこう:2009/01/27(火) 19:03:27
>>581
だから1行にするなというのにw

586 :名無しさん@そうだ選挙にいこう:2009/01/27(火) 19:21:12
>>583
@ 文字列で扱う時
  Cells(12, "G").NumberFormatLocal = "@"
  For i = 1 To 3
  Cells(12, "G") = "-" & Format(i, "0000")
  …
A 数値で扱う時
  Range("G12").NumberFormatLocal = "-0000"
  For i = 1 To 3
  Range("G12") = i
  …



587 :名無しさん@そうだ選挙にいこう:2009/01/27(火) 19:34:38
>>213
ハイパーリンクでメーラーたち上げられるけど
メーラーが開いちゃうのはいやだってこと?

だとしたら、vbs等でプログラム書いておいてハイパーリンクで
キックしたらどうだろう。

588 :名無しさん@そうだ選挙にいこう:2009/01/27(火) 19:35:07
ごめん、スレッド間違えた

589 :名無しさん@そうだ選挙にいこう:2009/01/27(火) 22:49:43
>>581
それなら最後の重複チェックの部分もANDを使わずに
(INT(ROW()/256)<>MOD(ROW(),16))*(MOD(ROW(),16)<>MOD(INT(ROW()/16),16))
ってするかな。
演算子の数を減らすために比較の順番も変えてある。

590 :名無しさん@そうだ選挙にいこう:2009/01/27(火) 22:51:54
マニア自慢はおなかいっぱいです。。。

591 :名無しさん@そうだ選挙にいこう:2009/01/27(火) 23:03:16
>>582
可能は可能
でもVBAを変な意味で極めてないと難しい
>>590
俺は結構好きだぜ
っていうか結構勉強になる
たぶんこなんスレよりCとかphpスレみてるほうがよほどいいんだうろけど

592 :名無しさん@そうだ選挙にいこう:2009/01/27(火) 23:55:34
>>591
をいをいw
>>575は「VBA 否」の条件で聞いてるんだぞ

593 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 00:13:07
>>575
セルの幅を伸ばす
以外に無いと思うが

594 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 00:19:11
> 隣のセルにスペースを入れておけば一応は回避できる
ということは、はみ出すのではなく途切れるように表示したいってことだろ

条件や意図を読みとれない奴ばかりで困ったものだ┐(´ー`)┌

595 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 00:59:15
A1:A1000にデータがあるんだけど、重複をカットしてB1以下に関数で表示するには
どうしたらいいですか?

あ あ
い い
あ う




こんなイメージです。

596 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 01:10:27
関数での重複除外は過去ログにある

597 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 01:12:13
>>595
そういうのはフィルタオプション使え

598 :595:2009/01/28(水) 01:22:58
>>596
どこにありますか?
どうしても関数でやりたいんです。

599 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 01:59:20
>>598
B1=IF(ISERROR(E1),"",INDEX($A$1:$A$6,E1))
C1=IF(COUNTIF($A$1:A1,"="&A1)=1,A1,"")
D1=IF(C1="","",ROW(A1))
E1=SMALL($D$1:$D$6,ROW(A1))

これで必要な行数フィルコピー
また、必要に応じて列の非表示や、現在C列以降を使ってるなら列の挿入
作業列使いたくないなどの条件後出しは禁止

600 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 02:00:50
>>598
まぁ関数厨が出てくるのを気長に待て。
もしかして>>596は自分が書いたんじゃないの?
だったら教えてくれりゃいいのに。

601 :595:2009/01/28(水) 02:04:39
>>599
後出し禁止ですいません。
一つの式で出来ませんか?

602 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 02:10:31
そう来るんだよなw

603 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 03:33:27
まあそうきたところで、後出しは禁止なんだから無視すればいいでしょ
「禁止のところすみませんが」と断り入れるだけでなんでも罷り通ったらルールの意味無いし

604 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 04:17:38
【1 OSの種類         .】 WindowsXP Home
【2 Excelのバージョン   】 Excel 2007
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード     】 Excelで文字列を数値に変換

VBAで質問があります。文字、数値を含む文字列を配列で処理し、Excelのセルに出力しているのですが、
数値を入力した場合のみ、「数値が文字列として保存されています」と表示され、エラーが発生します。
どのようにすれば処理をしている時に文字は文字、数値は数値で認識されるのでしょうか?

605 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 07:59:10
つVAL

606 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 08:01:10
>>601
B1の式のE1にe1=の式を入れる
そのE1の式の中のD1に・・
文字数制限にひっかかった場合は知らん

607 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 08:35:38
>>606
それではダメ

あ あ
い い



う う

とする式なら、その方法で纏められるけど
>>599は上詰めしてる部分で参照行がズレるから
これは配列数式にしないと作業列無しには出来ない
一応、CとD、BとDはまとめられるし、文字数も問題ないけど
君の方法ではひとつの式にはならないよ

608 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 08:51:06
>>601
数式でやるやつもなんだが、ましてや一つの式でやるやつはヴァカ。
つい最近もどっかで嘘回答見たなw
マイクソソフトも何考えてるんだか。

609 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 09:17:12
>>607
参考までに君の配列数式見せてくれない?
あっちと同じ嘘回答だったりして。


610 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 09:47:17
>>609
ルール違反(後出し君)への回答になっちゃうから伏せる
そもそも608でも書かれてる通り配列数式でやること自体が不適切なんだから
実現する式は必然的に式は糞になるのは当然だろ?

糞じゃない配列数式が作れるなら参考までに見せてくれない?

611 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 10:09:14
>>610
書いても後出し君は使えないから大丈夫だなw
答えが出ねーって怒ったりしてwww
B1:B1000に
{=INDEX(A:A,SMALL((MATCH(A1:A1000&"",A1:A1000&"",)<>ROW())*1000+ROW(),ROW()))&""}
君はこれで答え出せるよな?
出せてもやり方書いちゃいかんぞ。馬鹿が増えるだけだからw
作業列使った式より2倍以上遅いから少し糞だが、あっちのの式より100倍以上は速い。
ちなみに作業列作ればSMALLなんて馬鹿な関数は使わん。

612 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 10:11:13
多分ものすごく初歩的な質問なのですが失礼します
エクセルの検索と置換で ~ を検索するのはどうやってやるのでしょうか?
特殊な記号扱いなのか検索結果が取得できません
使用しているのは2003です

613 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 10:19:24
>>612
~~
散るだが二つ。
ヘルプに書いてなかったか?
書いてなかったらすまん。

614 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 10:27:18
>>612
「 ~ 」は特殊な記号の機能をキャンセルする時に使うための特殊な記号。
たとえば「 ? 」そのものを検索したい時は「 ~? 」と書く。

>>613
検索のヘルプには見あたらんね。
ちょっとした応用なんだけど、なかなか思い付かんよな。

615 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 10:37:04
>>613-614
できました!
ありがとうございました

616 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 10:53:22
>>611
普通に答え出せちゃうだろ
これが特殊な方法だとでも思ってたの?

617 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 10:56:44
>>616
いや普通なんだが、かのMVPはやり方知らないんだよ。

618 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 11:05:30
俺は>>611で答えが出ない orz

619 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 11:10:43
そりゃMVPって全てを熟知してる人だけに与えられるものじゃないからね
君が知っていてかのMVPが知らないこともあれば、かのMVPが知っていて君が知らないこともある

620 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 11:13:07
>>619
いや彼は配列数式の使い方を教えたいってプロフィールに書いてるんだよ。
そんな人が使い方知らないのはまずくね?

621 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 11:18:47
これは配列数式でできる!
と書けば配列数式厨の誰かがすかいてくれると思ったのかもしれん

622 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 11:23:06
俺は式を書いたが断じて配列数式厨じゃねーからな。

623 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 11:33:02
重複を除いた一覧なんてピボットテーブルならほんの数クリックなのに。
こんな時こそ道具は有効に活用しなきゃ。
ttp://windyakin.if.land.to/src/up38_0533.png

624 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 11:38:17
なるほどw
あとはVBA厨が出てくればオールスターだな

625 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 11:40:03
>>623
そりゃそうだな。
変な式書いた俺だが、俺でも知ってる。
でもたいていの人はフィルタオプション使うだろうね。

626 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 11:40:29
呼んだ?

627 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 11:41:01
>>624
Dictionaryか?
最近まともなDictionaryあまり見ないね。

628 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 11:44:40
>>626
おめぇ書いてみろ。
俺が許す。

629 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 11:50:43
>>627
> まともなDictionary
をよろしく
そういうこと言うからには、まさか書けないとか
いろいろ理由を付けて書かないとか言わないよな?

630 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 11:53:36
>>629
俺は書かんよ。
人のを見る方が面白い。

631 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 11:56:38
×か
○け

632 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 11:57:26
フィルタオプションは結果を元のデータの隣の列に出す手順が面倒くさいと思うんだけど、
何か簡単にやる方法があるのかな

633 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 12:02:26
>>632
何がめんどくさいの?
抽出先をB1にするだけじゃん。

634 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 12:09:02
ところで>>611が不完全な式であることには誰も突っ込まないの?

635 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 12:10:34
>>634
釣りはよしましょうね。
不完全じゃねーから。

636 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 12:11:44
釣りじゃなく>>634はMVPだったりしてw

637 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 12:12:28
見抜けないなら仕方ない

638 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 12:18:26
フィルタオプションでやってみたら
A  B
あ あ
い い
あ あ
い う


になっちゃったんだけど、何が間違ってるんだろう…

639 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 12:20:16
カップヌードル喰ってたわ。

Sub hoge()
  k = 2
  Cells(1, 2) = Cells(1, 1)
  For i = 2 To 1000
    For j = 1 To i - 1
      If Cells(i, 1) = Cells(j, 1) Then Exit For
    Next j
    If j = i Then
      Cells(k, 2) = Cells(i, 1)
      k = k + 1
    End If
  Next i
End Sub

640 :583:2009/01/28(水) 12:20:37
>>586
ありがとうございましたできましたm(-_-)m

641 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 12:24:41
>>638
あ ─ 見出し
い ┐
あ ├ 非重複データ
う .┘

642 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 12:32:55
そっか、見出しの行が必要なのね。

643 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 12:42:41
>>637はまさかA1:A1000じゃなくA$1:A$1000だっていってるんじゃねーよな。
まさかそんなアフォじゃねーよなぁ。
おれがフィルタオプションで抽出したものと何度比べても同じなんだけどね。
間違ってるとしたら*1000の部分だが、1000行なら*1000でいいんじゃない?
もっと大きな数値なら安心できるけどね。

644 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 12:54:30
>>637
あぁ途中に空白ね。
疑ったりして悪かった。酢万。

645 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 12:58:58
空白対策は済んだが書くのはやめた。
配列数式厨を増やす結果になるとまずいからな。

646 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 13:35:06
>>645
空白はまだいい、俺は答えでねーぞゴルア

647 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 14:07:27
>>611の式に$を補って入れてみた
あ あ
い い




になった。「う」はどこいった?

648 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 14:15:34
おまえらとことんバカだなwww

>>595
[データ]タブ-[データツール]グループ-[重複の削除]-[OK]
これでできる!


2007限定だけどなwww
テンプレ使わんやつにはこれで充分!!

649 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 14:15:59
VBA厨のオレだけど >595 みたいにフィルタじゃなくて
値で取り出したいのなら、B2:B1000 に
 =IF(ISERROR(MATCH(A2,A$1:A1,0)), A2,#VALUE!)
と入れて、コピー>値貼り付け、選択状態のまま
編集>ジャンプ>セル選択>定数、エラー値でで削除>上シフト
とちゃっちゃーとやっつけた方が手っ取り早い。

650 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 14:16:48
しまったw
最初にB列にコピーしなきゃいけなかったw

651 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 14:20:39
>>647
>>611じゃないが、$は補う必要ないんだよ。
君も配列数式知らないらしいな。

652 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 14:28:20
>>651
ズリズリするのが好きなんだろうね。
猿がズリズリ覚えると死ぬまでやめんとかいうからなw

653 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 14:28:34
>>651
そのまま入れたらこうなった。
あ あ
い い

い い


3行目に変な空白、「い」の重複、「う」の消滅。
俺には式の意味はわからないからそのままコピペしただけなんだが。

654 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 14:30:45
>>649
一度きりならな

しかしその方法は元データの変更が反映されない為
変更がある度にその煩わしい操作を繰り返さなければならない

655 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 14:32:33
>>645
対策できなかった場合の典型的言い訳だな
まぁ対策できてない以上、煽ったところで
なんだかんだ言って結局出さないと言うか出せないわけだが

656 :648=650:2009/01/28(水) 14:37:51
おい!誰か俺の>>648の相手をしてくれ!!!

配列が好きなら
{=INDEX(A:A,SMALL((MATCH(A$1:A$1000&"",A$1:A$1000&"",0)<>ROW(A$1:A$1000))*1000+ROW(A$1:A$1000),ROW()))&""}
で答えが出るからさ!!!

657 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 14:38:33
>>655
A1:A1000が空白だったら1000以上を足す計算入れるだけだよ。
どこか難しいとこあるか?
きちんと動いてるぞ?

658 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 14:49:28
>>657
はい、視点がちがーう!次!

659 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 14:54:18
>>611の式が間違ってると思うやつ、まさかズリズリしてるんじゃねーの?
途中の空白の不備を除けば>>611は間違ってねーよ。
>>656も変に改変いてるしw


660 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 14:56:19
>>659
馬鹿はほっとけよ。
教える必要ない。

661 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 14:58:36
>>656もMVPレベルのアフォかもw

662 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 15:00:05
まさか分かってるやつ>>616だけじゃねーよな?

663 :656:2009/01/28(水) 15:03:52
なんだってーーー!!!

とりあえず空白対応
{=INDEX(A:A,SMALL((MATCH(A$1:A$1000&"",A$1:A$1000&"",0)<>ROW(A$1:A$1000))*1000+ROW(A$1:A$1000)+(A$1:A$1000="")*10000,ROW()))&""}

そして>611のとおりやってみた人間がどれだけいるか疑問。

664 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 15:04:14
でも>>611のやりかた、5000行くらいだと2000とか2003じゃ不安定じゃなかった?
今会社の2007でやってるけど大丈夫みたいではあるが。

665 :656:2009/01/28(水) 15:07:44
あ、意味わかった。
フィルコピー前提じゃなくて配列入力前提なのね。
くだらねー、言い争いだったんだな。

666 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 15:09:44
>>663=656
君、たとえばB1の式消してみな?
消せるようだと君は分かってない。
ROW(A$1:A$1000)ってなんだよ。
間違いじゃないけどROW()で十分なんだよ。
$もイラン。


667 :666:2009/01/28(水) 15:11:02
>>665
分かってくれたのね。
見るの遅れた。

668 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 15:13:35
>>658は気づいたんだろうか?w

669 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 15:23:38
>>664
そうだったかも知らん。

670 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 15:24:26
>>668
まだ分かってなかったりして。

671 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 20:39:02
VBAでSheet内の置換をしたいんだけど
検索対象が「ブック」になってる時の設定の消し方を知りたいです。
自動記録で対象が「シート」の時と「ブック」の時を比べても
コードに違いが見つからず
対象オブジェクトにSheetから指定してやっても駄目でした。

672 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 20:45:57
>>564
つんでれ解答せんきゅう
はあはあ

673 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 21:43:05
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel 2003
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード     】 列タイトル 縮小される 次のページ数に合わせて印刷

列タイトルが設定済みで、
ページ設定の拡大縮小印刷の拡大/縮小が50%ぐらいで設定されているのを
次のページ数に合わせて印刷で横 1 縦 空白 で設定し直したら、
印刷プレビューで見たとき、横幅が縮小されてしうまうんだけど
なんでなんですか?

もともと横が1ページに収まる表なんですけどね


674 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 22:07:12
>>671
調べてみたけど俺の知識ではどうにもならんかった。
Selectする範囲を変えてSelectionに対してReplaceしても無視されるように見えるね。
確かに不思議というか不可解な挙動だ。
VBAスレで聞けば誰か知ってるかも。

675 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 22:40:46
結局>>595の質問に配列数式厨は>>656くらいしか出てこなかったってことか。
配列数式厨って平気でズリズリするやつな。
彼らは百倍以上遅くしててもへっちゃらなやつらだから困ったもんだぜ。
INDEX使って配列数式じゃなくしてても同じな。
同じというより余計に性質が悪いか。
しかし>>595は多分劇重の>>656の式しか使えなかったんだろうな。

676 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 22:45:51
もう配列数式は秋田杉
別の話題行こうぜ
次!

677 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 22:46:00
【1 OSの種類         .】 WindowsXP Home
【2 Excelのバージョン   】 Excel 2007
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 可

エクセルで非表示列があって可視セルでコピーすると可視セルのみが貼り付けできますが、
貼り付け先のセルにも非表示列があって、可視セルのみに貼り付けをすることってできないんでしょうか。



678 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 22:56:42
>>675
 >>611

多少速かろうと、不完全なまま放置じゃ厨式と一緒

679 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 22:59:16
>>677
Hiddenプロパティでセルが非表示かどうか調べながら値をセット

680 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 23:02:09
>>678
多少って100倍だぞ?
それと不完全って途中の空白に対応してないってことか?
そんなの自分でやれよ。
俺は配列数式は嫌いなんだよ。
長々とした数式もきらいだがね。

681 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 23:04:52
>>678はまだ>>611が間違ってると思ってるやつだったりしてw
ズリズリは気持ちいいかい?

682 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 23:06:55
>>679
VBA使わないでやるのは無理ですかね?

683 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 23:09:49
>>682
うん

684 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 23:19:24
>>683
そうなんですか、どうもです。

685 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 23:39:07
>>675
なんか嫌な事でもあったのか?

686 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 23:46:57
いつもアフォな配列数式垂れ流してるやつ見るとうんざりするさ。

687 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 23:49:27
>>686
MVP氏のこと?

688 :名無しさん@そうだ選挙にいこう:2009/01/28(水) 23:55:46
>>687
君も知ってるのかい?
彼ばかりじゃねーけど確かに彼が一番ひどいな

689 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 00:10:49
そろそろ雑談スレいかないか?

690 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 00:11:48
>>681
一応>>595の条件での正しい動作はさせられてるけど?

691 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 00:16:35
もう配列数式はいいって。
あんなの厨しか使わないよ。
簡単な方法は他にいくらでもあるんだからよ。

692 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 00:21:13
長野の人には責任はないよなぁ。
悪用したやつが悪いんだな。

693 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 00:21:55
>>674
そうなんですよ不思議に検索範囲だけは指定できる項目が見つからなくてですね
ヘルプには前の設定引きずらないためには全部指定するように書いてるのに・・・
Excelの限界のひとつなんでしょうかねぇ

694 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 00:25:19
For Each s In Sheets
s.Cells.…
Next
とするしかないな

695 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 00:27:20
確実性 >>>>> 超えられない壁 >>>>> 速度

昨今のPCじゃ100倍遅くなってもさほど問題ないが
ズリズリは別としてきちんと使っても不都合有るのは問題だ

696 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 00:34:59
>>694
それがダメなのよ。
Sheetsオブジェクトを指定しても、なぜか別シートまで置換しに行っちゃう。

ところで611の配列数式の使い方を誰か教えてくれ。
俺にもよくわからん。

697 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 01:11:51
そんなに必死になって使うほどのものでもない

698 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 02:12:10
でも脱初心者の一歩としてあの式は理解しておいたほうがいいぞ。

699 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 02:32:17
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel 2007
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 可
エクセルでのローソクチャートの複合グラフに困っています。
始値、高値、安値、終値で並べるとローソクチャートが作成出来るのですが
比較する為にそのグラフにもう一つ違う株価チャートを作りたいのですが作成出来るでしょうか??


700 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 03:59:55
699です。
解決しましたw
ありがとうございます。

701 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 09:16:15
>>671
http://support.microsoft.com/kb/284881/JA/

明確に「検索場所」をブックからシートに変更する方法はないようですが
置換の前に検索(例えば「Cells.Find ""」)を実行すればなぜかシート指定にできるようです


検索場所なんてシートしか使ってなかったからこんな不具合初めて知ったw

702 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 09:20:57
>>695はおおかた数値のとき左詰めになるとか、A1000より後ろの入力で再計算するとかいう粘着君かも知らん。
そういう粘着は垂れ流してるあっちで言ってくれ。
速度の100倍が大したことないってアフォでつか?
1秒と0.01秒ならまだしも、60秒と0.6秒の差だぞ?
ズリズリはそのくらいかかるんだよ。

>>697
おれもそう思う。
配列数式覚えるとヴァカになるやつ多いから、教えてもしょうがねーよな。
>>611>>610の要請で書いたまで。


703 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 09:38:39
よく確実性と速度云々をいうやつがいるが、たいてい遅いやつほど確実性が低い。
負け惜しみなんだな。

704 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 09:41:10
雑談は雑談スレへ


705 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 10:08:09
>>703
「大抵の場合」であって今回は当てはまらないけどね

706 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 10:13:30
>>705
不具合があれば指摘してくれよ。
そもそも俺はあんな式使わないし、これからも書くつもりはないから。
よくいる指摘されて逆上するやつとか、黙りこむとかのプライドばかり高いやつじゃないつもりだ。
ちゃんとした指摘なら受け入れる常識はあるよ。


707 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 10:29:55
>>706
ただ煽りでいちゃもんつけてるだけじゃないの?
俺は>>611はすぐ使えたけど、すでに出ている途中の空白以外の問題は見当たらん。
昨日からおかしな煽りやってるやつがいるが、何一つ具体的な突っ込みはないよな。
多分煽りだよ。

708 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 10:34:54
それから>>611の式が使えない人にフラストレーションたまりまくりだよきっと。
もう教えてあげてもいいんじゃね?

709 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 10:54:33
>>707
そんなやついるかねぇ。
俺をあおってもあまり意味ないんだけどね。
使い方については配列数式が嫌いな俺が教えるのはしゃくだからやめとく。
書きたい人はどうぞ。

710 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 11:19:48
>>708
そういう人でも>>663が使えるから大丈夫。

711 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 11:23:40
>>663はいくらなんでも遅すぎだからまずいだろうよ。
少なくともMATCH部分の計算量は>>611の1000倍だ。

712 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 11:29:35
色々やってはみたのですが・・・。先輩方ご教授お願い致します。
特定のセルをクリックすると、指定したほかのセルもアクティブ化
したいのです。例えば、

A1 A2 A3

の3セルを全てアクティブにしたい場合、A1をクリックしてドラッグ、ではなく。
A1をクリックしたらA2とA3もアクティブになっている状態にしたいのです。

宜しくお願い致します。

713 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 11:32:15
>>663>>665で分かったから自分の式は使わないよ多分。
そもそも>>611の式も含めて使うやつはヴァカだ。

714 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 11:34:12
>>712
まず、規則を述べよ。

715 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 11:38:50
SelectionChangeでA1が選択されたらA1:A3を選択するようにする

716 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 11:45:16
>>712
複数のセルをアクティブにするのは無理だから、選択状態にしたいってこと?
SelectionChangeイベントだなぁ。
シート見出しでコードの表示をクリック、コードウィンドウに下を書いてみろ。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   With Application
     Set Target = .Intersect(Target, Columns(1))
     If Not Target Is Nothing Then
        .EnableEvents = False
        Target.Resize(, 3).Select
        .EnableEvents = True
     End If
   End With
End Sub

A列が対象じゃなくA1だけが対象なら
Set Target = .Intersect(Target, Cells(1,1))と汁

717 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 12:12:12
>>711
>>663の式も入力方法を変えれば>>611並みに速くはなるね。
本人はその時点では気がついてなかったが>>665で気づいてるわけだし。
単純にROW()としてないとか$とかを使ってるから、そういう入力方法を念頭にした式じゃないのは確かだが。

718 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 12:30:31
× 念頭にした
○ 念頭に置いた

719 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 12:32:40
【1 OSの種類 .】 WindowsXP
【2 Excelのバージョン 】 Excel2003
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 可


B50:B300に名前が入っていて、その一つ一つに対応した
固有の数字がC50:C300に入っています。
B5に、B列の一覧のリストを作ったのですが、それの一つを選択した時に、
C5にその数字を出すにはどうすればいいのですか?

720 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 12:33:26
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2003

質問事項 うpする際について

うpしたいのだけれど、身元分からないようにしたいのです
初歩的で申し訳ないですが、お願いします

ツール>オプション>全般にて
カレントフォルダ名
ユーザー名
を表示したくないのですがどうしたらよいですか?

ツール>オプション>セキュリティにて
□保存時にファイルの〜〜
これにチェック入れれば他は何もしないでいいのですか?

721 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 12:44:50
>>719
c5=vlookup(b5,b50:c300,2,0)
>>720
ファイルを保存したあとプロパティで概要→中身を消す
カレントフォルダは別のフォルダ、c:\などを指定すればいいんじゃないかなぁ

722 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 12:47:10
>>711
一部分の計算ではなく、全体の計算と再描写まで含めた実際の速度は1:6くらい
それが_秒単位なわけだからどうでもいい話ってレベルだ
0.005秒が0.03秒になったところで「それがどうした?」って感じだろw

723 :719:2009/01/29(木) 13:04:02
>>721
早速の回答ありがとうございます!

724 :720:2009/01/29(木) 13:04:52
>>721
ありがとうございます

カレントフォルダは仰る通りにしました
プロパティの概要部分全部空欄にしました

これでやってみます

725 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 13:07:28
【1 OSの種類 .】 WindowsXP
【2 Excelのバージョン 】 Excel2000
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否


同じブックの他のシートのデータでプルダウンのボックスを作るには、どうすればいいのですか?

726 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 13:27:08
>>722
おめーヴァカか?
全部違うデータを想定すると最大1000行式を入れなきゃいけないんだよ。
それで配列数式ズリズリでミリ秒で計算できるわけないだろ?
500種類以下しかデータがないって分かってれば、500行の式だから
>>611のROW()の部分がROW(A$1:$A1000)ってしなきゃいけないのは分かってるんだよ。
そんなのは猿でも分かるよ。

おめーは想定される最大1000行の式で実際にやってみてから発言しろ。
100倍って言っても50秒と0.5秒の差なんだよ。
実際は100倍以上だがね。

もうおめーは黙って死ね。

727 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 13:29:00
>>725
>プルダウンのボックス
入力規則ならリストにしたい範囲に名前をつける

728 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 13:31:03
ROW()の部分がROW(A$1:$A1000)じゃなくてROW(A1:A1000)な


729 :712:2009/01/29(木) 13:31:30
712です。
有難うございます。
>>715
VBA知らないのです。
まずはそのSelectionChangeというのを勉強します。
>>716
わざわざコードまで書いて頂き大感謝です。
ですがあまりにもご回答の内容が高度すぎる為、
今は理解できませんが、まずはVBAを勉強しなければならない
ことは分かりました。
VBAを勉強後、再度いわれたとおりに実行させて頂きます。
感謝!

730 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 13:35:59
XP、2007です。
A列日付、B列曜日、C列データ、と並んでいて、B列の曜日が土日のときだけAからC列のセルも同時に
文字の色を変えたいです。条件付書式でできそうなんですがイマイチわかりません、お願いします。

731 :725:2009/01/29(木) 13:36:30
>>727
他のシートは指定できないみたいなエラーが出てしまうんですが………
どうすればできるんでしょう?

732 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 13:41:13
>>729
一応、shift押しながら右キー右キーでもできるよ
>>731
http://www11.plala.or.jp/koma_Excel/contents2/mame2012/mame201202.html
名前をつけないとダメ


733 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 13:41:54
>>731
ttp://www.relief.jp/itnote/archives/000210.php

少しはググレよ

734 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 13:54:59
>>730
数式が =OR($B1="土",$B1="日")
コピーするときは司式のみ、にすると良い

735 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 13:59:18
>>730
B列の曜日って=A2とかして、表示形式がaaaとかなってるの?
それとも=TEXT(A2,"aaa")とかで文字列なのか?

736 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 14:02:34
>730です。表示形式aaaなだけで=A2のようにA列の日付を参照しています。情報後出しになってしまいました、すみません。

737 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 14:03:09
結局611も厨だったのね

738 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 14:10:08
なんで配列数式が嫌いな俺が厨なんだよ。
あんなラベルの低い方法俺はやらんよ。
もっとラベルの低い方法がそこらへんに蔓延してるからあくまでも参考に書いたまでだ。
嫌いな配列数式を教えるつもりもさらさらないからね。ヴァカが増えるだけだし。

739 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 14:10:10
>>737
その話題終わってるぞ
>>736
なかなか綺麗な式が出来た
条件付書式に
=MOD($B1,7)<=1

740 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 14:12:34
>>738
×配列数式厨
○厨


741 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 14:14:37
A1が1の時は、B6はC1
A1が2の時は、B6はC2
A1が3の時は、B6はC2

B6とC1〜C3をリンクしたい場合、B6の関数はどうすればいいか教えてください。

742 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 14:16:25
>>741
間違えました。お願いします。

A1が1の時は、B6はC1
A1が2の時は、B6はC2
A1が3の時は、B6はC3

B6とC1〜C3をリンクしたい場合、B6の関数はどうすればいいか教えてください。

743 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 14:17:07
>730です。>>739さん、できました!うわあ、感動です。他にも回答くださった方、ありがとうございました。

744 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 14:22:49
>>741
B6=indirect("C"&a1)

745 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 14:25:06
なんだかんだあおるだけで、何一つ根拠のある指摘できないやつ大杉
それともヴァカ一人の書き込みか?

>>738
2004年から計算でもだいじょうぶかい?

746 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 14:25:34
ほにゃらら・・*データ内容
というデータがたくさんあるので、* より前の文字を消そうと思います。
ほにゃらら部分の桁数はばらばらです。
そこで試しに
AとBをStringsに、nをlongに定義して、
 A = Cells(1, 1).Value
n = InStr(A, "*")
B = Left(A, n)
Cells(1, 1).Value = Replace(A, B, "")
としてみましたが、「ほにゃらら・・*」が消去されません。
どうしたらよいでしょうか。

747 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 14:25:54
アンカーミス
上は>>739

748 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 14:26:42
>>744

できた!!ありがとうございます。

749 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 14:27:01
まちがった>>739でも感謝されるんだなw

750 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 14:29:15
2004年じゃなく1904年な。

751 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 14:48:44
744の応用もお願いします。

D1に1から100の数字が入る時、
D1が1で、A1が1の時は、B6はC1
D1が2〜99で、A1が1の時は、B6はC2
D1が100で、A1が1の時は、B6はC3

D1が1で、A1が2の時は、B6はC4
D1が2〜99で、A1が2の時は、B6はC5
D1が100で、A1が2の時は、B6はC6

としたい場合、B6の関数はどうすればいいか教えてください。お願いします。

752 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 14:49:06
>>746
普通に消えるぞ?

753 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 14:50:58
>739
1904年から計算だと曜日がずれるから
シリアル値をそのまま使わない方がいい。
=WEEKDAY($B2-1)>5

754 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 14:53:16
>>751
if関数

755 :746:2009/01/29(木) 14:58:30
>>752
あっ、普通に消えた。
じゃう、なにがいけないんだろう。
For next でるーぷさせてるからかな。途中に空白行があるからかな。
あー、もう嫌になっちゃう。
もう少し悩むか。サンクス。

756 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 15:01:17
なんかわからんが表の作り方変えたほうがよさそうな話だな

757 :1/2:2009/01/29(木) 15:07:00
改行多いと言われたので分割します
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2002
【3 VBAが使えるか    .】 No
【4 VBAでの回答の可否】 ダメ、ゼッタイ
【5 検索キーワード     】 オートフィルタ 入力規則

詳しく書くと大変なのである程度簡潔にそれでいて理解できるように噛み砕きます
まずSheet1に取引企業用の表を作りたい
そこでまずSheet2にデータベースを完成しようと考えまっした
 | A | B | C | ・・・
1|企業名|訪問日|所在地| ・・・
2|香具師|1/7|ドイツ| ・・・
3|木乃伊|   |エジプト| ・・・
4|秋刀魚|   |日本| ・・・
・| ・ | ・ | ・ | ・・・
・| ・ | ・ | ・ | ・・・
なお上記は今思いつきで作ったデタラメです

758 :2/2:2009/01/29(木) 15:07:56
で、Sheet1のほうに戻るのですが
まずSheet1のA1で企業名を選べるようにしています
(Sheet2のA列全体を「企業名」とう名前定義して、それを入力規則のリスト選択)
そしてSheet1のB3に=VLOOKUP($A$1,Sheet2!$A:$B,2,false)として訪問日が
Sheet1のB4には=VLOOKUP($A$1,Sheet2!$A:$C,3,false)として所在地が・・・etc.
としてあって、A1で企業名を選ぶだけでその企業の情報表ができあがるようになっています

さて、ここからなのですが
たとえばまだ訪問していない(Sheet2のB列が空欄である)企業だけを
Sheet1のA1で選べるようにする方法が知りたいのです
単純にSheet2でオートフィルタを使ってB列を空白だけ表示にしてみたりしましたが
Sheet1のA1で選ぶ企業名にはなんら影響ありませんでした
できれば、未訪問でさらに所在地が日本でない等、複数の条件にも対応したいのですが
何か方法はないでしょうか

759 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 15:11:31
>>754
すみません。ど素人なので、=で教えていただけませんか

760 :746:2009/01/29(木) 15:12:29
>>752
理由はわからないけど今度はうまくいきますた。
>>756
これから使いやすいのに加工します。

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

761 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 15:14:58
>>758
オートフィルタしてコピー、貼り付けで不可視の部分を消すか
ピボットテーブルかなぁ
VBA不可ならコピーで新しい表を作るしかない


762 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 15:19:29
sheet2を並べ替えればsheet1作らなくていいような気がするな

763 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 15:26:44
>751
=INDIRECT("C" & ((D1=1)+(D1>1)*(D1<100)*2+(D1=100)*3)*((A1=1)+(A1=2))+(A1=2)*3)

764 :751:2009/01/29(木) 15:31:20
>>763

すみません。FALSEになってしまうのですが。。。

765 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 15:46:39
◎チェックボックスを5個作って、
上3個の中からひとつ、下2個の中からひとつ
選択させる方法教えてください。

766 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 16:18:50
【1 OSの種類 .】 WindowsXP
【2 Excelのバージョン 】 Excel2003 又は2007
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否

A4サイズの地図などをスキャナで取り込んで
図の挿入でエクセルに読み込んで判子を押してから印刷すると元のサイズより一回り小さくなって
周りに白い枠が出来てしまうのですが、どうすれば良いのでしょう?
A4サイズギリギリまで合わせてもダメみたいです。余白もぜんぶ0に設定してみたのですが。。
フチ無し印刷とかいうのにしても今ひとつ・・・。

どうやらスキャナで取り込む際にサイズがおかしくなっているようなのですが。。
こういう用途にエクセルを使うのがそもそも間違いなのでしょうか?

767 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 16:31:56
>>765
3個と2個でグループにすればいいんだよ

>>766
はい、間違いです
お引き取りを

768 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 16:33:33
図形に網掛けできないのはどうしようもないんでしょうか・・・

769 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 16:35:37
>>766
スキャナは悪くない。
悪いのは寸法を無視して印刷するExcelの方。

770 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 16:37:34
図形に網掛けできるのはどうしようもない

771 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 16:51:49
>>764
=IF(AND(1<=D1,D1<=100,OR(A1=1,A1=2)),INDIRECT("C"&(D1=1)*1+AND(1<D1,D1<100)*2+(D1=100)*3+(A1-1)*3),"")

772 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 17:03:15
>>764
=INDIRECT("C"&MATCH(D1,{1,2,100})+(A1=2)*3)

773 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 17:19:27
>>772
条件から外れたケースは考えなくていいの?

774 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 17:24:31
>>773
その時の対処法が書いてないから無視した。
ダメだったら質問者の責任だ。

775 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 17:27:26
>771
エラー処理を入れるなら、後半はこれで(ついでに前半も変えてみた)
=IF((1<=D1)*(D1<=100)*((A1=1)+(A1=2)),INDIRECT("C"&(0<D1)+(1<D1)+(D1=100)+(A1-1)*3),"")
>772
A1が1以外でも1の時と同じになるな。

776 :772:2009/01/29(木) 18:12:09
>>775
もうわかったよ。その程度の事で…
=IF(OR(A1={1,2}),""INDIRECT("C"&MATCH(D1,{1,2,100})+(A1=2)*3))
これでいいか?

777 :772:2009/01/29(木) 18:14:18
間違ったw
=IF(OR(A1<>{1,2}),""INDIRECT("C"&MATCH(D1,{1,2,100})+(A1=2)*3))

778 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 18:14:46
B1〜B7が、TRUEかFALSEで
B5以外のTRUEの数を合計を出したいとき
B8の関数をお願いします。

779 :772:2009/01/29(木) 18:15:28
やべ、一度いってくるw
=IF(OR(A1={1,2}),INDIRECT("C"&MATCH(D1,{1,2,100})+(A1=2)*3),"")

780 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 18:18:42
>>778
=COUNTIF(B1:B6,TRUE)-(B5=TRUE)

781 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 18:19:35
=COUNTIF(B1:B7,TRUE)-(B5=TRUE)
orz

782 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 18:21:52
別にけなしてないよ。スマートだと思う。
だけどA1が1の時の評価を飛ばすのはね。

783 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 18:34:33
>>781

ありがとうございました

784 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 18:34:52
Excelの手操作で後ろから検索するにはどうしたらいい?
2007にそれらしき項目が見当たらない。
「次を検索」じゃなくて「前を検索」とかないよなあ。
FindメソッドのSearchDirectionのことだけど。

785 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 18:38:20
>778
=B1+B2+B3+B4+B6+B7

786 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 18:41:22
>>784
手操作って何だ?
そのまま自分の目で「前を検索」すればいいじゃん。

787 :751です:2009/01/29(木) 18:46:23
>>779
=IF(OR(A1={1,2}),INDIRECT("C"&MATCH(D1,{1,2,100})+(A1=2)*3),"")

で出来ました。お答えくださった皆様、有難う御座いました。
D1が1,2から99,100ではなくて
0,1〜20,21〜40,40〜60,61〜80,81〜99,100
の場合いはどうすればいいのかも、できれば宜しくお願いします。

何度もすみません。


788 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 18:49:07
>>787
追加質問は嫌いです。
MATCHの中身と*3の部分の数字を変えてください。

789 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 18:49:09
この人は一体何をしてるんだろ

790 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 18:52:50
センセじゃね。点数っぽいし

791 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 18:53:55
>>767
ありがとうございました。
グループ化はできたんですけど、枠の線だけ見えなくするのは
どうするんでしょうか。

792 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 18:55:07
>>757-758
ピボッド向きだとは思うけれど
更新忘れによるミス防止の為に更新だけでもVBA使いたい(たった1行)
でも絶対不可だしなあ

となれば条件を絞って表示するリスト範囲を作業列で作るのが
現実的かと思うがどうか

793 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 18:55:24
次から次へと聞かないで、少しは自分で調べたり考えたりしようぜ

794 :787:2009/01/29(木) 18:57:14
課題なんですけど、明日までなので困ってます。
どなたか。。。お願いします。

795 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 18:58:48
あ、それと>>701ありがとうございます
今移動中の携帯からなので帰ってからでも試してみます

796 :787:2009/01/29(木) 19:01:19
何度もほんとにすみません。

出来ました。ヒント下さって有難うございました。

797 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 19:04:48
>>794
>>3・3を読め。

798 :784:2009/01/29(木) 19:12:17
>>786
「次を検索」がSearchDirection:=xlNextだかなんか知らないけど、とにかく後ろから検索したいんですよ。
A1:A5000を検索するなら普通は上から下に検索するが、それを下から上に検索したいときそれらしき項目が見当たらないんですよ。
SearchDirection:=xlPreviousのことなんだけど。


799 :784:2009/01/29(木) 19:18:38
もしかして「すべて検索」してから、後ろのやつを選択するのかしら?
俺が前もってたExcelに「すべて検索」ってあったっけ?

800 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 19:49:54
>>798
「手操作で検索」って[ホーム]-[編集]-[検索と選択]の事か?
それなら無理だ。仕様だからね。

801 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 20:03:38
ちゃんと調べるんならD1が0以下の時と101以上の時も除外しないと

802 :784:2009/01/29(木) 20:22:06
>>800
そうです。
VBAなら後ろから検索は出来るのに、手操作じゃできないのですか。
2000でもそうだったっけなぁ。

803 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 20:26:29
>>802
そうだよ。

804 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 20:33:21
>>803
そうでしたか。
よく見たらAfterの項目もないね。
なんか変な書式検索とかあるみたいだが。

805 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 20:33:47
>>792
> 条件を絞って表示するリスト範囲を作業列で作る
作業列は増えても構いませんしSheet3を追加しても構いませんが
どうやって作るのでしょう・・・?
やっぱりその作業列を名前定義するんでしょうか

806 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 20:46:18
なんや昼まで盛り上がってたんだなw
それ以降もひどい回答多いなw

807 :787:2009/01/29(木) 21:02:35
A1からA3を2倍した数と、A4からA7の数を足す関数おねがいします

808 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 21:05:15
>>807
もうどうせ全部わかんねーんだろ?その宿題全部どこかにアップロードしてくれよ
全部解いてやるからよぉ


809 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 22:07:19
【1 OSの種類         .】 Windowsびすた
【2 Excelのバージョン   】 Excel2003
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード     】 エクセル、Excel

1から6の間で数をランダムで決めて、
1が出た場合は1を除いた5個の数の中から、
2が出た場合は2を除いた5個の数の中から、
3が出た場合は…という感じで再びランダムで数を選びたいのですが、
どうしたらいいですか?

810 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 22:17:58
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel 2003
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード     】 EXCEL VBA データラベル 一括変更

シートが22枚あります。
ひとつのシートには10個の棒グラフが貼り付けてあります。
ひとつのグラフには4つの系列があります。
このとき、すべてのデータラベルのフォント名、サイズなどを一括で
変更したいのですが、以下のマクロではエラーが出ました。
iのfor〜nextを無くし、アクティブシートだけにすると動きました。
今後シート数が増えていくので、できれば全シートを一括で変更したいです。
よろしくお願いいたします。

Sub データラベル一括変換1シート()
For i = 1 To 22
Sheets(i).Select
For m = 1 To 10
ActiveSheet.ChartObjects(m).Activate
For n = 1 To 4
ActiveChart.SeriesCollection(n).DataLabels.Select
Selection.AutoScaleFont = False
With Selection.Font
.Name = "MS ゴシック"
.FontStyle = "太字"
.Size = 9
End With
Next
Next
Next
End Sub

811 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 22:20:38
>>809
2回目以降は5,4‥ と最大値を減らしていって値を読み替える
VLOOKUPなどで読み替えを表を引くようにするなどで自動化

812 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 22:23:28
>>809
1-6の乱数
A1=ROUND((RAND()*5+1),0)
うーん酔ってて思いつかない
この後は1-5まで数字を用意して、もう一回乱数を選ぶようにする
たとえばA1=3、次が1か2だとそのまま。3以降だと3以降には1を足す(4か5か6になる)、みたいな


813 :712:2009/01/29(木) 22:28:50
>>732
有難うございます。
でもそれとはちょと違うのです。
すんません^

814 :812:2009/01/29(木) 22:30:26
if使えばいいな。と思ったが作業列がいる気がする
B1=ROUND((RAND()*4+1),0)
C1=if(B1<A1,b1,A1+1)
でA1が一つ目、C1が2つ目の数字になると思う
エクセルないので試せないが多分大丈夫だろう
>>810
三行目
Sheets(i).cell(1,1).activate
みたいにしてみてはどうだろう
上手くいくかどうか知らないけど、アクティブにしてうまくいくならマクロでアクティブにしてみてはどうだろう

815 :809:2009/01/29(木) 22:53:15
ありがとうでした

816 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 23:00:07
>>809
それって1〜5からランダムに2個取り出すのと同じじゃん。
A1:A5に=RAND()
B1:B2に=RANK(A1,A$1:A$5)
とすりゃ2個取り出せるだろ?

B1が1個目の乱数で
B2が2個目の乱数だろ?


817 :816:2009/01/29(木) 23:03:02
1〜6から2個だったか
× A1:A5に=RAND()
〇 A1:A6に=RAND()

818 :816:2009/01/29(木) 23:04:25
途中で送信しちゃったよ。
もう一つ訂正
× B1:B2に=RANK(A1,A$1:A$5)
〇 B1:B2に=RANK(A1,A$1:A$6)

819 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 23:15:13
>>814
B1の式にROUND使っちゃいかんよ。
それじゃ1と5になる確率は2〜4の半分だぞ?
1.0以上1.5未満が1
1.5以上2.5未満が2
2.5以上3.5未満が3
3.5以上4.5未満が4
4.5以上5以下が5
だから幅が違うよ。

820 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 23:15:44
>>818
なるほど
トンクス

821 :812:2009/01/29(木) 23:18:06
>>819
そうかーそうだなぁだめだなぁ

822 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 23:56:59
>>816
それだと作業列が必要な上に、
低確率ではあるものの同じ乱数を振る可能性もあるよね

823 :名無しさん@そうだ選挙にいこう:2009/01/29(木) 23:57:33
A1=INT(RAND()*6+1) B1=A1      6つの中から選ぶ。乱数そのまま
A2=INT(RAND()*5+1) B2=A2+(A1<A2) 残りの5つの中から1つ選ぶ。
A3=INT(RAND()*4+1) B3=A3+(A1<A3)+(A2<A3) 残り4つの中から1つ選ぶ。
A4=INT(RAND()*3+1)                 以下略
A5=INT(RAND()*2+1)


824 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 00:00:20
ちょっと訂正
B2=A2+(A1<=A2) 残りの5つの中から1つ選ぶ。
だな。以下同じ。だんだん式が長くなるだけ。

825 :812:2009/01/30(金) 00:02:20
酔っ払いながら基本的な考えは>>816より上だったぜウヘヘ

826 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 00:03:45
>>816
なんでそんな嘘書くのかね。
Excelの乱数は絶対に重複しない一様乱数なんだよ。

827 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 00:04:03
さらに訂正。
重複チェックはB列に対してやらなきゃ意味ないんだな。

828 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 00:06:52
>>826
有限なリソースの下で絶対に重複しない乱数なんていつのまに発明されたんだ?

829 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 00:07:44
>>701
早速試してみました
2007しか確認してませんがそれで回避できそうですね
私もブック内置換はたまにしか使わないのでたまたま気づいた不具合です。
こんな所でエラー回避がんばってもそれが活きるケースは少ないかもw
ありがとうございました

>>805
>やっぱりその作業列を名前定義するんでしょうか
→そうですよ
>どうやって作るのでしょう・・・?
→作業列の作り方の何がわからないか私ではエスパー能力不足で・・・

830 :826:2009/01/30(金) 00:11:40
二つ上の俺の書き込みは>>822向け。
再度書くが、Excelの乱数は絶対重複しないから、RANKが同じになることはありえない。
>>828
お前馬鹿かよ。
乱数の周期内では絶対に重複しないんだよ。
6個なんて完璧に周期内だろ?

831 :828:2009/01/30(金) 00:14:17
すまん、俺が馬鹿だった。
もう発言はしないよ。

832 :812:2009/01/30(金) 00:19:53
RAND関数は65536だっけ?16777216個だっけ?
まぁとにかく有限なんだぜ。しかもそんなに多くない

833 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 00:22:33
>>832
知ったかぶった嘘書くなよ。
周期が16777216はVBAのRnd関数。
ExcelのRAND関数は周期ははるかに長い。

834 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 00:29:02
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel 2003
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード     】 配列関数 条件 カウント など

仕事で販売数をカウントするワークシートが必要になったのですが、うまく行かずに困っています。
やりたいことを具体的にご説明致しますと、

001 甲 3
002 甲 1
003 乙 4
002 甲 2

上記の様に販売員ID(001〜003)、商品ID、販売数を記録した販売記録から、
下の様な販売員ごとの各商品の販売数をカウントさせる為にはどうすれば良いかご教授下さい。

  甲 乙
001 3 0
002 3 0
003 0 4

ヘルプを読みかじって配列関数やデータベース関数の使用を試みたのですが、
付け焼刃では太刀打ち出来ませんでした。
また、会社の方針でOpenOffice.orgへの移行が進められていることもあり、
OOoで使用出来る機能で出来ると尚可です。

以上よろしくお願い致します。

835 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 00:30:21
>>834
ピボットテーブル

836 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 00:35:02
OOoではデータパイロットな

837 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 00:44:03
>>834
配列関数なんて恥ずかしくて誰も答えんよ。

838 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 00:44:09
>>834
ピボットが最適だがあえて別解をするなら並び替え→データ-集計

839 :834:2009/01/30(金) 00:59:13
ありがとうございました。
調べてみます。

840 :ぴころ ◆lHG3Yzo0a6 :2009/01/30(金) 02:07:42
どういたしました(^▽^)

841 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 04:23:31
【1 OSの種類         .】
【2 Excelのバージョン   】 VBA が使える全バージョン
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード     】 ワークシート関数 配列 ループ

下記を見てください。
ttp://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1222501332

この my_offiseというヒト
「普通の関数に "負ける場合" もありますが」
と言ってますけど、どんな場合ならデータベース関数に勝てますか?


842 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 06:23:35
【1 OSの種類         .】 XP
【2 Excelのバージョン   】 2003
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード     】

EXCELで、マクロを実行すると、ユーザが入力した値を
反映させるようにしたいです。


マクロを実行

”ユーザIDを入力してください”とポップアップが出てくる

操作者がポップアップでIDを入力する

シートのA1に入力した値が反映される。

ファイルを上書き保存する。

843 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 07:41:26
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2003
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード     】 Excel 画像


Excelで画像を切り取り貼り付けする時、画像を選択する場所によって貼り付けばしょが変わってしまいます。
画像を常に同じ場所で選択する方法を教えてください。



844 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 07:48:57
>>842
inputbox
他にはユーザーフォーム


845 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 09:53:19
>>792の作業列の作り方について教えていただけないでしょうか

846 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 10:21:13
>>845
d2=IF(B2="",A2,"")
で下にオートフィル、後はD:Dに名前を付けてそこをリストの範囲にする
空白が多いと思うなら並べ替えでも
VBA無いとこういう場合はキツイな

847 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 11:35:19
>>846
つまりオートフィルタとの連動はできないということでしょうか?
任意の条件列を毎回手作業で作るのは利便性に欠けてしまうのが残念です・・・
オートフィルタで表示されなくなったセルは空白として扱うみたいなことが関数でできれば・・・

848 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 11:41:17
>>847
可視・不可視の判断はVBA以外じゃ無理なのよ


849 :847:2009/01/30(金) 12:14:18
あ、すみません自己解決しました

作業用にSheet3を作りA2に=SUBTOTAL(3,Sheet2!$A$2:Sheet2!A2)と入力して下にオートフィル
次にSheet2のA列を丸ごとSheet3のB列にコピー
Sheet3のC2から下方向に1,2,3,4...と順に入力
Sheet3のD2に==VLOOKUP(C2,A:B,2)と入力して下にオートフィル

こうするとSheet2でオートフィルタによって表示されなくなった列は
SUBTOTAL(3, の機能で除外されるっぽいです

850 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 12:30:11
あ、ひとつだけ言い忘れましたが
当然Sheet3のD列を名前定義して入力規則のリストにします

851 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 12:52:18
>>841
あまりいじめるなよ。
勝てることなんてねーよ。

852 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 13:05:57
そうでもないか

853 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 13:15:23
逆に、データが極端に少ないとオーバーヘッドが大きくなるから負ける、とか?

854 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 13:43:47
>>853
だね。
範囲4万行で約7倍DCOUNTが速かったが、範囲10行ならほんの少しループが速かった。
範囲10行はほとんど0秒なので100回回して計測してやっと差が分かったけど。


855 :854:2009/01/30(金) 13:45:08
DCOUNTじゃなくDCOUNTAか。

856 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 15:27:22
A1〜A4の数を4倍した数と、
A6〜A9の数を足したもの、割る2の式お願いします。

857 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 15:29:12
間違えました。

A1〜A4の数を4倍した数と、
A6〜A9、A11〜A14の数を足したもの、割る2の式お願いします。

858 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 15:32:23
【1 OSの種類         .】 Windowsxp
【2 Excelのバージョン   】 Excel2003
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード     】


Excelでグラフシートにつくったグラフをwordからpowerpoiontに貼り付けたいとき、
シフトキーを押しながら「編集」のところに図のコピーを選らんでいるのですが、
この状態で貼り付けた画像は、wordやpowerpoiontで縦横比を変えると、文字も一緒に
つぶれてしまいます。
これを何とかしたいのですが、 Excel上でグラフの縦横比を変えた後に
wordからpowerpoiontに貼り付けたとしても、張り付けられた画像はA4サイズになっていて
グラフのない部分も一緒に貼り付けることになってしまうのですが、
これってどうにかならないでしょうか?


859 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 15:32:52
>>857
しつこい
ちょっとは自分で考えろ
単純な足し算、掛け算もできないバカならマジで落第して学校やめた方がいい

860 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 15:36:56
>>857
本気の初心者か?上は
B1=(A1+A2+A3+A4)*4
下は応用すれ
>>858
普通に→クリックのコピー、貼り付けじゃだめなのか


861 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 15:38:55
>>858
貼り付ける時に「形式を選択して貼り付け」から「Microsoft Excel グラフ オブジェクト」を選択すると
文字サイズ固定でグラフのサイズが変更できるようになる。

862 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 15:46:43
>>860
超初心者なので、助かりました。
ありがとうございました。

863 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 16:28:00
A1:A4を4倍した数の合計はA1:A4の合計を4倍したものと等しい
=SUMPRODUCT(A1:A4*4)
=SUM(A1:A4)*4
これは答えは同じだ。
だから下の方が良い。

864 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 16:48:09
このスレの連中って>>849みたいなこともVBAなしだと途端にできなくなるのなw
どんだけVBAに頼ってるんだ

あとピボット厨はもっと前に出て来い

865 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 16:56:08
ピボットで解決できる時は「ピボット使え」の一行以上書くことないからなぁ
VBAはなんでもかんでもできてしまうのが逆にネックかもしれないね


866 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 16:57:42
ピボット便利だもんな

867 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 17:14:01
>>843

頼みます。

868 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 17:41:10
いや意味が分からない

869 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 17:45:35
ピボット厨はこのスレから出て行け!!!!!!!!!!!!!!!!!!!!!!!!11111111111111111


870 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 18:02:50
>>861
試してみたのですが、そういう項目が見あたらないのですが・・・・

Excel側では「用紙に合わせる」を選択してもよろしいのでしょうか?
Word側ではそういう項目が見あたりません。

これは2003なのですが、バージョン違いとかということではないでしょうか?


871 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 18:04:20
【1 OSの種類         .】 Windowsxp
【2 Excelのバージョン   】 Excel2003
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード     】

縦棒グラフに関する質問なのですが、下の項目は目盛りの間にくるように設定されていますが、
これを目盛りの真下にくるように設定することは出来ないのでしょうか?
よろしくお願い致します。

872 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 18:13:41
>>849
=VLOOKUP(C2,A:B,2)
これは
=LOOKUP(C2,A:B)
と同じ。
2003なら範囲をA:Bなどと横着しちゃいかんけどな。

873 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 18:20:16
>>868

@画像選択→セルに貼り付け→位置あわせ をやりたいわけです。

A画像選択→セルに合わせて縮小→貼り付け でもいいんですが

Aはむずかしそうなのと、@ならマクロの記録で作れそうなので、あとは位置あわせ前の貼り付け場所が毎回同じに
なればなあと思ったわけです。それ以外にも方法があるのかもしれませんが。

874 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 18:34:27
>>870
@大きさの変更という意味ではなくて、縦横の比率を変えたいの?
A貼り付けたあとに、データ変更したらグラフに反映しなくていい?


875 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 18:57:05
>>869
VBA厨こそ出て行け!!!!!!!!!!!!!!!!!!!!!!!!11111111111111111

876 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 19:01:36
>>875
/(^o^)\

877 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 19:44:15
折れ線グラフで、空白セルのプロットを補間してその部分の線を点線に変えるマクロを知っていたら教えてください

878 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 20:20:35
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2003
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード     】 excel VBA エラー 実行中 アクティブ

デスクトップPCでVBA実行中に他のソフトがアクティブになると
なぜかオーバーフロー(ゼロ除算)が発生したり、
バリアントの型が違うエラーがおきてしいます。
どのエラーが起きるかはまちまちです。

他のソフトがアクティブにならなければ完走しますし、
ノートPCでは、他のソフトがアクティブになってもエラーは起きないのですが・・・。

879 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 20:52:14
OSかハードのメモリ管理に問題が起きてるようだな
複数のデスクトップPCで同様の不都合が出るとかじゃなければ
OSのクリーンインストールやハード交換で直るかも

デスクトップPCを複数持ってないなら、問題のマクロを含むブックを、
VBAプロジェクトに保護掛けずにうp出来るならうちのデスクトップ機で
試行してやってもいいよ

他機で問題が出ない場合、他のソフトがアクティブになると、ってことはOS側の疑い濃厚だし
金も掛からないので、まずはOSのクリーンインストールを試すがよろし
先に言っておくが、OSクリーンインストールは面倒とかは無しな
こういうところで無償で人を頼るなら、自分で出来ることは自分ですること
もちろん、解決しなくて良いなら質問取り下げて従わずに消えるのは勝手だが

880 :878:2009/01/30(金) 21:15:58
しばらくは寝ている間に終わる程度にForループを分割して実行します。
ありがとうございました。

881 :810:2009/01/30(金) 21:26:12
>>814
残念ながら、うまくいきませんでした。
取り急ぎ、22枚のシートそれぞれでマクロを実行してしのぎました。

882 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 22:06:36
>>873

誰かわかる人いないですか?


883 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 22:13:02
>>882
いやだから質問の意味がわからないんだってば

884 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 22:32:34
>>883

エクセル上に置いてある画像を選択してどこかのセル指定して貼り付けてみてください
戻ってまた写真選択して同じセル選んで貼り付けてください
毎回ずれかたが違います。
これをいつも同じ場所に貼り付けたいということです。
画像を選択する時のポインタの位置によって変わるようです。
たとえば毎回画像の中心でポインタを合わせられれば同じ位置に貼り付けられます。
あとは位置あわせを毎回おなじようにやって、、というマクロを作りたいんです。

885 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 22:40:53
>>870
メニューバーの「編集」の「形式を選択して貼り付け」
バージョンによって「Microsoft Office Excel グラフ オブジェクト」になったり
「Microsoft Excel グラフ オブジェクト」になったり微妙に変わる

886 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 22:55:04
>>884
適当にマウスで画像のコピペを繰り返してみたけど、ちゃんとセルの境界線にまっすぐ並んだよ
ttp://windyakin.if.land.to/src/up38_0536.png

887 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 23:06:07
>>884
その手順だと、毎回同じ位置に貼り付けられますが
セルではなく画像を選択した状態でなら、自動的にズラしてくれるが
セルを選択していれば、毎回そのセルの左上と画像の左上が合わさる位置に貼られる
5回試して座標も見たがきちんと揃ってる

因みにマクロでやるなら、画像の座標を揃えてやるだけの話だろ
それの何処が解らないのか解らん

あと、名前欄に最初の質問のレス番入れろ

888 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 23:09:19
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2003
【3 VBAが使えるか    .】 ×
【4 VBAでの回答の可否】 否
【5 検索キーワード     】 図の圧縮

会社で、資料を作っていて困っています。
図面をスキャナで読み込んで、TIFFデータにし、それを
Excelに貼り付け、トリミングで必要な箇所以外削り、
図の圧縮をしても、1枚しか圧縮されません。

きちんと圧縮されていると、図、ツールバーの図のリセットを
押しても、元に戻らないのですが、2枚目の画像を貼って同じ作業を
すると、リセットボタンで戻ってしまいます。
複数の図を縮小、トリムしてから、最後に圧縮をかけてもダメでした。
1bookにつき、1枚しか出来ないようです。
しかし、家のPCに入ってるExcel2003では(試したのはjpeg)
複数の図もちゃんと圧縮できました。

889 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 23:14:58
>>887
その説明はちょっと違う。
セルの左上と画像の左上が必ず合うんじゃなくて、セルと画像の「位置関係」がそのままコピーされる。
コピー元画像の左上がセルの中央にあれば、コピーされた画像の左上もセルの中央になる。
ttp://windyakin.if.land.to/src/up38_0537.png

890 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 23:18:49
>>888
これかな?
ttp://q.hatena.ne.jp/1124177517
画像の貼り付け形式が「メタファイル」だと圧縮などの編集操作ができなくなる。

891 :843:2009/01/30(金) 23:19:37
>>886 >>887

失礼。ポインタは自分の勘違いでした。
図を挿入した直後はセルの角に合ってるので毎回うまくセルに合います。
図をドラッグしてずらした状態だとセルの角に収まりません。
ドラッグしてずらした状態からセルの軸にあわせるマクロってあるんですか?



892 :871:2009/01/30(金) 23:23:52
どなたかよろしくお願い致します。

893 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 23:24:04
>>891
Altキーを押しながら画像をドラッグすればオートフィット(画像の四隅が順番にセルの境界にくっつく)モードになる。

894 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 23:28:17
>>892
たぶん無理じゃないかなあ…

895 :843:2009/01/30(金) 23:28:31
>>893

おぉ。ありがとうございます!


896 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 23:37:39
マクロどころかセルグリッドに図形を合わせる(スナップさせる)機能が標準で付いてる

897 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 23:40:51
>>871
軸の書式設定→目盛→項目境界で交差するのチェックをはずす

898 :843:2009/01/30(金) 23:42:14
>>893

マクロの記録でやってみましたがやっぱりずれてしまいました。
Alt+ドラッグで毎回同じ距離移動するマクロになっているからだとおもいます。
距離の概念がなく指定のセルにあわせる方法はないでしょうか?

899 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 23:47:26
>>898
やってないが複数の列を非表示、若しくは幅ゼロにして
たとえばA-Zをその対象にしたとして
A1、B1、C1
と基準において貼り付けしてみてはどうだろうか
ただなんとなくだが重ねて貼り付け、というのがエクセルの仕様上無理な気はする

900 :名無しさん@そうだ選挙にいこう:2009/01/30(金) 23:48:43
>>898
画像をB2セルの左上に合わせるマクロ
Sub Test()
  ActiveSheet.Shapes("Picture 1").Top = Range("B2").Top
  ActiveSheet.Shapes("Picture 1").Left = Range("B2").Left
End Sub

901 :843:2009/01/31(土) 00:00:24
>>889 >>900

マジありがとうございます!これでかなり削減できそうです。

902 :888:2009/01/31(土) 00:11:16
>>890 ありがとうございます。
しかし、自分もぐぐって、そのページは目にしていました。

図は図の挿入(写真みたいなアイコン)から行っています。
それに、上司のExcelでは同じデータをちゃんと、圧縮
出来ました。

今は、会社では画像を入れる時は、新しいbookを開いて、
そこで編集→圧縮してからその図をコピーして、
作業bookに貼ってしのいでいます。




903 :843:2009/01/31(土) 00:17:09
>>900

すみません、画像を選んでいる状態からD4にあわせるマクロを教えてください。


904 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 00:46:34
>>903
色々な方法があるけど、見た目わかりやすいのはこうかな。
D4と書いてある部分を2ヶ所変えれば好きなセルに合わせられる。
Selection.ShapeRange.Left = Range("D4").Left
Selection.ShapeRange.Top = Range("D4").Top

905 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 00:47:54
>>902
会社のマシンでbmpとかjpgの画像を貼り付けた場合はどうなる?

906 :888:2009/01/31(土) 00:51:51
>>905 月曜日に、試して見ます。

907 :843:2009/01/31(土) 07:43:03
>>904

ありがとうございます。作りたかったものができました!

908 :843:2009/01/31(土) 08:12:49
>>904

別バージョンで検討中なのですが、
Excelに挿入された画像を1枚目、2枚目というふうに認識するには
どうしたらいいんでしょうか。マクロの記録でやると、"Picture 56"
のようになってしまいます。

909 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 08:54:52
1枚目はshapes(1)、2枚目はshapes(2)

910 :843:2009/01/31(土) 09:52:10
>>909
ありがとうございます。

1枚目はshapes(1)
 セルあわせ

2枚目はshapes(2)
 セルあわせ

で入力して枚数と合わなくても続行してくれるようなマクロってありますか?


ActiveSheet.Shapes.Range(Array(1, 2, 3, 4)).Select
のマクロで
3枚だとエラーが出てしまうので、オールセレクトのようなものにしたいのですができますか。

911 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 10:29:45
最初からしたいこと全部書けばいいのに・・・

912 :843:2009/01/31(土) 10:44:37
>>910よく言われます。>>910で完成するのでどうかお願いします。

913 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 10:45:01
最終的に何がしたいのか自分でもわかってないんでしょ
だから
これどうやればいいの?→こうしろよ→じゃあこれはどうするの?
ってなる

914 :843:2009/01/31(土) 11:24:05
>>913
やりたいことはわかっていても、マクロでどこまでできるのかが
わからないという感じです。

915 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 11:27:37
>>914
やりたいことを全部書いて
それをマクロでできるかどうかは回答者に判断してもらえ

916 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 11:30:01
>>914
マクロで全部やってやるからやりたいことを全部かいて

917 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 11:36:01
というか、やりたいことを筋道立てて論理的に纏められるなら
それをコード化するのは容易いことなんだけどね
プログラマの技量なんてほとんどがそれで決まる
プログラミングを始めたはいいがなかなか上手くコードが書けない人ってのは
知識とかよりそういう根本的な思考形態からして欠陥がある

918 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 11:38:00
いや843はプログラマじゃないだろ・・

919 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 11:38:53
>>914
マクロでできないことはない、って言うと言い過ぎになるけど、
普段Excelでやってるような作業ならほとんどマクロでもできる。

920 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 11:41:51
何をするためにどうしたいのか、そういうのが伝わってこないと回答しにくいよね
質問するほうは聞かれたことに簡潔に答えりゃいいんだよって思ってるんだろうけど

921 :843:2009/01/31(土) 11:59:21
>>915>>916

画像を複数枚とりこむ

マクロ1(画像選択、縮小、一括貼り付け)
・画像選択
・縮小
・所定のセルに貼り付ける(1枚目の画像はセル1A、2枚目はセル1B、・・・を枚数分)

マクロ2(貼り付けるセルを変更したい)
・画像1枚選択して貼り付けたいセルをえらんで貼り付け
(セルにマクロボタンをはりつけて、画像選択→希望のセル(ボタン)プッシュで貼り付け完了)

という感じです。であと>>910のやりかたがわかれば作れそうです。

全部作ってくれるのは凄くありがたいのですが、マクロのコピーが禁止
されていて、紙に書いといて手入力とマクロ記録しか使えないという感じです。
あと自分でもある程度いじって修正できるものにしたいんです。
どうか>>910を教えてください。



922 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 12:05:41
>>921
とりあえず>>910に回答しとく。全部の画像を選択する時はいちいち"Picture 1"とか名前を並べずに
ActiveSheet.Pictures.Select
って書くだけ。

923 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 12:10:47
だよね。コードを書くより構成を考える方が難しい

924 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 12:33:13
>>921
>全部作ってくれるのは凄くありがたいのですが
とりあえずこの部分だけに回答しとく。

追 加 質 問 と か 条 件 後 だ し と か す る な ボ ケ !

って事だと思う。

925 :843:2009/01/31(土) 12:51:53
たびたびすみません>>910の上に書いた質問の続きなんですが、
1枚目はshapes(1)
 セルあわせ

2枚目はshapes(2)
 セルあわせ
 ・
 ・
 ・

10枚まで動かすようにしといて、実際には画像が8枚しかないとエラー表示
が出てしまいますが8枚でもスムーズに続行できるようにはできますか?

926 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 12:52:51
>>925
>>924
カスw

927 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 13:08:13
たぶん、やりたいことを想像するにFor Eachで全画像を順番に処理、じゃないかなあ…
あと「紙に書いといて」ってのが気になった。完成したプログラムを印刷すればいいんでないの。

928 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 13:10:30
>>925
枚数不定の時はFor Each
だから質問を全部書けって言ってるのに
断片的な質問と全体を見てからでは回答(プログラム)が変わってくるんだから

929 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 13:12:04
もう追加の質問には答えない

930 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 13:12:37
>>926
同じ事思ったよ・・僕はもう疲れたよ・・


931 :843:2009/01/31(土) 13:22:42
みなさんありがとうございます。VBAの本1冊買って勉強してみます

932 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 13:30:44
本買ったって君の頭じゃ無理かもな
問題なのは知識の欠如ではなく頭の回転の悪さだし

933 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 13:31:03
>>925
On Error Goto 処理終わり
1枚目…
2枚目…
(r
10枚目
処理終わり:

でいいんじゃね?www

934 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 13:43:36
>>933
そして画像が12枚ある場合はどうしたらいいでしょうか?
と聞かれる。

935 :843:2009/01/31(土) 13:49:22
>>934

マクロの方を処理枚数多めにしといてOn Error Goto やればいいとおもいます

936 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 13:50:50
>>935
おい騙るなw

937 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 13:58:02
行数が多いデータでグラフ作ると
下の方がメモリがいっぱいできて
見にくいんですがまびくことはできますか?

938 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 13:59:22
できるんじゃない?
データを減らすとか

939 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 13:59:31
行数を少なくしたデータでつくればいいんじゃないかな!

940 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 14:26:20
>>937
「軸の書式設定」で目盛りの間隔調整できるよ

941 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 14:41:54
>>940
さんくす


942 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 14:54:22
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2003
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード     】

カレンダーを作っています。
「条件付き書式」で日曜日の行の色を変える方法はわかったんですが、更に「日曜で、予定が空欄だったら色を付ける」
とするにはどうしたらいいんでしょうか?
http://www2.uploda.org/uporg1978846.jpg.html
excelはこんな感じです。
予定に入る文字は決まっているわけじゃないので「空欄だったら色をつける」にしたいんです。


943 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 15:29:54
>>942
AND(日曜,ISBLANK())
これを改造するといい

944 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 15:55:36
文字列のIFのような関数を教えてください。
A2に井上と入力したらF2に28と出力される式が知りたいです

945 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 16:03:09
=IF(A2="井上",28)

946 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 16:09:23
>>945
ありがとうございます。
ちなみにFALSEのときに0が出ないようにはできませんか?

947 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 16:11:01
=IF(A2="井上",28,"0じゃないよ")

948 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 16:11:03
=IF(A2="井上",28,"")

949 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 16:20:11
>>958
ありがとうございました!
会社の表作ってて詰まってたんで助かりました

950 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 16:29:39
詰むって…ちょっと調べればわかる事じゃないか

951 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 16:46:01
ちょっと調べる=2chで訊く

952 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 17:59:19
↑だからバカは成長しない

953 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 18:04:13
何でお前ら嬉々として回答してるくせにいちいち偉そうなの 俺も回答者だけど黙々と解ることだけ書いてやりゃええじゃないか

954 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 18:14:31
>>953
何で君偉そうなの 俺も回答者だけど黙々と解ることだけ書いてやりゃええじゃないか

955 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 18:19:41
俺以外みんな役立たずなんだから黙って解る事だけ書いてろよ。

956 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 18:20:21
そうだそうだ955様の言うとおりだ

957 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 18:20:51
俺のために争うのはやめるんだ

958 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 18:21:21

     ♪ええじゃないか             γ⌒) ))  ええじゃないか♪
        ___(⌒ヽ             / ⊃__
       /⌒  ⌒⊂_ ヽヾ          〃/ / ⌒  ⌒\
(⌒ヽ∩/( ⌒)  (⌒) |(⌒ヽ       γ⌒)( ⌒)  (⌒) \ ∩⌒)
 ヽ  ノ| :::⌒(__人__)⌒ ::| ⊂ `、三  三 / _ノ :::⌒(__人__)⌒ 〃/ ノ
  \ \    )┬-|   / /> ) )) ( (  <|  |   |r┬(    / / ))
(( (⌒ )、 ヽ_ `ー‐' ,/ / / 三 ( \ ヽ \ _`ー‐'  /( ⌒)
  \ \ /                               / /

959 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 18:40:19
                   ,'⌒,ー、           _ ,,..  X
                 〈∨⌒ /\__,,..  -‐ '' " _,,. ‐''´
          〈\   _,,r'" 〉 // //     . ‐''"
           ,ゝ `</ /  〉 /  ∧_,. r ''"
- - - -_,,.. ‐''" _,.〉 / /  . {'⌒) ∠二二> -  - - - - - -
  _,.. ‐''"  _,,,.. -{(⌒)、  r'`ー''‐‐^‐'ヾ{} +
 '-‐ '' "  _,,. ‐''"`ー‐ヘj^‐'   ;;    ‐ -‐   _- ちょっと2chで聞いてくる
 - ‐_+      ;'"  ,;'' ,''   ,;゙ ‐-  ー_- ‐
______,''___,;;"_;;__,,___________
///////////////////////

960 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 20:36:06
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2003
【3 VBAが使えるか    .】 否
【4 VBAでの回答の可否】 可
【5 検索キーワード     】


一つのグラフに折れ線2つと棒グラフ2つを乗せたいのですが、
これってどうすれば良いのでしょうか?
どうやっても折れ線は1つまでしか乗せることが出来ないのですが・・・・


961 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 20:53:17
>>960
それだけ書いても普通にできると思ってる人が多いはず
何ができなくて困ってるのか情報不足でわからない

962 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 20:57:01
折れ線で表示されてる系列を、右クリックでグラフの種類を縦棒にする

963 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 21:26:35
【1 OSの種類         .】 Windowsvista
【2 Excelのバージョン   】 Excel2003
【3 VBAが使えるか    .】 否
【4 VBAでの回答の可否】 否
【5 検索キーワード     】
株価や金利等の時系列データを折れ線グラフにする際に、
休日(データのない日)を省いたグラフを作りたいのですが。
そのままグラフを作成すると、休日部分の値がゼロになってしまい、凸凹のグラフになってしまいます。
元データから休日の行を一つ一つ削除していけば可能かもしれませんが、それ以外の方法でやり方をご存じの方いましたら、
おしえてください。
よろしくお願いします。


964 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 21:34:59
>>963
休日セルに=NA()



965 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 21:51:52
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2003
【3 VBAが使えるか    .】 否
【4 VBAでの回答の可否】 可
【5 検索キーワード     】


http://imagepot.net/view/123340618029.jpg

イラレで作製した図なのですが
普通に棒グラフを作ると上の図のようにしかならないのですが、これを下の図のようにラベルの位置を
目盛りとすぐしたにくるようにすればどうすれば良いのでしょうか?
かなり面倒くさいので困っています。
お願い致します。

966 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 22:03:00
【1 OSの種類         .】 Windows2000
【2 Excelのバージョン   】 Excel2003
【3 VBAが使えるか    .】 否
【4 VBAでの回答の可否】 可
【5 検索キーワード     】

下のシートを選ぶところで右クリックして挿入で新しくグラフやワークシートを入れることが出来ますが、
白紙のグラフシートを挿入するためにはどうしたら良いのでしょうか?
どうやっても何かデータを入れた状態でしか挿入することが出来ないみたいなのですが・・・


967 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 22:05:57
>963
休日セルにというのは、元データの休日セルをひとつひとつ手作業で=NA()を入力していくということでしょうか?
すみません、無知なもので、おしえていただけますでしょうか。


968 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 22:15:33
>>967
何でやってみないの?

969 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 22:18:25
>>963
グラフのデータ範囲に平日のセルだけ指定する
グラフオプションの軸→X/項目軸で項目を選択

>>965
できない

>>966
データを入れなくても次へを押し続ければできる

970 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 22:25:45
>>963
日付を文字列に変換した列をつくり
それを日付として使用する。具体的にはA列が元の日付であれば
B列に =text(A1,"yyyy/mm/dd")
これで取引があった日だけが対象となる。

971 :966:2009/01/31(土) 22:33:01
>>969

次へ、押すというのはどこのことを指しているのでしょうか?


972 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 22:36:13
>>971
右クリック→挿入でグラフを選択するとグラフウィザードが出てくるでしょ?
そのウィザードの中のこと。

973 :970:2009/01/31(土) 22:49:34
訂正!!

質問で、取り引きの無い日の日付が入力されているようなので、
私の回答は間違い。


974 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 22:57:34
>>963
グラフを選択し、ツールのオプションから、グラフ→補完してプロットするじゃダメ?

975 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 23:08:01
急にグラフに関する質問が集中
グウゼン?それとも釣り?

976 :名無しさん@そうだ選挙にいこう:2009/01/31(土) 23:11:05
きっと同じ奴だとおもう。

977 :843:2009/01/31(土) 23:47:32
解答者のみなさん本職は何ですか?

978 :名無しさん@そうだ選挙にいこう:2009/02/01(日) 00:05:16
>>977
元ハイパーエクセルクリエイター

979 :名無しさん@そうだ選挙にいこう:2009/02/01(日) 00:06:58
時に質問者また時に解答者な通信系エンジニアもどきですが何か

980 :843:2009/02/01(日) 00:14:49
VBAのコンサルタント会社とか作ればニーズがありそうな気がします。


981 :名無しさん@そうだ選挙にいこう:2009/02/01(日) 00:20:20
在宅Excel指導員です

982 :名無しさん@そうだ選挙にいこう:2009/02/01(日) 00:42:05
>>980
コンサルタントなんかいらねーし。
エクセルの外注業者も既にある。

983 :名無しさん@そうだ選挙にいこう:2009/02/01(日) 02:34:56
VBAなんて仕事になんねーよ

984 :名無しさん@そうだ選挙にいこう:2009/02/01(日) 04:26:41
【1 OSの種類         .】 WindowsVista
【2 Excelのバージョン   】 Excel2000
【3 VBAが使えるか    .】 否
【4 VBAでの回答の可否】 可
【5 検索キーワード     】 リピート率 リピータ率

http://www2.uploda.org/uporg1981156.zip.html

お世話になります。
UPしたシートの本指名リピート率と本指名数をエクセルで管理しようとしています。
本指名数はネストで出来そうでしたので散々試しましたがダメで、本指名リピート率に付いては
どこから計算すればいいかすら分かりません。

一応定義みたいなものを記します。
◇本指名リピート率
集計期間内にフリーまたは写真指名で利用し、そのとき担当したスタッフを後日本指名で利用して
貰ったお客様のスタッフ毎の比率   
・分母の中から本指名で利用した(リピートした)人数/フリーまたは写真指名での利用人数
  (期間内に3度、4度とリピートしても一人とカウント)

◇本指名数のついてはそのまんまです。

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

985 :984:2009/02/01(日) 04:28:17
スイマセン ↑の受信passは reidai です。

986 :名無しさん@そうだ選挙にいこう:2009/02/01(日) 05:32:44
>>984
データ中にリピートであることの記録がないからリピート率は求められません。


987 :名無しさん@そうだ選挙にいこう:2009/02/01(日) 05:44:45
>>984
本指名数は、回数だけ調べればいいの?
それとも同じ会員が複数回利用した時は重複を除いて1回にするの?

>>986
リピートかどうかはデータから判断するのよ。
作業列を作ってからピボットでまとめるのがいいかな。

988 :名無しさん@そうだ選挙にいこう:2009/02/01(日) 05:52:09
>>984
確かに定義通りでいいなら求められね。ピボット一発だな。
ただこれだと「フリーまたは写真指名での利用人数」が0の場合には
本指名リピート率は定義されないなあ。


989 :名無しさん@そうだ選挙にいこう:2009/02/01(日) 06:00:41
>>984
集計期間内で全ての利用が本指名だったら本指名リピート率は100%と計算してあげるべきなんじゃないの?

990 :名無しさん@そうだ選挙にいこう:2009/02/01(日) 06:01:12
たしかに初回利用日(フリーまたは写真)が集計期間外だった場合に利用率が無限大になっちゃうね。
例外をどういう式で計算するか考えないと。

991 :名無しさん@そうだ選挙にいこう:2009/02/01(日) 06:11:50
>>990
0除算の結果は無限大ではありません。
定義されないのです。

本指名リピート率=本指名数/総利用数
と定義すれば例外を考える必要はないんだけどどうでしょう。

992 :名無しさん@そうだ選挙にいこう:2009/02/01(日) 11:46:24
次スレ
Excel総合相談所 78
http://pc11.2ch.net/test/read.cgi/bsoft/1233437779/

うめ

993 :名無しさん@そうだ選挙にいこう:2009/02/01(日) 11:46:55
ウメ

994 :名無しさん@そうだ選挙にいこう:2009/02/01(日) 11:47:45


995 :名無しさん@そうだ選挙にいこう:2009/02/01(日) 11:48:17
産め

996 :名無しさん@そうだ選挙にいこう:2009/02/01(日) 11:49:17
埋め

997 :名無しさん@そうだ選挙にいこう:2009/02/01(日) 11:50:00
膿め

998 :名無しさん@そうだ選挙にいこう:2009/02/01(日) 11:50:31
次スレ
Excel総合相談所 78
http://pc11.2ch.net/test/read.cgi/bsoft/1233437779/

999 :名無しさん@そうだ選挙にいこう:2009/02/01(日) 11:51:03
999

1000 :名無しさん@そうだ選挙にいこう:2009/02/01(日) 11:55:01
1000だったらこのスレは終わる

1001 :1001:Over 1000 Thread
このスレッドは1000を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。

283 KB
★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.02.02 2014/06/23 Mango Mangüé ★
FOX ★ DSO(Dynamic Shared Object)