[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『塗りつぶしたセルのカウント』（和代）
Ａ列１行目からに５０行目迄名前が並んでいます。
Ｄ列からＺ列迄（３０分単位で時間を区切っています）は、Ａ列の名前の内、別のシートの条件に該当する人だけを条件付書式設定で色を付けています。Ｄ列からＺ列迄それぞれ５１行目に色を塗りつぶしてあるセルの個数を合計したいのです、色々調べてもわかりませんので教えていただけないでしょうか？
＜ 使用 Excel：Excel2007、使用 OS：Windows7 ＞
>別のシートの条件に該当する人だけを条件付書式設定で色を付けています
具体的にはどんな条件でしょうか。 その条件に合致するセルの数を数えればいいのですが。
（tora） 2014/08/10(日) 09:37
上記作業をその日の出勤する人の人数分（例えばその日に５人）入力して質問のシートに転記しています。
そのデータ５人分を質問のＡ列（全従業員の名前が記載しています）と合致している人があれば
合致したＡ列にある名前のＤ列からＺ列に出勤時間から退勤時間迄の時間に色を（条件付書式設定、数式を利用しての塗りつぶし）つけています。
Ｄ列が８：３０ Ｅ列が９：００---と３０分おきに並んでいます。
全ての時間にまんべんなく人が入っているかを確認をするために、Ｄ列にいくつのセル（実際は何名分）が
あるか、Ｅ列にいくつのセルがあるかを順に、Ｄ列からＺ列の５１行目に色が入ったセルの合計を数える方法を教えて頂きたいのです。自分が思ったことを伝えるのは難しいですが、お分かりいただけましたでしょう
か？
宜しくお願い致します。
（和代） 2014/08/10(日) 10:34
この種の質問は学校でもたびたびあって、このあたりの回答が定番になっている気がします。
Color関数(関数、アドイン)：色の付いたセルの合計や色の付いたセル数を求めることができる関数です
http://www.excel.studio-kazu.jp/DL/UFClr/UFClr.html
マクロになりますが、使用できないでしょうか。 （Mook） 2014/08/10(日) 12:25
http://www.excel.studio-kazu.jp/DL/UFClr/UFClr.html で、関数を確認しました。
（質問の前に私がネット検索で調べ「関数、色を塗りつぶしたセルの数」と検索
した時と同じような説明がありましたが、うまくいきませんでした。）
しかし下記関数の式をＡ１２行目に入れ、テスト的にＡ列の３・６・９行目に赤色を塗りましたが
Ａ１２は＃ＮＡＭＥ？になります。何が違っているのでしょうか？教えて下さい。
Ａ１２の式です。⇒ =UFClrCntcc(A1:A9,3)
（和代） 2014/08/10(日) 13:28
#NAME エラーということは関数が認識できていないのだと思いますが、 xls と xla とどちらをお使いですか？
まずは xls で試した方が良いと思いますが、そちらでうまくいかないでしょうか。 xla を使いたい場合はアドオンの設定が上手くできていないので、設定を確認してください。
（Mook） 2014/08/10(日) 13:40
（和代） 2014/08/10(日) 14:07
保存されたファイルを無理やりリネームしないでくださいね。 別名保存でファイル形式を xlsm にするか、xls を選んで保存してください。
#NAME がでているということは、マクロの関数が EXCEL で有効になっていないということです。
まずはダウンロードした xls のファイルをそのまま使ってみて動作確認してみてどうで しょうか。
上手く動けばそのファイルにシートコピーしたら動かないでしょうか。 （Mook） 2014/08/10(日) 17:04
↑ これ L の小文字 l(エル) ですが 1(イチ) になっていませんか
（kazu） 2014/08/10(日) 18:22
（和代） 2014/08/10(日) 19:39
Option Explicit
Sub Auto_Open()
' 2004/03/22 sm,cv のInteger 型を Variant 型に変更
' 2013/12/28 [F9]で再計算させるためApplication.Volatile を追加
' 2014/04/04 Application.Volatile でExcelが終了するので OnKey で対策
Dim m As Integer, mc As Integer
mc = MenuBars(xlWorksheet).Menus.Count
For m = 1 To mc
If MenuBars(xlWorksheet).Menus(m).Caption = "Clr" Then
Exit Sub
End If
Next m
MenuBars(xlWorksheet).Menus.Add Caption:="Clr"
MenuBars(xlWorksheet).Menus("Clr").MenuItems.Add Caption:="再計算", OnAction:="USClrReCalc"
Application.OnKey "{F9}", "recalc"
End Sub
Public Function UFClrSumfc(adrs, clr)
' 特定色の文字色の合計
Dim sm As Variant, cv As Variant, fci As Integer, ad As Range
sm = 0
For Each ad In adrs
fci = ad.Font.ColorIndex
cv = ad.Value
If fci = clr Then
sm = sm + cv
End If
Next
UFClrSumfc = sm
End Function
Public Function UFClrCntfc(adrs, clr)
' 特定色の文字色の数
Dim sm As Variant, cv As Variant, fci As Integer, ad As Range
sm = 0
For Each ad In adrs
fci = ad.Font.ColorIndex
If fci = clr Then
sm = sm + 1
End If
Next
UFClrCntfc = sm
End Function
Public Function UFClrSumcc(adrs, clr)
' 特定のセルの色の合計
Dim sm As Variant, cv As Variant, fci As Integer, ad As Range
sm = 0
For Each ad In adrs
fci = ad.Interior.ColorIndex
cv = ad.Value
If fci = clr Then
sm = sm + cv
End If
Next
UFClrSumcc = sm
End Function
Public Function UFClrCntcc(adrs, clr)
' 特定のセル色の数
Dim sm As Variant, cv As Variant, fci As Integer, ad As Range
sm = 0
For Each ad In adrs
fci = ad.Interior.ColorIndex
If fci = clr Then
sm = sm + 1
End If
Next
UFClrCntcc = sm
End Function
Public Function UFClrSumccx(adrs)
' 色のついたセルの合計
Dim sm As Variant, cv As Variant, fci As Integer, ad As Range
sm = 0
For Each ad In adrs
fci = ad.Interior.ColorIndex
cv = ad.Value
If fci <> -4142 Then
sm = sm + cv
End If
Next
UFClrSumccx = sm
End Function
Public Function UFClrCntccx(adrs)
' 色のついたセルの数
Dim sm As Variant, cv As Variant, fci As Integer, ad As Range
sm = 0
For Each ad In adrs
fci = ad.Interior.ColorIndex
If fci <> -4142 Then
sm = sm + 1
End If
Next
UFClrCntccx = sm
End Function
Public Function UFClrSumfcx(adrs)
' 色のついたの文字の合計
Dim sm As Variant, cv As Variant, fci As Integer, ad As Range
sm = 0
For Each ad In adrs
fci = ad.Font.ColorIndex
cv = ad.Value
If fci <> -4105 Then
sm = sm + cv
End If
Next
UFClrSumfcx = sm
End Function
Public Function UFClrCntfcx(adrs)
' 色のついた文字の数
Dim sm As Variant, cv As Variant, fci As Integer, ad As Range
sm = 0
For Each ad In adrs
fci = ad.Font.ColorIndex
If fci <> -4105 Then
sm = sm + 1
End If
Next
UFClrCntfcx = sm
End Function
Public Function UFClrfc(adrs)
Dim ad As Range
UFClrfc = adrs.Font.ColorIndex
End Function
Public Function UFClrcc(adrs)
Dim ad As Range
UFClrcc = adrs.Interior.ColorIndex
End Function
Public Sub USClrReCalc() Application.CalculateFull
End Sub
Public Sub recalc()
Application.CalculateFull
End Sub
（和代） 2014/08/10(日) 19:59
Application.CalculateFull
End Sub
（和代） 2014/08/10(日) 20:03
>ファイルにシート名のところを右クリックしてコードの表示をクリックして貼り付けしました。
貼り付ける場所は シートモジュール ではなくて標準モジュールに貼り付けてください。 VBE の 挿入⇒標準モジュール で表示されるウィンドウです。 （Mook） 2014/08/10(日) 20:31
うーん、セルの状態を見て加算するだけなので VALUE エラーってどういうケースで 出るんでしょうね？
一つ気になるのは、当初条件付き書式の話をされていましたが、今回試されているのは 塗りつぶしの方なので混同しないようにしてください。
手で塗りつぶしたところは計数できますが、条件付き書式で色が付いているところは 数えられません。 xls の拡張子なら、先ほどのライブラリに条件付き書式対応版が使用できると思います のでそちらをお使いください。
ところで条件付き書式対応版は 2007 以降（xlsm）でも使えるのかな？ （Mook） 2014/08/10(日) 21:25
（和代） 2014/08/10(日) 21:41
一応関数としては動いていると思うので、関数の先頭にブレイクポイント（VBE で F9）を 設定しておいて、EXCEL で再計算の実行（F9だったかな）を実行して、VBE にもどり、 F8を押しながらどこでエラーになるか確認できるでしょうか。
エラーになるセルの位置を確認できれば何か原因がわかると思うのですが。 とりあえず、A1:A3 を赤く塗りつぶし B列にでも =UFClrCntcc(A1,3) =UFClrCntcc(A2,3) =UFClrCntcc(A3,3) としてもすべてエラーになるでしょうか。 （Mook） 2014/08/10(日) 21:54
=UFClrCntcc(A1,3) =UFClrCntcc(A2,3) =UFClrCntcc(A3,3) としてもすべてエラーになるでしょうか。---エラーになりませんでした。 個数は各１になりました。 色々触っているときに、色を増やしてＶＢＡのボタンをクリックしても何も動かないのですが 偶然に関数の式を変更した後、もとに戻したら色を追加しても正しい個数が合計されます。 続いて色を増やして関数の式を同じく変更、元へ戻せば正しい個数の合計がでます。
関数の先頭にブレイクポイント（VBE で F9）を 設定しておいて⇒具体的にどうするのですか？
追加質問：
?@ xls の拡張子なら、先ほどのライブラリに条件付き書式対応版が使用できると思います。⇒先ほどの
ライブラリとはどの部分でしょうか？
?Aダウンロード で今必要なものは色のついたセルの数ですので、このＶＢＡだけ教えていただけないでしょ
うか？
下記コードだけでは動かないのです。何か補足するコードがあると思うのですがわかりません。
Public Function UFClrCntccx(adrs)
' 色のついたセルの数
Dim sm As Variant, cv As Variant, fci As Integer, ad As Range
sm = 0
For Each ad In adrs
fci = ad.Interior.ColorIndex
If fci <> -4142 Then
sm = sm + 1
End If
Next
UFClrCntccx = sm
End Function
今、時計を見ましたら１０時２６分、びっくりしました。お休みください。続きは明日午後からで結構です。
私は明日午後から出社です。本当に遅くまで有難うございました。お疲れ様です。
（和代） 2014/08/10(日) 22:30
>先ほどのライブラリとはどの部分でしょうか？ http://www.excel.studio-kazu.jp/DL/UFClr/UFClr.html の Color7 です。
条件付き書式での数を数える関数は多分「UFClrCntfc」です。 違ってたら、誰かのフォローに期待。 （Mook） 2014/08/10(日) 23:25
1.テストは「条件付き書式」で行わないと得るものはほとんどありません。
2.条件付き書式用のマクロについては、以前も同じような質問があり、 ↓ 『Color関数 色のついた文字で合計を求めるUFClrSumfcx』（SHINOKAZ） http://www.excel.studio-kazu.jp/kw/20081023172945.html
SHINOKAZさんは、(↓）と評価しております。 半平太推測 ↓ ＞ 上記「セルの値が」の場合はＯＫですが、「数式が」の場合でないと(私の)目的達成出来ません。 ＞ 色を変える条件「数式が」に、あるセルの文字と あるセルの数値にしている為です。
実際、もう一度コードを見てみましたが、「数式が・・」の場合
＞ If cL.FormatConditions(i).Type = xlExpression Then '2 * 数式 * ＞ ＞ If cL.Formula = cL.FormatConditions(i).Formula1 Then ＞ hcnt = hitProc(hcnt, cL.Value, ctl) ＞ End If ＞ Else
となっていて、セルの「数式」と、条件式の「数式」が、同じ「文字列」になっているかどうか、 と云うぶったまげの真偽判断をしています。
「If cL.Formula = cL.FormatConditions(i).Formula1 Then」 ↓ 「If Application.Evaluate(cL.FormatConditions(i).Formula1) Then」
に変えればいけるのではないかと思いますが、自信はそんなにないです。
＞ ところで条件付き書式対応版は 2007 以降（xlsm）でも使えるのかな？ 3．単純に名前を変えて保存でxlsmにした状態では、特にトラぶりはなかったです。
・・けど、全く異質とも云える機能に進化していますので、 個人的には設定済みの条件付き書式をマクロでなんとかフォローしようとするのは あきらめた方がいいように思っています。 3通りしか設定出来なかったXLSの時でさえ、まともに作れていないんですから。 (停止条件付の有無まで考慮しなければならなくなったら気が狂います・・わたしなら）
私の結論としては、条件付き書式の条件と同じ趣旨の数式を使って、 算出するのが無難だと思います。
（半平太） 2014/08/11(月) 19:27
単に色を塗っている個数を数えるのは、関数とＶＢＡのつなぎは色々チェックしている間に解って来ました。
条件付き書式での数を数える関数は多分「UFClrCntfc」です。→調べましたらその通りですが、ＶＢＡは上記記載の「(Mook様）記載の 2014/08/10(日) 20:31 貼り付ける場所は シートモジュール ではなくて標準モジュールに 貼り付けてください。VBE の 挿入⇒標準モジュール で表示されるウィンドウです。」
標準モジュールのＶＢＡを貼り付けて実行すればいいと思うのですが、
しかしそのようにしても＃VALUE！になります。具体的にw7:w52迄の間に条件付書式セルの色を２つ入っても
＃ＶＡＬＵＥ！になります。
何が違うのでしょうか？教えて下さい。
この文章を貼り付けましたところ、半平太様から届いた文章を読みました、今から半平太様の言われたコードを変える事にトライします。（私の結論としては、条件付き書式の条件と同じ趣旨の数式を使って、算出するのが無難だと思います）一度トライします。ＭＯＯＫ様、半平太様大変時間をかけ申し訳ありません。
（和代）2014/08/11(月) 20:07
＞今から半平太様の言われたコードを変える事にトライします。
いや、それをしていただこうと思って書いたものではありません。(^_^;) トライするのはご自由ですけど。。。
あと、真偽判定が正しくないとしても、大抵は返り値が0になるだけなので、 ＃ＶＡＬＵＥ！になる原因を説明をしたものでもありません。
＃ＶＡＬＵＥ！になる場合、プログラムが異常停止して、正常に返り値をセルに渡して いない公算の方が大きいです。
（半平太） 2014/08/11(月) 20:35
この程度で迷惑なんて思わなくていいと思いますよ。 回答者も楽しんでいる部分もあるのですから。
今の #Value エラーの原因を究明してもいいですし、 半平太さんが書いている条件と同じ内容の数式に置き換えでもいいですし、
これから同じ内容で困る人のために、解決まで道筋を残してはどうでしょうか。
後者をするのであれば、現在のセルに設定されている条件付書式を例示したらよいと 思いますが、集計範囲のセルごとの書式設定はいろいろな種類があるのでしょうか。
でも、コメントは下の欄からお願いします。 （Mook） 2014/08/11(月) 21:07
「後者をするのであれば、現在のセルに設定されている条件付書式を例示したらよいと
思いますが、集計範囲のセルごとの書式設定はいろいろな種類があるのでしょうか。
→私も諦めるのは嫌ですが、人に迷惑をかけるのが嫌な為です。
「これから同じ内容で困る人のために、解決まで道筋を残してはどうでしょうか。」には私も賛成です。
明日、会社に出社してから伝える事を（数式の書式等)整理します。
有難うございます。私も色々試行錯誤して頑張ります。
（和代） 2014/08/11(月) 21:51
> 標準モジュールのＶＢＡを貼り付けて実行すればいいと思うのですが、
VBAを実行すれば結果が表示されると思われているようですが、
そうではないです。
Color関数はあくまでユーザー定義の関数です。
ワークシートから =UFClrCntcc(A1:A31,3) の関数式で自動計算されます。
セルの色を変更して、[F9]キーを押せば 通常再計算してくれます。
それでも再計算されない場合 [Clr]ボタン を使ってみてくださいということで、
VBAを実行するのとニュアンスが違います。
[Clr]ボタン
Private Sub CommandButton1_Click()
Application.CalculateFull
End Sub
（kazu） 2014/08/11(月) 22:25
条件付き書式は結果はとれない。 と決めつけていましたが、Google様にお伺いを立ててみたら、あら？ いつの間にやら。
2010からとれるようになっていたようですね。 http://officetanaka.net/excel/vba/tips/tips148b.htm TANAKA さんのところに DisplayFormat というのがサポートされたという記事がありました。
これは！ と思って確認したら、あら残念。 質問者さんは2007でしたか ＞＜。
まぁ、出来ないわけではないので別の方法を頑張りましょう。 kazu 校長からもアドバイスが出ているので、式を設定後に F9 を押してみてどうなるかも 確認してはどうでしょうか。 （Mook） 2014/08/12(火) 00:47
一般論ですけど、マクロ対応は汎用性を持つものを目指すので、 あらゆる条件設定を分析しなければならず、相当な負担がかかります。
ただし、今後は ＞2010からとれるようになっていたようですね。 とのことなので楽になるかも知れません。
一方、数式対応は、目の前の具体的な問題を解決すればいいので負担は軽い。
想像ですけど、もし下図のようになっているなら
D52セルに下式を入力して、右にコピー で行けると思います。
=SUMPRODUCT(($B$2:$B$51-0.00002<D$1)*(D$1+0.00002<$C$2:$C$51))
<結果図> 行 ___A___ __B__ ____C__ ___D__ ___E___ ___F___ ___G___ ___H___ ___I___ __J__ 1 シフト 開始 終了 8:30 9:00 9:30 10:00 10:30 11:00 11:30 2 山田 3 川田 10:00 11:30 条件色 条件色 条件色 4 否谷田 5 名前04 9:00 11:00 条件色 条件色 条件色 条件色 6 名前05 ： ： ： 50 名前49 51 名前50 52 条件付 0 1 1 2 2 1 0 塗り潰計
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
あと、UFClrCntfcについてちょっと調べてみました。
D2:D5の範囲に条件付き書式の色がついているセルの数を調査すべく ワークシートのセルに =UFClrCntfc(D2:D5) と入力してみました。 （なお、カラー番号の指定は出来ません）
すると、この関数が呼ばれます ↓ ＞Function UFClrCntfc(addr As Range) ＞ ' 条件付書式を満たしているセルの件数 ＞ UFClrCntfc = UFColor(addr, 1) + 1 ＞End Function ↑ どういう訳か、最低「1」にはなるようになっているみたいです。 従って、セルを1つしか指定していないのに「2」が返ったりします。
続いて UFColor(addr, 1) が呼ばれます。（長いので「数式が」の部分だけ記します）
＞Function UFColor(addr As Range, ctl As Integer) ＞' 条件付書式のセルの色の条件を満たしているものの数 2004/04/04 ＞' 参考にしたサイト：http://keep-on.com/excelyou/1999lng4/199908/99080044.txt ＞ Dim cL As Range, i As Integer, hcnt As Integer ＞ hcnt = 0 ＞ For Each cL In addr ＞ For i = 1 To cL.FormatConditions.Count '条件付き書式設定あり ＞ If cL.FormatConditions(i).Type = xlExpression Then '2 * 数式 * ＞ If cL.Formula = cL.FormatConditions(i).Formula1 Then ＞ hcnt = hitProc(hcnt, cL.Value, ctl) ＞ End If ＞ Else '* 値 * ＞ ’省略 ＞ End If ＞ Next i ＞ Next cL ＞ UFColor = hcnt ＞End Function
前レスで記した通り、このステートメントは「数式が」の場合、数式文字列の比較でほとんど意味がないので ↓ ＞ If cL.Formula = cL.FormatConditions(i).Formula1 Then
↓へ変更します。 if Application.Evaluate(cL.FormatConditions(i).Formula1) then
それで行けるかもと思ったのですけど、少なくともXL2010環境では、cL.FormatConditions(i).Formula1 は全く同じ数式文字列しか返さない ので、いつも同じ真偽判定になってしまう。 つまり、1が返るか、セル数+1 になるしかない運命にあります。（サンプルでは、1 か 5 ）
私には(少なくとも2010環境では)、使えるものとは思えませんでした。
（半平太） 2014/08/12(火) 13:00
半平太様の想像の結果図は本当にその通りです。
＝SUMPRODUCT−−−を入力しましたら楽しみにしていたのですが、答えは＃ＶＡＬＵＥ！になります。入力間違いがないか確認をしています。どうすればよろしいのでしょうか？時間を取らせてすみません。
（和代） 2014/08/13(水) 17:15
「空白に見えている開始時刻欄に、実際に何が入っているか」によって対策が変わります。
もし空白文字列（つまり→ "" ) なら、下式に変更してください。
D52セル =SUMPRODUCT(((0&$B$2:$B$51)-0.00002<D$1)*(D$1<(0&$C$2:$C$51)-0.00002))
（半平太） 2014/08/13(水) 18:26
その間、自分なりに、試行錯誤しました。例えば値を出すセルＤ５３に式で、ｚ１のセル（条件付き書式で同じ色を設定しています）とＤ列の色が同じならば、５３行目に”１”を入れる。
そして下に５０行分を式のコピーダウンをしました。１０４行目に１のカウントを数えれば出来ると思ってしましたが、うまくいかなかったのです。
これがうまく行きましたので、下記のようにして最後の段階をマクロでどのようにすればよろしいかお尋ね致します。宜しくお願い致します、これがうまくいけば弊社の各部署のアルバイトのシフト担当者が時間の軽減
が出来ます、何卒よろしくお願いいたします。
・下記結果図（挿入をして空白にしましたので、実際には列が変わっています）が１日分として別シート名
（１日）に貼り付けます、２日目が終われば別シート名（２日）に貼り付けます、以降３１日目迄のシート名に貼り付けします。、
<結果図> 行 ___Ｒ___ _Ｓ__ ___Ｔ__ __U__ ___V___ __W___ ___X___ ___Y___ ___Z___ __AA__ 1 シフト 開始 終了 8:00 8:30 9:00 9:30 10:00 10:30 11:OO 2 山田 3 川田 10:00 11:30 条件色 条件色 条件色 4 否谷田 5 名前04 9:00 11:00 条件色 条件色 条件色 条件色 6 名前05 ： ： ： 50 名前49 51 名前50 52 条件付 0 1 1 2 2 1 0 塗り潰計 ・終わればシート名：（合計）に以下のように一カ月のシフト表を作成します。、 Ａ列に従業員の名前を一人分で２行（開始時間と終了時間が他のシート名（１日から３１日のシート）から 自動的に入るようにしたいのです。）使用します。。 ・３行目の日と４行目の日と曜日の出し方がイメージとしてまとまらないのですが、例えばフォームコントロール（コンボボックス）のような矢印キーをクリックして日付を合わせば自動的に日に応じた曜日がＡ１に 表示されるようにしたいのです。 シート名：（合計） 行：Ａ列 Ｂ列 Ｃ列 Ｄ列 −−−−ＡＦ列 ３ 日 １ ２ ３ −−−−３１ ４ 曜日 金 土 日 −−−−（日） ５ 山田 開始時間 開始時間 開始時間 開始時間 ６ 山田 終了時間 終了時間 終了時間 終了時間 ７ 川田 開始時間 開始時間 開始時間 開始時間 ８ 川田 終了時間 終了時間 終了時間 終了時間 後、５０行続きます
これがうまく行きましたら弊社の各部署でアルバイトのシフト担当者がかなり今と比較しましたら時間の短縮に寄与することが出来ますので、今までかなりの時間を費やしましたが、最後のお願いをお聞きくださいませ。よろしくお願いいたします。
（和代） 2014/08/13(水) 20:57
（和代） 2014/08/13(水) 21:03
＞３行目の日と４行目の日と曜日の出し方がイメージ
そこは数式で十分だと思うのですけど？
B3セルに月初の日付を手入力ででも入れれば、 あとは単純に月末まで１をプラスしていけば済みますよね？
曜日は、3行目を「セルの書式設定」で一緒に出せばいいんじゃないですか？ 4行目は空きになります。
C3セル =IF(B3="","",IF(B3+1>EOMONTH($B3,0),"",B3+1)) これをAF3セルまでコピー
B3セルからAF3セルまで、セルの書式（表示形式）を「ユーザー定義」で d(aaa) と設定する
<合計> 行 _____A_____ ____B____ ____C____ ____D____ ____E____ 1 2 3行目の実体 2014/9/1 2014/9/2 2014/9/3 2014/9/4 3 日（曜） 1(月) 2(火) 3(水) 4(木) 4 5 山田 開始時間 開始時間 開始時間 開始時間 6 山田 終了時間 終了時間 終了時間 終了時間 7 川田 開始時間 開始時間 開始時間 開始時間 8 川田 終了時間 終了時間 終了時間 終了時間
＞特に０＆を追加したところと 時刻欄に数式で出した空白（つまりこんなもの→"" ）があると、それは文字の一種なので、 計算対象にするとエラーになります。
なので、0を頭に付けてから計算できるように変えたものです。"0"は文字でも計算できる。
すると、空白文字じゃないデータに悪影響が出やしないかと思うかも知れませんが、 そこは数値なので、頭の0は計算する時、無視されます。 「10」が「010」になっても、それは10でしかありません。
＞0.00002の意味 2秒弱の意味です。これじゃなければいけないということではありません。 59秒までOKなんですけど、とにかく「ほんの少しの時間」と云う意味合いです。
何故、そんなものを引くのかと云うことですけど、
時刻データの実体は小数です。（1日が1なんですから、当然それより小さい）
小数の計算では演算誤差が生じることがあります。
もし全データが手入力なら、全てのデータが同じ誤差なので、 そんな一手間を入れる必要はないです。 けど、はたして8:00から30分置きに書いた時刻データは全て手入力でしょうか？ 多分、2つ、3つ入れたらあとはオートフィルで埋めちゃいますよね？
それは手操作であっても、エクセルに計算させて30分置きにしているものなのです。
つまり、オートフィルした時刻データは、小数を計算した結果のデータなんです。 なので、純粋に手入力した時刻データより、ほんの少し大きかったり、小さかったりする可能性があります。 そこで、確実に各区切りの時間帯に収めるべく、わずかな時間を調整値として加減したものです。
（半平太） 2014/08/13(水) 23:00
０＆と0.00002の意味が説明のおかげで理解できました。
あとは、下記をマクロでできないでしょうか？
・下記結果図（挿入をして空白にしましたので、実際には列が変わっています）をボタンをクリックすれば
１日分として別シート名 （１日）に貼り付けます、２日目が終わればボタンをクリックすれば別シート名（２日）に貼り付けます、以降３１日目迄のシート名に貼り付けします。
・終わればシート名：（合計）に以下のように一カ月のシフト表を自動作成します。、
Ａ列に従業員の名前を一人分で２行（開始時間と終了時間が他のシート名（１日から３１日のシート）から
自動的に入るようにしたいのです。）使用します。。
・３行目の日と４行目の日と曜日の出し方がイメージとしてまとまらないのですが、例えばフォームコントロール（コンボボックス）のような矢印キーをクリックして日付を合わせば自動的に日に応じた曜日がＡ１に
表示されるようにしたいのです。
シート名：（合計）
行：Ａ列 Ｂ列 Ｃ列 Ｄ列 −−−−ＡＦ列
３ 日 １ ２ ３ −−−−３１
４ 曜日 金 土 日 −−−−（日）
５ 山田 開始時間 開始時間 開始時間 開始時間
６ 山田 終了時間 終了時間 終了時間 終了時間
７ 川田 開始時間 開始時間 開始時間 開始時間
８ 川田 終了時間 終了時間 終了時間 終了時間
後、５０行続きます
以上よろしくお願い致します。私もロジックでこうしたら次にこうすればとアイデアが出るのですが
ＶＢＡがわかりません。ﾞ
（和代） 2014/08/13(水) 23:44
済みません。
条件付き書式の色をマクロで処理しようとしても 一筋縄では行かない、 と言おうと思って出てきたところがありまして、、、 だんだん本題から外れて来ましたので、 私はここでドロップアウトいたします。
※レスが付きにくくなりつつあると判断されたら、 新たにトピックをお立てになることをお勧めいたします。
（半平太） 2014/08/14(木) 08:42
新たにトピックをお立てになることをお勧めいたします。」−−−本題から外れて来た事は、 歪みません。この場では、終了します。 自分で試行錯誤してどうしてもわからない所を新たにレスをご依頼します。 皆様、有難うございました。
（和代） 2014/08/15(金) 17:30
既にトピックは終わった形になっており、書き込むのはどうかと思いましたが、 私の記述で訂正して置きたい箇所があるので書き足させてください。
＞ ただし、今後は ＞ ＞2010からとれるようになっていたようですね。 ＞ とのことなので楽になるかも知れません。
ユーザー定義で使ってみると #VALUE!エラー になるので調べたら こんな注釈がありました。ユーザー定義関数では楽になれないようです。 ↓ 「DisplayFormat プロパティはユーザー定義関数では機能しないことに注意してください。」 http://msdn.microsoft.com/ja-jp/library/office/ff838814(v=office.15).aspx
（半平太） 2014/08/16(土) 22:57
kazu様、下記連絡、有難うございます。
条件付き書式対応版のColor関数は公開を停止しました。
（和代） 2014/08/17(日) 13:20
> 「DisplayFormat プロパティはユーザー定義関数では機能しないことに注意してください。」 あらら。なかなか簡単にはいかないですね。
当面、ボタンでマクロ処理かな。 SelectChange などの イベント処理だと、上手くいくのかな？ 感想だけで済みません。
時間ができたら、いろいろと遊んでみます。
（Mook） 2014/08/17(日) 13:29
（和代） 2014/08/17(日) 15:20
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.