Excel総合相談所 103

1 ：12/06/20 〜 最終レス ：12/07/05

前スレ
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 バグ･動作上の不都合･仕様に関する質問などはマイクロソフトのサポートを受けましょう。
　　ここは技術的な質問のみで。

2 ：

>>1乙

3 ：

>>1
お疲れさまです。

4 ：

前スレ>>998
> 例えば６月３０日の２１時に到着したくて
> そこまでたどり着くのに３０時間２１分かかるとして
> だったら何日の何時に出発すればいいのかという質問なのですが
セルの書式設定の表示形式を変える
到着日時のセル→m"月"d"日 "h"時"m"分"
かかる時分のセル→[h]"時"m"分"
出発日時のセル→m"月"d"日 "h"時"m"分"
意味が分からなければここを全部読んでみて(「関連情報」も含めて全て)
http://support.microsoft.com/kb/883199/ja

5 ：

前スレで質問したのですが
１０００いっちゃったのでサイド質問させてください
６月３０日の２１時に到着したいと思い
そこまでたどり着くのに３０時間２１分かかるとして
だったら何日の何時に出発すればいいのかという計算は
エクセルでどう入力すればいいのでしょうか

6 ：

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

7 ：

>>6
入力する値はこんな感じでね
到着日時のセル→6/30 21:00
かかる時分のセル→30:21

8 ：

>>前スレ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"になるだけだけど。
とにかく、質問の意味が良く理解できないよ

9 ：

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

10 ：

>>9
はいそうです

11 ：

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

12 ：

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

13 ：

すいませんお願いします。
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
ピポットテーブルを今勉強し始めたのですがうまくいきません。
行ラベルに１つドラッグしました（商品名とします）。
もう一つその下にドラッグする（担当者とします）と各商品名の下に担当者が来ると思うのですが、
なぜか表では１つ右の列に表示されます。
下に表示するにはどうすればいいでしょうか？

14 ：

【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 & 二行目

15 ：

>>13
ワカンネ
>>14
subつけた？2003だと動いたんだけどな
2010で記述方法が変わってるのかもしれない
Sub a()
Dim 一行目 As String
Dim 二行目 As String
一行目 = Range("A1")
二行目 = Range("A2")
ActiveCell.AddComment Text:=一行目 & vbCrLf & 二行目
End Sub

16 ：

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

17 ：

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

18 ：

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

19 ：

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

20 ：

【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

21 ：

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

22 ：

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

23 ：

>>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

24 ：

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

25 ：

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

26 ：

>>23
それだって、↓ということだから、エラーになると思うけど
.SeriesCollection(1).Cells(i * 2, 1)
そもそもコードの示し方が中途半端すぎだよ

27 ：

こんな感じか
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))

28 ：

来月を変数に入れる方法を教えてください。
kongetsu = Format(Date, "mm") * 1 & "月"
raigetsu = Format(Date, "mm") * 1 + 1 & "月"
これだと、12月のとき13月になってしまいます。

29 ：

>>28
DateAdd使え

30 ：

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

31 ：

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

32 ：

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

33 ：

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

34 ：

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

35 ：

た

36 ：

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

37 ：

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

38 ：

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 少々
【4 VBAでの回答の可否】 可
Book1 Sheet1のA1セルに =[Book2.xls]Sheet1!$B$1 と入れて閉じておきます。
Book2を開いて、Sheet1のセルがどこにリンクされてるか確認する方法を教えてください。

39 ：

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

40 ：

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

41 ：

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

42 ：

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

43 ：

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

44 ：

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

45 ：

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

46 ：

せんせー◆adhRKFl5jU　＝　複なの？

47 ：

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

48 ：

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

49 ：

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

50 ：

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

51 ：

>>39
＞ブックを開く→"Workbooks.Open"でググれ
なぜ？　意味がわかりません。
＞セルに数式が入力されているかどうかを調べる→"Range.HasFormula"でググれ
ググりましたが、Book2には数式が入っていません。
どのように使えばいいのでしょうか？
>>41
無理なんですか？
>>42
このあとが分かりません・・・orz
ｈttp://s1.gazo.cc/up/s1_27642.jpg
>>44
開いてみましたが何か？

52 ：

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

53 ：

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

54 ：

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

55 ：

そうだよ、よかったね

56 ：

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

57 ：

【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

58 ：

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

59 ：

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

60 ：

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

61 ：

>>58
オブジェクトってのは実体
実体という言い方だと捉えにくいが、最低限エクセルで見えてるものは絶対にオブジェクト
bookやワークシート、セル、コマンドボタンに図形は全てオブジェクト。
ただVBAはセルの操作が主になるので、セルの操作を極めたほうがいいと思う
オブジェクトはクラスという概念と密接に関わるのだが、vbaはクラスを意識しなくても操作できちゃうから覚えにくい
オブジェクトはC++やJAVAやれば一発で理解できるよ

62 ：

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

63 ：

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

64 ：

>>62
だめでした・・・
http://uproda.2ch-library.com/544198vHr/lib544198.jpg
>>63
塗り方は、57で書いたとおりです。
http://uproda.2ch-library.com/544179zwE/lib544179.jpg

65 ：

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

66 ：

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

67 ：

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

68 ：

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

69 ：

>>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

70 ：

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

71 ：

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

72 ：

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

73 ：

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

74 ：

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

75 ：

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

76 ：

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

77 ：

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

78 ：

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

79 ：

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

80 ：

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

81 ：

>>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）が塗られます。

82 ：

>>76
「計画がリセット」の意味が分かりません。
>>77
実際にはもっと複雑なので、10と20だけにしました。
>>79
やりたいのはこれです。
http://uproda.2ch-library.com/544179zwE/lib544179.jpg
69では動きませんでした。

83 ：

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

84 ：

>>80
69は動きませんので、正解でもOKでもないです。
条件付き書式は全てのセルに設定するのでしょうか？
>>83
70は私、本人です。

85 ：

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
を省いてるんだろ。足したらちゃんと動く

86 ：

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

87 ：

>>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 ：

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

89 ：

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

90 ：

>>88
>常に計画の累計と実績の累計は一致すんのかよ？
月末になれば一致します。

91 ：

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

92 ：

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

93 ：

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

94 ：

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

95 ：

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

96 ：

低脳はすっこんでろよ

97 ：

>>93
貴方がそれで十分だと認識していても
相手が不足だと認識していれば意味はありませんよ
私の書込みではありませんが
たとえば>>66に対して答えてあげては如何ですか？

98 ：

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

99 ：

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

100read 1read

1read 100read

TOP カテ一覧 スレ一覧 2ch元 削除依頼 ▲

【反MS】Office2003苦情報告スレ【親MS】 (383)
？？アドビ　アクロバット？？ (794)
Ｖｉｓｉｏユーザーにお尋ね申す (875)
【MOSS】Microsoft SharePoint製品【WSS】 (642)
【資産】MicrosoftMoneyﾏﾈｰ4【運用】 (306)
本日発売！　Adobe Illustrator10.0 (277)
--log9.info------------------
海老根恵太(後ろ)ディープインパクト並み(チラ見)４ (923)
山崎芳仁 VS 小嶋敬二 　どっちが強い？スレ (546)
【けいおん】けいりん！♯7【K-RING】 (220)
【不動會】大塚健一郎グランプリへの道２ (496)
(輪界最強)88期☆永井清史☆(世界のダッシュ) (233)
【自在型】市田佳寿浩応援スレ３【東尋坊街道】 (453)
●競輪の場外　旭川に作って欲しい● (608)
●●● 競り番付 ●●● (592)
取手の星★★★★★長塚智広選手を応援するスレ ５ (715)
頑張れ！鈴木誠（千葉） (326)
【山ｻﾞｯｷｰ&翼】第50回小倉競輪祭3【武田散る】 (343)
【番手最強】伏見俊昭７【カミソリ捲り】 (759)
史上最弱のタイトルホルダー、Gレース覇者は誰だ？ (378)
【それでも僕は】香川雄介近道街道３【インが好き】 (812)
「輪界」坂本貴史！！「ニューヒーロー」 (367)
【A上る】レインボーカップ昇降級選手ｽﾚ2【S下る】 (418)
--log55.com------------------
自分のｽﾚ乱立させるって事はもしやF9は傷付いてんの?←ｸｽｸｽ
【馬肉は】トイロ*イロ263【自己責任で】
国内旅行が大好きな奥様20
【疑問】今さら聞けない家事・料理 160【質問】
ｽﾚ立てるまでもない悩み相談 167【既女】
【他力本願】奥様のお勧め教えて144品目【優柔不断】
☆★ハリウッド・海外有名人の噂 その147★★
最近知って衝撃を受けたことPart174