Excel総合相談所 103

前スレ
Excel総合相談所 102
http://toro.2ch.net/test/read.cgi/bsoft/1334818676/

▼━ 質問のしかた ━━━━━━━━━━━━━━━━━━━━
★1 質問するときは環境や条件はきちんと書いてね。情報後出しはダメ。
★2 要望は具体例や図を使って明確かつ具体的に。
★3 質問テンプレ(雛形)は必須じゃないけど、出来れば使ってね

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

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

▼━質問時の注意･決まり事━━━━━━━━━━━━━━━━━━━━
･1 現行スレ内で既出の質問が無いか、ページ内検索をしよう。(Ctrl+F)
･2 図やコードを書く場合、TABや連続する半角スペースは無視されるので注意
･3 VBAコードを貼る場合は、部分的に伏せたり省略したりせずに全て貼りましょう。何レス使っても構いません。
･4 2回目以降の質問では名前欄に初回質問の番号を入れよう。
･5 回答内容でわからない部分があっても、すぐに聞き返さずにヘルプやGoogleなどで検索しましょう。
･6 バグ･動作上の不都合･仕様に関する質問などはマイクロソフトのサポートを受けましょう。
　　ここは技術的な質問のみで。

>>1乙

>>1
お疲れさまです。

前スレ>>998
> 例えば６月３０日の２１時に到着したくて
> そこまでたどり着くのに３０時間２１分かかるとして
> だったら何日の何時に出発すればいいのかという質問なのですが

セルの書式設定の表示形式を変える
到着日時のセル→m"月"d"日 "h"時"m"分"
かかる時分のセル→[h]"時"m"分"
出発日時のセル→m"月"d"日 "h"時"m"分"

意味が分からなければここを全部読んでみて(「関連情報」も含めて全て)
http://support.microsoft.com/kb/883199/ja

前スレで質問したのですが
１０００いっちゃったのでサイド質問させてください

６月３０日の２１時に到着したいと思い
そこまでたどり着くのに３０時間２１分かかるとして
だったら何日の何時に出発すればいいのかという計算は
エクセルでどう入力すればいいのでしょうか

>>４
ぎゃーごめんなさい
そのページ見てきます
ありがとうございました

>>6
入力する値はこんな感じでね

到着日時のセル→6/30 21:00
かかる時分のセル→30:21

>>前スレ991
>Ａ+Ｂ、Ｄ+Ｅ、Ｇ+Ｈの和が必ず60になるように、
>そして＠に数字を入れたらＡに40+20-＠の数値が入り、Ｂが60-Ａになる
>さらにＣに数字をいれるとＡ+Ｂ-Ｃの数値がＤに入りＥが60-Ｄ、
>Ｆに数字をいれて・・・の繰り返しをやりたいのですがどのような方法がありますか？

"40"と"20"ってのは数値なの？
それともA~Hと同様に何らかの変数なの？
数値なのだとしたら前掲の条件はすなわち
A=60-@
B=@
D=60-C
E=C
G=60-F
H=F

ただし、@,C,F,は任意の数
ってことだし、
"40"と"20"も変数なら
最初のAのところがA="40"+"20"-@になって、
BのところがB=@+60-"40"-"20"になるだけだけど。

とにかく、質問の意味が良く理解できないよ

【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010

前から気になっていたことなのですがExcelで保存した箇所までしかやり直し（元に戻すじゃなくてやり直し）が出来ないのは仕様なのでしょうか。
（例えばセルA1からA10まで順番に適当に入力して、A5まで元に戻すを実行して、その後ファイルを保存、やり直しを実行しようとしても実行出来ません）

>>9
はいそうです

>>10
違ってたらうれしかったのですがやっぱりそういう仕様でしたか。
ありがとうございます。

>>前スレ942-943
ありがとうございました。

すいませんお願いします。

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

ピポットテーブルを今勉強し始めたのですがうまくいきません。
行ラベルに１つドラッグしました（商品名とします）。
もう一つその下にドラッグする（担当者とします）と各商品名の下に担当者が来ると思うのですが、
なぜか表では１つ右の列に表示されます。
下に表示するにはどうすればいいでしょうか？

【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 マクロの記録程度
【4 VBAでの回答の可否】 可


やりたい事
アクティブセルにコメントを挿入
コメントにはA1セルとA2セルの値を入れる
A1セルとA2セルの値の間で改行

ネットで拾ったコードを弄って以下のようなコードを書きましたがエラーになってしまいます
どのようなコードにすればいいでしょうか
よろしくお願いします


Dim 一行目 As string
Dim 二行目 As string

一行目 = Range("A1")
二行目 = Range("A2")

ActiveCell.AddComment Text := 一行目 & VbCrLf & 二行目

>>13
ワカンネ
>>14
subつけた？2003だと動いたんだけどな
2010で記述方法が変わってるのかもしれない

Sub a()
Dim 一行目 As String
Dim 二行目 As String

一行目 = Range("A1")
二行目 = Range("A2")

ActiveCell.AddComment Text:=一行目 & vbCrLf & 二行目
End Sub

>>15
早速の回答ありがとうございます
省略しましたが実際のコードではsubも付けています
A1の値のみをコメントに入れることなら出来たのですが、&を付けるとエラーになってしまいます

>>16
これを追加したらどうなる？
ActiveCell.ClearComments

>>17
一度クリアしてからコメントを挿入する感じでしょうか
今手元にパソコンが無いので明日会社で試してみます
ありがとうございます

>>18
もし、>>17でエラーでなくなるなら、AddCommentのかわりにNoteTextでもいけるよ
ActiveCell.NoteText Text:=一行目 & vbCrLf & 二行目

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


グラフのデータを複数範囲を指定して入れたいのですがうまくいきません
何がよくないでしょうか？


With .SeriesCollection(1)

.Values = Application.Union(Worksheets("sheet1").Range(.Cells(i * 2, 1), .Cells(i * 2, 5)), Worksheets("sheet1").Range(.Cells(1, 1), .Cells(1, 5))).Select

End With

>>13
どんな表を元にどんな風に集計しようとしているのか全く読みとれない

>>20
withの使い方間違ってないか？
あとselectも？

>>22.
selectは無しでした。試してたのをそのまま間違って書いてしまいました。
withよくないかな？複数の範囲を指定する前はこんな感じでまともに動いていました。


set chart = Activesheet.chartobjects.add(0,100,100,100)
.seriesCollection. NewSeries

With .SeriesCollection(1)

.Values = Worksheets("sheet1").Range(.Cells(i * 2, 1), .Cells(i * 2, 5))
.chartType = xlLineMarkers

End With

「糞サマータイム」が導入されたら、
Excelの時間計算で、内部データは本来の時間、表示形式は夏期間だけ1時間ずらす、みたいな変なしくみになるのですか？
現状にサマータイムを導入してるヨーロッパの国々のExcelはどうなってますか？

>>15のコードを忠実に書いたら上手く処理されました！
&の前後にスペースを入れていなかったことが原因のようです

とても助かりました
回答くれた方ありがとうございます

>>23
それだって、↓ということだから、エラーになると思うけど

.SeriesCollection(1).Cells(i * 2, 1)

そもそもコードの示し方が中途半端すぎだよ

こんな感じか
Set sh = Sheets("Sheet1")

.SeriesCollection(i).Values = sh.Range(sh.Cells(i * 2, 1), sh.Cells(i * 2, 5))
.SeriesCollection(i).XValues = sh.Range(sh.Cells(1, 1), sh.Cells(1, 5))

来月を変数に入れる方法を教えてください。

kongetsu = Format(Date, "mm") * 1 & "月"
raigetsu = Format(Date, "mm") * 1 + 1 & "月"

これだと、12月のとき13月になってしまいます。

>>28
DateAdd使え

Vista
Office2007
の環境です。
いつの頃からかわかりませんが、エクセルのセルにアルファベットや数値を入力するとPCから読み上げる音声がながれます。今日ボリュームをいじっていて気づきました。
恐いです。助けてください。

>>28
raigetsu = Format(DateAdd("m", 1, Date), "m") & "月"

>>30
ヘッドフォンを買い換えろ

>>31
ありがとうございまし

>>28
これしきのことでvbaに頼らないとすれば、
作業セル=month(date(year(today()),month(today())+1,day(today())))

た

>>34
わざわざワークシート関数でのレスありがとうございます
お互いVBAの勉強頑張りましょうね

>>26>>27
単純に.Cellsにしてたのが悪かった・・・けど今回のでグラフで勘違いしてたところに気付けました。
大変助かりましたありがとうございます。

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

Book1 Sheet1のA1セルに =[Book2.xls]Sheet1!$B$1 と入れて閉じておきます。
Book2を開いて、Sheet1のセルがどこにリンクされてるか確認する方法を教えてください。

>>38
ブックを開く→"Workbooks.Open"でググれ
セルに数式が入力されているかどうかを調べる→"Range.HasFormula"でググれ
文字列の検索はLike演算子とかInStr関数使え

>>39
それBook1とBook2逆じゃないの

>>38
無理なんじゃね？

>>39
質問の意味が分かってねんじゃね？

>>38
http://www.eurus.dti.ne.jp/yoneyama/Excel/mous_jyo/jyo-6.html

複乳さんがお亡くなりになられたのは本当ですか？

>>38
まず閉じたBook1を開いてみ
話はそれからだ

>>43
知らん。随分見てないな

せんせー◆adhRKFl5jU　＝　複乳なの？

VBAをやるにあたって英語って最低限わかってなだめなのか
自分の頭は中1で止まってるんだが

今の時代Google先生とExcite先生がいるじゃないか

>>47
VBAなら日本語の情報あふれてる
英語なんて全く不要

MSDNライブラリの日本語訳が狂ってる時がある
英語が必要になるのってその時ぐらいかと

>>39
＞ブックを開く→"Workbooks.Open"でググれ
なぜ？　意味がわかりません。

＞セルに数式が入力されているかどうかを調べる→"Range.HasFormula"でググれ
ググりましたが、Book2には数式が入っていません。
どのように使えばいいのでしょうか？

>>41
無理なんですか？

>>42
このあとが分かりません・・・orz
ｈttp://s1.gazo.cc/up/s1_27642.jpg

>>44
開いてみましたが何か？

>>51
矢印をダブルクリックすると「ジャンプ」で参照元が出るよ

>>52
出ました。
ありがとうございます。

>>34とか>>39ってバカなの？

そうだよ、よかったね

よかったね　よかったよ　よかったね　よかったよ
カプカプカプカプカプカプカプカプ！！！！！！！！！

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

計画と実績を書いた表があります。
http://uproda.2ch-library.com/544177r6P/lib544177.jpg

計画に対し実績が上回ったら、計画のセルに濃い水色で
このように着色をしたいです。
http://uproda.2ch-library.com/544179zwE/lib544179.jpg

下記のようなマクロを書きましたが、うまくいきません。
http://uproda.2ch-library.com/544178rEs/lib544178.jpg
どこを直せばいいでしょうか？

Sub 着色()
　Dim TTL As Long, PLN As Integer, EXC As Integer
　Dim i As Integer, j As Integer
　TTL = Range("B1048576").End(xlUp).Row
　For i = 3 To TTL Step 2
　　PLN = 0
　　EXC = 0
　　For j = 5 To 35
　　　If Cells(i, j) > 0 Then
　　　　PLN = PLN + Cells(i, j)
　　　　EXC = EXC + Cells(i + 1, j)
　　　　If PLN <= EXC Then
　　　　　Cells(i, j).Interior.Color = 16776960
　　　　End If
　　　End If
　　Next j
　Next i
End Sub

VBAのハウツー本を買ってきたがまずオブジェクトってなんやねん、ということから始まって
４か月。未だにまったく進歩がない、果たして私はそれでも覚えられるのだろうか

>>57
If Cells(i, j) > 0 or Cells(i+1, j)>0 Then　かな？

>>59
だめでした・・・
http://uproda.2ch-library.com/544191Nso/lib544191.jpg

>>58
オブジェクトってのは実体
実体という言い方だと捉えにくいが、最低限エクセルで見えてるものは絶対にオブジェクト
bookやワークシート、セル、コマンドボタンに図形は全てオブジェクト。

ただVBAはセルの操作が主になるので、セルの操作を極めたほうがいいと思う
オブジェクトはクラスという概念と密接に関わるのだが、vbaはクラスを意識しなくても操作できちゃうから覚えにくい
オブジェクトはC++やJAVAやれば一発で理解できるよ

>>60
If Cells(i, j) > 0　and PLN <= EXC Then　これもかな

>>57
実績＞計画、だと思うんだけど、
E5はどうなん？計画だけで実績がないところも塗るのかい

>>62
だめでした・・・
http://uproda.2ch-library.com/544198vHr/lib544198.jpg

>>63
塗り方は、57で書いたとおりです。
http://uproda.2ch-library.com/544179zwE/lib544179.jpg

>>57
条件付き書式で塗っちゃダメなの？

あぁ、コレもしかして二行で1セットなのか。
説明せんと分からんわｗｗｗ
まぁいいわ
ａ　　ｂ　　ｃ　ｄ
10　30　10　10
20　00　10　1000
この場合はどう塗るんだ？
ABはわかるがCDの条件が分からん

>>64
んんー、どこが駄目なのかよくわからん
塗り方のルールが理解できん、というか見本間違ってないか？

E3:K3とE4:K4の合計といった感じで比べてるはず

>>64
For i = 3 To TTL Step 2
EXC = 0
For j = 5 To 35
If Cells(i + 1, j) > 0 Then
EXC = EXC + Cells(i + 1, j)
End If
Next
PLN = 0
For j = 5 To 35
If Cells(i, j) > 0 Then
PLN = PLN + Cells(i, j)
If PLN <= EXC Then
Cells(i, j).Interior.Color = 16776960
End If
End If
Next j
Next i

塗り方の条件です。
http://uproda.2ch-library.com/544215MWX/lib544215.jpg

>>69
なるほね。やりたいことがわかったよ

条件付き書式だと一瞬でできた
B3=IF(B3<>"",SUM(4:4)>SUM(B$3:B3))

前後は問わねえってことか・・・？

>>70
>>69で理解したつもりが、それ見せられたら、またわかんなくなったじゃねーか

こういうやつ困るよなあ
説明したつもりにだけなっていてその実全然説明できてないっていう
説明したつもりになってるから何を聞いても「さっき言っただろ」みたいな態度とるし

>>70
計画がリセットされるタイミングがわからん

10か20しか出てこないのか？
もっと細かいレベルまで対応させないとダメなのか？
あーくそわかんねえ

ここまで周到に準備してるって事は
釣りって事だよ

>>70の途中から塗ってないのはリセットじゃなくて単に怠慢
>>69>>72で正解

ようするに、その月の計画で、どの日以降の分から未達かをしりたいだよね
だったら、>>69や>>72でOK

>>74
3行目は計画の累積が60、実績の累積も60なので、
全ての計画のセル（E3, I3, K3, O3）が塗られます。

5行目は計画の累積が60、実績の累積も60なので、
全ての計画のセル（E5, H5, J5, K5, O5, P5）が塗られます。

7行目は計画の累積が50、実績の累積は40なので、
計画の累積40を満たすセル（E7, I7, K7, P7）が塗られます。

9行目は計画の累積が80、実績の累積は110なので、
計画の累積80を満たすセル（H9, J9, L9, O9, Q9）が塗られます。

11行目は計画の累積が80、実績の累積は40なので、
計画の累積40を満たすセル（E11, I11）が塗られます。

>>76
「計画がリセット」の意味が分かりません。

>>77
実際にはもっと複雑なので、10と20だけにしました。

>>79
やりたいのはこれです。
http://uproda.2ch-library.com/544179zwE/lib544179.jpg
69では動きませんでした。

もしかして>>70は質問者とは別の愉快犯か？

>>80
69は動きませんので、正解でもOKでもないです。

条件付き書式は全てのセルに設定するのでしょうか？

>>83
70は私、本人です。

69は頭の
Sub 着色()
　Dim TTL As Long, PLN As Integer, EXC As Integer
　Dim i As Integer, j As Integer
　TTL = Range("B1048576").End(xlUp).Row
を省いてるんだろ。足したらちゃんと動く

>>71 >>74 >>79-80

69のマクロだと、ウンともスンとも言わないですが
エクセルのバージョンは2007ですか？

>>85
3行が抜けてたんですね。
失礼しました。

でもダメでした・・・
http://uproda.2ch-library.com/544238SJb/lib544238.jpg

これらの条件を満たしていません。
7行目は計画の累積が50、実績の累積は40なので、
計画の累積40を満たすセル（E7, I7, K7, P7）が塗られます。
11行目は計画の累積が80、実績の累積は40なので、
計画の累積40を満たすセル（E11, I11）が塗られます。

実際の数字はもっと複雑って・・・だから説明不足だって言ってんだろ
常に計画の累計と実績の累計は一致すんのかよ？
一番大事なデータ部分を端折るんじゃねえクソが

なんで質問してる人のほうが偉そうにしてるの？

>>88
>常に計画の累計と実績の累計は一致すんのかよ？

月末になれば一致します。

誤記訂正

誤：月末になれば一致します。
正：月末の前日になれば一致します。（棚卸しで入出庫禁止があるため）

はいはい
じゃあ月末までは一致しない部分が出てくる訳だろ
その説明はどこにあんだよ
もう最初から塗りつぶしのグラフでも作ったほうがいいんじゃねえのか
こうやって都度説明求めて方向転換させるのは大迷惑なんだが？

いやそういう誤記はどうでもいいから

>>88
>一番大事なデータ部分を端折るんじゃねえクソが

一番大事なデータ部分は端折っていません。
これで十分だと認識しています。
http://uproda.2ch-library.com/544177r6P/lib544177.jpg

>>92
計画の累積と実績の累積が違う場合の条件は
81に書いてます。

ははははこりゃすごいや
ここまで偉そうな質問者初めて見たよ

低脳はすっこんでろよ

>>93
貴方がそれで十分だと認識していても
相手が不足だと認識していれば意味はありませんよ

私の書込みではありませんが
たとえば>>66に対して答えてあげては如何ですか？

エスパー検定！エスパー検定の認定者はまだか！！

僕みたいな低能が思うに月末の前で一致するならそんな表はいらないと思うんです。

>>98
そこそこ自信があったつもりだったが、これは無理だ

>>97
66は計画の累積が60、実績の累積が1030なので、
全ての計画のセルが塗られます。

すみません、バイトに行って来ます。

ﾜﾛﾀｗｗｗｗ

なぜ戻る時間を書かないｗ

>>70でわざわざ手書きまでして囲ったのが意味不明にした根源なんじゃ…

とりあえず>>69と>>72であってるよ
これで正しくないってのなら>>57が手順をミスってるだけ
じゃあ俺もバイト行ってくるわ

最初の>>57のコードでミスリードされた感じ
釣りだとしたら月後半部分のデータをみせてないのも絶妙

>57のウンコードの手直しはさすがにやる気起きなかった
Sub a()
gyo = Range("D20").End(xlUp).Row
For i = 3 To gyo Step 2
goukei = WorksheetFunction.Sum(ActiveSheet.Range(i + 1 & ":" & i + 1))
For k = 5 To 35
kei = WorksheetFunction.Sum(ActiveSheet.Range(Cells(i, 5), Cells(i, k)))
If (goukei > kei) And (Cells(i, k) <> "") Then
Cells(i, k).Interior.ColorIndex = 6
End If
Next
Next
End Sub

otto,(goukei >= kei)kouka
酒買いに行こう

>>108
クソースすぎてワロタ

>>110
ようやく質問の意味を理解して
書き始めたはいいが一瞬で飽きてしまい
一秒でもこんな無駄な作業を終わらせたい
そんな思いを込めて私、書きました

>>108
間違ってるよ。

>>112
まじで！まぁいっか

質問の意味を理解するのに2時間とかｗｗｗ
こんなとき、複乳さんがいれば10分も掛からなかっただろうにｗｗｗ

あいつはエスパー能力高かったなｗ

１日でexcelがマスターできる？？

http://mcas.ichiyazuke.jp/

Ｅｘｃｅｌ習うのに無料らしいよ

http://onpaso.net/mg/excel.html?gclid=CKLWyKP15rACFYY3pAodnFwD0A

こういのって、どうなの？

>>116-117
できねーよボケ

広告にいちいち反応するなよ恥ずかしい

前日比のある日報を書いています

左に前日、右に今日のデータを入力しているのですがこれを
新規ブックを作成して右の部分を切り取って左に張り付け、の動作を行いたいのですがこのマクロを作りたい場合どのようなワードで検索を行えば調べられますか?

>>120
基本はマクロの保存
>新規ブックを作成して右の部分を切り取って左に張り付け、
ではなく、
右の部分を切り取って左に張り付け、新規ブックに保存
ならマクロの保存が効く
また詰まったら来るといい

>>108 >>111
ありがとう。
そのままだと使えなかったので、ActiveSheet.Range(i + 1 & ":" & i + 1)を直しました。

>>109
その意味は？

>>112
どこが？

>>114
そうですね。

出てくんな死ねカス

エクセルみたいなソフトってOoo以外にありますか？

>>124
GoogleドキュメントとかLibreOfficeとかKINGSOFT OfficeとかLotus1・2・3とか

メッセージを出して、「はい」ならスルーさせ、「いいえ」なら終了させるマクロは？

>>125
ありがとうございます！

>>126
ttp://www.eurus.dti.ne.jp/yoneyama/Excel/vba/vba_msgbox.html
の他、vbyesnoでぐぐれ
わからなければコードとともに、またおいで

>>128
�d

数値か文字かを分けるのを探してたら
2つのサイトでこんなのがありました。

If VarType(Range("A1").Value) = vbDouble Then

>>130
試してみたが、文字列でもlongになるね
このスレまるごとコピペしてみたけどlongだった
（ちなみに>>23ぐらいで、あとは切り捨てられた）
ポインタっぽい値の保存の仕方をしてると思う

>>125
三四郎「おれは？」

ちょっとわかりづらいかも知れませんが
毎日列を挿入して日付列が増えていく日報があり
最終列に　SUM（G2:M2）として直近７日間の合計を入れてます。

日付を挿入しても相対アドレスだからSUM（G2:M2）のままですが
これを挿入掛けた時点でSUM（H2:N2）にしたいのです。

今は
・日付挿入
・合計列を次の隣の列にコピー　：SUM（H2:N2）になる
・今の合計列を削除する
でやってますが

もっとシンプルに出来ませんか？
SUM（［このセル-8］:［このセル-1］）のようなポインタ的使い方とか無いですか？
絶対アドレスとも違うし・・・・相対固定アドレスというか

>>133
offset()

ありがとう
調べてみます

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

シフトを作っています。
Ａ列にWEEKDAY関数を使用して、“１（日）”のように表示させています。
そこでＢ列に、日曜日ならＡさん・月曜日と水曜日はＢさんのように、曜日に対応した名前を入力する方法があれば教えてください。
ＩＦ関数とかを見てみたのですが、上手くできませんでした。
お手数をおかけしますが、よろしくお願いいたします。

>>136
別表作ってvlookupを使う。

もしくはCHOOSE()
C1を参照しているとして
=CHOOSE(WEEKDAY(C1),"aさｎ","bさｎ","cさｎ","dさｎ","eさｎ","fさｎ","gさｎ")
もしくはまとめてしまっても
=TEXT(C1,"d(aaa)")&CHOOSE(WEEKDAY(C1),"aさｎ","bさｎ","cさｎ","dさｎ","eさｎ","fさｎ","gさｎ")

ワンタッチで
Aさん＝1
Bさん＝2・・・・に数値化しちゃうやつなかったっけ？

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

A列にボタンを貼り付ける
A列を非表示にする。
保存する。再度開いて
A列を再表示するとボタンが左端に消えかかっている。
ボタンを貼り付けた位置にちゃんと表示させるにはどうすればいいのですか？

>>72
今さらですが・・・
条件付き書式の設定がわかりません。

[email protected]って入力すると青い文字でアンダーバーが出ちゃうんですけどフツーの黒い文字でアンダーバーが出ないやつにできますか？

>>141
そのセルを選択して右クリック→ハイパーリンクの削除

>>141
http://kokodane.com/tec46.htm
ツール　オートコレクトのオプション　インターネットとアドレスのなんとかかんとか

>>140
死ねカス二度と出てくんな
あれだけ迷惑かけて謝罪のひとつもなしか
人間として恥を知れ！

>>139
コントロール右クリックで書式設定、プロパティ
>>138
イマイチ分からん

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

Dim kare As String
Dim deta As String
Dim hyou As String
Dim goukei As String

Application.ScreenUpdating = False
kare = ThisWorkbook.Path & "\" & "データ.xlsx"
deta = "データ.xlsx"
hyou = "表.xlsm"
goukei = "合計"

Workbooks.Open Filename:=kare, UpdateLinks:=0

Workbooks(deta).Worksheets(goukei).Range("A1:c10").Copy _
Workbooks(hyou).Worksheets("sheet2").Range("A1")

'ここでエラー
Workbooks(hyou).Worksheets("sheet2").Range("A1:C10").Copy _
Workbooks(hyou).Worksheets("sheet1").Range("c2").Value

With Workbooks(deta)
.Close
End With

データbookのデータを表bookのsheet2に入れて計算してから
表bookのsheet1に表示させたいのですがどう直したらよいでしょうか？

【1 OSの種類 　 　 　 　 .】 WindowsXP　　
【2 Excelのバージョン 　 】 Excel2000、2003　
【3 VBAが使えるか　 　 .】 ちょっぴり
【4 VBAでの回答の可否】 可

A1からA30くらいまでに人の名前が入ってます。一部のセルは空白です。
また人名が入ったセルのうち、一部のセルは色がついてます。
人名が入っていて、なおかつ色がついてないセルを抽出して、別シートに貼り付けたいです。
どんな方法があるでしょうか？よろしくお願いいたします。

>>146
.Value要らない

>>147
ループ：A1:A30
　条件分岐：セルは空ではない
　　条件分岐：セルに色が付いていない
　　　別シートにコピー

でいいんじゃね？

>>148
'Value外しても
実行時エラー '1004':アプリケーション定義またはオブジェクト定義のエラーです。がでます｡


ここを
Workbooks(deta).Worksheets(goukei).Range("A1" & ":" & "c10").Copy _
Workbooks(hyou).Worksheets("sheet2").Range("A1")

こちらに変えてみたらエラーはでないけど
sheet2の内容がsheet1に反映されないです。
Dim copy1, copy2 As Range
Dim workb As String

Set copy2 = Workbooks(hyou).Worksheets("sheet2").Range("A1:c10")
Set copy1 = Workbooks(hyou).Worksheets("sheet1").Range("A1")
copy1 = copy2

データに目印をつけるために
１文字目に記号を付ける場合
アスタリスクを使うのはやめたほうがいいですか？
（列を挿入してその列を目印用に使うのはこの場合は無しです）

検索しにくくなるからな。個人的には使わない
ハイフンおすすめ、と言いたいがエクセルではハイフンで始めるとエラーになるんだった。
/*ではじめればコメントっぽいぞ、と思ったらメニューバーに飛ばされる。
一文字で打てる@がいいんじゃね？やっぱりエラー＼(^o^)／

アスタリスクでいいと思います。
それかセルの色を変える。

そういえば@で始めるとどういう扱いになってるんだろう？

>>150
コレでできたよ。ってかそもそも>>148の通りvalue抜くだけで動くけど
Sub a()
Dim kare As String, deta As String, hyou As String, goukei As String
Application.ScreenUpdating = False
kare = ThisWorkbook.Path & "\" & "データ.xls"
deta = "データ.xls"
hyou = "表.xls"
goukei = "合計"
Workbooks.Open Filename:=kare, UpdateLinks:=0
kare = ThisWorkbook.Path & "\" & "表.xls"

Workbooks.Open Filename:=kare '表を開いてなかったので追加

Workbooks(deta).Worksheets(goukei).Range("A1:c10").Copy _
Workbooks(hyou).Worksheets("sheet2").Range("A1")
'ここでエラー
Workbooks(hyou).Worksheets("sheet2").Range("A1:C10").Copy _
Workbooks(hyou).Worksheets("sheet1").Range("c2")
With Workbooks(deta)
.Close
End With
End Sub

excel2010 グラフのデータ範囲の自動追加について

下記のデータで、5日目以降のＮ０１、Ｎ０２のデータを打ち込んでいくと自動でグラフが更新
されるようにしたいのですがご教授願います。

１　　　項目 　　　1日 　　2日 　3日 　4日
２　　　Ｎ０１　　　10 　　15 　20 　25
３　　　Ｎ０２　　　20 　　25 　30 　35
　　　
名前定義とＯＦＦＳＥＴ関数を使えばできそうなのですが、表全体を名前定義するのか
個々の行を名前定義するのか、よくわかりません。

�@Ａ１：Ｅ３を定義する必要はありますか？その場合設定したあとはどのように
　なりますか？
　=offset(A1,0,0,3,counta(1:1),1　　　

�A各行ごとに名前定義を設定する必要はありますか？その場合の設定後の
　流れはどのようになりますでしょうか？
　=offset(A1,0,0,0,counta(1:1))
=offset(A2,0,0,0,counta(2:2))
=offset(A3,0,0,0,counta(3:3))

名前定義した後、グラフのＮ０１を選択し、編集の系列値で数式で使用▼からＮｏ１の名前定義を
選択しようと試みたのですが、必ず１つは数字がはいってないといけませんとエラーになりました。

>>154
エクセル　グラフ　自動更新
でぐぐって一番上
http://www.itsmemo.com/it/excel/000180.html

NO1NO2と二行ある場合、それぞれで名前定義しないとダメっぽい
大量にあるならvbaだろうな

エクセルの最新版って、オフィス2010なの？

はい。予定では7月に2012がでるそうで。

>>156-157

現行最新版は　Excel 2011 for Mac

>>157
ありがとうございます
7月になるまで待つことにしました

>>158
ﾏｯｸにもexcelってあるんですね

>>158
macの存在忘れてた、スマン

>>159
エクセルは元々Mac用に開発されたソフトで、その後Windowsに移植されたんだよ。

Macrosoft なんつって！

HAHAHA

ギャー静止ふんじゃった

>>72
条件付き書式の設定がわかりません。

>>165
http://goo.gl/iDgBv
このサイトに、条件付き書式について詳しく書いてあるよ！
コレさえ見れば、今日からお前も条件付き書式マスターだ！
2010ならデータバーでグラデーションとかできて、まじエクセルが楽しくなるYO

短縮URL怖い

>>148>>153さん無事動きました。ありがとうございました

value抜いても動かない動いても反映されない
>>153で動くのにと調べていてCopy _をCopyで試したら動きました。

Workbooks(hyou).Worksheets("sheet2").Range("A1:C10").Copy _
Workbooks(hyou).Worksheets("sheet1").Range("c2")
↓
Workbooks(hyou).Worksheets("sheet2").Range("A1:C10").Copy
Workbooks(hyou).Worksheets("sheet1").Range("c2")
これが正しい書き方だったのかな？

>>167
ハゲどー

166は、グロとかウィルスとかですかね？

作品名　　　　全巻数
サザエさん　全４巻
アンパンマン　全５巻

作品数が1000ぐらいあって処理に困っています。
上を下記のようにしたいのですが、どうすればいいですか？
よろしくおねがいします。

作品名　　　全巻数　　巻数
サザエさん　全４巻　　第１巻
サザエさん　全４巻　　第２巻
サザエさん　全４巻　　第３巻
サザエさん　全４巻　　第４巻
アンパンマン　全５巻　第1巻
アンパンマン　全５巻 第2巻
アンパンマン　全５巻 第3巻
アンパンマン　全５巻 第4巻
アンパンマン　全５巻 第5巻

>>169
いい加減黙れよ
おまえのせいで妙なリンクまで貼られてるんだぞ
なんとも思わねえのかよこの池沼白痴野郎が

>>171
気に入らない書き込みはスルーを推奨スルー

俺からも質問
時間の計算をしたいのですが、なんてググっていいのかわかりません。
検索ワードだけでも回答お願いします。

時間の形式は
yyyy/m/d h:m:s
となっており、
A1とB1に上記形式の時間データが入ってます
B1が翌日になっていた場合、C1にA1の日付かつB1の時間＋24時間で表示をしたいです。

例）
A1:2012/5/1 16:18:34
B2:2012/5/2 1:14:15
C2:2012/5/1 25:14:15

AとBの差は最大で15時間程度です。
よろしくおねがいします。

>>168
それはおかしい。改行されてるんじゃないか
Workbooks(hyou).Worksheets("sheet1").Range("c2")
だけではエラーが起きるはず。onerror resume nextとかやってんなら別だけど
つか.copyの後は.pasteと書くほうが見やすい気がする。
>>170
http://www.dotup.org/uploda/www.dotup.org3134912.xls
vba作ってやったぞ
ボタン押せば自動的に全部出る
>>171
気持ちはわかるが、相手はゆとりだ。ゆとりはこういう生き物なんだと思う。
>>173
ぐぐるわーどは「シリアル値」
C1=IF(INT(B1)>=INT(A1)+1,INT(A1)+((B1)-INT(B1))+1,"nanika")
timeとかdateとかあるけど、簡単に言うとint()にすると日付のみのデータになる。
逆に(B1)-INT(B1)で時間のみのデータになる
"nanika"は一日以上差がついてない場合。A1でもB1でも好きに入れればイイ

>>174
あなたがネ申ですか。
TIMEとかHOURにこだわってて、INTするなんて発想ぜんぜんありませんでした。
ぶっちゃけ、目的の表示にはなりませんでしたが活路が見えたのでマジ感謝です。
にちゃんねるが初めて人生の役に立ちました。

条件が足りてなくてすいません、"nanika"の部分はB1でした。

>>174
先生ありがとうございます。
スルーされると思ったのに、即レスで感動しました。

ところで、visual basicを勉強すれば、作って頂いたようなコードが書けるのでしょうか？
おすすめの本はありますか？

甘えるない・・・
ゆとりだからと許せるほどこっちも人間できちゃいないさァ
被った迷惑の分はキッチリ償ってもらうぜ
それが嫌ならもう二度と出てきなさんな

>>173
=TEXT(A1,"yyyy/m/d ")&TEXT(A2-INT(A1),"[h]:mm:ss")
でいいんじゃないの？

>>174みたいにシリアル値として算出する方向性では無理だよ
シリアル値で「2012/5/1 25:14:15」的な表示が出来るならわざわざ計算する必要も無いからね
なので、シリアル値ではなく文字列として値を返す式を組まないと目的は達せない

>>175
間違ってたかな、まぁいいや
>>176
本は知らん。多分役に立たない。
最初は「マクロの記録」を使って、それを改変するって感じで
自分でコードを書くのが一番いい。
それか今のコードを読むとイイ。ちょっとしんどいけどな。実線が一番身につく。
ある程度できるようになれば「office田中」をググってみるといいと思う
初心者にはわかりにくいページだけど。
>>178
すまんかった
ああ、そうか、25時か。よく見てなかった。

さて、訂正するかと思ったら>>178が完璧すぎて涙目。

>>179
ご親切にありがとう。
薄謝をさしあげたいぐらいだ。
もしブログがあって楽天アフィリエイトを貼ってたら、
そこから購入しますよw

>>181
39-
でももってないや、残念
まぁそこそこ覚えたらここで回答者にでもなっておくれ

>>149
ありがとうございます。ループとか条件分岐をしっかり勉強します。

>>171
画像付きで、>>81でも細かく説明したのに
説明不足だとか、そんな表はいらないとか、釣りだとか、
月後半部分のデータをみせてないのも絶妙とか
バカ丸出しの己を哀れだと思うがよろし

別の意味でゆとりだなｗ

経過時間の表示［h]:mm:ss　なんて初めて知ったわ

質問しておきながら遅くなりすみません。
（言い訳ですが娘が熱を出し仕事場を離れてしまったので）

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

シフトを作っています。
Ａ列にWEEKDAY関数を使用して、“１（日）”のように表示させています。
そこでＢ列に、日曜日ならＡさん・月曜日と水曜日はＢさんのように、曜日に対応した名前を入力する方法があれば教えてください。
ＩＦ関数とかを見てみたのですが、上手くできませんでした。
お手数をおかけしますが、よろしくお願いいたします。

>>136
別表作ってvlookupを使う。

もしくはCHOOSE()
C1を参照しているとして
=CHOOSE(WEEKDAY(C1),"aさｎ","bさｎ","cさｎ","dさｎ","eさｎ","fさｎ","gさｎ")
もしくはまとめてしまっても
=TEXT(C1,"d(aaa)")&CHOOSE(WEEKDAY(C1),"aさｎ","bさｎ","cさｎ","dさｎ","eさｎ","fさｎ","gさｎ")

申し訳ありませんが　もう少し詳しく説明して頂けないでしょうか？
不勉強で　すみません　　よろしくお願いいたします

>>187
不勉強はどっちでもいいんだけど、
元のファイルがよくわからない
A列の数式と書式設定が知りたい

>>188
Ａ１に　２０１２（年）
Ｄ１に　７（月）
Ａ３に　=DATE(A1,D1,1)
Ａ４に　=A3+1
表示形式は　d(aaa)です
新しい月を作成する場合　年月を入力して
Ａ列に　日（曜）　Ｂ列に自動で曜日に対応する氏名が出れば助かります

>>189
どこかに
日 | Aさん
月 | Bさん
火 | Cさん
水 | Bさん
　：　　：
土 | Cさん
という対応表を作り
B3に、=VLOOKUP(TEXT(A3,"aaa"),対応表の絶対参照,2,FALSE)

>>190
対応表の作り方　検索したのですが　よくわかりません
また　対応表の絶対参照とは　作成した対応表のセル番号を入れればいいのでしょうか？

とりあえずvlookupを使えるまで練習するんだ

189です
対応表の作り方
=IF(A1=日,"○○","")(A1=月,"○○","")(A1=火,"○○","")
では　ダメですよね

189です
仕事で外に行かないといけない時間になりました
また　あす　ご教授いただければ幸いです
よろしくお願いいたします

>>193
別にいいけど、vlookupは無茶苦茶便利なので絶対に覚えておいたほうがいいと思う
ちなみに書くなら↓こんな感じ
=IF(A3=1,"○○","")＆(A3=2,"○○","")＆(A3=3,"○○","")

>>171
なんで俺のせいなの？
おバカさんでも分かるように、元のデータとマクロ実行後の図を用意したし、
質問のやりかたも完璧だったし、必要と感じた質問には答えたのに。

「計画と実績を書いた表があります」と文章に書き、わざわざ図まで用意しておいたのに、
「あぁ、コレもしかして二行で1セットなのか」とか書いてくるDQNもいたな。
「じゃぁーお前は、今までどこを見てたんだよ（ﾌﾟ　」って途中で書きたくなったけど
俺はオトナなので我慢してたけどね。

最後までグチ一つ言わずに我慢するのが大人
最初から我慢できない奴も、途中で我慢できなくなっちゃう奴も子供

>>196
気に入らない書き込みはスルーを推奨スルー

>>196
なろほど、あなたはゆとりではなくオトナだったのですね！失礼いたしました！
オトナの方はそんなつまらないことでは反論しないので勘違いしてしまいました

>>196
件のリンクが張られた書込みはおまえにアンカーが引いてあるわけだが？
であるのにおまえのせいじゃないと？
ほら調子に乗るからすぐにブーメランされる今の気持ちはどうだ？
この書込みすらもおまえのせいで書かれているんだが？
これが他の人の迷惑になってないと言えるのか？
おまえさえ黙っていればみんな迷惑しないんだよわかったら黙ってろハゲ

こいつうぜーから>>196もう出てくんな

187〜195　の件です
仕事場に居れる時間が短いので　とびとびですみません

シート１に目当てのシフト表を　シート２のＡ１に
=IF(Sheet1!A3=1,"○○","")＆(Sheet1!A3=2,"○○","")＆(Sheet1!A3=3,"○○","")＆(Sheet1!A3=4,"○○","")＆(Sheet1!A3=5,"○○","")＆(Sheet1!A3=6,"○○","") ＆(Sheet1!A3=7,"○○","")
・・・を　入力したのですが　エラーが出ます

すみません
説明して頂いた内容　取り違えているのでしょうか？

202　の続きです
シート１の　Ｂ３には
=VLOOKUP(TEXT(A3,"aaa"),Sheet2!A1,2,FALSE)と入れました

>>202
冗談か冷やかしか、>195が書いた意図はわからないが、
その回答は根本的に間違ってる
Ifで書くなら
＝If(Sheet1!A3=1,"○○",If(Sheet1!A3=2,"△△",If(Sheet1!A3=3,"□□",""）））
見たいな感じにIfを入れ子で使う。
（ここでは3重だけど実際には7重にする）

でも、Chooseのほうがよりシンプルに書ける
これの問題例2を参考に、曜日の変わりに人名を選ぶようにすればOK
http://www.eurus.dti.ne.jp/yoneyama/Excel/kansu/choose.htm

さらにいうとVlookup覚えたほうがさらに良いと思われる。
てか、さんざんヒント貰ってるんだから少しはぐぐったらどうだい？

>204
ありがとうございます
Vlookupの解説ＨＰ　いくつも見たのですが
入れ子がよく理解できなくて・・・
時間がなくて焦ってたものですから　すみません
もう１度　時間をかけてゆっくり理解できるまで　読んでみます

>>205
http://www.dotup.org/uploda/www.dotup.org3139996.xls.html
数式作ったから
これみて勉強してくだちい

ＣＯＵＮＴＩＦについて質問です。
ＳＵＭＩＦＳのように条件を複数指定してカウントさせたいのですが、どうすれば可能でしょうか？

COUNTIFSじゃね？

>>208
( ; ゜Д゜)マジですか！
ウチのEXCEL本は古いのか…
載ってませんorz

ＳＵＭＩＦＳと同じ条件式ですか？

2007だか2010からしか使えない

>>209
ぐぐれば出てくる
>>210
SUMIFSもCOUNTIFSも2007からの関数だから
SUMIFSが使える環境ならCOUNTIFSも使える

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

>>200
166のリンクをクリックするとどうなるの？
それで被害が出たなら、批難すべきは166のカキコをしたヤツだろ？
166に触れないのは、書いたのがお前さんだからか。

余談ですが俺はまだ27歳なので、お前さんのようにハゲていません。
残念でした。

これ以上池沼を相手にしないでほしい
頼む

VBEのコードの表示色ですけどもっと色を増やせないのかな？
背景を濃い緑にしたいのに明るすぎる。お勧めの設定変更はありますか？

なんかしつこい人ですね。
>>213

今更だけど、実際>>57の質問内容は普通に最初の画像と説明だけで十分理解できたけどね。
>>73>>74>>75>>76>>77>>78で頭の悪い回答者が続いたのは確かだと思う。

でも動作確認までしてないが見た感じ>>79>>80で正解。もし動かないとしてもコードを
読んで考えれば自分のコードで何がダメだったかわかるはず。
それを何も考えずにコピペしただけなのか、「うごきませんので正解でないです」

とりあえず自力で考える気が無さすぎなのと態度悪すぎなのは>>57に非があると思うが、
それぐらいは理解できんか？

たぶんあなたはヤフー知恵袋とかのほうが合ってると思う。

>>216
知的障害者ってさ、どんな説得力のある文章を書いても意味ないのよ
だから>>214なのよ
頼むわ

>>213
リンク先だけが問題だと思ってるのか？
被害が出たらその責任は全部おまえだよ

ハゲだって文字通りの禿げっていう意味じゃないことも知らないのかハゲ
これだから池沼白痴野郎は困るんだよ
迷惑だからいい加減黙っててくれないか！

スルーできない馬鹿

スルーできない馬鹿がうざいから>>213は黙れよ・・・マジ迷惑だぞ

馬鹿と馬鹿が争ってらﾌﾟｹﾞﾗｗ

　　　　　　　　　　E　　　　F　　　　G　　　　H　　　　I　　　　J　　　　K　　　　L　　　　M　　　　N　　　　O　　　　P　　　　Q　　　　R　　　　S
1
2
3
4
5　　　　　　　　　　　　　　　　　　４月　　　　　　　　　　　　　　　　　　　　　　５月　　　　　　　　　　　　　　　　　　　　　　６月
6
7　　　　　　　　入荷　　確定　　不足　　使用　　残量　　入荷　　確定　　不足　　使用　　残量　　入荷　　確定　　不足　　使用　　残量
8
9

このような氷河あって、8行目以下にデータが入っています。
B列とC列はタイトル列になっており、不足の欄にマイナスの値があったら
シート"不足一覧"に書き出していますが、マイナスの値がないときは
書き出さないようにするにはどうすればいいですか？

Sub 不足一覧に書き出す()
Sheets("過不足").Select
最右端 = Range("XFD5").End(xlToLeft).Column
最下行 = Range("B1048576").End(xlUp).Row
月 = StrConv(Format(Date, "m"), vbWide) & "月"
If 月 = "４月" Then
列 = "G": 対象 = 5 * 1 - 2
ElseIf 月 = "５月" Then
列 = "L": 対象 = 5 * 2 - 2
ElseIf 月 = "６月" Then
列 = "Q": 対象 = 5 * 3 - 2
ElseIf 月 = "７月" Then
列 = "V": 対象 = 5 * 4 - 2
ElseIf 月 = "８月" Then
列 = "AA": 対象 = 5 * 5 - 2

ElseIf 月 = "９月" Then
列 = "AF": 対象 = 5 * 6 - 2
ElseIf 月 = "１０月" Then
列 = "AKB": 対象 = 5 * 7 - 2
ElseIf 月 = "１１月" Then
列 = "AP": 対象 = 5 * 8 - 2
ElseIf 月 = "１２月" Then
列 = "AU": 対象 = 5 * 9 - 2
ElseIf 月 = "１月" Then
列 = "AZ": 対象 = 5 * 10 - 2
ElseIf 月 = "２月" Then
列 = "BE": 対象 = 5 * 11 - 2
ElseIf 月 = "３月" Then
列 = "BJ": 対象 = 5 * 12 - 2
End If
Sheets("不足一覧").Select
Columns("A:C").Delete Shift:=xlToLeft
Sheets("過不足").Select
Range("E7:BL7").AutoFilter
Range("$E$7:$BL$" & 最下行).AutoFilter Field:=対象, Criteria1:="<0"
Range("B7:C" & 最下行).Copy Destination:=Sheets("不足一覧").Range("A1")
Sheets("過不足").Select
Range(列 & "7:" & 列 & 最下行).Copy Destination:=Sheets("不足一覧").Range("C1")
Range("E7:BL7").AutoFilter
End Sub

test

>>207
ありがとうございました！！
しっかり頑張って理解したいと思います
お手数おかけしました

>>222
別のマクロを用意して、ifで分岐、callする。何月まで続くか分からんが後はテキトーにテキトーな範囲をコピーしておいて
Sub a()

For Each b In Range("g:g")
If b.Value < 0 Then
Call 不足一覧に書き出す
Exit Sub
End If
Next

For Each b In Range("l:l")
If b.Value < 0 Then
Call 不足一覧に書き出す
Exit Sub
End If
Next

End Sub

すごい初心者質問ですがおねがいします。

表を作っているのですが、、、
例えば、1行目のＡ、Ｂ、Ｃに名前、住所、ＴＥＬＬという項目を作っておいて
100行目までスクロールしたときに1行目の項目が見れるようにしたい。

1行目だけ、スクロールしても画面セルの一番上に表示させるやりかたがあったとおもうんですけど
なんて名前だったかも忘れてしまいました。
キーワードだけ教えてください。あとはぐぐります。
よろしくお願いします。

ウィンドウ枠の固定

ウィンドウ枠の固定

>>228 >>229
ありがとうございました。できました。
かなりすっきりしました。

>>229
これ複乳か？
反応の遅さや回答が出てても答える辺り、かなり似てる

>>231
どっちでもいいけどゆとりの相手は本当にやめて欲しい

>>231
複乳って何？（誰？）

216さんは、最初の画像と説明だけで十分理解できたらしい。彼曰く、
「>>73>>74>>75>>76>>77>>78で頭の悪い回答者が続いたのは確かだと思う」だってさ。
惨めすぐると思わんのかひ？

>>231
障害者が出てくるから相手しなさんな

>>231さん
お願いですからこの辺で抑えてください
どちらがおかしいかは彼以外みんな判ってます。

2007でグラフのデータの質問ですが

グラフのデータを作るときに条件に合わないところは空白にしています。
条件に合わない空白のセルに""やNa()を入れているのですが、
グラフのデータ選択の空白セルの表示を空白を選択しても線が繋がってしまいます。
線が切れるようにするのはどうしたらよいでしょうか？

>>236
円グラフなのかロウソク足なのかわからんが、
仮に折れ線グラフだとすると、グラフの性質上　線が切れることはないのではないかと思う。
棒グラフとかバブルチャートとか使ってみれば？
何を表現するんだか知らないけどｗ

>>233
あぁ確かにおまえは惨めだな
死ねばいいのに、いや、死ね

>>237
AとBのデータを折れ線グラフで比較したいんです
Aデータ　　30,70,　=if(A1=1,"",2)　,70,80,50　　
Bデータ　　60,70, 　　　　　　　 　　 ,70,80,50

A1=1だとして
関数を入れて空白を作るif(A1=1,,2)やif(A1=1,"",2)やif(A1=1,Na(),2)だと
Aデータの70と70の間が0扱いなのかグラフが0に下降してしまいます。

Bデータの関数も何も入っていない空白なら60から70、70から50のグラフに分かれるので
Bのグラフを作りたいけど、0扱いにならない空白は作れませんか？

>>239
関数で実現するのは無理だと思います

>>239
グラフが途切れるのは、セルに何も入ってない時
=na()　は端の時限定で可能
""　空白でも無理

>239
VBAでがんばるしか無いが、うーん
微妙

無理そうですか
VBA使って空白だけ何も入れないデータを作り直すぐらいしか想像できないけど手間がかかりそう
""やNa()以外に空白になって0扱いになるのがあればいいのに

>>243
0扱いにならないだった

>>241
端だけだとだめなんです

>>239
'　でも無理
逆は可能（入力してないところを0扱い）
後は非表示にすればいいんだけど、AB両方消える
VBAしかねーな

後、VBAでやるなら表まるごとコピーしてそこを参照したグラフを作るといいぞ
元の表いじると面倒だからな

""にすれば簡単にいけそうでよかった。
アドバイスありがとうございました。

質問なのですが、あるソフトで、数値の羅列があって、その羅列に
エクセルに表として取り入れたいのですが、そのソフト内でコピーペーストが
できません。

スクリーンショットなどで、映像をとって、その数値部分だけ抜き出して
エクセルにコピーなど出来れば良いのですが、そういうようなソフトとか
機能とかあるものってどなたがご存知でしょうか？

ＯＣＲソフトで文字に変換

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

リストボックスやリストビュー、グリッド系コントロールなら
WinAPI駆使して取得できる場合もあるけどね

最初作るのに手間は掛かるが、作ってしまえば
マクロ実行から取り込み完了まで一瞬で終るので
1回きりではなく何度も行う予定なら利が大きい
画像を介さないから誤認識の可能性も0だし

とはいえExcelの分野ではなく、汎用プログラムの分野なので
VBAで出来るとはいえ、ここではスレ違いの扱いになるから
自分で勉強してもらわにゃならんけど、今後、毎日数回
それを何年も行うとかなら、勉強時間を浪して尚、利があると思うよ

>>250
ホントにそれでいいの！？
最近のはだいぶマトモになったとはいえ、OCRなんて完璧じゃないからな。
自分で手打ちしたほうがマシなレベル。

> OCRなんて完璧じゃない
その通りだが、
> 自分で手打ちしたほうがマシなレベル
は日本語、特に漢字の場合や、手書き文字の場合ね

数字はもちろん英数字でも、機械フォントなら手打ちするよりは
OCRで取り込んで目視確認だけ行うのが一番効率良い

数字の機械フォントで、紙スキャンではなくゴミや傾きもない
スクリーンショットからなら、正解率99%は確実に超える

>>251
一応OCRソフトはもっていたりするんですが、それでもいくつかの
ソフトを起動して、経由してというと少し時間がかかります。

VBAで出来るそのWinAPIというのはどういうところで勉強すれば
良いんでしょうか？
割とよく行う作業になるので、出来るのであれば。
少しググルとWin32APIというのが出てきますが、これは同じことなのでしょうか？
この辺のページを勉強すれば良いですか？

>>254
対象ソフトが解らないと、この手が使えるかどうかは解らないが
とりあえずウインドウハンドルとかウインドウメッセージ(LB_GETTEXT等)について勉強してみよう

これ以上はスレ違いなのでお引き取りを

>>255
ありがとうございました。OCRを使いながら、そちらも勉強してみます

Excel2003ですが
セルの値の数値の最後に必ず改行コードが混入していてセルがふくれあがってるデーターがあるのですが
置換処理等でなんとか取り除くことは出来ないのでしょうか？

>>257
改行コードは置換の入力ボックスに入力出来ない感じです、、これはどうした物か・・

・VBAで改行削除
・関数式で改行削除したものを別なところに描き出し、値の貼り付けで戻す
・CSVに出力して、正規表現置換してから取り込む
・コピーしてテキストエディタに貼り付けて正規表現置換してからExcelに戻す
いろいろあるわな

>>258
[Ctrl]+[J]で改行コードが入力できる

>>259
>>260
>[Ctrl]+[J]で改行コードが入力できる
大成功でした！ありがとうございました！！＼(^o^)／仕事オワタｗ

>>257
=LEFT(A1,LEN(A1)-1)
で値貼り付け・・・と思ったら終わっちゃってたか、おめでとう

今まで普通に使えていたVBAのプロシージャが急に不良をおこすようになり
パソコンを再起動したら、普通に使えました。

長く立ち上げておいて、何度もプロシージャ実行したりしたら、こういうことって
起こってくることは、あるものなんでしょうか？

Office2003、2007、2010を入れてます。
フォルダからファイルをWクリックして開くとき、2007で開いてしまいます。
xlsは2003で、xlsxとかxlsmは2010で開くにはどうすればいいですか？

>>263
コードによってはね

>>264
関連付け

>>265
それができないから聞いてるんですが？
xlsを関連付けしようと\Office11\Excel.exeを指定しても2007になってしまいます。

確か弄るのはcommandだけじゃダメなはず
つーか関連付けはWindowsの機能だからスレ違いでしょ

>>266
試したんなら、試したって先に書いておけばいいのに…
265さんｶﾜｲｿす

出た！スレ違いと書いて逃げちゃうヤツ

とヤジを飛ばすだけで答えることは出来ない奴のカッコ悪さについてw

Excel2003ですが
文字列として認識されている数字を数値に変換する事を試みていますが
莫大な数のセルを変換したいのですが
http://support.microsoft.com/kb/181298/ja
の方法 6 : [区切り位置] を使用するは成功しましたが
列が大量に存在しこの方法では時間がいくらあっても足りません。

そこで方法 5の: VBA
Sub Enter_Values()
For Each xCell In Selection
xCell.Value = xCell.Value
Next xCell
End Sub
をやってみましたが何もおこらないのですが、、、
何か他に良い方法がありましたら宜しくお願い致します。

>>271
そのコードだと、「'123」などで文字列扱いになっている数字は数値化出来るけど
表示形式が文字列になっているセルは数字のままになる

なので
xCell.Value = xCell.Value
の前に
xCell.NumberFormatLocal = "G/標準"
を入れてやれ
別に"G/標準"ではなく"0;[赤]-0;0"とかの表示形式でもいいけどな

それでダメなら具体的にどういう値が入ってるのか書いてくれ


>>269
これ以上恥を晒すな

>>272
部分的にうまくいきました！
"G/標準"の箇所を色々と変えてみて試して見ます。
ありがとうございました。

>>271
今はどういう理由で文字列になってるの？

>>274
CSVに書き出しましてテキストエディターで開きますと
直らない箇所はこのような表記になていました

","43.8719
","-66.1342
","17.0875
","99.9111
",,

これはやっかいそうですね。。

>>275
275
補足ですが改行の箇所に何かコードがありまして、置換などをかけてみましたがこのコードはExcelでは認識されていないようです。

>>275
いや、そうじゃなくて何をして文字列として認識されてるのかってことです
できｋればファイルごと（その数字の部分意外は消して）アップしてくれるとありがたい

改行コードにCRとLFとCRLFの３種類があって、
excelが標準で処理する改行コードはCRLF　だったかと

LFCRというのもあるから4種類

確かLfが要素内改行(セル内改行)で
Crから始まるもの(CrとCrLf)が改レコード(下段セルへ移動)じゃなかったか？

LfCrはこのスレ的(Excel上、Excelから出力されるファイル)には無いよ
vbLf&vbCrとかで意図的に作れば話は別だけど

ファーストサーバの件、仕事柄いろいろ調べていくと「サイボウズASP提供の場合、
標準で付いているデータエクスポートがkillされ、
ファーストサーバのバックアップサービスのみ使える」ということを知ってすんげえ頭抱えている。
ユーザはどうしようもなかったってことじゃないか…

Excel2010で検索・置換ってどこから出すんでしょうか？
友人に聞かれたんですが、2010持ってないのでわかりません
Ctrl+Fで出ないみたいですがそうなんでしょうか？

いつも、Ctrl+Fで出しているから、メニュー（リボンって、言うんだっけ）からだと不明。
ごめん。

さすがにそれぐらいググれよ
http://okwave.jp/qa/q6734248.html

Ctrl+Hじゃないのか
ミリなのか

>>282
俺は2010だが、ふつーにCtrl＋F or Ctrl＋H　で出るよ
セルの編集中に押してるとか？？
ちなみにリボンからのアクセスは、デフォで開いてるホームってタブの一番右側に検索あるね（今日はじめて知ったけど）

セル内の置換をしようとしていたのかもね

すいません、キングソフトのSpreadsheet2012なんですが
使い方は同じだと聞いたのでお願いします。

家計簿を作ろうと思って
2011年5月
2011年6月
って左のセルに打ち込んで行きました

で、家計簿の書き込みがセルが打ち込んだところまで来たので
延長しようと思って

書き込んだセルの右下のフィルハンドを引っ張ってきたのですが
なぜか、
2013年6月
2013年6月って
同じ月しか表示されません。

2013年7月
2013年8月
ってフィルハンドを引っ張って表示されるようになるのは
どうしたら良いのでしょうか？

マイクロソフトと同じなら、フィルターで抽出したままオートフィルしているとか？

>>288
2011年5月
2011年6月
を選択してからオートフィル
少し仕様が違うみたいね。エクセルでもバージョンに酔ってはその辺違ったりするけど

>>290

おお！！
ありがとうございます。
すごい簡単なことが分かりませんでした。
何故だろうって、ずっと悩んでいました。

並び替えについての質問です、よろしくおねがいします。
セル範囲　A1から　Ｚ100　の2600セルに100セル数値データ（12とか452とか）が点在しています。（他は空白です）　

範囲が広く確認が困難な状態です。
ＡＡ列に小さい順に並び替えたいのですがどのようにすればいいですか？
ＶＢＡも可です。すみませんがどうか教えてください。お願いします。

>>292
AA列にこの式を入れる
=SMALL($A$1:$Z$100,ROW())

>>293
スマートすぎて感動した

>>293
ありがとうございます。
こんなに簡単にできるとは思いもしませんでした。
勉強になりました。

毎回リストの特定行だけを一瞬で非表示にするにはどういった選択肢があるのでしょうか？
行の位置が毎回変わるのでセル番地指定も出来ず、
セルの色や文字もマチマチなんですが

久しぶりに感動した

>>296
http://office.microsoft.com/ja-jp/excel-help/RZ001080135.aspx?CTT=1&origin=EC001022986§ion=11
このオートフィルタって機能を使えば一瞬で非表示にできる

>>296
vbaなら
Sub Macro1()
hoge = InputBox("")
Cells.Find(What:=hoge).Activate
ro = Selection.Row
Rows(ro & ":" & ro).Select
Selection.EntireRow.Hidden = True
End Sub

全米が泣いた

ちょっとコード酷すぎね？

>>301
こんなマクロに時間かけても仕方ないよ

普通にセル表示チェック列増やせば済むだろハゲ

>>299のコードを

Sub Macro1()
　hoge = InputBox("")
　Cells.Find(What:=hoge).EntireRow.Hidden = True
End Sub

と書くと、余計に時間かかるのか？
動作は全く同じだぞ

つーかどっちにしろ>>299の動作じゃ質問者は満足してないだろうけど

>>296
普通にオートフィルタが使える形の表ならオートフィルタ、
日程表みたいな横に伸びた表でオートフィルタが使えないならマクロだね。

たとえば一列目A列にA店・B店・小計・C店・D店・小計・合計と並んだ項目のうち小計だけ非表示にするマクロと再表示用マクロ

Sub 小計非表示()
Dim i As Long
With ActiveSheet
For i = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
If .Cells(i, 1).Value = "小計" Then
.Rows(i).Hidden = True
End If
Next
End With
End Sub


Sub 全行再表示()
ActiveSheet.Rows.Hidden = False
End Sub

【1 OSの種類 　 　 　 　 .】 Windows7　64bit
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ（多少の経験はあります）
【4 VBAでの回答の可否】 否（やり方まで教えてくださるなら可）

シート（設定）に、
A 北海道
B 青森
C 秋田
・
・
（以下略）があります。
シート（入力）に、「A」を入力しただけで北海道を表示することは可能でしょうか？（別セルに表示されてもいいです）

また、実際は「あ」と入力しただけで北海道と表示が出ればうれしいのですが、日本語でも大丈夫でしょうか。
北海道…が数百に及ぶので、ドロップダウンリストは使いにくいです。よろしくお願いします。

>>306
vlookup

>>307
ありがとう！！

【1 OSの種類 　 　 　 　 .】 Windowsvista
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 勉強中
【4 VBAでの回答の可否】 可
　 A B
1 あ　10
2 い　20
3 う　 30
4 あ　40

VLOOKUPで下から検索しB4セルにある40と表示させたく調べていたのですが
excel2003だとINDEX関数は範囲を指定しないと配列は仕様上不可能みたいなので
下のような数式だとエラーになってしまいます
=INDEX(B:B,MAX(INDEX((A:A="あ")*ROW(A:A),)))
excel2003でエラーを出さずにB4の値を出す数式
もしくはVLOOKUPを下から検索する方法はありませんか？

セルの指定範囲は列でお願いします

>>309
=SUMPRODUCT(MAX((A1:A65535="a")*(B1:B65535)))
か配列数式
=MAX(IF(A1:A65535="a",B1:B65535))
ちなみにA1:A65535をA:Aと記述することは、使用上できない

Excel 2003でメールアドレス入力時に
自動でハイパーリンクになる設定を解除する方法を教えてください。

>>312
ちょっと上の方に書いたぜ
自動で解除ではなく自動でハイパーリンクしない方法だが

2010ですが、取り消し線のアイコンをホームタブに追加できますか？

>>313
この一つ一つやる>>142はみつけたんですけど、
設定でずっとやる方法どこにありますか？
今日はじめてきたので、どこの場所に書いてあるか
おしえてください。

>>312
そのセルを長押し、、ポインタの形が変わったらクリック、「ハイパーリンクの削除」でできないかな。

>>316
レスありがとです。
設定でずっとしておく方法はないでしょうか？

>>315
>>143。多分ファイルごとには個別と思う

>>314
2003ならツーッルバーのユーザー設定でナントカカントカ

>>318
情報ありがとです。助かりました。

>>319
2010って書いてあるだろ？
バカか？

>>321
いや2010もってないので知らん
よければお前が回答してくれ

2007でVBAのコメントだけを削除したいのですが
一括削除と置き換えのように選択して消せるとよいのですが便利な方法はどんなのがあるでしょうか？

みんなエクセルのバージョン何つかってるの？

97、2000、2002、2003、2007

>>324
97はバグが多く、2007-2010はリボンがうざい
よって2000-2003が多いと思う

>>323
VBA

○○■△△△△△△△△△■×××■☆☆☆☆
■＝半角スペース
○は1〜2文字
△は10文字以内
×は2〜3文字
☆は3〜4文字

ここから△のみだけを取り出す関数が（A1セルの場合）
=TRIM(MID(A1,3,FIND(" ",A1,4)-3))
なんですが、どうしてこの関数で抜き出せるのでしょうか？
ぐぐってみたけどイマイチ仕組みが理解出来ないです。
今後も色々適用できそうなので、なぜこの関数で取り出せるのか解説出来る人いますか？
一応わかる範囲は、TRIMで前方の空白を無くし、FIND関数で半角スペースの位置を返してる。
そこからがイマイチわかりません

揚げ足を取るようで申し訳ないが、その条件だと正しく取得できないケースも起こりうるよ。
具体的には○が1文字で△が0文字だと、その式は×××を返してしまう。
（△は10文字以内ってことは0文字もあり得るよね？）

○が2文字あれば△が0文字のときには空の文字列が返るし、
○が1文字でも△が1文字以上あればきちんと△△△△△△△△△を返すから
ほとんど問題ないといえば言えるんだけどね。

つまり、△は1〜10文字という条件ならこの式は問題ない。
（もちろん、最初からそういう意図でしょ？）

ということで本題、まず FIND(" ",A1,4)-3 だけど、
これはA1の4文字目以降にある最初の半角スペース（=△と×の間の■）の
文字列先頭からの位置を求めて、そこから3を引いてる。

先頭の3文字は○○■または○■△だから、
これで△△△△△△△△△■または△△△△△△△△△の文字数が分かる。

次に、それを踏まえて MID(A1,3,FIND(" ",A1,4)-3) を見てみると、
A1の3文字目から上で求めた文字数分の文字列を取得している
先頭3文字が○○■なら、■△△△△△△△△△が取得され、
○■△なら△△△△△△△△△が取得される。

で、最後にTrimで■△△△△△△△△△の先頭の■をはずしてお終い
（○■△のときにはこのTrimは何もしない

>>329
ごめん、付け忘れたｗ
△は1〜10文字なんだ。
なるほど、とてもわかりやすい解説ありがとう！
俺でも理解出来たよ！

メニューのツールからワークシート分析で数式の検証ってのもあるが
数式自体の説明は出てこないから数式は学んでないと理解できんのよね

>>326
リボンなんて１日で慣れたわ。

>>332
すごいな
俺は即クラシックUI入れた
たぶん今だに使えない

>>311
ありがとうございます

>>328
=left(mid(a1,find(" ",a1)+1,len(a1)-find(" ",a1)),find(" ",mid(a1,find(" ",a1)+1,len(a1)-find(" ",a1)))-1)
作業セルを使えばすっきりするだろうけど、、、

【1 OSの種類 　 　 　 　 .】 Windowsvista
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 少しですが
【4 VBAでの回答の可否】 可
C列に値を入力したときC列の値が前に入力したものであれば
前に入力したC列と同じ行のD列の値を返すというマクロを作ろうとしていましたが次のコードだと何も反応しません
どこを変えればいいのでしょうか？

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
　　　　　Debug.Print WorksheetFunction.VLookup(Cells(Target.Row, "C"), Range("C:D"), 2, False)
Application.EnableEvents = True
End Sub

>>336
「何も反応しません」の意味がよくわかんないけど、
「Worksheet_Changeイベントが発生しない」って意味なら
「Application.EnableEvents = False」の状態になってるんじゃない？

Excel 2010の電話でのライセンス認証方法
http://gamers-park.com/node/131

>>337の言う通りだと思う。

補足すると、あのコードじゃエラー出まくりなはずだから
そこでデバッグせず中断すると、EnableEventsをFalseにしたままの状態になる

それ以前に、エラーが出なくても説明とコードの動作が違っているようだけどなw

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

データ分析のt検定:　等分散を仮定した２標本による検定について質問があります。
以下のアンケートデータを利用して、全七社中、特定二社（3番と4番）のコンビニ評価に対して
差の検定を行ったのですが、手順によってまったく異なった結果が表示されます。

例えば、調査項目をフィルタして、1.店舗名項目を基準とし、昇順に並べ替え　
2.データから特定二社の評価のみを抽出　のパターンと、それを順序逆にしたパターンです。
後者のパターンは行番号が飛び飛びになり、観測数を正しく認識できないので
異なる分析結果になるという原因はわかっているのですが
本来、手順が違えど、異なる結果が表示される仕様はあってはならないと思うのですが、
どうなんでしょうか？また、２つのパターンでも結果を同じくできる設定はないのでしょうか？

アンケートデータ
http://ichigo-up.com/cgi/up2/oiu/xs33159.xls

Q列に、='C:\綾瀬はるか\[ホタルノヒカリ.xlsx]ぶちょお'!$N$104
って式が入ってて、数字が表示されているのね。

この式の最後にある104を取り出して、P列に書くにはどうすればいいの？
104の部分は、1〜3000くらいまであるんだよ〜ん。

VBA使って良いなら
instrrevで$を拾えば出来るよ

>>336
テストも何もしてないけどとりあえず見て気になったのは、VLookupの中のCellsで"C"っておかしいんちゃう？
CellsならCells(行番号,列番号)、Cells(Target.Row,3)じゃね？

別におかしくないよ。
第二引数は「行番号」ではなく「行を表す値」だし、「3」の方が動作が僅かに高速だし
変数に入れて算術演算(+1など)で処理中に対象列を移動させたい場合などに便利だが
「"C"」の方が明示性が上と特色が違うので、用途によって使い分ければ良い。

何でもかんでも列文字で指定するのも初心者的だが、「Cellsの列は数値指定じゃなきゃおかしい」と
固執するのも同レベルの初心者だと思う。

>344
ごめんなさい初めて知りました。べつに固執ってわけじゃないけど、知らんかった。

341ですけど〜
誰か教えて♥
明日、会社で見るから今日は寝るね

>>341
>>342だよ♥

>>345
素直でイイ奴だな

すみません、>>340に助言もらえませんか？

>>349
もっと項目数を減らして欲しい
多すぎて問題点を追いかけるのがしんどい

>>349
あなたが実施した結果もアップしてくれ
提供できるものは全部提供してくれ

>>350
項目数減らしても、多分あまり変わらないと思うのですが・・・

>>351
これは、Bの列にある最利用店舗名を昇順に並び替え、3、4番のみを抽出後、差の検定をしたもの
http://ichigo-up.com/cgi/up2/oiu/xs33165.xls

次にこれは3、4番を先に抽出してから、最利用店舗名を昇順に並び替え、差の検定をしたものです
http://ichigo-up.com/cgi/up2/oiu/xs33166.xls

それぞれ元になったアンケデータも、中に付随しているので
見て頂ければ、片方の行番号が飛び飛びなのがわかると思います

>>340
>観測数を正しく認識できないので異なる分析結果になるという原因はわかっている
>本来、手順が違えど、異なる結果が表示される仕様はあってはならない
エクセルがそういうソフトなんだから仕方ない
そういう仕様はあってはならない、と思うならDB等、別ソフト使えば良い。誰もエクセルを使うことを強制していない。

>２つのパターンでも結果を同じくできる設定はないのでしょうか？
知らない。
VBAでマクロを作ってしまうほうが早い気もするが、無理なら仕方ない。

>>352
厳密には抽出とエクセルのフィルターは主旨が違うね。
DBの抽出とは違って、フィルターは条件の合う行だけ”表示”し、他を”見せなくする”機能で、テーブル自体は元のまま。
お祭りの提灯を畳んだときのイメージ。
で、それに対する式を作っても、元のテーブルに対して式の範囲を設定するから、フィルターが関係無くなってしまう。

例えば、>>352の２番目の方法で、３の店舗に対するレジ待ちの列の平均の式は、フィルターしてもAVERAGE(L2:L74)となってフィルターで隠したつもりの部分も含んだので3.205479

つづき
また、フィルターしたテーブルに対して並び替えしても、見えている部分だけが順番が変わるだけ。
最初に並び替えすれば、式の範囲が目的の部分になるので、フィルター関係無しに正しい集計するけど、
フィルターしてから並び替えしても、式の範囲は元のテーブルに対する見えている部分の一番上から下までの隠れている部分も含んだ数字を対象としてしまう。

これを回避するには、フィルターではなく正しい意味での抽出をして、そのクエリー結果に対して集計するべきだけど
そうするには、フィルターした表をコピペして新シートに貼って、店舗３，４だけになったそのテーブルで集計するか
Excelのデータベースクエリ機能で引っ張ってくるか、Access等のDB使うしか無いのかな・・・

ちなみに、平均とか標準偏差とか分散ぐらいの簡単なことなら、ピボットテーブル使うのが楽。
ちゃんと抽出して集計表を作ってくれる。

ここまで書いて、340がデータ分析ツール使っていたことに気づいた。
これでも一緒の話なんだけど、フィルターで隠しても元テーブルは変わらないから、分析ツールの範囲を指定する部分が隠れている部分を含んでしまう。
フィルターは抽出じゃなくて、特定行を見せる（隠す）もので、元テーブルは影響されないと意識すれば分かると思う。

SUMとSUBTOTALみたいなのが全部の関数にあればいいんだけどね

範囲を選択するときに配列数式とかな

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

指定した値になるまで条件を繰り返す関数ってありますか？


A1=(-1000)
A2=2

上記の条件だった場合

A1≧0になるまでA2の値を足し続けるって式を組みたいのですが…
if(A1>=0,？,,)で詰まってます。

>>359
循環参照を回避するように作れないだろうか？

>>359
文字列ならREPTがあるけど、計算は無理
ってか最後の0にあまり足すだけでいいんじゃないの

ExcelでWordの差込み印刷したいのですが、良い方法ありますか？
大量のデータがあるので、何とか差込み印刷を実現したいのですが、スキルが足りなくてできません。
マクロでも良いので、その場合はヒントをください。
お願いします。

説明足らずでした。
Excelのデータを別のExcelで作ったフォーマットにデータを差込みたいと思っています。

みんなExcelは独学？
それとも勉強するためにはやはり参考書なんかを買ったりした？
ネットでVBAを1から学べるお奨めのサイトとかある？

>>364
VBAを勉強するのが目的ならMSDNライブラリでリファレンスマニュアルを読めばいい
VBAで何かやりたいことがあるならやりたいことをキーワードにググればいい

>>362
具体例のブックをどっかにアップしてみて

>>360
>>361
A1,A2,A3〜と続くセルで在庫の推移を見たかったんですが難しそうですね。
余りを足すと言うよりは、A1≧0になるまで、
A2発注を繰り返したかったんですよね。

ありがとうございます、ちょっと他の方法考えてみます。

>>367
発注回数なら=-A1/A2でいいんじゃないの

>>364
オフィス田中
レスキュー花子ちゃん
このふたつはよく見る気がする

仕事の業務で使う連絡先一覧をエクセルで作ろうと思っています。
Aの時、Bの時、Cの時、　これら３つの条件を満たすカテゴリはDの連絡先を表示する　みたいな機能ってエクセルにありますか？
プルダウンで3つぐらい選ぶカテゴリを作って、そこから連絡先を抽出したいんですか

>>370
Excelの機能を使って実現することはできる

>>371
どんなふうにやれば出来ますか？
今まではオートフィルタでやってたんですが、
3つの条件を満たした時だけじゃなく
1つでもその条件に当てはまれば、その連絡先を表示する
みたいにしたいのですが。

>>372
データ構造がわからないので答えようがない
どんな風にデータが並んでるか書くかサンプルのブックをどっかにアップして

>>373
http://www.dotup.org/uploda/www.dotup.org3167171.jpg
こんな図で右が条件です。
今まではピポッドテーブルで抽出してたんですが、
条件が複数ある場合に対応出来ないのでどうすればいいか教えて欲しかったんです。
例えば、問い合わせ種類にクレームが入ってる場合はどのお客様からでもお客様相談室に繋ぐっていう結果を出したいわけです。
他にも○○商事がアポの電話をしてきた時は受付に繋ぐ　みたいな条件を作ってそれを表示させたりしたいわけです。
その方法がわかればそれでデータを条件付けさせたいって思っていました。

>>374
このサンプルは２つの条件で部署を出しているけど、本当は３つの条件ってことかな？
あと、□□病院が商談で来た時にどこつなぐとか、全部の条件考えるとこれだけでも４ｘ４だけど、それ全部考えなくていいの？

>>375
全部考えたいです。どんな風にすれば結果に条件付け出来るか知りたいです。

検索値がAS列にあって、その値に合致したN列のセルの値を得たい。
vlookupだとダメっぽい。
どうする？

>>376
連絡先毎に優先条件(クレーム)と復号条件(**社 and 商談)を別々に設定
まず優先条件への一致を調べ、一致があればそれを表示
優先条件での一致が無ければ復号条件での一致を調べる

>>377
INDEXとMATCH

>>378
すいません。オートフィルタでどう設定すればいいですか？

>>379
▼━質問時の注意･決まり事━━━━━━━━━━━━━━━━━━━━
･4 2回目以降の質問では名前欄に初回質問の番号を入れよう。

>>376
ベタな方法だけど、下記のような表にして、オートフィルターすることで答えになってる？
A列とB列指定すればC列に案内先部署が出るイメージ。
○○商事から健康診断の問い合わせとか、意味ないの含めて全部のパターン作らなきゃいけないけど。

お客様　問い合せ　部署名
○○商事　商談訪問　総務部
○○商事　アポイン　受付
○○商事　健康診断　受付
○○商事　クレーム　お客様相談室
ＸＸ会社　商談訪問　営業
ＸＸ会社　アポイン　営業
ＸＸ会社　健康診断　受付
ＸＸ会社　クレーム　お客様相談室
□□病院　商談訪問　総務部
□□病院　アポイン　受付
□□病院　健康診断　受付
□□病院　クレーム　お客様相談室
その他　商談訪問　営業
その他　アポイン　営業
その他　健康診断　総務部
その他　クレーム　お客様相談室

>>374
とりあえず条件に規則性が無い時点で全手動は避けられないと思う。

ある程度条件付けるとして、
客先をグループ分けして、グループに無い場合はその他として扱う。
問い合わせ種類・客グループに対して連絡先を決める。

とするならそれなりに出来るんちゃうかな。
作業セルにVLOOKUPで客グループを表示して、連絡先は客タイプ・問い合わせ種類を結合してINDEX

http://ozcircle.net/_uploader/103950967

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

VBAのユーザフォームにマルチページを設定してます。
マルチページのタブ（Page）を切替えると、シートを移動するようにしたいのですが
どのようにすればいいでしょうか？宜しくお願いします。

例）
MultiPage1
page1　タブをクリックすると ○○シートへ切替（移動）
page2 △△シートへ切替（移動）

○○・△△＝シート名です

>>368
　 　　　　 |
　 　＼　　__　　／
　 　＿　（ｍ）　＿ﾋﾟｺｰﾝ
　 　　　　|ミ|
　 　 ／ 　｀´　 ＼
　　　　　('A`)
　　　　　ノヽノヽ
　　　　　　　くく

目からウロコが落ちた。

ありがとうございます・・・・・

>>383
Private Sub MultiPage1_Change()
Select Case MultiPage1.Value
Case 0:
Worksheets("○○").Activate
Case 1:
Worksheets("△△").Activate
End Select
End Sub

>>385
切り替わらないです。
Multipage1のPage1のタブをクリックすると、○○のシートに移動（切替え）という形にしたいのですが。

>>386
2003だと動いてるんだけどな・・・
タブをクリックしたときにステップ実行したら MultiPage1.Value の値はどうなってるの？

>>385 >>387 ありがとうございます。お手数をおかけします

フォーム（UserForm)
Page5 Page6　を>>386のように切替えたいのですが、
Page5,6ともに名前（Caption？）を（Page5)基礎1・（Page6)基礎2としています。
indexは4，5になっています。

連投ｽﾐﾏｾﾝ(m´・ω・｀)m
解決いたしました。。Caceの設定を間違えておりました
ありがとうございます<(_ _)>

Excelでテキストファイルから文字を検索して、その行だけを取り込むなんてことできますか？

>>390
テキストファイルをopen、一行ごとに読んで
その行にinstrで文字列検索、文字列があれば処理という流れと思う
もっと楽な方法があったらゴメン

>>390
ちなみにVBAね
エクセルはドラッグアンドドロップすれば一行ごとに分かれるから検索すればいいんじゃないかな

>>390
テキストファイルを開いてオートフィルタで文字が含まれていない行だけ抽出して行削除すればいい

フォームのコンボボックスを使って、シートの倍率操作する方法ありますか。
コンボボックスの選択に20％とか50％などの値があって、選択するとシートがその倍率になる的な感じです

>>394
マクロの記録でコード吐き出してみ

>>394
フォームならChange、コントロールならClickイベントで
Zoomを変更してやれば良いだけじゃね？

>>395
記録してコードみたけど、それをどうコンボボックスに使えばいいの？

>>396
詳しく＞＜

詳しくって何？

コード全部掛けよってことか？

>>398
開発→挿入→フォームコントロール→コンボボックスを設置するでしょ
そこからマクロの登録だけで良いの？

コンボボックス1チェンジ（）
ActiveWindow.Zoom =　コンボボックス1.value
endsub
こんな感じｗ

>>399
Private Sub UserForm_Initialize()
ComboBox1.AddItem "20％"
ComboBox1.AddItem "50％"
End Sub
Private Sub ComboBox1_Change()
ActiveWindow.Zoom = Replace(ComboBox1.Text, "％", "")
End Sub

ユーザーフォームじゃないだろw

>>401
標準モジュールにそのコード書いてもコンボボックスにマクロ登録できないよ＞＜

>>403
そんなレベルなら基礎から学習してこい。ここが学習スレになっちまうだろ。

それ以前に>>401は不適切だけどなw

ワークシートにボタン、フォームにコンボボックス
Private Sub CommandButton1_Click()
With UserForm1.ComboBox1
.AddItem 100
.AddItem 150
.AddItem 50
End With
UserForm1.Show
End Sub

Private Sub ComboBox1_Change()
ActiveWindow.Zoom = ComboBox1.Value
End Sub

また>>401のお馬鹿さんか、それとも別の勘違い君か？

�@フォームコントロール
�Aコントロールツール(ActiveXコントロール)
�Bユーザーフォーム
この違いについて解ってるか？

質問者が使ってるのは�@、>>401は�B、>>406は�Aと�B

まぁこの場合、用途的には�@より�A使った方が適切とは言えるが、�Bの出番は無い
なのに>>401も>>406も、何故か�Bに固執してるw

>>407
普通に間違えた、ｽﾏｿ
ちなみに401は406ではない

ボタンとコンボボックスｄえこんなかんじか

Private Sub commandbutton1_Click()
With ComboBox1
.AddItem 100
.AddItem 150
.AddItem 50
End With

End Sub
Private Sub ComboBox1_Change()
ActiveWindow.Zoom = ComboBox1.Value
End Sub

>>382
なるほど。ありがとうございます。
あと、ファイルをエクセルからhtml形式に変換して
オートフィルターかけることはできますか？(出来ればプルダウンで選択したい）

>>410
変換しただけでは、オートフィルタ機能は働かないが
htmlにおいてオートフィルタ相当の機能を実装することは出来る

但し完全にスレ違いなので、ここでは聞かないでね

セルの連動について質問です。
例えばシート1のA1とシート2のA1に入力規則で同じリストを作ります。
そして、シート1のA1でリストを選択すれば、シート2のA1も同じものが選択されている。
同様にシート2でA1を変更すれば、シート1のA1も変更する。
こういう事はExcelできますか？

>>412
できます

>>413
やはりVBAですか？

学ぶ力には三つの条件があります。

第一は自分自身に対する不全感。
自分は非力で、無知で、まだまだ多くのものが欠けている。
だからこの欠如を埋めなくてはならない、という飢餓感を持つこと。

第二は、その欠如を埋めてくれる「メンター（先達）」を探し当てられる能力です。
メンターは先生でもお母さんでも、ネットの中の無名の人でもいい。
生涯にわたる師ではなく、ただある場所から別の場所に案内してくれるだけの
「渡し守」のような人でもいいのです。
自分を一歩先に連れて行ってくれる人は全て大切なメンターです。

第三が、素直な気持ち。
メンターを「教える気にさせる」力です。オープンマインドと言ってもいいし、
もっと平たく「愛嬌（あいきょう）」と言ってもいい。

「学ぶ姿勢」のある人は、何よりも素直です。
つまらない先入観を持たないから、生半可なリアリズムで好奇心を閉ざさない。
素直な人に聞かれると、こちらもつい真剣になる。知っている限りのことを、
知らないことまでも、教えてあげたいという気分になる。そういうものです。

以上、この三つの条件をまとめると、

「学びたいことがあります。教えてください。お願いします」

という文になります。これが「マジックワード」です。
これをさらっと口に出せる人はどこまでも成長することができる。
この言葉を惜しむ人は学ぶことができないのです。
学ぶ力には年齢も社会的地位も関係がありません。
>>411さんも、早く学ぶ力を身に付けてください。

最後、レス番ズレてて台無しだw

とコピペにマジレスしてみる

>>414
VBAでワークシートチェンジ

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

これどうやったらできますか？
http://up3.viploader.net/pic/src/viploader1238930.png


A列に限月（3限月分）
B列に現在値

A列の限月から1203or1206or1209or1212に対応する現在値をセルD3に表示させたいんです


よろしくお願いします

>>418
四半期決算の小計みたいな漢字？
=IF(ISERROR(VLOOKUP(1203,A:B,2,0)),"",VLOOKUP(1203,A:B,2,0))&IF(ISERROR(VLOOKUP(1206,A:B,2,0)),"",VLOOKUP(1206,A:B,2,0))&IF(ISERROR(VLOOKUP(1209,A:B,2,0)),"",VLOOKUP(1209,A:B,2,0))&IF(ISERROR(VLOOKUP(1212,A:B,2,0)),"",VLOOKUP(1212,A:B,2,0))
作業列使ったほうがいい気がする。シートの中身が分からんのでナントモ言えんけＤｐｏ

>>419
おおお！
ありがとうございます！


作業列つくるとはどのような感じになるのでしょうか？

シートの中身は現在値の値は書いていただいたような式から算出されていますがその他はとくにありません
現在値の位置を移動させても問題ないです

初心者ですいません
面倒ならスルーしてください

自力だと手入力セルを作ってこういう形でしか出来ませんでした

http://up3.viploader.net/pic/src/viploader1238933.png

>>418
> 1203or1206or1209or1212
に該当するものが複数ある場合、そのうちのどれに対応した値を
返すかという情報は、どこから得れば良いの？

>>421のように手入力で良いの？
それとも複数該当の場合は最大値とか、なんか条件あるの？

>>422
常に3限月分が自動で取得できるます

今月だと1207、1208、1209
来月になると1208、1209、1210
再来月だと1209、1210、1211

こんな感じでなので該当する数字がかぶることはないんです
出来れば手入力より限月が切り替わるごとに自動で出来ればと思ったんです

>>421
=(IF(MOD(RIGHT(A2,2)*1,3)=0,A2,"")&IF(MOD(RIGHT(A3,2)*1,3)=0,A3,"")&IF(MOD(RIGHT(A4,2)*1,3)=0,A4,""))*1
D3はこんな感じ？
もっと何とかできそうだけど

>>421
まとめるとコレでいいか
=VLOOKUP((IF(MOD(RIGHT(A2,2)*1,3)=0,A2,"")&IF(MOD(RIGHT(A3,2)*1,3)=0,A3,"")&IF(MOD(RIGHT(A4,2)*1,3)=0,A4,""))*1,A:B,2,0)

>>423
これでいいんじゃね？

=OFFSET(A2,3-(MOD(VALUE(RIGHT(A2,2))-1,3)+1),1)

あぁ、そうか。一個見てoffsetでいいのかｗ

>>424
>>425
>>426
おおお！こんなにもありがとうございます

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

セルに文字列を入力してエンターキーを押す前の状態で
文字列の一文字目にカーソルを移したいのですが
{HOME}キーを押すと、セルが確定されてしまいます

マウスと矢印キー以外の方法で、文字列のトップにカーソルを移す方法はありますか？

※同様に、確定されたセルをＦ２キーで編集→{HOME}キー
でもカーソルは移動できずにセルが確定されてしまいます
同じようにマウスと矢印キー以外の方法で
カーソル移動できませんか？

2003だと普通に F2、HOME でどちらの場合も
編集状態のままセル内先頭に移動出来るけど

2002(ってOfficeXPだよね)も使ってたけど同じ操作で問題なかったはず

あとは F2、Ctrl+← でも一発で先頭に移動出来る

サンクスです
なぜかこちらだと
セル確定前に{HOME}キー→カーソルが先頭に行かずにセルが確定されてしまいますね・・

やりたいことは前回と同じですがやり方を変えてみました
ですがこちらですとオブジェクトが必要ですとエラーが出ます
すみませんどこが間違っているか教えてもらえないでしょうか？

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim i As Long

For i = 1 To Cells(Rows.Count, 3).End(xlUp).Row

If Target.Value = Cells(i, 3) Then Cells(i, 3).Offset(0, 1).Copy Target.Value.Offset(0, 1)

Next i
Application.EnableEvents = True
End Sub

A１列B１列にデータが入っていたとして、
D１列にA１をB１で引いた値を表示させます。
そして、後でC１にデータ追加したときに自動的に一つ列をあけてE1に
B1をC1で引いた値表示させる場合どういった関数が疲れるのでしょうか。

A1：６　B１：５　C1：なし　D1：B1-A1=1
↓
A1：６　B１：５　C1：4　D1：なし　E1：C1-B1=1
C１に値が入ったときにD1のデータをE1に移し、自動的に１列空列にする方法があれば教えてください。
お願いします。

>>432
答だけ教えるのは簡単だけど、こんな初歩的なミスで毎度質問来られちゃたまらないので
最低限のコード確認は覚えてくれ

If Target.Value = Cells(i, 3) Then Cells(i, 3).Offset(0, 1).Copy Target.Value.Offset(0, 1)

　　↓↓↓↓↓

Dim Cell1 As Range, Cell2 As Range, Value1 As Variant, Cell3 As Range

If Target.Value = Cells(i, 3) Then
　　Set Cell1 = Cells(i, 3)
　　Set Cell2 = Cell1.Offset(0, 1)
　　Value1 = Target.Value
　　Set Cell3 = Value1.Offset(0, 1)
　　Cell1.Copy Cell3
End If

処理は連続して書かずに、一つ一つ変数に代入して、エラーの詳細な位置や返った値、
操作の結果などを確認する
これをやるだけで、この手の初歩的なミスはほぼ原因が見つかる

>>433
VBA使えば出来る

しかし君は、>>1に必ず掛けと書いてある環境などの情報を伏せているので
おいらも具体的なコードは伏せる
情報後出しも>>1に書かれている通り受け付けない

ちゃんと読まずに質問してしまって、
まだ間に合うのであればよろしくお願いします。
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel207
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可

>>436は>>433です。

>>433
数式じゃなくて値を入れたいのよね？
かなり適当だけどこんな感じ
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Address = "$C$1" Then
If Target.Value <> "" Then
Target.Offset(, 1) = ""
Target.Offset(, 2) = Target.Offset(, -1) - Target
End If
End If
End Sub

>>434
ありがとうございます
おかげさまでエラーの場所でわかったので考えてみます

>>439
ありがとうございます。
はやり関数のみじゃできないんですね＞＜
試してみます。

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

Excelで仕入と在庫管理をしようと、色々調べながら関数？ってのを入力して作成中です。

仕入シートから在庫シートに商品情報や仕入値を飛ばすところまで出来ました。
在庫シートで売上を入れて、損益や利益率を表示することも出来きました。

次に考えているのは、在庫シート内で売上済み在庫と売上になっていない在庫を区別したいなーと。
ちなみに在庫確認や棚卸等に使う予定です。

自分なりに考えてみたんだけど、在庫シートで売上情報を入力し、例えば「売上日」のセルに日付が入力されると自動的に任意の文字列を表示させ（▲マーク）、
▲を使ってソートや並べ替えをして売上になっていない在庫を表示管理するとかいうのはExcelで出来ますか？
調べるにもどう検索していいかわからず…

もしくは、在庫シートから更に売上シートを作り、コピペで移動させつつ在庫管理をする方法が普通ですかね？
複数人で使うので極力コピペを減らして、人為的なミスが無いようにはしたいです。

また、［仕入］→［在庫］→［売上］→［在庫と売上後の区別］でこういう方法のがいいんじゃね？ってのあれば教えてもらいたいです。
少々のことでもコツコツ勉強しますのでお願いします。

>>441
「Excel 在庫管理」でググれ

>>442
ﾚｽﾄﾝ
1点1点仕入商品が毎回違い、仕入先情報も毎回違うので都度登録しなければならず、中々フリーソフトでは難しそうです。
業務の都合上、その都度の仕入先と仕入商品情報を紐付けて管理しなければならないので、作成中のデータベースは管理IDを1行毎に付けるようにしています。
また何かあったら教えて下さい。

>>443
442は「Excel 在庫管理」でググれって言ってるのであって
「フリーソフト 在庫管理」でググれって言ってるわけじゃないぞ

>>443
Excelの質問じゃなくて、在庫管理の仕方を教えてください、って質問になってないか？
もうちょっと具体的に何をどうしたいのか書いてくれないと曖昧すぎてサッパリわからない

>>444
あ、そういうことかｗ
ごめんなさい

>>445
一番の目的ははAのセルに何か入力されたら、Bのセルに任意の文字列を表示させるってことでした
その任意の文字列を並び替えることで、在庫品と売却済みのデータを区別して管理しようと思ってました

と思いきや、フィルタってので空白のセルとか、空白以外のセルとかで表示を絞れるんですね
これで売上になってない在庫の把握もできそうです
棚卸もこれでできそうですね

Sub 全部開く()
wb1 = "榊原郁恵.xls"
wb2 = "石野真子.xlsx"
wb3 = "菊池桃子.xls"
wb4 = "南野陽子.xlsx"
wb5 = "柏原芳恵.xls"
For i = 1 To 5
Workbooks.Open Filename:="D:\DATA\" & "wb" & i
Next
End Sub

5つのファイルを全部開きたいんだけど・・・

>>447
配列変数使え

コンパイルエラーになってもた・・・

Sub 全部開く()
wb(0) = "榊原郁恵.xls"
wb(1) = "石野真子.xls"
wb(2) = "菊池桃子.xls"
wb(3) = "南野陽子.xls"
wb(4) = "柏原芳恵.xls"
For i = 0 To 4
Workbooks.Open Filename:="D:\DATA\" & wb(i)
Next
End Sub

なんだか加齢臭のする質問だなｗ
人選が50代っぽいぞ

　 　∧＿∧
　　（　´∀｀）　　ｵﾏｲﾓﾅｰ
　　（　 　 　）
　 　|　｜ ｜
　　（＿ )＿）

Dim wb(4)
を追加するだけでいいんじゃないかい？

>>433
単純にこんな感じじゃいけないの？
D1: =IF(C1="",A1-B1,"")
E1: =IF(C1<>"",C1-B1,"")

> A1：６　B１：５　C1：なし　D1：B1-A1=1
> ↓
> A1：６　B１：５　C1：4　D1：なし　E1：C1-B1=1

そもそもこの数式がおかしい

ｃｔｒｌキー押しながらマウスのスクロールまわすとエクセルシート全体のサイズ変更ができて自分にあったサイズにできるけど、、、
これを200シート分、VBAでサイズ変更したいと思うのですが可能でしょうか？
解る方いたらおしえてください。よろしくお願いします。

可能だけど、その200シートってのが何なのか解らないと具体的には何も言えない

ブック内のシート数が200でその全部が対象って事なのか
シートを10持つブックが20個で計200シートなのか
500個のシートを持つブック内の、特定の200シートが対象なのか、、、

>>455
こんな感じ
Sub Macro1()
For Each a In Worksheets
a.Select
ActiveWindow.Zoom = 50
Next
End Sub

をいをいw

200シートも切り替えるんだから、処理中ScreenUpdatingは切ろうぜ

あ、そだね
最近全然やってないな
PCの西濃がいいからついつい甘えてしまう

すべてのシートだったらシートを全て選択して好きな表示の倍率にすればいいじゃん(´・ω・｀)

>>452
できた！ありがと。

Sub シート保存()
Dim wb1 As String, ws1 As String, ws2 As String
Dim fdr As String, f_name As String
wb1 = "徳丸純子.xls"
ws1 = "石坂智子"
ws2 = "山口弘美"
fdr = "仙道敦子"
f_name = "江戸真樹.xls"
Workbooks(wb1).Worksheets(Array(ws1, ws2)).Copy
Worksheets(ws1).Select
Cells.Copy
Cells.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Range("A1").Select
Columns("H:M").Delete Shift:=xlToLeft
Worksheets(ws2).Select
Cells.Copy
Cells.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Range("A1").Select
Columns("H:M").Delete Shift:=xlToLeft
ActiveWorkbook.SaveAs "c:\" & fdr & "\" & f_name
ActiveWorkbook.Close
End Sub

２回繰り返してる箇所があるので、もうちょっと効率よくしたい・・・

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

配列数式で、例えば5と書いたセルを参照して配列{1,2,3,4,5}を返すのは普通の関数でできますか？

>>460
そんな方法会ったのね。。。

>>463
できます

現在お弁当代の表を作成してます。
Ａ２６０円　Ｂ３２０円でこの様に計算しました。
countif(B$2:BF$32,”A”)*260+countif(B$2:BF$32,”B”)*320
という形で関数を打ち込みました。
これだと１人分の計算はできたのですが、全員分の計算ができなくて困っています。
合計のセルを下にひっぱっても関数がおかしくなってしまうので、分かる方いましたらよろしくおねがいします。

>>466
どんなデータがあってどんな風に集計したいのかサッパリわからん
この6行で第三者に伝わると思ってるの？

>>466
31行*56列ってことは、横(列)方向に人、縦(行)方向に日付か？
普通逆じゃないの？

まあそれはいいとして、一人分の計算は、「B$2:BF$32」ではなく
「B$2:B$32」でフィルコピーじゃないの？
で、全員分はその数式入れた範囲をSUMで合計するだけでは？

>>456,457,458,459,460
ありがとうございました。

おかげで合計でました。
ありがとうございました。

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

ブックには入力シート・一覧表・参照用の３つのシートがあり
VBAを使用して「入力シートのデータを一覧表・参照用にコピペして、シートの複製・入力シートの指定セルの値をデリートする」という動作を実行するようにしています。
そこからVBAで「一覧表に30件の情報が入力されていて、かつ特定のセルに入力が行われた場合にエラーメッセージを表示する」
という動作を登録したいのですが、どのようにコード入力を行えばいいのでしょうか

いろいろ調べた結果、下記のようなコードでいいのかなと思ったのですが
コードとして入力するにもどうすればいいか分かりませんでした。
よろしくお願いします。

Iｆ　= ""一覧表の30列目に値が入っていない状態""　And　""入力シートB２に入力を行う"" Then
MsgBox "新規ブックを作成してください",vbCritical
End
End If　

>>467
>>468には伝わったみたいだな

>>471
入力シートのＢ２に入力を行う　というイベントで当該マクロを動かすことになります。
Private Sub Worksheet_Change(ByVal Target As Range)
if (Target.Address = "$B$2") and ""一覧表の30列目に値が入っていない状態"" then
　MsgBox "新規ブックを作成してください",vbCritical
End If
End
を入力シートのマクロに書いてみてください。""一覧表の30列目に値が入っていない状態""部分の
記述は詳細がわからないので割愛します。（動作チェックはしてません。あしからず）

473 の自己レス　End If　の次の行は　End Sub　でした。

>>471
If 一覧表.UsedRange.Rows.Count >= 30 And 入力シート.Range("B2").Value <> Empty Then
かな？

一覧表の1行目にタイトルがあり、データが2行目からとかなら「 >= 30」ではなく「 >= 31」ね
UsedRange.Rows.CountはCells(1, 1).End(xlDown).Rowとかでもいけるはず

つーかさ、入力シートから一覧表にデータ移す場合に、一覧表の末尾データの位置情報が必要になるから
一覧表のデータが何件あるかを取得する方法は分かってるはずじゃないの？

>>473
さっそくご回答いただきありがとうございます。
動作確認は上手く行かなかったのですが考え方が少し分かったのでいろいろ調べてみます。
ありがとうございます。


私のつたない説明ではうまく伝わらなかったのではないかと思うので使用中のコードを載せますので
もし「一覧表の30列目に値が入っていない状態」が分かる方がいらっしゃいましたら教えていただければと思います。
よろしくお願いします。

ActiveSheet.Copy Before:=Sheets(3)
ActiveSheet.Name = Range("C1").Text
With ThisWorkbook.Sheets("一覧表")
.Activate
.Range("A999").End(xlUp).Select
r = Selection.Row + 1
.Range("a" & r) = B1
.Range("b" & r) = B2
.Range("c" & r) = B3
.Range("d" & r) = B5
.Range("e" & r) = D11
.Range("f" & r) = H2
.Range("g" & r) = H3
End With

Sheets(1).Select
Range("クリア").Select
Selection.ClearContents

>>471
▼━質問時の注意･決まり事━━━━━━━━━━━━━━━━━━━━
･3 VBAコードを貼る場合は、部分的に伏せたり省略したりせずに全て貼りましょう。何レス使っても構いません。
･4 2回目以降の質問では名前欄に初回質問の番号を入れよう。


ついでに指摘すると、

Iｆ　= ""一覧表の30列目に値が入っていない状態""　And　""入力シートB２に入力を行う"" Then

じゃなくて

Iｆ　= ""一覧表の30行目に値が入っている状態""　And　""入力シートB２に入力を行う"" Then

なんじゃないのか?
もし本当に列の問題なら、調べるべきはRowsじゃなくてColumnsだよ

>>476

Sheets("一覧表") のレンジに代入してる、B1とか、D11とかって何の変数？
唐突に出現するけど。

もしかしてアドレスか？

>>476

.Range("A999").End(xlUp).Select
もやりたい事はわかるが、なんだかなあって感じ

>>479
Selectしてることについて言ってんの?
列をチェックするはずなのに行をチェックしてることについて言ってんの?
RangeがA999などという中途半端なところのこと言ってんの?

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

VBAでコマンドボタン設置してシート1からシート2へコピペさせてます
ペースト時に、シート2で画面の横スクロールが起きるのですが、スクロールさせずに作業させることは可能ですか？
方法があればおしえてください

>>481です

すいません
Application.ScreenUpdating = False
で解決しました

誰か〜

>>483
二回ぐらいならその辺りでいいんじゃないの
そんな程度で効率求めるほうが非効率
100回繰り返してるとかなら手伝うけど

>>476
コードが汚い？なんでもいいんじゃない
Sub a()
Sheets("sheet1").Select
Dim x
x = 0
For Each aaa In Range("30:30")
If aaa.Value <> "" Then
MsgBox (aaa.Address)
x = 1
Exit For
End If
Next
End Sub

皆様ご回答ありがとうございました。
まだ動作確認までできていないのですが、助言を元にもう少し頑張ってみます。
まだ勉強し始めたばかりなので、おかしなところもたくさんあったかと思います。
皆様のコメントも参考にさせていただきます。
B2等は変数と言っていいのかはわかりませんが名前をつけて省略していました
ルールも守れず申し訳ありませんでした。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
数値の入ったセルをセルの書式設定で文字列として設定すると、普通の数字は文字列となって
セルの左上にエラーの緑三角が表示されるはずですが、csvファイルから読み込んだデータで
同じ操作をするとエラー表示の無い文字列になってしまいます。
こうなると同じ「123」という数字でも別データとして扱われるらしくVLOOKUP等での検索に引っかからなくなってしまいます。
csv由来のデータをなんとか汎用性のあるデータに書き換えたいので、よろしくご教授お願いします。

>>487
エラーチェックオプションで「文字列として保存されている数値」のチェックを外すとエラーにならなくなるよ

>>487
うーん、よくわかんない
第四引数を1かTRUEにしてない？

CSVはこんな感じでつくってみたけど、読み込んだら全て数値扱いだった
1,a
2,xs
3,d
"4",f
5,g
6,h

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

セルが小さくて、入力規則のリストの矢印も小さく表示されて不便なので
表示のズーム以外で矢印を大きくする方法はありますか？

>>490
ない

入力規則のリストではなく
フォームのコンボボックスなら
同様のことを実現できて▼も大きくできる

Excel2010で、挿入→図形→テキストボックスで文字を書くとき、
全角はMS Pゴシック、半角はcalibriになってます。
半角もデフォルトでMS Pゴシックにするにはどうすればいいですか？

>>492
開発リボンにある、フォームコントロールのコンボボックスのことですか？

>>490

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

幅だけならこんな方法もある
http://support.microsoft.com/kb/871080/ja

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

行 A B C D
1 日付 出発時メーター 到着時メーター 走行距離
2 7/11 10,000km 10,100km 100km
3 7/12 10,100km 10,500km 400km
4 7/13 10,500km 10,700km 200km
5 未入力 未入力 未入力 未入力

という表で、5行目以降
日付、出発時メーター、到着時メーターと入力したところで、走行距離(100km, 400km, 200km)が自動で入力されるようにしたいのですが、
どういった方法が良いでしょうか？

毎回、D5に=C5-B5、D6に=C6-B6、D7に=C7-B7と入力していくのは面倒です。
また、D2に=C2-B2と入力してオートフィル機能を使ってドラッグするのもどうなのかなと思います。

もっと良い方法があれば教えていただきたいです。
よろしくお願いします。

>>496
IF関数使って、入力が無いときは""を
入力が有れば計算結果を返す式を組めばいい

>>496
いい感覚を持ってるな。あなたにはアクセスのほうが合うかもしれない
ただここはエクセルスレなので、エクセル前提として回答すると
・先に31日分まで数式を入力（恐らく一般的な使い方）
・vbaのワークシートチェンジ（正直、やり過ぎと思うが）
になると思う
VBAは以下をsheet1に記述
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Target.Offset(0, 1).Value = Target.Value - Target.Offset(0, -1).Value
End If
If Target.Column = 1 Then
Target.Offset(0, 2).Value = Target.Offset(0, 1).Value - Target.Value
End If
End Sub

間違ってるぞ

>>496
オートフィルより出発時メーターを毎回入力するのもどうなのかなと思います。

>>498
このような場合は列方向でOffset使うのは好ましくない。
可読性が著しく落ちるし、イベント発生列によって式を変えなくちゃならないからね。
Target.Rowを変数に取って、Cells(行変数, 列番号)とするか
With Target.EntireRowで、.Cells(列番号)とする方が、可読性も汎用性も上がる。

>>500
運送会社のトラック走行距離なら、車検や修理、自社整備倉庫との往復などで
前回到着時メーターと、次回出発時メーターが同じだとは限らないのでは？

深いな

いやあ、それほどでも

レスありがとうございます。
家に帰ってから試してみたいと思います。

>>496
てか、どう考えてもD列オートフィルが一番早いじゃん

Excel2010で、挿入→図形→テキストボックスで文字を書くとき、
全角はMS Pゴシック、半角はcalibriになってます。
半角もデフォルトでMS Pゴシックにするにはどうすればいいですか？

エクセル2010で質問です、

セルＡに1から100までの数値がそれぞれ入力してあって50以上のセルを赤色に塗りつぶしを、20以下のときは緑色にしたいです。だいぶ前にできていたのですがわすれてしまいました。
すみません、だれか簡単に教えてください。お願いします。

>>506
うちは2003だけど、最初から全角も半角もMS Pゴシックになってる

>>507
条件付書式

このスレで一番使えないヤツ

>>15　2003だと動いたんだけどな

>>319　2003ならツーッルバーのユーザー設定でナントカカントカ

>>387　2003だと動いてるんだけどな・・・

>>430　2003だと普通に F2、HOME でどちらの場合も
　　　　　編集状態のままセル内先頭に移動出来るけど

>>508　うちは2003だけど、最初から全角も半角もMS Pゴシックになってる

この子、いきなりどうしちゃったの？

エクセルVBAでごりごりに組んだ経理のシステムがあるんですけんど
これをもとにビジュアルベーシックでスタンドアロンアプリを作りたい。
表計算などの基礎的な部分からプログラミンが必要なの？
うまく変換するしかけとかありますけ

>>511
エクセルVBAでごりごりに組んだ経理のシステムを見てみないと判断できない
どっかにアップして

VisualBasic6.0以前と
VisualBasic20023以降とでは全く話が別だしな

まずはブックのうpからか

20023年にもVisualBasicが存在してるのか。

ちょっとした誤変換や入力ミスにもすぐ食い付く奴って・・・

たとえばアクセスだとそういうのやれるでしょ？
アクセスなくても単体でうごかせるやつ。

たまにＶＢＡで　Ｒ1Ｃ1　ってのをみるんだけど初心者にわかりやすいようにおしえてくれない？
お願いします。

>>509
わぁ、特定すごーい！
>>511
vba基準で見ると、エクセルは膨大なライブラリと見れる
が、うまく組んでいるなら単純にセルの配列と見ることもできる
で、これがわかっているなら変換の可能/不可能、容易/難解、はすぐに理解できる
つまりあなたには相当に難しい作業だと思う
>>517
Rはrow、行。Cはcolumn、列の意味。
R1C1はRow 1行目 Column 1列目の意味。

>>516
微妙なたとえだと思うぞ。アクセスは開発ツールみたいなものだ。
DBエンジンはアクセスを入れなくてもwinOSにすでに入っている。

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

webクエリを更新した場合、特定のセル値が変る箇所があって
そのセル値が変るたびにChangeイベントでマクロを実行するようにしたいんですが、何か良い方法ありますか。
Changeイベントだと直接数値を変えないと判定されず、webクエリで取り込んだデーターだとセル値が変っても判定されません。
例えばwebクエリを更新した場合、A1とA5は違う数値になります。
それをどうにか認識する方法はないでしょうか

>>520
たとえばどこか使わないセルに前回の値を書き込んでおいて
更新時にその値と比較すればいいんじゃないの。
チェンジイベント限定だと知らんが。

>>520
webクエリを更新ってイベントあったっけ？もしあるなら

huga=hoge.value
webクエリを更新()
piyo=hoge.value
if huga<>piyo then
//syori
endif

で無理なら、ハンドラでぐぐるか。

>>521
チェンジイベント限定じゃなくても、セル値の値が変るとマクロが自動で実行されるなら何でもいいです。
全て自動にしたいので書き込むのは無しの方向で。


>>522
webクエリの更新じゃなくて特定のセル値の変更で実行したいんです。
webクエリを更新すると、A1やA5が違う値になるので、A1が変更した場合はマクロAが実行され、
A5が変更だった場合はマクロBが実行される的な感じです

Worksheet_Changeイベントで処理すればいいと思うんだけど
ダメな理由がよくわからない

ごめん寝起きでボケてたわ、>>524は忘れて
>>522でよさげ

>>522はどういう意味ですか？

>>526
Webクエリ更新前に特定のセル値(例えばA1やA5)を退避しておいて
Webクエリの更新をして、退避しておいた値とWebクエリ更新後の値を比較して
差異があればなんらかの処理を行う(例えばマクロAやマクロBを実行)

Excel2010で、挿入→図形→テキストボックスで文字を書くとき、
全角はMS Pゴシック、半角はcalibriになってます。
半角もデフォルトでMS Pゴシックにするにはどうすればいいですか？

マナーもルールも守れない奴には無理だ
目障りだから帰ってくれないか！

>>529
誰に言ってるんだ？

>>528
テキストボックスを作る
テキストボックス内で右クリック→フォントで英数字用フォントと日本語用フォント、その他変えたい所を変える。
OKで閉じる。
テキストボックスの枠線の所で右クリック→既定のテキストボックスに設定を押す。
ためしに新規テキストボックスを作って文字を書いてみる。

これでいけるとおもう。

>>528
>>493、>>506に似たような質問あるからその辺りで答えが出てると思う

>>530
たしかその設定の記憶はシート内だけで有効
別シートや新規ブックには引き継がれなかったはずだけど、質問者はそれでもいいのかな

今より便利だからいいやん。

http://blog.livedoor.jp/tokuiss06/archives/729392.html
これも併用すればいいんじゃ
「C:\Program Files\Microsoft Office\OFFICE11\XLSTART」
を変更するとデフォルトがかわる

>>530
532氏のご指摘どおり、デフォルトで設定できません。

>>534
C:\Program Files\Microsoft Office\OFFICE11\XLSTART\Book1.xlsxで保存しましたが、
新たにエクセルを立ち上げると半角はcalibriになってしまいます。

>>535
おそらく、望んでいることを可能にするために
テンプレートという機能が存在してるんじゃなかろか。
テキストボックスのフォントを変更して、既定として使用にしておいて
それをテンプレートで保存する。
新規ブック作成時は、オフィスボタンから、そのテンプレートを選べばいい。

これで良いんじゃない？

多分それ以上は無い

>>536
新規より、既存のブックを開いてテキストやボタンを
追加するときに必要なんですけどね。
一度つくったものをコピペして使い回ししてますが
毎度のことなのでデフォルト設定ができたらと思い質問しました。
結局、できないようなので諦めます。

俺の2003なら全角も半角もMSゴシックですよ？

>>538
その使い方なら>>530でいけるんだが。

既存のはまとめてマクロ流せばいいんでねーの。

マクロの記録でもできるレベルなんだからさっさとやればいいのにな。

「新しいテーマフォントの作成」で行けるんじゃないの。

WorksheetOpenにフォントの設定を仕込んでおくとか

excelを手っ取り早く覚えたいなら。

http://mcas.ichiyazuke.jp/

>>545
最悪の詐欺サイトだな
そんなもの使う必要なし

男は黙って削除依頼
もうしたけど

>>538
それなら　>>540 の言うとおりだよ。
何か操作を間違っているんじゃないかな。

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

http://ll.la/&B6E

Ｐ列：判定数値　１〜９までの数字が入る
Ｑ列：判定値を任意の桁数で表示したい　
　　　表示方法：桁数＝Ｎ９
　　　Ｎ９＝２の時、Ｎ１０＝１の位　Ｎ１１＝１０の位
　　　Ｎ９＝３の時、Ｎ１０＝１の位　Ｎ１１＝１０の位　Ｎ１２＝１００の位

算出するため　Ｎ列　Ｏ列を追加した
Ｎ１０=ROW()-10
Ｏ１０=POWER(10,N10)
Ｑ１０=SUMPRODUCT(O10:OFFSET(O10,Q$9-1,0),P10:OFFSET(P10,Q$9-1,0))/O10

この方法だと　
Ｏ列：べき乗に上限があるみたいで　
308乗以上になると　Ｏ列やＱ列で＃ＮＵＭ！が帰ってきます

できればＶＢＡを使用せず
表計算の条件式だけで算出したいのですが
どうしたらいいのでしょうか？

よろしくおねがいします

>>549
http://www.dotup.org/uploda/www.dotup.org3203080.png
こんな感じで桁数減らすのはあかんの

>>550
Ａ列をＥ列のようにした場合
Ｆ列のデータ数が５００や１０００や２０００になっても
Ｇ8　Ｇ9　Ｇ10みたいな感じで任意の桁数の数字が求められるのでしょうか？

ボクの方法だとＢ列が３００個ぐらいで#NUM！が発生しちゃうんですが
どうしたらいいんですかね？

>>549
Ｑ１０=SUMPRODUCT(O10:OFFSET(O10,Q$9-1,0),P10:OFFSET(P10,Q$9-1,0))/O10
の式は
Q10=SUMPRODUCT(OFFSET($O$10,0,0,Q$9,1),OFFSET(P10,0,0,Q$9,1))
で良くないか？

>>540 = >548

気づかれてないとでも？w

>>552
そっか....
Ｏ列で　１０のｎ乗をあんなに表示させなくてもいいんだ！
求める桁数のみ表示させればいいんですね

http://www1.axfc.net/uploader/Img/so/146139
教えていただいた条件式を使用して
Ｏ列の不要な部分を表示させないように修正してみました。

どうもありがとうございました

Excel2003で作成したﾌｧｲﾙをExcel2010で修正し保存する時に2003ﾊﾞｰｼﾞｮﾝで保存したらいろいろ互換性が悪くﾌｧｲﾙが重くなった。2003を主に使用するのでExcel2010を2003のﾊﾞｰｼﾞｮﾝで使用したいができるのですか？

ブックの「2003(形式)」とアプリの「2003(バージョン)」を
区別できるように掛けよ

何言ってんのコイツｗ

>>540
デフォルト設定とは、初期設定のことです。
530の方法は初期設定のやり方ではありませんし、
2つ目以降なら今やってるコピペの方が効率がいいです。
既存のブックに、（初期で）テキストボックスやボタンを
追加したときでも半角がMS Pゴシックにできればということです。

>>548
同上

>>558
おそらく

>新規より、既存のブックを開いてテキストやボタンを
>追加するときに必要なんですけどね。
というやり取りの時に、

>新規より、既存のブックを開いて「一つ目の」テキストやボタンを
>追加するときに必要なんですけどね。
と書けば、みんなに理解されたかも知れないね。

みんな　じゃなくて、お前（>>540 = >548）が理解してなかったんだろ？

おれは>>540でもないし>>548でもない
なに言いがかり付けてるんだか

何か知らんが同じ考えなだけで同じ人扱いされても、否定するのもめんどくさい。
>>559で理解できました。

自分なら個人用マクロブックにマクロ組みます。そこまで必要なさそうだけどね 。

PowerShellでExcel起動して設定を変えるという手もあるかな

何か知らんが同じ考えなだけで同じ人扱いされても、否定するのもめんどくさい。
>>559で理解できました。

質問者が「違う」と言ってるのに、>>○○で正解だと繰り返してたのが前にもあったなw

>>565
エスパーの少ない時だと往々にしてなりがち
許せ
>>562
俺なら全ての使用中.xlsファイルに適用するよう、foreachかな
ただそういう状況にまずならないけどね

マクロを録画するボタンでできたマクロって、あとから一覧に出てくるでしょ？
けどはじめからVBAエディタで書いたプログラムはマクロ一覧にはいない。
どうしたら一覧から消せますけ

>>567
>けどはじめからVBAエディタで書いたプログラムはマクロ一覧にはいない。
うーん、今sheet1に書き込んでsheet2でalt+F8してみたけどでてきた
その状況を詳しく教えて欲しい。もしくはファイルのアップロードキボンヌ

>>566
foreachって何？
ググってもわからん

>>569
http://home.att.ne.jp/zeta/gen/excel/c04p21.htm
for eachのこと
エクセルVBAだとコレクションすべての要素に大して処理を行うことができる
「foreach　vba」でぐぐってテキトーに使ってみると良い」

エクセル2010です。質問がありますよろしくお願いします。
ＶＢＡのプログラムの途中からだけ実行して動作確認がしたいです。

長いプログラムを作成中です。途中で何回も動作確認します、
プログラム前半にInputBoxで入力する作業が4つもでてきて確認作業がしずらいです。
ぐぐったらブレークポイントというのがでてきました。
さっそくやってみたのですが最初から実行して途中とまってそこから確認したいところを確認するという感じでした。
結局InputBoxがでてきてしましました。

前にコード表示して選択したところのプログラムを実行して確認するやり方を知っていたのですが、すいぶん前のことで忘れてしまいました。
知ってるかたいたら教えてください。よろしくお願いします。

571だけど、、、
今、データセーブして起動してマクロみたらプログラム名だけ残っててなかみが消えてるんだけど、、、
夜中作業して150行くらいつくった。

データセーブして一服　→　あっ！実行確認してなかった。　エクセル起動　→　マクロ名クリック　→　？？？　→　全消え。。。
なんなのこれ。もうデータ復活はできないの？

>>571
a = InputBox("")
で10とにゅうりょくしてるなら
a = 10
とかにしておけば良い

>>572
知らん。もう一度保存しても消えてるならエクセルがおかしい。
消えてないなら君が消した。

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

日付に関する質問です。
『12/7/17』という日付のセル内から、『12.7.17』に変換して取り出すにはどうしたら良いでしょうか？

>>574
year、month、dayでがんばってもいいけど
=TEXT(A1,"y.m.d")

>>567
private subと、引数の必要なpublic subは一覧に出ない
引数のないpublic Subは一覧にでる
省略したsubだけのはpublic扱い

>>575
ありがとうございます

>>576
つまりどうすたらいいのでしょうか

>>578
コード見せてもらわないと判別不能
とりあえず
private subならpublic subに書き換え
引数が必要なら呼び出し元から呼び出すしか無い

消したいんだから逆だろ
表示したくないものにPrivateを付ければよろしい

因みに一番上に
Option Private Module
と書くとPublic宣言してあるものも全てまとめて表示されなくなるよ

まとめると、表示されるものが○、表示されないものが×として

標準の場合
○Sub
○Public Sub
×Private Sub

Option Private Moduleを書いた場合
×Sub
×Public Sub
×Private Sub

つまり個別に表示させるものと表示させないものを分けたいならPrivate Sub
全部一括して表示しないようにしたいならOption Private Module

>572と近藤してしまったｽﾏｿ

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

SelectionChangeイベントについてなんですが、単一セルだと稼働しますが、セルの結合だと稼働しません。
下記載のようにB3の単一だと起動しますが、C3D3E3と三つのセルを結合した部分を、コードでC3を指定しても稼働しません。
セルの結合でイベント発生させたいときはどうすればいいのでしょうか

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　　If Target.Address() = "$B$3" Then
　　　　MsgBox "このセルには入力しないで!!"
　　End If
End Sub

>>582
根本的に間違っている部分
イベントは発生しています

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox Target.Address
End Sub

これでイベントが発生している事と、アドレスプロパティで取得できる文字列の内容を確認してみてください。


警告を出したいんだろうけど、セルを結合している時点でC3だけの選択は出来ないですよ。

ちょっと間違った。ようするにそのB3と同じように、ここには入力しないで！警告を出したいなら>>583でアドレスの内容を確認して
B3と同じようにしてみたらいけると思うよ。

>>582
If Target.Address() = "$B$3:$D$3" Then

あ、アドレス間違った。まあ、こんな感じ

>>583
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not (Intersect(Target, Range("C3:E3")) Is Nothing) Then
MsgBox "このセルには入力しないで!!"
End If
End Sub

皆さん回答ありがとうございます。
回答通りできました。
ただ、ぐぐっている間に自分なりに改造して
>>582の『If Target.』部分を『If ActiveCell.』にしたら
結合セルでも、C3のみの指定でも反応しました。
これはこれで正しい選択の一つなんでしょうか？

>>588
正しいですよ

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


グラフのX軸のデータを
軸の書式設定の配置の文字列の方向を縦書き半角文字を含むに
VBAで変えるにはどうしたらいいでしょうか？

X軸のタイトル等の文字方向はすぐに引っかかるけど、データのは引っかかりません
記録で調べてみてもわからないのでおしえてください。

グラフ関係は記録でわからないのが多いですがどこかいいサイトはないですか？

つーかステップ実行してAddressプロパティの値を見たり
Debug.Printで確認したりすれば原因も解決方法を一目瞭然で
言語を始める場合はまずデバッグの仕方を覚えないと始まらないんだが
VBAではいきなりへんてこコード書くことから始める奴が多いよね

交通ルール学ばずに車の運転始めて、信号に行き当たったら
「信号の赤はどんな意味ですか？赤に向かって突進しろってことですか？」」
とか言ってるのと同レベル

>>591
世の中のVBAのプログラムなんて大体それでなんとかなっちゃうからな
別にそれでいいんじゃねーの

VBA とビジュアルベーシックは同じ意味ですか

>>593
その辺はwiki見て欲しいかなぁ

>>591
クラスの概念も少しでいいから理解してから書き始めると段違いに覚えやすいんだけどねぇ
俺も昔はステップ実行知らずにmsgbox()書きまくってたな
今考えるとアホすぎるが、当時はそんなもんと思ってたな

>>590
データってデータラベルのこと？一個ずつ変えないといけないみたい
Sub Macro3()
Range("D4").Select
ActiveSheet.ChartObjects("グラフ 1").Activate
ActiveChart.ChartArea.Select
For Each x In ActiveChart.SeriesCollection(1).Points
x.DataLabel.Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.ReadingOrder = xlContext
.Position = xlLabelPositionOutsideEnd
.Orientation = xlVertical
End With
Next
End Sub

>>580
うまく隠せましたありがとう

wikiなんてあったっけ？

wikitってWikipediaのことだろ

さすがにそれはないだろ

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

使用してる間にいつのまにか、シート下の列移動するバーが凄い小さくなってました
1番右までやると「WWD」列までなっていたんですが、これってWWDまでアクティブってことなんでしょうか？
使用している列はVくらいまでなんですが、無駄に重くなりますよね？
列を選んで右クリック削除でも小さくならないんですが、どうやったら下のバーが新規みたいに戻りますか？

>>601
ブックを保存してExcelを再起動

ｈttp://uproda.2ch-library.com/554032I6c/lib554032.gif
↑を↓にする
ｈttp://uproda.2ch-library.com/554033EdN/lib554033.gif

自動記録すると長いので短くしたい

Sub Macro1()
Range("D2:P15").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlMedium
End With

'続き
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlDouble
.Color = -16776961
.TintAndShade = 0
.Weight = xlThick
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlMedium
End With

'続き
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlDouble
.Color = -16776961
.TintAndShade = 0
.Weight = xlThick
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
Range("B2").Select
End Sub

>>603
Sub Macro1()
　　hoge xlEdgeTop, xlContinuous, xlMedium, xlAutomatic
　　hoge xlEdgeBottom, xlContinuous, xlMedium, xlAutomatic
　　hoge xlEdgeLeft, xlDouble, xlThick, 3
　　hoge xlEdgeRight, xlDouble, xlThick, 3
　　hoge xlInsideVertical, xlContinuous, xlThin, xlAutomatic
End Sub
Private Sub hoge(bi, ls, w, ci)
　　With Range("D2:P15").Borders(bi)
　　　　.LineStyle = ls
　　　　.ColorIndex = ci
　　　　.Weight = w
　　End With
End Sub

こんな感じでいいのかな？



hogeは本当は
Private Sub hoge(bi As XlBordersIndex, ls As XlLineStyle, w As XlBorderWeight, ci As XlColorIndex)
ってした方がいいんだけど、お好きなように

処理時間に影響ないからいいとするか、マクロなしの書式設定で良しとしてもいいのでは？

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

例えばA1からA100に10桁の英数文字が入力されています。
そこから、最初の3桁がAA1のセルの個数を数えるには、どういう関数をしようしたらいいのでしょうか。
B1にその個数を返すにはどうすればいいでしょうか。

>>608
泥臭いやり方だと
C1=LEFT(A1,3)="aa1"
C100までオートフィル
B1=COUNTIF(C:C,TRUE)

>>609
ありがとうございます。
やはり他のセルは使わないスマートな方法は関数じゃ無理ですか。

>>608
=sumproduct((left(A1:A100)=AA1)*1

>>611
あれ？なんか違うな、こうか？
=sumproduct((left(A1:A100,3)=AA1)*1)

>>610
いくらでも出来るけど、作業列使う方がスマートな方法なんだよ
「表面的」な部分ではなく「芯」の部分がね

まあ初心者は見た目だけスマートで内容的に無駄が多い処理を好む傾向にあるけど

>>608
=COUNTIF(A1:A100,"AA1*")
じゃダメなの？

>>612
AA1を""で囲んだら綺麗にできました！
ありがとうございます。

>>613
>>612は駄目な方法ですか？

あ、>>614でもできました。
どれが綺麗な方法なんでしょうかね

>>616
法則がわかっているのなら、ワイルドカード（*や?）を使うほうがスマートだよ。
ただ関数だとワイルドカードが使えない場合もあるので一長一短。

>>596
ラベルではなくて横軸の文字方向なんです。
ttp://iup.2ch-library.com/i/i0693901-1342623097.jpg
の青線の所です。.
Axes(xlValue)で設定できるところがあるのかな？と思っているのですが
たぶん初歩的なことなのだと思いますがわからず困っています。

今回は関数一発でいけるから614でいいと思っているんだけど、
複数の関数を組み合わせるぐらいなら、>>613の言っているとおり作業列を使うほうが綺麗と思うよ。
-　うまく動かない時に確認しやすい点
-　第三者やあとで自分が見てわかりやすい点
-　他のことに改変するとき、やりやすい点
まあ、ケースバイケースだけど、ひとつのセルに関数を何重にも重ねていくのは、あまり勧めない。

なるほど
皆さんありがとうございます。
理解が重要なんですね。理解が。

AA1ってアドレスじゃなくて文字列の事だったのか

>>620
一度だけなら作業列。ひねった数式を書く時間は本当に無駄。初めて使う関数の練習ならいいけど。
業務等ではA列に毎回入力するような状況がある。作業列を何らかの形で消してしまう可能性があり、
そういう意味ではsumproductも良いと思う。
countifだけど、個人的には数式中のワイルドカードは経験上、できるだけ使わないほうがいいと思う。
これぐらい短いならまず問題ないけど、複数ネストがあると括弧やダブルコーテーション過不足で乗算に化けかねない。
>>618
http://www.dotup.org/uploda/www.dotup.org3212896.png
こういうこと？
これでいいなら2012/1/1ってとこを右クリック、変更すればマクロの記録でいけるよ
Sub Macro1()
ActiveSheet.ChartObjects("グラフ 1").Activate
ActiveChart.Axes(xlCategory).Select
With Selection.TickLabels
.Orientation = xlVertical
End With
End Sub

あるセルの値を別シートの指定セルに転記したいとき。

set tw = thisworkbook
set sh1 = tw.worksheets("入力フォーム")
set sh2 = tw.worksheets("印刷シート")

sh2.range("a1").value = sh1.range("a1").value

っていう書式でやれたけど
もっと簡略化できたりするのですけ

>>623
set tw = thisworkbookなしでも可

>>623
あたりまえだ、この野郎！

もっとも簡略した場合だと
worksheets("印刷シート").range("A1")=worksheets("入力フォーム").range("A1")
でOK。

オブジェクト変数を使う場合でも
セル変数は、シート変数とブック変数も
シート変数は、ブック変数も
それぞれ含まれてるので

set rg1=thisworkbook.worksheets("入力フォーム").range("A1")
set rg2=thisworkbook.worksheets("印刷シート").range("A1")
とし、
set rg2=rg1
でOK。

>>623
できるけど>>434、>>613、>>619あたりを読んでみろ

>>623のままの状態が最高の状態だ


因みに、適切とは言えないがコードの短さに拘り、もっとも簡略した場合だと

p.[A1] = i.[A1]

まで短くなる


これをやるにはオブジェクトブラウザで、
├ Sheet1 (入力フォーム)
├ Sheet2 (印刷シート)
├ Sheet3 (Sheet3)
となっている部分を選択して、プロパティウィンドウでシートのオブジェクト名を
├ i (入力フォーム)
├ p (印刷シート)
に変える(それぞれ input と print の頭文字)

[A1] は Range("A1")と同じ意味
そしてデフォルトプロパティのValueと、グローバルオブジェクトのThisWorkbookは省略可能
これで

p.[A1] = i.[A1]

が可能になる

新規空白ブックを作り、コードを表示させようとすると、
atpvbaen.xls てのと funcres とかいうのが既にいて、しかもパスワードがかかっている
http://i.imgur.com/JiX4N.jpg

>>627
アドイン。どうしても削除したいならアドインから削除するしか無い。

>>626
よく見ろ
atpvbaen.xls ではなく
atpvbaen.xla だろ
その二つはアドイン([E]xce[l」 [A]dd-in)だ

パスワードは新規作成したブックのVBAに毎回パスワードが掛かってるなら
テンプレートがそうなってるのがアドインがブック作成イベントを掴んでパス掛けやってるのか

とりあえず、アドイン無効、テンプレート削除(退避)で再起動してから新規ブック作ってみろ
ちあみにアドイン無効、テンプレート削除方法分からなかったら、そのくらいはググれ

>>628>>629
分析ツールてアドインがいたので消したらすっきり解決
大義であった

複乳久しぶりに出てきたと思ったら
また半端な知識で恥かいてて超ウケるw

ネコの複乳いいよね

たびたびお世話になります。

sh1= worksheets("印刷シート")
sh1.[A8] = "abc"
sh1.[B1] = "abc"
sh1.[C9] = "abc"
sh1.[E3] = "abc"
sh1.[F1] = "abc"
.....

こんなふうにシート内のあちこちにabcという同じ値を転写します。
効率のいい記述方をおしえてください。

>>633
Range("B5,C9,E6").FormulaR1C1 = "k"
>>630
マジで消したのか。まぁいいけど…

>>633
sh1.Range("A8,B1,C9,E3,F1").Value = "abc"

>>625
複乳ﾀｿ　(;´Д｀)ﾊｧﾊｧ

>>618
使用しているグラフは散布図グラフオブジェクトでしょうか。
折れ線グラフオブジェクトを使えば解決できると思う。
リンクの図を見る限りデータも順序尺度のようなので
折れ線でも大丈夫じゃないだろうか。

複乳の間違ってはいないんだが低レベルな回答を久しぶりに見た。
なんか懐かしい。

【1 OSの種類】 Windows 7 Home Premium
【2 Excelのバージョン】 EXCEL2007
【3 VBAが使えるか】 いいえ
【4 VBAでの回答の可否】 可
PC初心者板の方で、VBAの方が良さそうだと言われたので、こちらに来てみました。

月ごとに抽出された大量のデータを、
項目ごとにまとめて表にしたりグラフにしたりしたいと思っています。
ピポットテーブルでまとめてグラフにするところまでは出来たのですが
それから先のデータを自動で計算させる方法がわかりません。

分かりにくいですが、値を「合計」ではなく、「合計を使って計算した値」にしたいのです。
ただし計算に使う数値は固定でなく、項目によって違います。
そのために上手く計算式をフィールドに入れることができません。
VLOOKUP関数を埋め込もうとしたら、ピポットテーブルには使用出来ないと言われてしまいました。

希望としてはこういう風にしたいのですが……
http://www.dotup.org/uploda/www.dotup.org3215476.jpg

１．項目には元々固有の数値がある。（含有量など）
２．固有の数値と合計を使った計算式の結果を、値のところに入れたい。
　　（実際の式は、合計×固有値A／固有値B）
３．項目は定期的に追加されたり削除されたりするので、その変化に耐えられる形が良い。
４．月ごとに簡単にデータを追加できるようにしたい。

一度やってみてイマイチだった方法
データの横にVLOOKUP関数→全て計算した値を並べてからピポットテーブルにしてみました。
シートが重くなる上に、小数点が出てから合計するので値にズレが出そうだったり、
データがぐちゃぐちゃになって私以外の人間が入力するのが難しそうでした。

色々検索して試してみるものの、上手くいかず……
どなたかご回答頂ければ幸いです。

>>639
丸投げでコード書いてくれってことならブックをうp
自分でコード書くつもりなら、書けるところまで書いたコードを貼って
どこが分からないのか具体的に書け

ブックうp出来ないけど、意味不明な説明だけでコード書けとか言うならサヨウナラ

エラそうにｗｗｗ

>>640
まあそう言わんと

>>639
本当は、こういう処理は最後の仕上げ以外はExcelに
向いてないんだよな。
解答じゃなくごめん

ヒント

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

>>639

>>639
データの横にVLOOKUP関数→ピボット生成
までマクロに登録すればいいと思う
更にソレをボタンにでも登録すればいいんじゃないかな

VBAがしんどいのは最初だけよ

>>641-642
テンプレに書いてあることだよ

>>639
VLOOKUPが重くてダメ、ピボットで集計できないからダメ、ならVBAでやるしかないんじゃないかな
VBAが使えないなら勉強するしかないかと

皆結論は似たりよったりか

で、どうするの？
ブックうpして気前の良い人がやってくれるのに期待してみる？
自分で勉強して分からないところ聞きに来る？
それとも面倒だからと諦めちゃう？

vlookupってなんで重いの？
VBAで同様の処理が軽くやれるならなぜ実装しないの

実装すると、そういう風に重くなる

vlookupは第二引数の範囲が大きければ大きいほど重くなる
範囲をなるだけ最小にするかmacth+indexを使えば大分マシになる

色々とレスありがとうございます。
個人情報的なものも多いので、無難なデータに置き換えるのに手間取りましたが……
エクセルのファイルをアップしてみました。
基本的にはこのような感じです。
http://www.dotup.org/uploda/www.dotup.org3216591.xlsx

初心者なもので何か見当違いのことをしていたら申し訳ない。

え？vlookupって重いの？
何行目くらいから重くなるの？

>>654
今の性能だとそうそう感じることはないと思う。

>>653
俺なら加工は諦めて、シートまるごと参照する。
VBAに頼ったほうがいいかもしれない。

1　A1=ピポットテーブル!A1
2　オートフィル
3　B5=ピポットテーブル!B5*VLOOKUP($A5,参照!$A:$E,5,0)/VLOOKUP($A5,参照!$A:$F,6,0)
4　オートフィル
5　B4の書式設定を日付けに
ttp://www.dotup.org/uploda/www.dotup.org3216652.xls.html

>>639
ttp://www.dotup.org/uploda/www.dotup.org3217442.jpg

こんな感じか？

現在、9分類49品目2228件を上記画像の型にするのに5年前のPCで0.25秒くらい

シートに数式は追加してないので、シート操作は全く重くならない
数式追加以外もシートは一切弄ってないので、そのままデータの追加や削除可能

合計×固有値A／固有値Bやると少数になって見づらいし
> 小数点が出てから合計するので値にズレが出そうだったり
のあたりに拘りがありそうなのでやってないが、計算可能な仕様は既に作成済み
あとは表示をどうするかの部分について詳しく希望を書け

表示月はとりあえず2011年の4〜12月固定で作ったが、全表示も、任意年度表示も可能

固有値A/固有値B って 固有値A ÷ 固有値B ってことなの？
それとも条件によってAかBを振り分けて使うってこと？

除算の方と思う

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

グラフの上端や下端をトリミングする方法を教えてください。

どこをどうトリミングしたいのか画像で説明して

>>660
グラフ全体です。上端だとこんな感じ。
http://www.dotup.org/uploda/www.dotup.org3217867.gif

図のリンク貼り付けとかでなくグラフそのものでできないものかなと。

>>661
カメラ

>>662
節子！それ図のリンク貼付けや！

>>661
白い箱おいて隠せば

エクセル2010　　ＶＢＡ

挿入から標準モジュールでＶＢＡをかいています。

１つめのマクロで　　変数 ”a” というのをつかっているのですが、、、（変数”a”はマクロ実行時、インプットボックスから入力後、変わりません。1から100の整数。例えば50として、、、）
２つめのマクロでも　1つめのマクロでつかった変数”a”を中身をそのままに使いたいのですが可能でしょうか？
50という数値がほしいのです。
教えてください。よろしくお願いします。

メインで宣言するか、引数として渡すか、セルを介して受け渡しはどうでしょう。

>>665
VBAだとグローバルの範囲せまいな。強制的にglobalにするオプションがあればいいんだけどね。
↓か、引数かな。慣れたらどっちがいいかは分かるんだけどねぇ。

■グローバル変数の定義
・Excel でグローバル変数を使用する場合は、標準モジュールの General で
public 宣言する必要があります。
シートやフォームのモジュールで宣言してもエラーにはなりませんが、グロ
ーバルとして扱えません。
また、ブックをまたいでのグローバル変数の宣言と言うのもできません。

【宣言方法】
public 変数名 as 変数タイプ

>>666, >>667
いろいろ方法があるのですね。
あとはぐぐって調べてみます。
助かりました、ありがとうございました。

>>622>>637
無事に変更できましたた。ありがとうございます。

2007なんですけどマクロの記録だと
Sub Macro4()
ActiveSheet.ChartObjects("グラフ 2").Activate
ActiveChart.Axes(xlCategory).Select
Range("F52").Select
End Sub
なんでselectまでしか解らないんです。グラフ関係は殆どこんな感じで
TickLabels.Orientation = xlVertical　は解らなかったけど設定変更などあるのかな？

>>667
> シートやフォームのモジュールで宣言してもエラーにはなりませんが、グロ
> ーバルとして扱えません。

「グローバル変数にならない」というならまだ分かるが、
「グローバルとして扱えません」というのは語弊があるな。

単に標準モジュールに書いたPublic変数(公開プロパティ)は親オブジェクト名を省略しても
参照できる(これを俗にグローバル変数と呼ぶ)が、シートの場合はその省略が出来ないだけで
参照自体はグローバルで扱える。親は標準モジュールもシートもグローバルオブジェクトだからね。

例
===Sheet1=====
Public 変数1 As Long

Private Sub test1()
　　変数1 = 50
End Sub
===Sheet2=====
Private Sub test2()
　　MsgBox Sheet1.変数1
End Sub
==============

これでSheet1のtest1を実行したあとSheet2のtest2を実行すれば
Sheet2からSheet1の変数1をシートを跨いで取得可能。
当然、test2は標準モジュールに書いてもユーザーフォームに書いても
同じように取得できる。

まあその下りが引用なのは知ってるけど、それを引用してくるってことは
それが正しいと勘違いしてるんだろうから、一応突っ込んでおく。

>>669
マクロの記録の設定は聞いたことないな
2007で大幅に変わったとは聞いていたが、その辺かも

質問させて頂きます

MID関数の設定を列に固定させる方法を知りたいです
現在、A2の数式が【=MID(C2,1,2)】となっており
以下の列にも同じ表示法で、コピーではなく自動的に
表示されるようにしたいのです

初歩的な質問ですみません
ご教授願います

>>672
質問は、自分しか理解できない「俺語」ではなく
皆が理解できる「日本語」でお願いします。

>>672
オレ初心者だけど、、、たぶんね、
Ａ2に　=MID($C2,1,2) でオートフィルでどう？

その式の　Ｃ　前後に　$　をいれてやると　オートフィル時に　行　列　固定できる。


ちなみに、たぶんだけどＶＢＡだと、、、

sub test()
for i = 0 to 99

cells(1+i,3)= "=mid(c2,1,2)"

next
end sub

でおｋじゃないかな。ちなみに　ｃ100　まではいる。
こーゆーの試したことないからやってみて結果教えてください。

あとここで質問するときは、

エクセル2010
ＶＢＡ可能
初心者です、


みたいな感じでかくと相手に伝わりやすいよ。

間違えた $ は　　cの後ろだねｗ


Ｃ$

>>674-676
回答はあってるんだけど、できれば改行は少なめにお願いします。
周りに合わせて欲しい。

あとvbaでは、forの変数はセルに合わせるほうがわかりやすい
For i = 1 To 100
Cells(i, 3) = "=mid(c2,1,2)"

>>678
ほんとだ、ありがとうございます。





最近途中行からばっかりだったから気づかなかったです。








今674みるとアホですねｗ

>>677
すみませんでした、以後気を付けます。

めんどくせースレだな

回答も間違ってたらスルーだったけど、まぁぼちぼちだったし注意させてもらった
あの調子で連投されるとさすがにスクロールだるい

>>674
ご回答ありがとうございます
オートフィルのやり方はわかるのですが
そうでなくフォーマットとして永久的に反映させられる
設定にできないものかと思いまして(説明ヘタですみません)
もう少しがんばってみます！

>>683
Worksheet_Changeイベントで値を設定してやればいい

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

下図のようなブックがあります。
管理表.xlsxのBP列に管理番号があり、それと同じ番号が棚卸6月.xlsのC列にあります。
6月なら、管理表.xlsxのL列の数値を拾い、棚卸6月.xlsのP列に書き加えています。

また、管理表.xlsxには途中で空白セルと、管理番号が抜けてるものがあり、管理番号が
抜けてるものは、棚卸6月.xlsのC列とP列のセルを黄色にします。

管理表.xlsx　シート"在庫数"
　　　　・・・　　G　　・・・　　L　　・・・　　Q　　・・・　　AU　　・・・　　BJ　　・・・　　BP　　　　　　　
　5　　　　　　5月　　　　　6月　　　　　7月　　 　 　 1月　 　 　 　 4月
　6
　7　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　管理番号
　8　　　　 　 112　　　　　280　　　　　　　　　　　　　　　　　　　　　　 　 　 　 ABC369
　9　　　　 　 367　　　　　995　　　　　　　　　　　　　　　　　　　　　　 　 　 　 ABC758
10
11　　 　 　 1019　　　　 3277　　　　　　　　　　　　　　　　　　　 　 　 　 　 　 ABC125
12　　　　　　970　　　　　101　　　　　　　　　　　　　　　　　　　　　　　　　　　ABC271
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜

棚卸6月.xls　シート"株式会社○○"
　　　　 A　　　 B　　　　　 C　　　　　　　・・・　　　　　P
　1　　区分　コード　　管理番号　　　　　　　　　　 数量
　2　　A01　　1001　　ABC271　　　　　　　　　　　　101
　3　　A01　　1001　　ABC369　　　　　　　　　　　　280
　4　　A01　　1001　　ABC125　　　　　 　 　 　 　 3277
　5　　A01　　1001　　ABC758　　　　　　　　　　　　995
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜

下記のマクロでは不十分で、３つ質問があります。
１．管理番号が抜けてるときのセルの色づけ方法（現状：全部黄色くなってしまう）
２．D7セルが6月なら12、7月なら17、1月なら47、4月なら62を変数"列"に入れる方法
３．For分を2回使わずに、Findで探す方法

Sub 棚卸表に数量を転記()
　月度 = Range("D7").Value '6月
　列 = 12 '6月

　Set WB1 = Workbooks("管理表.xlsx").Worksheets("在庫数")
　Set WB2 = Workbooks("棚卸6月.xls").Worksheets("○○株式会社")

　管理件数 = WB1.Range("B1048576").End(xlUp).Row
　棚卸件数 = WB2.Range("C65536").End(xlUp).Row

　For i1 = 2 To 棚卸件数
　　管理番号 = WB2.Cells(i1, "C").Value
　　For i2 = 8 To 管理件数
　　　If WB1.Cells(i2, 列).Value <> "" And WB1.Cells(i2, "BP").Value = "" Then
　　　　WB2.Cells(i1, "C").Interior.Color = 65535
　　　　WB2.Cells(i1, "P").Interior.Color = 65535
　　　Else
　　　　If WB1.Cells(i2, "BP").Value = 管理番号 Then
　　　　　WB2.Cells(i1, "P").Value = WB1.Cells(i2, 列).Value
　　　　End If
　　　End If
　　Next i2
　Next i1
　Set WB1 = Nothing
　Set WB2 = Nothing
End Sub

>655
ありがとうございます。ピポットテーブルのデータを別のシートに移すやり方ですね。
項目の変更があったときに、ズレが生じるのではないか……と思いましたが
試してみたら、多少の変更でどうにかなりそうですね。
このやり方なら今後自分で作成するときに使用できそうです。

>656
ありがとうございます。
数式を使わなくても、この形に出来るんですか……うむむ、凄い。
品名ですが「品名　英語（略語）」であればなお有り難いです。
表示部分については、後で「分類・品名ごとの合計」と「場所ごとの合計」の経過を
グラフ化するつもりでおりますので、全表示のほうがよいかと思います。
その他は、まったく問題ないかと。

>657
除算です。分かりづらくてすみません。

>>686
１．「数量に記入があり管理番号が無い」という条件で色付けるのは管理表に色付けたい時の条件と思う。棚卸表側に色付けるなら、「棚卸表の管理番号が管理表内で見つからない時」でいいのでは。
２．月数ぐらいの件数ならFindでもForでもどっちでもいいけど、横方向に「6月」の列を検索してその列番号を変数に入れたらいい
３．Findで見つからない時に色を付けて、見つかる時に数量を記入とすると

Sub 棚卸表に数量を転記()
月度 = Range("D7").Value '6月
列 = 12 '6月
Dim FindRange As Range
Set WB1 = Workbooks("管理表.xlsx").Worksheets("在庫数")
Set WB2 = Workbooks("棚卸6月.xls").Worksheets("○○株式会社")
管理件数 = WB1.Range("B1048576").End(xlUp).Row
棚卸件数 = WB2.Range("C65536").End(xlUp).Row
For i1 = 2 To 棚卸件数
管理番号 = WB2.Cells(i1, "C").Value
Set FindRange = WB1.Columns("BP").Find(what:=管理番号)
If FindRange Is Nothing Then
WB2.Cells(i1, "C").Interior.Color = 65535
WB2.Cells(i1, "P").Interior.Color = 65535
Else
WB2.Cells(i1, "P").Value = WB1.Cells(FindRange.Row, 列).Value
End If
Next i1
Set WB1 = Nothing
Set WB2 = Nothing
Set FindRange = Nothing
End Sub

>>686
列 = WorksheetFunction.Match(月度, Workbooks("管理表.xlsm").Worksheets("在庫数").Range("5:5"), 0) '6月
MATCH関数で管理表の5行から月度を探しては

学生時代にC言語は数値計算で使いましたが、VBAの知識はありません。
今非常に困っていますので助けていただきたく。

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

A列とB列に数字が入っています。
A列とB列の相関係数をCorrel関数を使って、区間を50ごとに区切って求めたいです。

=CORREL(A1:A50,B1:B50)
=CORREL(A51:A100,B51:B100)
・・・
これを65000までやる方法はないでしょうか？

A51とかA100の値を特定のセルの値（C1=1、C2=50）を使って
CORREL(A(C1):A(C2))みたいなことが出来ればいいのですが。

失礼しました。

×　CORREL(A(C1):A(C2))
○　CORREL(A(C1):A(C2),B(C1):B(C2))

一言で言いますと、アドレスのA100とかいう100の部分を特定のセルの値で
指定できないでしょうか？ということです。

もっと上手い方法が他にある気もしますが・・・

>>690
INDIRECT

=CORREL(INDIRECT("a"&D1&":a"&E1),INDIRECT("b"&D1&":b"&E1))

こんなかんじになるんだろうけれど、汚いからOFFSETをROWと組み合わせて使おうと思ってもエラーになるんだよね。

>>692-693
ありがとうございました。
これで実験データの分析が進みそうです。

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

オートシェイプにURLが入力されているセルを参照にしてハイパーリンクをしたいのですができません。
右クリックしてハイパーリンク→このドキュメント内→URLが入力されているセルを指定
しかし図形をクリックしても参照したセルがアクティブになるだけで、リンクに飛んでくれません。
セルを直接クリックすると飛ぶのになぜでしょうか？

>>695
それは無理だと思うよ。vbaであればなんとかなるけど。
直接図形にリンクを貼っちゃだめなの？

>>696
URLの一部をどうにかセルを参照にしたいんです。
例えばA1＆B1で一つのURLができるようにしてるので。
やはりVBAじゃないと無理ですか。

>>697
セルであれば
=HYPERLINK(A1&A2)
みたいに出来るよ

>>698
うん、そのセルを参照してオートシェイプをクリックで飛べるようにしたいんだｗ

あきらめてVBAでやろうとしたけど、ハイパーリンク関数だとVBAでも参照できない？
A1に>>698でハイパーリンク設定して、下記のマクロで指定してもデバッグなって飛ばないけどどうして？

Sub Sample1()
Range("A1").Hyperlinks(1).Follow NewWindow:=True
End Sub

Set hoge = NothingとかApplication.ScreenUpdating = Trueって必要なん？

>>701
君次第

あっそｗ

>>701
　前者は、まあ問題になることはないが、やっておいた方が無難。
　後者は、マナーの如く、やっている。

　どちらも、不要かと言えば、不要でもいいよ････程度。

あっそｗ

よーしパパ、もぅ１個聞いちゃうぞｗ
Application.AskToUpdateLinks = Falseにするとリンクが張ってあるファイルを開いてもメッセージが出なくなるんだけど
強制的に更新するにはどーしたらいいん？

あっそｗ

>>706
ActiveWorkbook.UpdateLinks = xlUpdateLinksAlways　は、どかな

エクセル2010ですが、
見出しの列番号をR1C1形式に表示するアイコンってありませんか？

>>709
ない

>>709
アイコンって設定のこと？
ツール　オプション　全般　R1C1形式〜のこと？

【1 OSの種類 　 　 　 　 .】 Windowvista
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 初心者
【4 VBAでの回答の可否】 可
A2セルから1行に順番に何か文字が入っていたら
空白セルがあるまで1月、2月と名前がついているシートから順番にA1セルに1を入力するというマクロを組みたい
下のようなコードまでは書いたのですが
これですとA2セルだけが入力されていた場合の1月だけを対象にしたい場合が2月まで対象になってしまいます
if文を使えば楽なのですが変数をうまく使えば使わずに出来そう、でもうまい方法が浮かばないといった状況です
どうすればいいのでしょうか？

Sub test()
Dim i As Long, n As Long
n = 2
Do While Cells(1, n) <> ""
For i = 1 To n
Worksheets(i & "月").Range("A1") = 1
n = n + i
Next i
Loop
End Sub

>>711
Sub test()
　　Dim i As Long, n As Long
　　n = 2
　　Do While Cells(1, n) <> ""
　　　　i = n - 1
　　　　Worksheets(i & "月").Range("A1") = 1
　　　　n = n + i
　　Loop
End Sub

じゃダメなのかな・・

>>713
返答ありがとうございます
すみませんそのコードで試したところ3番目のD1セルに文字が入っていた場合の3月シートA1セルに1が入力されないようです

>>712
Sub test()
　　Dim i As Long
For i = 1 To Range("A1").End(xlDown).Row - 1
Worksheets(i & "月").Range("A1") = 1
Next
End Sub

で、よくね？

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


例えばa1〜e1に条件書式で特定の値の時に設定の背景色がつくようにしています。
a1〜e1にはそれぞれ違う値が入ります。
そこで、e1が背景色赤になった場合は、d1〜a1も赤
d1が緑になった場合はｃ1〜a1も緑と、前の行まで一緒色になるようにはどうしたらいいでしょうか。
何かいい方法はないでしょうか。

>>716
エクセル2010でその条件程度なら地道に条件を重ねていけばいいと思うけど

「数式を使用して書式設定するセルを決定」で
A1〜E1のセルにE1=条件という数式で赤にする・・というのを入れて
A1〜D1のセルにD1=条件という数式で緑にする・・というのを入れる

>>716
たとえばそれぞれ５より大きい数字の時に色を付けるが、右のセルが色ついていたらそっちを優先という感じなら
「数式を使用して書式設定するセルを決定」で

A1選択して書式設定　「=$A1>5」で薄い青
A1:B1選択して書式設定　「=$B1>5」で濃い青
A1:C1選択して書式設定　「=$C1>5」で薄い赤
A1:D1選択して書式設定　「=$D1>5」で赤
A1:E1選択して書式設定　「=$E1>5」で濃い赤
設定してからA1:E1選択して下にオートフィルでこんな感じ

http://www.dotup.org/uploda/www.dotup.org3222327.gif

>>717
2010の条件書式は制限ないんですか？
重ねていけばA1の条件付き書式のルール30くらいなるんですけど大丈夫ですかね。

なぜ30個になるんだｗ

>>719
VBA使って幸せに成りやがれ。

>>720
まず単純な色分け条件だけでも9色にわけます。
なのでe1は単純に9通りの条件でいいですが、>>717の用に重ねていけばＡ1は45通りになります

>>722

最近変な要求が多すぎてどれもVBAで解決させてしまいたくなる

>>724
　同感です。

　何重ものシート関数なんて、誰がメンテできるのか！？と。

>>710
さんくすあろっと！

>>688
おぉぉ、絵に描いたようで綺麗ですね。
ありがとうございます。
Findの使い方についてググって真似してみましたが、見つけたサイトでは
Offsetが使われており、うまくできませんでした。
WB1.Cells(FindRange.Row, 列).Valueという使い方もあるんですね。
勉強になりました。

>>689
こちらも綺麗にまとまってていいですね。
ありがとうございます。
If 月度 = "1月" Then　・・・　を12回書こうかと思ってました（自爆●〜*

>>722
なるほど。VBAのが楽ですね。

VBAだと背景色で値を返してくれるんですよね？

はい
.Interior.color
.Interior.colorIndex
.Interior.themecolor
とかで

>>715
そちらですと最終行の65536まで処理を繰り返してしまって
用意したシート以上になってしまい途中でエラーになってしまいました

>>731
行と列が逆だとか

Sub test()
Dim i As Long

For i = 1 To Range("A2").End(xlToRight).Column
Worksheets(i & "月").Range("A1") = 1
Next
End Sub

>>732
こっちだったか
Range("A" & Columns.Count).End(xlToLeft).Column

エクセル2010 初心者です。よろしくおねがいします。
実行速度をなるべくはやくしたいのですが、ＩＦ　と　select case
を使う場合どちらがよいのでしょうか？

excelというよりはvba、vbaというよりは(v)bにはまってしまいそう。

>>732
そのコードでも1行目の入力した場所以上まで判断されて途中でエラーになってしまいます
1行目に何か入っているのかと思い見てみましたが
1回目のctrl+→で入力された最後の行、2回目で最終行まで行ったので何も入ってないようです

>>731
Sub test()
Dim i As Long

For i = 1 To 12
If Cells(1, i).Value = "" Then Exit For
Worksheets(i & "月").Range("A1") = 1
Next
End Sub

>>737
すみませんそれですとA1から対象になってしまい最初の質問と違う答えになってしまいます

>>738
すまんCells(2, i)にしてくれ
ってか、それくらい応用してくんないか

cells(2,i)じゃA2からだから712の言ってることと違うんじゃね

>>740
>>712
>A2セルから1行に順番に何か文字が入っていたら

本当にすみません
なにかおかしいと思ったら質問のセル番号が違いました(A2→B1)

B1セルから1行に順番に何か文字が入っていたら
空白セルがあるまで1月、2月と名前がついているシートから順番にA1セルに1を入力するというマクロを組みたい
下のようなコードまでは書いたのですが
これですとB1セルだけが入力されていた場合の1月だけを対象にしたい場合が2月まで対象になってしまいます
if文を使えば楽なのですが変数をうまく使えば使わずに出来そう、でもうまい方法が浮かばないといった状況です
どうすればいいのでしょうか？
Sub test()
Dim i As Long, n As Long
n = 2
Do While Cells(1, n) <> ""
For i = 1 To n
Worksheets(i & "月").Range("A1") = 1
n = n + i
Next i
Loop
End Sub

>>742
Sub test()
Dim i As Long

For i = 1 To 12
If Range("B1").Offset(, i - 1).Value = "" Then Exit For
Worksheets(i & "月").Range("A1") = 1
Next
End Sub

>>742
もしまた間違えました行じゃなくて列だとういうなら、こっちな
Sub test()
Dim i As Long

For i = 1 To 12
If Range("B1").Offset(i - 1).Value = "" Then Exit For
Worksheets(i & "月").Range("A1") = 1
Next
End Sub

>>743
お手数かけましたありがとうございます

よかったよかった

A1セルに =100*1 と入れ、MsgBox Range("a1").Value を実行すると100が表示されます。
これを =100*1 と表示させるにはどうすればいいですか？

" " この間にいれてみろや

>>747
Range("a1").Formula

まーったく、人を試しているかのようなＱが多いね。

まあ、ヒマなのが応えればいいんだし。

>>734
速度気にするなら、そこじゃないよ。それは用途に合わせて使い分ける所かと。

>>639,>>687
品名ごとの合計だけではなく分類ごとの合計も出してみた
ttp://www.dotup.org/uploda/www.dotup.org3224694.xls.html
DLパスは、君がうpした参照シートのじゃがいもの略語、英語、分類を繋げた9文字

「集計実効」ボタンで集計し自動でアウトラインを設定しレベル2で展開するようになってるので
左上の[1][2][3]や行番号の左の[+][-]で展開を変更できる

以下は定数により設定可能な項目
設定はVBE開いてプロジェクトエクスプローラの「標準モジュール > 設定」をダブルクリックして変更

・アウトラインを設定するか
・アウトラインの初期展開レベル
・アウトラインをセルダブルクリックで展開するか
・分類名背景色を参照シートに従って色分けするか
・品名書式
・品目合計背景色、分類合計背景色
・出荷数表示形式、品目合計表示形式、分類合計表示形式
・品目合計太字、分類合計太字
・出荷数列幅
・フォントサイズ
・集計表上部余白行数 (2にすると年が3行目、月が4行目、出荷数が5行目〜)

書式とか分類合計とかいろいろやってたら、処理時間が0.6秒くらいになっちゃったが
項目が追加変更される度に自動再実効されるわけではなくボタンで任意実効だから問題ないかと
配列使って一括入出力したりWorksheetFunction使わず自前で計算すれば半分くらいには
短縮できるが、任意実効なら問題ないレベルだと思うし面倒なのでやめた

あとは変数名とか殆ど日本語にしてあるので、読んで勉強しとくれ

>>748
ｗｗｗｗｗ

エラそうにｗｗｗ

嫉妬？

偉いのだから仕方がない

本物？

えらいこっちゃ

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

F2　空白
F3　='C:\Excel\[ミカソ.xlsx]りんご'!$B3

F3に数式が入っており、F4以降をオートフィルでコピーします。
オートフィル前に、F2へ　りんご　と入れたらF3の数式に反映するにはどう書けばいいですか？
='C:\Excel\[ミカソ.xlsx] & F2 & '!$B3　ではだめでした。

>>752
コメントが無いのは故意？
変数日本語にするよりコメント説明あった方がわかりやすいと思うけど。

>>760
マトモな日本人なら読んで勉強しろということだ

>>759
INDIRECT関数でできると思う
http://pc.nikkeibp.co.jp/article/technique/20080625/1005458/?rt=nocnt

フィルタオプションの検索条件範囲で
文字列が完全一致じゃなくそれではじまるになるんですが
完全一致にするにはどうしたらいいですか？

>>763
数式にする

>>764
どうやってするの？
＝をつけるとエラーが出てえらいこっちゃだし

>>762
せっかく教えてもらったのに、書き方がワカラソ
=indirect("C:\Excel\[ミカソ.xlsx]" & F2 & "'!$B3")　ではだめでした。

>>765
＝"＝検索文字"

>752
こ、これは凄い……任意実行で切り替えまで！
本当にありがとうございます。
変更可能な部分まで、きっちりと書き込んで下さっていて、非常に助かります。
ここまで丁寧に書いて頂ければ、私のような素人でも変更可能ではないかと。

VBAが何の略かをようやく先々週あたり学んだところですが、
これを参考にして自分でも勉強していきたいと思います。
改めて、本当にありがとうございました＆お世話になりました。

なんか偽物出てきてるので一応トリップ付けておく
>>756と>>761は偽物

>>760
ひとつは、金もらってやっている仕事ではないから
お客様の分かりやすさのためならどんな手間でも掛けるって方向ではなく
手間掛けずに分かりやすさを向上させられる範囲だけ対応するって方向

もうひとつは、質問者がVBAの勉強ではなく、とりあえず結果を出すことを求めてるから
質問者が勉強目的なら、クラス2つ(親コレクションに入れる分とクラス内のコレクションに入れる分)と
ループ1つだけの処理に、がっつりコメント入れた上で、あとは自分で書けって言うが
今回は違うのですぐ使える状態に完成させ、VBA分からなくても変更できる定数部分にだけコメント入れて
あとは本気でVBA勉強する気があるかも解らないので先に挙げた手間掛からず対応できる部分以外は放棄した

>>769
わざわざすみません。納得しました。
コードは参考にさせてもらってます。

>>734
速度を気にするなら実行速度を計測する方法を覚えた方がいい
どうせすぐに飽きるけど
ttp://dqn.sakusakutto.jp/2008/06/vba-1.html
>>766
='C:\Excel\[ミカソ.xlsx]りんご'!$B3
は
=indirect("'C:\Excel\[ミカソ.xlsx]りんご'!$B3",1)
とそのままindirctに入れることができる
つまり
=indirect("'C:\Excel\[ミカソ.xlsx]りんご'!"&F2,1)