Excel総合相談所 90

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

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

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

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

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

スレたてお疲れ様です

さっそくですが、オートフィルタについての質問です
フィルタをかけてセルを選択し削除や書式設定をした後にオートフィルタをはずしてみると
フィルタで現れていなかった範囲までがまるまる（例えばセルＤ１５とＤ１８だけがオートフィルタで現れていて値を削除したが、オートフィルタをはずすとＤ１５、Ｄ１６、Ｄ１７、Ｄ１８の値が全て削除されていたなど）作用を受けていたりするのは
エクセルのどういう性質によるものなのでしょうか
これは最近では（自分のＰＣでは？）体験していませんが職場でむかしたまにありました
他にもこういう体験をした人があり、なぜなのか理由を知りたいと思いかきこみをしました

いちおつです。早速ですが質問させて下さい

Private Sub ComboBox1_Change()
Select Case Me.ComboBox1.Value
Case "a"
Me.text1.RowSource = "aリスト"
　〜
End Sub

というプロシージャを続いてComboBox2、ComboBox3・・・について並べたいのですが、
ただ並べるのでなく変数を使って簡潔に記述する方法はあるのでしょうか？
for〜nextのようなことをプロシージャ名のところで出来るのかということです
よろしくお願いします

>>2
非表示のセルを選択しているか否か。
Alt+；で非表示セルを選択から外していれば、削除は快適にできるかもね

>>3
VBAにはコントロール配列の機能がないので、ちょっと工夫しなきゃならない。
直感的でわかりやすいのは名前で指定する方法。

For i = 1 To 3
　　Select Case Me.Controls("ComboBox" & i).Value

1.WinXPsp3
2.excel2007
3.いいえ
4.なるべく否
5.エクセル　時給計算　割増　　など

excelで時給計算をするソフト？　を作っているのですが
例えば勤務時間17:00〜7:00(31:00)まで働いた場合
22時以降の深夜割増、25時以降の深夜残業割増、5時以降の残業割増を
通常　5:00
深夜　3:00
深残　4:00
残業　2:00
の、ようにそれぞれの時間を個別のセルに表示させたいのですが
どういった関数を使えばいいのでしょうか
お願いします

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

　 Ａ　 　B 　C 　　D
１ 米国　４　　イタリア ６
２ 日本　３　　中国　　　４
３ 英国　５　　米国　　　 ３
以下続く…

このように４列で縦に長い表があるのです。
Ａ、Ｃに文字で地名、Ｂ、Ｄに数値があります。
Ａ、Ｃに同じ名称が入ってるセル同志を横に並べ変えることはできますか？
ＡとＢ、ＣとＤのコンビはそのままでＡ、Ｃの文字が同じモノ同志を横に並べ直したいのです。
ＡとＣは必ずしも同じ地名が入っているとは限りませんので完全に並ぶことはないのですが…
なるだけ近く並べたいです。

よろしくお願いします。

>>6
必要な関数はIF、AND、ORの3つ
あとはそれぞれの条件をひたすら書き並べて引き算するだけ

ついでに指摘すると、残業割増の条件は5時以降じゃなくて勤務時間が12時間以上じゃないの？

>>4
回答をありがとうございます
非表示を選択しているとはどういうことでしょうか
フィルタの際マウスを動かし１５と１８をハイライトしましたがマウスに非表示のものもこっそり選択する機能とか
あるいはマウスでなくてもどこかで「非表示のものも含む」など、設定してしまっていたのでしょうか
きちんとうまくいく場合もありいかない場合との違いがわからないのです；；

>>7
Ａ、Ｂ列で並び替え、Ｃ、Ｄ列で並び替えだけでは単純すぎるのでしょうか・・・

>>7
AにあってCにない地名が出てきたとき、
AになくてCにある地名が出てきたとき、
それぞれどう処理するか書いてください。

>>9
言葉で説明ムズカシスｗ
http://hamachan.info/excel/kasiseru.html

さっきも書いたけど、可視セル選択はALT＋；がいいよ。
うまく行く時：フィルタで抽出時
上手くいかないとき：行の非表示

じゃないかなと想像

なるほど、ありがとうございました。リンク先も見てきましたが「可視セル」選択のアイコンとかあったのですね！
カメラは初めて知りましたが見えないところにいろいろな機能があるのですね
エクセルをまだあまり理解していない頃だったからフィルタと行の非表示との違いがわからなかった可能性は多分にあります
また、他にこういう体験をした人というのもある意味エクセル初心者？でこの体験以降フィルタで作業を二度としてない（閲覧はあっても）と
申しておりました；
たしかにデータが消えたショック後のポカーンはいかんともし難いｗｗ
とにもかくにもありがとうございましたｍ＿＿ｍ

>>5
申し訳ないのですがそこではなく、自分でも分かりにくいかなとは思ったもののイメージでいうと
Private Sub ComboBox1_Change()
End Sub
Private Sub ComboBox2_Change()
End Sub
Private Sub ComboBox3_Change()
End Sub
　　↓
Private Sub ComboBox”i”_Change()
End Sub
というつもりでした

上記のようなことはやはり無理でしょうか？

>>9-10
ありがとうございます。

できれば、ＡとＣで一致している名称は並べて、片側だけに名称がある場合は、
Ａ、Ｃ名称が一致している組合せ群の下にＢ、Ｄの数値の多い順に並べたいのです。
ここまで書かないと伝わりませんよね。どうにもうまくいかなくて…

すみませんがよい方法があればお願いします。

それではＥ列に=if(A1=C1,0,1)とでも入れておいて０になったデータだけ上に集めて
１となったデータたちは下側にもっていき、さらにそこでＡＢのＢ優先、ＣＤのＤ優先で並べ替えてはだめなのだろうか

>>13
たぶんクラスモジュール使用することになると思うけど、詳しい人を待つか自力で調べて

あ、ちょっとまちがえた!!今のなし！

今のなし、は>>15です
これではＡ列とＣ列の呼応が前提になってしまいます（恥ずかし）

今回はバレンタインデーが日曜日と重なった為
★3 質問前に>>2-20あたりの注意書きやQ&Aを必ず読むこと。
は中止にします。あしからずご了承ください。

>>14
・Ｃ列に列を挿入してＡＢ列のデータの数だけＡとずっと下まで入力
・本来ＣＤ列だった（列挿入後はＤＥ列に）データの横に（Ｆ列）Ｂとデータのあるところまで入力
・ＤＥＦ列のデータをＡＢＣ列の下にもっていきＡ列で並べ替え
・さらに=COUNTIF(A:A,A2)の式をＤ列に入力し重複するものと単独のものを確認
・フィルタをかけ本来ＡＢ列にあった「Ａ」とＣＤ列にあった「Ｂ」とを分けどこかにコピペ
・今度はさきほど=COUNTIF式を用いた列を優先させて降順で並べ替え（Ａ群とＢ群を別々に）
・ＡＤ列で名称が一致してないデータが下にいく

でもこれだとＡ列にある国名がＣ列に２個も３個も出てきた場合どんどんずれていくんだけれど？

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

ある程度は仕方ないのかもしれませんね。それでやって見ます！
ホントに素人なんです…

>>13
直接の回答ではないけど下記のサイトが参考になるかも
ttp://okwave.jp/qa/q261042.html

VBAでやれ

>>16,22
挙げて頂いたサイトも参考にしてクラスモジュール勉強してみます
ありがとうございました

>>21
こちらもよくわかっていません
Ａ群Ｂ群（挿入列に入力する名前はなんでもよく「左」「右」とか「☆」「★」とかでも？）フィルタをかけコピペする際には式をひっぱってこないために
「形式を選択して貼り付け」→「値」を選択しておいてください
COUNTIF(A:A,A2)式の中のA:AはＡ列を６万行も選択してしまっているので、ほんとうは（ＤＥＦ列のデータを以降後に）Ａ列にデータのある範囲だけを選択する方がいいのでしょうが
めんどくさがり屋の自分はこの方法をつい使ってしまいます

あの、このスレッドの前の１００１までいった相談所を読んでる最中にスレッドがなくなってしまったのですが
２４時間でおちてしまうのでしょうか

>>26
24時間かどうか知らんがそんな感じ

別々のセル内の文字列を連結させて違うセルに表示させる方法は
ありますが、この連結させた文字列をコピー＆ペーストして違う
アプリケーション（例えばワード）に使用したいのですが、何か
方法はありますでしょうか？よろしくお願いします。

>>28
そのままコピペ

連結させて文字列は表示はできるんですが
コピペはできないんですよ
連結表示文字列を文字列化できればいいのですが・・・

言葉たらずですみません
連結前の２つのセルは不要なんです。
連結後の文字列を抽出したいんです。

>>30
なぜコピペはできないと判断したの？

文字列を連結させたセルを選択してコピー → ワードでペースト
で出来るはずだが
(ポイントは Excelでコピーモードを解除しないこと)

>>31
だからそのままコピペできるってば
Excelのセルを普通にコピペすると、画面に表示されている「結果」がそのままコピペされる
あんたの環境では何がペーストされてるんだい？
実際に試した結果を書いてくれよ

>>32　>>33
できました！ありがとうございます。
以前トライした時できなかったので
原因は良くわかりませんが、ご指摘の通りです。

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

Excel2007 OLAP CUBEに少し興味があるんですけど、あれってあくまでもSQLSErver相手のみなんですか？
他のDB（MySQLとか）では使えないんですか？

ComboBox1に入力してある値を整数型myComboBoxに入れたいのですが、
myComboBox = Me.ComboBox1
とするとComboBox1に値が未入力のとき型が正しくないと言われてしまいます
もちろん適当な数字を入力しておけば問題ないものの未入力時でもエラーを出さないためにはどうしたらいいのでしょうか？

>36
試してはいないけど、
myComboBox = Val(Me.ComboBox1)
みたいに明示的に数値型変換したらどうですか？

型をvariantにする
未入力時は0を入れてから処理→処理後に未入力状態に戻す
if+isnull
on error
Form_Error
もっとスマートな方法はありそうだが意外と無い

とっても簡単なことで申し訳ないのですが、
セルの塗りつぶしの色をその他の色から選ぶと
最近使用した色のところに表示されますが、
互換モードだと再起動すると消えてしまいます。
・ページレイアウトタブの配色を選びなおす
・セルのスタイルとして登録する
以上の他にその他の色から選択した色を登録しておくことは可能でしょうか？

教えて下さい。
結合させたセルの中央に挿入した図を中心に置くにはどうしたら良いのですか？

マクロは使わずに出来る方法ありますか？

【1 OSの種類 　 　 　 　 .】 WindowsXP SP3
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 何をキーに検索すれば良いのか不明だった為未検索です。

【質問】
下記のあぷろだにサンプルをアップしたので落とした上で教えて頂きたいのですが、
ブックに“ステータス”というシートと“データベース”というシートを作り、
データベース側にはLV1の際の勇者・戦士・僧侶・魔法使いのパラメータを入力しておき、
ステータスシートの職業セルの下にある、水色セルのリストから職業をを選択すると、
各パラメータ欄にデータベース記載の数値が入る様にしたいです。

さらに、LVセル下の水色セルのリストからレベル（1〜4）を選択すると
基準となるLV1の数値に一定の値を加えた数値を表示する様にしたいです。
（サンプルなら各パラメータに+50）

また、データベースには4つの職業分データを入れていますが、後から賢者や遊び人のステータスも追加出来る様にしたいです。

※なお、LVはリストにして選択出来る様にしていますが、1〜4を入力する形でも構いません。

どの様にすれば実現出来るでしょうか？教えて下さい。

http://www.rupan.net/uploader/download/1266248568.xls
（DLキーはdq）

誘導されてきたんでほぼそのままコピペします

【1 OSの種類 　 　 　 　 .】 WindowsXP HOME
【2 Excelのバージョン 　 】 Excel 2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】
if 結果　counta　使えない オートフィルタの状態　個数　countif 文字列　合計
これらの組合わせで1時間ほど・・・疲れました

やりたいこと
エクセルのＩＦ関数で　「+」　「-」　の2種類の文字列出した状態
さらにこの中から「+」の文字列の個数を出したいです
COUNTAもオートフィルタで「+」を抽出した状態でのCOUNTAでも正しく数えてくれません
何を使えばこの「+」の個数を数えられますか？

お願いします。

>>37-38
遅くなってすみません
ひとまずVal付けてうまくいきました
ありがとうございました

すみません。ファイル消されてたみたいなので再あぷしました。
よろしくお願いします。

http://u.dynalias.org/download.php?no=01015

DLキー：ulhqsjwj

>>42
検索キーワードで出ているCOUNTIF関数使えばいいじゃん。

>>39　VBAで何とでも
>>40　多分ない
>>41　見てないけどvlookup関数か何かじゃない
後ステータスは以下のように書けばいいと思う。多分
=ｽﾃｰﾀｽ+ﾚﾍﾞﾙ*50
>>42　A列だと=COUNTIF(A:A,"+")
>>44　落ちてこないね

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel 2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】　エクセル　範囲　抽出　色々試しました

xからyまでの範囲の数字のうち30から50までの間の数字が含まれていた場合
違うセルにその数字が幾つ含まれていたかを抽出したいのですが
凄く説明が下手なんで例えると
この場合、C1、C2、C3にこういった数字がでるようにしたいのです

　A　　B　　　C
I 　10　45　[15]
II　50　70　[0]
III 45　90　[5]

おねがいします

>>47
=IF(OR(B1<=30,A1>=50),0,IF(AND(A1<=30,B1>=50),20,IF(AND(A1>=30,B1<=50),A1-B1,IF(AND(A1<=30,B1<=50),B1-30,IF(AND(A1>=30,B1>=50),50-A1,"例外")))))
全パターン作るしかないのかな
テキトーに作ったので色々試して間違ったらテキトーに修正しといて

>47 こんなのどう？
=(IF(B1>50,50,B1)-IF(A1<30,30,A1)-(A1<=30)*(B1>=50))*(A1<50)*(B1>30)

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

宜しく御願いします。
セルに16ケタの数字（文字列）を入力した時に表示形式を4ケタづつ表示するように
定義したいのですが、どのように定義すれば宜しいでしょうか？
（数字（値）としての機能は無視する形です）

入力）0123456789876432

表示）0123 4567 8987 6432
（4ケタごとの間に半角スペース入れるなど）

>>50
???? ???? ????

>47 訂正
=(IF(B1>50,50,B1)-IF(A1<30,30,A1)-1+(A1>30)+(B1<50))*(A1<50)*(B1>30)

>51 有難う御座います。　長島銀　加藤銅　おめです。

>>50

書式設定→ユーザ定義で　#### #### #### ####

??… や ##… は文字列には反映されないよ。
>50 は文字列として扱いたいんじゃないの？
それに頭の 0 が消えてしまうから
数値として扱っていいのなら、こっち。
0000 0000 0000 0000

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

マクロで質問です。

Sub マクロ1()

Call マクロ2

Call マクロ3

End Sub

こういう構造のマクロで、
例えば、マクロ2であるエラーが発見されたとき、
マクロ3やマクロ2以降の処理をすっ飛ばして
マクロ1をExitSubで終了させることは可能でしょうか？
可能であれば、方法を教えてください。

>56

On Error

>>50-51
質問の意味が分からなかったのかと思った俺はエクセル初心者。

tifでできました。
よく機能理解してなかったです、どうも！

タグイメージフォーマット？

TimeSerial関数を使おうとしてるのですがうまくいきません
コードとその結果が下のようになります
なぜtableItem4の値が0になってしまうんでしょうか？
tableItem4はInteger型です

tableItem4 = TimeSerial(0, Me.Textbox, 0)
Debug.Print Me.Textbox
Debug.Print tableItem4
Debug.Print TimeSerial(0, Me.Textbox, 0)
Debug.Print TimeSerial(0, 11, 0)
11
0
0:11:00
0:11:00

なんか今日の回答レベルが高い気がするのはおれだけ？ｗ

俺は毎回高いんですが！！！

>>61
tableItem4が整数型(Integer)ならそうなる
0:11:00のシリアル値は 0.0076388… だから

>>64
うっかりしてましたorz
ありがとうございました

削除されてた様で、すみません。下記に再アップしました。
引き続きよろしくお願いします。
http://www.csync.net/service/file/view.cgi?id=1266323926

↑すみません。41でした。。

勤務表の時間計算したいので書式を[h]:mmにしてるんですけど、
翌日正午（前日から見て36時）まで居残った場合の
翌日分を計算する際、36:00-24:00ってすると答えが36:00になってしまいます。

一日前の36:00を表示してるみたいなんですけど、
欲しい答えは24:00を経過して翌日「12:00」という値なのですが
どうしたらいいでしょうか？

>>68
どういう計算式なの？
A1〜A3の書式　[h]:mm
A1 36:00
A2 24:00
A3 =A1-A2
だと　A3 は 12:00となるけど.

レスどうもありがとうございます。
詳しく書くと以下のとおりです。

E15　36:00
I15　=E14-TIME(24,0,0)

E15には「36:00」と表示されていますが、
セルにカーソルを合わせると「1900/1/1 12:00:00」と書いてあります。

>>70について、間違いがありました。
I15　=E14-TIME(24,0,0)でなく、
I15　=E15-TIME(24,0,0)、です。
すいません。

>>70
TIME(24,0,0) の第一引数の "24"が問題だと思うよ
たしか 0〜23でないとダメなはず
ためしに
I15　=E15-TIME(0,0,0)としてみ　やはり"36:00"ってなるから

つー事で
　I15　=E15-(TIME(0,0,0)+1)
又は
　I15　=E15-1
だとうまくいく

>>72
教わったとおり、-1でできました！
ありがとうございます。-1でいいなんて。。
深いです。でも面白い。がんばります〜。
また教えて下さいませ。

>>73
"シリアル値"てのを　概要だけでも調べてみるともっと幸せになれると思う

fgngh

お、かけた
>>62
具体的にどのレスか言えば喜ぶ人がいるかもね！！
>>72
timeをA1辺りからひっぱってれば
　I15　=E15-(a1+if(a1>=1,1,0))
みたいにすればよくね。よくね。
>>66
http://www1.axfc.net/uploader/Sc/so/83860.xls
うーん、正直めんどくさいので作り替えた
戦士最大HP、戦士最大MP、などとすれば直接VLOOKUPを使える。俺の上げた奴は
A1&b1(戦士&最大HP)になっているが、最初から戦士最大HPとしたほうが良い
見た目はドン臭そうだがある意味正規化出来ているのでかなり使える。
元のシート活かしたいならHLOOKUP、もしくは横向きにindex+matchを使う。
どうせ無理だからA列に戦士最大HP、B列に数値とスレば良い
作りまくってればどれがいいかそのうちわかるから、とりあえず作れば良い。スルーされたいなら作らないまま文句言えば良い

>>76
たしかにそうゆう方法がいいのかもね
ただ俺的には、質問者から与えられた情報の範囲内でしか回答する気は
ないのでああゆう回答になったのです。

どちらがいいかは回答者が決めることだし別に良いんじやない
TIME関数は絶対に手で入力したい！！っていう人かもしれないし、そういう場合だと俺の方が意味不明になるし、気にしない

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel 2003
【3 VBAが使えるか　 　 .】 入り口程度
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 「IF　複数　条件」　でIF AND を知ったのですが、条件の数が多くなり、どう入れればいいか分からなくなっている状態です。
セルＣに４パターンの組み合わせを入れるのに手間取っています。

両方とも整数なら　　　　　　　　　　　　　　○
両方ともマイナスなら　　　　　　　　　　　　×
左側が整数で右側がマイナスなら　　　不一致
左側がマイナスで右側が整数なら　　　不一致

エクセルの状態としては

　　Ａ　　　Ｂ　　Ｃ
１　３　　　５　 　○

　　Ａ　　　Ｂ　　Ｃ
１　-３　　-５　 ×

　　Ａ　　　Ｂ　　Ｃ
１　３　　　-５　 不一致

　　Ａ　　　Ｂ　　Ｃ
１　-３　　　５　 不一致

これら４パターンのどれが来てもセルＣに　○　×　不一致　のどれかが出る様にしたいのです。この４つの条件を入れるにはどうすれば良いのでしょうか？

=IF(AND(A1>=0,B1>=0),"○","×")
自分で出来るのはこの1パターンを入れる状態までです。４つ全ての条件の組み合わせ方が分かりません。

お時間のある方、アドバイスよろしくお願い致します。

=IF(AND(A1>=0,B1>=0),"○",IF(AND(A1<0,B1<0),"×","不一致"))

>>79　-3も-5も整数ですよ

おそらく「整数」が「正の値」であると考えて…
＜別解＞
=IF(A1*B1<0,"不一致",IF(A1>0,"○","×"))

>82
それだと　A1、B1のどちらか、もしくは双方ともゼロの値のときに>79さんの要望に合わないですよ。

>52 書式をマイナスの時０にしておいて
=IF(B1>49,49,B1)-IF(A1<31,31,A1)+1

初歩的な質問ですみません。
文字をセル内に何行か書いたあと他のセルに移ろうとすると
「########################」
と表示されます。
文章は生きてるのですが、見た目が意味不明なので困っています。
助けてえらい人。。。

>>85
隣にデータ、もしくは文字が入っており、該当するセルのセル幅より文字列が
長い時、そのような表示になります。
対策として、
・セル幅を広げる
・文字列を折り返す
・フォントの大きさを変える
などがあります。

>85
＞文字をセル内に何行か書いたあと　　とあるので、
１列×複数行をひとつのセルに「セル結合」＋セルの書式で「折り返しあり」を設定すると吉

すみません、マイナスも整数でしたね。

両方とも自然数なら　　　　　　　　　　　　　　○
両方とも負数なら　　　　　　　　　　　　×
左側が自然数で右側が負数なら　　　不一致
左側が負数で右側が自然数なら　　　不一致

この条件で再度よろしくお願いします。

>>83
Ａ１・Ｂ１にゼロが入る事は無いです。
申し訳ありません、書き忘れておりました。

じゃあ >82でいいじゃん。

アンカーのある人のレスしか見てなかった・・・
さっそくやってみます。
ありがとうございました。

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel 2000
【3 VBAが使えるか　 　 .】 多少
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 indirect リスト
「データ」→「入力規則」→「リスト」で他のシート
(ここではsheet2)から選択する場合、
=indirect("sheet2!A1:A5")とやればできますが、
このA1:A5の部分を、リストの量に応じて可変とすることができるでしょうか。
つまりsheet2のA列にリストを入力し、リスト数をB1セルに=COUNTA(A:A)と出す。
このB1セルの値を=indirect("sheet2!A1:A5")の
「5」の部分に放り込みたいのですが…。
indirectを入れ子にするのでしょうか？
いろいろやってみましたけどどうもこの関数は苦手で…
""をつけるのか、つけないのか？　&はどこで使うのか？　
頭が痛くなってきて降参です。みなさん助けてください。

すみません自己解決しました。
なんか分けのわからないうちにできた！　

たびたびすみません。やっぱりみなさんに教えてもらいたい。
今回はsheet1のB1セルに
="sheet2!A1:A"&COUNTA(Sheet2!A:A)と入れ、
「リスト」の「元の値」に=indirect(B1)としました。
しかしながらこれだとsheet1上に作業セルできてしまいます。
sheet2を完全な作業用シートとしているので、
sheet1を汚さない（？）まま同じ処理ができる方法があれば教えてください。

>>93
一つの方法論として　名前の定義を使用するやりかたもある

名前 HogeHoge 参照範囲 =INDIRECT("Sheet2!A1:A"&COUNTA(Sheet2!A:A))
を定義しておき
「リスト」の「元の値」に=HogeHogeとする

>>94さん
回答ありがとうございます。
「名前の定義」、調べてみます。
数式バーの隣に入力するのとはまた別ですよね？

ツールバーの 挿入(I)→名前(N)あたりで出てこない？

ちにみに自分の環境は Excel97という古いExcelなんで
場所が違うかも

>>96
回答者なら使わなくても2003と2007ぐらいはインストールしとこうぜ

>>97
私はねそんなのなくても客観的に回答できるんです
あなたとは違うんです

すみません、IF式は二つの場合しか条件を指定できませんよね？
（例えばＡ１が１０以下なら１、そうでないなら０など）しかし複数の条件を設定したい場合
（例えばＡ１が"花"ならＢ１は１、"雨"なら２、"曇り"なら３、みたいに指定したいときにはどういった関数を使いますか？
よろしくお願いします

>>99
入れ子にする。
IF(,A1="花",1,IF(A1="雨",2,3,))
ただしこれは花と雨と曇のみの場合

>>99
=FIND(A1,"花雨曇り")
ほかにも条件と結果の一覧表を作って検索するとかユーザー定義関数を作るとか
いろいろな方法がある

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

エクセルファイル起動時に、パスワードだけでなくIDも要求する方法はありますか？
auto_openでinputboxでIDとパス要求するinputboxを表示するようにして、
ifステートメントで、IDかパスが間違っていたらファイルを閉じるようにしようかと考えていますが、
できればinputbox以外の方法を使いたいです。
ファイル保存時の設定変更は、IDを要求することができないので使えませんでした。

>>102
ユーザーフォーム

>>100、>>101
ありがとうございました。今さっそく試してみて入れ子は３個までなら受け付けてくれるのですね
ＦＩＮＤは初めて試してみましたが、条件を増やせば増やすだけ文字列の後ろにつなげていけばいいのですね
で、返ってきた値を置換すればいいのでしょうか
単純なのにおもしろいな、と思いました≧≦
あと一覧表はＶＬＯＯＫＵＰか何かで拾ってくるってことかな？と考えてみました

>>97 & >>98
なんか偽者がでてるみたいなんでコメントしときます

半分はあってる基本的な部分はそんなに変わらないんだし
あと半分は >>97の言うとおりだと自分でも自覚しているんです
(ちょっと自粛したほうが良いかな)

>>104
IFの入れ子は7つまで可能
=IF(A1=0,"東",IF(A1=1,"南",IF(A1=2,"西",IF(A1=3,"北",IF(A1=4,"白",IF(A1=5,"発",IF(A1=6,"中","")))))))

>>103
ありがとうございます。
パスワードの部分に文字を入力したときは、文字が「*」で隠されるようにはできますか？

【 検索キーワード 】　手元の本のユーザーフォームの項目、「VBA user form 隠す」

本物とかどうでもいいだろ
>>105が>>94の偽物の可能性もあるわけだし
アイデンティティがほしければBE付きでコテすれば?

ところで俺の偽物って不思議なぐらい現れないのは何でなんだぜ・・？

あんたにコメントしたつもりないけどね
でもここの常連回答者殿の言う通りだからしゃーないな

入れ子やってみました！５こで挑戦して成功しました
でも７個までの限界って何故なのでしょうか？

とりあえず今晩はこれで寝たいと思いますが、解決策がみつかり助かりました
皆様も暖かくしておやすみください

あたしおっぱいが3つあるの。だから複乳。あ、でも2つでも複数っていうのよね。

>>107
逆に言うぜ
そんなもん丸見えだぜ
ttp://www.vector.co.jp/soft/dl/win95/util/se194796.html
エクセルVBAはこれを使わなくても解析できるから全く意味無いぜ

まぁ、質問をそのまま受けるなら、知らん。と答える。俺が実装するなら、表示はこんな感じ↓(後ろから見られるのを防ぐ目的か？)。rept関数はないからテキトーに自前で用意する必要があるけど、あね程度vba使えるなら大体分かるだろ
あとはパスワード自体は変数stringに保存しておくといいだろうね。

Private Sub TextBox1_Change()
TextBox1.Text = Rept(Len(TextBox1.Text), "*")
End Sub
>>110
仕様です。"7"段階ネストが限界の理由はマイクロソフトにでも聞いてください
大昔の8bitのなにかしらの名残なのか、キリスト教に関係してるのか。なんだろうね。あんまり興味ない

>>112
ありがとうございます。
解析されることは問題にしておりません。
他の人へとパス付きファイルを渡すので、
文字が隠れたほうが雰囲気が出るかと思い、質問をしました。
VBAの部分は大体理解できますが、ユーザー定義関数は使ったことがありませんので、
私の知識では無理そうです。
無茶を言って申し訳ありませんでした。

>>111
おっぱいに付いては言わないよ。ホモ・サピエンスで2つなら普通。
人間のことを2本足とか5本指とかいわないでしょう。2つおっぱいとか2乳とか
3つ、というか奇数乳は色んな生物の中でも奇形に入ると思います。病院へ行った方が良いかも?染色体異常が見つかるかも

>>113
textboxのPasswardcharってプロパティに"*"を設定すればそれっぽくなる
ユーザーフォームごと呼び出してtextbox・・
もっとよさそうな方法はありそうだけどな。まぁ一礼ってことで
プログラム板のvbaスレで聞いてみるいいかもしれない

>>115
ありがとうございます。
これならちょっと練習すればすぐ実用化できそうな気がします。

すみません・・

例えばA1からF1までのセルに文字列が在る場合、その文字列の合計を表示し
一箇所でも文字列が入っていない場合、”未”と表示する方法が分かりません
いろいろ試しましたが・・
　　=SUMPRODUCT(IF(SUM(ISBLANK(A1:F1)*A1:F1),"","未"))
エラーで先に進めません。

何方か詳しい方おしえて頂けませんでしょうか？
お願い致します。

VBAを学習するのにいい本はありませんか？
わたくしプログラミングはほとんど知らないので、おサルさんでも分かる入門書でお願いしたいです。

>117
=IF(COUNTBLANK(A1:F1),"未",SUM(A1:F1))

>>117
数値の合計ならば>>119ですが、
文字数の合計ということであれば、
=IF(COUNTBLANK(A1:F1),"未",LEN(CONCATENATE(A1,B1,C1,D1,E1,F1)))

「文字列の合計」の意味がわからんちん
数値なら合計、文字列なら連結

>>119　様
>>120　様
　
本当に有難うございます。
無事に表示させることが、出来ました！感謝します。

関数に熟知していない為、なかなか思うように出来ませんでした。
もし、お勧めの書物など在りましたら、ご紹介頂けると助かります。

有難う御座いました！！

>120 そーゆーときこそ
=IF(COUNTBLANK(A1:F1),"未",SUMPRODUCT(LEN(A1:F1)))
ちなみに良い子のみんなはこちらを使いましょう
=IF(COUNTBLANK(A1:F1)>0,…

ご回答お願いします　m( _ _ )m

エクセルの改ページ画面で、以下の画像のように、
ページとページの間を空ける方法を教えてください！！


http://freedeai.180r.com/up/src/up1226.jpg


お願いします。

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

C#からExcelを操作しています。

１．object[,] range = sheet.Range["A1", "IV100"].Value;
↓
２．rangeのデータをいじる
↓
３．sheet.Range["A1", "IV100"].Value = range;

このようにすると高速にデータを書き込めるのですが
シート上にある =D13/C13 などの計算式の入ったセルが
１．の時点で-2146826273というデータに変わっていることに気付きました。
テキストの状態で一気に取得する方法はないもんでしょうか？

>124
印刷範囲をB:Dにしておいて
印刷しない行(10:12とか19:20)を非表示にして、
ページを区切りたいところで挿入、改ページ
ではダメですか？
印刷しない行範囲も画面上では表示させたいの？

>>125
質問の意味がよくわからないのと試すのが面倒なので適当にレス
.Valueのかわりに.Textとか.Formulaを使ってみる

>>127
Formulaでうまくテキスト状態で取得できました！
ありがとうございます！

生年月日をソートしたい場合
1901年以降は1,2なのでそのままソートできますが
1900年以前のものを含めますと
うまく順番に並び替えができません

この場合
どうしても別の列に1901年以降と以前で計算列を作る必要があるのでしょうか？
それともうまいやり方とかあるのでしょうか？

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 あまり分かりません
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 セル中のスペースを無くす　マクロ　エクセル

VBAでセルの文字の間にある半角スペースを無くせますか？
TRIMではだめでした。

>>130
置換使え。

>>129
vbaなら…

>>129
全て2000年足した状態で入力し、出力する際に2000年引くという方法があります
http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1214523762
ですが普通にvbaがいいと思います
>>130
関数でsubstituteとか
vbaでsubstituteとか

>>124
ファイル→ページ設定→シートタブ

印刷範囲で、1ページ目の範囲をドラッグ次に、
カンマ","を入力して、2ページ目の範囲をドラッグ。
以降その繰り返し。

>>124
別に普通に印刷範囲を
B4:D9,B13:D18,B21:D25
にすればいいだけでしょ

Excel2007


Excel2007ってワークシート関数のDATEDIFが無いんですか？
=DATEDIF(A109,$B$106,"y")っていれたら　#VALUE! になってしまうんですけど。

とてつもない勘違い
ｽﾏｿです

Excelのスキルチェックソフトってどこかで手に入りますか？
派遣会社にいくつか登録にいったんだけど
そのときにスキルチェックでやらされたら、どこもスキルチェックテスト使ってた。
なので同じスキルチェックソフトで練習したい。

>>138
派遣会社に効けば?
それかこの辺か
http://www.google.co.jp/search?hl=ja&q=%E3%82%B9%E3%82%AD%E3%83%AB%E3%83%81%E3%82%A7%E3%83%83%E3%82%AF%E3%83%86%E3%82%B9%E3%83%88+%E3%82%A8%E3%82%AF%E3%82%BB%E3%83%AB&lr=lang_ja&aq=f&oq=

質問です!
Excelって印刷のとき1ページに入りきらなかった場合でも
いくらでも縮小して1ページにまとめて印刷できるんじゃなかったですっけ?
それが今はできないんです。どうしてですか?

Word2003, WindowsXP使ってます

>>140
印刷範囲の設定を再設定しなおしましたか？

>>141
Word!

>140
改ページプレビューで印刷範囲に点線が出てると
それがページ区切りなので、点線をズリズリ
ドラッグして、印刷範囲の実線に重ねて
点線が表示されないようにすればよろし。

>>133
substituteでできました。ありがとう

きのう、Wordの初中級向けの「Wordのストレス解消読本」って本買ったんだけど、
ふつうのありきたりのことを書き連ねていくだけの入門書と違って、
涙が出るほど解説が素晴らしく、書式の概念が大切だとかWordはここが使いにくかったとか、
従来の入門書ではお茶に濁すようなところでも、ズバっと鋭く解説してました。

これのExcel版みたいなのってないですか？

わたしみたいに頭が整然としているタイプの人は、こういう本でなきゃ読みたくない。

またおまえか。
http://pc11.2ch.net/test/read.cgi/bsoft/1263719084/60

たとえばCTRL + Hを使って
セル内にある指定の文字列を別の文字列に置換すると
文字ごとに赤とか黄色とかにしていても
そのセル内の文字の色はすべて黒になりますが
これを文字列の色を変更させない方法とかあるのでしょうか？

>>147
残念ながらありません

>>147
VBAがあります

>>148
VBAで出来るんだったら
マイクロソフトは初めから出来ないのか？

置換する文字列が赤とかだったら黒になってしまうのは何となくわかるけど
黒の場合も、つまり関係ない部分でも置換したらセル全体が黒にせざるを得ないのか？

>>150
>マイクロソフトは初めから出来ないのか？
マイクロソフトじゃなく覇俺でもその仕様にできる
つまりそうなってないのはエクセルの仕様です。

マクロの記録してコードを読んでれば理由は予想できると思う
予想できないなら諦めて「そういうもの」だと思って下さい
逆に言うとvbaを使えれば簡単に戻すことが出来ます

「形式を選択して貼り付け」を見ると、

すべて
数式
値
書式
コメント
入力規則
罫線を除くすべて
列幅
数式と数値の書式
値と数値の書式

は？なんじゃこりゃ？ってならない？
「すべて」はすべてなんだろうけど、その要素を全部知りたいよ。
他は、そのすべてのうちのたった1つの項目なの？
「罫線を除くすべて」ってなんだよ？具体的にはなんだ？

この「コピーする操作によって記憶させる要素はなんなのか。そしてそれらはどんな関係か」について解説してる本ってないの？
Wordなら分かりやすい本を見つけたんだけど(>>145で紹介したやつ)。Excelにもあってほしい。

「オートフィル」についても、それだけのテーマにしぼって最低5ページくらいは割いて丁寧に説明してくれてる本が欲しいなあ。

>>152
確かに貼付けの中に「罫線」があれば「罫線以外全て」はわかるが、
「枠線以外全て」だけだと何か分からないよな
VBA出言えば「range、またはcellsのメンバで.Borders以外全て」だろうが、普通の人はわからんだろう。俺にもわからん
多分どんな本もわざわざ解説していない

言葉通り受けとれば
http://msdn.microsoft.com/ja-jp/library/microsoft.office.interop.excel.range_members(office.11).aspx
ここの.Borders以外だな。
要するに「罫線以外全て」だ
>>153
もvba習得した方が早いんじゃない?
MSDNでAutoFill調べると色々出てくると思う

どのレベルまで行ったらVBAを習得したと胸を張って言っても良いのでしょうか？
コード名は覚えてはないですが、基礎的なコードは本やネットを見れば書けて、
コードから理解するのは、それなりに応用されているやつでも理解出来ます。

そんな私は、一応履歴書の特技に基礎的なVBAプログラミングを行えるレベルまで達したエクセルと、記述してます

>>155
時給1900円とかの事務職レベルのしょぼい仕事をやるのであれば
それで十分じゃないでしょか。

時間単価5000円だったらどうかは自分で考えてください。
要するに金次第ですよ。

>>155
そういうひとのために資格というものがあるのだと思います

変な質問かもしれませんがexcelファイルで28MBにもなることってあるのでしょうか？
シートは25枚、各シートの中身はまちまちですが、全部を印刷するとA4で30枚程度
グラフや特殊な関数・画像等は使っておらず、文字・数字だけの表です（計算は合計くらい）

古いPCなのでファイルサイズのせいか開くのが遅くて困っています
と同時になぜこんなに大きなファイルなのか疑問に思いました

このファイルは1年に一回windows上でコピーし内容を書き換えて保存しているのですが
中身が増えた時でもA4で1、2枚くらいの内容です
その状態で3年前は約19MBで1年ごとに約4MBずつ増えています
間がとびますが5年前は約500ｋBでした

自分で作ったわけではなく知人からの相談で、この500ｋB→19MBの間に
どのような作業をしたのか本人もよく覚えていないようですが
（一度項目入力にVLOOK関数を使ってみたが処理が重かったのでやめたと言っていました）
印刷物としてみるとA4で3枚程度しか変わっていませんでした

また本人は各項目を入力する時に手打ちではなくコピー機能を多用しているとも
言っていましたが、これらの操作によりゴミでも残っているのでしょうか？

状況がうまく伝わっていないかもしれませんが、もしファイル肥大の原因が
分かる方がいましたらよろしくお願いします

>>158
ほれ
http://peiyorin.cocolog-nifty.com/blog/2007/09/excel_1635.html

図の場合はコピー→貼りつけ　じゃなくて、挿入の方がサイズが小さくなるけど、
図は使っていないんだよね？

>158
長年のゴミですよ。
新しいブックを作って、引越しすればいい。
シートコピーとか使わず、なるべくセル範囲コピーで。

ここで質問していいのかわからないんですが、エクセルが開けなくなりました。
原因として考えられるのは、前にパソコンの容量がいっぱいなので何個か
いらないアプリケーションを消して下さいっていう表示が出た時に
あまり使ってないなと思ったアプリケーションを何個か消したのですが
その時にエクセルに関係しているアプリケーションを消してしまったんだと思います。
しかしどのアプリケーションが関連していたかがわからないのですが
どうしたらいいでしょうか？
馬鹿な質問をしてるのはわかっているのですが、教えてください・・。
電話での問い合わせが平日しか無理らしく困っています。
バージョンは2003です。

>>161
オフィス再インスコ
それで駄目ならOS再インスコ

>>162
再インストールできました。ありがとうございました。

>>163
再インストールなんてサルでも（ｒｙ

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

質問おねがいします。

文章を打ち込み、その文章を登録しておいた単語に置換し新たな文章を作成する方法をおたずねしたいです。

例


「元」　　　「変換」
です。　　　でござる。
私　　　　　拙者
でしょ？　　でござろう？
・
・
・

などと登録して、

私は元気です。
↓
拙者は元気でござる。

などとするにはどうしたらいいでしょうか？
お力を貸してください。

>>165
a列に変換元、b列に変換後、D1に文章があるとして

Sub test()
Dim r As Range
For Each r In Range("a1", Cells(Rows.Count, 1).End(xlUp))
Range("d1").Value = Replace(Range("d1"), r.Value, r.Offset(0, 1).Value)
Next
End Sub


関数は思いつかない

>>159
図は無く文字・数字だけです
>>159-160
そういったことが原因でファイルサイズが増えていくとは知りませんでした
原因が分かりとても助かりました、どうもありがとうございます

>>166
すいません、VBAなしではできないでしょうか？
よろしくおねがいします。

>>168
複数の置換を自動でやるのはVBAじゃないとできません
まあ、SUBSTITUTEをずらっと並べる方法もあるけど、
これだと7つまでになるのかな？

WindowsXP Excel2003 VBA初心者 VBAでの回答可
検索：セル番地を取得　ダブルクリック　イベント

下のシートで

　　A B C D E F G ‥
　1 あいうえおかき ‥ん
　2￣￣￣￣￣￣￣￣
　3
　4

行1はタイトル行で、［あ〜ん］までのいずれかのセルをダブルクリックすると、
その列を基準に並べ替えを行うようにしたいです。

実際はもっと大きな表で、頻繁に並べ替えをする必要がありオートフィルタを使っていましたが、
ソート時に他の列と複合させる必要が出来てしまい、マクロを使って出来ないか考え中です。
よい方法があれば教えてください。

>>168
一式じゃなくてよいなら、
A列に変換元、B列に変換後として
C1に「私は元気です。」
C2以下に
=SUBSTITUTE(C1,A2,B2)
以下コピー
で変わるね。

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

開発→挿入→ActiveXコントロールで
コンボボックスをシートに貼り付けたんですけど、
そこから入力範囲を設定するやり方が判りません。
以前のバージョンならコントロールタブが有ってそこで
入力範囲を設定できたと思うのですが。

>>172
もしかしてフォームのコンボボックスの事？
http://www.eurus.dti.ne.jp/~yoneyama/Excel2007/excel2007-form.html

>>173
そうだったみたいです。ありがとう

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

一つのセルに
>>5,>>10,>>20〜25
と入力してあります。
ここから5,10,20,21,22,23,24,25を取り出して
B列にレス番を入力するにはどうしたらいいでしょうか？

>>170
ダブルクリックのイベントプロシージャを使う
対象ワークシートのコードウインドに記述

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

私の他に色んな人が入力するﾌｧｲﾙを作成中。
1件につき1行で、数種類の条件（ﾘｽﾄから選択）を入れると
特定の列に金額が出てくるようになってます。
金額の出る列は数式入りなので列ごと保護したいのですが、
そうすると行単位で並べ替えができません。
「ﾂｰﾙ」＞「保護」＞「ｼｰﾄの保護」＞「並べ替え」にﾁｪｯｸを入れてもﾀﾞﾒ。
「数式入りの列を改変されないようにしたまま、並び替えができる」
この条件を満たすために何か便利な方法はないでしょうか。

>>175
A1セルに入っているとして
Sub aho()
Dim v, vv
Dim i As Long, ii As Long
Dim myRow As Long
myRow = 1
v = Replace(Range("a1").Value, ">>", "")
v = Split(v, ",")
For i = 0 To UBound(v)
vv = Split(v(i), "〜")
For ii = vv(0) To vv(UBound(vv))

Cells(myRow, 2).Value = ii
myRow = myRow + 1
Next ii
Next i
End Sub

>>170
例としてＡ列〜Ｅ列までを対象としたコードを作ってみた
尚、下記ではソート範囲外がダブルクリックされた時
Sortメソッドが実行時エラーになるけど
その対策を考えるのがメンドイのでOn Errorで逃げてます(笑)

'対象ワークシートのコードウインドに記述
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Target.Row = 1 Then
With Range("A1", Range("E1").End(xlDown))
On Error GoTo SERR
.Sort Key1:=Target, Order1:=xlAscending, Header:=xlYes
End With
End If
SERR:
End Sub

>>178
ありがとうございます
上手く動作しました
tensai()

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

全シートの中の文字が入力されているセルの中にある特定の文字（httpとか）
が含まれるセルがあった場合、そのすべてのセルを削除（クリアでも可）
をしたいのですが可能でしょうか？


フィルタ掛けて1シートずつ削除ってのもできるのですが
如何せんシートの数が多いので教えてください

>181

置換　*http*→(空白)

>>176,179
ご回答ありがとうございました。やる気が湧いて来ました & 参考になります。
ifとthenとかもう少し勉強してみます。
あと、返信遅くてすみませんでした。

>>177
マクロ使うしかないんじゃないかなぁ。


保護解除
↓
条件にそった並び替え
↓
保護

って言う流れ。

マクロ記録すれば簡単だろ。

EXCEL2007、Windows7です。

(1)「http://www.abc.co.jp」とセルにキーボードから入力するとリンクになります。
リンクではない、普通の文字列にするには、どうすれば良いのでしょうか？

(2)CONCATINET関数を使って、「http://www.abc.co.jp」という文字列を
セルに入力すると普通の文字になります。
これをリンクにするには、どうすれば良いのでしょうか？

よろしくお願いします。

>>185
（１）右クリック→ハイパーリンクの削除

>>185
(2)
=HYPERLINK(CONCATENATE(A1))

>>186,187
レスありがとうございます

>>184さん
やっぱそうですか…。
回答ありがとうございました。

Excel2007の検索で
正規表現で
あああ*などの検索は使えるのですが

^あああ（先頭文字）
や
あああ|いいい（どちらかがヒット）
は使えません
これを正規表現として使えるようにはできないのでしょうか？

Excel使ってみたいのですが初心者でもわかりやすく解説してるようなマニュアル本とかないでしょうか？
定番みたいな入門書があればオススメお願いします

>>190
ttp://srcedit.pekori.jp/tool/excelre.html

>>191
ttp://www.amazon.co.jp/dp/4056050287

【1 OSの種類 　 　 　 　 .】 WindowsXP　SP3
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 はい(初心者レベルです）
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 セル参照、INDIRECT　など

別ファイルにあるデータ取得するのに、
日付によって参照するセルを変えたいです。

例えば
2/1 ならば　A6を参照するように
2/5　ならば　A11を参照するように
のようにしたいです。

まったくの見当違いかもしれませんが、自分なりに考えてみた結果
記述的には
='[ファイル名.xls]シート名'!$A$(5 + DAY(TODAY()))
このような感じにしたいと思っているのですがエラーがでてしまいます。
どんな風に書けばよいか教えて頂けないでしょうか。
宜しくお願い致します。

>>194
=INDEX('[ファイル名.xls]シート名'!A:A,5+DAY(NOW()),1)

2/5ならA10じゃないの? A11でいいんだとしたら法則がわからん

>>195
A10です。すみません。
寝不足で足し算すらまともにできてませんでした。

試してみたら、見事にできました！
本当助かりました。ありがとうございます。

タブ区切り化されていないテキストデータ、
例えば下記の様なデータを、エクセルに落し込みたいのですが
うまい方法ありますか？

りんご　　1個　　500
ぶどう　　1個　　600

>>197
テキストファイルウィザードで区切り文字をスペースに

>>197
貼り付けた後
データ　区切り位置　カンマやタブなどの〜

>>198-199
エクセルすげええええええええええ

固定長レコードの読み込みもできるし

Excel2000,2003です。
どうしてもうまくいかないことがあるので助けてください。

データを日付で「並べ替え」を使ってソートさせたいのですが、
曜日と時刻の部分が、「2月1日（月）13:00」や「2月11日（木）１８：００」
のように全角になっていたりするので、書式を「m"月"d"日";@」としました。

その書式で昇順でソートさせると、1月より10月や11月が先にきてしまいます。
同じように、10日が1日より前になってしまいます。

どこを変更すれば、強引に日付順に並べられるでしょうか？

>>202
書式を
m"月"d"日"(aaa) h:mm
とすればどうよ。

いつのまにか手動計算になっていてあせった。もう１０年以上使っているが、こんな経験ははじめて。
設定変更なんかしていないのに。ネットで検索したら自動計算に戻す方法がすぐでてきたのでよかったが、約２０分損した。
ネットによると作業グループを設定すると手動計算になるとあったが、そんなことはしていなかったが。。

>>202
半角と全角が混ざった状態でソートするのは無理。
ソートのプログラムをVBAで書くしかない。

データを加工していいんなら、日付データをすべてシリアル値に修正するのが正解。
時刻を無視してソートしていいんなら日付をすべて2桁に修正するという手もある。
「2月1日」→「02月01日」
これならワークシート関数だけでなんとかなる。

>>202
量が多いならfindとmid組み合わせて日付データを作り上げるのが確実かね
>>204
たまによくある。
作業グループとは関係なく、
古くからずっと使ってるファイルだと何かの拍子で起こる気がする。

月と日を2桁に統一して、全角を半角に変換する数式
=ASC(IF(FIND("月",A1)=2,0,"")&IF(FIND("日",A1)-FIND("月",A1)=2,LEFT(A1,FIND("月",A1))&"0"&MID(A1,FIND("月",A1)+1,99),A1))

>202
日付と自動認識されない文字列を いくら
m"月"d"日" とか書式設定しても全く意味無いよ。

=ASC(A1) をオートフィルで全部半角に変換しておいて、
コピー値貼付け、「月」を「/」に「日(?)」をスペースに置換
データ→区切り位置→完了
これでシリアル値に変わるから、後は好きな書式に。

>207

何か背中がかゆいｗ

>>204
たまにあるよ。

>>209
一発でやろうとすると長くなるから、作業列をもう一つ増やして
FIND("月〜だけ別にすればいいんだよな

>>208
それだけだと時刻情報が抜け落ちるから正常にソートできなくなる

今試したら、全角でも認識されるから ASC は不要だな。
日付の範囲を選択して、「月」を「/」に置換
「日???」をスペースに置換
データ→区切り位置→完了

>212
時刻も保持されるよ。
その為にスラッシュ区切りに置換するんだから。
それより気をつけるべきは、以前のデータでも
今年と見なされるから、後で年の補正をしないと
曜日がずれること。

教えてください。Excelのグラフについてです。

【1 OSの種類 　 　 　 　 .】 Mac OS X 10.4.11
【2 Excelのバージョン 　 】 Excel2004 for Mac
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 グラフ作成　初期値

グラフボタンを使って、グラフを作成しています。
作成されたグラフは、Excelの初期値により、値マーカ無し、影付きなど、勝手に決められた内容で作成されます。
しかし、それでは困るので、出来上がったグラフをダブルクリックして、マーカー付けて、影消して、線を細くして・・・・と
手で直しています。

これらの初期値(デフォルト)を、私がセットするには、
どのようにしたら良いでしょうか?

宜しくお願いします。

>>215です。
すみません、追加です。
グラフを作成したとき、グラフ背面の色が灰色になる(自動的になる)のですが、
灰色はイヤなので、白くしたいです。
いつもは、灰色の部分をクリックしてdeleteキーで消しています。
宜しくお願いします。

>>215
説明はめんどいので
ttp://support.microsoft.com/kb/881334/ja
グラフ　規定値　でぐぐれば他にもでてくるかも

>202
>208の方法を関数でやると、例えば2008年のデータなら
=VALUE("08/"&REPLACE(SUBSTITUTE(A1,"月","/"),FIND("日",A1),4," "))
書式を>203にする。

【1 OSの種類 　 　 　 　 .】 Windows　XP　HE
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 はい（少し）
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 配列？

ナンプレをイメージしていただくと解りやすいと思います。
http://ja.wikipedia.org/wiki/%E6%95%B0%E7%8B%AC

A1：I9（つまり縦９　横９）　のセルの中には０〜９までの整数が入っております。
この９×９をそれぞれ　３×３の９エリア（A1：3C、D1：F3・・・G7：I9））に分けます。
あるエリアに任意の数字が入っていたら、そのエリアを色づけするマクロを
考えておりますが、どうすればいいのでしょうか？

途中までのコード
sub test
dim エリア(9)
For x = 1 To 9 Step 3
For y = 1 To 9 Step 3
i = i + 1
Set aa(i) = Range(Cells(x , y ), Cells(x + 2, y + 2))
aa(i).Select
Next y
Next x

end sub

こっちです。

sub test
dim aa(9)
For x = 1 To 9 Step 3
For y = 1 To 9 Step 3
i = i + 1
Set aa(i) = Range(Cells(x , y ), Cells(x + 2, y + 2))
aa(i).Select
Next y
Next x

end sub

>>219
とりあえず色をつける方法

Sub test()
　　Dim aa(9)
　　For x = 1 To 9 Step 3
　　　　For y = 1 To 9 Step 3
　　　　　　Set aa(i) = Range(Cells(x, y), Cells(x + 2, y + 2))
　　　　　　aa(i).Select
　　　　　　Selection.Interior.ColorIndex = i + 3　　' 色をつける
　　　　i = i + 1
　　　　Next y
　　Next x
End Sub

>>220
ｓｅｌｅｃｔｉｏｎ.Interior.ColorIndex = 6
でもいいかも。

Sub test()
Dim aa(9)
For x = 1 To 9 Step 3
For y = 1 To 9 Step 3
i = i + 1
Set aa(i) = Range(Cells(x, y), Cells(x + 2, y + 2))
If Application.WorksheetFunction.CountIf(aa(i), 2) > 0 Then
aa(i).Interior.ColorIndex = 6
End If
Next y
Next x
End Sub

CountIf(aa(i), 2)の2が任意の数字

サンクスです。

これから試してみます。

>>222
まだ作りかけだから、Selectした領域に対して別の処理をする可能性があるんで
あえてそのままにした。

ワークシート関数使わないとき
Sub hoge()
　 OptNum = 7 '任意の数
　 Range("a1:i9").Interior.ColorIndex = xlNone 'クリア
　 For i = 1 To 7 Step 3: For j = 1 To 7 Step 3
　 　 Set Rng = Range(Cells(i, j), Cells(i + 2, j + 2))
　 For Each r In Rng
　 　 If r = OptNum Then Rng.Interior.ColorIndex = 6: Exit For
　 Next: Next: Next
End Sub

>>217
ありがとうございました。
デフォルトではなくて規定値という言葉を使うんですね。始めて知りました。
ご紹介いただいた所を含めて、探してみましたが、
自分の作ったグラフを、雛形の1つにするというのは多数見つかりましたが、
Excelのデフォルトを変更する方法は見つかりませんでした。
ありがとうございました。

>>203, >>205, >>205, >>208, >>218
レスありがとうございます。
とても参考になりました。

毎日100行近くデータが追加されていくので、
なんとか手数の少ない方法でソートしたかったのですが・・・。

全角文字を半角になおすマクロを作ってみたら、
もう、全部マクロにしちゃった方が早くなるような気がしてきました。

みなさんのレスはとてもいいヒントになりました。

Rectangle や Ovalの図形の番号を知るにはどうすればいいですか？

>>229はまだ、アク禁解除になってないと思ってのテストで　orz

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

久しぶりに操作をするとエラーになりました。
図形番号が変更されてしまっているみたいです。
VBAを修正するために図形番号を取得する操作を教えてください。

>>229
その図形を右クリックしてマクロの登録を選ぶと図形の名前がわかるんで、
名前から番号への変換はVBAで。

>>228
一番いいのはそのファイルをアップロードすることだぜ
よってたかって最適化してくれるだろう
>>230
この1をテキトーに変数に入れてfor eachでもすれば
もしくは普通にマクロの記録
Sub Macro1()
Sheet1.Shapes(1).Select
End Sub

元々、自分で作ったマクロですが、
Activesheet.Shapes("Rectangle 54").Select
Selection.Interior.ColorIndex =22

の{54}が違ってしまっているみたいです。
マクロの登録を選んでマクロの編集をすることは出来ますが、図形の名前が
わかる方法がわかりませんので、お願いします。

すいません　わかりました　orz orz

＞全部マクロにしちゃった方が早くなるような気がしてきました

そらそーだわな

あああaaaa
いいいiiii
ううううu
えeeeeeeeeee
みたいなデータが続いていて

これをそれぞれ下記みたいに区切りたい場合どうすればいいのでしょうか？
あああ　aaaa
いいい　iiii
うううう　u
え　eeeeeeeeee

つまりひらがなとローマ字の切り離しです

>>236
関数的解決法、
=REPLACE(A1,LEN(LEFT(A1,SUM(LENB(A1)-LEN(A1))))+1,," ")

>236 セルを分けるなら A1が元データとして
B1に　=LEFT(A1,LENB(A1)-LEN(A1))
C1に　=SUBSTITUTE(A1,B1,"")
考え方は>237と同じ。

>>237-238
は文字のバイト数の違いを利用してるのですか？
私は質問者ではありませんが…

そう。あああaaaaなら10バイトで7文字。2バイト文字は3文字ある計算になる
だから3文字目の次の""(0文字の文字列)を半角スペースに置換している

>237 のNullを空白にREPLACEする方法は知らなかった。
勉強になるわ。

「Excel関数ハンドブック」的な本でLENB関数なんかが載ってるの見て
こ ん な の 誰 が 使 う ん だ よ
そう思っていた時期が僕にもありました。。。（AA略）

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

http://tenmei.cocolog-nifty.com/photos/uncategorized/2009/10/03/091003g.jpg

をエクセルをつかって計算したのですが、どうしたらいいでしょうか？

CはCOMBIN、ΣはSUMを使う。

>>244
試してみます

1 OSの種類 】 WindowsXP HOME
【2 Excelのバージョン】 Excel 2003
【3 VBAが使えるか】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 】 Vlookup
やりたいこと
例えば
A列に出席番号、B列に生徒の氏名、C列にテストの点数を入力した表を作って
その中の最高点の生徒の出席番号、氏名、テストの点数をまとめて
表の外に表示させる方法ないでしょうか
MAXでC列の最高点を抜き出すことはできるんだけど同じ行のA、B列も
一緒に抜き出したいんですが方法がわかりません
Vlookupを組み合わせてでできるような気がしてググってるけどわかりますんでした
ちなみに教師じゃありません

Ａ列　Ｂ列　　Ｃ列
番号　名前　　点数
１　　あおき　８０
２　　いとう　７０
３　　かとう　８５

最高点　３　かとう　８５←抜き出したい
こんな感じです。よろしくお願いします。

>>243です

試してみたのですが、どうしてもとけません。

B2にお見合い人数
C2に見送り人数を記入しました。

そして、>>244さんのいうとおり、変数を式ごとに作って、最後に、かけ算したのですが、政策な数値がでません。

どうしたらよいでしょうか？

>>246
仮に抜き出す場所をそれぞれ、
番号　…A6
名前　…B6
最高点…C6
とした場合、まず最高点を求める。
=MAX(C2:C4)
あとはそれを検索値として番号と名前を求める。
番号
=VLOOKUP(C6,A2:C4,1)
名前
=VLOOKUP(C6,A2:C4,2)

ごめん、間違った。忘れてちょうだい。

番号が単純に連番であるなら
A6 =MATCH(C7,C2:C5,0)
で運用できるけどこの式は番号を参照しているわけじゃない
のでちょっとおすすめはしません。

>>246
最高点が2名いた場合はどうすんの？

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

USB経由でつないでいるリムーバブルHDDに
バックアップを取る際にVBAからUSBの接続（再認識）をさせ
バックアップが完了したらUSBの接続の取り外しをしたいと思っています
EXCELのVBAで上記のようなことは可能でしょうか？

可能でしたら関数などを教えていただ期待と思っています

>>248
http://www.shinetworks.net/cgi-bin/img-up/src/1267139133267.jpg

ミスっす.........
>>246
http://www.shinetworks.net/cgi-bin/img-up/src/1267139133267.jpg

>>247
カッコ内を 1 〜 n+1-m まで作ってそれをSUMで合計しないといけない。

>>252
VBAの関数では無理。
CM_Request_Device_EjectなどのAPIを直接呼び出す必要がある。
「API」という単語の意味がわからない場合は手を出さない方がいい。

テキストボックスに今日の日付を入力しておいてボタン操作で一日送り、戻し出来るようにしてあります
フォーカスしてEnterだと連打でも押しっぱなしでもスムーズに進むのですが、
マウスクリックだとある程度間隔をあけないと反応がありません
これをマウスクリックでもスムーズに動かす方法はありますか？

http://kissho.xii.jp/1/src/1jyou106141.jpg

Private Sub UserForm_Initialize()
　　Dim i As Integer
　　For i = 1 To 5
　　　　Me.Controls("date" & i) = Date
　　Next i
End Sub
'日付プラス
Private Sub DatePlus_Click()
　　Dim i As Integer
　　myDate = Me.date1.Value
　　For i = 1 To 5
　　　　Me.Controls("date" & i) = DateAdd("d", 1, myDate)
　　Next i
End Sub

こんにちは。

無料でダウンロードできるところありますか？

>>257
急いで2回クリックするとダブルクリック1回と判断されてしまうので対策が必要。
具体的にはこうするだけ。

Private Sub UserForm_Initialize()
　　Dim i As Integer
　　For i = 1 To 5
　　　　Me.Controls("date" & i) = Date
　　Next i
End Sub

Private Sub DatePlus_Click()
　　Dim i As Integer
　　myDate = Me.date1.Value
　　For i = 1 To 5
　　　　Me.Controls("date" & i) = DateAdd("d", 1, myDate)
　　Next i
End Sub

Private Sub DatePlus_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
　　DatePlus_Click
End Sub

>>258
ttp://ja.openoffice.org/

>>257
トグルの方がいいよー

Excel2003SP3を使っています。
ｘｌｓファイルに変更を加えて保存をしようとすると、
以下のエラーが表示されてしまいます。

「共有違反のため保存されませんでした。別のファイルに保存し直してください。」

同じファイルで毎回発生するわけではなく、
他のファイルなども触っていて１日１回くらい見かけます。
別名で保存してリネームしていますが、気持ち悪いです。

ネットで検索してみてもいまいち原因がわからないのですが
なにか解決策はありませんか？よろしくお願いいたします。

>>243です

http://tenmei.cocolog-nifty.com/photos/uncategorized/2009/10/03/091003g.jpg

B2＝n
C2=m
D2=成功確率
として変数にしました。

そして、D4=SUM(1,B2+1-C2)
　　　　　D5=COMBIN(B2,C2)
D6=COMBIN(B2-2,C2-1)

として　D2=D4/D5*D6としました。

これだとトンチンカンな答えしか出ません。どうしたらいいでしょうか

>>263
まずは算数の教科書をよく読んで、Σの意味を調べなさい

A1に「セピア色」と入力した時、
C3:F30のデータ範囲にある、A1と同じ値・文字の「セピア色」と
入力されているセルを色付けされるようにするのはどうすればいいのでしょうか？

>>265
条件付き書式で=(C3=$A$1)

>>259,261
ダブルクリックになってたとは思いつきませんでした
トグルボタン試してみましたがうまく書けなかったのでダブルクリックイベントを止める方法にしました
ﾚｽありがとうございました

1.WinXPsp3
2.excel2003
3.いいえ


質問させて頂きます。
エクセルのファイルが壊れやすくなったため、
今あるエクセルデータをコピーして新しいエクセルに貼り付けしようと
したのですが、1つのセルに文字数が多いものは、途中で切れてしまします。

そこで、コピー→右クリック→形式を選択して貼り付け→値→OK
↑
としたいのですが、なぜか変なウィンドウ(名前は形式を選択して貼り付け)が
表示され、真ん中に貼り付け、リンク貼り付け、アイコンで表示のラジオボタンが表示
されてしまうのですが、これをコピー→右クリック→形式を選択して貼り付け→値→OK
のようにするにはどうすれば宜しいでしょうか？

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

エクセルのタブが増えすぎて管理に困ります。。
横一列に並ぶのではなく、縦一列に並べることってできませんか？

>>269
当方環境2002ですがシートタブの横の|？ ？ ？ ？|（シート選択の三角のボタン）
を右クリックすると既存のシートタブとは別にシート名が縦に表示され選択
出来ます。
2007で出来るかどうか解りませんがお試しを。


|？ ？ ？ ？|　←　文字化けするかも。

>>263
をエクセルでやることは無理ってことですか？

>>271
VBA組めばできるけど、俺の知識じゃ2時間くらいかかりそうだから他の人に任せてる

データAを別の規則性のあるデータBに置き換えるにはどうすればよでしょうか？

例：あるテスト（100点満点）の点数にランクを付けたい（点数：ランク）
0〜34：E　35〜49：D　50〜64：C　65〜84：B　85〜94：A　95〜100：S

>>268
値貼付けはよく使うから（俺だけか？）
ユーザー設定で値貼付けアイコンを
コピペアイコンの横に置いておく事を
お勧めします。
形式を選ぶ手間がなくて便利だよ。

>273
=IF(A1<35,"D",IF(A1<50,"C",IF(A1<85,"B",IF(A1<95,"A","S"))))
とか
=INDEX({"D","C","B","A","S"},MATCH(A1,{0,35,50,85,95}))

あ、６５が抜けてしまった。
自分で補完してね。

>>273
>>275のINDEXとMATCHと同じだが
=LOOKUP(A1,{0,35,50,65,85,95},{"E","D","C","B","A","S"})
=LOOKUP(A1,{0,35,50,65,85,95;"E","D","C","B","A","S"})
など。
普通はシートに表を作るけどな。

決められた数字を入力すると、決められた文字が入るってやつ、ナニ関数っていうんでしたっけ？

例えば
「１」って入れたら「テンプレ嫁」って入力されたり、
「2」って入れたら「ggrk」って入力されたり

予め
１　テンプレ嫁
2　ggrk

って作成して、それを参照させる関数

VLOOKUP() じゃね？
=VLOOKUP(検索のキー、検索表の範囲、検索表の左から何列目を返すか、検索方法）
もっとも>>278のように2行2列の表ならVLOOKUPじゃなくても良いだろうけど。

>>279
ありがとう
名前が分ればググれるので助かりました

ちなみに表は、20行2列です

あれれ？
自分が入力するセルと、返す文字列って、左右隣同士の関係じゃないとダメなんでしたっけ？

この制約は絶対？

んなこたーない。

>>274様

ありがとうございました！
本当に感謝します！！

>>262
再インストール
>>271
正直それが何を意味するのか忘れた。数列だっけ?
エクセルでできんことはないと思うよ。多分。
>>281
検索表の範囲からはみ出てるか、検索方法をTRUEにしてるのに昇順になってないか(分からなければFALSEにしておけば大体ok)
辺りでおかしくなってると予想

>>282
>>284

ごめん、諦めちゃった

>>274
アイコンクリックする手間よりSCの方が早いけどな

>>284
レスありがとうございます。
この現象、再インストールが必要なのですか？
とりあえず再インストールを試せというレベル？

>>287
>284じゃないがソフトの動きがおかしくなったりエラーが出やすくなったりしたら
再インストールとかシステムの復元で数日前にさかのぼるのは常套手段ですよ。
ただ、システムの復元するときは必ずバックアップをとっておこう。

【1 OSの種類 　 　 　 　 .】 Windows7 Pro 64bit
【2 Excelのバージョン 　 】 Excel 2010
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
Excelで作成したグラフをPowerPoint2010上で使用する場合、グラフの曲線1つ1つにアニメーションを設定するには
どうすればよいででしょうか？
系列別などを選択してもスライドショーで表示されない上、項目別にするとPowerPointが強制終了してしまいます。

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

一つのセルに「今、≪≫時」と表示させたいです。
≪≫に他のセルで計算した結果を表示させたいです。
よろしくお願いします。

>>290
="今"&HOUR(A1)&"時"
分はminute関数など

>>289
2010はまだβ版だから、バグの可能性大。

>>270
すごい！初めて知った
横にだらだらシートが入ってるときにはらくちんですね
つうか文字化けｗｗｗ

質問です。よろしくお願いします。
ＸＰ．エクセル2007。

ＶＢＡで、
シート3のＡ10に　シート1のＡ1　+　　シート2のＡ1　　の解を入力したいのですが。

どのようにプログラムすれがよいのでしょうか？

　同じシート内であればわかるのですが、別のシートのＡ1の指定のやり方が解りません。

教えてください。お願いします。

マクロの記録

Worksheets("sheet3").Range("a10").Value = Worksheets("sheet1").Range("a1").Value + Worksheets("sheet2").Range("a1").Value

まあ、普通はこんな長ったらしくは書かないけど。一応基本のキ

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel 2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 未検索です
EXCALを勉強し始めて２ヶ月、本を数冊読みながら↓関数を作ったのですが…
=IF(AND(IF(ISERROR(VLOOKUP($C8,全04,1,FALSE)),TRUE,ISTEXT(VLOOKUP($C8,全04,I$5,FALSE)))
,IF(ISERROR(VLOOKUP($C8,偽問,1,FALSE)),TRUE,ISTEXT(VLOOKUP($C8,偽問,COLUMN(),FALSE)))
,IF(ISERROR(VLOOKUP($C8,偽★,1,FALSE)),TRUE,ISTEXT(VLOOKUP($C8,偽★,COLUMN(),FALSE))))
全04・偽問・偽★の3ｺのシートにC8が存在するか
存在した場合検索値は文字か？
,"無"・3ｺのシートに存在しなかった＆存在したが検索値が文字だった
,SUM(IF(ISERROR(VLOOKUP($C8,全04,I$5,FALSE)),0,VLOOKUP($C8,全04,I$5,FALSE))
全04にC8が存在しないなら0、存在するならI5列の検索値を持ってくる
,IF($CJ8="解除",0,IF(ISERROR(VLOOKUP($C8,全04,I$6,FALSE)),0,VLOOKUP($C8,全04,I$6,FALSE)))
解除なら0・全04にC8が存在しないなら0、存在するならI6列の検索値を持ってくる
,SUMIF(問!$A$11:$A$4051,$C8,問!I$11:I$4051),SUMIF(★!$A$11:$A$712,問!$C8,★!I$11:I$712)))
同じ物・（いろは）+（いろはコピー）＋（いろはコピーコピー）をいろはで集計する
っとありえない程の長文になってしまいました…
普通こんなに長い関数なんか使わないんですか？
それとも、もっと関数を短くするコツなんかがあるんでしょうか？
会社のＰＣでは重くて動かなくなって泣きそうです…
もし宜しければご意見をください

>>296
サンキューです。ありがとうございました。

>>297
読む気にならないよ(´・ω・｀)

>>299
すいませんでした、内容を簡潔に変更して！
【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel 2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 未検索です
EXCALを勉強し始めて２ヶ月、本を数冊読みながら↓関数を作ったのですが…
=IF(AND(IF(ISERROR(VLOOKUP($C8,全04,1,FALSE)),TRUE,ISTEXT(VLOOKUP($C8,全04,I$5,FALSE)))
,IF(ISERROR(VLOOKUP($C8,偽問,1,FALSE)),TRUE,ISTEXT(VLOOKUP($C8,偽問,COLUMN(),FALSE)))
,IF(ISERROR(VLOOKUP($C8,偽★,1,FALSE)),TRUE,ISTEXT(VLOOKUP($C8,偽★,COLUMN(),FALSE))))
,SUM(IF(ISERROR(VLOOKUP($C8,全04,I$5,FALSE)),0,VLOOKUP($C8,全04,I$5,FALSE))
,IF($CJ8="解除",0,IF(ISERROR(VLOOKUP($C8,全04,I$6,FALSE)),0,VLOOKUP($C8,全04,I$6,FALSE)))
,SUMIF(問!$A$11:$A$4051,$C8,問!I$11:I$4051),SUMIF(★!$A$11:$A$712,問!$C8,★!I$11:I$712)))
っとありえない程の長文になってしまいました…
中身の内容は兎も角、普通こんなに長い関数なんか使わないんですか？
それとも、もっと関数を短くするコツなんかがあるんでしょうか？
会社のＰＣでは重くて動かなくなって泣きそうです…

>>300
このままだと何をしているか さっぱり分からんけど

ワークセルを用意できるなら
複数のセルに数式を分割した方がよいかも

単純な例で申し訳ないけど
B3 =A1+A2+A3+A4
だと
B1 =A1+A2
B2 =A3+A4
B3 =B1+B2
てな感じで

内容解読する気もないけど、

＞普通こんなに長い関数なんか使わないんですか？

メンテが大変だからできるだけ作業列を使う。（他の人が分かる、という以前に自分がわからなくなる）

＞関数を短くするコツなんかがあるんでしょうか？

慣れもあるからね・・・センスも

＞会社のＰＣでは重くて動かなくなって泣きそうです…

vlookupは重くなる。仕方がない。

解読する気はないけどさ、
＞(IF(ISERROR(VLOOKUP($C8,全04,1,FALSE)),TRUE,ISTEXT(VLOOKUP($C8,全04,I$5,FALSE)))
ココらへん読むと変。ちょっとあり得ない（？）式の作り方をしている

>>288
レスありがとうござます。
そうしたいところなのですが、会社のPCなのであまり勝手なことはできないのです。
せめてそれが原因とわからないと。。

詳しいと思われる人に調べてもらってもWebにもあまり確からしい情報がなくて；；
再インストールはできるのか、聞いてみます。

もし原因や対策に心当たりある方いらっしゃったら教えてください。

>>301
>>302
レスありがとうございます
作業列を別のシートで作成して分割するのが良いのですかね…
過去１０年のそれぞれの月の商品の売上の一覧作成を言われたのでが…
商品の品番($C8)が価格変更・仕様変更・統合などで、ころころ変わってるのですよ…
今現在が｢AAAA｣で過去に｢A｣｢AA｣｢AAA｣があり、
それを｢AAAA｣を見たときに全てを合計してないとだめなんですよね…
04年8月迄は｢A｣であったが04年9月〜は｢AA｣に…って感じです
しかも04年9月〜のデータでは｢A｣自体が一覧に存在しなくなるのです
なので各年の品番量もばらばらでVLOOKUPでしか検索できない（と思い込んでるだけかも？）
始末です。
もう少し頭を絞ってなんとか頑張ってみようと思います。
ありがとうございました。

>>297

|∧∧
|･ω･`) そ〜〜・・・
|ｏ旦ｏ
|―ｕ'


|　∧∧
|(´･ω･`)
|ｏ　　 ヾ
|―ｕ'　旦 <ｺﾄｯ

￣￣￣￣￣￣￣￣


| ミ 　ﾋﾟｬｯ!
|　　　　旦

会社のデータだから、そのまま貼れとは言えんが、
エクセルデータ(jpgでもおｋ)をうｐしてやりたいことを教えてくれ

>>305
やさしいなｗ

助けてあげたいのは山々なんだけど、（というか、ここの回答している人はそんな奴ばっかりだと思う）
何をしたいんだか分かんないんだよね。

品番が変わっているのは大元を直すのが吉・・・だと思う。

>>304
質問はあんまり見てないけど、一旦古い名前を現在の名前に置き換える表を作るのがいいかと・・
http://www1.axfc.net/uploader/File/so/39600.xls
パスは1111

>>304
AとAAとAAAとAAAAの合計は
=SUMIF(範囲,"A*",合計範囲)
になるが、こんなことじゃねーのかな。
でも多分ピボットテーブルでやるべき問題っぽいな。
AAAAとかAAAとかAAの左1文字を作業列に取り出せばいいし。

やりたいこと分らんから全然的外れかも知らんけど。

VLOOKUP（？）について質問です

あんぱん
あんドーナツ
あんこまんじゅう

↑こういうデータがあったとき、「あん」まで入力したら、
検索候補が出てくるとか、そういう機能ってありますかね？

それか、

あんぱん
どら焼き
せんべえ

↑こういうデータがあったとき、「あん」まで入力したら、
勝手に検索結果を補完してくれるとか、そういう機能があれば知りたいですm(_ _)m

みなさんレスありがとうございます。
ご意見いろいろ検討させて頂いています
検討中で弄繰り回す前のかなりのデータをスポイルしたデータを
ttp://www1.axfc.net/uploader/Sc/so/87601
DLLPASS　123
にアップしてみました…（アップロダ使うのも初めてでした）
もし、お時間があるようでしたら覗いて頂けると嬉しいです

>>310
上はオートコンプリートだな。ツール→オプションノ中に設定項目がある
A1-A3に予め入力しておけばA4で出てくる。
下はリストか
データ　入力規則　設定タブ　「入力値の種類」をリスト　「元の値」をあんぱ,どらや,せんべ
と入れておけば選択できるようになる

>>311
・vlookupを使わない。代わりにindex+matchを使う。例えばA:Eを参照している場合、vlookupだとA:E全てを参照するがindexmatchだとAとE列だけになる。はず。このシートの場合、多分一番効果が高い
・無、と書いてるセルは0に置き換える。そうすればtextがどうだのという判定をしなくて済む
・名前の変更履歴専用のシートを作り、そこからひっぱるようにする。重くなるがメンテナンス性は向上する
・後はコピーして値にしているなら、年度ごとにブックを分ける
・新規ブックを作ってそこにコピーする。劇的に軽くなる場合がある
・VBAを極めれば数式は不要、最高に軽くなるがあまりオススメできない
あとはパソコンの問題だけど
・tempファイルを削除する。劇的に軽くなる場合がある
・デフラグ等してみる。
・メモリを増設する
等
なんにしろ問'T8、AF8セルの内容が重すぎるんだと思う

>>304
>商品の品番($C8)が価格変更・仕様変更・統合などで、ころころ変わってるのですよ…

実務のデータなんてそんなもんです。
法則性なんてないものと思うべき。
変換テーブルを参照するのが確実でしょう，

>>304
そういうときは集計用の商品コードをひとつ、自分用につくんないとだめだね
自分用の商品コードを０１２３とすれば
A　0123
AA　0123
AAA　0123
て感じで表にしておく

>>313
拙い処理をわざわざ見て頂いて感謝の言葉もありません…
>vlookupを使わない。代わりにindex+matchを使う。
只今、本で使い方を確認中です。参照範囲を小さくすれば確かに軽くなりそうですね
無に付いては発売された年月を認識させてるので必要なのです。
06年3月〜の新商品は〜06年2月が無になるって認識です。

>名前の変更履歴専用のシートを作り、そこからひっぱるようにする。重くなるがメンテナンス性は向上する
>>308
での例を頂いたのを参考に模索中です。
その他色々と試してみようと思います。

ＶＢＡに付いては、もう少し勉強してから手を出して行こうなどと考えてるのですが
難しそうですね

手を変え品を変え色々考えて過不足無く動くように関数を組んで行くのって
パズルみたいで楽しいですね
技術が付いていってませんが…
本当にありがとうございました。

vlookupで出された参照先に飛ぶ方法ってありますか？

>>317
HYPERLINK(VLOOKUP( , , ))

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

オートフィルで
02_あいさつ_01.mp3
02_あいさつ_02.mp3
02_あいさつ_03.mp3
のようにしたいのですが

02_あいさつ_01.mp3
02_あいさつ_01.mp4
02_あいさつ_01.mp5
になってしまいます。どうっしたらいいか教えて下さい。

>>319
="02_あいさつ_"&TEXT(ROW(A1),"00")&".mp3"
として下にオートフィル。
その後、コピー→形式を選択して貼りつけで「値」

復活age

これって復活してるの？

復活オメ！
YouTubeでどうにか閑を潰してたよ。

>320
うっひょーーーーできました！！！
ありがとうございます
凄く助かりました！！！！

集計して間違って保存してしまったら
もうもとのシンプルな表には戻せませんか？

>>325
データ　集計　の左下に全て削除があるからそれをクリック

質問をいくつか
１、Excel2007で作成したXLSXファイルは2003ではどうやっても開けないのでしょうか？

２、Excel2007でいろいろ書いたVBAはExcel2000などでも使えるのでしょうか？

３、あるExcelファイルで作成したマクロ（たとえば線を引くとか並び替えなど）を
他のExcelファイルでマクロの内容をコピペしなくても使う事は可能でしょうか？
たとえばデスクトップにaaa.macみたいにそれを実行すればみたいな形で
もし可能であれば教えてください

４、Excelで行をひとつのセルにまとめる
あああ
いいい

ううう
のようなデータがあった場合行間が詰まっている複数行を一つのセルで改行させた状態のまままとめたいのですが
教えてください
現在は秀丸などで""をいれてコピペしているのですが
如何せんデータが多いのでもしExcelだけで可能であれば教えてください

>>327
＞１
「Microsoft Office 互換機能パック」を使えば制限付きで開ける。

>>327
2.使えないこともたまによくある
VBAもバージョンアップしたりダウンしたり変更したりする。
エクセルの機能(ソート・ピボット辺り)が互換性がやや低いような気がする
使ってみないとわからん
3.
http://www.vbalab.net/vbaqa/c-board.cgi?word=Application.Run&way=0&target=all&view=0&id=excel&cmd=src&x=24&y=8
4.改行はchr(10)。macだとchr(13)かも。以下A1:A4の結合
Dim fuku As String
Dim i
Sub a()
For i = 1 To 4
If Cells(i, 1) <> "" Then
fuku = fuku & Chr(10) & Cells(i, 1)
End If
Next
Cells(2, 1) = fuku
End Sub

>>327
あと言い忘れたけど、わたしは名前が複乳でおっぱいが二つあるけど男性ですから。

お久しぶりです＞＜

デスクトップに特定名前のフォルダがない場合は、
その名前のフォルダを作る

っていうマクロを組みたいんです＞＜
教えて下さい＞＜

ちなみに2000です＞＜

>>330
複乳はそんなこといわない
>>331
otinをﾃｷﾄｰに変えてね
Sub fuku()
Dim oman As String 'ﾓｸﾃｷﾉﾌｫﾙﾀﾞﾒｲ
oman = "otin"
Dim Path As String, WSH As Variant 'ﾃﾞｽｸﾄﾂﾌﾟﾉﾊﾟｽ
Set WSH = CreateObject("Wscript.Shell")
Path = WSH.SpecialFolders("Desktop")
If Len(Dir(Path & "\" & oman, vbDirectory)) <= 0 Then
MkDir Path & "\" & oman
End If
Set WSH = Nothing 'ﾃﾞｽｸﾄｯﾌﾟﾉﾊﾟｽｶｲﾎｳ
End Sub

>>332
ありがとうございやした＞＜

エクセル初心者なんですけど、
列からと行から、アクティブセルまで（交差するところまで）色をつける方法を
教えて頂けませんか？宜しくお願い致します。
【1 OSの種類 　 　 　 　 .】 Windows　xp
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 いいえ

>>334
VBA使わないと無理だよー

>>334
ctrl+shift押しながら上下左右キーを押すと、
端まで一気に選択できる。その状態で色つけるとか。じゃなきゃvbaだな

>>335,336さん、ありがとうございます。
お差し支えなければ、ＶＢＡのソースを教えていただけませんか？

>>337
何列目か分からないし何色か分からないし
↓のサイトでマクロの記録覚えるといいよ。コードが分からなくても出来る
http://www.google.co.jp/search?hl=ja&q=vba%E3%80%80%E5%88%9D%E5%BF%83%E8%80%85%E3%80%80%E3%83%9E%E3%82%AF%E3%83%AD%E3%81%AE%E8%A8%98%E9%8C%B2&lr=lang_ja

http://up3.viploader.net/ippan/src/vlippan073820.png

334はこういうふうにしたいんじゃないの？

>>337
できたよー

エクセル開いて→Alt+F11→使いたいシート名をダブルクリック
右側に出てくる白いスペースに↓をコピペして保存。

なんかトラブっても責任は負いませんー。


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Cells.Interior.ColorIndex = xlNone

Dim X, Y As Long

X = ActiveCell.Column
Y = ActiveCell.Row

With Range(Cells(Y, 1), Cells(Y, X)).Interior
.ColorIndex = 38 '←ここで色を決める。
.Pattern = xlSolid
End With

With Range(Cells(1, X), Cells(Y, X)).Interior
.ColorIndex = 38 '←ここで色を決める。
.Pattern = xlSolid
End With

End Sub

>>338
これから勉強させていただきます！ありがとうございます。

>>339
その通りでございます！ビンゴ！

>>340
さっそく試してみました。うまくいきましたが....
ブックを保存するときに、次の機能はマクロなしに保存できませんという
メッセージが出ました。ＴＴ
どのようにしたら良いのでしょうか？

そうか、A2:D4みたいな範囲と思ってたぜ

>>334
そういうことはやらない方がいいな
ど下手がVBAでSelectionChangeイベントでやっても、ほとんど使いもんにならないよ
たとえばこんなのはとても使い物にならん

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlColorIndexNone
With Target
　　Range(.EntireRow.Cells(1), .Cells).Interior.ColorIndex = 40
　　Range(.EntireColumn.Cells(1), .Cells).Interior.ColorIndex = 35
　　.Interior.ColorIndex = 38
End With
End Sub
希望はWith TargetじゃなくWith ActiveCellかも知らんが、いずれにしても使えない
ためしに一度最終行に飛んでから前に戻って見ればわかる
工夫すれば使えないことないけどな

ちょっと遅かったか。
>>340
それも同じく使い物にならんよ
試しに最終行に一度飛んでみなよ
それに変数宣言間違ってるぞ
それだとXはVariant型だ

>>344
間違った宣言しても動くVBAって頭いいよね。
気をつけますー。


>>341
次の機能はマクロなしのブックに保存できません
http://pasofaq.jp/office/excel/savexlsm.htm

>>343が使い物にならないのはこの部分な
Cells.Interior.ColorIndex = xlColorIndexNone
>>340も同じだ
これじゃ一度後ろに飛ぶと途端に重くなる
ここを工夫すれば使えないこともない
ActiveSheet.UsedRangeをかます手もあるが、それ自体が2007は少し時間がかかるから最善じゃない

>>346
ほんとだー。奥深いね。

>>334
望んでる物とはチョット違うがこんなやり方もある

http://www.relief.jp/itnote/archives/001406.php

選択したセル全体に「田」で太枠、
つまり格子の太枠を引きたいのですが、
現状だとどうしても右クリック→書式設定→罫線で
それぞれ太枠を選択にしているのですが
はっきり言って面倒くさいです。

これをVBAを使わずにボタンを押下するだけで線を引く事は可能でしょうか？
つまり罫線ボタンのカスタマイズとかって可能でしょうか？

もっといえば周りだけ太枠で横線は点線、縦線は実践とかも実現したいです

>>349
「線のスタイル」で太線を選んでから「罫線グリッドの作成」でできる
後者はVBA使わないと無理

>>349
オートフォーマットとかもご参照あれ。

【1 OSの種類 　 　 　 　 .】 XPpro
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 Excel vlookup 参照できない　" " 等々

二つのシートA,Bに共通の番号(数字10桁程度)を持った3万行程度の表があり、
AのシートでAの番号をVLOOKUPで参照し、Bの表の同番号をひっかけて
Bの表の列をAの表に加えたいのですが（ごく普通の使い方と思います）、
なぜか#N/Aになってしまいます。
Aの番号を書式設定で標準、文字列等にしたり、TRIM⇒コピー⇒「値だけ貼付け」しても
変わりません。
気になるのは、Aの数字をコピーしてCTRL+Fで検索BOXをだすと、プリセットされている値が、
XXXXXXとならず、"XXXXXX "となります（コーテーションで挟まれ後ろに半角スペースが入ってる）。
Aの数字を手入力しなおすと正常に反映されることはわかったのですが、
3万行を手入力する気にはなれず、何か確認するところや、解決策はないでしょうか？

>>352
作業列を作り、TRIM関数でスペースを消す。
セルの書式が文字列か何かになってる可能性があるので標準に戻して、
作業列を形式を選択して貼り付け、値。

>>353

回答ありがとうございます。
でもそれは試し済みでだめでした。セルを選択⇒F2では確かに見た目通りの値でスペースはないし、
LENBでも正しい桁数がでるのですが…

>>352
書式が「数値」だとそうなるねぇ
vlookupの最後の引数がTRUEか未入力になってない?FALSEにするとうまくいくかも

あと=A1=B1と入れるとA1とB1が等しい場合にTRUEと表示される
数値が等しくTRUEが変えるならvlookupの引数、FALSEが返ってきてるなら>>353のようにTRIMで空白削除等の必要があると思う

さて、もう寝ますね。また明日の朝見に来ます
ほんわかぱっぱー、ほんわかぱっぱ、ードーラえもん

>>352
TRIM関数がダメであればREPLACE関数で" "→""へ置換する方法がいいかも。
ただ、元々付いているその半角スペースですが、キーボードから打ち出す
半角スペースとはちょっと違う種類の半角スペースかもしれないので、
元々付いている半角スペースをコピペして使用してみてください。（経験談）

>>352
＞Aの数字を
文字列→数値化するのに簡単な方法は*1ってやれば数値化します。
>>357との合わせ技で=REPLACE( )*1なふうに使用してみてください。

Chr(160)のスペースはたまに見るね。
あれ、なんで混入するんだろね。

[ ]
=MID(A1,2,1)
=CODE(A2)

をコピペでなるかな。

助けてください＞＜

とあるシートを新しいブックにコピーしてデスクトップに保存させてます。
ここまでは組めたのですが、

それをメールに添付させ、宛先まで入れたいんです＞＜

教えて下さい＞＜2000です＞＜

>>361
ttp://www.ken3.org/vba/backno/vba078.html

>>362
ありがとうです＞＜

【1 OSの種類 　 　 　 　 .】 WindowsXP Home
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 C2=IF(COUNT(A2:B2),SUM(C1,A2,-B2),"") A2数式　等

この場合C1に数字が入ってて、A2,B2に数字がない場合C2は空白になりますが
A2にA2=A1の数式が入っていて0を表示させない仕様場合(A1は空白）C2には数字が表示されてしまいます。
この場合でC2の数字を表示させたくないのですが、そんな数式はありますか？

宜しくお願いします

>>364
さらにIF(A1<>"" という条件を追加すればいい

>>365
有難うございます。
この件は解決しました。

私の計算式がおかしいかったのでもう一つ質問なのです
C2=IF(COUNT(A2:B2),IF(A1<>"",SUM(C1,A2,-B2),""))で解決した分なのですが
A1がA1=D1+D3+D5だった場合、C2を表示させたくない場合どうしたらよろしいでしょうか？

申し訳ありませんが、宜しくお願いします。

>>366
さらにIF(A1<>D1+D3+D5 という条件を追加すればいい

皆さんありがとうございました。
解決しました。
結局謎の空白は削除できなかったけど、
LENBとLEFTの組み合わせで（桁数が一定でないので）
最後の空白を除いて抜き出せました。
あの空白はなんだったんでしょ？

>>367
有難うございます。

C2=IF(COUNT(A2:B2),IF(A1<>D1+D3+D5,SUM(C1,A2,-B2),""))で数式を入れたら
D1,D3,D5に数字を入力してもC2は何も表示されなくなりました...orz

>>369
少しは自分で調べるとかしないの？

>>370

ググって判ってるなら書き込んでませんが

>>359
32番はアスキー、160はシフトjisかその辺じゃないかな。ユニコードかもしれん
>>371
だよな！どうせなら私はバカですwwwとか書き込んだ方がいいぜ！

>>365 >>367 >>370
他のifの計算式を入れたら解決しました。
有難うございました。
ご迷惑をお掛けしました。

これはひどい

　　　　出来高　　　　騰落率　　プラス　　変わらず　　マイナス
　　　　　Ａ　　　　　　　Ｂ　　　　　Ｃ　　　　　　Ｄ　　　　　　　Ｅ
１　　　　５０　　　　　　９％
２　　　　８０　　　　　　６％
３　　　　１０　　　　　　５％
４　　　　８０　　　　　　３％
５　　　　３０　　　　　　０％
６　　　　３０　　　　　−１％
７　　　　７０　　　　　−３％
８　　　　６０　　　　　−６％
・　　　　　・　　　　　　　・
・　　　　　・　　　　　　　・
株価でこんなデータ配列がありまして騰落率（上から高い順に並んでいます）がプラスの場合は
左セルの出来高をプラスの列に、変わらずの場合は変わらずの列に、マイナスの場合は
マイナスの列にそれぞれコピーさせるにはどうすればいいのでしょうか。
今までは手でチマチマひとつひとつ移動してたのですかもっと楽な方法はありますでしょうか

　　　　出来高　　　　騰落率　　プラス　　変わらず　　マイナス
　　　　　Ａ　　　　　　　Ｂ　　　　　Ｃ　　　　　　Ｄ　　　　　　　Ｅ
１　　　　５０　　　　　　９％　　　　５０
２　　　　８０　　　　　　６％　　　　８０
３　　　　１０　　　　　　５％　　　　１０
４　　　　８０　　　　　　３％　　　　８０
５　　　　３０　　　　　　０％　　　　　　　　　　　３０
６　　　　３０　　　　　−１％　　　　　　　　　　　　　　　　　　３０
７　　　　７０　　　　　−３％　　　　　　　　　　　　　　　　　　７０　　
８　　　　６０　　　　　−６％　　　　　　　　　　　　　　　　　　６０　
・　　　　　・　　　　　　　・
・　　　　　・　　　　　　　・
こんな感じに並べたいのです

【1 OSの種類 　 　 　 　 .】 WindowsXP Pro　
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ　
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 マイナスならば隣のセルを選択・・とかどう言葉で検索していいのか分かりませんでした

すいません書き忘れました

>375

IF

>>376
C1 =IF(B1>0,A1,"")
D1 =IF(B1=0,A1,"")
E1 =IF(B1<0,A1,"")

※　ただし、Ｂ列が文字列での％表示でないこと。

ありがとうございます！
出来ました！

テーブルの中のデータを移動するには、一度テーブルを解除しないといけないのでしょうか？

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

ａ１セルに１　ｂ１セルに２　を入れた時、　ｃ１セルに（ａ１＊ｂ１）を入れたとします。
ｃ１セルをドラッグしてｃ２にした時、普通は（ａ２＊ｂ２）となりますよね？
そこを（ａ２＊ｂ１）にしたい（要はｂ１を固定にしたい）場合はどうしたらいいでしょうか？

初歩的な質問で申し訳ありません。２年程Ｅｘｃｅｌから遠ざかってたらこんなことまで
わからなくなってしまいました。よろしくお願いします。

>>381
C1のセルのB1を、$B$1にする
F4押せばいい

>>３８２
ありがとうございました。

こんなことまで忘れてたなんて・・・

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

すみません。
ミニツールバーですが、完全に非表示させれないのでしょうか。
便利な機能ではあるのですが・・・・。

オプションで、表示するのチェックを外したのですがまだ表示されます。

くだらない質〜スレに書いたほうがいいのかわからなかったので、
こちらに書きました。

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

[あああ]いいいううう[えええ]
こういうセルがある場合
[]内にある文字列だけを赤くする方法とかあるのでしょうか？

>>385
その文字を選択して「フォントの色」ボタンを押す

【1 OSの種類 　 　 　 　 .】 WindowsVista　cpu core2 2.13G
【2 Excelのバージョン 　 】 Excel2010 ,Excel2000
【3 VBAが使えるか　 　 .】 はい

Excel2000で作ったVBAの動作確認のため、Excel2010のベータをインストールしました。
動かしてみると、フィルタの検索結果がでるまで恐ろしく遅いんです。
1万件の住所録で、一文字でのフィルタ抽出をしたばあい、Excel2000だと一秒なのに、
Excel2010だと30秒もかかってしまいます。そういうものなのでしょうか？
なにか対応方法がありますか？

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

折れ線グラフを作りたいと思っています。
例えば以下のように複数の行になっているデータがあるとします。
　　A　　B　　C
1　23　 34　 54
2　21　 43　 65
3　11　 23　 54

このとき、以下のようなデータがあるのと同じような折れ線グラフを作りたいと思っています。
　　A　　B　　C　 D　 E　 F　 G　 H　 I
1　23　 34　 54　21　43　65　11　23　54

つまり、複数の行に分かれているデータを、一本の折れ線グラフとして表現したいのですが、
こういう場合は、新たに表を作り直すしかないのでしょうか？
よろしくお願いします。

>>386
すいません
言い方がまずかったです

一つのセルで[]が結構数があったり
そのセルが複数行あったりするので
できれば自動的に一気に変換させたいのですが

>>389
エクセルにはその機能はない。
置換でセル自体を赤くすることは出来るけれど、一部の文字だけは無理ぽ

vbaなら出来るけど。

1行内のセルを多数メモ帳にコピペしたいんですが
セル間は空白も改行もなしでそのままくっつけたいんです。
どうすればいいですか？

そのままコピペするとtabで区切られているようです

>>391
あらかじめひとつのセルに入れておいてからコピペしたら？

>>390
VBAでお願いします

>>393
いや、データは他からインポートしたものをexcelで関数処理したあとのものなので、不可能です。

それとも
1つのセルにくっつける関数か機能がexcelにあるのですか？

ためしにセルの結合をやってみたら、最初のセル以外全部消えたしｗ

そのセルは100個近くあるので
=A1&B1&C1&D1&・・・・・・
とやるのも非現実的です。

>>398
メモ帳に貼り付けて
正規表現で改行なら\n、タブなら\tで空白に置換すればいいじゃん

>>399
その円記号みたいなのはなんですか？
まあ、自分で調べてみます。

複数の文字列の結合は、これからexcelを使ううえで頻繁に使いそうなので教えて欲しいのですが
excelで複数の文字列の結合はできますか？

concatenateというのを見つけたけど
=concatenate(A1:Z1)
とタメシニってみたけど、A1のセル1個しか表示されず、結合できないです

>>394
他の文字は黒だとして
Sub aaa()
Dim r
Dim cl As Integer
Dim flg As Boolean
Dim s As Long
For Each r In Range("a:a")
cl = 1
flg = False
For s = 1 To Len(r.Value)

If Mid(r.Value, s, 1) = "[" Then
cl = 3
End If
If Mid(r.Value, s, 1) = "]" Then
flg = True
End If
r.Characters(s, 1).Font.ColorIndex = cl
If flg = True Then
cl = 1
flg = False
End If
Next s
Next r
End Sub

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


EXCELの表を元に年度別のグラフを作成したいのですが、
イマイチ要領がつかめません。


縦軸に金額
横軸に場所


3000
2500
2000
1500
1000
0500　■
　　　　09　10＿09　10＿09　10＿09　10＿09　10
　　　　○○市　○○市　○○市　○○市　○○市

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

すみません、途中で投稿してしまいましたorz

EXCELの表を元に年度別のグラフを作成したいのですが、
イマイチ要領がつかめません。


縦軸に金額
横軸に場所


3000
2500
2000　＿　□　＿　□
1500　＿　□　■　□
1000　■　□　■　□
0500　■　□　■　□
　　　　09　10＿09　10＿09　10＿09　10＿09　10
　　　　○○市　○○市　○○市　○○市　○○市

こんな感じでグラフにしたいのですが・・・・。

>>385
こうゆうやり方もある

Sub TEST()
Dim r As Range
Dim Start As Integer
Dim Size As Integer
Dim Moji As String

For Each r In Range("A1:E100")
　Start = 1
　Moji = r.Value
　Do
　　Start = InStr(Start, Moji, "[") + 1
　　If Start = 1 Then Exit Do

　　Size = InStr(Start, Moji, "]") - Start
　　If Size < 0 Then Exit Do

　　If Size <> 0 Then
　　　　r.Characters(Start, Size).Font.ColorIndex = 3
　　End If
　　Start = Start + Size
　Loop
Next
End Sub

ExcelのVBAで、テキストファイル(拡張子txt)自動編集はできますか？
したいのはあるフォルダにある複数のtxtファィルのそれぞれに対して、最後から2行目に行(と語句)を追加したいだけなのですが。

>>405
できます

>>400
作業列(作業行)を使って1つずつ結合していくという方法がある。
A2に=A1、B2に=A2&B1と入れて、B2を右にコピーしていくと、順に結合した文字列ができあがる。
一気にやりたいならVBAで関数を作るしかない。

>>399
メモ帳で正規表現は使えない。

>>400
まずエクセルからメモ帳にデータをコピペする。すると、セルの区切りがタブに置き換えられた物が
貼り付けられる。

aaa　　　　bbb　　　　ccc
みたいなデータがあったとして、タブの部分を選択
aaa■■■bbb　　　 ccc

コピーしたら、Ctrl+Homeでカーソルを先頭に戻して、編集メニューから置換を選んで、
「検索する文字列」のところに貼り付け、「置換後の文字列」は空白のまま、「すべて置換」ボタンを押す。

2003を使ってるんですけど
ファンクションキーの何かを押すと=rand()をもう一回処理し直してくれる様に出来ますよね
その設定の仕方を忘れてしまったんですが、どう設定したらよいでしょうか？

↑勘違いでした

>>406
早春の候、ますます御健勝のこととお慶び申し上げます。平素は格別のご高配を賜り、厚くお礼申し上げます。
次のは質問にうつらせていただいてよろしいでしょうか。
どなたかExcel VBAを使った405の解決方法を教えていただけませんか？

>>411
テキストファイルの操作ってめんどくさいんだよ
vba　ファイル　追記
でぐぐればテキストファイルへの追記方法
vba　コレクション　for　each
でぐぐればコレクションの扱い方が出てくるよ

【1 OSの種類 　 　 　 　 .】 WindowsXp
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 初心者
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 target　.Exit　SetFocus

"A1"に何らかの文字列を書き込み、確定のEnterキーが押下された場合、
同一ワークシート上のボタン1にフォーカスが移るようにしたいと考えています。
そこで下記マクロを考えたのですが、Enter押下で"A2"に移動してしまいます。
何か良い方法はありませんでしょうか。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "A1" Then
CommandButton1.SetFocus
End If
End Sub

>>413
標準モジュールではなく、sheet1に記述する
すると、エラーが出る。エラーの理由は分からないが、
まぁバグだろう

こうすればok↓
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Cells(1, 1) Then
CommandButton1.Verb
End If
End Sub

>>414
それじゃA1以外のセルにA1と同じ値を入力したとき具合悪いだろ？

>>415
ﾋｴｴすまんかった
ｺｰﾄﾞの二行目は>>413のままのほうがいいのね

>>415
うんにゃ、2行目は
If Target.Address = "$A$1" Then
としないと動かないんじゃない？
If Target.Address = Cells(1, 1).Address Then
とするとかだな。

ってわけで↓をsheet1に記述。$A$1と記述
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
CommandButton1.Verb
End If
End Sub

アンカーミスったわ

ｶﾌﾞｯﾀ。まあいいか

>>403
http://up3.viploader.net/ippan/src/vlippan075983.png

>>387
2010はまだベータ版だからバクがあるんじゃないかな。
対応方法はない。商品化される頃には直ってるだろう。あきらめれ

>>388
作り直すか、どうかして、一行にまとめるしかないんじゃないかなぁ。

皆さんありがとうございました。返事遅くなってすみません。
Focusがしっかりコマンドボタンに移りました。

Googleの検索窓みたいなものを作ろうとしていて、セルに文字を打ち込んだら
命令付きのボタンに飛んでEnterKey押下で検索実行をやりたかったです。

ただ・・EnterKeyに反応しませんでした。SpaceKey押下には反応するんですが
これはExcelの仕様なんでしょうか。もう少し勉強してみます。

↑>>413です。

関数を手動で入力するとき、カッコの数が間違えないように開始カッコを入力したら即終了カッコも入力するようにしてます。
例えば、　=IF(AND(A1>100,B1>100),"大",IF(OR(A1<3,B1<3),"小")　、と書きたいとします。
さいしょの=IFのあと、カッコの数が間違って合わなくなるのを避けるため、とりあえずカッコは開くのと閉じるのをペア「( )」で入力します。
そして「←」キーを押して続きを書こうとするとエラー。

こ　の　エ　ラ　ー　が　ウ　ザ　く　て　ウ　ザ　く　て　し　か　た　が　な　い　ん　で　す　よ

この種のエラーを避ける方法はありますか？

おわかり？
ANDも先にAND( )とカッコを入力して、そしてその中身を書く。
二番目のIF( )も同様。
OR( )もね。

そして閉じるカッコのあと戻ろうと「←」キーを押したら「入力した数式は正しくありません」のウザいエラーが出るんです。

矢印キーを使わずマウスでクリックする

そんな方法を用いない。
わざカッコを先に閉じておく意味ワカンネ
エクセルさまがポップアップでわざわざお知らせしてくれてるのに

わざ？ｗｗ

もう寝よ

>>425
手動で入力なら

最初の = を入れないで数式を書き最後に = を付けるてのどうよ
これやって不都合がでるかも知らんけどね

>>427 それはイヤですね。入力の時間短縮のためにはマウスを使いたくないので。

>>428 複雑な数式ならいくらExcelが色で教えてくれるといっても自分でカッコを閉じるのを入力するほうが安心感があるんです

>>430 それはすばらしい方法ですね! と思ったらカッコを閉じたあと「←」をおせば、こんどは
隣　の　セ　ル　に　移　っ　て　し　ま　っ　て　入　力　が　で　き　な　く　な　り　ま　し　た
他にいい方法ありますか？

セル内編集しないで数式バー内でやってみては？

閉じかっこ多めにいれておけばExcelが勝手に調整してくれるから、いつもそうしてる

ごめん >>432 は忘れてくれ　やっぱ隣のセルに移るわ

>>432 ありがとうございます。
>>433 それじゃ意味ない
>>434 いやそんなことないわ。うまくできた。でもなぜ？

>>425
F2を押してから←

>>425
閉じカッコを入力したら←キーを押す前にF2キーを1回押せ

>>435
エクセルには編集モードと入力モードがある
初回の入力が入力、編集するのが編集モード(そのまんまだな)
434だと直接編集モードになる
ちなみにウィンドウの左下に書いてある

F2でセルの編集する癖をつけるのが一番早いよね。関数入力に限らず。

<<425 F2押せば良いよ
ってスクロールしたらもう4つも突っ込みあったｗ
さすがやね。

Excel2000です。
どなたかVBAを書いていただけませんでしょうか？。
セルを参照し、文字列を付加してtxtファイルで出力したいです。
例えば、
[A] [B]
1 山田
2 佐藤
(Null)鈴木
3 中村
というシートから
A列のデータ（数値型）に「組」を付け、Tabを挿入（データが無ければTabだけ）
B列のデータ（文字列型）に「様」をつけ改行。B列のデータが無くなるまで繰り返す。
下のような結果を「出力.txt」でtxtファイル化する。
1組 山田様
2組 佐藤様
(Tab)鈴木様
3組 中村様
このようなことがしたいです。（名簿が作りたいわけではありません・・・）
VBAはほとんど分かりませんが、文字列操作、繰り返しと終わり方、Nullの判定、ファイル出力、
の部分が分かれば、なんとか自力でアレンジできると思います。
よろしくお願いします。

>441

予算は？

>>441
消費税入れて105円でどうでしょうか？
OKの場合、鳥にきてくれ

>>441
>>なんとか自力でアレンジできると思います。

暇なヤツが作る→>>441からの質問攻め→スレが埋まる

>>441
A列の書式を「0組」にする
B列の書式を「@様」にする
A列とB列を選択、コピー
メモ帳を起動、貼り付け、保存

>>441 2行目わろたｗ

>文字列操作、
&で連結。 Cells(1,1) & "組 " & Cells.(2,1) & "様" & VbCrLf
>繰り返しと終わり方、
For 〜Next か Do Loop。
>Nullの判定、
Chr(0) かVBNullCharがNull文字。あとVbTabが水平タブ。VbCrLfは改行。
>ファイル出力
FSOオブジェクトか、Openステートメント。

数ある数値の中から最近のx件のみを抽出して平均を出したいのですがどうしたらいいでしょう
数あるデータとは同じ列に存在しています

>>447
アベレージ関数使えばＯＫ．

数値に連番を振り、n番以降の数値の合計をn番以降の数値の個数で除する

Excelに
Craete　AAA＿TBL
〜

一行改行されて
Craete　BBB＿TBL
〜

一つのシートにこういうデータがあった場合、
crateAAA＿TBL.sqlファイルを作成して
その中には
Craete　AAA＿TBL
〜

crateBBB＿TBL.sqlファイルを作成して
その中には
Craete　BBB＿TBL
〜

と分割したいのですが
分かりますでしょうか？

Ａ列がＮｏ
Ｂ列がデータ行として

A1:からA列のデータがある最後の列を選択して、
それの一つ右の列を見ていって
つまりB1からB列の最後の列を選択
その中で一つでも空白があるかを判断したいのですが
どうすればいいのでしょうか？

空白があれば1を返す式をC列に作成
C列の合計とA列の個数を比較

>>451
カウントブランク関数

>441=>451か？

だいぶレベルダウンしたなｗ

>>454
気になるんだ？www

べっ、別に気にしてなんかいないだかｒ（ｒｙ

ちょいと教えてください。
AAA　BBB　CCC　DDDがひとつのセルに入っていて
スペースを改行コードに置換して
AAA
BBB
CCC
DDD
ってしたいのですが肝心の改行コードに分からないのです。
よろしくお願いします。

>>457
="あ"&CHAR(10)&"い"

あ
い　こうなる。

セルの書式設定の文字制御は、「折り返して全体を表示する」にしてね。

>>450
>つまりB1からB列の最後(〜略〜)で一つでも空白があるかを判断
　Dim StCell As Range, EdCell As Range, TargetCells As Range, AW As Worksheet
　Set StCell = Range("Sheet1!A1") '開始位置を指定
　Set AW = StCell.Parent '対象シートオブジェクト取得
　Set EdCell = AW.Cells(Rows.Count, StCell.Column).End(xlUp) '開始位置を含む列の最終入力セルを取得
　Set TargetCells = Range(AW.Cells(StCell.Row, StCell.Column + 1), AW.Cells(EdCell.Row, StCell.Column + 1))　'ターゲットセル範囲を取得
　If 0 < WorksheetFunction.CountBlank(TargetCells) Then 　MsgBox "1つ以上空白がある"　　'ターゲット範囲の空白セルの総数を取得0以上なら検出

>>458
10だけじゃまずいんでないかい？
Chr(13) & Chr(10)かvbCrLfが適切。

条件
品 単価
りんご 120
みかん 80
ばなな 60

リスト
品 単価
りんご 60
みかん 80
ばなな #N/A
りんご 60
ばなな #N/A
ばなな #N/A
りんご 60
みかん 80

460の表で、B9のりんごに「=VLOOKUP(A9,$A$3:$B$5,2)」と打って、それを下にオートフィルしたら、このおじさん変なんです。
りんごは120のはずなのに、60。
みかんは80と正常だけど、
ばななは#N/Aのエラー。

どうしてですか？

条件
品 単価
りんご 120
みかん 80
ばなな 60

リスト
品 単価
りんご =VLOOKUP(A9,$A$3:$B$5,2)
みかん =VLOOKUP(A10,$A$3:$B$5,2)
ばなな =VLOOKUP(A11,$A$3:$B$5,2)
りんご =VLOOKUP(A12,$A$3:$B$5,2)
ばなな =VLOOKUP(A13,$A$3:$B$5,2)
ばなな =VLOOKUP(A14,$A$3:$B$5,2)
りんご =VLOOKUP(A15,$A$3:$B$5,2)
みかん =VLOOKUP(A16,$A$3:$B$5,2)

パソコンの前のみなさんもコピペして検証できるよう、タブ区切りと関数入りで再度、表をUPしておきます

条件
品 単価
りんご 120
みかん 80
ばなな 60

リスト
品 単価
りんご =VLOOKUP(A9,$A$3:$B$5,2)
みかん =VLOOKUP(A10,$A$3:$B$5,2)
ばなな =VLOOKUP(A11,$A$3:$B$5,2)
りんご =VLOOKUP(A12,$A$3:$B$5,2)
ばなな =VLOOKUP(A13,$A$3:$B$5,2)
ばなな =VLOOKUP(A14,$A$3:$B$5,2)
りんご =VLOOKUP(A15,$A$3:$B$5,2)
みかん =VLOOKUP(A16,$A$3:$B$5,2)

=VLOOKUP(A9,$A$3:$B$5,2)
これを
=VLOOKUP(A9,$A$3:$B$5,2,0)
こうしたらどうよ

>>464
できた!
実に不思議だ
本みたら、検索の型がどうたらこうたら・・・

こんな単純なことをするにもうまくいかんとは、Excelを作った人はヘボですね

>>457
手作業で置換や検索する時はCtrl+Jで改行コードが入力できる
メニューから置換を選んで

検索する文字列→スペース
置換語の文字列→Ctrl+J

画面には表示されないけどこれで置換できる

>>458
>>459
>>466
ありがとうございます
私の現状だと>>466の方法で一瞬で変換できました！
AAA　BBBのスペースを"&CHAR(10)&"で変換しても
=と文頭＆文末の"をどう付けるか悩んでましたｗ

>>467 セルに式すら書けない人でしたか。そう言えよ。

>>466
へぇ〜、検索するときはCtrl+J でできるんだ。
セルに手入力するときはait+リターンなのにな？

ところで、このセル内を改行してあるのを、改行ごとに別々のセルに一気に分割することはできないのかな？
書式→セル配置で「セルの結合」なんていうのはあるのに「分割」ってないよな。

>>469
データ　区切り位置。改行でも出来た
>>468
なんで怒ってんのw

＞>>469
＞データ　区切り位置。改行でも出来た
それだと横方向の分割しかできないんじゃね？しかも移動先にデータがあったら上書きしちゃうし。
縦方向の分割は、
必要な数だけ行を挿入して、
分割したいセルの中身を、「テキストとしてコピーして」
セルの上からペーストして、
不要に増えた行を、セルの結合でひとつにまとめる（ああ・・・しんど）
しかないのかね？

そんな場面がそもそもほとんどないし大量にあったらVBAでテキトーに処理すればオッケー
fornextで1文字ずつ改行かどうか調べれば楽勝

複乳って自分の言いたいことだけ言って、他人とコミュニケーション取れない残念な子なんだ。

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel 2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 月　抽出 EXCEL

4月15日
4月28日
5月3日
・・・

という列を

4月
4月
5月
・・・

という列に変換したいんですが、どのようにやればいいかわかりません。お願いします

>>474
セルの書式設定を m"月"d"日"→m"月"へ変更する。

セルの書式設定→表示形式→ユーザー定義→m"月"へ変更。

秒数を分数に直すには、書式をどのように書けばいいのでしょうか？（T T)

たとえば、
86
と表示されてるセルがあったら、これをセルの書式→ユーザー定義で「１分26秒」のように
表示させたいのですが、ググってもmm:ssとするやり方しかでてきません
mm:ssだと正しく表示できませんでした　どなたかお助けを〜（T T)

>>477
=A1/24/60/60

>>477
>>478の結果のセルに書式を当てるの忘れずにね

>>477です

>>478-479様
すごい！できました！！
なんとお礼を言ったらいいか・・・本当にありがとうございます！！（T T)

Excel勉強中の者です。
477のやつ478でやってもできないよ!
なぜ？

>>481
関数式を入れたセルの書式は何を当てていますか？
ユーザー定義でm"分"s"秒"とすれば良いハズ。

いやそれはたぶんあってそう
そもそも元データには何がどういう書式で入ってるわけ？

>>483
>>477のたとえで出ている86とはそのままの（入力）値であり、書式は”標準”でしょう。
結果、私もちゃんと”１分２６秒”の表示してますから。

ほんとだできた。
なぜだろう。
=A1/24/60/60
の数式自体が、A1を日時だと判断してる？

>>485
シリアル値でググるといいよ

2007でフォームコントロールのプルダウンを使っているのですが、
たまにプルダウンを選択するとプルダウンそのものの大きさかが変化して拡大されたりします

これって何か原因とかあるのでしょうか？

>>485
>この数式自体が、A1を日時だと判断してる？
してません。式はA1を数値として見てます。(つか日付型も普通の数値です)
これは「値1は1秒」っていう俺ルールの値を、通常の日付型ルール「値1は1日」に単位変換する式です。
86*24/60/60の結果は、本当は(1900年1月0日0時)1分26秒という日付です。

A1の書式を"yyyy/mm/dd hh:mm:ss"にしてみ。
これが(ほぼ)省略なしの本当の日付型の表示。
A1に手入力や式でいろいろ変化させて試してみ。

1って入れるとどうなる？　日付が1900年1月1日0時0分0秒になるっしょ。
次に2って入れてみ。今度は2日になるだろ？
1を足せば1日を足せるってもうわかったな。
じゃあ1時間足すのは？　→1日は24時間だから1/24を足せばいい。
じゃあ1分は？　1秒は？
元の式がなにやってるかは、これでもうわかるよね。

すいません、質問です。
2007verを使用しております。
以下のようなセルがあったとします。

　 A列 B列 C列 D列
1　nov reg exp mas
2

5

そこでどこでもいいので脇にこんな関数を書いてみます
=match(A5,A1;D1)

この状況でA5に「nov」とか入れると「１」と表示されて満足するのですが、ここで
expと記述すると#N/Aを返します。masと入れても同様、、この辺の意味がちょっとよくわからないのですが、
主に文字列の探索を行っていきたいのですが、どういう現象が起きてるのでしょうか。
解決策も交えてご享受ください。よろしくおねがいしまっす。

>>489
MATCHの照合の型によっては検査範囲はソートされていないといけない

享受しますた☆

>>490
検査に[0]を入れたら上手くいきました。
ありがたいアドバイス助かりました。

質問です。
VLOOKUPで抽出された結果のセルに、ハイパーリンクを飛ばそうと思っても、
=HYPERLINK(VLOOKUP())で、飛んでくれませんorz

どなたか分かる方いたら、なにとぞご教授くださいm(_ _)m

↓自分で作ってみた=HYPERLINK(VLOOKUP())のエクセルです。

http://www1.axfc.net/uploader/File/so/40338.xls

おかしいところがあればご指摘お願いします

493です
それとエクセルのDLKは　excel　です

よろしくお願いしますm(_ _)m

ＶＢＡによるサイトの自動ログインについて質問です。よろしくお願いします。winXP.エクセル2007.

あるサイトに自動ログインするプログラムを作ったのですが、”システムエラー”という表示がでてきてしまい、うまくいきません。
ユーザ名とパスワードを入力してログインボタンをクリックすというものです。

実際に上記のように動いているのですが、、、

■サイトによっては自動ログインできないようなシステムがあるのでしょうか？

■手動でログインする際、ユーザ名入力するとパスがかってに入力されるような設定になっているからでしょうか？
セキュリティソフトはノートンなんとかってのをつかっています。これの設定がよくないのかな？？

詳しいかた、教えてください。お願いします。

>>495
説明不足で状況がよくわかりませんが。
自動ログインを禁止するシステムはいくらでもありますが、たいてい回避は可能です。
ケースバイケースなのでURLを晒さない限り回答もできません。
おそらくノートンは関係ありません。
パスワードが自動入力されてしまってはパスワードの意味がないと思うのですが、
ID(アカウント、ユーザー名)の自動入力ではないのですか？

>>496
ご回答ありがとうございます。説明不足ですみませんでした。

手動ログイン時に、IDを入力するとパスワードがかってに入力されます。（前回打ちこんだパスワードを記憶してあるようです。）
たぶんノートンの機能です。

自動ログイン時、パスワード入力に問題があるのかな？と思ったので。自動ログイン用のプログラムでサイトまでいき、
そこからは手動でログインしてみたのですが、同じ結果で”システムエラー”となりました。

よって、自分は自動ログイン禁止するシステムかな？とおもいます。

サイトは　　
　　　ttp://www.bitway.ne.jp/pachinow/so-net/
です。
ログイン画面は左にある”MEMBER”というところです。

対応策をご教授ください。よろしくお願いします。

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

メモ帳からexcelへデータをコピーするのに、何も入力していない行毎にセルにコピーしたいのですが
改行でセルが変わってしまいます
文中の改行を消せば済む話なんでしょうが、データ量が多く、またコピペした後に改行されてないと見づらいので
改行したままコピーしたいと思っています
何か方法はないでしょうか？

�@・・・
・・・
・・・
　　　　　←ここでセルを変えたい
�A・・・
・・・
・・・

>>498
貼りつけたいセルを選択した後、数式パー上へ ペーストする

>>498
テキストエディタなら元のデータを修正するという手もあるけど、メモ帳からだとVBAのが手っ取り早い
A列にテキストを貼り付けてからこれを実行するとB列に希望のデータが作られる、はず。

Sub a()
　　Set r = ActiveSheet.UsedRange
　　r2 = 1
　　For r = 1 To r.Rows.Count
　　　　If Cells(r, 1) = "" Then
　　　　　　r2 = r2 + 1
　　　　Else
　　　　　　Cells(r2, 2) = Cells(r2, 2) + vbCrLf + Cells(r, 1)
　　　　End If
　　Next
End Sub

今のミス。ちょっと修正
Sub a()
　　Set r = ActiveSheet.UsedRange
　　r2 = 1
　　For r1 = 1 To r.Rows.Count
　　　　If Cells(r1, 1) = "" Then
　　　　　　r2 = r2 + 1
　　　　Else
　　　　　　If Cells(r2, 2) = "" Then
　　　　　　　　Cells(r2, 2) = Cells(r1, 1)
　　　　　　Else
　　　　　　　　Cells(r2, 2) = Cells(r2, 2) + vbCrLf + Cells(r1, 1)
　　　　　　End If
　　　　End If
　　Next
End Sub

>>493
何処に飛ばそうとしているかが解らない。
例えば
=HYPERLINK(CONCATENATE("http://www.google.co.jp/search?hl=ja&q=",VLOOKUP(B4,Sheet1!$B$8:$C$54,2,0),"&lr=&aq=f&aqi=g10&aql=&oq="),VLOOKUP(B4,Sheet1!$B$8:$C$54,2,0))
こういうことしたいの？

昨日から散々調べてよくわからないので教えてください。
【1 OSの種類 　 　 　 　 .】 WindowsXp
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 初心者
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 不明

シート１を検索窓専用ページで作成したいです。
シート２〜シート１０まであるアルファベットと数字の文字列に飛んでいけるようにしたいです。
要はctrl+Fのブック検索と全く同じです。

シート１にコントロールツールボックスからコマンドボタンとテキストボックス配置まではいけましたが
そこからが全くわかりません。

どのようなこーどを入力すればよろしいでしょうか？？

Vlookup関数のtrue/falseは0/1でもいいのかな。。。

>>504
えぇよ。
ただし「1がTrue」って覚えない事。
あくまで「0がFalse」であるだけで、0以外の2も3も4も全部True。

複乳さんはなぜ複乳さんなのですか？

>>503
マクロの記録でぐぐれ
>>504
vbaだけならok他の言語だとTRUEが-1になったりする
>>506
さぁ・・

>>507
VBAはTrue=-1だよ、イミディエイトウィンドウで
? True = 1
と入れてみればFalseが返ってくるから
? True = -1と入れればTrueが返ってくる

シートの場合は>>505の通り

>>503
わざわざ検索フォームを作る意味がわからん

自分で書いてる用にCtrl+Fじゃダメなのか？

>>503
> シート２〜シート１０まであるアルファベットと数字の文字列
ってそれはどこにあるの？

>>503
間違って途中で投稿してもうた

シート名？
セル？

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

成績管理のひな形です

　観点　重み　　評価　　　　　評価の点数化（100点満点）
点数�@（20％）→A,B,C→A＝20＊1、B=20＊0.75、C＝20＊0.5
点数�A（30％）→A,B,C→A＝30＊1、B=30＊0.75、C＝30＊0.5
点数�B（50％）→A,B,C→A＝50＊1、B=50＊0.75、C＝50＊0.5

点数からA,B,Cを返す事は出来るのですが、
観点毎の重みと評価によって100点満点に換算するのに良い方法はないでしょうか？
例えば評価がAABなら(20*1)+(30*1)+(50*0.5)で75点を一つのセルに返したいです
いまは100点満点への換算を手作業で「(20*1)+(30*1)+(50*0.5)」と入力していますが、
点数�@,�A,�Bや評価を変えると最終的な点数に反映されるようにしたいです
IFでだらだら書こうかと思ったのですがうまくいきませんでした

関数のキーワードなど教えていただければ自分でも調べてみます

>>512
たった3段階ならIFでだらだら書くのが一番早い。
うまくいかないのはデータの並べ方が悪いか根気が足りないかどちらか。
元のデータが評価や集計を考慮した配列になっていれば、式を1つ作ったらあとはコピペで行ける。
具体的なセル名がわからないので適当に書いてみる。
=20*IF(�@="A",1,IF(�@="B",0.75,0.5))+30*IF(�A="A",1,IF(�A="B",0.75,0.5))+50*IF(�B="A",1,IF(�B="B",0.75,0.5))

>>513
ありがとうございます
本当に感謝です、教えてもらったようにやってみます！

>>508
お、そうなのか。すまんかった
>>512
ABCに点数1-3を入れて、
D1=A1*0.2+B1*0.3+C1*0.5
じやだめなのー

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

表をB５の8割くらいに印刷したいのですが、ページにあわせると文字も表も非常に小さくなります
どうすればよいですか？

春だな

1%ずつ拡大して
あとは余白で調整

>>518
げ・・・。マジか。
ありがと

余白を希望する分確保した後、１ページで収めるようにして印刷せれ。
文字の大きさを大きくしたいならしてみれ。

印刷範囲を狭くして、ページに合わせたら全体が小さくなり
文字も表も小さくなるのは当たり前だよい。

>>508
VBAでもシート上でも同じだよ。
True=-1だが、1も-2もTrue。
評価としてのTrueと定数としてのTrueの違いだよ。
わかるかい？

【1 OSの種類 　 　 　 　 .】 Windows7　32bit
【2 Excelのバージョン 　 】 Excel2002SP3
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 かんたんなVBAなら
【5 検索キーワード 　 　 】 関数　再計算　強制

CONCATENATE関数を使って作成した関数をコピー＆値貼り付けします（この段階では文字列）
この文字列は関数となっているのですが、一個一個セルをクリックしないと計算してくれません。
このコピー＆値貼り付けしたセルが万単位であるで、この一個一個セルをクリックを自動で
できないかと考えています。良い方法があれば教えてください。お願いします。

具体的には以下の作業になります。

�@以下の関数を作成
=CONCATENATE("='[data.xls]2000'!A",ROW())

�A以下のように表示される
='[data.xls]2000'!A1

�Bこのセルをコピーして値貼り付けして、セルをクリックして関数計算させる
245

>>522
なんとかなった。スレ汚しスマン。

>522
何か回りくどい事やってそうな気がするけど
事情がﾜｶﾗﾝのでそこは放置するとして、
データ→区切り位置→完了

>>522
indirectを使う
=INDIRECT("'[data.xls]2000'!A"&ROW(),1)

前述のやり方でもクリックしなくても、F2・enter連打でもいけるといえばいけるかも
>>523
っておぃぃ

>>525
スマンありがと。�Aのときに編集→置き換えで末尾に+0を加えてみたら上手く動くようになった。
20年分のデータ編集でひたすらクリックはミスるし死ねるしどうしようかと思ったわ。
ちなみにf2・enterはダメだった。

だから、列を選択して
データ→区切り位置→完了、で
セルをひとつひとつクリックした事になるの。
私も相談所の１０番台で教えてもらった。
覚えておくと便利なテクだよ。

>>527
うおおおお！！！！すげええええ。サンクス。

ん？
なにがすごい便利なテクなんだ？
おしえてくれないか？

>>501
お礼遅くなってすみません
大変助かりました
ありがとうございました

お久しぶりです＞＜

オートフィルタで、抽出したデータを、ループさせて処理を施したいんですが＞＜

行　抽出項目　値段
2　　りんご　　　500
3　　ぶどう　　　400
4　　みかん　　300
5　　りんご　　　400

たとえば、上記のデータベースを、「りんご」でフィルターに掛けて、

行　抽出項目　値段
2　　りんご　　　500
5　　りんご　　　400

2、5行目だけをループさせて処理したいんです＞＜
2to5だと、当然3,4行名も処理されてしまいます＞＜
IFでりんごだけ処理するという方法もあいｒますが、行数が膨大なので、
ピンポイントで処理したいです＞＜
ForEachとかオートフィルタ以外でなんかでうまいことやれますか＞＜
助けてください＞＜

複乳さんに質問なのですが
エラトステネスのふるいを用いて、素数を順番にセルに吐き出したいのです。
どういう関数を使えばいいでしょうか？

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

エクセル関数について質問です。
文字列としてH11年10月と入力されている値を日付としてH11年10月と認識させたいのですが
どのような関数を使えばよいのでしょうか？
（日付に変換後、昇順で並べ替えたいのです）
初心者質問で申し訳ないですが、よろしくお願いします。

>>531　
それ以外、だと思いつかない
>>532　
失敗した。面倒なのでもうやらない。
以下一応素数を出すことは出来たのでヒントにでも
http://ja.wikipedia.org/wiki/%E3%82%A8%E3%83%A9%E3%83%88%E3%82%B9%E3%83%86%E3%83%8D%E3%82%B9%E3%81%AE%E7%AF%A9
ステップ3までは出来た。101まで調べるとすると、A2-A101にrow()
D2-Cy101に
=(ROW()>(COLUMN()-2))*1*(INT($A2/(COLUMN()-2))=$A2/(COLUMN()-2))*1
D列が2の倍数、Eが3の倍数・・Cyが101の倍数を表し、倍数だと1になる
cz2=SUM(D2:CY2)
下にオートフイル。で1以上なら素数ではない。
最後にcz列で0でオートフイルタをかければA列に素数が残る
VBAでやるべきだねぇ~
>>533
=DATE(1988+MID(A1,FIND("H",A1)+1,FIND("年",A1)-FIND("H",A1)-1),MID(A1,FIND("年",A1)+1,FIND("月",A1)-FIND("年",A1)-1),1)
最後の「,1」が1日を表す。日付は必ず指定しないとダメなのでこの辺りはテキトーにやってくれ

>>533
文字列を、いったんHを平成に置換し右端にダミーの1日を加えたあと、(*1)
無理矢理シリアル値にして、(*2)
書式をユーザ設定で設定する方法だと、(*3)

(*1と*2)は　=DATEVALUE(SUBSTITUTE(A6,"H","平成")&"1日")
(*3)は　ユーザ定義で　gr"年"mm"月"

>>534
おっとレスきた、ありがとう
いまからやってみます

>>534 >>535
出来ました！
このような初心者質問にお付き合い頂きありがとうございました。
おかげで勉強になりました。

3月14日 3月15日 3月16日
A（班長） 103 108 103
B（107&休代）
C(108担当) 休
D(109担当) 休
A~Dが人名､103~109がコース名っていうようなシフト表ファイルから

3月14日

地域 担当者 配布数 回収数
103 16 42
107 32 18
108 28 14
109 19 23
っていうような仕事内容報告ファイルの担当者の列に自動で名前を入れたいのです

って書いてる途中で送信されたorz
全然分かりませんね....これじゃ

要は報告書Sheetの日付欄にその日の日付を入れると
シフト表Sheetの一致する日付からその地域の担当者を割り出して
未入力状態の担当者欄を全部埋めてくれるようにしたいのです｡
ものすごい大雑把で構わないのでこんな感じでやれってのを教えていただけないでしょうか

fipse

>>539
ttp://www1.axfc.net/uploader/Sc/so/92716.xls
こんな感じ
sheet1で設定、sheet2で日付を指定して出力
sheet1の表は地域をメインに作る。A-Dの人物メインでもいいけどそれだと数式がややこしくなるし間違いの元と思う

【1 OSの種類 　 　 　 　 .】 Windows ビスタ
【2 Excelのバージョン　 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 不可
【5 検索キーワード 　 　 】分かりません


はじめまして超初心者です。
アドバイスよろしくお願いいたします。

数字を一定の数で増えるように設定したいの
ですがやり方が分かりません。
ご教授の程よろしくお願いします。

具体例
１００
２００
３００
と100ずつ自動で増やすのはどうすればよいのでしょう。

>>542
A1に100だとA2に
=A1+100
と入力
下にオートフィル
オートフィルわからなきゃぐぐれ
と言いたいけどぐぐっといた。↓オートフィルのやり方
ttp://hamachan.info/excel/o-tof.html

>>543
丁寧で親切で素早い回答ありがとうございます。

早速やってみます。
本当にありがとうございました。

タブで区切られた1500行ほどのテキストデータがありまして、
それをエクセルに読み込むと、1行ごとに空白行が挟まってしまい3000行になってしまいます。
空白行を一気に消す方法は無いでしょうか？

フィルタで空白行を抽出してCTRL+-

>>545
元ファイルの中身がわからんけど、元のファイルをいじったほうが早そう。
改行コード変えるとか、正規表現で置き換えるとか。

元のテキストデータの改行部分にタブも入ってるみたいで、
それが1行作ってるみたいです。
どうやったら改行コードを置き換えられるのでしょうか？
テキストエディタはメモ帳しかありません。

どっちかを消せばいいんじゃない？
今回は改行コードはそのままで、Tabを消せば？
メモ帳でも、タブ文字をコピペしたら置き換えできるよ。

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

20000行程度のデータベースから、複数条件を満たすものを合計するマクロを作ろうと思っています。

20000行全部ループさせる方法と、SUMPRODUCTを使う方法とでは、
どちらが処理速度が速いでしょうか？？

>>549
いろいろ試してみましたが旨くいきませんでした。

>>549
そのタブの文字コードをmidとcodeで調べる
エクセルにコピーしてからsubstituteでcharを置き換える
>>550
数秒の差でしょうし、大して変わらないと思う。
コードの書き方も重要なような。再描画・再計算止めるとか
環境やコードによって変わると思うので、fornextで10000回ぐらい回してみればどうでしょう。答えがでると思います

>>552
>>550です。
ありがとうございました。
集計回数が100を超えるので、
１回の処理が数秒の差でも、トータルだと数分になりそうですね。。。

両方作って試してみます。

>>541
ありがとうございます､これをたたき台に勉強しながら作ってみます｡
良くわかっていない上司から「パソコン持っているんだろ､エクセル担当しろ」
と意味の分からない押し付けられ方をしたので困っているところでした｡

>>553
複数条件の合計って１回こっきりのときはDSUMやSUMPRODUCT使ってもいいが
100回の集計なら駄目だな。
ピボットテーブルでやるべき問題じゃないのか？
SUMPRODUCTを縦や横にフィルコピーする奴はアホだぞ。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel２００３
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 検索
　　A　　　B
１名前　年齢
２たろう　12
３じろう　 12
４うんこ　13


こんな風な表があったとして
年齢の列にある値が数字かどうかをチェックしたいのですが
年齢がB1にあるとは限らずC1にあったりA１にあったりします
年齢という値の下にずらずらしてる値が数字かどうかをチェックしたいのですが
こういう場合はどうしたらいいでしょうか

>>556
適当な列にドゾ。
=IF(B1="","",ISNONTEXT(B1*1))

結果；
TRUE ・・・数字
FALSE・・・文字
空欄　 ・・・何も入っていない

ごめん、これだと文字もTRUEになっちゃうな。
=IF(B1="","",ISNONTEXT(B1))
これでやってください。

>>558
それだとB1の列にしか対応してないですよね？
年齢っていうセルと同じ列の
年齢っていうセルより下のセルに対してチェックしたいんです
なんかわかりにくくてすいません

その数式を下方向へコピー、またはオートフィルを行ってください。

>>556
チェックって、具体的にどうしたいの？
目で見て分かるようにしたいの？　それなら条件付き書式を。
もしオートフィルを知らないなら覚えよう。Excel扱えないよ。

>>558
この場合ISNUMBERのほうが。
=IsNumber(B1)
空白セルや空文字列、エラー値にもFalseを返してくれるよ。

ISNONTEXTって記憶になかったや。
いつもNOT(ISTEXT(B1))にしてたからカッコを減らせる。
ありがとう。

>>556,559
設問読み違えた、ごめん。
年齢がB列以外にもあるんだったね。
あとVBAつかえるんだからオートフィルは知ってるわなｗ

つか「A1にある」ってどういう事？　名前もばらばらに存在なの？それとも無い場合があるの？
横の最大列数は？　Excelの限界まで？
年齢の数値が欲しいの？セルが欲しいの？

各行のすべてのセルに、年齢が1つしか入っていない(たろうの年齢は1つだけと考えてもいい)
かつ検索範囲決め打ちで、かつ値しかいらないなら判定と検索含めて1行でおｋ。
Age as Long
Age = WorksheetFunction.Sum(Range("A1:A100"))

>>562 あぁしまった、横に探すんだった。
訂正：
Age = WorksheetFunction.Sum(Range("A1:Z1"))

　　A　　　B　　C　　　　D
１名前　年齢　住所　職業
２たろう　12　　日本　ニート
３じろう　 12　　ろしあ　配管工
４うんこ　13　　韓国　　社長

わかりにくい説明でした
↑のように住所や職業などの項目が増えたり
性別とか趣味とかの項目が増えたりしても
VBAで年齢の列とか住所の列を取り出して
それぞれに処理を行う
みたいなことをしたいんです

>>564
Sub a()
　　c = Worksheets("Sheet1").Cells.Find("年齢").Column
　　Debug.Print c
End Sub

エクセルって、セルの中の「~」って文字は検索できないんですか？
「~」を「→」に置換したいのですが。

>>566
~~
ttp://support.microsoft.com/kb/214138/ja

>>566
チルダはエスケープ文字。
エスケープ文字はエスケープ文字でエスケープ出来るんだよ普通は。

だから「~」を検索するには「~~」と入力すればいい。
2文字の「~~」を検索するには「~~~~」と入力すればいい。

ありがとうございました

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 エクセル ソート　降順　空白　下

データのソートで降順したときに空白データが一番上にきてしまうのですが
空白データを一番下にもっていきたい場合どうすればよいでしょうか？

すいません、テンプレではＶＢＡ不可になっておりましたが、ＶＢＡでも可能です。
よろしくお願いします。

>>571
全体を昇順ソート後、空白セル以外を降順ソート。

本当に空白なら降順でも下になるはずだ。
空白じゃなくて""とかの長さ0の文字列が入ってるんだろ？
""を空白に置換すればいいと思う。

Cells(1, 1).Value = Evaluate("SUMPRODUCT(((" & SH & "B6:B" & X & ")=""" & 変数�@ & """" _
& ")*((" & SH & "C6:C" & X & ")=""" & 変数�A & """" _
& ")*(" & SH & "D6:D" & X & "))")

って感じで、やってます。

質問したいのは、上記で、変数�@（B列）に合致して、変数�A（C列）は何でもいい（無視する）という条件で合計させたいとき、
変数Bの指定の仕方は何かありますか？？

Aだけに合致する場合は、二行目を削除するしかないですかね？

>>574
変数2がない時は変数2関連の出力をしないようにしたい、それだけの話か？
つかコードがおかしくないか？

>>575
説明が下手糞ですみません。。。
VBAで聞くからややこしくなるんでしょうか。。。

普通の関数だとこんな感じです。
=SUMPRODUCT((B1:B100="変数1")*(C1:C100="変数2")*(D1:D100))

この関数で、変数2を条件としたくないんです。。。
変数2がないときは、(C1:C100="変数2")を除くしかないでしょうか？？

>>576
変数2を条件としたくないってのなら(C1:C100="変数2")除けばいいだけの話
どうしたいのかが良く分からない
式が長すぎるという理由でそうしたいなら、式自体を書き換えたほうが後のメンテナンスにも良いので
書き換えてしまえばよい

If 変数�A = "" Then
　　変数�@だけの式
Else
　　変数�@と�Aの式
End If

みたいにすればいいんじゃないの？

VBAでやりたいのかワークシート上の式でやりたいのか、どっちかはっきりしてね

Excel2003だからか、音声読み上げの機能がついています。
これを使って英語の数字の聞き取り訓練のVBAを作っていただけないでしょうか？

単純なのがいいです。
乱数で出した数を読み上げてくれて、それをできるだけ早く入力することが
繰り返しできるだけで大満足です。

空白セルがあったら、削除して、その結果右にあるセルを全部1つ左にずらすためにはどうすればいいでしょうか？
行が100個くらいあり、そのうち空白セルは計100個入り乱れているので、すべて自動でやりたいです。

列のいくつかが隠れているExcelファイルを見つけました。
列の表示がA, C, H, I, J, K・・・と、何とB列D列E列F列G列が隠れているんです。
どうすれば全部ひょうじさせることができますか？

>>581
100個程度なら編集、ジャンプ、空白セルを左詰めで削除。

>>580
自分で作れ。
MSかどこかにspellnumber関数が落ちていたのでこれを使えば早いと思う
>>582
CTRL+Aで全選択の後、上の端の「A」や「C」を右クリック
全て表示　みたいなのがあるはずなので、それをくりつく

てｓｔ

>>582
Ctrl+Aでシート全体を選択したあとAを右クリックして「再表示」な

複乳はもうちょっと丁寧に回答しろ。最近手抜きすぎだぞ。

>>581
ほい

Sub a()
　　For r = 1 To ActiveSheet.UsedRange.Rows.Count
　　　　For c = Cells(1, Columns.Count).End(xlToLeft).Column To 1 Step -1
　　　　　　If Cells(1, c) = "" Then Cells(1, c).Delete Shift:=xlToLeft
　　　　Next
　　Next
End Sub

>581 は >583 が一番だよ。マクロ組むまでもない。
UsedRange.Rows.Count はセル範囲の行数だから
１行目からデータが無いと最終行を表さない。
また二重ループで Column.Count を計算させるのは
どうだろ、256 決め打ちで良いんじゃないの？
Cells(1, c) は Cells(r, c) の単純ミスね。

>>581 >>587
ありがとう。簡単な方でできました。

>>588
2007かもしれないじゃん
どっちにしても最初に求めて変数に入れといた方がいいね
最終行を求めるのは .SpecialCells(xlLastCell) かな

>>586
そうか?まぁ大体分かるだろ
分かんなきゃまた来るだろ。現になんども要再回答と気ている。ｳﾊﾊ

>>587
日本語わかる？

ループ内では極力、余分な処理をさせない
という主旨は変わりませんが、二重ループ内じゃなくて、
最初のループ内で処理されますね。訂正。

セルの色のデフォールトの白と文字の色のデフォールトの黒をそれ以外にする方法は有りませんか？
例えば表全体の色を黒、文字を白で使いたいのです
表のセル全体を一旦それに指定してもセル内容を移動すれば移動元のセルはデフォールトに戻ってしまいます
それを避ける方法は有りませんか？
OSはMeでエクセルは95です
しかしそれはそう関係ありません
最新のOSとエクセルで出来るならそれを購入しますから

苦労してるな　こないだのノートPC、office xp 付けて上げれば良かったかな
９５にMEか…

実は私はエクセルは使ってないのです、123使いです
ゆえに今のパソコンには入っていずほぼ廃棄状態になっているMe機に入っているのを見つけたのでそれで試行をしています
友人に尋ねられたのですが解らないのでここに持ち込みました

594、596です
セルの色を好みのものにする方法は判ったのです
その色にした背景画像を作ってそれを使えば良いのです
ところが文字のデフォールトはそのままなのでこの方法だけでは使えないのです
ゆえに文字のデフォールトだけ変える方法でもかまいません
しかし文字のデフォールトが変わればセルの色のデフォールトも変えられるとは想像しますが

>>594
ctrl+aで全体を選択できるから、その状態でフォント等を変える

>>598
ありがとうございます
残念ながらその方法ではその後セルの内容を移動すれば移動元のセルはデフォールトに戻ってしまいます

>>599
そういうもんです。移動しないかctrl+d辺りでコピー、または完成後にフォントの設定でもして下さい
vbaなら可能ですのでこちらは自分で調べてください

＞移動しないかctrl+d辺りでコピー、または完成後にフォントの設定でもして下さい
それで済むなら相談には来ません

それではvbaのWorksheet_Changeです
面倒くさいのでコードは書きませんｗ

>>584
>>586
できました！

>>602
有難うございます
「Worksheet_Change」というのはVBAの命令の一つなのでしょうか？
ネットで探してみましたがマクロプログラムの中で使われている例が探せません

「Worksheet_Change」を含むVBAのコマンドリストをネット上で探してみましたが探せません
ソフトなり解説書なり購入しないと知る方法は無いのでしょうか

こんにちは

2010/3/19 0:00
2010/3/19 6:00
2010/3/19 12:00
2010/3/19 18:00
2010/3/20 0:00
2010/3/20 6:00
2010/3/20 12:00
2010/3/20 18:00
2010/3/21 0:00
2010/3/21 6:00
2010/3/21 12:00
2010/3/21 18:00

というセルがあるんですが、このままセルを下に引っ張っても同じ内容の繰り返しになってしまいます

2010/3/22 0:00　〜　以降を自動でセットするにはどうしたらよいのでしょうか？

>>606
2010/3/21 12:00
2010/3/21 18:00
を選択して下にひっぱる。ちなみにオートフィルって動作です

>>607

うおｗｗｗいけましたｗｗｗ　エクセル賢すぎるｗｗ

なるほど、下の２列だけでよかったんですね
エクセル甘く見てました　thx！

宜しくお願い致します。Excel2003を使っています。

A列に年月日が入力されていて、
B列には出勤したら「1.0」、半日なら「0.5」のいずれかを入力していきます。
B列最下に出勤数の合計を入れたいのですが、土日祝日は足したくありません。
どのようにしたら平日のみの出勤数をカウントできますか？

ちなみにA列の年月日には条件付き書式を
以下のように設定して土日祝日は色が付くようにしています。

=AND(WEEKDAY(A1)=7,A1<>"")
=AND(WEEKDAY(A1)=1,A1<>"")
=MATCH(A1,祝日,0)>0

つまり、祝日表は別シートに作ってありますが、
どういう関数を入れたら平日の出勤数をカウントできるのかわかりません。

>>609
WORKDAY関数

2003や2007ならシート全体を選択して文字と背景の色を変えれば
編集や移動をしてもそのままの色が維持されるんだけどねえ。
95は手元にないから確かめようがないわ。

>>606
ちなみに
A1が2010/3/19 0:00 の場合、以降６時間毎を打ち込みたいのであれば
A2 =A1+1/4
で以降コピペするというやり方もあります。

>>610
レスどうもありがとう。
WORKDAY関数の概要を読んでみたんだけど、B列の合計に使えます？
ちょっとわたしには思いつかなかった；

とある月の３日が土日祝日だった場合

日 稼働
A　B
1　1.0
2　0.5
3　1.0　←土日祝
4　
5　1.0

計2.5
　↑この計算式を知りたいです。
合計が3.5ではなく、土日祝分1.0を省いた2.5になるようにしたいです。

>>607
この場合の下の2列にした時の挙動はどうやって予測したんです？
いつも思うんだけど複数セル選択時のオートフィルの法則性がいまいちわかんない。

>>614
単純に”差”を加算しているんじゃないの？

>>614
例えば1,2,9だと最初と最後の和/セルの数
みたいな感じで12になる。1,2,-9だと-12になる
>>613
ごめんテキトーに答えたら全然違ってたわ。ｱﾊﾊ
A1=日付
B1=1か0.5
C1=WEEKDAY(A1)
D1=IF(ISERROR(MATCH(A1,F:F,0)),0,1)
E1=IF(OR(C1=7,C1=1,D1=1),0,B1)
F1=祝日を並べる
以上下へオートィル
G1=sum(e:e)
でどうっすかね

>>615 >>616
ん？　ん？？　え、そういうことなの？　ちょっと試してくるｗ
レスありがとうございます。

>>616
うわー、できてます、できてますが。。
これをセルひとつに関数入力して実現できませんか？
「祝日」表は別に表があるのでそこを参照できます。

>>618
とりあえず、C列とD列はなくてもいい。
E1=IF(OR(WEEKDAY(A1)=7,WEEKDAY(A1)=1,IF(ISERROR(MATCH(A1,F:F,0)),0,1)=1),0,B1)
あとはLOOKUPで祝日を検索して条件に追加すれば1つの式でできる

複乳さんってたまにひどいよね

>>619
レスどうもありがとうー。
お二人の結果が同一なのは確認できました。
最後にどうやれば合計が出せるのか、、
LOOKUP関数読んでみます。

おーい、複乳ふぁん。
涙目の複乳を慰めてやっておくれ。ｗ

ここまでヒントもらっておいてわからなかった；
教わったところを明日会社に持って行って考えてみます。
複乳さん、>>619さん、どうもありがとう。

>>617
オートフィルってやっぱりそう単純じゃないような・・・変化増分は一定みたいだけど。

でも右クリックフィルってあるのを知った。
それはそれで快適になったのでよしｗ

Excelのいい本ないですか？
本屋で探してもない。
見つける基準は「オートフィル」の説明。
この「オートフィル」ほど自分が気に入る本の条件としてよいものはない。

・1つのセル選択時のオートフィル
・2つのセル選択時のオートフィル
・セルが関数のとき
・セルが文字列のとき
・文字列に数字が複数あった場合 (例「1回戦第2試合」)

などの場合のオートフィルの規則をちゃんとわかりやすくまとめてる本がいい

2
3
5

この3つのセルを選択してオートフィルしたら

2
3
5
6.333333333
7.833333333
9.333333333
10.83333333
12.33333333
13.83333333

となったのは、なぜだ？
素数の数列を出すつもりなのに。

素数の数列を出す機能なんかあったらノーベル賞取れるよ

セルに0を表示したくないので、書式設定の表示形式で
#,###.##;-#,##0;
としました。0は表示されませんが、"3."のように少数なしのときでも"."がつきます
"."がつかないようにするには表示形式をどうしたらいいでしょうか？

>>628
Excelが2003以前なら無理
2007でも一発ではできない。条件付き書式で整数かどうか判定して書式を切り替え

>>620　うん。いつもなんだ。すまないね
>>625　それだけ書く間に試せばいいんじゃないでしょうか
>>626　616かと思ったら違ったね。グラフにするとなんとなく見えてくるような、来ないような
>>627　いや、無理だろ・・

>>626
セル3個のオートフィルは等差数列になる。セルの数をnとして、
A1〜A3を下にフィルした場合、初期値は(A2+A3*(n+1)-A1*(n-1))/n、公差は(A3-A1)/(n-1)。

>>611
有難うございます。
それなら解決です。
昨日聞いたところでは友人のExcelは2002らしいですのでだめなのでしょう。
今マイクロソフトに確実なところを問い合わせています。
2002ではその機能が無いのが間違いなければ新しいのを買えば出来ることを伝えて終わりです。
私としてはVBAでの解決方法も興味が有るのですが。

エクセル２００７のグラフ（散布図）について質問です。

Ｘ軸になる元データが２０１０年上半期、２０１０年下半期と入力されて
いる場合、グラフ作成するとＸ軸のラベルが０、２、４、６、８という感じで
数字で表示されてしまいます。これを元データの通りに２０１０年上半期
と表示させたい場合どうすればよいでしょうか？

>>632
2002でも大丈夫だよ。

>>634
えっ、そうなのですか！
友人は自分でも試したし相当詳しい人間にも聞いたとのことでしたが浅い試行だったようです
マイクロソフトからはまだ連絡が無いし
かまわなければその方法を教えていただけないでしょうか

>>632
VBAでやるならWorkSheet.Changeイベントが起きるごとに編集された部分の色を元に戻す。
ただし2002の時代のパソコンはそれほど速くないので無駄に動作が重くなる可能性がある。

>>635
方法>>611

>>634は俺なんだけど、>>611ができるか質問したんじゃないの?

>>637
ありがとうございます
しかし私は2002も持ってないので友人にどう説明したら良いか解らないのです
出来るとだけ伝えても本人には出来ないかもしれません
どのプルダウンメニューから入るのか程度で良いですから教えていただけないでしょうか

>>639>>598

123でならどうマクロを組めば良いかは検討が付きます
確かに遅くなりそうな気はしますね
でもそう深刻ではないように思います
私の予定としてはVBAで組んだ物を渡して2003以降なら無くても出来ると伝えるという２本立てでするつもりでした
しかし2002で出来るならその必要も全く無くなった訳ですが

>>640
それなら話がまた振り出しに戻るのですが
それで全体を変えてもセル内容を移動すれば移動元のセルはデフォールトになります
エクセルの95（バージョン7.0）ではそうなります
2002ではならないのでしょうか

>>642
てめえ、わざと>>638を無視しているのか?　だったら好きにやれよ。

おれちょっとカルシウム足りてないのかな

642です
余談を言うと
123の2001ならワークシートのプロパティーで変えればＯＫなんですよね
123が気に入っているのですがこの2001でアップデートは最後です
もはやサポートも何も無い状態です
会社も無いのでしょう多分

>>643
まあそう怒らないで下さい
確かに無視しました
しかしそれは意味が不明だったからです
確かに611が出来るかどうかの質問ですが611に書かれているのはセルの内容を移動させても移動元はデフォールトには戻らないというものです
ゆえに634のレスは2002でもデフォールトに戻らないセルの背景と文字の色が指定できるという意味になってしまっているのです

（ここのやり取りに限りませんが他にもいろいろ尋ね周り）この件に関しては疲れました
マイクロソフトの対応が遅いのが一番の問題ですね
ＶＢＡに関しては昨日、2003と2002の違いについては今日電話をし返事をくれつお言った目では良かったのですがその後何の連絡も有りません
マイクロソフトについてはそもそもパクリでエクセルなんぞを作ってＯＳとの抱合せ販売でシェアを盗むようなことをしなかったら更に使いやすくて強力になった123が今でも販売されているでしょうにという点がとても残念です

とりあえずデフォールトはそろそろやめてくれ
見る度に吹き出してしまうんだよw

実は俺もｗ

こいつはexcelよりも日本語の勉強が先だろ。
聞けば聞くほど、何がしたいのかわけがわからなくなる。

単純にバカか精神年齢が低いと思う
あと全然関係ないのに俺の中でロータスの評価が下がった

>>651
老害かも知れんけどな。

今ざっと一連の書き込み見たけど、何をやりたいのか俺には分らん。
Excel95みたいだけど、95にはWorksheet_Changeはない。
似たようなことはOnEntryプロパティでやってたな。
大昔のことなのでやり方もよく覚えてないが。

一連のやり取りを見ると、サポートが即答できないのがなんとなく解る。

95にWorksheet_Changeなかったのか、失礼した
ってか、よく知ってるなー

>>653
最終的には2002で>>611のようなことができるかということだと思うんだが。
他人には「振り出しに戻ってしまう」とか言いながら、「95では」と言い出して自分で振り出しに戻している。

何がやりたいって、黒バックにしたいんだろ？
Excelじゃ無理。

AさんはExcelの配色を変えたいけど方法がわからない。
世話好きのBさんに相談したら、実はBさんはExcelが嫌いだった。ここから悲劇が始まった。
Bさんはたまたま95だけ持っていたけど、使い方は知らないし用語もわからない。
95と2002じゃ互換性も低いし操作性も全然違う。

そりゃ伝わるわけないよ。

解決策1
素直にわからないと言う。
そもそもAさんが自分でサポートに電話して自分の言葉で状況を伝えるべき。

解決策2
世の中Excel一色になってしまったので、BさんはあきらめてExcelに乗り換える。
友達サポートしようと思ったら、毎日使わないと人に教えられるほど詳しくなるのは無理。

>>657
できる

>>657
ワークシートチェンジなら割りと余裕かと・・
手元の2003で試したら>>598でできる。ワークシート自体の設定を変えるっぽい
excel95じゃできなかったんだろうな
なんにしろ、いろいろな人が既に言ってるんだが・・・サポートも大変だな

パートタイマーの勤務表を作っています。
A＝7時間、B＝5時間、C＝4時間という風にアルファベットを
個人の名前の横に記入して表をつくっているんですが、
代入計算？してセルに入力したアルファベット種類と数から、
個人の勤務時間の合計を表の最後の列または行のセルに自動で出したい
のですが、可能でしょうか？

Excelの配色はセルの書式やVBAを使わなくても好きに変更できる
2003で白文字、黒バックにした例
ttp://momoiro.s4.x-beat.com/up/img/momoiro10429.png

>>661
決まった内容のセルの数はCOUNTIFで数えられる
=COUNTIF(B1:Z1,"A")*7+COUNTIF(B1:Z1,"B")*5+COUNTIF(B1:Z1,"C")*4
　　　　　　↑
B列からZ列の間で"A"が入ったセルの数を調べて7を掛ける。以下同じ

>663
ありがとうございます
本読んでもわからなかったので助かりました
さっそくやってみます。

バカが急に沸いて出たようですね
>>662
2003では出来ることは既にここの話で既知のこと
それを理解する能力が無いということ
>>660
上記と同じ
理解力無し
エクセルの95で出来ないという事が何かの誤解を生んでいる訳では無いことが判らないらしですね

>>648
天に向かって吹いて自分の顔でも汚していたら良いでしょう
別に止めませんよ
笑って見ているだけです

>>650
自分に理解力が無いことをわざわざ言う事も無いでしょうに

>>651
バカはお前

>>662
あんまり興味のない話だったが、それどうやるの？
俺2007しか持ってないけど。

>>652
アホガキ

>>653
あなたも理解力が無いようですね
エクセルの95にWorksheet_Changeが無いのは既に判っていること
だからネット上で探したのです

>>656
2002以降と95は分離して話しているというのが理解できていないようですね
混同しているのはあなたでしょう

こ・・・これは釣りなのか?それともガイジンの方ですか?
そもそもexcel95の細かい仕様知ってる人なんて本当に少数だぞ。
しかも現行で使ってる人なんてトキより少ないだろw
無料でそれ以上の機能を持ったもの(Openoffice)が出回ってるのにわざわざ有料の劣化品使ってるなんて
>>666
ただとりあえずデフォールトはマジでやめとけwなんか貴族みたいでいちいち面白いんだよwwwwデフォルトだよ。普通は伸ばさないんだよwｗｗ
有名なgoogleの検索結果教えてやるよ
"デフォールト" の検索結果 約 65,200 件中 1 - 10 件目 (0.26 秒)
"デフォルト" の検索結果 約 10,100,000 件中 1 - 10 件目 (0.22 秒)
捏造と思うなら調べればいいぞ。ここまで差があるとは思わなかったがwとりあえずこれは本当に本心からの親心だw
貴族キャラを通すなら止めはしないんだが・・うーむw

要するに色々突っ込みどころが多いんだよwwwww
普通は>>598でおわりなのw周りで笑いをこらえる身にもなってやれ！

>>672
収まったと思ってリロードしたら出てくるとか何のバツゲームだよ！
だから95なんて誰も使ってねーんだよ！そんな知識このスレですら必要ないのwww
わかったらopenofficeつかっとけw

>>658
幸いな事にあなたがたのようなバカが出てくる前にそうでない人のアドバイスによって問題はほぼ解決しています

複乳氏

エクセルが一番頭がいい

これ反則だろ
確かに色は変わるけどまともに使えんじゃないか
ttp://niyaniya.info/pic/img/8000.jpg

>>676　なーに
>>677　それは無い。エクセルのバグはかなり多い。特に小数誤差は計算ソフトでは最低クラス

>>662
数式バーも黒くする方法が分らん。教えてくれ。
>>665によるとここの話で既知らしいが、どこか書いてあったっけ？

幸いなことに私の123の2001が息絶えるまでに新しい流れが出来ています
GoogleSpreadsheetsとOpenOfficeです
私はビルゲイツがどこかで盗んできたような表計算を使うのも
牧原敬之がどこかで盗んできたような歌を聴くのも嫌いです
そういうものを使ったり聴いたりしないといけないような人には同情します

>>681
仕事していないやつにはわからんだろうが、自分の好きなソフトなんて使えないんだよ。

>>680
オートフォーマットかと思っていたが違うのか。私にも分かりません。>>662さん教えてください

なんか釣りっぽくない？
もしかして質問した>>564と>>662が同じ人だったりして

>>673
＞しかも現行で使ってる人なんてトキより少ないだろw
ま、そうでしょう
私も持っていただけですから
Openofficeを知っているなら少しは同情が減りますね

＞普通は>>598でおわりなのw周りで笑いをこらえる身にもなってやれ！
それが間抜けだったから続いているのでしょう

＞だから95なんて誰も使ってねーんだよ！
だからそれがどうしたのでしょうか

俺のソンケーする株屋さんは95を数年前まで使ってたぜ。
さすがに今は使ってないと思うけどな。

>>682
それはあなたが回りに従い、合わさざるを得ないような立場にしか居ないということを意味するだけです
私はエクセルで送られて来るものをOpenOfficeで見ることは有ってもこちらが何かをエクセルで送る必要に迫られるようなことは有りません

ほかのアプリの色まで変わるよね・・・

>>685　普通OOoは知ってるよ。しらないと言うことをしらないのは君だけだよ・・
>>684　あれ、釣りなのか。残念。妙にobjectのcolorが変わってたからそんな機能があるかと思ったんだが

>>686
ソフトは永遠ですから古いものを使うのは良くあることです
ルーチンワークの多数の書式、特にマクロをたくさん含んだものを作っていたら手放せなくなります
しかしそれもそのソフトに合うOSが乗るパソコンが寿命を迎え中古市場でも買えなくなることで終わりを告げますが

>>689
まあ、そうあせらないで
「知ってるのを知らないのは」
と言いたいのではないですか？

>>691　そうだね
>>690　OEMじゃないOSを買ってvmwareでも使え100年ぐらい使えそう

例えば、エクセルのファイル内に書類１〜10までの項目（シート）があり
全てのシートにおいてＡ３〜Ｃ３は真っ赤に塗りつぶしたいとします。

ここで質問なのですが
１つのシートの色を変更すると
ほかのシートも同時に変更することってできますか？

例えば、書類１シートのＡ３〜Ｃ３の色を変更すると
ほかの書類２〜10のシートも同時に変るようにしたいのです。

解決しました、

『○○年 △月　×日（曜日）』
と書かれたセルが30こあり、最初の１日目の
曜日を変えると、他の日の曜日も変るようにしたいのですが
どうしたらいいのでしょうか？

日付はシリアルを入力しておけば書式でどうにでもなります

>>695
曜日だけが変わる事は無いハズ。
悪い事言わないから、日付は2010/3/20のように入力して、
書式をyyyy"年"m"月"d"日"(aaaa)にしときなさい。

もしかしたら和暦かもよ

>>695
A1の書式設定を
yyyy"年"m"月"d"日"(aaa);@
とし、A1に1/1と入力
A2に=A1+1
のようにすればA1に連動して変わるよ

Excel2007なんですけど、セルを切り取って他のセルにコピーしても元のセルはデータが残ったままなんですが、これは仕様ですか？

カット＆ペーストなら残らない

>>700
コピー＆ペーストだと残る
カット＆ペーストだと残らない
Excelに限らずパソコン操作の基本

コピペはあるのにカトペって言わないのはどうして？

同じパターンで略すならカッペだな

選択したセルのRGB番号を調べるにはどうしたらいいですか？
例えばA1が赤色だったとして、その赤は具体的にはどういうRGB番号になってるのか調べたいのです。
255 0 0なのか　254 0 1なのか　そういう細かいとこが知りたいのです。

>>705
VBA使わないと無理だと思う

Sub a()
　　c = Range("A1").Interior.Color
　　r = c And 255
　　g = c \ 256 And 255
　　b = c \ 65536

　　Debug.Print r, g, b
End Sub

>>701
Ctrl+xして他のセルにCtrl+vしても元のセルに残ったままなのですが・・・

>>707　おまえのつかってるExcelニセモノだよ

(;ﾟдﾟ)ｧ

>>703
普通は移動っていうんじゃないかな
なんでかはしらん
>>707
どんなデータが残るんだ?

しむらうしろ！はあるのにしむらまえ！って言わないのはどうして？

　|￣￣￣￣￣￣￣￣|
　| 　 次でボケて!!! 　 |
　|＿＿＿＿＿＿＿＿|
　　　 ∧∧ ||
　　　 ( ﾟдﾟ)||
　　　 /　づΦ

>>659
出来るんなら教えてくれ。
カラー印刷にも対応していて
黒バックは印刷せず、白文字は
黒印字になる方法を。

>>710
普通セルを切りとりして他セルにペーストしたら元のセルのデータは削除されますよね？
それが残ったままなんです。

コピーペーストになってるんじゃないの
それか貼りつけたと思って貼りつけていないとか

>>707
Ctrl+XのつもりがCtrl+Cだったというオチとか。

>>714
Ctrl+xに、Copyするだけのマクロを割り当てているという落ちに3000点

y=1351x^-0.307

という式があるのですが，このxをExcelの関数を使って求めるにはどのようにすれば良いでしょうか。

>>718
x= 〜
の形に変形する

クリップボードを監視してる奴が人知れずいて悪さしてるに1000ガバス

>>719
変形の仕方も分からないです。ご存じでしたら教えてください。

>>721
excelは関係ないだろ。中学程度の数学の問題。

あるフォルダにmp3ファイルがいっぱいあります
その「ファイル名」と「長さ」だけをExcelのA列B列に書き出すにはどうすればいいですか？

*「長さ」はそのフォルダで、"表示"→"詳細表示の設定"で表示させることが可能のやつです

>>722
当方中３ですが，習ってないです。
変形は確かにExcelとは関係ないですが，変形したとして，その後のExcelの関数を使った求めかたを教えて頂きたいのです。

>>723
長さってのは音楽の再生時間の事か。それOSからは取得できないよ、たぶん。

>>724
展開したらそれセルに書くだけ。

　Ａ　Ｂ
1　2　1月
2　4　2月
3　6　2月
4　7　3月
列Ｂの月を参照して月ごとに列Ａの値を合計や平均する関数ありませんか

>>726
SUMIFあたりを組み合わせれば月ごとの集計はできるけど、普通はそういうのはピボットテーブルでやる。

>>723
VBA使わないと無理
ttp://officetanaka.net/other/extra/tips16.htm

>>715-717
一瞬作業が出来るようになったのですがまた戻ってしまいました。
セル選択してポップアップメニューから「切りとり」→「貼り付け」をしてもやはりコピーになってしまいます。
解決しそうもないので、死ぬほど困るものでもないし、このまま運用します。

>>726
合計・・・SUMIF関数
平均・・・AVERAGE関数＆COUNTIF

>>728
うほWSHから取れたのか。はずい回答しちゃったな。

エクセル2007で作ったファイルを
2003で開いたところ
塗りつぶし部分が違う色に変わってました。
これはどういうことでしょうか？

>>732
Office Excel 2007 では、色のサポートも、最大 1,600 万色となっています。

>>732
2003はたった56色しか使えないので、Excelが勝手に使える色に変えてしまう。

>>733-734
ありがと(・ω・｀ )

C1〜AA1　C3〜AA3　C5〜AA5　C7〜AA7　C9〜AA9　C11〜AA11　C13〜AA13
これらのセルにある背景色をまとめて変更して
さらに他のブックにも同時に適応したいのですが
どうしたらいいのでしょうか？

>>736
セル番号が規則的だからVBAを使うのが早い
Sub a()
　　For i = 1 To 13 Step 2
　　　　Range("C" & i & ":AA" & i).Interior.Color = RGB(255, 0, 255)
　　Next
End Sub
他のブックが1つのフォルダにまとまってるなら、それもVBAで簡単にできる。
手作業で一気にやる方法は、たぶんないと思う。

>>737
thx

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

セルの右上に単位として”万”とか”人”というふうに文字が表記されている
資料があるのですがどのようにしたら右上に小さく文字が表示できるのでしょうか？
コメント機能など使ってみましたがうまくできません(>_<)

>>739
ABCDE、と入力してDEだけを選択する
右クリックで書式設定
だけど単位だけ別のセルにした方が色々使い易いとは思うけど

>>740
ありがとうございます！！早速試してみます！

>>736
VBAが一番手っ取り早いと思うけど条件付き書式でも出来る。
=MOD(ROW(),2)=1
あと2003にあるかどうか知らないが、2007にはテーブルとして書式設定ってのもあるみたいだな。
列見出しが邪魔かも知らんけど。

オ-トシェイブのある列を消したところ、F列とG列の間に一本の線となって残ってしまいました。
右クリックで捕捉できず消すことができません。400％に拡大しても無理でした。消すにはどうしたらいいでしょう？

>>743
図形描画ばーの中の白抜き矢印の形のつーるをつかう

>>744
うーん、そこをONにして一本線クリックしても反応せんかった。

C1に22（和暦）　D1に3（月） E1に1（日）

C2〜31まで空白
D2〜31まで空白
E2〜31まで2〜31まで連番で入力。

この状態でF1〜F31まで曜日を自動入力するようにしたいのですが
どうしたらいいのでしょうか？

後、土曜日だけ青く
日曜日だけ赤色にすることは出来ますか？

>>743
一本の線になったってことは2003かな？2007なら図形は消滅するはずだし。
マウスを合わせてカーソルの形が変わたところっで左クリックすれば選択できる。
図形の上下にアンカー(小さい白丸)が付いたらDeleteで消える。

>>747
２００２使ってる。アンカーがつかないんだよね。２００７なら消滅するはずというなら一度そちらで開いてみようと思う。

>>746
F1に=DATE(C1+1988,D1,E1)、F2に=F1+1として下にオートフィル、F列の書式をaaa
文字や背景の色を変えるには条件付き書式で

だけど、日付は年月日に分けないで1つのセルに入れた方が便利だよ

>>745
クリックでなくドラッグして囲むのは？

2007だと一本線出てこないな。1回2007で保存して2002で開きなおしたら、
やっぱり一本線が残ってる。うーんうーん。実害はないが気になる。

>>750
無理だった。

とりあえずマクロを使って太らせてみるか
Sub xxx()
Dim tmp
For Each tmp In ActiveSheet.Shapes
If tmp.Width = 0 Then
tmp.Width = 30
End If
Next
End Sub

>>751
うちは2003、2007しかないから厳密に同じ実験はできないんだけど、
2003で一本線になった図形を2007で開いたらやっぱりちゃんと一本線が出てきた。

2007でホーム→検索と選択→オブジェクトの選択と表示で図形の一覧が出てくるはずだけど、
そこから選択できない？

>>753
図形の一覧で問題のオブジェクトを見つけた。チャートが一本線になってしまっていたみたいだった。消えてスッキリ。さんきゅ！

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

＞文字や背景の色を変えるには条件付き書式で
具体的にはどうしたらいいのでしょう？

F3+1が日曜日だとして
「F3+1」を条件設定で赤くなるようにした場合
F3+1が日曜日以外の時も、赤くなってしまいます。

どうしたら良いのでしょうか？

>>755
>>749をした後で、
条件付き書式で、数式を使用して書式を設定する。
=WEEKDAY($F1,2)=6の場合は青
=WEEKDAY($F1,2)=7の場合に赤にしる。

weekday関数をググってみると吉。

VBAを利用して

Webページにある複数のテキストボックスに
A1セルに書かれている内容をWeb上のAというテキストボックスに入力
A2セルに書かれている内容をWeb上のBというテキストボックスに入力
するような物を作りたいのですが
やり方とかあるのでしょうか？

あれば教えてください

>>756
すいません。
2010(beta）を使ってるんですが
条件設定　→　新しい書式のルール　→　（一番下の）数式を使用して　を選択。
次の数式を満たす場合に値を書式設定のとこに
「=WEEKDAY($F1,2)=7」を入力。プレビューで赤を選択としたのですが
何も変りません。

>>758
俺の2010betaはちゃんとうまくいくぜ？

>>759
ごめｎ　もっかいやったら
上手くいった　thx

すいません。
>>746とほぼ同条件で
B6に22（和暦）　C6に3（月） D6に1（日） E6に曜日の場合
E6〜36の曜日を、日曜だけ赤にするにはどうしたらいいのでしょうか？

=WEEKDAY($E6,7=7
かと思ったのですが何故か上手くいきません。

>>757
できる

objIE.Document.Forms(0).Item("A").Value = Range("A1")
objIE.Document.Forms(0).Item("B").Value = Range("A2")

みたいにやる。
Itemの次の文字列はページのソースを見ないとわからない。

>>761
>>756はちゃんと最後まで読んだか？

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

行に月、列に日付を書いて、毎日一つデータをうっています。
月1〜12
日
1 adg
〜 beh
31 cfi
a,b,c・・・が数字です。月ごとにグラフを表示させることはできるのですが、
一つのグラフに縦軸に数字、横軸に1月1〜31日、2月1〜28日・・・と
ずーっと横に伸ばして表示することってできないでしょうか？
今はひと月ずつ作って横に並べてみています。

↑すいません、ずれてます；何となく伝わるとは思うのですが；

下記の単語帳印刷用エクセルファイルをダウンロードして、
枠線の一部を変更しようとしたのですが、通常の「セルの書式設定」からは
できませんでした。
http://www.vitamin-p.jp/index/article/article_0313.html
どこから設定されてあるのかさっぱり分かりません。
お手数ですが、ご存知の方お教えくだされば嬉しいです。

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

>>763
できました。
すまそ。