Excel総合相談所 73 / ビジネスsoft(ＰＣ等)-2ちゃんねる過去ログ倉庫

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総合相談所 72
http://pc11.2ch.net/test/read.cgi/bsoft/1215765544

A1とA2に入力した文字が同じであればA2に 〃 を入力。違うならA2の文字はそのままにする方法ありませんか？

>>141
ttp://pc.nikkeibp.co.jp/article/NPC/20060712/243055/

>>142
Excelちゃん泣いちゃうだろ。それ。
A1ちゃんとA2ちゃんは同じだから、A2ちゃんを〃にしてと。
あれ？、これしちゃうと。A1ちゃんとA2ちゃんは違うから、
元のA2ちゃんなんだっけ、Excelわかんな〜いっ。
ってならんか？

　A　　　　B
1 笑う　　=A1
2 泣く　　=IF(A1=A2,"〃",A2)
3 泣く　　=IF(A2=A3,"〃",A3)

空白とか全角半角には気をつけるように。

>131
>使用期限はない
>2007は今のところ買わないほうが良い

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

>>143
ありがとうございます！
しかしせっかくですが、自分はエクセル2007なので
ちょっとやり方が違うようでした。。。

同じ項目を探して辿ったのですが
表示された、印刷のタイトル行に入力ができませんでした。
またよろしくです。。

突然ですが、自己解決しました！！
ありがとうございました。

>>140

ありがとうございます。
兎に角やってみます！

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 エクセル　マクロ　シート　文字列　選択　状態

1年1組　1年2組　1年3組　…　1年10組　2年1組　2年2組　等の

複数のシートがあります。
その中で1年という文字列を含むシート全てを選択状態にしたいのですが、

マクロで出来たと思ったのですが、すみませんがコードをお願いできないでしょうか？

VBAのMod演算子について質問ですが、10.5 Mod 3.5　は何で2になるの？
0になりそうなものだが。

>>148
> マクロで出来たと思ったのですが、すみませんがコードをお願いできないでしょうか？
ttp://www.moug.net/tech/exvba/0040032.htm

 "売上表*"  -> "1年*"

>>149
左の10.5が銀行型丸めで10になり、右の3.5が同じく銀行型丸めで4になる。
すなわち10 Mod 4として計算されるから答えは2で合ってる。

>>151
サンクス、そのように計算されるんですか。
だとするとヘルプはちょっとおかしくないですか？
そのように計算されるなら、resultが少数になることはありえないんじゃ？？？

>>152
ヘルプの間違いは探せばいくらでもある。
あまり鵜呑みにするな。

>>153
そうなんですか。困ったものですね。

まあresultが小数になることは無いから、resultの少数は切り捨てられるってのは
別に書く必要は無いけど、計算時に
> このとき浮動小数点数は整数に丸められます。
と書いてあるんだから、動作としては解説通りで間違ってはいないだろ。

>>150
ありです

A1に AA
A2に AB
があり

B1 DAA
B2 DBB
と表示させたくて
B1に=ﾞDﾞA1
B2に=ﾞDﾞA2
を入力しましたがエラーになりました
どうすれば良いのでしょうか？

B1に=ﾞDﾞ & A1
B2に=ﾞDﾞ & A2

A1
B1
にそれぞれ1という文字が入ってるとします
=IF(A1+A2,ﾞgoodﾞ,ﾞbadﾞ)
だとちゃんと動作してくれるのですが
1の代わりに日本語入れると動作してくれないです
どこをどうすれば改良してくれるのでしょうか？

ここをこうして改良してみました
=IF(A1&A2<>"",ﾞgoodﾞ,ﾞbadﾞ)

=IF(A1+A2,ﾞgoodﾞ,ﾞbadﾞ)って何を求めているの？
動作してくれたの？
漏れのは無理みたいｗ

>>155 他
そうなんだよね。悩ましい。
話題からそれるけれど、
ttp://msdn.microsoft.com/ja-jp/library/se0w9esz(VS.80).aspx
VBから操作しようと思ったら、
例題を実行するVBA以下ソースとまったく違うんだ。こまったもんだ。

Sub main()
    Dim testResult As Double
    testResult = 10 Mod 5
    Debug.Print "Ans1:" & testResult
    testResult = 10 Mod 3
    Debug.Print "Ans2:" & testResult
    testResult = 12 Mod 4.3
    Debug.Print "Ans3:" & testResult
    testResult = 12.6 Mod 5
    Debug.Print "Ans4:" & testResult
    testResult = 47.9 Mod 9.35
    Debug.Print "Ans5:" & testResult
End Sub

俺の場合、VBでもVBAでもVBSでも
MODは算術計算というよりほとんど条件分けに使ってるから
全然困らないな

算術計算するときは自分でMod関数作れば良いだけだし

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 はい(ちょっとだけ）
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 ｅｘｃｅｌ　コマンドボタン　固定

ｖｂａでコマンドボタンを押す事によりデータ抽出をしているのですが、その過程で
押す前の位置は当然、問題ないんですが押してデータ抽出をすると、行削除をしているからなのかコマンドボタンの位置があらぬ所に変更されてしまいます。
セルＫ１にコマンドボタンを置くとして、どのようなアクションが起こってもコマンドボタンの位置を固定（K1）にする事などできないでしょうか？

よろしくお願いします。

>>164
俺の感覚からいくと、処理のためのシートとデータのシートは一緒にしない。
よくわからないから、マクロ記録してみたよ。

質問不明瞭だけど次のようなコードでいけるんでないの?
ボタンは、B3:C4あたりに配置した。(CommandButton1)

Sub Macro()
    Dim cLeft, cTop As Double
    ActiveSheet.Shapes("CommandButton1").Select
    cLeft = Selection.ShapeRange.Left
    cTop = Selection.ShapeRange.Top
    Debug.Print "削除前左:" & cLeft
    Debug.Print "削除前上:" & cTop
   
’削除処理とかここだし。
    Rows("1:6").Select
    Selection.Delete Shift:=xlUp
    ActiveSheet.Shapes("CommandButton1").Select
    Debug.Print "削除後左:" & Selection.ShapeRange.Left
    Debug.Print "削除後上:" & Selection.ShapeRange.Top

    Selection.ShapeRange.Left = cLeft
    Selection.ShapeRange.Top = cTop
    Debug.Print "移動後左:" & Selection.ShapeRange.Left
    Debug.Print "移動後上:" & Selection.ShapeRange.Top
End Sub

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】パワーポイント　文字数　カウント

スレ違いで大変申し訳ありませんが、
パワーポイントのノート画面部分の文字数のみをカウントするマクロって
ないでしょうか？PPTファイル内の文字数をカウントするマクロは見つけたのですが。
ご存知の方いらっしゃいましたら、よろしくお願いします。

>>166
ttp://oshiete1.goo.ne.jp/kotaeru.php3?q=1582124&rev=1
と、どう違うか教えて。

おやすみ。

>>164

プロパティで位置とサイズ固定できなかったっけ？
あれはオートシェイプのみだっけ

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

Ａ１に「１」と入力すると、Ｃ１〜Ｅ１までが赤くなる（３マス）
Ａ２に「２」と入力すると、Ｄ２〜Ｇ２までが赤くなる（４マス）
Ａ３に「３」と入力すると、Ｃ３〜Ｅ３までが黄色くなる（色違い）
Ａ４に「４」と入力すると、Ｃ４〜Ｅ４までが赤くなる。＆１マスごとに「Ａ」と記入される（文字と色）

というのはできますでしょうか？
欲張りすぎていて、難しいでしょうか？ご教授のほどよろしくお願い致します。

>>169
教授じゃないので難しいことは分からん。

・色を変えたいセルに条件付き書式を設定
・文字を表示したいセルはIF文

EXCEL2002、厳密にはスレ違いとわかっていて質問

(Excelで)NumLockで数値を入力していくときに、
= を出すにはどうすれバインダー

NumLock状態だと Shift + "‐"では出ないのぜ
毎度解除して = を入力して戻すのは非効率なので
なにか方法があるのだとおもうのぜ

>>159
( ´,_ゝ`)ﾌﾟｯ
あんた、足し算の意味もわからないのか？

>>171
ノートパソコンのこと?
俺のは「わ」キーのところに*があるためにShift + "‐"で"="が出る
PCを買い換えるかテンキーを買うべし

・・嘘です
ベクターにキーの配置を変えるソフトがあるよ
こういうの何ていうか知らないけど
ttp://search.vector.co.jp/search?query=%83L%81%5B%81%40%94z%92u

>168
固定できる。
>171
普通は介助しなくても入力できる。
そういう仕様のノートならメーカーを恨め。

>>155
ヘルプの解説にnumber1とnumber2が丸められるとは書かれてないのは不親切な解説だな。
resultが丸められると勘違いする人が多いと思う。
>通常、演算結果 result のデータ型は、result の値が整数であるかどうかに関係なく
これなんか演算結果が整数意外ありえないんだから書かないほうがいいだろう。
http://moug.net/faq/viewtopic.php?t=32011&sid=a120d9adbac2fe14897054e792ecf5bf
ここにも分かってない人いるしね。

>>173 ためになるコメントありがとう。
リンク先で検索ワードがわかったので窓の杜でも探してみたけど
よくわからなかったのぜ
会社のノートなのでいろいろ入れるのはこわいのぜ
NumLock状態でまわりのキーをShiiftとかでいろいろためしてみたけど
だめだったのぜ、おっけーあきらめた

>>175 ためになるコメントありがとう。不治通め・・・

>>175
>>162のリンク読んでみると、VBのMod演算子とVBAのMod演算子と仕様が違うらしいから、間違ってVBのヘルプをそのまま載せたんじゃない？

=E2
と入力したセルをコピーしたら値が増えるのをなんとかしたい
上記のセルが複数欲しい時は手動で直すのがかなり面倒
なんとかならない？

フィルコピーなら絶対参照
コピー%ペーストならINDIRECT

>>178
言いたい事は分かるし解決法も分かるが
お前の態度が気に入らない

>>177
そうでもないみたい。
解説がいまいちなのは確かだね。

すみません

　　　月　　 日　　時　　　分
　　　A1　　A2　　A3　　A4
B1　 ８　　 1 　 　 7 　　 52

これを一つのセルに1:7:52（月は必要なし）という感じに抜き出して日付にしたいのですが
ググってもわからなかったのでここで・・・。
分かる人がいましたらお願いします・・・

>>178 絶対参照でググるのぜ

>>182
行列逆にするなよ気色悪いな
=A2+TIME(A3,A4,0)
書式設定は
d:h:mm
だが変わった記述だな

>>184
ありがとうございます！行と列は普通に書き間違えました・・。
ゆくゆくはこの形式から例えば
1日10時10分が
1日7時52分〜2日3時25分の間なら正、じゃなければ負といったように
時間で範囲指定をするつもりです。問題がなければ・・・

【1 OSの種類 　 　 　 　 .】 WindowsXp
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 若干
【4 VBAでの回答の可否】 可
教えてください。
20080101
20081005
といったデータ（値）を
2008/1/1
2008/10/5
として表示形式で好きな表示に変える、ということがしたかったのですが、
煮詰まってしまいました。
yyyymmddという形式は決まっているので、ためしに
CONCATENATE(LEFT(A1,4),C1,MID(A1,5,2),C1,RIGHT(A1,2))
（A1＝"20081010"、C1＝"/"　）
として見かけ上2008/10/10　となっても表示形式で（例えば）10月10日
とはなってくれませんでした。
一連のVBAでの中でつかうので出来ればVBAで解決したいと思っております。
なんかすごく簡単に出来そうなのに出来なくて混乱しております。
なにとぞご教示お願いします。

=year(right(a1,4),mid(a1,5,2),right(a1,2))

=date(right(a1,4),mid(a1,5,2),right(a1,2))

Google DocumentのスプレッドシートにDCount()がなくて対処法を知りたいんですが、
どこで質問したらいいでしょう？

>>187
>>188
早速のレスありがとうございました。
残念ながら>>187は私の理解の範疇を超えてしまいましたが、
>>188は西暦を取得する部分をleftに変えたら、希望通りの
振る舞いをしてくれました！

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

笑ｗ

助けてくださいorz

セルに「AB CD　」と、BとCの間にスペース、そしてDの後ろにスペースが
入ってます。

TRIM関数を使うとDの後ろのスペースは取ることができますが
BとCの間のスペースは残ります。
このBとCの間のスペースを無くす方法ありませんでしょうか？

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

置換したら？

スペースを何に置き換えするんですか？orz

1〜10みたいな範囲で件数を拾いたかったんですが、
関数の組み合わせでできました。
１条件しか指定できないcountif()とfilter()で２条件のａｎｄ検索できました。

=countif(filter('シート1'!C:C,A3<='シート1'!C:C),"<" & C3)

>>193
さんくす。でけました。

以下のような、toggleプロシージャを作りたいと思っています。

Sub toggle(ByRef obj As Variant, ByVal propertyName$)
obj.propertyName = Not obj.PropertyName
End Sub

具体的に、どういうものであるかというと、
今、objというオブジェクトにboolというプロパティが存在し、
その値がTrueであるとします。
それを踏まえ、toggle(obj,"bool")という引数で、toggleプロシージャを
呼び出すと、obj.boolの値がTrueからFalseとなる、というものです。

そこで、質問なのですが、”.”を使わずにプロパティを参照するには
どのようにすればいいのでしょうか。
たとえば、Javascriptだとobj[propertyName]でプロパティ参照できるのですが、
VBAには類似の呼び出し方法は存在しているのでしょうか。

すみません。解決いたしました。
CallByNameをつかうとできるそうです。

>>194

検索にスペースを指定
痴漢を空白にして置換プッシュ

スペースはエーテルで満たされておるのじゃよ。
虚無に置き換えるなんぞとんでもない。

32500を３万2500円と表示するにはどうすればよろしいでしょうか……。

自己解決しました。

会社で人事の仕事してるのだが、最近は人事移動と同じ日に
限って退職者がいたりして自分で、作ってる入力支援フォーマットが使いにくいので
少し改良しようかと思うのだが自分の力では、限界なので皆さんの力を貸してほしい

例えば、50人異動で1人だけ退職の場合などが対応してないので対応させたい
異動・入社・退職って感じのをクリックで選択できるようにしてたが
大まかな異動・入社・退職をクリックで選択（例として異動）したとする
xxooは退職にさせたいのでクリックで変更したいのだがやり方がいまいちわからない
部長　丸山昭雄(仮)　社員番号xxxxxxx　異動
社員　xxoo　社員番号xxxxxxx　異動
バイト　abcdef　社員番号xxxxxxx　異動
パート　hooooo　社員番号xxxxxxx　異動

なんか説明がおかしくなってきたorz

エスパー

【1 OSの種類 　 　 　 　 .】 Windowsｘｐ
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 エクセル　印刷　日にち　残したい場合　関数now　技　2002

会社のエクセルのセルに「＝now（）」（だったか「TODAY」だったか、）といれて印刷します。
「9月7日」と印刷されますが、
このシートを次の日に開くと「9月8日」と印刷されます。
これをやめさせる方法を教えてください。
印刷した日付を、記録しておきたいのです。

具体的に言うと、ブックの中にシートが10枚あり、
全てのシートのA1に「＝now（）」が入っています。

シートの1枚目から10枚目まで、毎月別々の日に印刷します。
3ヵ月後くらいに、あれは何日に印刷したか確認したいのですが、
開くと日付が開いた日になってしまうのです。
印刷日を変更したくないのですが、そのような関数があれば教えてください。

>>205
マクロ(VBA)使わないと無理。
VBA不可なら手動で印刷した日の日時を入力しておくしかない。

>>203
そういうのはよくある。やり方は色々あるけど
一例としては一人ずつ個別に「異動」「入社」「退職」を選択するラジオボタンと
「すべて異動」「すべて入社」「すべて退職」を設定するボタンを付ける。

>>206
（lll´Д｀）ﾋｲｲｨ！ﾏｸﾛって物理くらいわからん罠。
VBAの修行して行き詰ったらまた来ますｗ
レスアリが�d

>>208
=new()を使わずに
Ctrl＋＊とかで日付とか時刻入力すればいい。
手間はかかるが。

gの列の縦にいくつかの、プルダウンメニューがあって a b c って項目があったとします
全てaにする　全てbにする　全てcにする　っていう感じに
プルダウンメニューで、選択できるようにしたいのですが
一括でするには、どうすればいいのでしょうか？

ちょっと質問です。
プルダウンメニューで　計算する　計算しない　が（D7）選択できるとします
=IF("計算する"=D7,1+2=,"計算しません")
こんな感じにしています。
なぜか強制終了くらいますorz
どこがおかしいのでしょうか？

=IF(D7="計算する",3,"計算しません")

計算式が1+2って決まっているんならそれくらい先に計算し（ｒｙ

とりあえず「1+2=」という書き方はおかしいな。「1+2」にしないと

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
出納張を作っています。日付順に記入している支出・収入の項目を別シートで
分類別に内訳を作りたいのですが、どうすればいいのかアドバイス願います。

sheet1
日付　　　　　摘要　　　　　分類　　　支出　　
2008/9/1 　キャベツ 　　野菜　　　　200　　　　　　
2008/9/2　　梨　　　　　　果物　　　　300　　
2008/9/2　　チョコ　　　　お菓子　　　100
2008/9/3　　にんじん　　野菜　　　　100
2008/9/3 リンゴ　　　　果物　　　　200
2008/9/4　　ポテチ　　　お菓子　　　150

これを、sheet 2 で以下のように自動的に表示するようにしたいです。
分類　　日付　　　　摘要　　　支出
野菜　2008/9/1　　キャベツ　200
野菜　2008/9/3　　にんじん　100
　　　　　　　　　野菜支出　計 300

果物　2008/9/2　　梨　　　　　300
果物　2008/9/3　　リンゴ　　　200
　　　　　　　　　果物支出　計　500

>>214
データ > 集計 とかじゃだめなの？

>>215
自分でデータ＞並び替え、や、集計などをせずに、
sheet1で入力したデータを別のsheetで並び替えと集計を同時に作成されるようにしたいのですが
それは可能ですか？

sheet1の日付順一覧と、sheet2の分類別一覧それぞれ必要なのですが、
sheet1の項目を埋めたら、sheet2に214のような分類別内訳も作成され、後は印刷すれば
全部出てくる。という形にしたいです。

実際に出納帳に記入していくのはエクセルをあまり知らない人なので、その都度並び替えや
集計など、エクセルの機能を使わせるのは難しく、また色々いじって滅茶苦茶になったりしそうなので、
入力と印刷だけすれば良いというフォームが理想です。

ピボット厨から勝ち誇ったようなアドバイスがあると思います。

ありがとうございます。ピボットを調べてみましたが、ピボットの更新をしないと
入力した数値の更新が出来ないみたいなので、自分の狙いとは合いませんでした。

sheetを分けずに、日付順で並んだ項目を分類のA→Z並び替えをして
分類別に表示させ、印刷する、という方法でやってみることにします。

プルダウンメニューを使ってB2:B100にあるプルダウンメニューを全て同じ値を指定するにはどうすればいいのですか？

範囲選択してctrl+enterジャ無理か

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

ダイエットで体重管理をしたいのですが、1日に不定の複数回、時刻もバラバラで体重を量って記録し
グラフ化したいのですが、9/7 6:40　9/7 21:00　9/8 12:00・・・みたいに記述した場合
それぞれが1単位？として等間隔のグラフになるか、データーを表示設定で日付や時刻とすると
日付が単位で同日の複数のデーターは縦に並ぶだけのグラフにしかならないようです。

うまく日付間の該当する時刻にプロットされたグラフを作るにはどうしたらいいのでしょう？

散布図かな

あ、グラフは折れ線グラフでやりました

>>221
欲しい情報の間隔に合わせて空データを挿入する。

>>222
今、散布図でやって見ました。それっぽいのですがX軸の単位がかなりややこしい状態になりますね。
簡単に日付単位ってわけにはいかなそうです。
>>224
1時間毎とか10分毎に空データを入れるってことですか？う〜ん・・・

ヒントをもらえましたので、もう少し調べればできそうです。ありがとうございました。

ちょっと質問
このスレ読んでたらプルダウンメニューっていうのを知った
A B C のメニューを選択出来る状態で T1 のセルにA と記入してたら標準でプルダウンメニューをAを選択した状態にしたい
どうすればよいですか？

>>227
>>1に書かれている必須情報を書いた上で、日本語で質問すると良いと思うよ。

>>111の質問に回答お願いします。

>>229
2007ならフィールドの適当なとこで右クリックして「グループ化」選べば
グループ化の単位を指定できるよ。他は今わからんけど

>>230ありがとうございます。2007です。
それをしてみたのですが
秒・分・時〜年までのグループ化の項目はあるのですが
20代、30代、という区切りらしきものが見当たらないんです。

┐(´ー｀)┌

>>231
それは元のデータが日付のデータになってんじゃないの？
年齢を表す数値型のフィールド作ればいけるんじゃないかな？

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

エクセルファイルA,Bがあります。

Aは編集用ファイルです。
Aに内容を書き込み、保存を行うと
マクロがその内容をB書き込みます。


このような機能を実装したいのですが、
beforesaveを使うと、マクロの処理と
標準の処理が二つ動いてウザいです。
どうすればスマートに保存できるでしょうか。

セルに数値入力する際に「〇〇-」といれても「-〇〇」と認識できるようにできませんか？教えてください

初歩的な質問で申し訳ないですが…
【1 OSの種類 　 　 　 　 .】 Windows Vista Home Premium
【2 Excelのバージョン 　 】 Excel 2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 アウトライン　上　excel

セルの行をアウトラインでグループ化するときに
│　-
│　-
│　-
└　+
こうなるのですが、

┌　+
│　-
│　-
│　-
こうすることはできないのでしょうか？

【1 OSの種類 　 　 　 　 .】 MAC
【2 Excelのバージョン 　 】 Excel2004
【3 VBAが使えるか　 　 .】いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 Googleやヘルプでの検索キーワード

文字を画像に置換することは加納でしょうか。

http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1112704276
上のようなことの逆は可能ですか？
　
　例えば、セルAに映画のタイトルが縦に並んでて、
セルBにはその映画の詳細が見れるHPアドレスが沢山並んでます。
　セルBのそれぞれのアドレスを、セルAに一括でハイパーリンクさせる（埋め込む）
方法が知りたいです。
　ご教授、宜しくお願い致します。

http://pc11.2ch.net/test/read.cgi/tech/1219673793/169

【1 OSの種類 　 　 　 　 .】 WindowsＸＰ
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 はい（初心者）
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 エクセル　マクロ　オートフィルタ　高速

データがA列からAQ列、3000行くらいのデータがあって毎日追記しています。
この中から、B列にある今日の日付とAQ列に書いた記号を抽出しています。
オートフィルタを掛けて抽出するまでに10秒以上、オートフィルタを解除するのも
同じくらい時間が掛かってます。
これをマクロで抽出して高速化できないでしょうか？

再計算なしにすると速い

Excel立ち上げ直後から、入力モードが
「ひらがな」になるように設定できますか

携帯から暇つぶしに遡ります。
マルチ等に回答してしまってたらご勘弁


>>242
VBAで可能

>>240
たかが3000行に時間かかるのは？？？
別の視点からも考えてみましたか？

→他のパソコンで動かすとどうか？（使ってるパソコンのスペック不足）
→リスト内に重い数式がある（数式部分をマクロ化）

>>237
>>239ありがと

>>237
文面だけ読んで回答すれば「可能」。
エスパー能力あまりないからな・・・

>>236
知らない
知ってる人くればいいな

>>237
ttp://support.microsoft.com/kb/879892/ja
この辺の話かな？

>>235
数式と作業列使っていいなら
入力セルがA列だとしたら

B1セル
=IF(ISERROR(FIND("-",A1)),A1,1*("-"&LEFT(A1,FIND("-",A1)-1)))

>>244
やっぱり変ですよね？
ファイルは会社にあるので検証できないですが、先ほど50列3000行のデータを作って
マクロ化してみたら、ほぼ瞬時に動作します。
明日、また会社で検証してみます。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 はい（初心者）
【4 VBAでの回答の可否】 簡単なら可
【5 検索キーワード 　 　 】 Webクエリ

Webクエリを使用して、みずほ銀行の宝くじ当選番号案内から
当選番号のテーブルデータを取得しようと思ったのですが、
選択したいテーブルが、サイト全体しか選択できないため
「取り込み」を押しても全てのソースを取得してしまいます。
必要なテーブルデータだけの取得はできないでしょうか？
参考URL
ttp://www.takarakuji.mizuhobank.co.jp/miniloto/lt6-h2008.html

誤>>237正>>238

>>251
一応htmlのソースも見ましたが
リンク先がデータテーブルの体をなしてなさそうに見えますが。

→全部「コピペ（テキスト貼り付け）」してから
エクセルで編集が早そうに感じます

>>242
エクセルが最初に読み込むテンプレファイル、あれの全セルに入力規則をかければいけると思う
手元にエクセルないから試せないけど

プルダウンメニューの既定値をA1に
入力した文字によって変更する事は可能でしょうか？

>>255
可能です

君が最低限必要なこと(>>1★4)を伏せてるので
こちらも具体的なやり方の説明は伏せますね

256さん すいません

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】プルダウンメニュー 値 変化

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

既出だとは思うのですが、中々見つからないので…
Sheet1　と Sheet2　で以下のようなデータがあったとします。
【Sheet1】　【Sheet2】
A A
1 10 | 20
2 20 | 50
3 30 |
4 40 |
5 50 |
　 ：
このSheet2をSheet1に合わせる時に、値の横に同じ値を持ってきたいのです。
図にするとこんな感じ
【Sheet1】　
A 　　B
1 10 |
2 20 |　　20
3 30 |
4 40 |
5 50 |　　50
　　：
　
文面でなんて説明したらいいかもわからず、図での説明になってしまいましたが、
どなたかアドバイスを願いします。

>>258

なぜ20と50なのか教えてくれ

条件は何なんだ？

言葉足らずですみません。
20と50は特に意味はないです。
要は
Sheet1の値をみて、Sheet2の値がイコールならば、その横のセルにもってくる…
ということをやりたいのですが…
そのことによって比較を行いたいのです。

>>258

=IF(Sheet1!A1 = $B$1,$B$1,IF(Sheet1!A1 = $B$2,$B$2,""))

これをSheet2のA1に張り付けて下にオートフィルしたあと
Sheet2のB1とB2にその横まで持ってきたい値を入れてくれ

2002なら64ネスト？だっけ？いけるだろ。

う〜ん、非効率な気がするが・・・こんな？

countifで同じ値見つかったら隣のセルの値表示すればいいんじゃねーの？
sheet1のB1に
=(COUNTIF(Sheet2!$A$1:$A$100,A1)>0)*A1
みたいな感じで

>>249
できました。親切にありがとうございました。また分からない事があればよろしくお願いします。

>>233
ありがとうございます。
その通りのようでした。
よく知ってますね、感心どす。助かりました。

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


A1に A B C のいずれかが入力されるとします
Aを入力すると
A2 に =B2 を入力

Bを入力すると
A2 に =B3 を入力

Cを入力すると
A2 に =B4 を入力

って感じにしたいのですがどうすればいいのかわかりません
どなたかわかる方が居ましたら教えて下さい

>>265
入力、じゃなくて参照でいいよな?
=INDIRECT("B"&IF(A1="A",2,"")&IF(A1="B",3,"")&IF(A1="C",4,""))

>>261　>>262

ご教授ありがとうございます！！
アドバイスを頂いて、作ることができました！
ありがとうございます！

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

エクセルってさ(2007で確認)

列幅とか変えた時にさ(VBA側で)

勝手にActiveXコントロールのサイズ変えるよね？(再現性微妙)

それとも印刷タイトルに含まれているのが原因なのか？(やっぱりVBA側で)

バグ？

F8で確認してみたら縦と横のサイズをどちらか変更したら
もう片っぽがイカれるみたいなんだけど

変更しなくてもイカれるしなぁ(列幅変えたりとかしたら)

オブジェクトのプロパティって意味あんのかよ？
チェック入れてもかわんねーっつうのｗｗｗ

日本語でおｋ

「勘違いされた、勘違いされた」が合い言葉のｗｗｗ
創価学会員が通り魔から子供を守るパトロールだといって集団でうろついてるんですが
創価学会員がいつ通り魔に変身しないかとかえって怖いんですけどｗｗｗ
なんでも通行人をつかまえての誹謗中傷行為や人権侵害行為も
生活安全課の創価警官の●お願い●でやってあげてるんだとか言ってますけどｗｗｗｗｗ

熊本隆談ｗｗｗ

【1 OSの種類 　 　 　 　 .】 Windowsxp
【2 Excelのバージョン 　 】 Excel2003
セル内にhtmlタグ(たとえば<img src="〜"/>）を入力すると
タグの文字列ではなく、画像が表示されてしまいます。
htmlタグをそのまま入力する方法はありませんでしょうか？
セルの書式で文字列としても、画像が表示されてしまいます。

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel 2000
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
エクセルのVBAを利用して外部のアプリケーションへ
コピペを行いたいのです

VBAでエクセルのデータをコピーし既に開いている
外部アプリケーションのファイル（オフコン）へ画面を切り替えし、
データ貼り付けし、またエクセルへ戻るイメージです

切り替え後はsendkeysでうまくいきそうなのですが、
なにか切り替え方法はありませんか？

>>271
文字の前に'を打ち込んでは？
(shift＋7キー)

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


部署A 永谷公平 コードA
部署A 鈴木一郎 コードB
部署B 佐藤二朗 コードA
部署B 飯島三郎 コードB
部署C 谷川陽水 コードA
部署C 伊藤庸介 コードB

というデータがあるとします
部署がAでコードがAの場合にはABCと表示
部署がAでコードがBの場合にはDEFと表示
部署がBでコードがAの場合にはGHIと表示
部署がBでコードがBの場合にはJKLと表示
って感じにしたいのですがどの関数を使うのがいいのかわかりませんでした
どなたかお手数ですがご教授の方よろしくお願いします

【1 OSの種類 　 　 　 　 .】 Windows2000
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード 　 　 】エクセル　関数　文字列


式を教えてください。

Ａ列には文章が入っています。
Ｂ列には文章に含まれる単語、Ｃ列にはコード番号が入っています。
それぞれ数百〜数千行になります。
Ａ列にはＢ列の単語のいずれかが含まれる場合には、
単語に対応するＣ列のコードをＤ列に表示させたいのですが、
どのような式がよいでしょうか。

VLOOLUPやFINDなどを組み合わせてみても上手くいきません。
お手数ですが、どなたか至急お教え願えますでしょうか。

またマルチか

すみません
ほかのスレでも質問しましたがとにかく急いでいるのでお願いします

単語がひとつならできるわけ？
それでできるならB列ぼ単語をいろんな列に分割しなされ
頭が悪いならその分手を動かしなよ

ＥＸＣＥＬを使ってメールを送信することってできますか。
期限管理表を作ってて、期限の７日前になったら各担当者に
注意喚起のメールを送信するような仕組みを作りたいのですが。

266のは

B2 B3 B4 の値を読み込んでるけど
B2 C2 D2 の値を読み込みならどうしたらいいの？

>>275
失敗した式を書いてみたら、修正してもらえるかも

>>279
できるっぽい
http://www.google.com/search?client=opera&rls=ja&q=vba+%E3%83%A1%E3%83%BC%E3%83%AB&sourceid=opera&ie=utf-8&oe=utf-8

>>274

作業テーブルが必要になるけど
別シートにこれ作って(Sheet2扱いで)

A列 B列 C列 D列
部署A 部署B 部署C
コードA 1010 1101 1000
コードB 1100 1001 1111

＞というデータがるとします
ABC列までしか使っていなくてD列に表示すんなら

　　　　　　　　　　　　↓作業テーブルのデータ範囲
=VLOOKUP($C1,Sheet2!$A$1:$D$3,MATCH($A1,Sheet2!$A$1:$D$1),FALSE)
　　　　　 ↑テーブルのある別シート

くわしくはヘルプで

あと下にオートフィルで。
部署が増えたりコードが増えたりしたらSheet2!のあとがテーブルだから
そこ変えて対応できるでしょ。
空白があるとか糞みたいなことぬかしたらIFERRORでなんとか

Excelからコピったらぐちゃぐちゃになってるｗ
ひでぇｗ

>>272
スレ違いです>>2・7

>>279
出来ますがスレ違いです>>2・7

A1に文字が入力してあるとする
A2に文字が入力された場合はA2の文字をB2に
A2に文字が入力されてない場合はA1の文字をB2に
入力する方法ありませんか？

>>286
=if(isblank(a2),a1,a2)ってことかな？

>>286

B2セルに

=IF(A1 = "","",IF(A2 = "",A1,A2))

あとは応用だ。というか入力？VBAつかわないとちょっと・・・

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False

If Me.Range("A1").Value <> "" Then
Me.Range("B2").Value = Me.Range("A1").Value
If Me.Range("A2").Value <> "" Then
Me.Range("B2").Value = Me.Range("A2").Value
End If
End If

Application.EnableEvents = True

End Sub

だろうか？

プルダウンメニューに
項目A 項目F 項目Iという項目があるとします
A1にAと入力すると 項目Aを選択
A1にFと入力すると 項目Fを選択
A1にIと入力すると 項目Iを選択
するようにしたいのですがいまいち上手いこといきません
どなたか教えて下さい

>>289
vbaで出来る
が、別に表作ってvlookup使うのが普通
そもそも自動的に変わるならプルダウンの意味なくね

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 関数で
【5 検索キーワード 　 　 】 　何ヶ月たったか　エクセル　経過

A1にある日付　例）　2006/5/21　(完全に固定です)　B1に　=TODAY()　
のときC1にA1の日から現在まで何ヶ月経過したか？を表示したいです。日は切り捨てで月のみ
上記の例だと　2年と4ヶ月で　C1は「28」と表示されるようにしたいです。

>>291
見つかりましたので自己解決しました。

http://lib.ac.la/2ch/read.php/pc8/bsoft/1076410405/950

急かしているわけではないのですが、
>>236どなたか分かるようでしたらお願いします。

3列1000行ほどあるデータ群から値が最大の行番号を知り、
その行番号の残りの2列の値を表示したいのですがどうすればいいでしょうか？

=ROW(MAX(A1:A65535))で最大値の行番号取得できそうな気はしたのですがエラーが出ました

>>294
D列にRANK関数で式を入れた後、1をオートフィルタとか
オートフィルタでトップテンの後見比べるか
後者はもちょっとスマートな方法がありそうだけどね

シートAに社員の社員番号とかが入力されてるとします
シートBにシートAのセルD10〜D800の社員情報に JPDJ と文字が含まれてる場合のみシートBに書き込みしたいのですがどうすればよろしいのでしょうか？

>>294

=INDEX(B:B,MATCH(MAX(A:A),A:A,FALSE))

A列の最大値の隣にあるB列の値

=INDEX(C:C,MATCH(MAX(A:A),A:A,FALSE))

A列の最大値の2つとなりのC列の値

>>297
おおお、まさしくそれです。できました。ありがとうございます！

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

例えば 別のシートから
=TEST!D5
=TEST!D6
=TEST!D7
というような感じに呼び出してるとします

TESTシートのCの列に〇か×が書いているとします
TESTシートの
C5が〇の場合は=TEST!D5を出力する
C6が×の場合は=TEST!D6を出力しない
C7が〇の場合は=TEST!D7を出力する
ってしたいのですが出来ますか？

途中で書き込んでしまいました


×の場合は行が開く方法なら関数のIFを使えば出来ましたが
行を開かないように出来ないのでしょうか？

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

"001、002、003"と３つのエクセルのファイル(以下データファイル)があり
上記の３つのファイルのデータを、"005"というファイル(以下集計ファイル)で集計したいのですが
この場合、データファイルを開いていないと集計ファイル側のデータは更新されないのですか？

各データファイルは毎日更新されるものなので、集計ファイルにシート移動してまとめるのが手間なんです。
何かいい手はありませんでしょうか？

>>299

=IF(TEST!C5 = "○",TEST!D5,"")

IFぐらいは勉強しようか

>>299

行を開かないってことは非表示にしたいという事かな？

じゃあVBAのほうがらくじゃね？

>>299

Private Sub Worksheet_Activate()

Dim lngRow As Long
Dim lngCount As Long

lngRow = ThisWorkbook.Worksheets("TEST").Range("C5").End(Direction:=xlDown).Row

For lngCount = 5 To lngRow

If Me.Range("A" & lngCount).Value = "" Then
Me.Rows(lngCount & ":" & lngCount).EntireRow.Hidden = True
Else
Me.Rows(lngCount & ":" & lngCount).EntireRow.Hidden = False
End If
Next

End Sub

別シートのA列5行目から
=IF(TEST!$C5 = "○",TEST!$D5,"")　を下にオートフィルして

別シートのVBAに>>304貼り付けたら動くよね？
2007環境しかないんで2000環境だと実証できんからあとがんば

ﾜｵ　2007ｼﾞｬﾝ

C20:C500 まで入力した4種類の文字なのですが
その文字毎にページをわけるにはどうすればいいのでしょうか？

>>307

シートでしょ？
VBAの方が楽だよってか>>1から読みなおせｗ

VBAでもいいので教えて下さい

いやだ

>>307

もうちょっと詳細希望
４種類の文字は変わらないのか？
シートに表示するのはどんなかんじ？
文字毎で4シート作成するの？それとも値を写すだけ？
環境ぐらい書け

>>307

前準備
最低でもC20のセルに値があること
5シート(データのあるシートとデータを移すシート)用意すること
元シート以外のシートの名前を4種類の文字に設定しておく

以上

2回に分けるぉ

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ws1_Name As String
Dim ws2_Name As String
Dim ws3_Name As String
Dim ws4_Name As String
Dim ws1_Cnt As Double
Dim ws2_Cnt As Double
Dim ws3_Cnt As Double
Dim ws4_Cnt As Double
Dim End_Row As Double
Dim Cnt_Row As Double

ws1_Name = Sheet2.Name
ws2_Name = Sheet3.Name
ws3_Name = Sheet4.Name
ws4_Name = Sheet5.Name

With Application
.EnableEvents = False
.ScreenUpdating = False
End With

>>312続き

If Not IsNull(Me.Range("C20")) Then
End_Row = Me.Range("C20").End(xlDown).Row
Else
End_Row = 20
End If

For Cnt_Row = 20 To End_Row
Select Case Me.Range("C" & Cnt_Row).Value
Case ws1_Name:
ws1_Cnt = ws1_Cnt + 1
ThisWorkbook.Worksheets(ws1_Name).Range("A" & ws1_Cnt).Value = Me.Range("C" & Cnt_Row).Value
Case ws2_Name:
ws2_Cnt = ws2_Cnt + 1
ThisWorkbook.Worksheets(ws2_Name).Range("A" & ws2_Cnt).Value = Me.Range("C" & Cnt_Row).Value
Case ws3_Name:
ws3_Cnt = ws3_Cnt + 1
ThisWorkbook.Worksheets(ws3_Name).Range("A" & ws3_Cnt).Value = Me.Range("C" & Cnt_Row).Value
Case ws4_Name:
ws4_Cnt = ws4_Cnt + 1
ThisWorkbook.Worksheets(ws4_Name).Range("A" & ws4_Cnt).Value = Me.Range("C" & Cnt_Row).Value
End Select
Next

With Application
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub

>>309

欠点は空白を識別できないのと元シートになにか入力しないとマクロ起動しない点

あとシートは適当にぽこぽこ増やした方を使ってくれよ。元シート＝データのあるシートで

Sheet1のVBAに追加すりゃあ他のシートのA列に表示してくれるはずだ

OS XP EXCEL2003 です

エクセルを開いた時に画面一杯（最大）に表示させたいのですが、画面半分くらいの大きさでしか開きません
最大化させてから、閉じたりしたのですが、やはり画面半分の大きさです
最近になって、エクセルを閉じた時に必ずエラーが出るようにもなったので、この現象が影響を与えているのでしょうか？
いろんなサイトをぐぐってみましたがわからなかったので質問させてもらいました

よろしくおねがいします

【1 OSの種類 　 　 　 　 .】 WindowsxpHESP2
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 ?
【5 検索キーワード 　 　 】?
質問です。
Excel2000を使用しています。
エクセルのシートに、jpg画像を貼り付けたいのですが、
ファイルを開いて貼り付けようとすると、文字化けします。
ヤフーで検索したら、なにやらソフトを買わないと？貼り付け
できないみたいなのですが、別途ソフトなどを購入しないと
いけないのでしょうか？

【5 検索キーワード 　 　 】Excel jpg 貼り付け

失礼しました。

んなこたーない。
挿入→図→ファイルから→好きなjpg選ぶ

ありがとうございます。
今、やってみたら、できました！

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

海外からもらったファイルに
　ctrl＋Pgup → 左スクロール
　ctrl＋Pgdn → 右スクロール
こんな動作をするものがあります。どんな仕掛け？

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 文字　挿入　関数　特定文字　など・・・

色々自分なりに検索してみたのですが、わからなかったので質問させてください。

7ケタの数字（0112233）が1列に数万行あり、まず最初に先頭の文字だけをすべて削除。
次に、2文字ごとにハイフンをいれたいのです。
最終的に、11-22-33としたいわけです。
これを効果的に行うためにどうすればいいのか、ご教授お願いしたいです。
よろしくお願いします。

またプロバイダ規制されたので代理頼んでます。
お礼には来れないですがお願いします；；

マクロで.logという拡張子でファイルを保存するにはどうすればいいでしょうか。
ダイアログを出さずに処理したくてマクロを書いています。
ダイアログでなら、拡張子まで含めて書けばできますが、それをマクロ記録しても
できませんでした。
ActiveWorkbook.SaveAs Filename:="data.log", FileFormat:=xlText, _
CreateBackup:=False
としましたが、data.log.txtになってしまいます。

>>321
=TEXT(RIGHT(A1,6),"??-??-??")

あ、02とかゼロが空白になるな。

>>321
=TEXT(RIGHT(A1,6),"00-00-00")

>>322
リネームすれば。

>>323
>>325
できました。非常に助かりました、ありがとうございます。

すみません>>315にもお願いします

>>327
Ctrl押しながら最大化を押してみて。

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

データの近似直線および近似曲線を描いて
その式を表示させるのはできるのですが、
式の係数をセルに自動でもっていきたいんですけど方法はありますでしょうか？
たとえばｙ＝２ｘ＋３という近似直線であればA1セルに傾き2を
B1セルに切片3をもっていきたいです。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 比較 時間 条件付き書式 if 帯グラフ

下記のようなデータが100シート、1シートにつき100件程あるのですが
D E
'2008-07-01 11:20:00.0 '2008-07-01 11:40:00.0
'2008-07-01 11:00:00.0 '2008-07-01 12:00:00.0
'2008-07-01 13:50:00.0 '2008-07-01 14:10:00.0
'2008-07-01 09:00:00.0 '2008-07-01 10:30:00.0

1_09:00___________10:00_____________11:00___________12:00___________13:00___________14:00　15:00~21:00
2_____________________________________________■■
3_______________________________________■■■■■■
4__________________________________________________________________________________________■■
5_■■■■■■■■■
DからEまでの時間を10分刻みで帯グラフのよう(上記の様）にセルを塗りつぶしたいのですが
どのような式を作ればよいでしょうか。

G1 =HOUR($D1):MINUTE($D1)>=9:00<=HOUR($E1):MINUTE($E1)
H1 =HOUR($D1):MINUTE($D1)>=9:10<=HOUR($E1):MINUTE($E1)

を条件付き書式に入力してみたのですが、うまくDEセルからデータを読んでもらえず
オートフィルは10分刻みで時間を増やしてくれるわけもなく詰まってしまいました。
解決案を提示していただけたらと思います。
よろしくお願いします。

>>329
LINESTという関数で求めることができる。
Excelの近似曲線も実際にはLINESTで係数を求めてからグラフを表示するという処理を内部で行っている。

例えばA1:B10のデータを使って散布図と近似曲線を描いた場合、傾きは=LINEST(B1:B10,A1:A10)で
求められる。あとはぐぐれ。

>>330
まずは作業列を作って、日時のデータを文字列からシリアル値に変換だな

>332
F3
=TEXT(D3,"hh:mm:ss")
G3
=TEXT(E3,"hh:mm:ss")
H3
=TIMEVALUE(F3)
I3
=TIMEVALUE(G3)
でシリアル値に変換して

J3以降を条件付書式で
J3
=$H$3>=K1<=$I$3
J4
=$H$3>=L1<=$I$3
.
.
.

k1から先を9:00:00~(シリアル値での入力)

にしたのですが、うまくいかないです。
これはどこが駄目なんでしょうか・・・

2007で、終了時にいろいろ小細工するマクロを作ったのですが
一度子画面を終了させ、もう一度親画面で子画面を開くとマクロが
動いてくれません。なんかマクロ有効なのに無視されます。

何言ってんのかわかんねぇという方の為に説明しますと
Excelを開くと、「Book1.xls - Microsoft Excel」とか出てきますよね。
その状態で”適当.xls”とか開くとBook1が引っ込んでこっちがが前面にでてきますよね。
まぁ図にすると
　　　　　　　　↓子画面
　　　親画面┬ Book1.xls
　　　　　　└(適当.xls)

みたいな感じになってるわけですが、呼び方がわからんので便宜上
これらを親画面、子画面と呼ばせて頂きます。

で、話を戻すと、一度親画面Aで"マクロ.xls"を実行し、子画面だけを閉じ
もう一度親画面Aで開き直すとマクロが無視されます。

新たに立ち上げた親画面では動きます。しかし、Aと同様に一度閉じて開き直すと
やはりマクロが無視されます。

これは自分の作ったマクロがおかしいのでしょうか？
もしそうなら何を弄ってしまうとこうなり、どうすれば子画面を閉じて開いてを
繰り返してもマクロが有効になるようにできるのでしょうか。

>>334
2007ではブックを開いた時にプロセスが勝手に増えたり減ったりするんで、そのあたりの制御はけっこう面倒だった気が。
ごめん。解決策は俺にもわからん。

>>333
ヒント AND関数

>336
ありがとう、すっかり忘れてた。
やってくる。

Excelのセルに住所を書いてリンクを貼り付けて、
そのリンクを押下すると別ウィンドウでグーグルマップを開いて
その住所を表示させたいんだけど
そういった事って可能なんでしょうか？
可能であればどういうやり方があるのでしょうか？

対処のデータが一個二個なら
リンクにアドレスを埋めこんで指定する方法がありますが
さすがにデータが1000、2000になるとそれも厳しいので

>>330
ちょっと長いけど、グラフ部分全体を選択して条件付書式を設定する。
=AND(TIMEVALUE(RIGHT($D1,10))<=(COLUMN()+47)/144,TIMEVALUE(RIGHT($E1,10))>(COLUMN()+47)/144)

元データ右から10文字に空白が無いように。47はG列を9:00に調整する為。
不等号のどちらに等号を入れるかはお好きに。

無事作成できました、みんなありがとう！

>339
これはすごい・・・・・・

>>338
住所を指定してGoogleマップを開く

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　Dim 住所 As String, URL As String
　住所 = Target.Value　'クリックされたセルの内容
　
　With CreateObject("ScriptControl")
　　.Language = "JScript"
　　URL = "http://maps.google.co.jp/maps?z=16&q=" & .CodeObject.encodeURI(住所)
　End With
　
　ThisWorkbook.FollowHyperlink URL　'URLを指定してブラウザを開く
End Sub

VBAにはクリックイベントがないので、俺にはこのあたりが限界だ。すまん。